dim m,n,a ,b ,c ,d ,e ,f ,x ,y ,x0,y0
m=30:n=80
Call 查找怪()
EndScript
Delay 10
Sub 查找怪()
    a=-50:b=150
    Rem 找怪
    For 10
        Call FindPic(20,40,1000,700,"金.bmp",0.7,X,Y)
        If X>=0 and Y>=0 Then
            x0=x+m:y0=y+n
            Delay 10
            If y>500 Then
                Delay 50
                MoveTo 600,500
                Delay 50
                LeftClick 1
                Delay 50
                Goto 查找怪
              Else
            End if
            Delay 200
            MoveTo x0,y0
            Delay 50
            Call 打怪()
            Delay 100
        End if
        If X=-1 and Y=-1 Then
            Delay 10
            MoveTo 506,398
            Delay 10
            MoveR a,b
            Delay 2000
            LeftClick 1
            Delay 100
        End if
    Next
    a=a*(-1):b=b*(-1)
    Goto 找怪
End Sub
Sub 打怪()
    Delay 10
    IfColor 66,722,"9ccb84",0 Then
        Delay 10
        KeyPress 192,1
        Delay 100
        KeyPress 49,1
        Delay 100
        Rem 打
         RightClick 1
        Delay 200
        LeftClick 1
        Delay 100
    Else
        KeyPress 49,1
        Delay 100
        Goto 打
    End if
    Delay 10
End Sub