Delay 2000
Dim rColor
rColor = GetPixelColor(453,678)
if rColor = "000000" Then
Delay 1000
Tap 365,782
Tap 193,577
Delay 1000
Tap 296,587
Delay 500
Tap 417,596
Delay 500
Tap 195,673
Delay 500
Tap 312,669
Delay 5000
Tap 345, 1234
Delay 2000
Tap 628, 1212
Delay 500
Tap 616, 1228
Delay 500
Tap 372, 789
End If