packstruct.pas

网络游戏神迹脱机外挂PASCAL源码

unit PackStruct;
{---------无影开发小组敬告：-------------------}
{        外挂研究无罪，开放源码有理！           }
{ 希望以此献给各位想研究外挂的朋友一窥外挂之容 }
{    本代码只供研究之用，不得用于非法用途      }
interface
uses Windows;

type
  PackHeaderA=record
//头是dwFlag的包用这个：
    dwFlag : dword;
    wcmd   : word;
    w1     : word;
    w2     : word;
    w3     : word;
  end;

type
//头是x,y的包用这个：
  PackHeaderB=record
    X    :  word;
    Y    :  word;
    wcmd :  word;
    w1   :  word;
    w2   :  word;
    w3   :  word;
  end;

type
//+hp,mp道具信息结构
  THPMPInfo=record
    info0   : BYTE;  //未确定
    Name    : array[0..13]of AnsiChar;  //药品名字
    info1   : word;
    weight  : BYTE;  //药品重量
    info2   : word;
    types   : word;  //药品种类
    info3   : word;
    HPPoint : word;  //HP值
    MPPoint : word;  //MP值
    info4   : word;
    info5   : word;
    info6   : word;
    info7   : BYTE;
    info8   : BYTE;
    info9   : array[0..5]of AnsiChar;
    ID      : dword; //药品ID
    infoA   : dword;
  end;

type
//怪物信息包
  TMstPack=record
    Header  : PackHeaderA;
    MstKind : word;
    MstK    : byte;
    playerK  : byte;
    word3   : word;
    word4   : word;
    MstHp   : word;
    MstHpMax: word;
    MstName : Char;
  end;

type
//人物信息包
  TChrPack=record
    Header  : PackHeaderA;
    MstKind : word;
    MstK    : byte;
    playerK : byte;
    UnKnown : array[1..13] of word;
    ChrName : Char;
  end;
type
//聊天信息包
    TChatPack=record
    Header   : PackHeaderA;
    ChatData : array[0..1000]of char;
  end;
implementation

end.