in.Window.Foreground()
sRect = Plugin.Window.GetClientRect(A)
MyArray=Split(Rect,"|")
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))
Rem B
Call Plugin.Bkgnd.KeyDown(A, 37)
Delay 1000
Call Plugin.Bkgnd.KeyUp(A, 37)
Delay 50
Call Plugin.Bkgnd.KeyDown(A, 39)
Delay 1000
Call Plugin.Bkgnd.KeyUp(A, 39)
Delay 50
IfColor 246+Ux,102+Uy,"030334",0 Then
    Call Plugin.Bkgnd.KeyPress(A, 98)
ENDIf
IfColor 99+Ux,106+Uy,"0",0 Then
    Call Plugin.Bkgnd.KeyPress(A, 103)
    Delay 1000
        Call Plugin.Bkgnd.KeyPress(A, 13)
    Delay 1000
    Call Plugin.Bkgnd.KeyPress(A, 13)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(A, 259+Ux, 496+Uy)
    Delay 500
End If
IfColor 99+UX,102+Uy,"0",0 Then
    Call Plugin.Bkgnd.KeyPress(A, 103)
    Delay 1000
    Call Plugin.Bkgnd.KeyPress(A, 39)
    Delay 1000
        Call Plugin.Bkgnd.KeyPress(A, 13)
    Delay 1000
        Call Plugin.Bkgnd.KeyPress(A, 13)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(A, 259+Ux, 496+Uy)
    Delay 500
End If
IfColor 256+Ux,261+Uy,"24DAFF",0 Then
Call Plugin.Bkgnd.LeftClick(A, 256+Ux, 261+Uy)
    End If
Goto B