$cx = INT($_xmax/2)
$cy = INT($_ymax/2)
$r = 0.1
$pi = 3.1415926535
FOR($f,$f<3600, 3)
$a = $r/2 * $pi * $f
$COS = COS($f)
$SIN = SIN($f)
$x = $cx + INT($a*$COS)
$y = $cy + INT($a*$SIN)
IF(($y > $_ymax) | ($y < 0))
$f = 10000
ELSE
MOVE($x,$y)
WAITMS(10)
GETSCREEN
IF_PICTURE_IN ($_xmouse,$_ymouse,$_xmouse+30,$_ymouse+30, "ruka.bmp")
LCLICK($_return1,$_return2)
WAITMS(100)
ELSE
IF_PICTURE_IN ($_xmouse,$_ymouse,$_xmouse+30,$_ymouse+30, "mech.bmp")
RDOWN($_return1,$_return2)
WAITMS(50)
LCLICK($_return1,$_return2)
WAITMS(50)
RUP($_return1,$_return2)
WAITMS(100)
END_IF
END_IF
END_IF
END_CYC