grobal2.pas

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

  pTSrvNetInfo = ^TSrvNetInfo;
  TStdItem = record                                         //OK
    Name: string[14];
    StdMode: Byte;
    Shape: Byte;
    Weight: Byte;
    AniCount: Byte;
    Source: ShortInt;
    Reserved: Byte;
    NeedIdentify: Byte;
    Looks: Word;
    DuraMax: Word;
    AC: Word;
    MAC: Word;
    DC: Word;
    MC: Word;
    SC: Word;
    Need: Byte;
    NeedLevel: Byte;
    Price: Integer;
  end;
  pTStdItem = ^TStdItem;
  TClientItem = record                                      //OK
    s: TStdItem;
    MakeIndex: Integer;
    Dura: Word;
    DuraMax: Word;
  end;
  PTClientItem = ^TClientItem;
  TMonInfo = record
    sName: string[14];
    btRace: Byte;
    btRaceImg: Byte;
    wAppr: Word;
    wLevel: Word;
    wCoolEye: Word;
    dwExp: DWord;
    wMp: Word;

    wHP: Word;
    wWalkSpeed: Word;
    wWalkStep: Word;
    wWalkWait: Word;
    wAttackSpeed: Word;
    wAC: Word;
    wMAC: Word;
    wDc: Word;
    wMaxDC: Word;
    wMc: Word;
    wSc: Word;
    wSpeed: Word;
    wHitpoint: Word;
    btLifeAttrib: Byte;
    boUndead: Boolean;
    ItemList: TList;
  end;
  pTMonInfo = ^TMonInfo;
  TMagicInfo = record
    wMagicId: Word;
    sMagicName: string[12];
    btEffectType: Byte;
    btEffect: Byte;
    wSpell: Word;
    wPower: Word;
    wMaxPower: Word;
    btJob: Byte;
    btDefSpell: Byte;
    btDefPower: Byte;
    btDefMaxPower: Byte;
    TrainLevel: array[0..3] of Byte;
    MaxTrain: array[0..3] of Integer;
    btTrainLv: Byte;
    nDelayTime: Integer;
    sDescr: string;
  end;
  pTMagicInfo = ^TMagicInfo;
  TMinMap = record
    sName: string;
    nID: Integer;
  end;
  pTMinMap = ^TMinMap;
  TMapRoute = record
    sSMapNO: string;
    nDMapX: Integer;
    nSMapY: Integer;
    sDMapNO: string;
    nSMapX: Integer;
    nDMapY: Integer;
  end;
  pTMapRoute = ^TMapRoute;
  TMapInfo = record
    sName: string;
    sMapNO: string;
    nL: Integer;                                            //0x10
    nServerIndex: Integer;                                  //0x24
    nNEEDONOFFFlag: Integer;                                //0x28
    boNEEDONOFFFlag: Boolean;                               //0x2C
    sShowName: string;                                      //0x4C
    sReConnectMap: string;                                  //0x50
    boSAFE: Boolean;                                        //0x51
    boDARK: Boolean;                                        //0x52
    boFIGHT: Boolean;                                       //0x53
    boFIGHT3: Boolean;                                      //0x54
    boDAY: Boolean;                                         //0x55
    boQUIZ: Boolean;                                        //0x56
    boNORECONNECT: Boolean;                                 //0x57
    boNEEDHOLE: Boolean;                                    //0x58
    boNORECALL: Boolean;                                    //0x59
    boNORANDOMMOVE: Boolean;                                //0x5A
    boNODRUG: Boolean;                                      //0x5B
    boMINE: Boolean;                                        //0x5C
    boNOPOSITIONMOVE: Boolean;                              //0x5D
  end;
  pTMapInfo = ^TMapInfo;


  TUnbindInfo = record
    nUnbindCode: Integer;
    sItemName: string[14];
  end;
  pTUnbindInfo = ^TUnbindInfo;

  TQuestDiaryInfo = record
    QDDinfoList: TList;
  end;
  pTQuestDiaryInfo = ^TQuestDiaryInfo;

  TAdminInfo = record
    nLv: Integer;
    sChrName: string[14];
    sIPaddr: string[15];
  end;
  pTAdminInfo = ^TAdminInfo;
  pTAbility = ^TAbility;
  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;

  TWAbility = record
    dwExp: LongWord; //0x194  怪物经验值(Dword)
    wHP: Word;                                              //0x1A4
    wMp: Word;                                              //0x1A6
    wMaxHP: Word;                                           //0x1A8
    wMaxMP: Word;                                           //0x1AA
  end;
  TMerchantInfo = record
    sScript: string[14];
    sMapName: string[14];
    nX: Integer;
    nY: Integer;
    sNPCName: string[40];
    nFace: Integer;
    nBody: Integer;
    boCastle: Boolean;
  end;
  pTMerchantInfo = ^TMerchantInfo;

  TSocketBuff = record
    Buffer: PChar;                                          //0x24
    nLen: Integer;                                          //0x28
  end;
  pTSocketBuff = ^TSocketBuff;
  TSendBuff = record
    nLen: Integer;
    Buffer: array[0..DATA_BUFSIZE - 1] of Char;
  end;
  pTSendBuff = ^TSendBuff;
  TUserItem = record
    wIndex: Word;
    MakeIndex: LongWord;
    Dura: Word;
    DuraMax: Word;
    btValue: array[0..13] of Integer;
  end;
  pTUserItem = ^TUserItem;
  TMonItemInfo = record
    SelPoint: Integer;
    MaxPoint: Integer;
    ItemName: string;
    Count: Integer;
  end;
  pTMonItemInfo = ^TMonItemInfo;
  TMonsterInfo = record
    Name: string;

    ItemList: TList;
  end;
  PTMonsterInfo = ^TMonsterInfo;
  TMapItem = record
    Name: string;
    Looks: Word;
    AniCount: Byte;
    Reserved: Byte;
    Count: Integer;
    dwCanPickUpTick: DWord;
    UserItem: TUserItem;
    OfBaseObject: TObject;
    DropBaseObject: TObject;
  end;
  PTMapItem = ^TMapItem;
  THumanRcd = record
    sUserID: string[16];
    sCharName: string[20];
    btJob: Byte;
    btGender: Byte;
    //    char	szTakeItem[10][12];
    btLevel: Byte;
    btHair: Byte;
    sMapName: string[15];
    btAttackMode: Byte;
    btIsAdmin: Byte;
    nX: Integer;
    nY: Integer;
    nGold: Integer;
    dwExp: LongWord;
  end;
  pTHumanRcd = ^THumanRcd;

  TObjectFeature = record
    btGender: Byte;
    btWear: Byte;
    btHair: Byte;
    btWeapon: Byte;
  end;
  pTObjectFeature = ^TObjectFeature;
  TStatusInfo = record
    nStatus: Integer;                                       //0x60
    dwStatusTime: LongWord;                                 //0x1E8
    sm218: SmallInt;                                        //0x218
    dwTime220: LongWord;                                    //0x220
  end;
  TMsgHeader =packed record
    dwCode: LongWord; //0x00
    nSocket: Integer; //0x04
    wGSocketIdx: Word; //0x08
    wIdent: Word; //0x0A
    wUserListIndex: Word; //0x0C
    wTemp: Word; //0x0E
    nLength: Integer; //0x10
  end;
  pTMsgHeader = ^TMsgHeader;

  TUserInfo = record
    bo00: Boolean;                                          //0x00
    bo01: Boolean;                                          //0x01 ?
    bo02: Boolean;                                          //0x02 ?
    bo03: Boolean;                                          //0x03 ?
    n04: Integer;                                           //0x0A ?
    n08: Integer;                                           //0x0B ?
    bo0C: Boolean;                                          //0x0C ?
    bo0D: Boolean;                                          //0x0D
    bo0E: Boolean;                                          //0x0E ?
    bo0F: Boolean;                                          //0x0F ?
    n10: Integer;                                           //0x10 ?
    n14: Integer;                                           //0x14 ?
    n18: Integer;                                           //0x18 ?
    sStr: string[20];                                       //0x1C
    nSocket: Integer;                                       //0x34
    nGateIndex: Integer;                                    //0x38
    n3C: Integer;                                           //0x3C
    n40: Integer;                                           //0x40 ?
    n44: Integer;                                           //0x44
    List48: TList;                                          //0x48
    Cert: TObject;                                          //0x4C
    dwTime50: LongWord;                                     //0x50
    bo54: Boolean;                                          //0x54
  end;
  pTUserInfo = ^TUserInfo;
  TGlobaSessionInfo = record
    sAccount: string;
    sIPaddr: string;
    nSessionID: Integer;
    n24: Integer;
    bo28: Boolean;
    dwAddTick: LongWord;
    dAddDate: TDateTime;
  end;
  pTGlobaSessionInfo = ^TGlobaSessionInfo;




  //////--------------- And By Delphilxh------2005-06-20---------///////////
  pTMapFlag = ^TMapFlag;
  TMapFlag = record
    boSAFE: Boolean;
    boDARK: Boolean;
    boFIGHT: Boolean;
    boFIGHT3: Boolean;
    boDAY: Boolean;
    boQUIZ: Boolean;
    boNORECONNECT: Boolean;
    boMUSIC: Boolean;
    boEXPRATE: Boolean;
    boPKWINLEVEL: Boolean;
    boPKWINEXP: Boolean;
    boPKLOSTLEVEL: Boolean;
    boPKLOSTEXP: Boolean;
    boDECHP: Boolean;
    boINCHP: Boolean;
    boDECGAMEGOLD: Boolean;
    boDECGAMEPOINT: Boolean;
    boINCGAMEGOLD: Boolean;
    boINCGAMEPOINT: Boolean;
    boRUNHUMAN: Boolean;
    boRUNMON: Boolean;
    boNEEDHOLE: Boolean;
    boNORECALL: Boolean;
    boNOGUILDRECALL: Boolean;
    boNODEARRECALL: Boolean;
    boNOMASTERRECALL: Boolean;
    boNORANDOMMOVE: Boolean;
    boNODRUG: Boolean;
    boMINE: Boolean;
    boNOPOSITIONMOVE: Boolean;



    nL: Integer;
    nNEEDSETONFlag: Integer;
    nNeedONOFF: Integer;
    nMUSICID: Integer;
    nPKWINLEVEL: Integer;
    nEXPRATE: Integer;
    nPKWINEXP: Integer;
    nPKLOSTLEVEL: Integer;
    nPKLOSTEXP: Integer;
    nDECHPPOINT: Integer;
    nDECHPTIME: Integer;
    nINCHPPOINT: Integer;
    nINCHPTIME: Integer;
    nDECGAMEGOLD: Integer;
    nDECGAMEGOLDTIME: Integer;
    nDECGAMEPOINT: Integer;
    nDECGAMEPOINTTIME: Integer;
    nINCGAMEGOLD: Integer;
    nINCGAMEGOLDTIME: Integer;
    nINCGAMEPOINT: Integer;
    nINCGAMEPOINTTIME: Integer;
    sReConnectMap: string;

  end;