Menu During Play - GameCreators Forum

Author

Message

Dreamon Star

17

Years of Service

User Offline

Joined: 24th Feb 2007

Location: The Frozen Wasteland

Posted: 28th Feb 2007 02:13

Link

I'm still new to this WHOLE THING

ok, here's my thing, i've looked a little for anything that could help with making a menu during game play, and found some helpful stuff. Anyways, what i'm trying to accomplish is that during game play pressing the shift key will make a menu appear much as in the begining of my game, and pause the game, allowing you to resume on the shift key again.

I have used functions a bit, and use it for this, and plan to use the button function in it as well. Another problem is that the $ and # do not appear, but just show 0.

heres a small portion of the code.

+ Code Snippet


Function Menu()

if Shiftkey()=1 then liststats#=1
   if Liststats#=1
      Set Text Font "Arial" : Set Text Size 18 : Set Text To Bold

      Button(100,100,Race$)
      Print Attack$+str$(Attack#)
      Print Defense$+str$(Defense#)
      Wait Key
   endif
endfunction

If anyone can help with that, or my other post on .x polygon collisions PLEASE help... thanx

www.soundclick.com/octoberscry ---> My Doom Metal Band

Back to top

Profile PM Email Website

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 28th Feb 2007 12:27

Link

Quote: "Another problem is that the $ and # do not appear, but just show 0."

You've just discovered the 'downside' of functions - variables in a function are local. Admittedly, in some situations this can be an advantage.

Had you created a procedure and used Gosub, you wouldn't have had the problem.

As for your main problem with the menu, if you've structured your program correctly it should be a simple case of creating a menu procedure which contains a main loop which traps the program until you select continue - at which point it exits the proc and drops back to the main game loop.

Only because you said "I'm still new to this WHOLE THING", I have to suggest that you read some tutorials to bring you up to speed. If you haven't seen them, there's one which covers program layout here:

http://forum.thegamecreators.com/?m=forum_view&t=99497&b=7

Check out tutorial number 2 in particular. You might find some of the others useful too - like the one on functions!

TDK_Man

Back to top

Profile PM Email Website

Dreamon Star

17

Years of Service

User Offline

Joined: 24th Feb 2007

Location: The Frozen Wasteland

Posted: 3rd Mar 2007 22:56

Link

thanks man... i was hoping to use functions in particular because i am making a fairly large rpg. But, the gosubs seem to be an easier way to get all the valuable info out of it i need. I have gotten a menu to appear although the button functions seem to not work in game play, and it seems like in order for the menu image to appear, you must use key press the up button twice as apposed to once.... which is a major pain... but, i'll figure it out more eventually.

If anyone can help with collision... Which is a killer being new, I HAVE read all the stuff in the massive collision resource, and sparky's crashes my program...

i'm using an .x based world, and .x based character... falling though the ground isn't that fun... lol...

here's my little move character snipit...

Function Move_Character()
set object collision on 9999
set object collision on 1

x1#=object position x (9999)
y1#=object position y (9999)
z1#=object position z (9999)
ax#=object angle x (9999)
ay#=object angle y (9999)
az#=object angle z (9999)
mx#=mousemovex()
my#=mousemovey()

if mx#<0 then yrotate object 9999,ay#-2
if mx#>0 then yrotate object 9999,ay#+2

REM "W"
   If keystate(17)=1 then move object 9999,-0.3
   H#=Object Collision (9999,1)
      if H#>1 then move object 9999,+0.3
            if H#=0
         endif
   REM "S"
   if keystate(31)=1 then move object 9999,0.3
   H#=Object Collision (9999,1)
      if H#>1 then move object 9999,-0.3
            if H#=0
         endif
   REM "A"
   if keystate(32)=1 then move object left 9999,+0.2
   H#=Object Collision (9999,1)
      if H#>1 then move object left 9999,-0.2
            if H#=0
         endif
   REM "D"
   if keystate(30)=1 then move object right 9999,+0.2
   H#=Object Collision (9999,1)
      if H#>1 then move object right 9999,-0.2
            if H#=0
         endif
   position object 9999,x1#,y1#-0.89,z1#
   H#=Object Collision (9999,1)
      if H#>1 then position object 9999,x1#,y1#+0.9,z1#
            if H#=0
         endif

endfunction

+ Code Snippet

Function Move_Character()
set object collision on 9999
set object collision on 1


x1#=object position x (9999)
y1#=object position y (9999)
z1#=object position z (9999)
ax#=object angle x (9999)
ay#=object angle y (9999)
az#=object angle z (9999)
mx#=mousemovex()
my#=mousemovey()

if mx#<0 then yrotate object 9999,ay#-2
if mx#>0 then yrotate object 9999,ay#+2

   REM "W"
   If keystate(17)=1 then move object 9999,-0.3
   H#=Object Collision (9999,1)
      if H#>1 then move object 9999,+0.3
            if H#=0
         endif
   REM "S"
   if keystate(31)=1 then move object 9999,0.3
   H#=Object Collision (9999,1)
      if H#>1 then move object 9999,-0.3
            if H#=0
         endif
   REM "A"
   if keystate(32)=1 then move object left 9999,+0.2
   H#=Object Collision (9999,1)
      if H#>1 then move object left 9999,-0.2
            if H#=0
         endif
   REM "D"
   if keystate(30)=1 then move object right 9999,+0.2
   H#=Object Collision (9999,1)
      if H#>1 then move object right 9999,-0.2
            if H#=0
         endif
   position object 9999,x1#,y1#-0.89,z1#
   H#=Object Collision (9999,1)
      if H#>1 then position object 9999,x1#,y1#+0.9,z1#
            if H#=0
         endif

endfunction

PS... I know there is probably 100 things you could rip me apart for this code.

I did try TDK's collision... and like all of them... which all worked fine when just run with thier snipits, but.... i'm using .x characters now... anyways... here goes nothing

www.soundclick.com/octoberscry ---> My Doom Metal Band

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Menu During Play