dim color(2)
dim s20,x,y
color(0)="6185c1":color(1)="6185c1":color(2)="6185c1"
VBSCall FindCenterColor(193, 320,336, 427,color(s20),x,y)
If x>0 and y>0
    Goto 11802
Else 
EndIf 
dim color(2)
dim s12,x,y
color(0)="b5cc8b":color(1)="b5cc8b":color(2)="b5cc8b"
VBSCall FindCenterColor(459, 348,540, 381,color(s12),x,y)
If x>0 and y>0
    MoveTo X,Y
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
Else 
EndIf 
Delay 1000
dim color(2)
dim s20,x,y
color(0)="6185c1":color(1)="6185c1":color(2)="6185c1"
VBSCall FindCenterColor(193, 320,336, 427,color(s20),x,y)
If x>0 and y>0
    Goto 11802
Else 
EndIf 
dim color(2)
dim s13,x,y
color(0)="b5cc8b":color(1)="b5cc8b":color(2)="b5cc8b"
VBSCall FindCenterColor(468, 370,532, 406,color(s13),x,y)
If x>0 and y>0
    MoveTo X,Y
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
Else 
EndIf 
Delay 1000
dim color(2)
dim s20,x,y
color(0)="6185c1":color(1)="6185c1":color(2)="6185c1"
VBSCall FindCenterColor(193, 320,336, 427,color(s20),x,y)
If x>0 and y>0
    Goto 11802
Else 
EndIf 
dim color(2)
dim s16,x,y
color(0)="b5cc8b":color(1)="b5cc8b":color(2)="b5cc8b"
VBSCall FindCenterColor(467, 392,533, 428,color(s16),x,y)
If x>0 and y>0
    MoveTo X,Y
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
Else 
EndIf 
Delay 1000
dim color(2)
dim s20,x,y
color(0)="6185c1":color(1)="6185c1":color(2)="6185c1"
VBSCall FindCenterColor(193, 320,336, 427,color(s20),x,y)
If x>0 and y>0
    Goto 11802
Else 
EndIf 
dim color(2)
dim s15,x,y
color(0)="b5cc8b":color(1)="b5cc8b":color(2)="b5cc8b"
VBSCall FindCenterColor(463, 439,539, 475,color(s15),x,y)
If x>0 and y>0
    MoveTo X,Y
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
Else 
EndIf 
Delay 1000
dim color(2)
dim s20,x,y
color(0)="6185c1":color(1)="6185c1":color(2)="6185c1"
VBSCall FindCenterColor(193, 320,336, 427,color(s20),x,y)