Delay 5000
KeyPress 73,1
Delay 500
MoveTo 1076,549
Delay 500
VBSCall FindColorEx(1174,143,1342,530,"0000FF",0,0.8,intX,intY)
If intX>0 and intY>0
    Delay 100
    KeyPress 73,1
    Delay 100
    KeyDown 17,1
    Delay 200
    LeftClick 1
    Delay 100
    KeyUp 17,1
    Delay 100
    MoveTo 901,550
    Delay 2500
    LeftClick 3
    Delay 200
    MoveTo 342,641
    Delay 200
    LeftClick 1
    Delay 300
    MoveTo 1127,69
    Delay 500
    LeftClick 1
    Delay 500
    MoveTo 1080,96
    Delay 200
    KeyDown 17,1
    For 5
        Delay 500
        LeftClick 1
        Delay 200
    EndFor 
    KeyUp 17,1
    Delay 200
    MoveTo 259,639
    Delay 200
    LeftClick 1
    Delay 600
    KeyPress 191,1
    MoveTo 901,550
    Delay 3000
    LeftClick 3
    Delay 300
    MoveTo 343,641
    Delay 200
    LeftClick 1
    Delay 200
    For 5
        MoveTo 901,550
        Delay 3000
        LeftClick 3
        Delay 300
        LeftClick 3
        Delay 300
        LeftDown 3
        Delay 300
        LeftClick 3
        Delay 300
        MoveTo 1011,399
        Delay 200
        LeftDoubleClick 1
        Delay 200
        MoveTo 1115,463
        Delay 200
        LeftClick 1
        Delay 500
    EndFor 
    Delay 300
    KeyPress 191,1
Else 
    Delay 300
    KeyPress 73,1
EndIf 
//Delay 30000