Rem 走步
TracePrint  "1"
FindColor 0,0,1024,768,"FF1C51",X,Y
If X > 0 And Y> 0 Then

MoveTo 200 +X, Y + 200 
Delay 200
LeftClick 1



Delay 1500
End If


Rem 寻怪打怪
call 时间调用（）
FindColor 0,0,1024,768,"00A8FB",intX,intY
If intX > 0 And intY > 0 Then 



TracePrint  intX&","&intY 
MoveTo intX  ,intY 

LeftDoubleClick 1

 Delay 2000
KeyPress "F11", 1


Delay 100

    rem 继续打怪
    For 2
    KeyPress "F1", 1
        Delay 1000
        TracePrint "3"
        Next

   Call 判断是否死亡（）
   KeyPress "F9", 1

   Delay 1500
      Call 捡包()
      Delay 200
   Call 判断周围是否还有怪（）
call 时间差大于1分钟返程（）
   
End If

goto 走步



//调用时间是否大于12秒
sub 时间调用（）
i = 0
    sTime2 = Plugin.Sys.GetTime()
i=sTime2-sTime1

If i / 1000 >= 12 Then
TracePrint  "2"
	Goto 加血
	Delay 200
End If
end sub

sub 判断是否死亡（）
 For 2
    IfColor 277+Ux,34+Uy,"3F53FF" ,2 Then
TracePrint  "4"
goto 继续打怪
Else
End If

Delay 200
Next 
End Sub




Sub 判断周围是否还有怪（）
	
	
Delay 100


    FindColor 0,0,1024,768,"75E7DF",intX,intY
If intX > 0 And intY > 0 Then 

KeyPress "F11", 1
Delay 100
TracePrint "5"
Goto  继续打怪
else	

	end if
End Sub