Sub attack()
KeyPress "3", 1
Delay 1000
Dim a(18)
a(0)="5A5AAD"
a(1)="4C4CA7"
a(2)="43429D"
a(3)="4645A2"
a(4)="2C2C91"
a(5)="5151AB"
a(6)="5556B2"
a(7)="28278D"
a(8)="27268E"
a(9)="0C0CE1"
a(10)="2323A6"
a(11)="1413D9"
a(12)="2222A8"
a(13)="1918B2"
a(14)="0B0BEC"
a(15)="0D0DE1"
a(16)="110CB8"
a(17)="150EB4"
a(18)="110CC3"
i = 0
For 18
FindColorEx 280,190,1570,780,"a(i)",0,0.9,ax,ay
If ax > 0 Then
MoveTo ax + 30, ay + 50
Delay 100
LeftClick 1
Exit For
End If
i = i + 1
Next
End Sub