problem with jumping - GameCreators Forum

Author

Message

Regnuar

15

Years of Service

User Offline

Joined: 25th Dec 2008

Location:

Posted: 28th Jan 2009 09:33

Link

i don't know do you need whole code to help me but i still paste it, compiler says "Compilation Failed. Could not understand command at line 39."

sync on
sync rate 60

make matrix 1,1000,1000,40,40 : randomize matrix 1,20
make object cube 1,40
do

REM CAMERA
camera = 0
if camera = 0
point camera 0,object position x(1) ,object position y(1),object position z(1)
endif

position camera 0, object position x(1) ,object position y(1)+200,object position z(1)-200
REM CAMERA END

REM MOVEMENT!
position object 1, object position x(1), get ground height (1,Object Position X(1),Object Position Z(1))+20,object position z(1)
if upkey()=1
position object 1, object position x(1) ,object position y(1) ,object position z(1)+(0.8)
endif
if downkey()=1
position object 1, object position x(1) ,object position y(1) ,object position z(1)-(0.8)
endif
if rightkey()=1
position object 1, object position x(1)+(0.8) ,object position y(1) ,object position z(1)
endif
if leftkey()=1
position object 1, object position x(1)-(0.8) ,object position y(1) ,object position z(1)
endif
REM MOVEMENT END

REM JUMP

if spacekey()=1:
   velocityY# = 5.0
   state$ = "jumping"
 else
 object position y(1) >= get ground height (1,Object Position X(1),Object Position Z(1))+100
 endif
 
 if state$ = "jumping":
  dec velocityY#, 0.5   rem gravity 
  inc playerY#, velocityY# `-- adjust the player's height
 endif
 
 if playerY# <= 0.0: rem has the player landed?
  playerY# = 0.0 rem set this to whatever the ground height should be
  velocityY# = 0.0 rem stop the decelleration
  state$ = "landed" rem make the above 'if' fail ...
 endif

position object 1, object position x(1), playerY#, object position z(1)

REM JUMP END

update matrix 1
sync
loop

+ Code Snippet

sync on
sync rate 60

make matrix 1,1000,1000,40,40 : randomize matrix 1,20
make object cube 1,40
do

REM CAMERA
camera = 0
if camera = 0
point camera 0,object position x(1) ,object position y(1),object position z(1)
endif

position camera 0, object position x(1) ,object position y(1)+200,object position z(1)-200
REM CAMERA END

REM MOVEMENT!
position object 1, object position x(1), get ground height (1,Object Position X(1),Object Position Z(1))+20,object position z(1)
if upkey()=1
position object 1, object position x(1) ,object position y(1) ,object position z(1)+(0.8)
endif
if downkey()=1
position object 1, object position x(1) ,object position y(1) ,object position z(1)-(0.8)
endif
if rightkey()=1
position object 1, object position x(1)+(0.8) ,object position y(1) ,object position z(1)
endif
if leftkey()=1
position object 1, object position x(1)-(0.8) ,object position y(1) ,object position z(1)
endif
REM MOVEMENT END

REM JUMP

 if spacekey()=1:
   velocityY# = 5.0
   state$ = "jumping"
 else
 object position y(1) >= get ground height (1,Object Position X(1),Object Position Z(1))+100
 endif
 
 if state$ = "jumping":
  dec velocityY#, 0.5   rem gravity 
  inc playerY#, velocityY# `-- adjust the player's height
 endif
 
 if playerY# <= 0.0: rem has the player landed?
  playerY# = 0.0 rem set this to whatever the ground height should be
  velocityY# = 0.0 rem stop the decelleration
  state$ = "landed" rem make the above 'if' fail ...
 endif

 position object 1, object position x(1), playerY#, object position z(1)

REM JUMP END


update matrix 1
sync
loop

anyone might know why it's not working

Back to top

Profile PM Email

lucifer 1101

15

Years of Service

User Offline

Joined: 26th Jan 2009

Location: Melbourne, Australia

Posted: 28th Jan 2009 09:46

Link

lol im really new and i found it

+ Code Snippet

if spacekey()=1:
   velocityY# = 5.0
   state$ = "jumping"
 else
 object position y(1) >= get ground height (1,Object Position X(1),Object Position Z(1))+100
 endif

you have used object position y(1) when used in this way its meant to have an if in front of it.

i tried fixing it but i kept getting errors

Back to top

Profile PM Email

Regnuar

15

Years of Service

User Offline

Joined: 25th Dec 2008

Location:

Posted: 28th Jan 2009 12:12

Link

oh well, i got the code right now but there is one more problem;
the object wont follow the terrain anymore, any ideas?

Rem Project: Movement test
Rem Created: Wednesday, January 28, 2009

Rem ***** Main Source File *****

sync on
sync rate 60

make matrix 1,1000,1000,40,40 : randomize matrix 1,20
make object cube 1,40
make object sphere 2,10
do

REM CAMERA
camera = 0
if camera = 0
point camera 0,object position x(1) ,object position y(1),object position z(1)
endif

position camera 0, object position x(1) ,object position y(1)+200,object position z(1)-200
REM CAMERA END

REM MOVEMENT!
position object 1, object position x(1), get ground height (1,Object Position X(1),Object Position Z(1))+20,object position z(1)
if upkey()=1
position object 1, object position x(1) ,object position y(1) ,object position z(1)+(2)
endif
if downkey()=1
position object 1, object position x(1) ,object position y(1) ,object position z(1)-(2)
endif
if rightkey()=1
position object 1, object position x(1)+(2) ,object position y(1) ,object position z(1)
endif
if leftkey()=1
position object 1, object position x(1)-(2) ,object position y(1) ,object position z(1)
endif
REM MOVEMENT END

REM JUMP
if spacekey()=1 and jump=0
jump = 1
force# = 10.0
endif

if jump=1
y# = y# + force#
force# = force# - 0.5
if force# = -10.0 then jump = 0
endif

position object 1, object position x(1), y#,object position z(1)
REM JUMP END

update matrix 1
sync
loop

+ Code Snippet


Rem Project: Movement test
Rem Created: Wednesday, January 28, 2009

Rem ***** Main Source File *****

sync on
sync rate 60

make matrix 1,1000,1000,40,40 : randomize matrix 1,20
make object cube 1,40
make object sphere 2,10
do

REM CAMERA
camera = 0
if camera = 0
point camera 0,object position x(1) ,object position y(1),object position z(1)
endif

position camera 0, object position x(1) ,object position y(1)+200,object position z(1)-200
REM CAMERA END

REM MOVEMENT!
position object 1, object position x(1), get ground height (1,Object Position X(1),Object Position Z(1))+20,object position z(1)
if upkey()=1
position object 1, object position x(1) ,object position y(1) ,object position z(1)+(2)
endif
if downkey()=1
position object 1, object position x(1) ,object position y(1) ,object position z(1)-(2)
endif
if rightkey()=1
position object 1, object position x(1)+(2) ,object position y(1) ,object position z(1)
endif
if leftkey()=1
position object 1, object position x(1)-(2) ,object position y(1) ,object position z(1)
endif
REM MOVEMENT END

REM JUMP
if spacekey()=1 and jump=0
jump = 1
force# = 10.0
endif

if jump=1
y# = y# + force#
force# = force# - 0.5
if force# = -10.0 then jump = 0
endif

position object 1, object position x(1), y#,object position z(1)
REM JUMP END

update matrix 1
sync
loop

Back to top

Profile PM Email

lucifer 1101

15

Years of Service

User Offline

Joined: 26th Jan 2009

Location: Melbourne, Australia

Posted: 28th Jan 2009 12:46

Link

all you have to do is change

+ Code Snippet

REM MOVEMENT!
position object 1, object position x(1), get ground height (1,Object Position X(1),Object Position Z(1))+20,object position z(1)
if upkey()=1
position object 1, object position x(1) ,object position y(1) ,object position z(1)+(2)
endif
if downkey()=1
position object 1, object position x(1) ,object position y(1) ,object position z(1)-(2)
endif
if rightkey()=1
position object 1, object position x(1)+(2) ,object position y(1) ,object position z(1)
endif
if leftkey()=1
position object 1, object position x(1)-(2) ,object position y(1) ,object position z(1)
endif
REM MOVEMENT END

to

+ Code Snippet

REM MOVEMENT!
if jump =0
   y#=get ground height(1,object position x(1),object position z(1))+25
   position object 1,object position x(1),y#,object position z(1)
endif

if upkey()=1
position object 1, object position x(1) ,object position y(1) ,object position z(1)+(2)
endif
if downkey()=1
position object 1, object position x(1) ,object position y(1) ,object position z(1)-(2)
endif
if rightkey()=1
position object 1, object position x(1)+(2) ,object position y(1) ,object position z(1)
endif
if leftkey()=1
position object 1, object position x(1)-(2) ,object position y(1) ,object position z(1)
endif
REM MOVEMENT END

i dont know how i did this but it works for me LOL

Back to top

Profile PM Email

Regnuar

15

Years of Service

User Offline

Joined: 25th Dec 2008

Location:

Posted: 28th Jan 2009 14:19

Link

it works, cheers!

Back to top

Profile PM Email

lucifer 1101

15

Years of Service

User Offline

Joined: 26th Jan 2009

Location: Melbourne, Australia

Posted: 28th Jan 2009 14:22

Link

no problem, thats why im here, to learn and help...

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / problem with jumping