Sorry your browser is not supported!

sync on
sync rate 60


gravity# = .1
jump as boolean   : jump = 0

rem velocity is constant
global velocity# as float
velocity#=0.1


rem Player
make object cube 1,10
make light 1
set light range 1,90000
make object collision box 1,-5,-5,-5,5,5,5,0
position object 1,0,100,0


rem Walls

`floor
make object plain 2, 100, 100
point object 2, 0, -50, 0
position object 2, 0, -3.5, 0
make light 2
set light range 2,90000
point light 2,0,0,0


`Bottom wall
make object plain 5,1000,1000
point object 5,0,-50,0
position object 5,0,-500,0


`Steps
rem Make a pedestal steps
NumberOfSteps = 3
for t=0 to NumberOfSteps
   make object box 6+t,50,8,50
   position object 6+t,0,NumberOfSteps+(t*10),100+(t*100)
   color object 6+t,white
next t

NumberOfStepsBack = 3
for u=0 to NumberOfStepsBack
   make object box 10+u,50,8,50
   position object 10+u,0,NumberOfStepsBack+(u*-10),-100+(u*-100)
   color object 10+u,white
next u

NumberOfStepsLeft = 3
for v=0 to NumberOfStepsLeft
   make object box 110+v,50,8,50
    position object 110+v,-100+(v*-100),(v*-10),0
   color object 110+v,white
next v

NumberOfStepsRight = 3
for w=0 to NumberOfStepsRight
   make object box 200+w,50,8,50
    position object 200+w,100+(w*100),(w*10),0
   color object 200+w,white
next w

Rem Stars
rem front
make object sphere 20,10
position object 20,0,60,395


rem left
make object sphere 21,10
position object 21,-401,-5,0


rem right
make object sphere 22,10
position object 22,399,55,0


rem back
make object sphere 23,10
position object 23,0,-3,-408





Start:
position object 1,0,0,0

do

`Steps Collison
for t=0 to NumberOfSteps
   make object collision box 6+t,-25,-5,-25,25,5,25,0
next t

REM STAR COLLISIONS



if object collision(1,20)=1
   delete object 20
   gravity#=0
endif
if object collision(1,21)=1
    delete object 21
gravity#=0
endif
if object collision(1,22)=1
   delete object 22
gravity#=0
endif
if object collision(1,23)=1
   delete object 23
   gravity#=0
endif



rem control movement
if rightkey()=1 then turn object right 1,3
if leftkey()=1 then turn object left 1,3
if upkey()=1 then move object 1,3
if downkey()=1 then move object 1,-3

rem control jumping
if spacekey()=1 and gravity#=0.0 then gravity#=2.0

rem get positions of object
posx#=object position x(1)
posy#=object position y(1)
posz#=object position z(1)

x = posx#
y = posy#
z = posz#

print "x: ";x
print "Y: ";y
print "Z: ";z


rem control gravity
dec gravity#,velocity#
inc posy#,gravity#

`COLLISON
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 object collision(5,1)>0
 goto Start
endif


rem update player positions
position object 1,posx#,posy#,posz#

`And I changed this bit a little too :)
`I changed this bit
position camera posx#,posy#,posz#
set camera to object orientation 1
move camera -100
pitch camera up 90
move camera 50
point camera posx#,posy#,posz#
`up to here
`until here

sync
loop

for i = 20 to 23
   if object exist(i)
      if object collision(1, i) = 1
         delete object i
         gravity# = 0
      endif
   endif
next