SaveMousePos 
LockMouse 
Rem 1
KeyPress 120,1
For 6
    RightClick 1
    Delay 200
EndFor 
For 2
    KeyPress 122,1
    For 5
        RightClick 1
        Delay 100
    EndFor 
    RightClick 1
    Delay 800
    For 1
        IfColor 51,26,4a4939,0
            Gosub f1
            Delay 100
        Else 
        EndIf 
        Delay 100
    EndFor 
EndFor 
KeyPress 120,1
For 20
    For 1
        RightClick 1
        Delay 800
    EndFor 
    For 1
        IfColor 51,26,4a4939,0
            Gosub f1
            Delay 100
        Else 
        EndIf 
        Delay 100
    EndFor 
EndFor 
Goto 1
Sub f1
    IfColor 21,461,101818,1
        Delay 100
        KeyPress 112,1
        Delay 100
    Else 
        Gosub f2
    EndIf 
Return f1
Sub f2
    IfColor 57,461,101818,1
        Delay 100
        KeyPress 113,1
        Delay 100
    Else 
        Gosub f3
    EndIf 
Return f2
Sub f3
    IfColor 93,461,101818,1
        Delay 100
        KeyPress 114,1
        Delay 100
    Else 
        Gosub f4
    EndIf 
Return f3
Sub f4
    IfColor 129,461,101818,1
        Delay 100
        KeyPress 115,1
        Delay 100
    Else 
        Gosub f5
    EndIf 
Return f4
Sub f5
    IfColor 165,461,101818,1
        Delay 100
        KeyPress 116,1
        Delay 100
    Else 
        Gosub f6
    EndIf 
Return f5
Sub f6
    IfColor 201,461,101818,1
        Delay 100
        KeyPress 117,1
        Delay 100
    Else 
        Gosub f7
    EndIf 
Return f5
Sub f7
    IfColor 237,461,101818,1
        Delay 100
        KeyPress 118,1
        Delay 100