else while ($calc($1 $iif($r(0,1),-,+) $r( [ %rxecart ] )) & $calc($2 - $r( [ %ryecart ] ))) { var -s %x $v1 ,%y $v2 ,%x $iif($inrect(%x,%y,0,0,200,400),%x) ,%y $iif($inrect(%x,%y,0,0,200,400),%y) | if (%x != $null) break }