XY=Plugin.Color.FindMutiColor(0,0,1920,1080,"303030","1|0|646464,2|0|FFFFFF,3|0|FFFFFF,4|0|FFFFFF,5|0|FFFFFF,6|0|FFFFFF,7|0|FFFFFF,8|0|FFFFFF,9|0|FFFFFF,10|0|FFFFFF,11|0|FFFFFF,12|0|FFFFFF,13|0|646464,14|0|3E3E3E,15|0|646464,16|0|FFFFFF,17|0|646464,18|0|3E3E3E,19|0|646464,20|0|FFFFFF,21|0|646464,22|0|646464,23|0|3E3E3E,24|0|303030,25|0|3E3E3E,26|0|646464,27|0|FFFFFF,28|0|646464,29|0|3E3E3E,30|0|646464,31|0|FFFFFF,32|0|FFFFFF,33|0|FFFFFF,34|0|FFFFFF,35|0|646464,36|0|3E3E3E,37|0|303030,38|0|303030,39|0|303030,40|0|303030,41|0|3E3E3E,43|0|FFFFFF,44|0|646464,45|0|3E3E3E,46|0|3E3E3E,47|0|646464,48|0|3E3E3E,49|0|303030,50|0|3E3E3E,51|0|646464,52|0|FFFFFF,53|0|646464,54|0|FFFFFF,55|0|FFFFFF,56|0|FFFFFF,57|0|FFFFFF,58|0|FFFFFF,59|0|FFFFFF,60|0|646464,61|0|3E3E3E,62|0|303030,63|0|303030",1)
dim MyArray
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
If X AND Y >= 1 Then
MoveTo x, y
Call G1
End If
Sub G1
Do
FindColorEx x,y,x+400,y+340,"45123B",0,0.9,intX,intY
If intX > 0 And intY > 0 Then
Call G2
End If
FindColorEx x,y,x+400,y+340,"AE2271",0,0.9,intX,intY
If intX > 0 And intY > 0 Then
Call G2
End If
FindColorEx x,y,x+400,y+340,"482065",0,0.9,intX,intY
If intX > 0 And intY > 0 Then
Call G2
End If
FindColorEx x,y,x+400,y+340,"922986",0,0.9,intX,intY
If intX > 0 And intY > 0 Then
Call G2
End If
FindColorEx x,y,x+400,y+340,"46194B",0,0.9,intX,intY
If intX > 0 And intY > 0 Then
Call G2
End If
FindColorEx x,y,x+400,y+340,"3E0F6B",0,0.9,intX,intY
If intX > 0 And intY > 0 Then
Call G2
End If
FindColorEx x,y,x+400,y+340,"421050",0,0.9,intX,intY
If intX > 0 And intY > 0 Then
Call G2
End If
FindColor x,y,x+400,y+340,"420D63",intX,intY
If intX > 0 And intY > 0 Then
Call G2
End If
FindColor x,y,x+400,y+340,"2F1B5D",intX,intY
If intX > 0 And intY > 0 Then
Call G2
End If
FindColor x,y,x+400,y+340,"5C0F6D",intX,intY
If intX > 0 And intY > 0 Then
Call G2
End If
FindColor x,y,x+400,y+340,"872A83",intX,intY
If intX > 0 And intY > 0 Then
Call G2
End If
FindColor x,y,x+400,y+340,"494082",intX,intY
If intX > 0 And intY > 0 Then
Call G2
End If
LOOP
End Sub
Sub G2
MoveTo intX, intY
Delay 10
LeftClick 1
Delay 20
End Sub