grobal2.pas

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

    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 = 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;


  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;
    boFIGHT4: Boolean;//新PK地图，可以pk，但掉装备
    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;
    boNoManNoMon: 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;
  pTNakedAbility = ^TNakedAbility;
  TNakedAbility = record
    DC: Word;
    MC: Word;
    SC: Word;
    AC: Word;
    MAC: Word;
    HP: Word;
    MP: Word;
    Hit: Word;
    Speed: Word;
    X2: Word;
  end;

  TAddAbility = record
    btWeaponStrong: Byte;
    bt1DF: Byte;
    wHitPoint: Word;
    wSpeedPoint: Word;
    wAntiPoison: Word;
    wPoisonRecover: Word;
    wHealthRecover: Word;
    wSpellRecover: Word;
    wAntiMagic: Word;
    btLuck: Byte;
    btUnLuck: Byte;
    nHitSpeed: Integer;
    wHP: Integer;
    wMP: Integer;
    wAC: Integer;
    wMAC: Integer;
    wDC: Integer;
    wMC: Integer;
    wSC: Integer;
  end;
  TStatusTime = array[0..11] of LongWord;
  TQuestUnit = array[0..23] of Byte;
  TQuestFlag = array[0..100] of Byte;
  THumanUseItems = array[0..13] of TUserItem;

  TMsgColor = (c_Red, c_Green, c_Blue, c_White);
  TMsgType = (t_Mon, t_Hint, t_GM, t_System, t_Notice, t_Cust, t_Castle, t_Say);
  TMonStatus = (s_KillHuman, s_UnderFire, s_Die, s_MonGen);
  TProcessMessage =   record
    wIdent          : Integer;
    wParam          : Integer;
    nParam1         : Integer;
    nParam2         : Integer;
    nParam3         : Integer;
    boLateDelivery  : Boolean;
    dwDeliveryTime  : Dword;
    BaseObject      : TObject;
    sMsg            : string;
  end;
  pTProcessMessage = ^TProcessMessage;
  TSessInfo = record
    nSessionID: Integer;
    nPayMent: Integer;
    nPayMode: Integer;
    nSessionStatus: Integer;
    dwStartTick: LongWord;
    dwActiveTick: LongWord;
    nRefCount: Integer;
    nSocket: Integer;
    nGateIdx: Integer;
    nGSocketIdx: Integer;
    dwNewUserTick: Dword;
    nSoftVersionDate: Integer;
    sAccount: string;
    sIPaddr: string[15];
  end;
  TQuestInfo = record
    wFlag: Word;
    btValue: Byte;
    nRandRage: Integer;
  end;
  pTSessInfo = ^TSessInfo;
  TScript = record
    boQuest: Boolean;
    nQuest: Integer;
    QuestInfo: array[0..9] of TQuestInfo;
    RecordList: TMyList;
  end;
  pTScript = ^TScript;
  TPowerBlock = array[0..99] of Byte;
  pTPowerBlock = ^TPowerBlock;
  TSlaveInfo = record
    sSalveName: string;
    btSalveLevel: Byte;
    btSlaveExpLevel: Byte;
    dwRoyaltySec: Dword;
    nKillCount: Integer;
    nHP: Integer;
    nMP: Integer;
  end;
  pTSlaveInfo = ^TSlaveInfo;


  TMagic = record                                           //+
    wMagicId: Word;
    sMagicName: string[12];
    btEffectType: Byte;
    btEffect: Byte;
    wSpell: Word;
    wPower: Word;
    TrainLevel: array[0..3] of Byte;
    MaxTrain: array[0..3] of Integer;
    btTrainLv: Byte;
    btJob: Byte;
    dwDelayTime: Dword;
    btDefSpell: Byte;
    btDefPower: Byte;
    wMaxPower: Word;
    btDefMaxPower: Byte;
    sDescr: string[15];
  end;
  pTMagic = ^TMagic;
  TUserMagic = record
    MagicInfo: pTMagic;
    btLevel: Byte;
    btKey: Byte;
    wMagIdx: Integer;
    nTranPoint: Integer;
  end;
  pTUserMagic = ^TUserMagic;
  THumItems = array[0..8] of TUserItem;
  pTHumItems = ^THumItems;

  THumAddItems = array[9..12] of TUserItem;
  pTHumAddItems = ^THumAddItems;

  TBagItems = array[0..45] of TUserItem;
  pTBagItems = ^TBagItems;
  TMagic1 = packed record
    wMagIdx: Word;
    btLevel: Byte;
    btKey: Byte;
    nTranPoint: Integer;
  end;
  THumMagic = array[0..19] of TMagic1;
  pTHumMagic = ^THumMagic;

  TStorageItems = array[0..145] of TUserItem;
  pTStorageItems = ^TStorageItems;
  THumAbil = packed record
    Level: Byte;                                            //等级
    unknown1: Byte;                                         //保留
    AC: Word;
    MAC: Word;
    MinAttack: Byte;                                        // 最小攻击力
    MaxAttack: Byte;                                        // 最大攻击力
    MinMagic: Byte;                                         // 最小魔法
    MAXMAGIC: Byte;                                         // 最大魔法
    MinDao: Byte;                                           // 最小道术
    MaxDao: Byte;                                           // 最大道术
    HP: Word;                                               // 生命值
    MP: Word;                                               // 魔法值
    MaxHP: Word;                                            // 最大生命值
    NowMaxMagic: Word;                                      // 最大魔法值
    unknown2: array[0..3] of Byte;                          // 不清楚
    Exp: LongWord;                                          // 经验值
    MaxExp: LongWord;                                       // 升级所需经验值
    unknown3: array[0..31] of Byte;                         // 不清楚

  end;
  TNewVar=packed record
    NewVar     : array[0..19] of Byte;                      //新增加的bool型变量共160个
    VarDate:array[0..159] of Word;                          //新增加的bool变量对应的时间变量 每个变量两个字节年月日时，每个占4bit
  end;

  THumData = packed record
    unknown           : array[0..3] of Byte;                           //1
    LastTime          : TDateTime;                                    //4  最后更新时间
    sChrName          : string[15];                                   //12 教色名
    sChrName1         : string[14];                                  //28
    sCurMap           : string[16];                                    //43 当前地图
    wCurX             : Word;                                            //60 当前坐标
    wCurY             : Word;                                            //62
    btDir             : Byte;                                            //64 当前方向
    btHair            : Byte;                                           //65 头发
    btSex             : Byte;                                            //66 性别
    btJob             : Byte;                                            //67 职业
    nGold             : Integer;                                         //68 金币
    Abil              : TOAbility;                                        //72  属性
    HumID             : Integer;
    NewVar            : TNewVar;
    sHomeMap          : string[17];                                   //136 返回地图
    wHomeX            : Word;                                           //154
    wHomeY            : Word;                                           //156
    sDearName         : string[14];                                  //158 伴侣名称
    sMasterName       : string[14];                                //173 师傅名称
    boMaster          : Boolean;                                      //是否为师傅
    btCreditPoint     : Byte;                                    //189 声望
    DBIndex           : Word;
    sStoragePwd       : string[7];                                 //192 仓库密码
    btReLevel         : Byte;                                        //200 转生等级
    boLockLogon       : Boolean;                                   //201 登陆密码锁
    NewStorageCount   : Word;                                    //202.未用
    NewStorageSize    : Word;
    BonusAbil         : TNakedAbility; //204 (长度20) 加属性点
    nBonusPoint       : Integer;                                   //224 剩余属性点值
    nGameGold         : Integer;                                     //228 游戏币
    nGamePoint        : Integer;                                    //232 游戏点
    nPayMentPoint     : Integer;                                 //236.秒卡
    btEF              : Byte;                                             //240.
    wContribution     : Word;                                    //    贡献度
    btIncHealth       : Byte;                                      //242.
    nPKPOINT          : Integer;                                      //244 PK值
    btAllowGroup      : Byte;                                     //248 是否允许组队
    boMaster1111      : Boolean;                                  //249.
    btAttatckMode     : Byte;                                    //250 攻击模式
    btIncHealing      : Byte;                                     //251
    btIncSpell        : Byte;                                       //252
    btFightZoneDieCount: Byte;                              //253
    btEE              : Byte;                                             //254
    sAccount          : string[15];                                   //255  ID
    btF9              : Byte;                                             //271
    wGroupRcallTime   : Word;                                  //272. 组队传送时间
    boAllowGuildReCall: Boolean; //274  是否允许行会合一
    nHungerStatus     : Word;                                    //275  饥饿度
    bbbbb             : Byte;                                            //277.
    dBodyLuck         : Double;                                      //278  幸运度
    boAllowGroupReCall: Boolean; //286  是否允许天地合一
    wStatusTimeArr    : TStatusTime;                            //287.
    QuestUnitOpen     : TQuestUnit;                              //ok   脚本变量
    QuestUnit         : TQuestUnit;
    QuestFlag         : TQuestFlag;
    HumItems          : THumItems;
    HumAddItems       : THumAddItems;
    BagItems          : TBagItems;
    StorageItems      : TStorageItems;
    Magic             : THumMagic;
  end;
  pTHumData = ^THumData;
  THumDataInfo = record
    Data: THumData;
  end;
  TGameCmd = record
    sCmd: string[25];
    nPermissionMin: Integer;
    nPermissionMax: Integer;