grobal2.pas

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

  end;
  pTGameCmd = ^TGameCmd;
  TLoadDBInfo = record
    nGateIdx: Integer;
    nSocket: Integer;
    nSessionID: Integer;
    nSoftVersionDate: Integer;
    nPayMent: Integer;
    DBindex: Integer;
    nGSocketIdx: Integer;
    nReLoadCount: Integer;
    dwNewUserTick: LongWord;
    PlayObject: TObject;
    sAccount: string[15];
    sCharName: string[15];
    sIPaddr: string[15];

  end;
  pTLoadDBInfo = ^TLoadDBInfo;
  TGoldChangeInfo = record
    sGameMasterName: string;
    sGetGoldUser: string;
    nGold: Integer;
  end;
   TLoadHuman = record
    sAccount: string[12];
    sChrName: string[14];
    sUserAddr: string[15];
    nSessionID: Integer;
  end;
  pTGoldChangeInfo = ^TGoldChangeInfo;


pTSaveHumData=^TSaveHumData;
  TSaveHumData=Packed Record
     SaveStatus     : Byte;    //0: 空闲 1:使用 2:成功 3:失败
     HumanData      : THumData;
  End;

  TLoadData=packed record
    LoadStatus   : Byte;
    LoadHuman  : TLoadHuman;
    LoadData   : THumData;
  end;
  pTHumDataLoadAndSave=^THumDataLoadAndSave;
  THumDataLoadAndSave=packed record
     Open       : Byte;
     HasChecked : Byte;
     Name       : string[20];
     SaveData   : array[0..99] of TSaveHumData;
     LoadData   : TLoadData;
  End;


  TSwitchDataInfo = record
    sMAP: string[15];
    sChrName: string[15];
    wX: Word;
    wY: Word;
    nCode: Integer;
    boC70: Boolean;
    boBanShout: Boolean;
    boHearWhisper: Boolean;
    boBanGuildChat: Boolean;
    boAdminMode: Boolean;
    boObMode: Boolean;
    BlockWhisperArr: array[0..20] of string;
    SlaveArr: array[0..5] of TSlaveInfo;
    StatusValue: array[0..5] of Word;
    StatusTimeOut: array[0..5] of LongWord;
    Abil: TAbility;
  end;
  pTSwitchDataInfo = ^TSwitchDataInfo;
  TUserOpenInfo = record
    sChrName: string[15];
    LoadUser: TLoadDBInfo;

    HumanRcd: THumDataInfo;
  end;
  pTUserOpenInfo = ^TUserOpenInfo;


  PTIPAddr = ^TIPaddr;
  TIPaddr = packed record
    a, b, C, D: Byte;
    Port: Integer;
    sIPaddr: string[15];
    dIPaddr: string[15];
  end;



  TClassProc = procedure(Sender: TObject);
  TProc = record
    sProcName: string;
    nProcAddr: Pointer;
  end;
  TProcArray = array[0..100] of TProc;
  TmyObject = record
    sObjcName: string;
    Obj: TObject;
  end;
  TObjectArray = array[0..100] of TmyObject;
  TOStdItem = packed record                                 //OK
    Name: string[14];
    StdMode: Byte;                                          //0x0F
    Shape: Byte;                                            //0x10
    Weight: Byte;                                           //0x11
    AniCount: Byte;                                         //0x12
    Source: ShortInt;                                       //0x13
    Reserved: Byte;                                         //0x14
    NeedIdentify: Byte;                                     //0x15
    Looks: Word;                                            //0x16
    DuraMax: Word;                                          //0x18
    AC: Word;                                               //0x1A
    MAC: Word;                                              //0x1C
    DC: Word;                                               //0x1E
    MC: Word;                                               //0x20
    SC: Word;                                               //0x22
    Need: Byte;                                             //0x24
    NeedLevel: Byte;                                        //0x25
    w26: Word;
    Price: Integer;                                         //0x28

  end;
  pTOStdItem = ^TOStdItem;
  TCheckCode = record
  end;
  TClientConf = record
    boClientCanSet: Boolean;
    boRUNHUMAN: Boolean;
    boRUNMON: Boolean;
    boRunNpc: Boolean;
    boWarRunAll: Boolean;
    btDieColor: Integer;
    wSpellTime: Integer;
    wHitIime: Integer;
    wItemFlashTime: Integer {5 * 1000};
    btItemSpeed: Integer;                                   {60}
    boCanStartRun: Boolean;
    boParalyCanRun: Boolean;
    boParalyCanWalk: Boolean;
    boParalyCanHit: Boolean;
    boParalyCanSpell: Boolean;
    boShowRedHPLable: Boolean;
    boShowHPNumber: Boolean;
    boShowJobLevel: Boolean;
    boDuraAlert: Boolean;
    boMagicLock: Boolean;
    boAutoPuckUpItem: Boolean;
  end;
  TRecallMigic = record
    nHumLevel: Integer;
    nCount: Integer;
    nLevel: Integer;
    sMonName: string;
  end;
  TLevelNeedExp = array[1..500] of Integer;


  CommandType = record
    sCmd: string[25];
    nPermissionMin: Integer;
    nPermissionMax: Integer;
  end;
  TGameCommand = record
    Data: CommandType;
    PRVMSG: CommandType;
    ALLOWMSG: CommandType;
    LETSHOUT: CommandType;
    LETTRADE: CommandType;
    LETGUILD: CommandType;
    ENDGUILD: CommandType;
    BANGUILDCHAT: CommandType;
    AUTHALLY: CommandType;
    AUTH: CommandType;
    AUTHCANCEL: CommandType;
    DIARY: CommandType;
    USERMOVE: CommandType;
    SEARCHING: CommandType;
    ALLOWGROUPCALL: CommandType;
    GROUPRECALLL: CommandType;
    ALLOWGUILDRECALL: CommandType;
    GUILDRECALLL: CommandType;
    UNLOCKSTORAGE: CommandType;
    UnLock: CommandType;
    Lock: CommandType;
    PASSWORDLOCK: CommandType;
    SETPASSWORD: CommandType;
    CHGPASSWORD: CommandType;
    CLRPASSWORD: CommandType;
    UNPASSWORD: CommandType;
    MEMBERFUNCTION: CommandType;
    MEMBERFUNCTIONEX: CommandType;
    DEAR: CommandType;
    ALLOWDEARRCALL: CommandType;
    DEARRECALL: CommandType;
    MASTER: CommandType;
    ALLOWMASTERRECALL: CommandType;
    MASTERECALL: CommandType;
    ATTACKMODE: CommandType;
    REST: CommandType;
    TAKEONHORSE: CommandType;
    TAKEOFHORSE: CommandType;
    HUMANLOCAL: CommandType;
    Move: CommandType;
    POSITIONMOVE: CommandType;
    INFO: CommandType;
    MOBLEVEL: CommandType;
    MOBCOUNT: CommandType;
    HUMANCOUNT: CommandType;
    Map: CommandType;
    KICK: CommandType;
    TING: CommandType;
    SUPERTING: CommandType;
    MAPMOVE: CommandType;
    SHUTUP: CommandType;
    RELEASESHUTUP: CommandType;
    SHUTUPLIST: CommandType;
    GAMEMASTER: CommandType;
    OBSERVER: CommandType;
    SUEPRMAN: CommandType;
    Level: CommandType;
    SABUKWALLGOLD: CommandType;
    RECALL: CommandType;
    REGOTO: CommandType;
    SHOWFLAG: CommandType;
    SHOWOPEN: CommandType;
    SHOWUNIT: CommandType;
    Attack: CommandType;
    MOB: CommandType;
    MOBNPC: CommandType;
    DELNPC: CommandType;
    NPCSCRIPT: CommandType;
    RECALLMOB: CommandType;
    LUCKYPOINT: CommandType;
    LOTTERYTICKET: CommandType;
    RELOADGUILD: CommandType;
    RELOADLINENOTICE: CommandType;
    RELOADABUSE: CommandType;
    BACKSTEP: CommandType;
    BALL: CommandType;
    FREEPENALTY: CommandType;
    PKPOINT: CommandType;
    IncPkPoint: CommandType;
    CHANGELUCK: CommandType;
    HUNGER: CommandType;
    HAIR: CommandType;
    TRAINING: CommandType;
    DELETESKILL: CommandType;
    CHANGEJOB: CommandType;
    CHANGEGENDER: CommandType;
    NameColor: CommandType;
    Mission: CommandType;
    MobPlace: CommandType;
    TRANSPARECY: CommandType;
    DELETEITEM: CommandType;
    LEVEL0: CommandType;
    CLEARMISSION: CommandType;
    SETFLAG: CommandType;
    SETOPEN: CommandType;
    SETUNIT: CommandType;
    RECONNECTION: CommandType;
    DISABLEFILTER: CommandType;
    CHGUSERFULL: CommandType;
    CHGZENFASTSTEP: CommandType;
    CONTESTPOINT: CommandType;
    STARTCONTEST: CommandType;
    ENDCONTEST: CommandType;
    ANNOUNCEMENT: CommandType;
    OXQUIZROOM: CommandType;
    GSA: CommandType;
    CHANGEITEMNAME: CommandType;
    DISABLESENDMSG: CommandType;
    ENABLESENDMSG: CommandType;
    DISABLESENDMSGLIST: CommandType;
    KILL: CommandType;
    MAKE: CommandType;
    SMAKE: CommandType;
    BonusPoint: CommandType;
    DELBONUSPOINT: CommandType;
    RESTBONUSPOINT: CommandType;
    FIREBURN: CommandType;
    TESTFIRE: CommandType;
    TESTSTATUS: CommandType;
    DELGOLD: CommandType;
    ADDGOLD: CommandType;
    DELGAMEGOLD: CommandType;
    ADDGAMEGOLD: CommandType;
    GAMEGOLD: CommandType;
    GAMEPOINT: CommandType;
    CREDITPOINT: CommandType;
    TESTGOLDCHANGE: CommandType;
    REFINEWEAPON: CommandType;
    RELOADADMIN: CommandType;
    ReLoadNpc: CommandType;
    RELOADMANAGE: CommandType;
    RELOADROBOTMANAGE: CommandType;
    RELOADROBOT: CommandType;
    RELOADMONITEMS: CommandType;
    RELOADDIARY: CommandType;
    RELOADITEMDB: CommandType;
    RELOADMAGICDB: CommandType;
    RELOADMONSTERDB: CommandType;
    RELOADMINMAP: CommandType;
    ReAlive: CommandType;
    ADJUESTLEVEL: CommandType;
    ADJUESTEXP: CommandType;
    AddGuild: CommandType;
    DELGUILD: CommandType;
    CHANGESABUKLORD: CommandType;
    FORCEDWALLCONQUESTWAR: CommandType;
    ADDTOITEMEVENT: CommandType;
    ADDTOITEMEVENTASPIECES: CommandType;
    ItemEventList: CommandType;
    STARTINGGIFTNO: CommandType;
    DELETEALLITEMEVENT: CommandType;
    STARTITEMEVENT: CommandType;
    ITEMEVENTTERM: CommandType;
    ADJUESTTESTLEVEL: CommandType;
    TRAININGSKILL: CommandType;
    OPDELETESKILL: CommandType;
    CHANGEWEAPONDURA: CommandType;
    RELOADGUILDALL: CommandType;
    WHO: CommandType;
    TOTAL: CommandType;
    TESTGA: CommandType;
    MAPINFO: CommandType;
    SBKDOOR: CommandType;
    CHANGEDEARNAME: CommandType;
    CHANGEMASTERNAME: CommandType;
    STARTQUEST: CommandType;
    SETPERMISSION: CommandType;
    CLEARMON: CommandType;
    RENEWLEVEL: CommandType;
    DENYIPLOGON: CommandType;
    DENYACCOUNTLOGON: CommandType;
    DENYCHARNAMELOGON: CommandType;
    DELDENYIPLOGON: CommandType;
    DELDENYACCOUNTLOGON: CommandType;
    DELDENYCHARNAMELOGON: CommandType;
    SHOWDENYIPLOGON: CommandType;
    SHOWDENYACCOUNTLOGON: CommandType;
    SHOWDENYCHARNAMELOGON: CommandType;
    VIEWWHISPER: CommandType;
    SPIRIT: CommandType;
    SPIRITSTOP: CommandType;
    SETMAPMODE: CommandType;
    SHOWMAPMODE: CommandType;
    TESTSERVERCONFIG: CommandType;
    SERVERSTATUS: Comm