jumping - GameCreators Forum

Author

Message

Eman212

20

Years of Service

User Offline

Joined: 6th Mar 2004

Location:

Posted: 7th Mar 2004 01:57 Edited at: 7th Mar 2004 02:09

Link

HI it's my first post here and I'm pretty new to Dark Basic but I find it's awesome I just need to practice I guess. Ok I need help on something I got this little guy who can move from

http://omargames.ifrance.com/omargames/

Go there and click on downloads and then get PERSONNE and PERSONNETEX zips

Oh and this is for db I'm not sure if it works for pro
I tried to make him jump using w which is keystate(17)
adding the following line to modify the position of the object

if keystate(17)=1 then y#=NEWYVALUE(5,a#,z#) : z#=NEWZVALUE(z#,a#,2) : stage=1

but instead of jumping when I press w the camera is following the guy when he walks sideways

here's the modified code

+ Code Snippet

LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,10

rem Activate manual syncronization
SYNC ON

rem Begin loop
DO

rem Modify character angle based on left/right keys
stage=0
IF LEFTKEY()=1 THEN a#=a#-8.0
IF RIGHTKEY()=1 THEN a#=a#+8.0
a#=wrapvalue(a#)

rem Modify character position based on up/down keys
IF UPKEY()=1 THEN x#=NEWXVALUE(x#,a#,3) : z#=NEWZVALUE(z#,a#,3) : stage=1
IF DOWNKEY()=1 THEN x#=NEWXVALUE(x#,a#,-3) : z#=NEWZVALUE(z#,a#,-3) : stage=1
if keystate(17)=1 then y#=NEWYVALUE(5,a#,z#) : z#=NEWZVALUE(z#,a#,2) : stage=1

rem If character action changes
IF stage<>oldstage
	IF stage=0
		SET OBJECT FRAME 1,0.0
		LOOP OBJECT 1,0,20
		SET OBJECT SPEED 1,10
	ENDIF
	IF stage=1
		SET OBJECT FRAME 1,105.0
		LOOP OBJECT 1,105,125
		SET OBJECT SPEED 1,40
	ENDIF
	oldstage=stage
ENDIF

rem Update character position and angle
POSITION OBJECT 1,x#,0.0,z#
YROTATE OBJECT 1,a#
if keystate(17)=1
yPos#=yPos#+40
   endif

rem Refresh screen
SYNC

rem End loop
LOOP

Can someone please help? I have a hard time with variables

Back to top

Profile PM

Eman212

20

Years of Service

User Offline

Joined: 6th Mar 2004

Location:

Posted: 7th Mar 2004 04:50

Link

ok I modified it a little bit and got him moving up the screen but I wonder how to make him fall again lol anyway if you can help a little it would be really appreciated

rem Position camera off center
POSITION CAMERA 0.0,0.0,-1000.0

rem Load 3D object and append walking data to it
LOAD OBJECT "idle.x",1 : APPEND OBJECT "walk.x",1,100
YROTATE OBJECT 1,180 : FIX OBJECT PIVOT 1

rem Loop 3D object animation from 0 to 20 (idle)
LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,10

rem Activate manual syncronization
SYNC ON

rem Begin loop
DO

rem Modify character angle based on left/right keys
stage=0
IF LEFTKEY()=1 THEN a#=a#-8.0
IF RIGHTKEY()=1 THEN a#=a#+8.0
a#=wrapvalue(a#)

rem Modify character position based on up/down keys
IF UPKEY()=1 THEN x#=NEWXVALUE(x#,a#,3) : z#=NEWZVALUE(z#,a#,3) : stage=1
IF DOWNKEY()=1 THEN x#=NEWXVALUE(x#,a#,-3) : z#=NEWZVALUE(z#,a#,-3) : stage=1

rem If character action changes
IF stage<>oldstage
	IF stage=0
		SET OBJECT FRAME 1,0.0
		LOOP OBJECT 1,0,20
		SET OBJECT SPEED 1,10
	ENDIF
	IF stage=1
		SET OBJECT FRAME 1,105.0
		LOOP OBJECT 1,105,125
		SET OBJECT SPEED 1,40
	ENDIF
	oldstage=stage
ENDIF

rem Update character position and angle
POSITION OBJECT 1,x#,y#,z#
YROTATE OBJECT 1,a# 
if keystate(17)=1
y#=y#+5
endif

if y#=40
y#=0
endif

rem Refresh screen
SYNC

rem End loop
LOOP

+ Code Snippet

rem Position camera off center
POSITION CAMERA 0.0,0.0,-1000.0

rem Load 3D object and append walking data to it
LOAD OBJECT "idle.x",1 : APPEND OBJECT "walk.x",1,100
YROTATE OBJECT 1,180 : FIX OBJECT PIVOT 1

rem Loop 3D object animation from 0 to 20 (idle)
LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,10

rem Activate manual syncronization
SYNC ON

rem Begin loop
DO

rem Modify character angle based on left/right keys
stage=0
IF LEFTKEY()=1 THEN a#=a#-8.0
IF RIGHTKEY()=1 THEN a#=a#+8.0
a#=wrapvalue(a#)

rem Modify character position based on up/down keys
IF UPKEY()=1 THEN x#=NEWXVALUE(x#,a#,3) : z#=NEWZVALUE(z#,a#,3) : stage=1
IF DOWNKEY()=1 THEN x#=NEWXVALUE(x#,a#,-3) : z#=NEWZVALUE(z#,a#,-3) : stage=1


rem If character action changes
IF stage<>oldstage
	IF stage=0
		SET OBJECT FRAME 1,0.0
		LOOP OBJECT 1,0,20
		SET OBJECT SPEED 1,10
	ENDIF
	IF stage=1
		SET OBJECT FRAME 1,105.0
		LOOP OBJECT 1,105,125
		SET OBJECT SPEED 1,40
	ENDIF
	oldstage=stage
ENDIF

rem Update character position and angle
POSITION OBJECT 1,x#,y#,z#
YROTATE OBJECT 1,a# 
if keystate(17)=1
y#=y#+5
endif

if y#=40
y#=0
endif


rem Refresh screen
SYNC

rem End loop
LOOP

Back to top

Profile PM

Don Malone

21

Years of Service

User Offline

Joined: 27th Apr 2003

Location: Birmingham, Alabama

Posted: 7th Mar 2004 14:45

Link

When you have a charater jump as you did you use the code

+ Code Snippet

if keystate(17)=1
y#=y#+5

You will need to add some code to your game loop that checks your charaters position above the ground or y# = 0.

Most people use 0.1 as the negative (or fall value) but you can adjust that to your games needs. If you were doing a big fall you may choose to add to the value to make a character fall faster as more time passes but that is a little off topic.

so I guess you are looking for something like

+ Code Snippet

if y# > 0
y=y-.1
end if

You would/could also check to make sure that your character is close enough to the ground to actually jump by checking y# versus the ground height before addind to y#

For checking ground height of an .X modeled map here is a link to check
http://darkbasic.thegamecreators.com/?m=forum_view&t=25480&b=10

and here is the one of the shortest threads for use of Get Ground Height
http://darkbasic.thegamecreators.com/?m=forum_view&t=21798&b=10

I am no pro by a long shot but I hope I was able to help.

Don

Wasting CPU Cycles since the 286 was a hot machine.

Back to top

Profile PM Email

Eman212

20

Years of Service

User Offline

Joined: 6th Mar 2004

Location:

Posted: 8th Mar 2004 05:14

Link

Thank you I'm going to try that.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / jumping