Sorry your browser is not supported!

If _allow_jump(1) = 1

   `Do your jumping script here

EndIf



Function _allow_jump(obj)


   jump = 0

   objy# = Object Position Y(obj)
   objheight# = (Object Size Y(obj)/2)

   coll = Object Collision(obj,0)
   colly# = Object Position Y(coll)
   collheight# = (Object Size Y(coll)/2)

   If coll > 5 And coll < 25
      `This next line simply checks to see if the object is within a range of abuot 10 world units to allow for aloping objects etc.
      If objy# > (colly# + collheight# + objheight# - 5) And objy# < (colly# + collheight# + objheight# + 5)
         jump = 1
      EndIf
   EndIf


EndFunction jump

sync on: sync rate 50
obj=10

make object box 1,50,10,100

make object box 6,1000,1,1000
position object  6,0,-50,500

make object plain 2,1000,100

make object plain 3,1000,100
position object 3,0,0,1000

make object plain 4,1000,100
rotate object 4,0,90,0
position object 4,500,0,500

make object plain 5,1000,100
rotate object 5,0,90,0
position object 5,-500,0,500

make object box 7,100,500,100
position object 7,0,250,250

make object cube 8,100
move object 8,500

make object box 9,1000,0,1000
move object down 9,100

make object sphere 10,100
move object 10,-500

 for a=1 to 9
 set object collision to boxes a
  next a

  automatic camera collision 0,1,1

 automatic object collision 10,45,0

 do


set camera to follow object position x(10),object position y(10),object position z(10),object angle y(10)+180,300,object position y(10),1,1



if keystate(17)=1 then move object 10,-10
if keystate(31)=1 then move object 10,10
if keystate(30)=1 then turn object left 10,5
if keystate(32)=1 then turn object right 10,5
if mouseclick()=1 and _allow_jump(1)=1 then move object up 10,1000


move object down 10,10


sync
loop


Function _allow_jump(obj)


   jump = 0

   objy# = Object Position Y(obj)
   objheight# = (Object Size Y(obj)/2)

   coll = Object Collision(obj,0)
   colly# = Object Position Y(coll)
   collheight# = (Object Size Y(coll)/2)

   If coll > 5 And coll < 25
      `This next line simply checks to see if the object is within a range of abuot 10 world units to allow for aloping objects etc.
      If objy# > (colly# + collheight# + objheight# - 5) And objy# < (colly# + collheight# + objheight# + 5)
         jump = 1
      EndIf
   EndIf


EndFunction jump

Function _allow_jump(obj,rangea,rangeb)


   retval = 0
   objhit = Object Collision(obj,0)

   `Checks if the object that obj is hittig is withing the range specified
   If objhit >= rangea And objhit <= rangeb

      objhitsurface# = Object Position Y(objhit)

      `Get's the Y position of the bottom of the object obj
      objbottom# = (Object Position Y(obj) - (Object Size Y(obj)/2))

      `Checks if the position of the bottom of the object obj is within +/- 5 units of the position of the object objhit.
      If objbottom# > objhitsurface# - 5 And objbottom# < objhitsurface# + 5 Then retval = 1

   EndIf


EndFunction retval

if mouseclick()=1 and _allow_jump(10,1,9) = 1 then move object up 10,1000