KeyPress 32,1
                                        EndFor 
                                    ElseIf Shape=978197372
                                        Gosub CheckMon
                                    EndIf 
                                    k=k+1
                                    Delay 5
                                EndFor 
                                j=j+1
                            EndFor 
                        EndIf 
                    EndIf 
                EndIf 
            EndIf 
        EndIf 
        KeyUp 192,1
    EndIf 
Return GetBaoWu
// 防卡牆的怪物
Sub CanNotKill
    If CanNotKillVar=1
        // 怪物血條
        IfColor 424,0,0,0
            IfColor 596,47,747474,0
                If DateDiff("s",MonRunTime,Time)>=CanNotKillTime
                    MonRunTime=time
                    // 轉方向
                    For 8
                        MoveTo 500,500
                        RightDown 1
                        Delay 40
                        MoveR 200,0
                        Delay 40
                        RightUp 1
                    EndFor 
                EndIf 
            Else 
                MonRunTime=time
            EndIf 
        Else 
            MonRunTime=time
        EndIf 
    EndIf 
Return CanNotKill
// 檢查水瓶
Sub checkCarafe
    If CarafeVar>0
        VBSCall FindCenterColor(433,750,447,759,"00ff00",Cx,Cy)
        If Cx<=433 and Cy<=750
            If CarafeVar=1
                AriseVar=1
            EndIf 
        EndIf 
        VBSCall FindCenterColor(471,750,485,759,"00ff00",Cx,Cy)
        If Cx<=471 and Cy<=750
            If CarafeVar=1
                AriseVar=1
            EndIf 
        EndIf 
    EndIf 
Return checkCarafe
// 特殊職業設定
Sub Vocation
    // 機甲師-特殊設定
    If VocationVar=1
        IfColor 52,73,000000,2
            VBSCall FindCenterColor(10,85,80,110,"40ff37",Ballx,Bally)
            If Ballx<10 and Bally<85
                Delay 40
                VBSCall FindCenterColor(10,85,80,110,"40ff37",Ballx1,Bally1)
                If Ballx1<10 and Bally1<85
                    MoveTo 80,95
                    LeftClick BallVar
                EndIf 
            EndIf 
        Else 
            MoveR 30,0
            LeftClick 1
        EndIf 
    EndIf 
Return Vocation
// 檢查武器 - 機甲師
Sub checkArms
    KeyPress 73,1
    Delay 100
    IfColor 808,91,ff,0
        // 回到重生點
        AriseVar=1
    EndIf 
    KeyPress 73,1
    MoveTo 1012,12
    LeftClick 1
Return checkArms
Rem GameOver
Delay 60000
For 5
    MoveTo 100,200
    LeftClick 1
    Delay 2000
EndFor