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 mouseclick()=1 and s = 0
   s = 1
   circle mousex(),mousex(),1
else
   if mouseclick()=0 and click = 1
      click = 0
      circle gravx,gravy,2
      gravy = gravy + 1.0
   endif
endif


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