For 240
rem A1
Dim intX, intY, intA, intB ,intQ ,intW
FindPic 40, 845, 147, 982, "Attachment:1.PNG", "000000", 3, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Delay 1000
Tap intX, intY
REM A2
FindPic 54, 770, 95, 818, "Attachment:2.PNG", "000000", 3, 0.7, intA, intB
If intA > -1 And intB > -1 Then
Rem A3
FindPic 44, 456, 104, 822, "Attachment:3.PNG", "000000", 3, 0.7, intQ, intW
If intQ > -1 And intW > -1 Then
Delay 1
Goto A3
Else
Delay 1600
Tap intX, intY
Delay 5500
Tap 143, 637
Delay 1000
End If
Else
Delay 100
Goto A2
End If
Else
Delay 100
goto A1
End If
Next
TracePrint "钓鱼完成"
rem A1
Dim intX, intY, intA, intB ,intQ ,intW
FindPic 40, 845, 147, 982, "Attachment:1.PNG", "000000", 3, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Delay 1000
Tap intX, intY
REM A2
FindPic 54, 770, 95, 818, "Attachment:2.PNG", "000000", 3, 0.7, intA, intB
If intA > -1 And intB > -1 Then
Rem A3
FindPic 44, 456, 104, 822, "Attachment:3.PNG", "000000", 3, 0.7, intQ, intW
If intQ > -1 And intW > -1 Then
Delay 1
Goto A3
Else
Delay 1600
Tap intX, intY
Delay 5500
Tap 143, 637
Delay 1000
End If
Else
Delay 100
Goto A2
End If
Else
Delay 100
goto A1
End If
Next
TracePrint "钓鱼完成"