How to return to the point where you paused

Author

Message

Yodaman Jer

User Banned

Posted: 22nd Feb 2008 18:05

I"m having trouble with pausing. When the player pauses it's supposed to go to this pause menu. It does. But when you want to go back, it starts the level over again. I used gosub to get there and gosub to get back, which probably is going to be the culprit(or just part of the culprit), but I don't know how to get back to point when the player pauses.
Here's the code:

`controls
if upkey()=1 then move object 1,0.35
if downkey()=1 then move object 1,-0.35
if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-2)
if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+2)
if spacekey()=1 and playergrav#=0 then playergrav#=0.35
if inkey$()="p" then gosub PAUSEMENU
if inkey$()="t" then position camera 25,35,55 : point camera 0,-5,0
` get current object position
posx#=object position x(1)
posy#=object position y(1)
posz#=object position z(1)
` gravity
playergrav#=playergrav#-0.01
posy#=posy#+playergrav#
`sliding collision
position object 1,posx#,posy#,posz#
if object collision(1,0)>0
   dec posx#,get object collision x()
   dec posy#,get object collision y()
   dec posz#,get object collision z()
   playergrav#=-0.0
endif
`set size for controled object
s#=object size y(1)/2.0
`ensure camera stays out of static boxes
if get static collision hit(oldposx#-s#,oldposy#-s#,oldposz#-s#,oldposx#+s#,oldposy#+s#,oldposz#+s#,posx#-s#,posy#-s#,posz#-s#,posx#+s#,posy#+s#,posz#+s#)=1
   dec posx#,get static collision x()
   dec posy#,get static collision y()
   dec posz#,get static collision z()
   if get static collision y()<>0.0 then playergrav#=0.0
endif
`update with new object position
position object 1,posx#,posy#,posz#
`camera
angle#=object angle y(1)
camdist#=5.5 : camhigh#=posy#+0.8 : camfade#=3.5
set camera to follow posx#,posy#,posz#,angle#,camdist#,camhigh#,camfade#,1
xrotate camera 10
`end loop
sync
loop

PAUSEMENU:
cls
do
set text font "Arial Black"
set text size 30
center text 520,250,"PAUSE"
center text 520,300,"Press Space to continue"
if spacekey()=1
Gosub L1
endif
loop

+ Code Snippet

`controls
if upkey()=1 then move object 1,0.35
if downkey()=1 then move object 1,-0.35
if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-2)
if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+2)
if spacekey()=1 and playergrav#=0 then playergrav#=0.35
if inkey$()="p" then gosub PAUSEMENU
if inkey$()="t" then position camera 25,35,55 : point camera 0,-5,0
` get current object position
posx#=object position x(1)
posy#=object position y(1)
posz#=object position z(1)
` gravity
playergrav#=playergrav#-0.01
posy#=posy#+playergrav#
`sliding collision
position object 1,posx#,posy#,posz#
if object collision(1,0)>0
   dec posx#,get object collision x()
   dec posy#,get object collision y()
   dec posz#,get object collision z()
   playergrav#=-0.0
endif
`set size for controled object
s#=object size y(1)/2.0
`ensure camera stays out of static boxes
if get static collision hit(oldposx#-s#,oldposy#-s#,oldposz#-s#,oldposx#+s#,oldposy#+s#,oldposz#+s#,posx#-s#,posy#-s#,posz#-s#,posx#+s#,posy#+s#,posz#+s#)=1
   dec posx#,get static collision x()
   dec posy#,get static collision y()
   dec posz#,get static collision z()
   if get static collision y()<>0.0 then playergrav#=0.0
endif
`update with new object position
position object 1,posx#,posy#,posz#
`camera
angle#=object angle y(1)
camdist#=5.5 : camhigh#=posy#+0.8 : camfade#=3.5
set camera to follow posx#,posy#,posz#,angle#,camdist#,camhigh#,camfade#,1
xrotate camera 10
`end loop
sync
loop

PAUSEMENU:
cls
do
set text font "Arial Black"
set text size 30
center text 520,250,"PAUSE"
center text 520,300,"Press Space to continue"
if spacekey()=1
Gosub L1
endif
loop

Can anyone tell me of a way HOW to get back? That doesn't involve gosub?
I'm thinking it will have to be stored in an array or a variable or something...

Yodaman Jer

Thanks to BigAdd for the incredibly awesome sig!

Back to top

Profile

Kevin Picone

22

Years of Service

User Offline

Joined: 27th Aug 2002

Location: Australia

Posted: 22nd Feb 2008 18:26 Edited at: 22nd Feb 2008 18:32

Link

Gosub and Return are pair! So if you gosub a sub-routine, then in order to return to the point of the calling gosub statement, we need to call RETURN. This will jump us back like nothing ever happened.

So this,

+ Code Snippet

PAUSEMENU:
cls
do
set text font "Arial Black"
set text size 30
center text 520,250,"PAUSE"
center text 520,300,"Press Space to continue"
if spacekey()=1
Gosub L1    
endif
loop

Would be,

+ Code Snippet


PAUSEMENU:
cls
do
set text font "Arial Black"
set text size 30
center text 520,250,"PAUSE"
center text 520,300,"Press Space to continue"
if spacekey()=1
 RETURN
endif
loop

Although, i'd structure it a little differently, as at the moment when the users presses the SPACE KEY they will most likely jump from the game to the pause screen and back again. Since the SPACEKEY() will probably still equal one (the person still their finger on the key) when computer is running the Pause Loop and then exit back to the game.

It would occur because the computer is running the code faster than the person can lift their finger from the Space bar. An easy way around this is would be to let the pause loop start the DO/LOOp, until the space key was released (Spacekey()=0). Which would work, but it's not the best solution.

Make Games Easier with www.PlayBASIC.com - 120 Day Free Trial

Back to top

Profile PM Website

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 22nd Feb 2008 18:34

Link

Try storing the player positions:

+ Code Snippet

rem store the player positions
storepx#=px#
storepy#=py#
storepz#=pz#

When you return out of the subroutine, like Kevin Picone explained, you restore the positions of the player:

+ Code Snippet

rem restore the positions of the player
px#=storepx#
py#=storepy#
pz#=storepz#

rem or
position object player,storepx#,storepy#,storepz#

I hope this helps

TheComet

Oooooops!!! I accidentally formated drive c.

Back to top

Profile PM Email Website

Yodaman Jer

User Banned

Posted: 22nd Feb 2008 19:17 Edited at: 22nd Feb 2008 19:18

Link

Thanks guys, it worked perfectly!
Thanks!

Yodaman Jer

Thanks BigAdd!!

Back to top

Profile

Sorry your browser is not supported!

DarkBASIC Discussion / How to return to the point where you paused