mshare.~pas
来自「2009最新 传奇汉化0599代码 传奇汉化」· ~PAS 代码 · 共 1,239 行 · 第 1/4 页
~PAS
1,239 行
g_dwMagicDelayTime :LongWord;
g_dwMagicPKDelayTime :LongWord;
g_nMouseCurrX :Integer;
g_nMouseCurrY :Integer;
g_nMouseX :Integer;
g_nMouseY :Integer;
g_nTargetX :Integer;
g_nTargetY :Integer;
g_TargetCret :TActor;
g_FocusCret :TActor;
g_MagicTarget :TActor;
g_boAttackSlow :Boolean;
g_boMoveSlow :Boolean;
g_boFrozen :Boolean; //true if frostrcrunch turned self purple
g_nMoveSlowLevel :Integer;
g_boMapMoving :Boolean;
g_boMapMovingWait :Boolean;
g_boCheckBadMapMode :Boolean;
g_boCheckSpeedHackDisplay :Boolean;
g_boShowGreenHint :Boolean;
g_boShowWhiteHint :Boolean;
g_boViewMiniMap :Boolean;
g_nViewMinMapLv :Integer;
g_nMiniMapIndex :Integer;
g_boViewMap :Boolean;
g_nViewMapLv :Integer;
g_nMapIndex :Integer;
//NPC
g_nCurMerchant :Integer;
g_nMDlgX :Integer;
g_nMDlgY :Integer;
g_dwChangeGroupModeTick :LongWord;
g_dwDealActionTick :LongWord;
g_dwQueryMsgTick :LongWord;
g_nDupSelection :Integer;
g_boAllowGroup :Boolean;
//人物信息相关
g_nMySpeedPoint :Integer; //敏捷
g_nMyHitPoint :Integer; //准确
g_nMyAntiPoison :Integer; //魔法躲避
g_nMyPoisonRecover :Integer; //中毒恢复
g_nMyHealthRecover :Integer; //体力恢复
g_nMySpellRecover :Integer; //魔法恢复
g_nMyAntiMagic :Integer; //魔法躲避
g_nMyHungryState :Integer; //饥饿状态
g_wAvailIDDay :Word;
g_wAvailIDHour :Word;
g_wAvailIPDay :Word;
g_wAvailIPHour :Word;
g_MySelf :THumActor;
g_MyDrawActor :THumActor; //未用
g_UseItems :array[0..12] of TClientItem;
g_ItemArr :array[0..MAXBAGITEMCL-1] of TClientItem;
g_boBagLoaded :Boolean;
g_boServerChanging :Boolean;
g_AuctionItems :array[0..9] of TAuctionItem;
g_AuctionCurrPage :Integer;
g_AuctionAmountofPages :Integer;
g_AuctionCurrSection :Integer;
//gt
g_GTItems :array[0..9] of TClientGT;
g_DecoItems :array[0..12] of TDecoItem;
g_BBSMsgList :array[0..9] of TBBSMSG;
g_GTCurrPage :integer;
g_GTTotalPage :integer;
g_GTAmountOnPage :integer;
g_DecoList :TList;
g_BBSMSG :String;
g_BBSPoster :String;
g_MasterPost :integer;
//end of gt
//键盘相关
g_ToolMenuHook :HHOOK;
g_nLastHookKey :Integer;
g_dwLastHookKeyTime :LongWord;
g_nCaptureSerial :Integer; //抓图文件名序号
g_nSendCount :Integer; //发送操作计数
g_nReceiveCount :Integer; //接改操作状态计数
g_nTestSendCount :Integer;
g_nTestReceiveCount :Integer;
g_nSpellCount :Integer; //使用魔法计数
g_nSpellFailCount :Integer; //使用魔法失败计数
g_nFireCount :Integer; //
g_nDebugCount :Integer;
g_nDebugCount1 :Integer;
g_nDebugCount2 :Integer;
//买卖相关
g_SellDlgItem :TClientItem;
g_SellDlgItemSellWait :TClientItem;
g_DealDlgItem :TClientItem;
g_boQueryPrice :Boolean;
g_boQuickSell :Boolean;
g_dwQueryPriceTime :LongWord;
g_sSellPriceStr :String;
//Gemming system
g_GemItem1 :TClientItem;
g_GemItem2 :TClientItem;
g_GemItem3 :TClientItem;
g_GemItem4 :TClientItem;
g_GemItem5 :TClientItem;
g_GemItem6 :TClientItem;
g_GemItem1s :TClientItem;
g_GemItem2s :TClientItem;
g_GemItem3s :TClientItem;
g_GemItem4s :TClientItem;
g_GemItem5s :TClientItem;
g_GemItem6s :TClientItem;
g_LoverName :String[ActorNameLen];
g_StartDate :TDateTime;
g_TotalDays :Integer;
//交易相关
g_DealItems :array[0..9] of TClientItem;
g_DealRemoteItems :array[0..19] of TClientItem;
g_nDealGold :Integer;
g_nDealRemoteGold :Integer;
g_boDealEnd :Boolean;
g_sDealWho :String; //交易对方名字
g_MouseItem :TClientItem;
g_MouseStateItem :TClientItem;
g_MouseUserStateItem :TClientItem; //泅犁 付快胶啊 啊府虐绊 乐绰 酒捞袍
g_boItemMoving :Boolean; //正在移动物品
g_MovingItem :TMovingItem;
g_WaitingUseItem :TMovingItem;
g_FocusItem :pTDropItem;
g_ItemEffects :TList;
g_boViewFog :Boolean; //是否显示黑暗
g_boForceNotViewFog :Boolean = True; //免蜡烛
g_nDayBright :Integer;
g_nAreaStateValue :Integer; //显示当前所在地图状态(攻城区域、)
g_boNoDarkness :Boolean;
g_nRunReadyCount :Integer; //助跑就绪次数，在跑前必须走几步助跑
g_EatingItem :TClientItem;
g_dwEatTime :LongWord; //timeout...
g_dwDizzyDelayStart :LongWord;
g_dwDizzyDelayTime :LongWord;
g_boDoFadeOut :Boolean;
g_boDoFadeIn :Boolean;
g_nFadeIndex :Integer;
g_boDoFastFadeOut :Boolean;
g_LoverNameClient :String;
g_LoverNameState :String;
g_boAutoDig :Boolean; //自动锄矿
g_boSelectMyself :Boolean; //鼠标是否指到自己
//游戏速度检测相关变量
g_dwFirstServerTime :LongWord;
g_dwFirstClientTime :LongWord;
//ServerTimeGap: int64;
g_nTimeFakeDetectCount :Integer;
g_dwSHGetTime :LongWord;
g_dwSHTimerTime :LongWord;
g_nSHFakeCount :Integer; //检查机器速度异常次数，如果超过4次则提示速度不稳定
g_dwLatestClientTime2 :LongWord;
g_dwFirstClientTimerTime :LongWord; //timer 矫埃
g_dwLatestClientTimerTime :LongWord;
g_dwFirstClientGetTime :LongWord; //gettickcount 矫埃
g_dwLatestClientGetTime :LongWord;
g_nTimeFakeDetectSum :Integer;
g_nTimeFakeDetectTimer :Integer;
g_dwLastestClientGetTime :LongWord;
//外挂功能变量开始
g_dwDropItemFlashTime :LongWord = 5 * 1000; //地面物品闪时间间隔
g_nHitTime :Integer = 1400; //攻击间隔时间间隔
g_nItemSpeed :Integer = 60;
g_dwSpellTime :LongWord = 500; //魔法攻间隔时间
g_DeathColorEffect :TColorEffect = ceGrayScale;
g_boClientCanSet :Boolean = True;
g_boCanRunHuman :Boolean = False;
g_boCanRunMon :Boolean = False;
g_boCanRunNpc :Boolean = False;
g_boCanRunAllInWarZone :Boolean = False;
g_boCanStartRun :Boolean = False; //是否允许免助跑
g_boParalyCanRun :Boolean = False;//麻痹是否可以跑
g_boParalyCanWalk :Boolean = False;//麻痹是否可以走
g_boParalyCanHit :Boolean = False;//麻痹是否可以攻击
g_boParalyCanSpell :Boolean = False;//麻痹是否可以魔法
g_boShowRedHPLable :Boolean = False; //显示血条
g_boShowHPNumber :Boolean = False; //显示血量数字
g_boShowJobLevel :Boolean = True; //显示职业等级
g_boDuraAlert :Boolean = True; //物品持久警告
g_boMagicLock :Boolean = False; //魔法锁定
g_boAutoPuckUpItem :Boolean = False;
g_boShowHumanInfo :Boolean = True;
g_boShowMonsterInfo :Boolean = False;
g_boShowNpcInfo :Boolean = False;
//外挂功能变量结束
g_dwAutoPickupTick :LongWord;
g_dwAutoPickupTime :LongWord = 50; //自动捡物品间隔
g_AutoPickupList :TList;
g_MagicLockActor :TActor;
g_boNextTimePowerHit :Boolean;
g_boCanLongHit :Boolean;
g_boCanWideHit :Boolean;
g_boCanCrsHit :Boolean;
g_boCanTwnHit :Boolean;
g_boCanStnHit :Boolean;
g_boNextTimeFireHit :Boolean;
g_ShowItemList :TGList;
g_boShowAllItem :Boolean = False;//显示地面所有物品名称
g_boDrawTileMap :Boolean = True;
g_boDrawDropItem :Boolean = True;
g_boVerticalBelt :Boolean = False;
// Mail
g_boHasMail :Boolean = False;
g_boIsMinTimerTime :Boolean = False; // Haxed MinTimer
g_nTestX:Integer = 71;
g_nTestY:Integer = 212;
DlgConf :TConfig = (
//milo
DBottom :(Image:1;Left:0;Top:0;Width:0;Height:0);
DMyState :(Image:8;Left:643;Top:61;Width:0;Height:0);
DMyBag :(Image:9;Left:682;Top:41;Width:0;Height:0);
DMyMagic :(Image:10;Left:722;Top:21;Width:0;Height:0);
DOption :(Image:11;Left:764;Top:11;Width:0;Height:0);
DBotMiniMap :(Image:131;Left:181;Top:85;Width:0;Height:0);
DBotTrade :(Image:133;Left:181; Top:110;Width:0;Height:0);
DBotGuild :(Image:135;Left:181; Top:135;Width:0;Height:0);
DBotGroup :(Image:129;Left:181; Top:160;Width:0;Height:0);
DBotFriend :(Image:531;Left:181; Top:184;Width:0;Height:0);
DBotLover :(Image:529;Left:603; Top:85;Width:0;Height:0);
DBotLogout :(Image:137;Left:565;Top:56;Width:0;Height:0);
DBotExit :(Image:139;Left:589;Top:56;Width:0;Height:0);
DBotPlusAbil:(Image:141;Left:181; Top:1;Width:0;Height:0);
DBotMemo :(Image:533;Left:720; Top:83;Width:0;Height:0);
DBelt1 :(Image:0;Left:285;Top:59;Width:32;Height:29);
DBelt2 :(Image:0;Left:328;Top:59;Width:32;Height:29);
DBelt3 :(Image:0;Left:371;Top:59;Width:32;Height:29);
DBelt4 :(Image:0;Left:415;Top:59;Width:32;Height:29);
DBelt5 :(Image:0;Left:459;Top:59;Width:32;Height:29);
DBelt6 :(Image:0;Left:503;Top:59;Width:32;Height:29);
DGold :(Image:29;Left:10;Top:220;Width:0;Height:0);
DRepairItem :(Image:26;Left:254;Top:183;Width:48;Height:22);
DClosebag :(Image:371;Left:309;Top:203;Width:14;Height:20);
DMerchantDlg :(Image:384;Left:0;Top:0;Width:0;Height:0);
DMerchantDlgClose :(Image:87;Left:450;Top:1;Width:0;Height:0);
DConfigDlg :(Image:204;Left:0;Top:0;Width:0;Height:0);
DConfigDlgOk :(Image:361;Left:514;Top:287;Width:0;Height:0);
DConfigDlgClose :(Image:64;Left:584;Top:6;Width:0;Height:0);
DMenuDlg :(Image:385;Left:138;Top:163;Width:0;Height:0);
DMenuPrev :(Image:388;Left:43;Top:175;Width:0;Height:0);
DMenuNext :(Image:387;Left:90;Top:175;Width:0;Height:0);
DMenuBuy :(Image:386;Left:215;Top:171;Width:0;Height:0);
DMenuClose :(Image:64;Left:291;Top:0;Width:0;Height:0);
DSellDlg :(Image:392;Left:328;Top:163;Width:0;Height:0);
DSellDlgOk :(Image:393;Left:85;Top:150;Width:0;Height:0);
DHold :(Image:404;Left:85;Top:150;Width:0;Height:0);
DSellDlgClose :(Image:64;Left:115;Top:0;Width:0;Height:0);
DSellDlgSpot :(Image:0;Left:27;Top:67;Width:0;Height:0);
DKeySelDlg :(Image:620;Left:0;Top:0;Width:0;Height:0);
DKsIcon :(Image:0;Left:51;Top:31;Width:0;Height:0);
DKsF1 :(Image:232;Left:25;Top:78;Width:0;Height:0);
DKsF2 :(Image:234;Left:57;Top:78;Width:0;Height:0);
DKsF3 :(Image:236;Left:89;Top:78;Width:0;Height:0);
DKsF4 :(Image:238;Left:121;Top:78;Width:0;Height:0);
DKsF5 :(Image:240;Left:160;Top:78;Width:0;Height:0);
DKsF6 :(Image:242;Left:192;Top:78;Width:0;Height:0);
DKsF7 :(Image:244;Left:224;Top:78;Width:0;Height:0);
DKsF8 :(Image:246;Left:256;Top:78;Width:0;Height:0);
DKsConF1 :(Image:626;Left:25;Top:120;Width:0;Height:0);
DKsConF2 :(Image:628;Left:57;Top:120;Width:0;Height:0);
DKsConF3 :(Image:630;Left:89;Top:120;Width:0;Height:0);
DKsConF4 :(Image:632;Left:121;Top:120;Width:0;Height:0);
DKsConF5 :(Image:633;Left:160;Top:120;Width:0;Height:0);
DKsConF6 :(Image:634;Left:192;Top:120;Width:0;Height:0);
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?