Dim intX, intY
do
FindPic 0, 0, 0, 0, "Attachment:副本.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intx+2,inty+2
Delay 300
t = now
Do
FindPic 0, 0, 0, 0, "Attachment:技能.png", "000000", 0, 0.9, intX, intY
Delay 300
If datediff("s",t,now)>=10 then exit do //超時幾秒沒進入副本就退出重新進
Loop Until intx > 0
If intx > 0 Then
t = now
Do
FindPic 0, 0, 0, 0, "Attachment:技能.png", "000000", 0, 0.9, intX, intY
If intx > 0 Then Tap intx + 2, inty + 2
Delay 300
If datediff("s",t,now)>=60 then exit do //副本打怪最大超時幾秒
Loop Until intx < 0
FindPic 0, 0, 0, 0, "Attachment:退出副本.png", "000000", 0, 0.9, intX, intY
If intx > 0 Then
Tap intx + 2, inty + 2
Delay 500
t = now
Do
FindPic 0, 0, 0, 0, "Attachment:確定.png", "000000", 0, 0.9, intX, intY
Delay 300
If datediff("s",t,now)>=-5 then exit do
Loop Until intx > 0
If intx>0 then tap intx+2,inty+2
End If
End If
End If
Delay 200
loop