m2share.pas

传奇源代码的delphi版本

  sSC_MOVETOGMEMAP       = 'MOVETOGMEMAP';
  mSC_MOVETOGMEMAP       = 203;
  sSC_FINISHGME          = 'FINISHGME';
  nSC_FINISHGME          = 204;
  sSC_CONTINUEGME        = 'CONTINUEGME';
  nSC_CONTINUEGME        = 205;
  sSC_SETGMEPLAYTIME     = 'SETGMEPLAYTIME';
  nSC_SETGMEPLAYTIME     = 206;
  sSC_SETGMEPAUSETIME    = 'SETGMEPAUSETIME';
  nSC_SETGMEPAUSETIME    = 207;
  sSC_SETGMELIMITUSER    = 'SETGMELIMITUSER';
  nSC_SETGMELIMITUSER    = 208;
  sSC_SETEVENTMAP        = 'SETEVENTMAP';
  nSC_SETEVENTMAP        = 210;
  sSC_RESETEVENTMAP      = 'RESETEVENTMAP';
  nSC_RESETEVENTMAP      = 211;
  sSC_TESTREFINEPOINTS   = 'TESTREFINEPOINTS';
  nSC_TESTREFINEPOINTS   = 220;
  sSC_RESETREFINEWEAPON  = 'RESETREFINEWEAPON';
  nSC_RESETREFINEWEAPON  = 221;
  sSC_TESTREFINEACCESSORIES = 'TESTREFINEACCESSORIES';
  nSC_TESTREFINEACCESSORIES = 222;
  sSC_REFINEACCESSORIES  = 'REFINEACCESSORIES';
  nSC_REFINEACCESSORIES  = 223;
  sSC_APPLYMONMISSION    = 'APPLYMONMISSION';
  nSC_APPLYMONMISSION    = 225;
  sSC_MAPMOVER           = 'MAPMOVER';
  nSC_MAPMOVER           = 226;
  sSC_ADDSTR             = 'ADDSTR';
  nSC_ADDSTR             = 227;
  sSC_SETEVENTDAMAGE     = 'SETEVENTDAMAGE';
  nSC_SETEVENTDAMAGE     = 228;
  sSC_FORMATSTR          = 'FORMATSTR';
  nSC_FORMATSTR          = 229;
  sSC_CLEARPATH          = 'CLEARPATH';
  nSC_CLEARPATH          = 230;
  sSC_ADDPATH            = 'ADDPATH';
  nSC_ADDPATH            = 231;
  sSC_APPLYPATH          = 'APPLYPATH';
  nSC_APPLYPATH          = 232;
  sSC_MAPSPELL           = 'MAPSPELL';
  nSC_MAPSPELL           = 233;
  sSC_GIVEEXP            = 'GIVEEXP';
  nSC_GIVEEXP            = 234;
  sSC_GROUPMOVE          = 'GROUPMOVE';
  nSC_GROUPMOVE          = 235;
  sSC_GIVEEXPMAP         = 'GIVEEXPMAP';
  nSC_GIVEEXPMAP         = 236;
  sSC_APPLYMONEX         = 'APPLYMONEX';
  nSC_APPLYMONEX         = 237;
  sSC_CLEARNAMELIST      = 'CLEARNAMELIST';
  nSC_CLEARNAMELIST      = 238;
  sSC_TINGCASTLEVISITOR  = 'TINGCASTLEVISITOR';
  nSC_TINGCASTLEVISITOR  = 239;
  sSC_MAKEHEALZONE       = 'MAKEHEALZONE';
  nSC_MAKEHEALZONE       = 240;
  sSC_MAKEDAMAGEZONE     = 'MAKEDAMAGEZONE';
  nSC_MAKEDAMAGEZONE     = 241;
  sSC_CLEARZONE          = 'CLEARZONE';
  nSC_CLEARZONE          = 242;
  sSC_READVALUESQL       = 'READVALUESQL';
  nSC_READVALUESQL       = 250;
  sSC_READSTRINGSQL      = 'READSTRINGSQL';
  nSC_READSTRINGSQL      = 255;
  sSC_WRITEVALUESQL      = 'WRITEVALUESQL';
  nSC_WRITEVALUESQL      = 251;
  sSC_INCVALUESQL        = 'INCVALUESQL';
  nSC_INCVALUESQL        = 252;
  sSC_DECVALUESQL        = 'DECVALUESQL';
  nSC_DECVALUESQL        = 253;
  sSC_UPDATEVALUESQL     = 'UPDATEVALUESQL';
  nSC_UPDATEVALUESQL     = 254;
  sSC_KILLSLAVE          = 'KILLSLAVE';
  nSC_KILLSLAVE          = 260;
  sSC_SETITEMEVENT       = 'SETITEMEVENT';
  nSC_SETITEMEVENT       = 261;
  sSC_REMOVEITEMEVENT    = 'REMOVEITEMEVENT';
  nSC_REMOVEITEMEVENT    = 262;
  sSC_RETURN             = 'RETURN';
  nSC_RETURN             = 263;
  sSC_CLEARCASTLEOWNER   = 'CLEARCASTLEOWNER';
  nSC_CLEARCASTLEOWNER   = 270;
  sSC_DISSOLUTIONGUILD   = 'DISSOLUTIONGUILD';
  nSC_DISSOLUTIONGUILD   = 271;
  sSC_CHANGEGENDER       = 'CHANGEGENDER';
  nSC_CHANGEGENDER       = 272;
  sSC_SETFAME            = 'SETFAME';
  nSC_SETFAME            = 273;
  sSC_CHANGELEVEL  = 'CHANGELEVEL';
  nSC_CHANGELEVEL  = 300;
  sSC_MARRY        = 'MARRY';
  nSC_MARRY        = 301;
  sSC_UNMARRY      = 'UNMARRY';
  nSC_UNMARRY      = 302;
  sSC_GETMARRY     = 'GETMARRY';
  nSC_GETMARRY     = 303;
  sSC_GETMASTER    = 'GETMASTER';
  nSC_GETMASTER    = 304;
  sSC_CLEARSKILL   = 'CLEARSKILL';
  nSC_CLEARSKILL   = 305;
  sSC_DELNOJOBSKILL= 'DELNOJOBSKILL';
  nSC_DELNOJOBSKILL= 306;
  sSC_DELSKILL     = 'DELSKILL';
  nSC_DELSKILL     = 307;
  sSC_ADDSKILL     = 'ADDSKILL';
  nSC_ADDSKILL     = 308;
  sSC_SKILLLEVEL   = 'SKILLLEVEL';
  nSC_SKILLLEVEL   = 309;
  sSC_CHANGEPKPOINT      = 'CHANGEPKPOINT';
  nSC_CHANGEPKPOINT      = 310;
  sSC_CHANGEEXP          = 'CHANGEEXP';
  nSC_CHANGEEXP          = 311;
  sSC_CHANGEJOB          = 'CHANGEJOB';
  nSC_CHANGEJOB          = 312;
  sSC_MISSION            = 'MISSION';
  nSC_MISSION            = 313;
  sSC_MOBPLACE           = 'MOBPLACE';
  nSC_MOBPLACE           = 314;
  sSC_SETMEMBERTYPE      = 'SETMEMBERTYPE';
  nSC_SETMEMBERTYPE      = 315;
  sSC_SETMEMBERLEVEL     = 'SETMEMBERLEVEL';
  nSC_SETMEMBERLEVEL     = 316;
  sSC_GAMEGOLD           = 'GAMEGOLD';
  nSC_GAMEGOLD           = 317;
  sSC_AUTOADDGAMEGOLD    = 'AUTOADDGAMEGOLD';
  nSC_AUTOADDGAMEGOLD    = 318;
  sSC_AUTOSUBGAMEGOLD    = 'AUTOSUBGAMEGOLD';
  nSC_AUTOSUBGAMEGOLD    = 319;
  sSC_CHANGENAMECOLOR    = 'CHANGENAMECOLOR';
  nSC_CHANGENAMECOLOR    = 320;
  sSC_CLEARPASSWORD      = 'CLEARPASSWORD';
  nSC_CLEARPASSWORD      = 321;
  sSC_RENEWLEVEL         = 'RENEWLEVEL';
  nSC_RENEWLEVEL         = 322;
  sSC_KILLMONEXPRATE     = 'KILLMONEXPRATE';
  nSC_KILLMONEXPRATE     = 323;
  sSC_POWERRATE          = 'POWERRATE';
  nSC_POWERRATE          = 324;
  sSC_CHANGEMODE         = 'CHANGEMODE';
  nSC_CHANGEMODE         = 325;
  sSC_CHANGEPERMISSION   = 'CHANGEPERMISSION';
  nSC_CHANGEPERMISSION   = 326;
  sSC_KILL               = 'KILL';
  nSC_KILL               = 327;
  sSC_KICK               = 'KICK';
  nSC_KICK               = 328;
  sSC_BONUSPOINT         = 'BONUSPOINT';
  nSC_BONUSPOINT         = 329;
  sSC_RESTRENEWLEVEL     = 'RESTRENEWLEVEL';
  nSC_RESTRENEWLEVEL     = 330;
  sSC_DELMARRY           = 'DELMARRY';
  nSC_DELMARRY           = 331;
  sSC_DELMASTER          = 'DELMASTER';
  nSC_DELMASTER          = 332;
  sSC_MASTER             = 'MASTER';
  nSC_MASTER             = 333;
  sSC_UNMASTER           = 'UNMASTER';
  nSC_UNMASTER           = 334;
  sSC_CREDITPOINT        = 'CREDITPOINT';
  nSC_CREDITPOINT        = 335;
  sSC_CLEARNEEDITEMS     = 'CLEARNEEDITEMS';
  nSC_CLEARNEEDITEMS     = 336;
  sSC_CLEARMAKEITEMS     = 'CLEARMAKEITEMS';
  nSC_CLEARMAEKITEMS     = 337;
  sSC_SETSENDMSGFLAG     = 'SETSENDMSGFLAG';
  nSC_SETSENDMSGFLAG     = 338;
  sSC_UPGRADEITEMS       = 'UPGRADEITEM';
  nSC_UPGRADEITEMS       = 339;
  sSC_UPGRADEITEMSEX     = 'UPGRADEITEMEX';
  nSC_UPGRADEITEMSEX     = 340;
  sSC_MONGENEX           = 'MONGENEX';
  nSC_MONGENEX           = 341;
  sSC_CLEARMAPMON        = 'CLEARMAPMON';
  nSC_CLEARMAPMON        = 342;
  sSC_SETMAPMODE         = 'SETMAPMODE';
  nSC_SETMAPMODE         = 343;
  sSC_GAMEPOINT          = 'GAMEPOINT';
  nSC_GAMEPOINT          = 344;
  sSC_PKZONE             = 'PKZONE';
  nSC_PKZONE             = 345;
  sSC_RESTBONUSPOINT    = 'RESTBONUSPOINT';
  nSC_RESTBONUSPOINT    = 346;
  sSC_TAKECASTLEGOLD     = 'TAKECASTLEGOLD';
  nSC_TAKECASTLEGOLD     = 347;
  sSC_HUMANHP            = 'HUMANHP';
  nSC_HUMANHP            = 348;
  sSC_HUMANMP            = 'HUMANMP';
  nSC_HUMANMP            = 349;
  sSC_BUILDPOINT         = 'GUILDBUILDPOINT';
  nSC_BUILDPOINT         = 350;
  sSC_AURAEPOINT         = 'GUILDAURAEPOINT';
  nSC_AURAEPOINT         = 351;
  sSC_STABILITYPOINT     = 'GUILDSTABILITYPOINT';
  nSC_STABILITYPOINT     = 352;
  sSC_FLOURISHPOINT      = 'GUILDFLOURISHPOINT';
  nSC_FLOURISHPOINT      = 353;
  sSC_OPENMAGICBOX       = 'OPENITEMBOX'{'OPENMAGICBOX'};
  nSC_OPENMAGICBOX       = 354;
  sSC_SETRANKLEVELNAME   = 'SETRANKLEVELNAME';
  nSC_SETRANKLEVELNAME   = 355;
  sSC_GMEXECUTE          = 'GMEXECUTE';
  nSC_GMEXECUTE          = 356;
  sSC_GUILDCHIEFITEMCOUNT = 'GUILDCHIEFITEMCOUNT';
  nSC_GUILDCHIEFITEMCOUNT = 357;
  sSC_ADDNAMEDATELIST     = 'ADDNAMEDATELIST';
  nSC_ADDNAMEDATELIST     = 358;
  sSC_DELNAMEDATELIST     = 'DELNAMEDATELIST';
  nSC_DELNAMEDATELIST     = 359;
  sSC_MOBFIREBURN         = 'MOBFIREBURN';
  nSC_MOBFIREBURN         = 360;
  sSC_MESSAGEBOX          = 'MESSAGEBOX';
  nSC_MESSAGEBOX          = 361;
  sSC_SETSCRIPTFLAG       = 'SETSCRIPTFLAG';
  nSC_SETSCRIPTFLAG       = 362;
  sSC_SETAUTOGETEXP       = 'SETAUTOGETEXP';
  nSC_SETAUTOGETEXP       = 363;
  sSC_VAR                 = 'VAR';
  nSC_VAR                 = 364;
  sSC_LOADVAR             = 'LOADVAR';
  nSC_LOADVAR             = 365;
  sSC_SAVEVAR             = 'SAVEVAR';
  nSC_SAVEVAR             = 366;
  sSC_CALCVAR             = 'CALCVAR';
  nSC_CALCVAR             = 367;
  sSC_GUILDRECALL         = 'GUILDRECALL';
  nSC_GUILDRECALL         = 368;
  sSC_GROUPADDLIST        = 'GROUPADDLIST';
  nSC_GROUPADDLIST        = 369;
  sSC_CLEARLIST           = 'CLEARLIST';
  nSC_CLEARLIST           = 370;
  sSC_GROUPRECALL         = 'GROUPRECALL';
  nSC_GROUPRECALL         = 371;
  sSC_GROUPMOVEMAP        = 'GROUPMOVEMAP';
  nSC_GROUPMOVEMAP        = 372;
  sSC_SAVESLAVES          = 'SAVESLAVES';
  nSC_SAVESLAVES          = 373;
  sGTMAPMOVE         = 'GTMAPMOVE';
  nGTMAPMOVE         = 374;

//特殊命令
  sSL_SENDMSG      = '@@sendmsg';
  sSUPERREPAIR     = '@s_repair';
  sSUPERREPAIROK   = '~@s_repair';
  sSUPERREPAIRFAIL = '@fail_s_repair';
  sREPAIR          = '@repair';
  sREPAIROK        = '~@repair';
  sBUY             = '@buy';
  sSELL            = '@sell';
  sMAKEDURG        = '@makedrug';
  sMAKEGEM         = '@makegemlist';
  sPRICES          = '@prices';
  sSTORAGE         = '@storage';
  sCONSIGN         = '@consign';
  sGETBACK         = '@getback_Invalid';
  sUPGRADENOW      = '@upgradenow';
  sUPGRADEING      = '~@upgradenow_ing';
  sUPGRADEOK       = '~@upgradenow_ok';
  sUPGRADEFAIL     = '~@upgradenow_fail';
  sGETBACKUPGNOW   = '@getbackupgnow';
  sGETBACKUPGOK    = '~@getbackupgnow_ok';
  sGETBACKUPGFAIL  = '~@getbackupgnow_fail';
  sGETBACKUPGFULL  = '~@getbackupgnow_bagfull';
  sGETBACKUPGING   = '~@getbackupgnow_ing';
  sEXIT            = '@exit';
  sBACK            = '@back';
  sMAIN            = '@main';
  sFAILMAIN        = '~@main';
  sGETMASTER       = '@@getmaster';
  sGETMARRY        = '@@getmarry';
  sUSEITEMNAME     = '@@useitemname';
  sBUILDGUILDNOW   = '@@buildguildnow';
  sSCL_GUILDWAR    = '@@guildwar';
  sDONATE          = '@@donate';
  sREQUESTCASTLEWAR= '@requestcastlewarnow';
  sCASTLENAME      = '@@castlename';
  sWITHDRAWAL      = '@@withdrawal';
  sRECEIPTS        = '@@receipts';
  sOPENMAINDOOR    = '@openmaindoor';
  sCLOSEMAINDOOR   = '@closemaindoor';
  sREPAIRDOORNOW   = '@repairdoornow';
  sREPAIRWALLNOW1  = '@repairwallnow1';
  sREPAIRWALLNOW2  = '@repairwallnow2';
  sREPAIRWALLNOW3  = '@repairwallnow3';
  sHIREARCHERNOW   = '@hirearchernow';
  sHIREGUARDNOW    = '@hireguardnow';
  sHIREGUARDOK     = '@hireguardok';
  sAgitRecall      = '@agitrecall';
  sAgitoneRecall   = '@@agitonerecall';
  sAgitExtend      = '@agitextend';
  sAgitForSale     = '@@agitforsale';
  sAgitOrSaleCancel= '@agitforsalecancel';
  sga_decomon_count= '@ga_decomon_count';
  sga_decoitem_buy = '@ga_decoitem_buy';
  sagitreg         = '@agitreg';
  sagitmove        = '@agitmove';
  sagitbuy         = '@agitbuy';
  sgaboardlist     = '@gaboardlist';
  sMarket_Def      = 'Market_Def\';
  sNpc_def         = 'Npc_def\';
type
{$IF IniSystem = 1}
  TConfHeader = record
    sName:String[20];
    nVersion:Integer;
  end;
{$IFEND}

  TItemBind = record
    nMakeIdex:Integer;
    nItemIdx :Integer;
    sBindName:String[20];
  end;

  pTItemBind = ^TItemBind;
  TConsoleData = packed record
    nCrcExtInt   :Integer;
    nCrcDllInt   :Integer;
  end;
  pTConsoleData = ^TConsoleData;
{$IF OEMVER = OEM775}
  TLevelInfo = record
    wHP        :Word;
    wMP        :Word;
    dwExp      :LongWord;
    wAC        :Word;
    wMaxAC     :Word;
    wACLimit   :Word;
    wMAC       :Word;
    wMaxMAC    :Word;
    wMACLimit  :Word;
    wDC        :Word;
    wMaxDC     :Word;
    wDCLimit   :Word;
    dwDCExp    :LongWord;
    wMC        :Word;
    wMaxMC     :Word;
    wMCLimit   :Word;
    dwMCExp    :LongWord;
    wSC        :Word;
    wMaxSC     :Word;
    wSCLimit   :Word;