dim s14,x,y
color(0)="b5cc8b":color(1)="b5cc8b":color(2)="b5cc8b"
VBSCall FindCenterColor(462, 416,540, 452,color(s14),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 
Goto 549856
Rem 998
Sub 00
    MoveTo 500,320
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 1000
    MoveTo 500,342
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 1000
    MoveTo 500,365
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 1000
    MoveTo 500,388
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 1000
    MoveTo 500,408
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 1000
    MoveTo 500,435
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 1000
    MoveTo 500,457
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 1000
    MoveTo 500,482
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 1000
    MoveTo 500,502
    LeftClick 1