Sorry your browser is not supported!

repeat : sync : until mousclick()=0

oldclick=newclick
newclick=mouseclick()

if newclick > oldclick
  print "You Clicked! That's Great!"
endif

oldclick=newclick
newclick=mouseclick()

if (newclick=2) > (oldclick=2)
  print "You Right-Clicked! That's Great!"
endif

make object cube 1,100
`ensure there is enough range for zoom effect
set camera range 1,8000
`assign z to the mousewheel plus desired height(zoom) 
`assign nz to z to ensure accurate checking 
z=mousemovez()+1300 :  nz=z
`set initial position of camera
position camera object position x(1),z,object position z(1)
`focus camera on object 1
point camera object position x(1),0,object position z(1)
color backdrop 0


do
`check to see if mousewheel has moved !
nz=mousemovez()
`if mousewheel has moved then reset zoom level
if nz<>z : z=1300-nz : endif
`reposition and focus on object 1 at new zoom level 
position camera object position x(1),z,object position z(1)
point camera object position x(1),0,object position z(1)
loop

set display mode 1024,768,32
hide mouse
sync on

`make texture
ink 0,0
box 0,0,20,20
ink rgb(200,100,0),0
box 1,1,19,19
get image 1,0,0,21,21

for cube = 1 to 20
   make object cube cube,1
   rotate object cube,20,315,0
   position object cube,cube*3,0,0
   set object specular cube,rgb(128,128,128),2
   texture object cube,1

   make object cube cube+50,1
   rotate object cube+50,20,315,0
   position object cube+50,cube*3+1.5,0,-30
   set object specular cube+50,rgb(128,128,128),1
   texture object cube+50,1
next cube

NewFOV#=3.14/2.905
position camera 30,0,-40
point camera 30,0,0

`---------------------
` Main Loop
`---------------------
DO

if mouseclick()=2 and (timer()-waitbtn)>500
   waitbtn=timer()
   if NewFOV# > 0.2 then dec NewFOV#,0.2 else NewFOV#=3.14/2.905
endif

CamFOV# = curvevalue(NewFOV#,CamFOV#,5)
set camera FOV CamFOV#

sync
LOOP

set display mode 1024,768,32
hide mouse
sync on

`make texture
ink 0,0
box 0,0,20,20
ink rgb(200,100,0),0
box 1,1,19,19
get image 1,0,0,21,21

for cube = 1 to 20
   make object cube cube,1
   rotate object cube,20,315,0
   position object cube,cube*3,0,0
   set object specular cube,rgb(128,128,128),2
   texture object cube,1

   make object cube cube+50,1
   rotate object cube+50,20,315,0
   position object cube+50,cube*3+1.5,0,-30
   set object specular cube+50,rgb(128,128,128),1
   texture object cube+50,1
next cube

`assign z to the mousewheel plus desired height(zoom)
`assign nz to z to ensure accurate checking
z=mousemovez() :  nz=z
NewZ#=-50

position camera 30,0,-40
point camera 30,0,0

`---------------------
` Main Loop
`---------------------
DO

`check to see if mousewheel has moved !
nz=mousemovez()
`if mousewheel has moved then reset zoom level
if nz<>z
   if NewZ# < -10
      inc NewZ#,10
      z=mousemovez()
   else
      NewZ#=-50
   endif
endif

CamZ# = curvevalue(NewZ#,CamZ#,5)
position camera 30,0,CamZ#

sync
LOOP

set display mode 1024,768,32
hide mouse
sync on

`make texture
ink 0,0
box 0,0,20,20
ink rgb(200,100,0),0
box 1,1,19,19
get image 1,0,0,21,21

for cube = 1 to 20
   make object cube cube,1
   rotate object cube,20,315,0
   position object cube,cube*3,0,0
   set object specular cube,rgb(128,128,128),2
   texture object cube,1

   make object cube cube+50,1
   rotate object cube+50,20,315,0
   position object cube+50,cube*3+1.5,0,-30
   set object specular cube+50,rgb(128,128,128),1
   texture object cube+50,1
next cube

`assign z to the mousewheel plus desired height(zoom)
`assign nz to z to ensure accurate checking
z=mousemovez() :  nz=z : moveby#=0.0


position camera 30,0,-40
point camera 30,0,0

`---------------------
` Main Loop
`---------------------
set camera range 1,8000
DO
`check to see if mousewheel has moved !
nz=mousemovez()
`if mousewheel has moved then reset zoom level
if nz>z
move camera 1.5
z=nz
endif
if nz<z
move camera -1.5
z=nz
endif
sync
LOOP

if mouseclick()=1 then  wait 10

// Init your timer stuff -------------------BEGIN
dim iTimer
dim iTimerOld
dim iTimeElapsed

// start with variables so doesn't seem like 
// half a day has gone by when the loop executes the first time

iTimer=0
// Set so that when the loop first executes - it doesn't think
// a lot of time has gone by.
iTimerOld=timer()-1  
// Init your timer stuff -------------------END



// Init MOUSE BUTTON timer related thingy
dim iMouseButton1TimePressed
// Same as the WaiT 10
#CONSTANT cnMouseButton1Delay 10 


// Main Loop ----------------------------BEGIN
repeat 
  iTimerOld = iTimer
  iTimer=Timer()
  // use this for timer based movement and animations :)
  iTimeElapsed = iTimer-iTimerOld

  ...
  // For mouse same thing as the Generic Timer stuff... but 
  // Set up for KEypresses ... Rapid Fire Delay .....
  // in this case - a MouseButton1Click :)
  if(mousebutton1Clicked) then 
    if (iMouseButton1TimePressed-iTimer) > cnMouseButton1Delay 
      iMouseButton1TimePressed=iTimer // reset for next 
      // do Mouse Action Here
    endif
  endif


until bGameOver;
// Main Loop ----------------------------BEGIN

load sound "click.wav",1
do
if mouseclick()=1 and sound playing(1)=0
play sound 1
print "yes this works ! " 
endif
loop