Plugin Hwnd = Window.Foreground()
Plugin Window.Move(Hwnd, 0, 0)
KeyPress 9,1
Rem 走路1
Gosub PD打怪没
MoveTo 382,393
Delay 100
Gosub PD打怪没
LeftClick 1
Gosub PD打怪没
Delay 2000
Gosub PD打怪没
MoveTo 314,295
Delay 100
Gosub PD打怪没
LeftClick 1
Gosub PD打怪没
Delay 2000
Gosub PD打怪没
MoveTo 165,343
Delay 100
Gosub PD打怪没
LeftClick 1
Delay 2000
Gosub PD打怪没
Goto 走路1
Sub 地图
    VBSCall Call FindPic(0,0,1023,767,"dt.bmp",0.8,x,y)
    If x>=0 and y>=0
    Else 
        KeyPress 9,1
    EndIf 
Return 地图
Sub PD打怪没
    IfColor 23,91,f8dcc0,1
        IfColor 22,91,f8dcc0,0
        Else 
            MoveTo 752,98
            Delay 600
            LeftClick 1
        EndIf 
        Rem 1
        IfColor 620,90,f8dcc0,0
            Delay 1000
            Goto 1
        Else 
            KeyPress 27,1
            Delay 100
            Gosub 地图
        EndIf 
    Else 
    EndIf 
Return PD打怪没