Jumping - GameCreators Forum

Author

Message

CocaCola

16

Years of Service

User Offline

Joined: 23rd Mar 2010

Location: CocaCola.x CocaCola.y CocaCola.z

Posted: 16th Aug 2011 09:04

Link

This is my code (including the gravity part):

+ Code Snippet

xxx = 1
jump = 0
do

+ Code Snippet

    if jump = 1
        if xxx = 8
        
        else
            xxx = xxx + 1
            posy# = posy# + 0.5
        endif
    endif
    if object collision(1,2) or object collision(1,3)

    else
        posy# = posy# - 2
    endif
    position object 1,posx#,posy#,posz#

Now, the first time I press space it goes up but then it won't after that, and its very jumpy when im jumping. I'm trying to make it progressively go upward instead of just appearing up then falling down with this.

Full code:

sync on
sync rate 60

make camera 1
backdrop on
color backdrop RGB(255,0,0)

make object cube 1,20
position object 1,0,0,0
color object 1,RGB(0,50,255)
make object collision box 1, - 10,-10,-10,10,10,10,0
make object box 2,100,1,100
position object 2,0,-1,0

make object box 3,100,1,100
position object 3,-50,-100,0
color object 3,RGB(50,50,50)

make object cube 4,20
make object collision box 4, - 10,-10,-10,10,10,10,0
position object 4,50,0,0
color object 4,RGB(150,2,75)
gravity# = 0
xxx = 1
jump = 0
do
    prevx# = object position x(1)
    prevy# = object position y(1)
    prevz# = object position z(1)
    posx# = prevx# 
    posy# = prevy#
    posz# = prevz#

if upkey() = 1
        posz# = posz# + 1
    endif
    if downkey() = 1
        posz# = posz# - 1
    endif
    if rightkey() = 1
        posx# = posx# + 1
    endif
    if leftkey() = 1
        posx# = posx# - 1
    endif
    if spacekey() = 1
        jump = 1
    endif
    if jump = 1
        if xxx = 8
        
        else
            xxx = xxx + 1
            posy# = posy# + 0.5
        endif
    endif
    if object collision(1,2) or object collision(1,3)

else
        posy# = posy# - 2
    endif
    position object 1,posx#,posy#,posz#
    if object collision(1,4)
        position object 1,prevx#,prevy#,prevz#
    endif
    position camera 1,object position x(1)-75,object position y(1)+100,object position z(1)
    point camera 1,object position x(1),object position y(1),object position z(1)
    sync
loop

+ Code Snippet

sync on
sync rate 60

make camera 1
backdrop on
color backdrop RGB(255,0,0)

make object cube 1,20
position object 1,0,0,0
color object 1,RGB(0,50,255)
make object collision box 1, - 10,-10,-10,10,10,10,0
make object box 2,100,1,100
position object 2,0,-1,0

make object box 3,100,1,100
position object 3,-50,-100,0
color object 3,RGB(50,50,50)

make object cube 4,20
make object collision box 4, - 10,-10,-10,10,10,10,0
position object 4,50,0,0
color object 4,RGB(150,2,75)
gravity# = 0
xxx = 1
jump = 0
do
    prevx# = object position x(1)
    prevy# = object position y(1)
    prevz# = object position z(1)
    posx# = prevx# 
    posy# = prevy#
    posz# = prevz#

    if upkey() = 1
        posz# = posz# + 1
    endif
    if downkey() = 1
        posz# = posz# - 1
    endif
    if rightkey() = 1
        posx# = posx# + 1
    endif
    if leftkey() = 1
        posx# = posx# - 1
    endif
    if spacekey() = 1
        jump = 1
    endif
    if jump = 1
        if xxx = 8
        
        else
            xxx = xxx + 1
            posy# = posy# + 0.5
        endif
    endif
    if object collision(1,2) or object collision(1,3)

    else
        posy# = posy# - 2
    endif
    position object 1,posx#,posy#,posz#
    if object collision(1,4)
        position object 1,prevx#,prevy#,prevz#
    endif
    position camera 1,object position x(1)-75,object position y(1)+100,object position z(1)
    point camera 1,object position x(1),object position y(1),object position z(1)
    sync
loop

Always program as if the person maintaining your program is a psychopath that knows where you live

Back to top

Profile PM Email

MummyKillerSLO

17

Years of Service

User Offline

Joined: 5th Jul 2009

Location: Object Position Y(ObjChair)

Posted: 16th Aug 2011 11:58

Link

Hi CocaCola! I've modified your code and try it now:

sync on
sync rate 60

make camera 1
backdrop on
color backdrop RGB(255,0,0)

make object cube 1,20
position object 1,0,0,0
color object 1,RGB(0,50,255)
make object collision box 1, - 10,-10,-10,10,10,10,0
make object box 2,100,1,100
position object 2,0,-1,0

make object box 3,100,1,100
position object 3,-50,-100,0
color object 3,RGB(50,50,50)

make object cube 4,20
make object collision box 4, - 10,-10,-10,10,10,10,0
position object 4,50,0,0
color object 4,RGB(150,2,75)
gravity# = 0.6
xxx = 1
jump = 0

rem half of the object 1 was 'in' the ground so you must move it up for half of its size
position object 1,object position x(1),object size y(1)/2,object position z(1)
do
text 5,5,str$(jump)
    prevx# = object position x(1)
    prevy# = object position y(1)
    prevz# = object position z(1)
    posx# = prevx#
    posy# = prevy#
    posz# = prevz#

if upkey() = 1
        posz# = posz# + 1
    endif
    if downkey() = 1
        posz# = posz# - 1
    endif
    if rightkey() = 1
        posx# = posx# + 1
    endif
    if leftkey() = 1
        posx# = posx# - 1
    endif
    if spacekey() = 1 and spaceclick = 0
      spaceclick = 1

rem this below prevent object to fly because of tapping spacekey
      if oldposy# = posy#
         jump = 1
      endif

oldposy# = posy#
    endif
    if spacekey() = 0 then spaceclick = 0

if jump = 1
         rem xxx < 20 <--- change it to your value :)
        if xxx < 20
            inc xxx,1
            posy# = posy# + 0.5
        else
            rem when object jump, you must tell computer that now gravity must work instead of jump
            xxx = 0
            jump = 0

endif
    endif

if jump = 0
          if object collision(1,2) or object collision(1,3)

else
            rem if object is not jumping,gravity must work then

posy# = posy# - gravity#

endif
      endif

position object 1,posx#,posy#,posz#
    if object collision(1,4)
        position object 1,prevx#,prevy#,prevz#
    endif

position camera 1,object position x(1)-75,object position y(1)+100,object position z(1)
    point camera 1,object position x(1),object position y(1),object position z(1)
    sync
loop

+ Code Snippet

sync on
sync rate 60

make camera 1
backdrop on
color backdrop RGB(255,0,0)

make object cube 1,20
position object 1,0,0,0
color object 1,RGB(0,50,255)
make object collision box 1, - 10,-10,-10,10,10,10,0
make object box 2,100,1,100
position object 2,0,-1,0

make object box 3,100,1,100
position object 3,-50,-100,0
color object 3,RGB(50,50,50)

make object cube 4,20
make object collision box 4, - 10,-10,-10,10,10,10,0
position object 4,50,0,0
color object 4,RGB(150,2,75)
gravity# = 0.6
xxx = 1
jump = 0

rem half of the object 1 was 'in' the ground so you must move it up for half of its size
position object 1,object position x(1),object size y(1)/2,object position z(1)
do
text 5,5,str$(jump)
    prevx# = object position x(1)
    prevy# = object position y(1)
    prevz# = object position z(1)
    posx# = prevx#
    posy# = prevy#
    posz# = prevz#

    if upkey() = 1
        posz# = posz# + 1
    endif
    if downkey() = 1
        posz# = posz# - 1
    endif
    if rightkey() = 1
        posx# = posx# + 1
    endif
    if leftkey() = 1
        posx# = posx# - 1
    endif
    if spacekey() = 1 and spaceclick = 0
      spaceclick = 1

      rem this below prevent object to fly because of tapping spacekey
      if oldposy# = posy#
         jump = 1
      endif

      oldposy# = posy#
    endif
    if spacekey() = 0 then spaceclick = 0

    if jump = 1
         rem xxx < 20 <--- change it to your value :)
        if xxx < 20
            inc xxx,1
            posy# = posy# + 0.5
        else
            rem when object jump, you must tell computer that now gravity must work instead of jump
            xxx = 0
            jump = 0

        endif
    endif




      if jump = 0
          if object collision(1,2) or object collision(1,3)

          else
            rem if object is not jumping,gravity must work then

              posy# = posy# - gravity#

          endif
      endif

    position object 1,posx#,posy#,posz#
    if object collision(1,4)
        position object 1,prevx#,prevy#,prevz#
    endif

    position camera 1,object position x(1)-75,object position y(1)+100,object position z(1)
    point camera 1,object position x(1),object position y(1),object position z(1)
    sync
loop

Happy to having and using DarkBASIC Professional...

Back to top

Profile PM Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Jumping