$r = "1234"
$c = 0
WHILE($c = 0)
$n = INT(STRCUT($r,RND(1,STRLEN($r)),1))
IF(STRLEN($r) > 1)
$r = INT(STRFILTER ($r, $n, 0))
Else
$c = 1
END_IF
SWITCH($n)
CASE(1)
LCLICK(RND(143,350),RND(55,219))
CASE(2)
LCLICK(RND(670,840),RND(79,276))
CASE(3)
LCLICK(RND(1091,1317),RND(76,268))
CASE(4)
LCLICK(RND(1045,1232),RND(836,987))
END_SWITCH
WAITMS(100)
END_CYC
HALT