Platform Jump - GameCreators Forum

Author

Message

Gamedesign er20

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: The one place you would never look...

Posted: 29th Oct 2006 21:52

Link

This is an old Gravity code which I tried to spruce up by adding some platforms. Unforuntatly, i tried a bunch of things and could not get the sprite to land on the platform, only be stoped by it.

REM << make and position character sprite
sync on
sync rate 60
hide mouse

ink rgb(255,255,255),0
box 0,0,50,50
get image 1,0,0,50,50
charxpos# = 400
charypos# = 400
Attack#=10
back#=2
mx=Mousex()
cls
sprite 1,charxpos#,charypos#,1

REM << draw ground and print instructions to screen
ink rgb(0,255,0),0
line 0,450,screen width() - 1,450
ink rgb(0,0,255),0
line 500,350,400,350
ink rgb(255,0,0),0
center text screen width() / 2,5,"USE ARROW KEYS TO MOVE CHARACTER AND PRESS SPACEKEY TO JUMP"

REM << set gravity(gravity is set to positive value because in 2D positive is downward)
gravity# = 0.90

REM <<<<<<<<<<<<<<<<<<<<<<<< MAIN LOOP >>>>>>>>>>>>>>>>>>>>>>>>>>>
do

REM << activate jump sequence if character is on ground
if state = 0 and spacekey() = 1
   state = 1
   REM << jumpspeed is set to negative because in 2D negative is upwards
   jumpspeed# = -15
endif
REM << jump sequence
if state = 1
   inc charypos#,jumpspeed#
   inc jumpspeed#,gravity#
   REM << if bottom(charypos# + charheight{50}) of character goes below ground then reposition him above ground and reset jump state
   if charypos# + 50 > 450
      state = 0
      charypos# = 400
   endif
endif

if charxpos#>600 then charxpos#=600
if charxpos#<0 then charxpos#=0
if charypos#<350 and charypos#>301 and charxpos#>350 and charxpos#<500 then charypos#=350

REM << move character
if rightkey() = 1 then inc charxpos#,3
if leftkey() = 1 then dec charxpos#,3

REM << update sprite image
sprite 1,charxpos#,charypos#,1
sync
loop
cls
sync
end

+ Code Snippet

REM << make and position character sprite
sync on
sync rate 60
hide mouse

ink rgb(255,255,255),0
box 0,0,50,50
get image 1,0,0,50,50
charxpos# = 400
charypos# = 400
Attack#=10
back#=2
mx=Mousex()
cls
sprite 1,charxpos#,charypos#,1

REM << draw ground and print instructions to screen
ink rgb(0,255,0),0
line 0,450,screen width() - 1,450
ink rgb(0,0,255),0
line 500,350,400,350
ink rgb(255,0,0),0
center text screen width() / 2,5,"USE ARROW KEYS TO MOVE CHARACTER AND PRESS SPACEKEY TO JUMP"


REM << set gravity(gravity is set to positive value because in 2D positive is downward)
gravity# = 0.90

REM <<<<<<<<<<<<<<<<<<<<<<<< MAIN LOOP >>>>>>>>>>>>>>>>>>>>>>>>>>>
do


REM << activate jump sequence if character is on ground
if state = 0 and spacekey() = 1
   state = 1
   REM << jumpspeed is set to negative because in 2D negative is upwards
   jumpspeed# = -15
endif
REM << jump sequence
if state = 1
   inc charypos#,jumpspeed#
   inc jumpspeed#,gravity#
   REM << if bottom(charypos# + charheight{50}) of character goes below ground then reposition him above ground and reset jump state
   if charypos# + 50 > 450
      state = 0
      charypos# = 400
   endif
endif


if charxpos#>600 then charxpos#=600
if charxpos#<0 then charxpos#=0
if charypos#<350 and charypos#>301 and charxpos#>350 and charxpos#<500 then charypos#=350


REM << move character
if rightkey() = 1 then inc charxpos#,3
if leftkey() = 1 then dec charxpos#,3

REM << update sprite image
sprite 1,charxpos#,charypos#,1
sync
loop
cls
sync
end

could anyone figure out how to get the block to land on the platform?

Cocacola and Pepsi aren't that differnt. Deal with it.

Back to top

Profile PM Email

Crit

18

Years of Service

User Offline

Joined: 24th May 2006

Location:

Posted: 30th Oct 2006 01:36

Link

This code only works for the one platform...

REM << make and position character sprite
sync on
sync rate 60
hide mouse

ink rgb(255,255,255),0
box 0,0,50,50
get image 1,0,0,50,50
charxpos# = 400
charypos# = 400
Attack#=10
back#=2
mx=Mousex()
cls
sprite 1,charxpos#,charypos#,1

REM << draw ground and print instructions to screen
ink rgb(0,255,0),0
line 0,450,screen width() - 1,450
ink rgb(0,0,255),0
line 500,350,400,350
ink rgb(255,0,0),0
center text screen width() / 2,5,"USE ARROW KEYS TO MOVE CHARACTER AND PRESS SPACEKEY TO JUMP"

REM << set gravity(gravity is set to positive value because in 2D positive is downward)
gravity# = 0.90

REM <<<<<<<<<<<<<<<<<<<<<<<< MAIN LOOP >>>>>>>>>>>>>>>>>>>>>>>>>>>
do

REM << activate jump sequence if character is on ground
if state = 0 and spacekey() = 1
   state = 1
   REM << jumpspeed is set to negative because in 2D negative is upwards
   jumpspeed# = -15
endif

REM << jump sequence
if state = 1
   inc charypos#,jumpspeed#
   inc jumpspeed#,gravity#
   REM << if bottom(charypos# + charheight{50}) of character goes below ground then reposition him above ground and reset jump state

if state=1 and charypos# + 50 > 450
      state = 0
      charypos# = 400
   endif

`land on the platform
   if (jumpspeed# >= 0.0) and charypos#<350 and charypos#>301 and charxpos#>350 and charxpos#<500
     charypos#=301
     state=0
   endif
endif

`fall off the platform
  if (charxpos#<350 or charxpos#>500) and charypos# <350 then state =1

if charxpos#>600 then charxpos#=600
if charxpos#<0 then charxpos#=0

`if charypos#<350 and charypos#>301 and charxpos#>350 and charxpos#<500 then charypos#=350

REM << move character
if rightkey() = 1 then inc charxpos#,3
if leftkey() = 1 then dec charxpos#,3

REM << update sprite image
sprite 1,charxpos#,charypos#,1
text 10,10, str$(charypos#)
sync
loop
cls
sync
end

+ Code Snippet

REM << make and position character sprite
sync on
sync rate 60
hide mouse

ink rgb(255,255,255),0
box 0,0,50,50
get image 1,0,0,50,50
charxpos# = 400
charypos# = 400
Attack#=10
back#=2
mx=Mousex()
cls
sprite 1,charxpos#,charypos#,1

REM << draw ground and print instructions to screen
ink rgb(0,255,0),0
line 0,450,screen width() - 1,450
ink rgb(0,0,255),0
line 500,350,400,350
ink rgb(255,0,0),0
center text screen width() / 2,5,"USE ARROW KEYS TO MOVE CHARACTER AND PRESS SPACEKEY TO JUMP"

REM << set gravity(gravity is set to positive value because in 2D positive is downward)
gravity# = 0.90

REM <<<<<<<<<<<<<<<<<<<<<<<< MAIN LOOP >>>>>>>>>>>>>>>>>>>>>>>>>>>
do


REM << activate jump sequence if character is on ground
if state = 0 and spacekey() = 1
   state = 1
   REM << jumpspeed is set to negative because in 2D negative is upwards
   jumpspeed# = -15
endif



REM << jump sequence
if state = 1
   inc charypos#,jumpspeed#
   inc jumpspeed#,gravity#
   REM << if bottom(charypos# + charheight{50}) of character goes below ground then reposition him above ground and reset jump state

   if state=1 and charypos# + 50 > 450
      state = 0
      charypos# = 400
   endif

   `land on the platform
   if (jumpspeed# >= 0.0) and charypos#<350 and charypos#>301 and charxpos#>350 and charxpos#<500
     charypos#=301
     state=0
   endif
endif

  `fall off the platform
  if (charxpos#<350 or charxpos#>500) and charypos# <350 then state =1

if charxpos#>600 then charxpos#=600
if charxpos#<0 then charxpos#=0

`if charypos#<350 and charypos#>301 and charxpos#>350 and charxpos#<500 then charypos#=350

REM << move character
if rightkey() = 1 then inc charxpos#,3
if leftkey() = 1 then dec charxpos#,3

REM << update sprite image
sprite 1,charxpos#,charypos#,1
text 10,10, str$(charypos#)
sync
loop
cls
sync
end

CHESS ENCOUNTER
Demo
WIP

Back to top

Profile PM

Gamedesign er20

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: The one place you would never look...

Posted: 30th Oct 2006 22:03

Link

Thanks

It worked.

Cocacola and Pepsi aren't that differnt. Deal with it.

Back to top

Profile PM Email

Crit

18

Years of Service

User Offline

Joined: 24th May 2006

Location:

Posted: 30th Oct 2006 22:10

Link

No problem. Good luck with adding more platforms!

CHESS ENCOUNTER
Demo
WIP

Back to top

Profile PM

Gamedesign er20

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: The one place you would never look...

Posted: 30th Oct 2006 23:03

Link

One more question, I tried adding another platform after looking at what you did, and for some strange reason it didn't work. Tell me what you think

REM << make and position character sprite
sync on
sync rate 60
hide mouse

ink rgb(255,255,255),0
box 0,0,50,50
get image 1,0,0,50,50
charxpos# = 340
charypos# = 400
Attack#=10
back#=2
mx=Mousex()
cls
sprite 1,charxpos#,charypos#,1

REM << draw ground and print instructions to screen
ink rgb(0,255,0),0
line 0,450,screen width() - 1,450
ink rgb(0,0,255),0
line 500,350,400,350
Line 250,270,350,270
ink rgb(255,0,0),0
center text screen width() / 2,5,"USE ARROW KEYS TO MOVE CHARACTER AND PRESS SPACEKEY TO JUMP"

REM << set gravity(gravity is set to positive value because in 2D positive is downward)
gravity# = 0.90

REM <<<<<<<<<<<<<<<<<<<<<<<< MAIN LOOP >>>>>>>>>>>>>>>>>>>>>>>>>>>
do

REM << activate jump sequence if character is on ground
if state = 0 and spacekey() = 1
   state = 1
   REM << jumpspeed is set to negative because in 2D negative is upwards
   jumpspeed# = -15
endif

REM << jump sequence
if state = 1
   inc charypos#,jumpspeed#
   inc jumpspeed#,gravity#
   REM << if bottom(charypos# + charheight{50}) of character goes below ground then reposition him above ground and reset jump state

if state=1 and charypos# + 50 > 450
      state = 0
      charypos# = 400
   endif

`land on the platform
   if (jumpspeed# >= 0.0) and charypos#<350 and charypos#>301 and charxpos#>350 and charxpos#<500
     charypos#=301
     state=0
   endif
endif
   if (jumpspeed# >= 0.0) and charypos#<263 and charypos#>220 and charxpos#>200 and charxpos#<350
     charypos#=220
     state=0
   endif

`fall off the platform
  if (charxpos#<350 or charxpos#>500) and charypos# <350 then state =1
  if (charxpos#<200 or charxpos#>350) and charypos# <263 then state =1

if charxpos#>600 then charxpos#=600
if charxpos#<0 then charxpos#=0

`if charypos#<350 and charypos#>301 and charxpos#>350 and charxpos#<500 then charypos#=350

REM << move character
if rightkey() = 1 then inc charxpos#,3
if leftkey() = 1 then dec charxpos#,3

REM << update sprite image
sprite 1,charxpos#,charypos#,1
text 10,10, str$(charypos#)
sync
loop
cls
sync
end

+ Code Snippet

REM << make and position character sprite
sync on
sync rate 60
hide mouse

ink rgb(255,255,255),0
box 0,0,50,50
get image 1,0,0,50,50
charxpos# = 340
charypos# = 400
Attack#=10
back#=2
mx=Mousex()
cls
sprite 1,charxpos#,charypos#,1

REM << draw ground and print instructions to screen
ink rgb(0,255,0),0
line 0,450,screen width() - 1,450
ink rgb(0,0,255),0
line 500,350,400,350
Line 250,270,350,270
ink rgb(255,0,0),0
center text screen width() / 2,5,"USE ARROW KEYS TO MOVE CHARACTER AND PRESS SPACEKEY TO JUMP"

REM << set gravity(gravity is set to positive value because in 2D positive is downward)
gravity# = 0.90

REM <<<<<<<<<<<<<<<<<<<<<<<< MAIN LOOP >>>>>>>>>>>>>>>>>>>>>>>>>>>
do


REM << activate jump sequence if character is on ground
if state = 0 and spacekey() = 1
   state = 1
   REM << jumpspeed is set to negative because in 2D negative is upwards
   jumpspeed# = -15
endif



REM << jump sequence
if state = 1
   inc charypos#,jumpspeed#
   inc jumpspeed#,gravity#
   REM << if bottom(charypos# + charheight{50}) of character goes below ground then reposition him above ground and reset jump state

   if state=1 and charypos# + 50 > 450
      state = 0
      charypos# = 400
   endif

   `land on the platform
   if (jumpspeed# >= 0.0) and charypos#<350 and charypos#>301 and charxpos#>350 and charxpos#<500
     charypos#=301
     state=0
   endif
endif
   if (jumpspeed# >= 0.0) and charypos#<263 and charypos#>220 and charxpos#>200 and charxpos#<350
     charypos#=220
     state=0
   endif

  

  `fall off the platform
  if (charxpos#<350 or charxpos#>500) and charypos# <350 then state =1
  if (charxpos#<200 or charxpos#>350) and charypos# <263 then state =1

if charxpos#>600 then charxpos#=600
if charxpos#<0 then charxpos#=0

`if charypos#<350 and charypos#>301 and charxpos#>350 and charxpos#<500 then charypos#=350

REM << move character
if rightkey() = 1 then inc charxpos#,3
if leftkey() = 1 then dec charxpos#,3

REM << update sprite image
sprite 1,charxpos#,charypos#,1
text 10,10, str$(charypos#)
sync
loop
cls
sync
end

Cocacola and Pepsi aren't that differnt. Deal with it.

Back to top

Profile PM Email

Crit

18

Years of Service

User Offline

Joined: 24th May 2006

Location:

Posted: 30th Oct 2006 23:34

Link

Hmm. I don't have dbp here to test, but I would say the "fall off the platform" code is to blame.

Maybe instead of making giant areas to check you could limit the search to a tiny square at the edge of each platform.

eg:

+ Code Snippet

if charxpos#>500 and charxpos#<505 and charypos#=301 then state=1
if charxpos#<350 and charxpos#>345 and charypos#=301 then state=1

and then do something similar for the other platform.

Of course, if you are going to continue expanding, you should consider using arrays, functions, and user defined types. If not, your code will get very messy very quickly.

CHESS ENCOUNTER
Demo
WIP

Back to top

Profile PM

Gamedesign er20

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: The one place you would never look...

Posted: 30th Oct 2006 23:55

Link

Thanks, again

limiting the search to a tiny square worked.

Quote: "Of course, if you are going to continue expanding, you should consider using arrays, functions, and user defined types. If not, your code will get very messy very quickly."

\

don't worry, this is just a test program to make sure everything works before I start my real game. When I do start my game, I'm going to make a function for platform collision so like you said, my code won't be messy.

Cocacola and Pepsi aren't that differnt. Deal with it.

Back to top

Profile PM Email

Crit

18

Years of Service

User Offline

Joined: 24th May 2006

Location:

Posted: 31st Oct 2006 00:07

Link

Good idea. Game design is hard if you don't have a plan.

CHESS ENCOUNTER
Demo
WIP

Back to top

Profile PM

Gamedesign er20

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: The one place you would never look...

Posted: 2nd Nov 2006 01:37

Link

Really sorry to bump this thread, but i don't think it is necessary to start a new one just to ask a very small question. When i dec a variable that is being printed to the screen, for example

+ Code Snippet

Health=100
        do
        text 20,50, str$(Health)
        if upkey()=1 then dec Health
        sync
        loop

instead of the screen reading 99 when i press the upkey, it just get's all blury

. Does that happen to anyone else?

Cocacola and Pepsi aren't that differnt. Deal with it.

Back to top

Profile PM Email

C0wbox

18

Years of Service

User Offline

Joined: 6th Jun 2006

Location: 0,50,-150

Posted: 2nd Nov 2006 18:24 Edited at: 2nd Nov 2006 18:26

Link

It does with me, personally, I'd use print and CLS rather than a text command.

+ Code Snippet

HEALTH=100
do
 cls
 print HEALTH
 if upkey()=1 then dec HEALTH
loop

Edit: Whoops I forgot the CLS

It may also be too fast and you may wish to include a wait command such as wait 50 after the dec HEALTH. Just to slow it down enough that you can see what your doing.

Back to top

Profile PM Email Website

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 3rd Nov 2006 12:40

Link

if your on pro try fast sync in your main loop, it might alleviate a cls which is another sync in itself.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Platform Jump