platforming help - GameCreators Forum

Author

Message

Mr Penguin99

16

Years of Service

User Offline

Joined: 23rd Jan 2008

Location:

Posted: 9th Feb 2008 18:50

Link

I think it is the collision that is not working right here is the code

+ Code Snippet

REM Project: adventure game
REM Created: 2/7/2008 8:46:10 PM
REM
REM ***** Main Source File *****
REM
set display mode 1280, 1024, 32
MAKE OBJECT PLAIN 2,100,100
xROTATE OBJECT 2,90
load object "penguin.x",1
SET OBJECT COLLISION ON 1
if OBJECT COLLISION (1,2)=1
   jump#=1
else
   jump#=0
   endif
if OBJECT COLLISION (1,2)=1
   grav#=0
else
   grav#=1
   endif

do
  if upkey()=1
    speed# = 0.1
  endif
  if downkey()=1
    speed# = -0.1
  endif
  if leftkey()=1
    YRotate Object 1,WrapValue(Object Angle Y(1)-.3)
  endif
  if rightkey()=1
    YRotate Object 1,WrapValue(Object Angle Y(1)+.3)
  endif
if spacekey() =1
if jump#=1
   move OBJECT UP 1,20
   jump#=0
   endif
endif
  move object 1,speed#
if grav#=1
 move OBJECT down 1,0.1
   endif
if grav#=0
move OBJECT down 1,0
endif

text 1,1, "grav#"+str$(grav#)
text 1,15, "jump#"+str$(jump#)


   speed#=0

  set camera to follow object position x(1),object position y(1),object position z(1),object angle y(1),8,4,1,1

loop
end

Back to top

Profile PM

Twu Kai

19

Years of Service

User Offline

Joined: 2nd Oct 2005

Location:

Posted: 10th Feb 2008 14:32 Edited at: 10th Feb 2008 14:45

Link

Your code checks for the collision outside of the do-loop. You need to put it inside. SET OBJECT COLLISION ON 1 is fine, it's just the IF statements that need to go inside the loop. What's happening is that each time the do-loop loops, it checks for what you ask it to check. Your code only checks once, and then it starts looping which means that the gravity/collision never happens. Hope that's clear.

Back to top

Profile PM

Mr Penguin99

16

Years of Service

User Offline

Joined: 23rd Jan 2008

Location:

Posted: 10th Feb 2008 16:57

Link

how do i fix it?

thanks

Back to top

Profile PM

Twu Kai

19

Years of Service

User Offline

Joined: 2nd Oct 2005

Location:

Posted: 10th Feb 2008 18:41 Edited at: 10th Feb 2008 18:42

Link

You need to change your code from what you posted to the below.

+ Code Snippet

REM Project: adventure game
REM Created: 2/7/2008 8:46:10 PM
REM
REM ***** Main Source File *****
REM
set display mode 1280, 1024, 32
MAKE OBJECT PLAIN 2,100,100
xROTATE OBJECT 2,90
load object "penguin.x",1
SET OBJECT COLLISION ON 1

do
if OBJECT COLLISION (1,2)=1
   jump#=1
else
   jump#=0
   endif
if OBJECT COLLISION (1,2)=1
   grav#=0
else
   grav#=1
   endif

  if upkey()=1
    speed# = 0.1
  endif
  if downkey()=1
    speed# = -0.1
  endif
  if leftkey()=1
    YRotate Object 1,WrapValue(Object Angle Y(1)-.3)
  endif
  if rightkey()=1
    YRotate Object 1,WrapValue(Object Angle Y(1)+.3)
  endif
if spacekey() =1
if jump#=1
   move OBJECT UP 1,20
   jump#=0
   endif
endif
  move object 1,speed#
if grav#=1
 move OBJECT down 1,0.1
   endif
if grav#=0
move OBJECT down 1,0
endif

text 1,1, "grav#"+str$(grav#)
text 1,15, "jump#"+str$(jump#)


   speed#=0

  set camera to follow object position x(1),object position y(1),object position z(1),object angle y(1),8,4,1,1

loop
end

Back to top

Profile PM

Mr Penguin99

16

Years of Service

User Offline

Joined: 23rd Jan 2008

Location:

Posted: 11th Feb 2008 03:40

Link

it still does not work right, gravity only happens if i move up or down and if i hold the space down i can keep going up.

thanks

Back to top

Profile PM

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 11th Feb 2008 16:18

Link

Works fine for me. Maybe it has something to do with your model? Also check to see if you have the latest DBPro version (1.066 I think)

Powered by Box2D Physics. Thanks Diggsey!

Back to top

Profile PM Email Website

Mr Penguin99

16

Years of Service

User Offline

Joined: 23rd Jan 2008

Location:

Posted: 11th Feb 2008 17:45

Link

i'm using the Trial Version of DarkBASIC Professional.

Back to top

Profile PM

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 11th Feb 2008 22:18

Link

Mr Penguin99:

Please bear in mind that the trial version of DBPro is only meant to give you a taste of what using it is like.

It is well out of date now as the full version you buy has had many updates, whereas the trial is still the old non-patched version.

So, any problems you encounter in the trial should not be taken to mean they are present in the version we all use.

After all, if the trial was as good as the full version, no-one would update to the full version!

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / platforming help