Posted: 20th Nov 2003 10:15
Edited at: 26th Nov 2003 05:50
but everytime i do that it still doesnt work sometime during the next week I will post the script so if anyone wants to help me they could
autocam off : sync rate 60
hide mouse : sync on
make object box 1,10,200,1000 : position object 1,-10,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)
make object box 5,1000,10,1000 : position object 5,0,-5,0 : color object 5,rgb(0,255,0)
[b]NEEDS SOLIDIFYING
make object box 50,10,200,1000 : position object 50,-500,100,0 : color object 50,rgb(155,40,20)
[b]NEEDS SOLIDIFYING
make object box 55,1000,10,1000 : position object 55,0,200,0 : color
object 55,rgb(200,40,20)
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
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
make object cone 11,10
position object 11,0,0,0
color object 11,rgb(0,0,255)
make object collision box 11,-5,-5,-5,5,5,5,0
disable object zdepth 11
for t=0 to 4
make object collision box 6+t,-55,-4,-25,25,4,25,0
next t
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
color backdrop 0
playergrav#=5.0
do
oldposx#=object position x(11)
oldposy#=object position y(11)
oldposz#=object position z(11)
if upkey()=1 then move object 11,2
if downkey()=1 then move object 11,-2
if leftkey()=1 then yrotate object 11,wrapvalue(object angle y(11)-3)
if rightkey()=1 then yrotate object 11,wrapvalue(object angle y(11)+3)
if spacekey()=1 and playergrav#=0.0 then playergrav#=8.0
if shiftkey()=1 then move object 11,15
posx#=object position x(11)
posy#=object position y(11)
posz#=object position z(11)
playergrav#=playergrav#-0.1
posy#=posy#+playergrav#
rem dis 1 be da stairs
position object 11,posx#,posy#,posz#
if object collision(11,0)>0
dec posx#,get object collision x()
dec posy#,get object collision y()
dec posz#,get object collision z()
playergrav#=0.0
endif
s#=object size y(11)/2.0
rem dis 1 be da ground and da wallz on top of em anywayz
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()
if get static collision y()<>0.0 then playergrav#=0.0
endif
position object 11,posx#,posy#,posz#
position object 11,posx#,posy#,posz#
angle#=object angle y(11)
camdist#=25.0 : camhigh#=posy#+10.0 : camfade#=3.5
set camera to follow posx#,posy#,posz#,angle#,camdist#,camhigh#,camfade#,1
xrotate camera 15
rem dis 1 be da top stair dat b moving
move object 10,0.50
sync
loop
enable object zdepth 11