// 復活設定 Gosub Arise // 拒絕組隊 Gosub Reject // 關閉聊天視窗 Gosub CloseTalkWin // 防卡牆 Gosub CanNotKill // 強制撿寶 Gosub GetBaoWu // 打坐補血、補魔 Gosub HPme Gosub MPme // 調整方向 Gosub Aspect // 找怪 // 小範圍 For 2 Gosub FindMonS EndFor // 中範圍 If FineSizeVar<2 Gosub FindMonM // 大範圍 If FineSizeVar<1 Gosub FindMonL EndIf EndIf Gosub GetBaoWu Delay 500 If AspectVar1>0 // 轉方向 For AspectVar1 MoveTo 500,500 RightDown 1 Delay 40 MoveR 200,0 Delay 40 RightUp 1 EndFor EndIf Delay 40 Goto start // 檢查HP------------------------------------------------------------ Sub HP If HPvar>0 HP_X=4+int(165*HPvar) IfColor HP_X,30,000000,2 If DateDiff("s",HPtime,Now)>=HPtimeVar Delay 50 IfColor HP_X,30,000000,2 KeyPress 49,1 HPtime=Now EndIf Else // 20%以下加5瓶補血 IfColor 37,30,000000,2 For 5 KeyPress 49,1 Delay 50 EndFor EndIf EndIf EndIf EndIf Return HP // Sub HPme If HPvar1>0 Gosub FindMonHM HP_X=4+int(165*HPvar1) IfColor HP_X,30,000000,2 Delay 50 IfColor HP_X,30,000000,2 KeyPress 89,1 Rem addHP IfColor 169,33,4e4ee1,1 Delay 1000 Gosub HP Gosub MP Gosub FindMonHM Gosub Reject Goto addHP EndIf KeyPress 89,1 Delay 2000 EndIf EndIf EndIf Return HPme // 檢查MP Sub MP If MPvar>0 MP_X=4+int(165*MPvar) IfColor MP_X,56,000000,2 If DateDiff("s",MPtime,Now)>=MPtimeVar Delay 50 IfColor MP_X,56,000000,2 KeyPress 50,1 MPtime=Now