Sorry your browser is not supported!

Make object box 8,50,500,50
position object 8,250,250,70
texture object 8,9
make static collision box 225,0,70,275,500,20

Make object box 8,50,500,50
position object 8,250,250,70
texture object 8,9
make static collision box 225,0,70,275,500,20
set object collision on 8

load object "E:\models\Man\roomdemo.x",1
set object specular 1,0
xrotate object 1,270
fix object pivot 1
rotate object 1,0,180,0
set object speed 1,12000
make object collision box 1,-40,0,-40,40,150,40,0
position object 1, 0,0,0

do
   If object collision (1,8)
   cls
   text 300,300, "Hello"
   wait key
   endif
loop

do
   If intersect object (1,object position x(1), object position y(1), object position z(1),250,250,70)
      cls
      print "This is where the question goes"
      wait key
   endif
loop

Make object box 8,50,500,50
position object 8,250,250,70
texture object 8,9
make static collision box 225,0,70,275,500,20
set object collision on 8

sync on:sync rate 15


Bullet=1
Target=2
make object sphere Bullet,1
make object cube Target,2
position object Bullet, 0,0,-30
turn camera left 90
move camera 35
turn camera right 180


Speed#=3

do
if lower$(inkey$())="r" then position object Bullet, 0,0,-30:hit$="No"

if upkey()=1
move object Bullet,Speed#*100
NewX#=object position x(Bullet):NewY#=object position y(Bullet):NewZ#=object position z(Bullet)
move object  Bullet, -Speed#*99
x#=object position x(Bullet):y#=object position y(Bullet):z#=object position z(Bullet)
IO#=intersect object (Target,x#,y#,z#,NewX#,NewY#,NewZ#)
if IO#<=Speed# and IO#>0 then hit$="Yes" else hit$="No"
ENDIF

set cursor 0,0
print "Up Key to Move, 'R' to Reset Bullet"
print
print "Bullet Will Strike On Next Move? "+hit$
print
print "Distance To Impact: ";intersect object (Target,x#,y#,z#,NewX#,NewY#,NewZ#)
sync    
LOOP

Make object box 8,50,500,50
position object 8,250,250,70
color object 8, rgb(255,0,0)
`texture object 8,9
`make static collision box 225,0,70,275,500,20
`set object collision on 8

`load object "E:\models\Man\roomdemo.x",1
make object cube 1,100
color object 1,rgb(0,255,0)

make object box 200, 1000,1,1000
autocam off
POSITION CAMERA 0,500,500
POINT CAMERA 0,0,0

sync on : sync rate 30
do
   if upkey()=1 then z=z-1
   if downkey()=1 then z=z+1
   if leftkey()=1 then x=x+1
   if rightkey()=1 then x=x-1
   position object 1,x,y,z

   If object collision (1,8)
      cls
      text 300,300, "Hello"
      wait key
   endif
   sync
loop

color backdrop rgb(0,0,0)
   for y = 1 to 100
   if object exist (0 + y) then hide object (0 + y)
   next y
   cls
   set text size 40 : ink rgb (0,0,225),0
   print hello
   input "Your name is:",name$

sync on:sync rate 60:autocam off:set global collision off
esn=1:pj=2:set camera range 0.01,30000
x as float :y as float :z as float :v as float
c#=0.2
smooth=2

` Loading level
load object "level.dbo",esn
position object 1,0,-2,0

` Player object
make object sphere pj,4
   v=object size(pj)
      position object pj,0,5,0
hide object pj
do

 x=object position x(pj):y=object position y(pj):z=object position z(pj)

` collision with X
if INTERSECT OBJECT(esn,x,y,z,x+v,y,z)>0 then x=x-(v-INTERSECT OBJECT(esn,x,y,z,x+v,y,z))/smooth
if INTERSECT OBJECT(esn,x,y,z,x-v,y,z)>0 then x=x+(v-INTERSECT OBJECT(esn,x,y,z,x-v,y,z))/smooth

` collision with Z
if INTERSECT OBJECT(esn,x,y,z,x,y,z+v)>0 then z=z-(v-INTERSECT OBJECT(esn,x,y,z,x,y,z+v))/smooth
if INTERSECT OBJECT(esn,x,y,z,x,y,z-v)>0 then z=z+(v-INTERSECT OBJECT(esn,x,y,z,x,y,z-v))/smooth

`collision with Y
if INTERSECT OBJECT(esn,x,y,z,x,y-v,z)>0 then y=y+(v-INTERSECT OBJECT(esn,x,y,z,x,y-v,z))/3

`Gravity
if INTERSECT OBJECT(esn,x,y,z,x,y-v,z)=0 then gravedad#=0.8 else gravedad#=0.25

`player movements
if upkey()=1 THEN x=NEWXVALUE(x,gr,c#):if upkey()=1 then z=NEWZVALUE(z,gr,c#)
if downkey()=1 THEN x=NEWXVALUE(x,gr,-c#):if downkey()=1 then z=NEWZVALUE(z,gr,-c#)
`slide left
if leftkey()=1 THEN x=NEWXVALUE(x,gr-90,c#):if leftkey()=1 then z=NEWZVALUE(z,gr-90,c#)
`slide right
if rightkey()=1 THEN x=NEWXVALUE(x,gr-90,-c#):if rightkey()=1 then z=NEWZVALUE(z,gr-90,-c#)

`camera and player position
position object pj, x, y-gravedad#, z
position camera  x,2+y-gravedad#,z
`camera movements
gr=wrapvalue(gr+mousemovex()/2)
gr2=wrapvalue(gr2+mousemovey()/2)
rotate camera gr2,0,0
yrotate camera gr
`camera rotation limits
 if gr2<=290 and gr2>180 then gr2=290
 if gr2>=70 and gr2<180 then gr2=70
   sync
loop