mudutil.pas

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

    nRing23MCAddValueMaxLimit: Integer;
    nRing23MCAddValueRate: Integer;
    nRing23SCAddRate: Integer;
    nRing23SCAddValueMaxLimit: Integer;
    nRing23SCAddValueRate: Integer;
    nHelMetDCAddRate: Integer;
    nHelMetDCAddValueMaxLimit: Integer;
    nHelMetDCAddValueRate: Integer;
    nHelMetMCAddRate: Integer;
    nHelMetMCAddValueMaxLimit: Integer;
    nHelMetMCAddValueRate: Integer;
    nHelMetSCAddRate: Integer;
    nHelMetSCAddValueMaxLimit: Integer;
    nHelMetSCAddValueRate: Integer;
    nUnknowHelMetACAddRate: Integer;
    nUnknowHelMetACAddValueMaxLimit: Integer;
    nUnknowHelMetMACAddRate: Integer;
    nUnknowHelMetMACAddValueMaxLimit: Integer;
    nUnknowHelMetDCAddRate: Integer;
    nUnknowHelMetDCAddValueMaxLimit: Integer;
    nUnknowHelMetMCAddRate: Integer;
    nUnknowHelMetMCAddValueMaxLimit: Integer;
    nUnknowHelMetSCAddRate: Integer;
    nUnknowHelMetSCAddValueMaxLimit: Integer;
    nUnknowRingACAddRate: Integer;
    nUnknowRingACAddValueMaxLimit: Integer;
    nUnknowRingMACAddRate: Integer;
    nUnknowRingMACAddValueMaxLimit: Integer;
    nUnknowRingDCAddRate: Integer;
    nUnknowRingDCAddValueMaxLimit: Integer;
    nUnknowRingMCAddRate: Integer;
    nUnknowRingMCAddValueMaxLimit: Integer;
    nUnknowRingSCAddRate: Integer;
    nUnknowRingSCAddValueMaxLimit: Integer;
    nUnknowNecklaceACAddRate: Integer;
    nUnknowNecklaceACAddValueMaxLimit: Integer;
    nUnknowNecklaceMACAddRate: Integer;
    nUnknowNecklaceMACAddValueMaxLimit: Integer;
    nUnknowNecklaceDCAddRate: Integer;
    nUnknowNecklaceDCAddValueMaxLimit: Integer;
    nUnknowNecklaceMCAddRate: Integer;
    nUnknowNecklaceMCAddValueMaxLimit: Integer;
    nUnknowNecklaceSCAddRate: Integer;
    nUnknowNecklaceSCAddValueMaxLimit: Integer;
    nMonOneDropGoldCount: Integer;
    nMakeMineHitRate: Integer;                              //挖矿命中率
    nMakeMineRate: Integer;                                 //挖矿率
    nStoneMinDura: Integer;
    nStoneGeneralDuraRate: Integer;
    nStoneAddDuraRate: Integer;
    nStoneAddDuraMax: Integer;
    nWinLottery6Min: Integer;
    nWinLottery6Max: Integer;
    nWinLottery5Min: Integer;
    nWinLottery5Max: Integer;
    nWinLottery4Min: Integer;
    nWinLottery4Max: Integer;
    nWinLottery3Min: Integer;
    nWinLottery3Max: Integer;
    nWinLottery2Min: Integer;
    nWinLottery2Max: Integer;
    nWinLottery1Min: Integer;
    nWinLottery1Max: Integer;                               //16180 + 1820;
    nWinLottery1Gold: Integer;
    nWinLottery2Gold: Integer;
    nWinLottery3Gold: Integer;
    nWinLottery4Gold: Integer;
    nWinLottery5Gold: Integer;
    nWinLottery6Gold: Integer;
    nWinLotteryRate: Integer;
    nWinLotteryCount: Integer;
    nNoWinLotteryCount: Integer;
    nWinLotteryLevel1: Integer;
    nWinLotteryLevel2: Integer;
    nWinLotteryLevel3: Integer;
    nWinLotteryLevel4: Integer;
    nWinLotteryLevel5: Integer;
    nWinLotteryLevel6: Integer;
    GlobalVal: array[0..99] of Integer;
    nItemNumber: Integer;
    nItemNumberEx: Integer;
    nGuildRecallTime: Integer;
    nGroupRecallTime: Integer;
    boControlDropItem: Boolean;
    boInSafeDisableDrop: Boolean;
    nCanDropGold: Integer;
    nCanDropPrice: Integer;
    boSendCustemMsg: Boolean;
    boSubkMasterSendMsg: Boolean;
    nSuperRepairPriceRate: Integer;                         //特修价格倍数
    nRepairItemDecDura: Integer;
    //普通修理掉持久数(特持久上限减下限再除以此数为减的数值)
    boDieScatterBag: Boolean;
    nDieScatterBagRate: Integer;
    boDieRedScatterBagAll: Boolean;
    nDieDropUseItemRate: Integer;
    nDieRedDropUseItemRate: Integer;
    boDieDropGold: Boolean;
    boKillByHumanDropUseItem: Boolean;
    boKillByMonstDropUseItem: Boolean;
    boKickExpireHuman: Boolean;
    nGuildRankNameLen: Integer;
    nGuildMemberMaxLimit: Integer;
    nGuildNameLen: Integer;
    nAttackPosionRate: Integer;
    nAttackPosionTime: Integer;
    dwRevivalTime: Integer;                                 //复活间隔时间
    boUserMoveCanDupObj: Boolean;
    boUserMoveCanOnItem: Boolean;
    dwUserMoveTime: Integer;
    dwPKDieLostExpRate: Integer;
    nPKDieLostLevelRate: Integer;
    btPKFlagNameColor: Byte;
    btPKLevel1NameColor: Byte;
    btPKLevel2NameColor: Byte;
    btAllyAndGuildNameColor: Byte;
    btWarGuildNameColor: Byte;
    btInFreePKAreaNameColor: Byte;
    boSpiritMutiny: Boolean;
    dwSpiritMutinyTime: Integer;
    nSpiritPowerRate: Integer;
    boMasterDieMutiny: Boolean;
    nMasterDieMutinyRate: Integer;
    nMasterDieMutinyPower: Integer;
    nMasterDieMutinySpeed: Integer;
    boBBMonAutoChangeColor: Boolean;
    dwBBMonAutoChangeColorTime: Integer;
    boOldClientShowHiLevel: Boolean;
    boShowScriptActionMsg: Boolean;
    nRunSocketDieLoopLimit: Integer;
    boThreadRun: Boolean;
    boShowExceptionMsg: Boolean;
    boShowPreFixMsg: Boolean;
    nMagicAttackRage: Integer;                              //魔法锁定范围
    sBoneFamm: string[20];
    nBoneFammCount: Integer;
    BoneFammArray: array[0..19] of TRecallMigic;
    sDogz: string[20];
    nDogzCount: Integer;
    DogzArray: array[0..19] of TRecallMigic;
    nAmyOunsulPoint: Integer;
    boDisableInSafeZoneFireCross: Boolean;
    boGroupMbAttackPlayObject: Boolean;
    boGroupMbAttackBaoBao: Boolean;
    dwPosionDecHealthTime: Integer;
    nPosionDamagarmor: Integer; //中红毒着持久及减防量（实际大小为 12 / 10）
    boLimitSwordLong: Boolean;
    nSwordLongPowerRate: Integer;
    nFireBoomRage: Integer;
    nSnowWindRange: Integer;
    nElecBlizzardRange: Integer;
    nMagTurnUndeadLevel: Integer;                           //圣言怪物等级限制
    nMagTammingLevel: Integer; //诱惑之光怪物等级限制
    nMagTammingTargetLevel: Integer; //诱惑怪物相差等级机率，此数字越小机率越大；
    nMagTammingHPRate: Integer;
    //成功机率=怪物最高HP 除以 此倍率，此倍率越大诱惑机率越高
    nMagTammingCount: Integer;
    nMabMabeHitRandRate: Integer;
    nMabMabeHitMinLvLimit: Integer;
    nMabMabeHitSucessRate: Integer;
    nMabMabeHitMabeTimeRate: Integer;
    sCASTLENAME: string[20];
    sCastleHomeMap: string[20];
    nCastleHomeX: Integer;
    nCastleHomeY: Integer;
    nCastleWarRangeX: Integer;
    nCastleWarRangeY: Integer;
    nCastleTaxRate: Integer;
    boCastleCanNull: Boolean;
    boGetAllNpcTax: Boolean;

    nHireGuardPrice: Integer;
    nHireArcherPrice: Integer;
    nCastleGoldMax: Integer;
    nCastleOneDayGold: Integer;
    nRepairDoorPrice: Integer;
    nRepairWallPrice: Integer;
    nCastleMemberPriceRate: Integer;
    nMaxHitMsgCount: Integer;
    nMaxSpellMsgCount: Integer;
    nMaxRunMsgCount: Integer;
    nMaxWalkMsgCount: Integer;
    nMaxTurnMsgCount: Integer;
    nMaxSitDonwMsgCount: Integer;
    nMaxDigUpMsgCount: Integer;
    boSpellSendUpdateMsg: Boolean;
    boActionSendActionMsg: Boolean;
    boKickOverSpeed: Boolean;
    btSpeedControlMode: Integer;
    nOverSpeedKickCount: Integer;
    dwDropOverSpeed: Integer;
    dwHitIntervalTime: Integer;                             //攻击间隔
    dwMagicHitIntervalTime: Integer;                        //魔法间隔
    dwRunIntervalTime: Integer;                             //跑步间隔
    dwWalkIntervalTime: Integer;                            //走路间隔
    dwTurnIntervalTime: Integer;                            //换方向间隔
    boControlActionInterval: Boolean;
    boControlWalkHit: Boolean;
    boControlRunLongHit: Boolean;
    boControlRunHit: Boolean;
    boControlRunMagic: Boolean;
    dwActionIntervalTime: Integer;                          //组合操作间隔
    dwRunLongHitIntervalTime: Integer;                      //跑位刺杀间隔
    dwRunHitIntervalTime: Integer;                          //跑位攻击间隔
    dwWalkHitIntervalTime: Integer;                         //走位攻击间隔
    dwRunMagicIntervalTime: Integer;                        //跑位魔法间隔
    boDisableStruck: Boolean;                               //不显示人物弯腰动作
    boDisableSelfStruck: Boolean; //自己不显示人物弯腰动作
    dwStruckTime: Integer;                                  //人物弯腰停留时间
    dwKillMonExpMultiple: Integer;                          //杀怪经验倍数
{$IF SoftVersion = VERENT}
    dwRequestVersion: Integer;
{$ELSE}
    dwRequestVersion: Integer;
{$IFEND}
    boHighLevelKillMonFixExp: Boolean;
    boAddUserItemNewValue: Boolean;
    sLineNoticePreFix: string[20];
    sSysMsgPreFix: string[20];
    sGuildMsgPreFix: string[20];
    sGroupMsgPreFix: string[20];
    sHintMsgPreFix: string[20];
    sGMRedMsgpreFix: string[20];
    sMonSayMsgpreFix: string[20];
    sCustMsgpreFix: string[20];
    sCastleMsgpreFix: string[20];
    sGuildNotice: string[20];
    sGuildWar: string[20];
    sGuildAll: string[20];
    sGuildMember: string[20];
    sGuildMemberRank: string[20];
    sGuildChief: string[20];
    boKickAllUser: Boolean;
    boTestSpeedMode: Boolean;
    ClientConf: TClientConf;
    nWeaponMakeUnLuckRate: Integer;
    nWeaponMakeLuckPoint1: Integer;
    nWeaponMakeLuckPoint2: Integer;
    nWeaponMakeLuckPoint3: Integer;
    nWeaponMakeLuckPoint2Rate: Integer;
    nWeaponMakeLuckPoint3Rate: Integer;
    boCheckUserItemPlace: Boolean;
{$IF DEMOCLIENT = 1}
    nClientKey: Integer;
{$ELSE}
    nClientKey: Integer;
{$IFEND}
    nLevelValueOfTaosHP: Integer;
    nLevelValueOfTaosHPRate: Double;
    nLevelValueOfTaosMP: Integer;
    nLevelValueOfWizardHP: Integer;
    nLevelValueOfWizardHPRate: Double;
    nLevelValueOfWarrHP: Integer;
    nLevelValueOfWarrHPRate: Double;
    nProcessMonsterInterval: Integer;
    //add By Delphilxh
    boIDSocketConnected: Boolean;
    boDBSocketConnected: Boolean;
    UserIDSection: TRTLCriticalSection;
    sIDSocketRecvText: string;
    IDSocket: Integer;
    nIDSocketRecvIncLen: LongWord;
    nIDSocketRecvMaxLen: LongWord;
    nIDSocketRecvCount: LongWord;
    nIDReceiveMaxTime: LongWord;
    IDSocketWSAErrCode: Integer;
    nIDSocketWSAErrCode: Integer;
    nIDSocketErrorCount: Integer;

    nDBSocketRecvIncLen: Integer;
    nDBSocketRecvMaxLen: Integer;
    sDBSocketRecvText: string;
    boDBSocketWorking: Boolean;
    nDBSocketRecvCount: Integer;
    nDBReceiveMaxTime: Integer;
    nDBSocketWSAErrCode: Integer;
    nDBSocketErrorCount: Integer;
    nLoadDBErrorCount: Integer;
    nLoadDBCount: Integer;
    nSaveDBCount: Integer;
    nDBQueryID: Integer;
    nServerFile_CRCB: Integer;
    nClientFile1_CRC: Integer;
    nClientFile2_CRC: Integer;
    nClientFile3_CRC: Integer;
    nItemAcRate: Integer;
    nItemMacRate: Integer;
    boMoveCanDupObj: Boolean;

    boHighLevelGroupFixExp: Boolean;
    boDropGoldToPlayBag: Boolean;                           //怪物掉金币到背包
    boDropGoldToPlayBagSlave: Boolean;
    dwSendToClientTickCount: Dword;
    nCheckLicenseFail: Integer;
    nSendWhisperPlayCount: Integer;
    nServerFile_CRCA: Integer;
    dwSendWhisperTime: Dword;
    GlobaDyMval: array[0..99] of Integer;

    DBSOcketThread: TThreadInfo;
    IDSocketThread: TThreadInfo;
    UserEngineThread: TThreadInfo;
    SellCount: Integer;
    SellTax: Byte;
    nDBSocketSendLen: Integer;
    TARIFF        : array[0..255] of Byte;
    Rebate        : array[0..255] of Byte;
    //End Add
  end;




  TGList = class(TMyList)
  private
    FLock: TRTLCriticalSection;
  public
    constructor Create;
    procedure Lock;
    procedure UnLock;
  end;
  TGStringList = class(TStringList)
  private
    FLock: TRTLCriticalSection;
  public
    constructor Create;
    procedure Lock;
    procedure UnLock;
  end;
  TQuickList = class(TStringList)
  private
    FLock: TRTLCriticalSection;
  public
    procedure SortString(nMIN, nMax: Integer);
    function GetIndex(sName: string): Integer;
    function AddRecord(sName: string; nIndex: Integer): Boolean;
    procedure Lock;
    procedure UnLock;
    constructor Create;
  end;

implementation


{ TGList }

constructor TGList.Create;