How do I make My Character jump - GameCreators Forum

Author

Message

gopherbro 94

17

Years of Service

User Offline

Joined: 21st Dec 2008

Location:

Posted: 31st Dec 2008 04:34

Link

I have a premade jump method from my school. ( I am modifying a pre made game for a mid term ). I had tried to use a matrix, but I gave that up.

So somewhere in the process I believe I destroyed the jump command. SO Ill post the parts that I think go with the jump command.

Rem Gravity Effects

if MyAcceleration# = 0.0 : rem If I'm not moving up or down
         EmptySpace = 0 : ObjectsChecked = 0 : rem Get ready to start checking collisions
         for CheckObject = 6 to 12 : rem Check the floor and every step object
            if object collision(1,CheckObject)>0 : rem If I'm touching something
               1pY# = 1pY# - Gravity# : rem Look below me
               position object 1, 1pX#,1pY#,1pZ# : rem Feel below me
               if object collision(1,CheckObject) = 0 : rem If I feel only air
                  EmptySpace = EmptySpace + 1 : rem Mark up a free space
               endif : rem I'm touching something, but it's not below me
               1pY# = 1pY# + Gravity# : rem Look up
               position object 1, 1pX#,1pY#,1pZ# : rem Move back
            else : rem If I'm not touching anything
               EmptySpace = EmptySpace + 1 : rem rem Mark up a free space
            endif
            ObjectsChecked = ObjectsChecked + 1 : rem Done with that one!
         next CheckObject : rem On to the next one!
         if EmptySpace = ObjectsChecked : rem If I've checked all the objects and nothing is below me
            MyAcceleration# = MyAcceleration# - Gravity# : rem Gravity begins to pull
         endif
      endif

if MyAcceleration# <> 0.0 : rem If I'm moving
         1pY# = 1pY# + MyAcceleration# : rem Find where I'm going
         position object 1, 1pX#,1pY#,1pZ# : rem Put me there
         EmptySpace = 0 : ObjectsChecked = 0 : rem Get ready to start checking collisions
         for CheckObject = 6 to 12 : rem Check the floor and every step object
            if object collision(1,CheckObject)>0 : rem If I hit an object
               1pY# = 1pY# - MyAcceleration# : rem Find where I was
               position object 1, 1pX#,1pY#,1pZ# : rem Put me back
               MyAcceleration# = 0.0 : rem Stop me from moving
            else : rem If the space I'm going to is just air
               EmptySpace = EmptySpace + 1 : rem rem Mark up a free space
            endif
            ObjectsChecked = ObjectsChecked + 1 : rem Done with that one!
         next CheckObject : rem On to the next one!
         if EmptySpace = ObjectsChecked : rem If I've checked all the objects and nothing is in my path
            MyAcceleration# = MyAcceleration# - Gravity# : rem Gravity pulls more
         endif
      endif

+ Code Snippet

Rem Gravity Effects

      if MyAcceleration# = 0.0 : rem If I'm not moving up or down
         EmptySpace = 0 : ObjectsChecked = 0 : rem Get ready to start checking collisions
         for CheckObject = 6 to 12 : rem Check the floor and every step object
            if object collision(1,CheckObject)>0 : rem If I'm touching something
               1pY# = 1pY# - Gravity# : rem Look below me
               position object 1, 1pX#,1pY#,1pZ# : rem Feel below me
               if object collision(1,CheckObject) = 0 : rem If I feel only air
                  EmptySpace = EmptySpace + 1 : rem Mark up a free space
               endif : rem I'm touching something, but it's not below me
               1pY# = 1pY# + Gravity# : rem Look up
               position object 1, 1pX#,1pY#,1pZ# : rem Move back
            else : rem If I'm not touching anything
               EmptySpace = EmptySpace + 1 : rem rem Mark up a free space
            endif
            ObjectsChecked = ObjectsChecked + 1 : rem Done with that one!
         next CheckObject : rem On to the next one!
         if EmptySpace = ObjectsChecked : rem If I've checked all the objects and nothing is below me
            MyAcceleration# = MyAcceleration# - Gravity# : rem Gravity begins to pull
         endif
      endif

      if MyAcceleration# <> 0.0 : rem If I'm moving
         1pY# = 1pY# + MyAcceleration# : rem Find where I'm going
         position object 1, 1pX#,1pY#,1pZ# : rem Put me there
         EmptySpace = 0 : ObjectsChecked = 0 : rem Get ready to start checking collisions
         for CheckObject = 6 to 12 : rem Check the floor and every step object
            if object collision(1,CheckObject)>0 : rem If I hit an object
               1pY# = 1pY# - MyAcceleration# : rem Find where I was
               position object 1, 1pX#,1pY#,1pZ# : rem Put me back
               MyAcceleration# = 0.0 : rem Stop me from moving
            else : rem If the space I'm going to is just air
               EmptySpace = EmptySpace + 1 : rem rem Mark up a free space
            endif
            ObjectsChecked = ObjectsChecked + 1 : rem Done with that one!
         next CheckObject : rem On to the next one!
         if EmptySpace = ObjectsChecked : rem If I've checked all the objects and nothing is in my path
            MyAcceleration# = MyAcceleration# - Gravity# : rem Gravity pulls more
         endif
      endif

This is the input command ( the buttons that make him jump

+ Code Snippet

if Spacekey()=1 and MyAcceleration# = 0.0 : rem Make sure I've fully landed before I can jump again
      1pY# = 1pY# - Gravity# : rem Look below me
      position object 1, 1pX#,1pY#,1pZ# : rem Feel below me
      for t = 6 to 12
         if object collision(1,t)>0 : rem If feel a solid object below me
            MyAcceleration# = MyPower : rem Prepare to jump!
            play sound 6
         endif
      next t
      1pY# = 1pY# + gravity# : rem Look up
      position object 1, 1pX#,1pY#,1pZ# : rem Move back
   endif

   if Upkey()=1 then move object 1,MySpeed
   if Downkey()=1 then move object 1,0-MySpeed
   if Leftkey()=1 then 1aY = wrapvalue(1aY-(MySpeed/3))
   if Rightkey()=1 then 1aY = wrapvalue(1aY+(MySpeed/3))

   if Inkey$()="q"
      for x = 1 to 100
         if object exist(x) = 1 then delete object x
      next x
      backdrop off
      goto EndSection
   endif

Back to top

Profile PM Email

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 31st Dec 2008 10:23

Link

Hello!

I wrote a quick example:

rem Jump example
rem TheComet

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop rgb(128,128,128)
fog on
fog distance 2000
fog color rgb(128,128,128)
hide mouse

rem generate a grass image
create bitmap 1,256,256
ink rgb(150,150,150),0
box 0,0,255,255
for t=0 to 10000
   g=rnd(50)+30
   sx=rnd(255)
   sy=rnd(255)
   if rnd(1)=0 then ex=sx:ey=rnd(40)-20+sy else ey=sy:ex=rnd(40)-20+sx
   ink rgb(0,g,0),0
   line sx,sy,ex,ey
next t
get image 1,0,0,256,256
delete bitmap 1

rem generate a brick image
create bitmap 1,32,16
for t=1 to 1000
   r=rnd(50)+100
   ink rgb(r,r,r),0
   circle rnd(32),rnd(16),3
next t
ink rgb(60,60,60),0
line 0,0,31,0:line 31,0,31,15:line 31,15,0,15:line 0,15,0,0
ink rgb(90,90,90),0
line 1,1,30,0:line 30,1,30,14:line 30,14,1,14:line 1,14,1,1
ink rgb(130,130,130),0
line 2,2,29,2:line 29,2,29,13:line 29,13,2,13:line 2,13,2,2
blur bitmap 1,5
get image 2,0,0,32,16
delete bitmap 1

rem create a matrix
make matrix 1,10000,10000,20,20
prepare matrix texture 1,1,2,2
fill matrix 1,0,1
randomize matrix 1,125

rem make a player
make object cylinder 1,10
position object 1,5000,0,5000
color object 1,rgb(234,162,28)
make object collision box 1,-5,-5,-5,5,5,5,0

rem make some decorative objects
for t=2 to 25
   make object box t,80,320,80
   x#=rnd(10000):z#=rnd(10000):y#=get ground height(1,x#,z#)+150
   position object t,x#,y#,z#
   texture object t,2
   scale object texture t,10,40
   make object collision box t,-40,-160,-40,40,160,40,0
next t

rem main loop
do

rem control camera
   set camera to follow x#,y#,z#,object angle y(1),70,y#+20,10,1
   point camera x#,y#,z#

rem get input
   if upkey()=1 then move object 1,2
   if downkey()=1 then move object 1,-2
   if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-2)
   if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+2)
   if spacekey()=1 and grav#=0.0 then grav#=2.0

rem LOOK AT THIS ---------------------------------------------------------------------------------

rem get player positions
   x#=object position x(1)
   y#=object position y(1)
   z#=object position z(1)

rem add gravity
   dec grav#,0.1
   inc y#,grav#

rem collision with ground
   g#=get ground height(1,x#,z#)+5
   if y#<g# then y#=g#:grav#=0.0

rem collision with decorative objects
   if object collision(1,0)
      dec x#,get object collision x()
      dec y#,get object collision y()
      dec z#,get object collision z()
      grav#=0.0
   endif

rem update player positions
   position object 1,x#,y#,z#

rem ------------------------------------------------------------------------------------------------

rem refresh screen
   sync

rem end of main loop
loop

+ Code Snippet

rem Jump example
rem TheComet

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop rgb(128,128,128)
fog on
fog distance 2000
fog color rgb(128,128,128)
hide mouse

rem generate a grass image
create bitmap 1,256,256
ink rgb(150,150,150),0
box 0,0,255,255
for t=0 to 10000
   g=rnd(50)+30
   sx=rnd(255)
   sy=rnd(255)
   if rnd(1)=0 then ex=sx:ey=rnd(40)-20+sy else ey=sy:ex=rnd(40)-20+sx
   ink rgb(0,g,0),0
   line sx,sy,ex,ey
next t
get image 1,0,0,256,256
delete bitmap 1

rem generate a brick image
create bitmap 1,32,16
for t=1 to 1000
   r=rnd(50)+100
   ink rgb(r,r,r),0
   circle rnd(32),rnd(16),3
next t
ink rgb(60,60,60),0
line 0,0,31,0:line 31,0,31,15:line 31,15,0,15:line 0,15,0,0
ink rgb(90,90,90),0
line 1,1,30,0:line 30,1,30,14:line 30,14,1,14:line 1,14,1,1
ink rgb(130,130,130),0
line 2,2,29,2:line 29,2,29,13:line 29,13,2,13:line 2,13,2,2
blur bitmap 1,5
get image 2,0,0,32,16
delete bitmap 1

rem create a matrix
make matrix 1,10000,10000,20,20
prepare matrix texture 1,1,2,2
fill matrix 1,0,1
randomize matrix 1,125

rem make a player
make object cylinder 1,10
position object 1,5000,0,5000
color object 1,rgb(234,162,28)
make object collision box 1,-5,-5,-5,5,5,5,0

rem make some decorative objects
for t=2 to 25
   make object box t,80,320,80
   x#=rnd(10000):z#=rnd(10000):y#=get ground height(1,x#,z#)+150
   position object t,x#,y#,z#
   texture object t,2
   scale object texture t,10,40
   make object collision box t,-40,-160,-40,40,160,40,0
next t

rem main loop
do

   rem control camera
   set camera to follow x#,y#,z#,object angle y(1),70,y#+20,10,1
   point camera x#,y#,z#

   rem get input
   if upkey()=1 then move object 1,2
   if downkey()=1 then move object 1,-2
   if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-2)
   if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+2)
   if spacekey()=1 and grav#=0.0 then grav#=2.0

   rem LOOK AT THIS ---------------------------------------------------------------------------------

   rem get player positions
   x#=object position x(1)
   y#=object position y(1)
   z#=object position z(1)

   rem add gravity
   dec grav#,0.1
   inc y#,grav#

   rem collision with ground
   g#=get ground height(1,x#,z#)+5
   if y#<g# then y#=g#:grav#=0.0

   rem collision with decorative objects
   if object collision(1,0)
      dec x#,get object collision x()
      dec y#,get object collision y()
      dec z#,get object collision z()
      grav#=0.0
   endif

   rem update player positions
   position object 1,x#,y#,z#

   rem ------------------------------------------------------------------------------------------------

   rem refresh screen
   sync

rem end of main loop
loop

The part that you are interested in is this:

+ Code Snippet

   rem get player positions
   x#=object position x(1)
   y#=object position y(1)
   z#=object position z(1)

   rem add gravity
   dec grav#,0.1
   inc y#,grav#

   rem collision with ground
   g#=get ground height(1,x#,z#)+5
   if y#<g# then y#=g#:grav#=0.0

   rem collision with decorative objects
   if object collision(1,0)
      dec x#,get object collision x()
      dec y#,get object collision y()
      dec z#,get object collision z()
      grav#=0.0
   endif

   rem update player positions
   position object 1,x#,y#,z#

Just study the code. You will get the hang of it.

TheComet

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

Caleb1994

17

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 31st Dec 2008 20:32 Edited at: 31st Dec 2008 20:41

Link

...

Back to top

Profile PM Website

Caleb1994

17

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 31st Dec 2008 20:39 Edited at: 31st Dec 2008 20:43

Link

whoops sorry didn't read it completly lol

Back to top

Profile PM Website

gopherbro 94

17

Years of Service

User Offline

Joined: 21st Dec 2008

Location:

Posted: 2nd Jan 2009 16:36

Link

I looked back In pages I found for the project and fixed the code to this.

REM Gravity Effects_____________________________________________________

If MyAcceleration# = 0.0
Emptyspace = 0 : Objectschecked = 0
for CheckObject = 6 to 12
If object collision(1,CheckObject)>0
1pY# = 1pY# - Gravity#
Position object 1, 1pX#,1pY#,1pZ#
if object collision(1,CheckObject) = 0
EmptySpace = EmptySpace + 1
endif
1pY# = 1pY# + Gravity#
Position object 1, 1pX#,1pY#,1pZ#
else
EmptySpace = EmptySpace + 1
endif
ObjectsChecked = ObjectsChecked + 1
next CheckObject
if EmptySpace = ObjectsChecked
MyAcceleration# = MyAcceleration# - Gravity#
endif
endif

If MyAcceleration# <> 0.0
1pY# = 1pY# + MyAcceleration#
Position object 1, 1pX#,1pY#,1pZ#
EmptySpace = 0 : ObjectsChecked = 0
for CheckObject = 6 to 12
If object collision(1,CheckObject)>0
1pY# = 1pY# - MyAcceleraion#
Position object 1, 1pX#,1pY#,1pZ#
MyAcceleraion# = 0.0
else
EmptySpace = EmptySpace + 1
endif
ObjectsChecked = ObjectsChecked + 1
next CheckObject
If EmptySpace = ObjectsChecked
MyAcceleration# = MyAcceleration# - Gravity#
endif
endif

The Input command stayed the same:

if Spacekey()=1 and MyAcceleration# = 0.0 : rem Make sure I've fully landed before I can jump again
1pY# = 1pY# - Gravity# : rem Look below me
position object 1, 1pX#,1pY#,1pZ# : rem Feel below me
for t = 6 to 12
if object collision(1,t)>0 : rem If feel a solid object below me
MyAcceleration# = MyPower : rem Prepare to jump!
play sound 6
endif
next t
1pY# = 1pY# + gravity# : rem Look up
position object 1, 1pX#,1pY#,1pZ# : rem Move back
endif

if Upkey()=1 then move object 1,MySpeed
if Downkey()=1 then move object 1,0-MySpeed
if Leftkey()=1 then 1aY = wrapvalue(1aY-(MySpeed/3))
if Rightkey()=1 then 1aY = wrapvalue(1aY+(MySpeed/3))

if Inkey$()="q"
for x = 1 to 100
if object exist(x) = 1 then delete object x
next x
backdrop off
goto EndSection
endif

Now for some reason, He jumps up in the air, but keeps going and going; never stopping. What do I do to make him stop and return to the ground?

Back to top

Profile PM Email

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 3rd Jan 2009 18:28

Link

Hello!

Firstly, please use the CODE button!!

+ Code Snippet

Code buttons make code easy to read

Secondly, please INDENT your code!

Instead of:

+ Code Snippet

if g=1
if object collision(1,g)=1
for t=1 to 10
position object t,0,0,0
if object collision(t,0)>0
position object t,1000,0,0
endif
next t
endif
endif

Use the tab:

+ Code Snippet

if g=1
   if object collision(1,g)=1
      for t=1 to 10
         position object t,0,0,0
         if object collision(t,0)>0
            position object t,1000,0,0
         endif
      next t
   endif
endif

You usually add another tab after every do, repeat, while, if, for, subroutine and function.

Your code should look like this:

REM Gravity Effects_____________________________________________________

If MyAcceleration# = 0.0
   Emptyspace = 0 : Objectschecked = 0
   for CheckObject = 6 to 12
      If object collision(1,CheckObject)>0
         1pY# = 1pY# - Gravity#
         Position object 1, 1pX#,1pY#,1pZ#
         if object collision(1,CheckObject) = 0
            EmptySpace = EmptySpace + 1
         endif
         1pY# = 1pY# + Gravity#
         Position object 1, 1pX#,1pY#,1pZ#
      else
         EmptySpace = EmptySpace + 1
      endif
      ObjectsChecked = ObjectsChecked + 1
   next CheckObject
   if EmptySpace = ObjectsChecked
      MyAcceleration# = MyAcceleration# - Gravity#
   endif
endif

If MyAcceleration# <> 0.0
   1pY# = 1pY# + MyAcceleration#
   Position object 1, 1pX#,1pY#,1pZ#
   EmptySpace = 0 : ObjectsChecked = 0
   for CheckObject = 6 to 12
      If object collision(1,CheckObject)>0
         1pY# = 1pY# - MyAcceleraion#
         Position object 1, 1pX#,1pY#,1pZ#
         MyAcceleraion# = 0.0
      else
         EmptySpace = EmptySpace + 1
      endif
      ObjectsChecked = ObjectsChecked + 1
   next CheckObject
   If EmptySpace = ObjectsChecked
      MyAcceleration# = MyAcceleration# - Gravity#
   endif
endif

if Spacekey()=1 and MyAcceleration# = 0.0 : rem Make sure I've fully landed before I can jump again
   1pY# = 1pY# - Gravity# : rem Look below me
   position object 1, 1pX#,1pY#,1pZ# : rem Feel below me
   for t = 6 to 12
      if object collision(1,t)>0 : rem If feel a solid object below me
         MyAcceleration# = MyPower : rem Prepare to jump!
         play sound 6
      endif
   next t
   1pY# = 1pY# + gravity# : rem Look up
   position object 1, 1pX#,1pY#,1pZ# : rem Move back
endif

if Upkey()=1 then move object 1,MySpeed
if Downkey()=1 then move object 1,0-MySpeed
if Leftkey()=1 then 1aY = wrapvalue(1aY-(MySpeed/3))
if Rightkey()=1 then 1aY = wrapvalue(1aY+(MySpeed/3))

if Inkey$()="q"
   for x = 1 to 100
      if object exist(x) = 1 then delete object x
   next x
   backdrop off
   goto EndSection
endif

+ Code Snippet

REM Gravity Effects_____________________________________________________

If MyAcceleration# = 0.0
   Emptyspace = 0 : Objectschecked = 0
   for CheckObject = 6 to 12
      If object collision(1,CheckObject)>0
         1pY# = 1pY# - Gravity#
         Position object 1, 1pX#,1pY#,1pZ#
         if object collision(1,CheckObject) = 0
            EmptySpace = EmptySpace + 1
         endif
         1pY# = 1pY# + Gravity#
         Position object 1, 1pX#,1pY#,1pZ#
      else
         EmptySpace = EmptySpace + 1
      endif
      ObjectsChecked = ObjectsChecked + 1
   next CheckObject
   if EmptySpace = ObjectsChecked
      MyAcceleration# = MyAcceleration# - Gravity#
   endif
endif

If MyAcceleration# <> 0.0
   1pY# = 1pY# + MyAcceleration#
   Position object 1, 1pX#,1pY#,1pZ#
   EmptySpace = 0 : ObjectsChecked = 0
   for CheckObject = 6 to 12
      If object collision(1,CheckObject)>0
         1pY# = 1pY# - MyAcceleraion#
         Position object 1, 1pX#,1pY#,1pZ#
         MyAcceleraion# = 0.0
      else
         EmptySpace = EmptySpace + 1
      endif
      ObjectsChecked = ObjectsChecked + 1
   next CheckObject
   If EmptySpace = ObjectsChecked
      MyAcceleration# = MyAcceleration# - Gravity#
   endif
endif


if Spacekey()=1 and MyAcceleration# = 0.0 : rem Make sure I've fully landed before I can jump again
   1pY# = 1pY# - Gravity# : rem Look below me
   position object 1, 1pX#,1pY#,1pZ# : rem Feel below me
   for t = 6 to 12
      if object collision(1,t)>0 : rem If feel a solid object below me
         MyAcceleration# = MyPower : rem Prepare to jump!
         play sound 6
      endif
   next t
   1pY# = 1pY# + gravity# : rem Look up
   position object 1, 1pX#,1pY#,1pZ# : rem Move back
endif

if Upkey()=1 then move object 1,MySpeed
if Downkey()=1 then move object 1,0-MySpeed
if Leftkey()=1 then 1aY = wrapvalue(1aY-(MySpeed/3))
if Rightkey()=1 then 1aY = wrapvalue(1aY+(MySpeed/3))

if Inkey$()="q"
   for x = 1 to 100
      if object exist(x) = 1 then delete object x
   next x
   backdrop off
   goto EndSection
endif

I am willing to help you, but it is extremely hard for me, because I don`t have ALL of the code. Could you please post ALL of the code?

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / How do I make My Character jump