08-22-2024, 06:45 PM
(08-22-2024, 05:28 PM)OldMoses Wrote: We don' need no stinking nests...Huh, LOL, how did I not know that either? It's a shortened version of the method I posted.
It seems like really, really bad form to me, but it compiles and runs...Code: (Select All)SCREEN _NEWIMAGE(500, 500, 32)
$COLOR:32
DO
CLS
LINE (200, 200)-(300, 300), Green, BF
WHILE _MOUSEINPUT: WEND
x = _MOUSEX: y = _MOUSEY
IF x > 200 THEN IF x < 300 THEN IF y > 200 THEN IF y < 300 THEN _PRINTSTRING (240, 240), "OK!"
_LIMIT 30
_DISPLAY
LOOP UNTIL _MOUSEBUTTON(1) OR _KEYDOWN(27)