fb:porticula NoPaste
Maus-verfolgung
Uploader: | The_Muh |
Datum/Zeit: | 01.09.2007 17:39:03 |
dim as integer x,y,buttons
screenres 800,600,,,1
do
do: sleep 1: getmouse x,y,,buttons:loop while buttons
cls : circle (x,y),15, 15,,,,f
loop until inkey = chr(27)