$hwnd = HGET(60,95)
hset($hwnd, 1)
print($hwnd)
//$x = $_return1+2
//$y = $_return2+2
$x = rnd(1,20)
$y = rnd(1,20)
print("\x-"$x, "\y-"$y)
//postmessage($hwnd, 0x0200, 0, $xp + ($yp*65536))
WAITMS(rnd(100,200))
postmessage($hwnd, 0x0201, 0x0001, $x + ($y*65536))
WAITMS(rnd(1000,2000))
postmessage($hwnd, 0x0202, 0x0000, $x + ($y*65536))
WAITMS(rnd(800,1200))