// 復活設定
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