Rem start
MoveTo 垂钓坐标
LeftClick 1
dim time
Rem b
time = now
Rem a
If datediff("s", time, now) >= 25 Then
Goto start
Else
FindColorEx 读取的起点坐标,终点坐标,"鱼的色码",0,0.5,intX,intY
If intX > 0 And intY > 0 Then
IfColor 钓鱼进度坐标,"钓鱼进度色码",2 Then
MoveTo 收杆坐标
LeftClick 1
Delay 4000
MoveTo 垂钓坐标
LeftClick 1
Goto c
End If
End If
Goto a
Rem c
Goto b
End If