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