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打怪没