fColor 11,9,2041f,1
    VBSCall FindColor(0,0,1400,900,"E59D7E",intX,intY)
    MoveTo intX,intY
    Delay 1000
    LeftDown 1
    Delay 1000
    MoveTo 24,14
    Delay 1000
    LeftUp 1
    Delay 1000
    IfColor 11,9,2041f,0
        Goto 2
    Else 
        Goto 1
    EndIf 
    Rem 2
    Delay 3000
    MoveTo 514,401
    Delay 1000
    MouseWheel -50
    Delay 1000
    MoveTo 514,401
    Delay 1000
    RightDown 1
    Delay 1000
    MoveTo 539,518
    Delay 1000
    RightUp 1
    Delay 1000
    Rem 3
    IfColor 676,751,fd9866,1
        KeyPress 113,1
    Else 
        Goto 4
    EndIf 
    IfColor 677,736,4541fe,1
        KeyPress 112,1
    Else 
        Goto 4
    EndIf 
    Rem 4
    MoveTo 514,401
    Delay 1000
    KeyPress 49,1
    RightClick 1
    Delay 2000
    MoveTo 514,401
    KeyPress 50,1
    RightClick 1
    Delay 2000
    MoveTo 514,401
    KeyPress 51,1
    RightClick 1
    Delay 2000
    MoveTo 514,401
    KeyPress 32,5
    IfColor 11,9,2041f,0
        Goto 3
    Else 
        Goto 1
    EndIf 
Else 
    Goto 1
EndIf