Auto cabal code 800x600 win mode

IfColor 375 19 0080FF 0
KeyPressH 49,1
Delay 100
KeyPressH 50,1
Delay 100
Else
VBSCall FindColorEx(0,0,800,600,"00D7D7",1,0.8,x,y)
If x>=0 and y>=0
MoveTo x y
Delay 50
LeftClick 1
KeyPressH 49,1
Delay 100
KeyPressH 50,1
Delay 100
KeyPressH 51,1
Delay 100
EndIf
EndIf