Dim intX, intY
Do
Findcolor 385, 834, 405, 854, "A461DE", 0, 0.9, intX, intY
if intX > 0 Then
Delay 100
touch 395, 844, 200
Delay 100
End if
Findcolor 385, 834, 405, 854, "355BD9", 0, 0.9, intX, intY
if intX > 0 Then
Delay 100
touch 395, 844, 200
Delay 100
End if
Findcolor 385, 630, 405, 650, "A461DE", 0, 0.9, intX, intY
if intX > 0 Then
Delay 100
touch 395, 640, 200
Delay 100
End if
Findcolor 385, 630, 405, 650, "355BD9", 0, 0.9, intX, intY
if intX > 0 Then
Delay 100
touch 395, 640, 200
Delay 100
End if
Findcolor 385, 834, 405, 854, "5ED1F9", 0, 0.9, intX, intY
if intX > 0 Then
Delay 100
touch 395, 844, 200
Delay 100
End if
Findcolor 385, 630, 405, 650, "5ED1F9", 0, 0.9, intX, intY
if intX > 0 Then
Delay 100
touch 395, 640, 200
Delay 100
End if
touch 395, 436, 200
delay 200
touch 170, 880, 200
delay 200
touch 50, 800, 200
delay 200
touch 115, 660, 200
delay 200
Loop