Sorry your browser is not supported!

`===============================================
`    CHAFARI   EXAMPLE
`    sliding collision
`    + intersec object for gravity
`    robertochafari@hotmail.com
`===============================================
set cursor 200,200
print "  P L E A S E   W A I T . . . "
sync

hide mouse:autocam off:sync on
set ambient light 90
color backdrop rgb(0,0,0)


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

set camera range 10,25000

`******** we create the player **************
make object cylinder jugad,100

`******** loading our .x  model ************

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)

`limits for the camera moving
if cam#<=290 and cam#>180 then cam#=290
if cam#>=70 and cam#<180 then cam#=70
rotate camera cam#,gira#,0

`********* 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)

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

`side right movement
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 from floor ( y#)
  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 not floor to stay on ,we fall down for gravity
  if INTERSECT OBJECT(i,x#,y#,z#,x#,y#-90,z#)=0 then gravedad#=3
  endif
next i

rem update camera position
position object jugad,x#+30,y#-gravedad#,z#
position camera x#,y#-gravedad#+40,z#


`THIS PART IS THE MOST IMPORTANT AS IT CALCULATES ALL COLLISION (0º, 90º, º80, 279º)
`-----------------------------------
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

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

Rem * Title  : Chafari Collision Concept
Rem Scorpyo - 2008
top:
rem **********  MAIN 1  ****************
set display mode 1024,768,32
hide mouse
sync on
sync rate 60
backdrop on
global x#,z#,h#,s#,a#
x#=10000.0:h#=0.0:z#=10000.0:turn=0
gosub Makematrix
gosub setambience
gosub Character
gosub makecube
set global collision off
gosub Resetcam
sync rate 60


rem *****MAIN LOOP******
do
if inkey$()="r" then x#=10000.0:z#=10000.0:s#=0.0
if inkey$()="e" then sync rate 0
if inkey$()="E" then sync rate 40
x#=newxvalue(x#,a#,s#)
z#=newzvalue(z#,a#,s#)
gosub Playercontrol
gosub printdata
rem call to camera changes subroutine ( bottom key row )
gosub camera_controls
 rem terrain height check
 gosub heightcheck
 gosub checkcoll
position object 9999,x#,h#,z#
yrotate object 9999,a#
rem calls camera update subroutine
gosub update_camera
rem Update screen
sync
rem End loop
loop

rem ****** CREATE LEVEL ******
Makematrix:
rem create  ground texture
cls rgb(0,100,20)
get image 2,0,0,250,250
rem Make landscape
landsize=23000:grid=30:mtxrandomize=1
make matrix 1,landsize,landsize,grid,grid
set matrix 1,1,0,0,1,1,1,1
prepare matrix texture 1,2,1,1
randomize matrix 1,mtxrandomize
rem ***********
rem get ground done
update matrix 1
return

setambience:
rem Create fog and ambience
set ambient light 80
if fog available()=1
fog on
fog distance 100000
fog color rgb(150,150,255)
endif
return

rem make object
makecube:
make object cube 1000,800
set object 1000,1,1,0,1,1,1,1
rem yrotate object 1000,45
position object 1000,10000,-200,10700
color object 1000,rgb(120,10,10)
return

printdata:
set cursor 0,0
rem set text opaque
rem debug check
print "Fps=",screen fps()
print "polygons=",statistic(1)
print "------player data-------"
print "x#= ",x#
print "z#= ",z#
print "player ground height h#= ",h#
print "camera ground height h2#= ",h#
print "angle#= ",a#
print "speed#= ",s#
print "---------------------------"
print "---------------------------"
print "press r to reset position"
print "W & S = walk"
print "mousemove x = turn"
print "mouse wheel = change camera distance from player"
print "R mouse + mouse move y = change camera height"
print "z and x rotate camera around the player"
return

Playercontrol:
rem ****Character walk ****
rem control walking with w and s keys
 if inkey$()="w" and s#<5 then s#=s#+0.2
 if inkey$()="s" and s#>-5 then s#=s#-0.2
 rem control turning with mousemove along x axis
 turn=mousemovex()
 if turn<0 then a#=wrapvalue(a#-3)
 if turn>0 then a#=wrapvalue(a#+3)
rem stop if "à" is pressed
 if inkey$()="à" then s#=0.0
rem slow if "l"
 if inkey$()="l" then s#=0.2
return

rem ****BUILD PLAYER****
rem object 9999
Character:
rem make cone
 make object cone 9999,30
 rem stretch cone
 scale object 9999,100,300,100
 rem tilt cone
 xrotate object 9999,90
 rem fix tilting angle
 fix object pivot 9999
 rem set object solid (no culling)
 set object 9999,1,1,0
return

rem ********CAMERA ROUTINES***********
camera_controls:
rem reset intial camera pressing <
if inkey$()="<" then gosub Resetcam
rem camera views from high (m and M)
if inkey$()="m" then camdist=-1000:camhgt=500:set camera range 100,40000
if inkey$()="M" then camdist=-3000:camhgt=1000:set camera range 100,40000
rem look around (Right Mouse click + mouse move)
if inkey$()="z" then camrot=camrot+3
if inkey$()="x" then camrot=camrot-3
rem camera distance from character
if mouseclick()=2
mymousey=mousemovey()
if mymousey>0 then camhgt=camhgt+3
if mymousey<0 then camhgt=camhgt-3
endif
rem raise - lower camera (mousewheel)
mymousez=mousemovez()
if mymousez>0 then camdist=camdist+5
if mymousez<0 then camdist=camdist-5
rem don't go below ground
if camhgt<0 then camhgt=0
return

rem camera update
update_camera:
rem Position camera to the back of the character
ca#=wrapvalue(a#+camrot)
cx#=newxvalue(x#,ca#,camdist)
cz#=newzvalue(z#,ca#,camdist)
if h2#>h#
cy#=h2#
else
cy#=h#
endif
position camera cx#,cy#+camhgt,cz#
rem Point camera at walker position
point camera x#,cy#+camlen,z#
return

rem reset camera
Resetcam:
set camera range 10,40000
camdist=-260
camhgt=80
camrot=0
camlen=0

rem ---  check ground  -----
heightcheck:
rem check the height at player position (X & Z)
h#=get ground height(1,x#,z#)
rem check the height at camera position
h2#=get ground height(1,cx#,cz#)
return

rem *********COLLISION**********
checkcoll:
collx#=INTERSECT OBJECT(1000,x#,h#+5,z#,x#+20,h#+5,z#)
if collx#>0 then x#=x#-(20-collx#)
collz#=INTERSECT OBJECT(1000,x#,h#+5,z#,x#,h#+5,z#+20)
if collz#>0 then z#=z#-(20-collz#)
collx2#=INTERSECT OBJECT(1000,x#,h#+5,z#,x#-20,h#+5,z#)
if collx2#>0 then x#=x#+(20-collx2#)
collz2#=INTERSECT OBJECT(1000,x#,h#+5,z#,x#,h#+5,z#-20)
if collz2#>0 then z#=z#+(20-collz2#)
return

end

Rem * Title  : Chafari Collision Concept
Rem Scorpyo - 2008
top:
rem **********  MAIN 1  ****************
set display mode 1024,768,32
hide mouse
sync on
sync rate 60
backdrop on
global x#,z#,h#,s#,a#
x#=10000.0:h#=0.0:z#=10000.0:turn=0
gosub Makematrix
gosub setambience
gosub Character
gosub makecube
set global collision off
gosub Resetcam
sync rate 60


rem *****MAIN LOOP******
do
if inkey$()="r" then x#=10000.0:z#=10000.0:s#=0.0
if inkey$()="e" then sync rate 0
if inkey$()="E" then sync rate 40
x#=newxvalue(x#,a#,s#)
z#=newzvalue(z#,a#,s#)
gosub Playercontrol
gosub printdata
rem call to camera changes subroutine ( bottom key row )
gosub camera_controls
 rem terrain height check
 gosub heightcheck
 gosub checkcoll
position object 9999,x#,h#,z#
yrotate object 9999,a#
rem calls camera update subroutine
gosub update_camera
rem Update screen
sync
rem End loop
loop

rem ****** CREATE LEVEL ******
Makematrix:
rem create  ground texture
cls rgb(0,100,20)
get image 2,0,0,250,250
rem Make landscape
landsize=23000:grid=30:mtxrandomize=1
make matrix 1,landsize,landsize,grid,grid
set matrix 1,1,0,0,1,1,1,1
prepare matrix texture 1,2,1,1
randomize matrix 1,mtxrandomize
rem ***********
rem get ground done
update matrix 1
return

setambience:
rem Create fog and ambience
set ambient light 80
if fog available()=1
fog on
fog distance 100000
fog color rgb(150,150,255)
endif
return

rem make object
makecube:
make object cube 1000,800
set object 1000,1,1,0,1,1,1,1
yrotate object 1000,45
position object 1000,10000,-200,10700
color object 1000,rgb(120,10,10)
return

printdata:
set cursor 0,0
rem set text opaque
rem debug check
print "Fps=",screen fps()
print "polygons=",statistic(1)
print "------player data-------"
print "x#= ",x#
print "z#= ",z#
print "player ground height h#= ",h#
print "camera ground height h2#= ",h#
print "angle#= ",a#
print "speed#= ",s#
print "---------------------------"
print "---------------------------"
print "press r to reset position"
print "W & S = walk"
print "mousemove x = turn"
print "mouse wheel = change camera distance from player"
print "R mouse + mouse move y = change camera height"
print "z and x rotate camera around the player"
return

Playercontrol:
rem ****Character walk ****
rem control walking with w and s keys
 if inkey$()="w" and s#<5 then s#=s#+0.2
 if inkey$()="s" and s#>-5 then s#=s#-0.2
 rem control turning with mousemove along x axis
 turn=mousemovex()
 if turn<0 then a#=wrapvalue(a#-3)
 if turn>0 then a#=wrapvalue(a#+3)
rem stop if "à" is pressed
 if inkey$()="à" then s#=0.0
rem slow if "l"
 if inkey$()="l" then s#=0.2
return

rem ****BUILD PLAYER****
rem object 9999
Character:
rem make cone
 make object cone 9999,30
 rem stretch cone
 scale object 9999,100,300,100
 rem tilt cone
 xrotate object 9999,90
 rem fix tilting angle
 fix object pivot 9999
 rem set object solid (no culling)
 set object 9999,1,1,0
return

rem ********CAMERA ROUTINES***********
camera_controls:
rem reset intial camera pressing <
if inkey$()="<" then gosub Resetcam
rem camera views from high (m and M)
if inkey$()="m" then camdist=-1000:camhgt=500:set camera range 100,40000
if inkey$()="M" then camdist=-3000:camhgt=1000:set camera range 100,40000
rem look around (Right Mouse click + mouse move)
if inkey$()="z" then camrot=camrot+3
if inkey$()="x" then camrot=camrot-3
rem camera distance from character
if mouseclick()=2
mymousey=mousemovey()
if mymousey>0 then camhgt=camhgt+3
if mymousey<0 then camhgt=camhgt-3
endif
rem raise - lower camera (mousewheel)
mymousez=mousemovez()
if mymousez>0 then camdist=camdist+5
if mymousez<0 then camdist=camdist-5
rem don't go below ground
if camhgt<0 then camhgt=0
return

rem camera update
update_camera:
rem Position camera to the back of the character
ca#=wrapvalue(a#+camrot)
cx#=newxvalue(x#,ca#,camdist)
cz#=newzvalue(z#,ca#,camdist)
if h2#>h#
cy#=h2#
else
cy#=h#
endif
position camera cx#,cy#+camhgt,cz#
rem Point camera at walker position
point camera x#,cy#+camlen,z#
return

rem reset camera
Resetcam:
set camera range 10,40000
camdist=-260
camhgt=80
camrot=0
camlen=0

rem ---  check ground  -----
heightcheck:
rem check the height at player position (X & Z)
h#=get ground height(1,x#,z#)
rem check the height at camera position
h2#=get ground height(1,cx#,cz#)
return

rem *********COLLISION**********
checkcoll:
collx#=INTERSECT OBJECT(1000,x#,h#+5,z#,x#+20,h#+5,z#)
if collx#>0 then x#=x#-(20-collx#)
collz#=INTERSECT OBJECT(1000,x#,h#+5,z#,x#,h#+5,z#+20)
if collz#>0 then z#=z#-(20-collz#)
collx2#=INTERSECT OBJECT(1000,x#,h#+5,z#,x#-20,h#+5,z#)
if collx2#>0 then x#=x#+(20-collx2#)
collz2#=INTERSECT OBJECT(1000,x#,h#+5,z#,x#,h#+5,z#-20)
if collz2#>0 then z#=z#+(20-collz2#)
return

end

Rem * Title  : Chafari Collision Concept
Rem Scorpyo - 2008
rem Setting by chafari April 21 -2008
top:
rem **********  MAIN 1  ****************

set display mode 1024,768,16
ink rgb(200,0,0),1
box 0,0,40,40
ink rgb(0,200,0),1
box 10,10,20,20
get image 51,0,0,40,40,1
hide mouse
sync on
sync rate 60
rem backdrop on
global x#,z#,h#,s#,a#
x#=10000.0:h#=0.0:z#=10000.0:turn=0
gosub Makematrix
gosub setambience
gosub Character
gosub makecube
set global collision off
gosub Resetcam
sync rate 60
soft=5

rem *****MAIN LOOP******
do
if inkey$()="r" then x#=10000.0:z#=10000.0:s#=0.0
if inkey$()="e" then sync rate 0
if inkey$()="E" then sync rate 40
x#=newxvalue(x#,a#,s#)
z#=newzvalue(z#,a#,s#)
gosub Playercontrol
gosub printdata
rem call to camera changes subroutine ( bottom key row )
gosub camera_controls
 rem terrain height check
 gosub heightcheck
 gosub checkcoll
position object 9999,x#,h#,z#
yrotate object 9999,a#
rem calls camera update subroutine
gosub update_camera
rem Update screen
sync
rem End loop
loop

rem ****** CREATE LEVEL ******
Makematrix:
rem create  ground texture
cls rgb(0,100,20)
get image 2,0,0,250,250
rem Make landscape
landsize=23000:grid=30:mtxrandomize=1
make matrix 1,landsize,landsize,grid,grid
set matrix 1,1,0,0,1,1,1,1
prepare matrix texture 1,2,1,1
randomize matrix 1,mtxrandomize
rem ***********
rem get ground done
update matrix 1
return

setambience:
rem Create fog and ambience
set ambient light 2
if fog available()=1
rem fog on
fog distance 100000
fog color rgb(150,150,255)
endif
return

rem make object
makecube:
make object box 1000,800,500,800
 set object 1000,1,1,0,1,1,1,1
yrotate object 1000,45
position object 1000,10000,-200,10700
 rem color object 1000,rgb(255,10,10)
make object box 1001,800,500,800
make mesh from object 1,1001:delete object 1001
add limb 1000,1,1:rotate limb 1000,1,0,40,0:offset limb 1000,1,800,0,800



texture object 1000,51:scale object texture 1000,35,35
return

printdata:
set cursor 0,0
rem set text opaque
rem debug check
print "Fps=",screen fps()
print "polygons=",statistic(1)
print "------player data-------"
print "x#= ",x#
print "z#= ",z#
print "player ground height h#= ",h#
print "camera ground height h2#= ",h#
print "angle#= ",a#
print "speed#= ",s#
print "---------------------------"
print "---------------------------"
print "press r to reset position"
print "W & S = walk"
print "mousemove x = turn"
print "mouse wheel = change camera distance from player"
print "R mouse + mouse move y = change camera height"
print "z and x rotate camera around the player"
return

Playercontrol:
rem ****Character walk ****
rem control walking with w and s keys
 if inkey$()="w"  then s#=3
 if inkey$()="s"  then s#=-3
if scancode()=0 then s#=0
 rem control turning with mousemove along x axis
 turn=mousemovex()
 if turn<0 then a#=wrapvalue(a#-3)
 if turn>0 then a#=wrapvalue(a#+3)
rem stop if "à" is pressed
 if inkey$()="à" then s#=0.0
rem slow if "l"
 if inkey$()="l" then s#=0.2
return

rem ****BUILD PLAYER****
rem object 9999
Character:
rem make cone
 make object cone 9999,30
 rem stretch cone
 scale object 9999,100,300,100
 rem tilt cone
 xrotate object 9999,90
 rem fix tilting angle
 fix object pivot 9999
 rem set object solid (no culling)
 set object 9999,1,1,0
return

rem ********CAMERA ROUTINES***********
camera_controls:
rem reset intial camera pressing <
if inkey$()="<" then gosub Resetcam
rem camera views from high (m and M)
if inkey$()="m" then camdist=-1000:camhgt=500:set camera range 100,40000
if inkey$()="M" then camdist=-3000:camhgt=1000:set camera range 100,40000
rem look around (Right Mouse click + mouse move)
if inkey$()="z" then camrot=camrot+3
if inkey$()="x" then camrot=camrot-3
rem camera distance from character
if mouseclick()=2
mymousey=mousemovey()
if mymousey>0 then camhgt=camhgt+3
if mymousey<0 then camhgt=camhgt-3
endif
rem raise - lower camera (mousewheel)
mymousez=mousemovez()
if mymousez>0 then camdist=camdist+5
if mymousez<0 then camdist=camdist-5
rem don't go below ground
if camhgt<0 then camhgt=0
return

rem camera update
update_camera:
rem Position camera to the back of the character
ca#=wrapvalue(a#+camrot)
cx#=newxvalue(x#,ca#,camdist)
cz#=newzvalue(z#,ca#,camdist)
if h2#>h#
cy#=h2#
else
cy#=h#
endif
position camera cx#,cy#+camhgt,cz#
rem Point camera at walker position
point camera x#,cy#+camlen,z#
return

rem reset camera
Resetcam:
set camera range 10,40000
camdist=-260
camhgt=80
camrot=0
camlen=0

rem ---  check ground  -----
heightcheck:
rem check the height at player position (X & Z)
h#=get ground height(1,x#,z#)
rem check the height at camera position
h2#=get ground height(1,cx#,cz#)
return

rem *********COLLISION**********

checkcoll:
collx#=INTERSECT OBJECT(1000,x#,h#+5,z#,x#+20,h#+5,z#)
if collx#>0 then x#=x#-(20-collx#)/soft
collz#=INTERSECT OBJECT(1000,x#,h#+5,z#,x#,h#+5,z#+20)
if collz#>0 then z#=z#-(20-collz#)/soft
collx2#=INTERSECT OBJECT(1000,x#,h#+5,z#,x#-20,h#+5,z#)
if collx2#>0 then x#=x#+(20-collx2#)/soft
collz2#=INTERSECT OBJECT(1000,x#,h#+5,z#,x#,h#+5,z#-20)
if collz2#>0 then z#=z#+(20-collz2#)/soft
return

end

Rem * Title  : Chafari Collision Concept
Rem Scorpyo - 2008
rem Setting by chafari April 21 -2008
top:
rem **********  MAIN 1  ****************

set display mode 1024,768,16
ink rgb(200,0,0),1
box 0,0,40,40
ink rgb(0,200,0),1
box 10,10,20,20
get image 51,0,0,40,40,1
hide mouse
sync on
sync rate 60
rem backdrop on
global x#,z#,h#,s#,a#
x#=10000.0:h#=0.0:z#=10000.0:turn=0
gosub Makematrix
gosub setambience
gosub Character
gosub makecube
gosub maketrackingobjects
set global collision off
gosub Resetcam
sync rate 60
soft=5

rem *****MAIN LOOP******
do
if inkey$()="r" then x#=10000.0:z#=10000.0:s#=0.0
if inkey$()="e" then sync rate 0
if inkey$()="E" then sync rate 40
x#=newxvalue(x#,a#,s#)
z#=newzvalue(z#,a#,s#)
gosub Playercontrol
gosub printdata
rem call to camera changes subroutine ( bottom key row )
gosub camera_controls
 rem terrain height check
 gosub heightcheck
 gosub checkcoll
 gosub putspheres
position object 9999,x#,h#,z#
yrotate object 9999,a#
rem calls camera update subroutine
gosub update_camera
rem Update screen
sync
rem End loop
loop

rem ****** CREATE LEVEL ******
Makematrix:
rem create  ground texture
cls rgb(0,100,20)
get image 2,0,0,250,250
rem Make landscape
landsize=23000:grid=30:mtxrandomize=1
make matrix 1,landsize,landsize,grid,grid
set matrix 1,1,0,0,1,1,1,1
prepare matrix texture 1,2,1,1
randomize matrix 1,mtxrandomize
rem ***********
rem get ground done
update matrix 1
return

setambience:
rem Create fog and ambience
set ambient light 2
if fog available()=1
rem fog on
fog distance 100000
fog color rgb(150,150,255)
endif
return

rem make object
makecube:
make object box 1000,800,500,800
 set object 1000,1,1,0,1,1,1,1
yrotate object 1000,45
position object 1000,10000,-200,10700
 rem color object 1000,rgb(255,10,10)
make object box 1001,800,500,800
make mesh from object 1,1001:delete object 1001
add limb 1000,1,1:rotate limb 1000,1,0,40,0:offset limb 1000,1,800,0,800



texture object 1000,51:scale object texture 1000,35,35
return

printdata:
set cursor 0,0
rem set text opaque
rem debug check
print "Fps=",screen fps()
print "polygons=",statistic(1)
print "------player data-------"
print "x#= ",x#
print "z#= ",z#
print "player ground height h#= ",h#
print "camera ground height h2#= ",h#
print "angle#= ",a#
print "speed#= ",s#
print "---------------------------"
print "---------------------------"
print "press r to reset position"
print "W & S = walk"
print "mousemove x = turn"
print "mouse wheel = change camera distance from player"
print "R mouse + mouse move y = change camera height"
print "z and x rotate camera around the player"
return

Playercontrol:
rem ****Character walk ****
rem control walking with w and s keys
 if inkey$()="w"  then s#=3
 if inkey$()="s"  then s#=-3
if scancode()=0 then s#=0
 rem control turning with mousemove along x axis
 turn=mousemovex()
 if turn<0 then a#=wrapvalue(a#-3)
 if turn>0 then a#=wrapvalue(a#+3)
rem stop if "à" is pressed
 if inkey$()="à" then s#=0.0
rem slow if "l"
 if inkey$()="l" then s#=0.2
return

rem ****BUILD PLAYER****
rem object 9999
Character:
rem make cone
 make object cone 9999,30
 rem stretch cone
 scale object 9999,100,300,100
 rem tilt cone
 xrotate object 9999,90
 rem fix tilting angle
 fix object pivot 9999
 rem set object solid (no culling)
 set object 9999,1,1,0
return

rem ********CAMERA ROUTINES***********
camera_controls:
rem reset intial camera pressing <
if inkey$()="<" then gosub Resetcam
rem camera views from high (m and M)
if inkey$()="m" then camdist=-1000:camhgt=500:set camera range 100,40000
if inkey$()="M" then camdist=-3000:camhgt=1000:set camera range 100,40000
rem look around (Right Mouse click + mouse move)
if inkey$()="z" then camrot=camrot+3
if inkey$()="x" then camrot=camrot-3
rem camera distance from character
if mouseclick()=2
mymousey=mousemovey()
if mymousey>0 then camhgt=camhgt+3
if mymousey<0 then camhgt=camhgt-3
endif
rem raise - lower camera (mousewheel)
mymousez=mousemovez()
if mymousez>0 then camdist=camdist+5
if mymousez<0 then camdist=camdist-5
rem don't go below ground
if camhgt<0 then camhgt=0
return

rem camera update
update_camera:
rem Position camera to the back of the character
ca#=wrapvalue(a#+camrot)
cx#=newxvalue(x#,ca#,camdist)
cz#=newzvalue(z#,ca#,camdist)
if h2#>h#
cy#=h2#
else
cy#=h#
endif
position camera cx#,cy#+camhgt,cz#
rem Point camera at walker position
point camera x#,cy#+camlen,z#
return

rem reset camera
Resetcam:
set camera range 10,40000
camdist=-260
camhgt=80
camrot=0
camlen=0

rem ---  check ground  -----
heightcheck:
rem check the height at player position (X & Z)
h#=get ground height(1,x#,z#)
rem check the height at camera position
h2#=get ground height(1,cx#,cz#)
return

rem *********COLLISION**********

checkcoll:
collx#=INTERSECT OBJECT(1000,x#,h#+5,z#,x#+20,h#+5,z#)
if collx#>0 then x#=x#-(20-collx#)/soft
collz#=INTERSECT OBJECT(1000,x#,h#+5,z#,x#,h#+5,z#+20)
if collz#>0 then z#=z#-(20-collz#)/soft
collx2#=INTERSECT OBJECT(1000,x#,h#+5,z#,x#-20,h#+5,z#)
if collx2#>0 then x#=x#+(20-collx2#)/soft
collz2#=INTERSECT OBJECT(1000,x#,h#+5,z#,x#,h#+5,z#-20)
if collz2#>0 then z#=z#+(20-collz2#)/soft
return

putspheres:
position object 11,x#+20,h#+5,z#
position object 12,x#,h#+5,z#+20
position object 13,x#-20,h#+5,z#
position object 14,x#,h#+5,z#-20
position object 15,x#,h#+5,z#
return

maketrackingobjects:
for n=11 to 14
make object sphere n,3
next n
make object cylinder 15,2
scale object 15,100,700,100
return

end

autocam off
sync on
`we make the floor
make object box 100,500,2,500:color object 100,rgb(0,255,0)
set object collision off 100

`the player
make object box 1,20,20,20:color object 1,rgb(100,0,0)
set object collision to boxes 1

`the wall
make object box 2,150,20,2:position object 2,0,25,50
`second wall
make object box 3,100,20,2:position object 3,0,25,-100

position camera -150,150,-150
point camera 0,0,0
do
`instead of moving the object, we position the object in x,y,z coordinates

`we save last z movement ( lastz#=z#)
lastz#=z#


`arrowskey moving
if upkey()=1 then x#=newxvalue(x#,a#,1) : z#=newzvalue(z#,a#,1)
if downkey()=1 then x#=newxvalue(x#,a#,-1) : z#=newzvalue(z#,a#,-1)
if leftkey()=1 then a#=wrapvalue(a#-1)
if rightkey()=1 then a#=wrapvalue(a#+1)

`we position the player in x#,y#,z#
position object 1,x#,20,z#
yrotate object 1,a#

`if we collide, we change the value of z# for the value of lastz#
if object collision(1,0)>0 then z#=lastz#


`THIS IS EASY WITH JUST ONE COORDINATE...

sync
loop

if INTERSECT OBJECT(level,x,y,z,x+10,y,z)>0 then x=x-(10-INTERSECT OBJECT(level,x,y,z,x+10,y,z))

rem ********************************************
rem CHAFARI  26 April 2008
rem Tutorial for Twinsen
rem showing sliding collision with some helpers
rem ********************************************
rem creating some texture
ink rgb(0,100,0),0
box 0,0,100,100
ink rgb(0,180,0),1
box 25,25,75,75
get image 1,0,0,100,100,1
autocam off
sync on

rem object player
make object box 1,10,10,10

rem helper objects(four)
for i= 2 to 5
make object box i,10,10,10
color object i,rgb(255,0,0)
next i

rem some more obstacles _to collide with.
for i= 10 to 50
make object box i,200,30,180
position object i,40+rnd(2000),rnd(5),40+rnd(2000)
yrotate object i,rnd(90)
color object i,rgb(rnd(255),rnd(255),rnd(255))
next i

rem adding a floor_
make object box 1000,4000,1,4000:position object 1000,0,-10,0
texture object 1000,1
scale object texture 1000,80,80
do
rem player movements
IF upkey()=1 then x#=NEWXVALUE(x#,gira#,1):z#=NEWZVALUE(z#,gira#,1)
IF downkey()=1 then x#=NEWXVALUE(x#,gira#,-1):z#=NEWZVALUE(z#,gira#,-1)
if leftkey()=1 then gira#=wrapvalue(gira#-1)
if rightkey()=1 then gira#=wrapvalue(gira#+1)

yrotate object 1,gira#
yrotate camera gira#

rem checking collision
if object collision(2,0)>0 then inc x#
if object collision(3,0)>0 then dec x#
if object collision(4,0)>0 then inc z#
if object collision(5,0)>0 then dec z#

rem updating position of player and helpers objects
position object 1,x#,0,z#
position object 2,x#-15,0,z#
position object 3,x#+15,0,z#
position object 4,x#,0,z#-15
position object 5,x#,0,z#+15

rem th person camera view
position camera x#,30,z#
move camera -50:point camera x#,30,z#
set cursor 5,5
print "USE ARROWKEYS TO MOVE"
sync
loop