Thanks.. again but ummm another problem has risen within my game. You can't move, also jump.
REM Project: steps
REM Created: 11/25/2010 6:00:17 PM
REM
REM ***** Main Source File *****
REM
sync on
sync rate 60
gravity# = .1
jump as boolean : jump = 1
`lighting and backdrop
set ambient light 55
color backdrop 0
`load object
`load images
load image "Images/Player.bmp" ,1
load image "Images/Wall.jpg" ,2
load image "Images/east.jpg" ,3
load image "Images/west.jpg" ,4
rem Player
make object cube 1,10
position object 1,0,50,0
yrotate object 1,180
fix object pivot 1
make object collision box 1,-25,-25,-25,25,5,25,0
`--------------------------------------------
rem Walls
`West wall
make object cube 3,100
scale object 3,100,1800,5000
position object 3,-550,0,0
texture object 3,4
`floor
make object box 2,1200,5,5000
position object 2,0,-10,0
texture object 2,2
`East wall
make object cube 4,100
scale object 4,100,1800,5000
position object 4,550,0,0
texture object 4,3
`South wall
make object cube 5,100
scale object 5,100,1800,1000
position object 5,0,0,-2400
rotate object 5,0,90,0
texture object 5,2
`-------------------------------------------
`------------------------------------------------------------
rem Steps
NumberOfSteps = 4
for t=0 to NumberOfSteps-1
make object box t+7,70,50,50
position object t+7,0,5+(t*20),100+(t*100)
color object t+7,rgb(200,200,200)
make object collision box 7,-25,-25,-25,25,5,25,0
next t
`----------------------------------------------------------
`COLLISON
REM People
NumberOfPeople = 1000
make object cube NumberOfPeople ,50
color object NumberOfPeople , rgb(r,g,0)
position object NumberOfPeople ,Rnd(900),200,Rnd(1900)
make object collision box NumberOfPeople ,-25,-25,-25,25,25,25,0
do
position object 1,posx#,posy#,posz#
if object collision(1,0)>0
dec posx#,get object collision x()
dec posy#,get object collision y()
dec posz#,get object collision z()
if get object collision y()<>0 then gravity#=0.0
endif
if spacekey()= 1
if not jump ` Or if jump = 0; it means the same.
jump = 1
jumpVelocity# = 0.5
endif
endif
if jump
move object up 1, jumpVelocity#
jumpVelocity# = jumpVelocity# - gravity#
if object position y(1) <= object position y(2)
jumpVelocity# = 0.5
jump = 0
position object 1, object position x(1), object position y(2) + (object size y(1, 1) / 2.0), object position z(1)
endif
endif
X=object position X(1)
Y=object position Y(1)
Z=object position Z(1)
position camera X,Y,Z
set camera to object orientation 1
move camera -150
pitch camera up 120
move camera 50
point camera X,Y,Z
if rightkey()=1 then turn object right 1,10
if leftkey()=1 then turn object left 1,10
if upkey()=1 then move object 1,10
if downkey()=1 then move object 1,-10
sync
loopIt is I... OHH YEAHHH
