mudutil.pas

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

unit MudUtil;

interface
uses
  Windows, Messages, SysUtils, Classes, Grobal2,mylist;
type
  pTConfig = ^TConfig;
  TThreadInfo = record
    nRunFlag: Integer;                                      //0x00
    boActived: BOOL;                                        //0x04
    dwRunTick: LongWord;                                    //0x08
    Config: pTConfig;                                       //0x0C
    boTerminaled: BOOL;                                     //0x10
    hThreadHandle: THandle;                                 //0x14
    dwThreadID: LongWord;                                   //0x18
    n1C: Integer;                                           //0x1C
    n20: Integer;                                           //0x20
    n24: Integer;                                           //0x24
    nRunTime: LongWord;
    nMaxRunTime: LongWord;
  end;
  pTThreadInfo = ^TThreadInfo;


  TConfig = record
    nConfigSize: Integer;
    sServerName: string[50];
    sServerIPaddr: string[20];
    sWebSite: string[50];
    sBbsSite: string[50];
    sClientDownload: string[50];
    sQQ: string[15];
    sPhone: string[10];
    sBankAccount0: string[50];
    sBankAccount1: string[50];
    sBankAccount2: string[50];
    sBankAccount3: string[50];
    sBankAccount4: string[50];
    sBankAccount5: string[50];
    sBankAccount6: string[50];
    sBankAccount7: string[50];
    sBankAccount8: string[50];
    sBankAccount9: string[50];
    nServerNumber: Integer;
    boVentureServer: Boolean;
    boTestServer: Boolean;
    boServiceMode: Boolean;
    boNonPKServer: Boolean;
    nTestLevel: Integer;
    nTestGold: Integer;
    nTestUserLimit: Integer;
    nSendBlock: Integer;
    nCheckBlock: Integer;
    nAvailableBlock: Integer;
    nGateLoad: Integer;
    nUserFull: Integer;
    nZenFastStep: Integer;
    sGateAddr: string[20];
    nGatePort: Integer;
    sDBAddr: string[20];
    nDBPort: Integer;
    sIDSAddr: string[20];
    nIDSPort: Integer;
    sMsgSrvAddr: string[20];
    nMsgSrvPort: Integer;
    sLogServerAddr: string[20];
    nLogServerPort: Integer;
    boDiscountForNightTime: Boolean;
    nHalfFeeStart: Integer;
    nHalfFeeEnd: Integer;
    boViewHackMessage: Boolean;
    boViewAdmissionFailure: Boolean;
    sBaseDir: string[50];
    sGuildDir: string[50];
    sGuildFile: string[50];
    sVentureDir: string[50];
    sConLogDir: string[50];
    sCastleDir: string[50];
    sCastleFile: string[50];
    sEnvirDir: string[50];
    sMapDir: string[50];
    sNoticeDir: string[50];
    sLogDir: string[50];
    sPlugDir: string[50];
    sClientFile1: string[50];
    sClientFile2: string[50];
    sClientFile3: string[50];

    sClothsMan: string[50];
    sClothsWoman: string[50];
    sWoodenSword: string[50];
    sCandle: string[50];
    sBasicDrug: string[50];
    sGoldStone: string[50];
    sSilverStone: string[50];
    sSteelStone: string[50];
    sCopperStone: string[50];
    sBlackStone: string[50];
    sZuma: array[0..3] of string[20];
    sBee: string[50];
    sSpider: string[50];
    sWomaHorn: string[50];
    sZumaPiece: string[50];
    sGameGoldName: string[50];
    sGamePointName: string[50];
    sPayMentPointName: string[50];
    DBSocket: Integer;
    nHealthFillTime: Integer;
    nSpellFillTime: Integer;
    nMonUpLvNeedKillBase: Integer;
    nMonUpLvRate: Integer;
    MonUpLvNeedKillCount: array[0..7] of Integer;
    SlaveColor: array[0..8] of Byte;
    dwNeedExps: TLevelNeedExp;
    WideAttack: array[0..2] of Byte;
    CrsAttack: array[0..6] of Byte;
    SpitMap: array[0..7, 0..4, 0..4] of Byte;
    ItemGetExp:array[0..9] of Byte;
    sHomeMap: string[10];
    nHomeX: Integer;
    nHomeY: Integer;
    sRedHomeMap: string[10];
    nRedHomeX: Integer;
    nRedHomeY: Integer;
    sRedDieHomeMap: string[10];
    nRedDieHomeX: Integer;
    nRedDieHomeY: Integer;
    dwDecPkPointTime: Integer;
    nDecPkPointCount: Integer;
    dwPKFlagTime: Integer;
    nKillHumanAddPKPoint: Integer;
    nKillHumanDecLuckPoint: Integer;
    dwDecLightItemDrugTime: Integer;
    nSafeZoneSize: Integer;
    nStartPointSize: Integer;
    dwHumanGetMsgTime: Integer;
    nGroupMembersMax: Integer;
    sFireBallSkill: string[20];
    sHealSkill: string[20];
    ReNewNameColor: array[0..9] of Byte;
    dwReNewNameColorTime: Integer;
    boReNewChangeColor: Boolean;
    boReNewLevelClearExp: Boolean;
    BonusAbilofWarr: TNakedAbility;
    BonusAbilofWizard: TNakedAbility;
    BonusAbilofTaos: TNakedAbility;
    NakedAbilofWarr: TNakedAbility;
    NakedAbilofWizard: TNakedAbility;
    NakedAbilofTaos: TNakedAbility;
    nUpgradeWeaponMaxPoint: Integer;
    nUpgradeWeaponPrice: Integer;
    dwUPgradeWeaponGetBackTime: Integer;
    nClearExpireUpgradeWeaponDays: Integer;
    nUpgradeWeaponDCRate: Integer;
    nUpgradeWeaponDCTwoPointRate: Integer;
    nUpgradeWeaponDCThreePointRate: Integer;
    nUpgradeWeaponSCRate: Integer;
    nUpgradeWeaponSCTwoPointRate: Integer;
    nUpgradeWeaponSCThreePointRate: Integer;
    nUpgradeWeaponMCRate: Integer;
    nUpgradeWeaponMCTwoPointRate: Integer;
    nUpgradeWeaponMCThreePointRate: Integer;

    nMakeItemWQRate : Integer;
    nMakeItemTKRate : Integer;
    nMakeItemXLRate : Integer;
    nMakeItemSZRate : Integer;
    nMakeItemJZRate : Integer;
    nMakeItemXZRate : Integer;
    nMakeItemYFRate : Integer;
    nMakeItemYDRate : Integer;
    nMakeItemPZRate : Integer;
    nMakeItemBZRate : Integer;

    dwClickNpcTime  : Integer;
    dwProcessMonstersTime: Integer;
    dwRegenMonstersTime: Integer;
    nMonGenRate: Integer;
    nProcessMonRandRate: Integer;
    nProcessMonLimitCount: Integer;
    nSoftVersionDate: Integer;
    boCanOldClientLogon: Boolean;
    dwConsoleShowUserCountTime: Integer;
    dwShowLineNoticeTime: Integer;
    nLineNoticeColor: Integer;
    nStartCastleWarDays: Integer;
    nStartCastlewarTime: Integer;
    dwShowCastleWarEndMsgTime: Integer;
    dwCastleWarTime: LongWord;
    dwGetCastleTime: Integer;
    dwGuildWarTime: Integer;
    nBuildGuildPrice: Integer;
    nGuildWarPrice: Integer;
    nMakeDurgPrice: Integer;
    nHumanMaxGold: Integer;
    nHumanTryModeMaxGold: Integer;
    nTryModeLevel: Integer;
    boTryModeUseStorage: Boolean;
    nCanShoutMsgLevel: Integer;
    boShowMakeItemMsg: Boolean;
    boShutRedMsgShowGMName: Boolean;
    nSayMsgMaxLen: Integer;
    dwSayMsgTime: Integer;
    nSayMsgCount: Integer;
    dwDisableSayMsgTime: Integer;
    nSayRedMsgMaxLen: Integer;
    boShowGuildName: Boolean;
    boShowRankLevelName: Boolean;
    boMonSayMsg: Boolean;
    nStartPermission: Integer;
    boKillHumanWinLevel: Boolean;
    boKilledLostLevel: Boolean;
    boKillHumanWinExp: Boolean;
    boKilledLostExp: Boolean;
    nKillHumanWinLevel: Integer;
    nKilledLostLevel: Integer;
    nKillHumanWinExp: Integer;
    nKillHumanLostExp: Integer;
    nHumanLevelDiffer: Integer;
    nMonsterPowerRate: Integer;
    nItemsPowerRate: Integer;
    nItemsACPowerRate: Integer;
    boSendOnlineCount: Boolean;
    nSendOnlineCountRate: Integer;
    dwSendOnlineTime: Integer;
    dwSaveHumanRcdTime: Integer;
    dwHumanFreeDelayTime: Integer;
    dwMakeGhostTime: Integer;
    dwClearDropOnFloorItemTime: Integer;
    dwFloorItemCanPickUpTime: Integer;
    boPasswordLockSystem: Boolean; //是否启用密码保护系统
    boLockDealAction: Boolean;                              //是否锁定交易操作
    boLockDropAction: Boolean;                              //是否锁定扔物品操作
    boLockGetBackItemAction: Boolean;                       //是否锁定取仓库操作
    boLockHumanLogin: Boolean;                              //是否锁定走操作
    boLockWalkAction: Boolean;                              //是否锁定走操作
    boLockRunAction: Boolean;                               //是否锁定跑操作
    boLockHitAction: Boolean;                               //是否锁定攻击操作
    boLockSpellAction: Boolean;                             //是否锁定魔法操作
    boLockSendMsgAction: Boolean;                           //是否锁定发信息操作
    boLockUserItemAction: Boolean; //是否锁定使用物品操作
    boLockInObModeAction: Boolean;                          //锁定时进入隐身状态
    nPasswordErrorCountLock: Integer; //输入密码错误超过 指定次数则锁定密码
    boPasswordErrorKick: Boolean; //输入密码错误超过限制则踢下线
    nSendRefMsgRange: Integer;
    boDecLampDura: Boolean;
    boHungerSystem: Boolean;
    boHungerDecHP: Boolean;
    boHungerDecPower: Boolean;
    boDiableHumanRun: Boolean;
    boRUNHUMAN: Boolean;
    boRUNMON: Boolean;
    boRunNpc: Boolean;
    boRunGuard: Boolean;
    boWarDisHumRun: Boolean;
    boGMRunAll: Boolean;
    boSafeZoneRunAll: Boolean;
    dwTryDealTime: Integer;
    dwDealOKTime: Integer;
    boCanNotGetBackDeal: Boolean;
    boDisableDeal: Boolean;
    nMasterOKLevel: Integer;
    nMasterOKCreditPoint: Integer;
    nMasterOKBonusPoint: Integer;
    boPKLevelProtect: Boolean;
    nPKProtectLevel: Integer;
    nRedPKProtectLevel: Integer;
    nItemPowerRate: Integer;
    nItemExpRate: Integer;
    nScriptGotoCountLimit: Integer;
    btHearMsgFColor: Byte;                                  //前景
    btHearMsgBColor: Byte;                                  //背景
    btWhisperMsgFColor: Byte;                               //前景
    btWhisperMsgBColor: Byte;                               //背景
    btGMWhisperMsgFColor: Byte;                             //前景
    btGMWhisperMsgBColor: Byte;                             //背景
    btCryMsgFColor: Byte;                                   //前景
    btCryMsgBColor: Byte;                                   //背景
    btGreenMsgFColor: Byte;                                 //前景
    btGreenMsgBColor: Byte;                                 //背景
    btBlueMsgFColor: Byte;                                  //前景
    btBlueMsgBColor: Byte;                                  //背景
    btRedMsgFColor: Byte;                                   //前景
    btRedMsgBColor: Byte;                                   //背景
    btGuildMsgFColor: Byte;                                 //前景
    btGuildMsgBColor: Byte;                                 //背景
    btGroupMsgFColor: Byte;                                 //前景
    btGroupMsgBColor: Byte;                                 //背景
    btCustMsgFColor: Byte;                                  //前景
    btCustMsgBColor: Byte;                                  //背景
    nMonRandomAddValue: Integer;
    nMakeRandomAddValue: Integer;
    nWeaponDCAddValueMaxLimit: Integer;
    nWeaponDCAddValueRate: Integer;
    nWeaponMCAddValueMaxLimit: Integer;
    nWeaponMCAddValueRate: Integer;
    nWeaponSCAddValueMaxLimit: Integer;
    nWeaponSCAddValueRate: Integer;
    nDressDCAddRate: Integer;
    nDressDCAddValueMaxLimit: Integer;
    nDressDCAddValueRate: Integer;
    nDressMCAddRate: Integer;
    nDressMCAddValueMaxLimit: Integer;
    nDressMCAddValueRate: Integer;
    nDressSCAddRate: Integer;
    nDressSCAddValueMaxLimit: Integer;
    nDressSCAddValueRate: Integer;
    nNeckLace202124DCAddRate: Integer;
    nNeckLace202124DCAddValueMaxLimit: Integer;
    nNeckLace202124DCAddValueRate: Integer;
    nNeckLace202124MCAddRate: Integer;
    nNeckLace202124MCAddValueMaxLimit: Integer;
    nNeckLace202124MCAddValueRate: Integer;
    nNeckLace202124SCAddRate: Integer;
    nNeckLace202124SCAddValueMaxLimit: Integer;
    nNeckLace202124SCAddValueRate: Integer;
    nNeckLace19DCAddRate: Integer;
    nNeckLace19DCAddValueMaxLimit: Integer;
    nNeckLace19DCAddValueRate: Integer;
    nNeckLace19MCAddRate: Integer;
    nNeckLace19MCAddValueMaxLimit: Integer;
    nNeckLace19MCAddValueRate: Integer;
    nNeckLace19SCAddRate: Integer;
    nNeckLace19SCAddValueMaxLimit: Integer;
    nNeckLace19SCAddValueRate: Integer;
    nArmRing26DCAddRate: Integer;
    nArmRing26DCAddValueMaxLimit: Integer;
    nArmRing26DCAddValueRate: Integer;
    nArmRing26MCAddRate: Integer;
    nArmRing26MCAddValueMaxLimit: Integer;
    nArmRing26MCAddValueRate: Integer;
    nArmRing26SCAddRate: Integer;
    nArmRing26SCAddValueMaxLimit: Integer;
    nArmRing26SCAddValueRate: Integer;
    nRing22DCAddRate: Integer;
    nRing22DCAddValueMaxLimit: Integer;
    nRing22DCAddValueRate: Integer;
    nRing22MCAddRate: Integer;
    nRing22MCAddValueMaxLimit: Integer;
    nRing22MCAddValueRate: Integer;
    nRing22SCAddRate: Integer;
    nRing22SCAddValueMaxLimit: Integer;
    nRing22SCAddValueRate: Integer;
    nRing23DCAddRate: Integer;
    nRing23DCAddValueMaxLimit: Integer;
    nRing23DCAddValueRate: Integer;
    nRing23MCAddRate: Integer;