EndIf 
        EndIf 
        // 檢查怪物血條、及防搶功能
        For 10
            IfColor 424,0,0,0
                IfColor 596,47,747474,0
                    If NoKillMon=0
                        Goto MonHP
                    Else 
                        IfColor 593,38,000000,2
                            Goto FindEnd
                        Else 
                            Goto MonHP
                        EndIf 
                    EndIf 
                EndIf 
            EndIf 
            Gosub HP
            Gosub MP
            KeyPress 32,1
            Delay 50
        EndFor 
        Rem MonHP
        IfColor 424,0,0,0
            IfColor 596,47,747474,0
                KeyPress 32,1
                Gosub HP
                Gosub MP
                Gosub FindMonS
                Delay 40
                Goto MonHP
            EndIf 
        EndIf 
        Rem FindEnd
        MoveTo 511,400
        LeftClick 1
        // 集中掃描
        If FineVar=0
            Goto start
        EndIf 
        // 滑鼠為手圖案，撿寶
    ElseIf Shape=0
        MoveR 0,25
        LeftClick 2
        Delay 100
        // 集中掃描
        If FineVar=0
            Goto start
        EndIf 
    EndIf 
Return CheckMon
// ---------------------------------找怪副程式--------------------------------------
Sub FindMonColor
    i=0
    For Killvar
        ColorVar=MonColor(i)
        VBSCall FindColor(x1,y1,x2,y2,ColorVar,x,y)
        If i=2 and x>=460 and x<=550 and y>=362 and y<=394
            MoveTo 511,400
            VBSCall Shape=GetCursorShape(0)
            If Shape=978197372
                Gosub CheckMon
            EndIf 
        ElseIf x>=x1 and y>=y1
            j=0
            For 6
                k=0
                For 7
                    MoveTo x+k*5 y+50-j*10
                    VBSCall Shape=GetCursorShape(0)
                    If Shape=978197372
                        Gosub CheckMon
                    EndIf 
                    k=k+1
                EndFor 
                j=j+1
            EndFor 
        EndIf 
        i=i+1
    EndFor 
Return FindMonColor
// 小範圍
Sub FindMonS
    Gosub CanNotKill
    Gosub Arise
    Gosub FindMon1
    Gosub FindMon2
    Gosub FindMon3
    Gosub FindMon4
    Gosub FindMon5
    Gosub FindMon6
    Gosub FindMon7
    Gosub FindMon8
    Gosub FindMon9
    Gosub FindMon10
    Gosub FindMon11
    Gosub FindMon12
    Gosub FindMon13
    Gosub FindMon14
    Gosub FindMon15