Sorry your browser is not supported!

sync on
sync rate 60
dwidth=desktop width()
dheight=desktop height()
set display mode dwidth,dheight,32,1
hide mouse
set global collision on
gosub makeobjects

rem texturesize=0
rem map$="levelbank\testlevel\level1\universe.dbo"
rem load static objects map$,texturesize

load object "media\nikimap.x",10
make object collision box 1, -5,-5,-5,5,5,5,0
make object collision box 10, -5,-5,-5,5,5,5,0

scale object 10,350,350,350
position object 10,0,0,0
while escapekey()=0

coll=object hit(1,10)
if coll=1 then move object 1,-10
gosub controls
set point light 0,camera position x(),camera position y()+50,camera position z()

sync
 
endwhile
set global collision off
delete object collision box 1
delete object collision box 10
end

controls:


walk=0

 if keystate(17)=1 and object hit(1,10)=0 then move object 1,4 : walk=1
 if keystate(31)=1 and object hit(1,10)=0 then move object 1,-4 : walk=1
 if keystate(30)=1 and object hit(1,10)=0 then yrotate object 1,wrapvalue(object angle y(1)-4) : walk=1
 if keystate(32)=1 and object hit(1,10)=0 then yrotate object 1,wrapvalue(object angle y(1)+4) : walk=1

x#=object position x(1)
y#=object position y(1)
z#=object position z(1)
a#=object angle y(1)
d#=250.0
h#=185.0
s#=50.0
set camera to follow x#,y#,z#,a#,d#,h#,s#,1
set point light 0,camera position x(),camera position y()+50,camera position z()
return

makeobjects:


rem load object "files\sky\cloudcube.x",3
rem position object 3,0,0,0
rem set object texture 3,2,1
rem set object light 3,1
rem yrotate object 3,270
rem scale object 3,30000,30000,30000
rem position object 3,1250,100,-1250
set ambient light 100
position camera 400,250,600

load music "media\sfx\niki_menu.mp3",1
loop music 1

load object "media\hero\niki_1.x",1
scale object 1,80,80,80
set object specular 1,0
position object 1,50,50,-30
yrotate object 1,180
fix object pivot 1
rotate object 1,0,180,0
set object speed 1,10000
make object collision box 1,-40,0,-40,40,150,40,0
position object 1,50,0,-50
yrotate object 1,90
return

`    SLIDING COLLISION
`    LIGHT MAPPING EXAMPLE by  CHAFARI
`    robertochafari@hotmail.com
`===============================================
hide mouse:autocam off:sync on
set ambient light 50
color backdrop rgb(8,8,8)

`****** starting variable values ********************************** *********
`============================================================================
x#=0  :z#=0  :y#=0 :gira#=45  :avance=2 :vol=120  :suavizado=5:jugad=1
`============================================================================

set camera range 10,25000
set ambient light 100

`******** player ******************************
make object cylinder jugad,100
position object jugad,x#,y#,z#
`******** Loading level.x  ********************
load object "iglesia.x",778
scale object 778,800,800,800
set object collision to polygons 778

do
gosub control
sync
loop

control:
oldx#=x#
oldz#=z#
y#=object position y(1)

`Camera controls
gira#=wrapvalue(gira#+mousemovex()*0.7):cam#=wrapvalue(cam#+mousemovey()*0.7)
rotate camera cam#,gira#,0
if cam#<=290 and cam#>180 then cam#=290
if cam#>=70 and cam#<180 then cam#=70

`********* Player movements *************
if upkey()=1 THEN x#=NEWXVALUE(x#,gira#,avance):z#=NEWZVALUE(z#,gira#,avance)
if downkey()=1 THEN x#=NEWXVALUE(x#,gira#,0-avance):z#=NEWZVALUE(z#,gira#,-avance)

`slide left
if leftkey()=1 THEN x#=NEWXVALUE(x#,gira#-90,avance):z#=NEWZVALUE(z#,gira#-90,avance)

`slide right
if rightkey()=1 THEN x#=NEWXVALUE(x#,gira#-90,0-avance):z#=NEWZVALUE(z#,gira#-90,0-avance)

for i= 777 to 790
if object exist (i)
  `distance to the floor (y coordinate)
  if INTERSECT OBJECT(i,x#,y#,z#,x#,y#-vol,z#)>0 then y#=y#+(vol-INTERSECT OBJECT(i,x#,y#,z#,x#,y#-vol,z#))/suavizado

  `if we are not on floor, we fall with the gravity
  if INTERSECT OBJECT(i,x#,y#,z#,x#,y#-90,z#)=0 then gravedad#=3
  endif
next i

rem updating positions
position object jugad,x#+30,y#-gravedad#,z#
position camera x#,y#-gravedad#+60,z#
rem position light 1,x#,y#-gravedad#+40,z#

`sliding collisions
`-----------------------------------
if object collision(jugad,0)>0:gosub zzol
if object collision(jugad,0)=0:z#=oldz#
endif
endif

if object collision(jugad,0)>0:gosub xxol
if object collision(jugad,0)=0:x#=oldx#
endif
endif

if object collision(jugad,0)>0
x#=oldx#:z#=oldz#
endif
return
`------------------------------------
xxol:
POSITION OBJECT jugad,oldx#+30,y#-gravedad#,z#
return

zzol:
POSITION OBJECT jugad,x#+30,y#-gravedad#,oldz#
return