mdldec.bas

武林外传外挂源代码

Attribute VB_Name = "mdlDec"
Option Explicit

' 周围的怪
Public Type typMONSTERINFO
    x As Single
    y As Single
    sz As String
    id As Long
End Type

' 角色信息
Public Type typCHARINFO
    sz As String * 12
    lvl As Long
    hp As Long
    hpmax As Long
    mp As Long
    mpmax As Long
    exp As Long
    id As Long
    x As Single
    z As Single
    y As Single
End Type

' 珍兽
Public Type typPET
    num As Long '第0，1，2只
    id As Long
    sz As String * 12
    lvl As Long
    hp As Long
    hpmax As Long
    happy As Long
End Type

' ID二叉树结点
Public Type typNODE
    id As Long
    flag As Byte
    lpLeft As Long
    lpRight As Long
    lpContent As Long
    'lClass As Long  '类型，在lpContent指向的结构体中
End Type

' 存储读取到的ID
Public Type typOBJECTID
    id As Long
    cls As String
    x As Single
    z As Single
    y As Single
End Type

Public hWndGame As Long
Public dwProcessId As Long
Public dwThreadId As Long

Public bbMonster(256) As typMONSTERINFO
Public cntMonster As Long
Public bbChar As typCHARINFO
Public bbPet As typPET

Public bbObjectId(256) As typOBJECTID
Public cntObjectId As Long

Public lTargetId As Long
Public lLastSkill As Long
Public lAntiRobot As Long

Public lBusy As Long
    
Public lNearFar As Long
Public lNearestDist As Long
Public strTargetList() As String

Public lPick(256) As Long  '捡过的ID加入列表，防止背包满了还捡
Public lPickCursor As Long

Public lAttSkillCursor As Long

' 基址和CALL
Public Const AlertBaseAddr = &H6299B8  '629FC8
Public Const CharBaseAddr = &H62E5EC '62E958
Public Const MouseBaseAddr = &H62D204
Public Const PetDatBaseAddr = &H62DB44  '62D6D4
Public Const PetPnlBaseAddr = &H62D518 '62E9E4
Public Const MobBaseAddr = &H62D078 '62CFE8

Public Const UseSkillCallAddr = &H51C450 '450990
Public Const PackOpenCallAddr = &H51E570 '452AB0
Public Const PackPickAllCallAddr = &H440280 '46C980
Public Const WalkCallAddr = &H51C1B0 '4506F0