I've worked out this new code:
autocam off : sync rate 60
hide mouse : sync on
rem Make four walls
make object box 1,10,200,1000 : position object 1,-500,100,0 : color object 1,rgb(155,40,20)
make object box 2,10,200,1000 : position object 2, 500,100,0 : color object 2,rgb(155,40,20)
make object box 3,1000,200,10 : position object 3, 0,100,-500 : color object 3,rgb(155,40,20)
make object box 4,1000,200,10 : position object 4, 0,100, 500 : color object 4,rgb(155,40,20)
rem Make a floor and create texture for it
make object box 5,1000,10,1000 : position object 5,0,-5,0 : color object 5,rgb(0,255,0)
create bitmap 1,32,32 : cls rgb(0,155,0) : ink rgb(0,145,0),0 : box 4,4,12,12
get image 1,0,0,32,32 : delete bitmap 1 : texture object 5,1
scale object texture 5,200,200
rem Make a pedestal steps
for t=0 to 4
make object box 6+t,50,8,50
position object 6+t,0,4+(t*10),100+(t*50)
color object 6+t,rgb(100,200,100)
next t
rem Make a player object (and a non-rotated collision box for it)
make object cylinder 665,10
position object 665,0,0,0
make object collision box 665,-5,-5,-5,5,5,5,0
disable object zdepth 665
hide object 665
rem Make the pedastal use non-rotated box collision
for t=0 to 4
make object collision box 6+t,-25,-4,-25,25,4,25,0
next t
rem Make the wall and floor objects into static objects (for auto-camera collision)
for t=1 to 5
make static object t
objx#=object position x(t)
objy#=object position y(t)
objz#=object position z(t)
objsx#=object size x(t)/2.0
objsy#=object size y(t)/2.0
objsz#=object size z(t)/2.0
make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
delete object t
next t
rem Make sky black
color backdrop 0
rem Main loop
do
SET CAMERA TO OBJECT ORIENTATION 665
position camera object position x(665),object position y(665)+30,object position z(665)
rem Store old positions
oldposx#=object position x(665)
oldposy#=object position y(665)
oldposz#=object position z(665)
rem Control player object
if upkey()=1 then move object 665,2
if downkey()=1 then move object 665,-2
cy#=wrapvalue(cy#+mousemovex())
cz#=wrapvalue(cz#+mousemovez())
rotate object 665,cx#,cy#,cz#
rotate camera cx#,cy#,cz#
remend
rem Get current object position
posx#=object position x(665)
posy#=object position y(665)
posz#=object position z(665)
rem Handle sliding collision for player object with other objects
position object 665,posx#,posy#,posz#
if object collision(665,0)>0
dec posx#,get object collision x()
dec posy#,get object collision y()
dec posz#,get object collision z()
playergrav#=0.0
endif
rem Set a size for the player object
s#=object size y(665)/2.0
rem Ensure camera stays out of static collision boxes
if get static collision hit(oldposx#-s#,oldposy#-s#,oldposz#-s#,oldposx#+s#,oldposy#+s#,oldposz#+s#,posx#-s#,posy#-s#,posz#-s#,posx#+s#,posy#+s#,posz#+s#)=1
dec posx#,get static collision x()
dec posy#,get static collision y()
dec posz#,get static collision z()
rem if get static collision y()<>0.0 then playergrav#=0.0
endif
rem Update with new object position
position object 665,posx#,posy#,posz#
rem Use camera tracker to follow player object
rem camdist#=0.0 : camhigh#=posy#+10.0 : camfade#=3.5
rem set camera to follow posx#,posy#,posz#,cy#,0,10,3.5,1
rem For fun, slightly move pedastal step
move object 665,0.0000000000000000000000001
rem Update screen
sync
rem End loop
loop
rem Restore object if ever leave this loop
enable object zdepth 665
I know it is basically taken from the example, minus some things, but it works! Now, all I have to do is put it in my game. Thanks to everyone that helped me.
Bio Fox...four guys, one computer, games like nobody's business.
