Untitled

gravx as float
gravy as float

gravx = 0.0
gravy = 0.0
sync on : sync rate 60
SET CURRENT BITMAP 0
randomize timer()
do

if click = 0
gravy = gravy + 1.0
endif
if mouseclick()=1 and click = 0
   click = 1
   circle mousex()+gravx,mousey()+gravy,20
else
 if mouseclick()=1 and click = 1
 click=0
      circle mousex()+gravx,mousey()+gravy,2
      endif
endif


text 20,20,"mousex: " + str$(mousex())
text 20,40,"mousey: " + str$(mousey())
sync
loop