Sorry your browser is not supported!

sync on : sync rate 100
perform checklist for graphics cards : perform checklist for display modes : set display mode 1024,768,32

ObjClicked=0
make object cube 1,100 : position object 1,0,0,0
make camera 2 : position camera 2,10,0,10 : point camera 2,0,0,0 : set camera range 2,5000 :
Sync

DO
if ObjClicked=0 : xrotate object 1,object angle x(1)+0.5 : endif
if mousex()< object screen x(1)-50 and mousex()> object screen x(1)+50
   if mousey()< object screen y(1)+50 and mousey()> object screen y(1)-50
      if mouseclick()=1 and ObjClicked=0
      ObjClicked=1
         else : if mousclick()=1 and ObjClicked=1
         ObjClicked=0
         endif
      endif
   endif
endif
Sync
LOOP

sync on : sync rate 0 : autocam off

make object cube 1,2

position camera 0,0,-20 : point camera 0,0,0

active=1
stillclicked=0

do

   if mouseclick()=1
      x=mousex() : y=mousey()
      ox=object screen x(1) : oy=object screen y(1)
      if x > ox-50 and x < ox+50 and y > oy-50 and y < oy+50 and stillclicked=0
         active=1-active
         stillclicked=1
      endif
   else
      if stillclicked=1
         stillclicked=0
      endif
   endif

   if active=1
      turn object left 1,1
   endif

   sync
loop

sync on : sync rate 0 : autocam off

make object cube 1,2

position camera 0,0,-20 : point camera 0,0,0

active=1
stillclicked=0

do

   if mouseclick()=1
      if stillclicked=0
         if pick object(mousex(),mousey(),1,1)=1
            active=1-active
            stillclicked=1
         endif
      endif
   else
      stillclicked=0
   endif

   if active=1
      turn object left 1,1
   endif

   sync
loop