mdlgtasadeclares.bas

著名单机游戏 gta 圣安地列斯 的外挂 有兴趣的朋友可以看下！

Attribute VB_Name = "mdlGTASADeclares"
Option Explicit
'Types and variables for GTASA / Console Buffers:
'GTASA Base Adresses:
Type GTASABaseAdresses
    PlayerAdr As Long               'DWord Ptr
    PlayerAdr2 As Long              'DWord Ptr
    CurrCarAdr As Long              'DWord Ptr
    Msg1Adr As Long                 'AsciiA
    MoneyAdr As Long                'DWord
    FatStatAdr As Long              'Float
    StaminaStatAdr As Long          'Float
    MuscleStatAdr As Long           'Float
    MaxHealthStatAdr As Long        'Float
    EnergyStatAdr As Long           'DWord
    WeaponProfStatAdr(9) As Long    'Float
    HotCoffeeAdr As Long            'Byte (bit flip)
    VehicleProfAdr(3) As Long       'Car,Bike,Cycle,Pilot DWord
    LungCapacityAdr As Long         'Float
    GamblingStatAdr As Long         'Float
    OpenedIslandsAdr As Long        'DWord (0 to 4 islands)
    GFStatAdr(5) As Long            'DWord (0-100) 'Denise/Michelle/Helena/Katie/Barbara/Millie
    GFProgressAdr(5) As Long        'DWord (0-100) 'Denise/Michelle/Helena/Katie/Barbara/Millie
    CheatCountAdr As Long           'DWord
    CheatStatAdr As Long            'DWord
    cNeverWantedAdr  As Long        'Byte
    cNeverGetHungryAdr  As Long     'Byte
    cInfHealthAdr  As Long          'Byte
    cInfOxygenAdr  As Long          'Byte
    cInfAmmoAdr  As Long            'Byte
    cInfRunAdr As Long              'Byte
    cFireproofAdr As Long           'Byte
    cMegaPunchAdr  As Long          'Byte
    cMegaJumpAdr  As Long           'Byte
    cMaxRespectAdr  As Long         'Byte
    cMaxSexAppealAdr  As Long       'Byte
    cFastCarsAdr  As Long           'Byte
    cCheapCarsAdr  As Long          'Byte
    cTankModeAdr As Long            'Byte
    cCheatsAdr(20) As Long          'Byte'Never Wanted=0'Never Get Hungry=1'Infinite Health=2'Infinite Oxygen=3'Infinite Ammo=4'Tank Mode=5
                                         'Mega Punch=6'Mega Jump=7'Max Respect=8'Max Sex Appeal=9'Fast Cars=10'Cheap Cars=11'Infinite Run=12'Fireproof=13
                                         'Perfect Handling=14'Decreased Traffic=15'Huge Bunny Hop=16'Cars Have Nitro=17'Boats can Fly=18'Cars can Fly=19
    DaysInGameAdr  As Long          'Long
    CurrHourAdr  As Long            'Byte
    CurrMinuteAdr  As Long          'Byte
    CurrWeekdayAdr  As Long         'Byte
    GameSpeedMsAdr As Long          'Long
    GameSpeedPctAdr As Long         'Float
    CodeInjectJumpAdr As Long
    CodeInjectCodeAdr As Long
    CodeInjectJump_OneHitKillAdr As Long
    CodeInjectCode_OneHitKillAdr As Long
    CodeInjectNOP_FreezeTimerUpAdr As Long
    CodeInjectNOP_FreezeTimerDownAdr As Long
    CarSpawnAdr As Long
    WeaponSpawnAdr(11) As Long
    WeatherLockAdr As Long
    WeatherToGoAdr As Long
    WeatherCurrentAdr As Long
End Type
Global GTASABaseAdr As GTASABaseAdresses

'GTASA Location Buffer 3x4 bytes:
Type GTASALocation '12 Bytes
    sngXcoord As Single
    sngYcoord As Single
    sngZcoord As Single
End Type
Global GTASAWarpTrailerOffset(3) As GTASALocation
Global GTASAWarpBikeOffset(4) As GTASALocation
Global GTASAWarpCarOffset(3) As GTASALocation
Global GTASAWarpReadOffset As GTASALocation
Global GTASAWarpTrailerPosOffset As GTASALocation

Global GTASAWarpCurrPos As GTASALocation
Global GTASAWarpDetachablesLoc As GTASALocation
Global GTASAWarpPlayerLoc As GTASALocation
Global GTASAWarpPlayerLocBefore As GTASALocation
Global GTASACarPosition As GTASALocation
Global GTASAPlayerPosition As GTASALocation

'GTASA Speed Buffer 3x4 Bytes:
Type GTASASpeed '12 Bytes
    sngXSpeed As Single
    sngYSpeed As Single
    sngZSpeed As Single
End Type
Global speedBuffer As GTASASpeed
Global speedHookBuffer As GTASASpeed
Global zeroSpeed As GTASASpeed
Global speedWriteBuffer As GTASASpeed
Global KickStartSpeeds(7) As GTASASpeed
Global speedExecWriteBuffer As GTASASpeed
Global speedConsoleBuffer As GTASASpeed

'GTASA Spin Buffer 3x4 Bytes
Type GTASASpin '12 Bytes
    sngXSpin As Single
    sngYSpin As Single
    sngZSpin As Single
End Type
Global spinBuffer As GTASASpin
Global spinHookBuffer As GTASASpin
Global zeroSpin As GTASASpin
Global spinWriteBuffer As GTASASpin
Global spinExecWriteBuffer As GTASASpin
Global spinDelayedWriteBuffer As GTASASpin

'GTASA Position/Placement Data
Type GTASAPosData '7x4= 28 Bytes
    sngXGrad As Single
    sngYGrad As Single
    sngZgrad As Single
    sngzReserve1 As Single
    sngXlooking As Single
    sngYlooking As Single
    sngZlooking As Single
End Type
Global GTASACarPlacements(7) As GTASAPosData '8 different car placements N NE E SE S SW W NW
Global carFlipPlacement As GTASAPosData
Private playerFlipPlacement As GTASAPosData
Global carFlipConsoleBuffer As GTASAPosData

'GTASA Garage Parking Coordinates:
Type GTASAGarage '16x4= 64 Bytes
    sngXcoord As Single
    sngYcoord As Single
    sngZcoord As Single
    lngHandling As Long
    intSpecials As Integer
    intCarCode As Integer
    intTuneArr(14) As Integer
    bytMajorColor As Byte
    bytMinorColor As Byte
    bytTuneArr(7) As Byte
    lngAngle As Long
End Type
Global zeroTuneInt(14) As Integer
Global garageHookBuffer As GTASAGarage
Global garageFullHookBuffer(3) As GTASAGarage '4xgarage info as full hook = 4x64 bytes
Public Type GTASAFullGarage
    ParkingSlots(3) As GTASAGarage
End Type

'Adr. holder for Garages:
Type GTASAGarageAdr 'Holds Detailed Address Data for GTASA Garages.
    lngXCoordAdr As Long        'Use only XCoord Adr when reading/writing
    lngYcoordAdr As Long        'complete package of 64 bytes
    lngZcoordAdr As Long
    lngSpecialsAdr As Long
    lngCarCodeAdr As Long
    lngMajorColorAdr As Long
    lngMinorColorAdr As Long
    lngDoorStateAdr As Long         'Garage Door State Reads byte: 0:closed 1:open 2:closing 3:opening
    lngAngleAdr As Long
    isDoorInMiddleState As Boolean  'true if opening and closing
End Type
Global GTASAGarageAddresses(16) As GTASAGarageAdr 'by now, 66 cars in 17 garages
Enum cParkingOrdinals
    iJohnson = 0 'Los Santos
    iElCorona = 1
    iSantaBeach = 2
    iMulHolland = 3
    iPalomino = 4
    iPrickle = 5  'Los Venturas
    iWhitewood = 6
    iRedsands = 7
    iRockshore = 8
    iDillimore = 9  'Bone County
    iFortCarson = 10
    iVerdant = 11
    iVerdantAir = 12
    iCalton = 13  'San Fierro
    iParadiso = 14
    iDoherty = 15
    iHashbury = 16
End Enum

Type GTASAGarageDimensions
    sngXpos     As Single
    sngYpos     As Single
    sngZpos     As Single
    sngWidth    As Single   'bereinigt!
    sngLength   As Single   'bereinigt!
    sngXGrad    As Single
    sngYGrad    As Single
    sngZgrad    As Single
    sngAbsDegrees      As Single   'Absolute Degrees
    isWide As Boolean
    lngLookFront As Long
    lngLookLeft As Long
    lngLookFrontLeft As Long
End Type
Global GTASAGarageDim(16) As GTASAGarageDimensions 'of all 17 garages

'GTASA Color Type
Type GTASAColor
    lngRGB As Long
    intColorCode As Integer
    strDescription As String
End Type
Global GTASAColors(255) As GTASAColor

'Car Parking Details:
Type GTASACarParking 'Array Ordinal as CarCode (from 400 to 611), and 399 as (none)
    strCarName As String
    strCarType As String
    isParkable As Boolean
    sngCarWidth As Single
    sngCarLength As Single
    sngCarHeight As Single
    isBike As Boolean
    isLong As Boolean
    MinorColor As Byte
    MajorColor As Byte
    isHasMods As Boolean
    sModsArr As String
    iHandling As Long
    isRCCar As Boolean
End Type
Global ParkedCars(399 To 611) As GTASACarParking 'ID399 is for None/Ignore
Global ParkedCarMatrix(3, 0 To 215) As Integer   'Listbox to CarOrdinal Matrix (for 4 Parkplaces in each garage), 0:None  1-213: cars
Global GarageListMatrix(3, 399 To 611) As Integer  'CarOrdinal to Listbox Matrix (for 4 Parkplaces in each garage)
Global SpawnCarMatrix(0 To 215) As Integer   'Listbox to CarOrdinal Matrix (for 4 Parkplaces in each garage), 0:None  1-213: cars
Global SpawnListMatrix(399 To 611) As Integer  'CarOrdinal to Listbox Matrix (for 4 Parkplaces in each garage)


'Adr. holder for Player information: