Sorry your browser is not supported!

autocam off
make matrix 1,100,100,10,10
set matrix wireframe off 1
make object cylinder 1,2
x#=50
z#=50
position object 1,x#,0,z#
position camera 50,20,0
point camera 50,0,50
obj=2

do
if upkey() then z#=z#+0.1
if downkey() then z#=z#-0.1
if leftkey() then x#=x#-0.1
if rightkey() then x#=x#+0.1
if spacekey()
   make object sphere obj,2
   position object obj,x#,0.5,z#
   color object obj,rgb(rnd(255),rnd(255),rnd(255))
   inc obj
   wait 250
endif
position object 1,x#,0,z#
loop

autocam off
make matrix 1,100,100,10,10
set matrix wireframe off 1
make object cylinder 1,2
x#=50
z#=50
position object 1,x#,0,z#
position camera 50,20,0
point camera 50,0,50
obj=2

do
z#=z#-mousemovey()
x#=x#+mousemovex()

if mouseclick()=1
   make object sphere obj,2
   position object obj,x#,0.5,z#
   color object obj,rgb(255,0,255)
   inc obj
endif
position object 1,x#,0,z#
loop

Rem Ba esme Allah
autocam off

make matrix 1,100,100,10,10
make object cylinder 1,2
x#=50
z#=50
position object 1,x#,0,z#
hide object 1
position camera 50,20,0
point camera 50,0,50

make object sphere 2,2
position object 2,50,0.5,55
color object 2,rgb(0,0,255)

make object cone 3,2
xrotate object 3,180
hide object 3

do

z#=z#-(mousemovey()/1.5)
x#=x#+(mousemovex()/1.5)

position mouse object screen x(1),object screen y(1)

if mouseclick()=1
   if object position x(1)> (object position x(2)-2) and object position x(1)< (object position x(2)+2) and object position z(1)> (object position z(2)-2) and object position z(1) < (object position z(2)+2)
      show object 3
      position object 3,x#,3,z#
      position object 2,x#,0.5,z#
   endif
endif

if mouseclick()=2
   hide object 3
endif

position object 1,x#,0,z#

loop