grobal2.pas

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

  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: CommandType;
    TESTGETBAGITEM: CommandType;
    CLEARBAG: CommandType;
    SHOWUSEITEMINFO: CommandType;
    BINDUSEITEM: CommandType;
    MOBFIREBURN: CommandType;
    TESTSPEEDMODE: CommandType;
    LOCKLOGON: CommandType;
    UNLOCKLOGON: CommandType;
    TAKEUSERITEM: CommandType;
  end;

  TMonDrop = record
    sItemName: string[20];
    nDropCount: Integer;
    nNoDropCount: Integer;
    nCountLimit: Integer;
  end;
  pTMonDrop = ^TMonDrop;
  TMonSayMsg = record
    State: TMonStatus;
    Color: TMsgColor;
    nRate: Integer;
    sSayMsg: string;
  end;
  pTMonSayMsg = ^TMonSayMsg;
  TMsgProc = procedure(Msg: PChar; nMsgLen: Integer; nMode: Integer); stdcall;
  TIPLocal = procedure(ipaddr: PChar; var IP: array of Char; IPSize: Integer);
  TFindProc = function(ProcName: PChar; nNameLen: Integer): Pointer; stdcall;
  TSetProc = function(ProcAddr: Pointer; ProcName: PChar; nNameLen: Integer):
    Boolean; stdcall;
  TFindObj = function(ObjName: PChar; nNameLen: Integer): TObject; stdcall;
  TPlugInit = function(AppHandle: Hwnd; MsgProc: TMsgProc; FindProc: TFindProc;
    SetProc: TSetProc; FindObj: TFindObj): PChar; stdcall;
  TDeCryptString = procedure(Src, Dest: PChar; nSrc: Integer; var nDest:
    Integer); stdcall;
  //补充
  TDoorStatus = record
    boOpened: Boolean;
    bo01: Boolean;
    n04: Integer;
    nRefCount: Integer;
    dwOpenTick: DWord;
  end;
  pTDoorStatus = ^TDoorStatus;
  pTDoorInfo = ^TDoorInfo;
  TDoorInfo = record
    nX, nY: Integer;
    n08: Integer;
    Status: pTDoorStatus;
  end;
  TDynamicVar = record
    sName: string[15];
    VarType: TVarType;
    nInternet: Integer;
    sString: string;
  end;
  pTDynamicVar = ^TDynamicVar;

  TItemName = record
    nMakeIndex: Integer;
    nItemIndex: Integer;
    sItemName: string[15];
  end;
  pTItemName = ^TItemName;

  TLoadHuman = record
    sAccount: string[12];
    sChrName: string[14];
    sUserAddr: string[15];
    nSessionID: Integer;
  end;
  TOSObject = record
    btType: Byte;
    dwAddTime: DWord;
    CellObj: TObject;
  end;
  pTOSObject = ^TOSObject;
  TOClientItem = record                                     //OK
    s: TOStdItem;
    MakeIndex: Integer;
    Dura: Word;
    DuraMax: Word;
  end;
  pTOClientItem = ^TOClientItem;
  PTSendMessage = ^TSendMessage;
  TSendMessage = packed record
    wIdent: Integer;
    wParam: Integer;
    nParam1: Integer;
    nParam2: Integer;
    nParam3: Integer;
    dwDeliveryTime: DWord;
    boLateDelivery: Boolean;
    BaseObject: TObject;

    Buff: PChar;
  end;
  TCharDesc = record
    feature: Integer;
    Status: Integer;
  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;

  TShortMessage = record
    Ident: Word;
    wMsg: Word;
  end;
  TUserStateInfo = record                                   //OK
    feature: Integer;
    UserName: string[19];
    GuildName: string[14];
    GuildRankName: string[14];
    NAMECOLOR: Word;
    UseItems: array[0..8] of TClientItem;
  end;


  TOUserStateInfo = record
    feature: Integer;
    UserName: string[15];
    NAMECOLOR: Integer;
    GuildName: string[14];
    GuildRankName: string[16];
    UseItems: array[0..12] of TOClientItem;
  end;
  TClientMagic = record                                     //84
    Key: Char;
    Level: Byte;
    CurTrain: Integer;
    Def: TMagic;
  end;
  PTClientMagic = ^TClientMagic;
  TRegInfo = packed record
    sGateIPaddr: string[20];

  end;
  TGateObj = record
    DEnvir: TObject;
    nDMapX: Integer;
    nDMapY: Integer;
    boFlag: Boolean;
  end;
  pTGateObj = ^TGateObj;
  //////--------------- And By Delphilxh------2005-06-20---------///////////



implementation



end.