grobal2.pas

乐都SQL版传奇全套代码,绝对可编译

  SM_OPENGUILDDLG_FAIL                  = 754;              //
  SM_SENDGUILDMEMBERLIST                = 756;              //
  SM_GUILDADDMEMBER_OK                  = 757;              //
  SM_GUILDADDMEMBER_FAIL                = 758;
  SM_GUILDDELMEMBER_OK                  = 759;
  SM_GUILDDELMEMBER_FAIL                = 760;
  SM_GUILDRANKUPDATE_FAIL               = 761;
  SM_BUILDGUILD_OK                      = 762;
  SM_BUILDGUILD_FAIL                    = 763;
  SM_DONATE_OK                          = 764;
  SM_DONATE_FAIL                        = 765;

  SM_MENU_OK                            = 767;              //?
  SM_GUILDMAKEALLY_OK                   = 768;
  SM_GUILDMAKEALLY_FAIL                 = 769;
  SM_GUILDBREAKALLY_OK                  = 770;              //?
  SM_GUILDBREAKALLY_FAIL                = 771;              //?
  SM_DLGMSG                             = 772;              //Jacky
  SM_SPACEMOVE_HIDE                     = 800;
  SM_SPACEMOVE_SHOW                     = 801;
  SM_RECONNECT                          = 802;              //
  SM_GHOST                              = 803;
  SM_SHOWEVENT                          = 804;
  SM_HIDEEVENT                          = 805;
  SM_SPACEMOVE_HIDE2                    = 806;
  SM_SPACEMOVE_SHOW2                    = 807;
  SM_TIMECHECK_MSG                      = 810;
  SM_ADJUST_BONUS                       = 811;              //?

  SM_OPENHEALTH                         = 1100;
  SM_CLOSEHEALTH                        = 1101;
  SM_CHANGEFACE                         = 1104;
  SM_BREAKWEAPON                        = 1102;
  SM_INSTANCEHEALGUAGE                  = 1103;             //??
  SM_VERSION_FAIL                       = 1106;

  SM_ITEMUPDATE                         = 1500;
  SM_MONSTERSAY                         = 1501;




  SM_EXCHGTAKEON_OK                     = 65023;
  SM_EXCHGTAKEON_FAIL                   = 65024;


  SM_TEST                               = 65037;
  SM_THROW                              = 65069;
  SM_ACTION_MIN                         = 65070;
  SM_ACTION_MAX                         = 65071;
  SM_ACTION2_MIN                        = 65072;
  SM_ACTION2_MAX                        = 65073;

  SS_212                                = 212;
  SS_204                                = 204;
  SS_206                                = 206;
  SS_207                                = 207;
  SS_201                                = 201;
  SS_202                                = 202;
  SS_208                                = 208;
  SS_210                                = 210;
  SS_WHISPER                            = 203;
  SS_205                                = 205;
  SS_211                                = 211;
  SS_SOFTOUTSESSION                     = 102;
  SS_LOGINCOST                          = 3333;
  SS_SERVERINFO                         = 103;
  SS_OPENSESSION                        = 100;
  SS_CLOSESESSION                       = 101;
  SS_KEEPALIVE                          = 104;
  SS_KICKUSER                           = 111;
  SS_SERVERLOAD                         = 113;
  SM_CERTIFICATION_SUCCESS              = 1;
  SM_GETBACKPASSWD_SUCCESS              = 2;
  SM_GETBACKPASSWD_FAIL                 = 3;
  UNKNOWMSG                             = 999;
type

  TDefaultMessage = record
    Recog: Integer;
    Ident: Word;
    Param: Word;
    Tag: Word;
    Series: Word;
  end;

  TChrMsg = record
    Ident: Integer;
    X: Integer;
    Y: Integer;
    Dir: Integer;
    State: Integer;
    feature: Integer;
    saying: string;
    Sound: Integer;
  end;
  PTChrMsg = ^TChrMsg;
  TStdItem = record                                         //OK
    Name: string[14];
    StdMode: Byte;
    Shape: Byte;
    Weight: Byte;
    AniCount: Byte;
    Source: Byte;
    Reserved: Byte;
    NeedIdentify: Byte;
    Looks: Word;
    DuraMax: Word;
    AC: Word;
    MAC: Word;
    DC: Word;
    MC: Word;
    sC: Word;
    Need: Byte;
    NeedLevel: Byte;
    Price: Dword;
  end;
  TClientItem = record                                      //OK
    S: TStdItem;
    MakeIndex: Integer;
    Dura: Word;
    DuraMax: Word;
  end;
  PTClientItem = ^TClientItem;
  TUserStateInfo = record                                   //OK
    feature: Integer;
    UserName: string[19];
    GuildName: string[14];
    GuildRankName: string[14];
    NameColor: Word;
    UseItems: array[0..8] of TClientItem;
  end;
  TUserCharacterInfo = record
    Name: string[19];
    Job: Byte;
    Hair: Byte;
    Level: Byte;
    m_btSex: Byte;
  end;

  TDropItem = record
    X: Integer;
    Y: Integer;
    Id: Integer;
    Looks: Integer;
    Name: string;
    FlashTime: Dword;
    FlashStepTime: Dword;
    FlashStep: Integer;
    BoFlash: Boolean;
  end;
  PTDropItem = ^TDropItem;
  TMagic = record                                           //+
    MagicId: Word;
    MagicName: string[12];
    EffectType: Byte;
    Effect: Byte;
    xx: Byte;
    Spell: Word;
    DefSpell: Word;
    TrainLevel: array[0..2] of Byte;
    TrainLeveX: array[0..2] of Byte;
    MaxTrain: array[0..2] of Integer;
    DelayTime: Integer;
  end;
  TClientMagic = record                                     //84
    Key: Char;
    Level: Byte;
    CurTrain: Integer;
    Def: TMagic;
  end;
  PTClientMagic = ^TClientMagic;
  TNakedAbility = record
    DC: Word;
    MC: Word;
    sC: Word;
    AC: Word;
    MAC: Word;
    HP: Word;
    MP: Word;
    Hit: Byte;
    Speed: Integer;
  end;

  TAbility = record                                         //OK    //Size 40
    Level: Word;                                            //0x198
    AC: Word;                                               //0x19A
    MAC: Word;                                              //0x19C
    DC: Word;                                               //0x19E
    MC: Word;                                               //0x1A0
    sC: Word;                                               //0x1A2
    HP: Word;                                               //0x1A4
    MP: Word;                                               //0x1A6
    MaxHP: Word;                                            //0x1A8
    MaxMP: Word;                                            //0x1AA
    dw1AC: Dword;                                           //0x1AC
    Exp: Dword;                                             //0x1B0
    MaxExp: Dword;                                          //0x1B4
    Weight: Word;                                           //0x1B8
    MaxWeight: Word;                                        //0x1BA
    WearWeight: Byte;                                       //0x1BC
    MaxWearWeight: Byte;                                    //0x1BD
    HandWeight: Byte;                                       //0x1BE
    MaxHandWeight: Byte;                                    //0x1BF
  end;

  TShortMessage = record
    Ident: Word;
    wMsg: Word;
  end;

  TMessageBodyW = record
    Param1: Word;
    Param2: Word;
    Tag1: Word;
    Tag2: Word;
  end;

  TMessageBodyWL = record                                   //16  0x10
    lParam1: Integer;
    lParam2: Integer;
    lTag1: Integer;
    lTag2: Integer;
  end;

  TCharDesc = record
    feature: Integer;
    Status: Integer;
  end;
  TClientGoods = record
    Name: string;
    SubMenu: Integer;
    Price: Integer;
    Stock: Integer;
    Grade: Integer;
  end;
  pTClientGoods = ^TClientGoods;
  TIDHeader = packed record
    unknown1: array[0..2] of Byte;
    boDeleted: Boolean;
    CreateDate: TDateTime;                                  //注册日期
    UpdateDate: TDateTime;                                  //最后登陆日期
    sAccount: string[11];                                   //用户登陆id
  end;
  TUserEntry = packed record
    sAccount: string[10];
    sPassword: string[10];
    sUserName: string[20];
    sSSNo: string[14];
    sPhone: string[14];
    sQuiz: string[20];
    sAnswer: string[12];
    sEMail: string[40];
  end;
  TUserEntryAdd = packed record
    sQuiz2: string[20];
    sAnswer2: string[12];
    sBirthDay: string[10];
    sMobilePhone: string[13];
    sMemo: string[20];                                      //地址一
    sMemo2: string[20];                                     //地址二
  end;
  TAccountDBRecord = packed record

    Header: TIDHeader;
    UserEntry: TUserEntry;
    UserEntryAdd: TUserEntryAdd;
    b: array[0..6] of Byte;
    nErrorCount: Integer;
    dwActionTick: Dword;
    b1: array[0..31] of Byte;
  end;


function APPRfeature(cfeature: Integer): Word;
function RACEfeature(cfeature: Integer): Byte;
function HAIRfeature(cfeature: Integer): Byte;
function DRESSfeature(cfeature: Integer): Byte;
function WEAPONfeature(cfeature: Integer): Byte;
implementation

function WEAPONfeature(cfeature: Integer): Byte;
begin
  Result := HiByte(cfeature);
end;

function DRESSfeature(cfeature: Integer): Byte;
begin
  Result := HiByte(HiWord(cfeature));
end;

function APPRfeature(cfeature: Integer): Word;
begin
  Result := HiWord(cfeature);
end;

function HAIRfeature(cfeature: Integer): Byte;
begin
  Result := HiWord(cfeature);
end;

function RACEfeature(cfeature: Integer): Byte;
begin
  Result := cfeature;
end;
end.