Menu Clearing Issue - GameCreators Forum

Author

Message

Programmer of Power

19

Years of Service

User Offline

Joined: 22nd Aug 2005

Location: Home

Posted: 10th Nov 2006 21:46

Link

I'm trying to setup a menu for my game. There's nothing special about this menu, in general, if you click on something, it should lead to a separate menu while clearing the first menu off the screen.

Currently, when I go to another menu, the first stays on the screen and gets in the way. Take a look.

dim savedGame(2,2);

gunLevel=0;
shieldLevel=0;

gosub menu;

menu:
   `new game
   if button2(200,150,"New Game")>0
      gosub newGame;
   endif

`continue game
   `NOTE: Check to see if continue game is valid.
   if button2(200,200,"Continue")>0
      gosub continueGame;
   endif

`options
   if button2(200,250,"Options")>0
      gosub options;
   endif

`end game
   if button2(200,400,"Exit")>0
      end;
   endif
   goto menu;
return;

newGame:
   savedGame(0,0)=0;
   savedGame(0,1)=1;
   savedGame(0,2)=2;

gosub levelOne;
return

continueGame:
   load array "stats.dat",savedGame(2);
   gunLevel=savedGame(1,0);
   shieldLevel=savedGame(2,0);

`load the level
   if savedGame(0,0)=0
      gosub levelOne;
   else
      if savedGame(0,0)=1
         gosub levelTwo;
      else
         if savedGame(0,0)=2
            gosub levelThree;
         endif
      endif
   endif
return;

options:
   cls;
   if button2(200,200,"Back")>0
      goto menu;
   endif
return;

levelOne:

return;

levelTwo:

return;

levelThree:

return;

` to make a button like button 2 (changes color when moused over)
function button2(x,y,content$)
   colortheme = rgb(255,0,0);
   pressed = 0;
   tx = text width(content$) / 2;
   ty = text height(content$) / 2;
   if mousex() > x - tx and mousex() < x + tx;
      if mousey() > y - ty and mousey() < y + ty;
         pressed = 1;
      endif
   endif
   if pressed = 1 then ink colortheme,0 else ink rgb(255,255,255),0
   center text x,y - ty, content$;
   if pressed > 0
      pressed = mouseclick();
   endif
endfunction pressed

+ Code Snippet

dim savedGame(2,2);

gunLevel=0;
shieldLevel=0;

gosub menu;

menu:
   `new game
   if button2(200,150,"New Game")>0
      gosub newGame;
   endif

   `continue game
   `NOTE: Check to see if continue game is valid.
   if button2(200,200,"Continue")>0
      gosub continueGame;
   endif

   `options
   if button2(200,250,"Options")>0
      gosub options;
   endif

   `end game
   if button2(200,400,"Exit")>0
      end;
   endif
   goto menu;
return;

newGame:
   savedGame(0,0)=0;
   savedGame(0,1)=1;
   savedGame(0,2)=2;

   gosub levelOne;
return

continueGame:
   load array "stats.dat",savedGame(2);
   gunLevel=savedGame(1,0);
   shieldLevel=savedGame(2,0);

   `load the level
   if savedGame(0,0)=0
      gosub levelOne;
   else
      if savedGame(0,0)=1
         gosub levelTwo;
      else
         if savedGame(0,0)=2
            gosub levelThree;
         endif
      endif
   endif
return;

options:
   cls;
   if button2(200,200,"Back")>0
      goto menu;
   endif
return;

levelOne:

return;

levelTwo:

return;

levelThree:

return;

` to make a button like button 2 (changes color when moused over)
function button2(x,y,content$)
   colortheme = rgb(255,0,0);
   pressed = 0;
   tx = text width(content$) / 2;
   ty = text height(content$) / 2;
   if mousex() > x - tx and mousex() < x + tx;
      if mousey() > y - ty and mousey() < y + ty;
         pressed = 1;
      endif
   endif
   if pressed = 1 then ink colortheme,0 else ink rgb(255,255,255),0
   center text x,y - ty, content$;
   if pressed > 0
      pressed = mouseclick();
   endif
endfunction pressed

"I will work harder... if you ask me enough times... or give me enough coffee"

Back to top

Profile PM Email

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 11th Nov 2006 00:41

Link

Try making a variable, called menu. Then on make the buttons "if menu=1" or "if menu=2" you know?

Back to top

Profile PM Email

Programmer of Power

19

Years of Service

User Offline

Joined: 22nd Aug 2005

Location: Home

Posted: 11th Nov 2006 19:27

Link

I know what you mean, but I think the problem is within the clearing of the first menu, not the creation of the second.

The program is setup in a branching subroutine fashion and I'm just not sure how to clear the first menu away while the second appears.

I attempted to implement the if menu's as shown in the

+ Code Snippet

menu:
   menu=1
   if menu=1`new game
      if button2(200,150,"New Game")>0
         gosub newGame;
      endif

      `continue game
      `NOTE: Check to see if continue game is valid.
      if button2(200,200,"Continue")>0
         menu=2;
         gosub continueGame;
      endif

      `options
      if button2(200,250,"Options")>0
         menu=3;
         gosub options;
      endif

      `end game
      if button2(200,400,"Exit")>0
         end;
      endif
      goto menu;
   endif
return;

combined with the

+ Code Snippet

options:
      cls;
      if button2(200,200,"Back")>0
         menu=1;
         goto menu;
      endif
return;

The main menu should close when the options menu is opened because the menu variable becomes equal to 3 and the main should only be open when menu equals one. I suppose that the first stays open because the menu continues to loop. Any suggestions?

"I will work harder... if you ask me enough times... or give me enough coffee"

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 12th Nov 2006 01:07 Edited at: 12th Nov 2006 01:16

Link

It's doing it because when you click on options it does "gosub options;". In the options label if the back menu hasn't been selected immediately it returns back to the line after the gosub to get to options... which means your back in the main menu.

It's best to avoid "goto" at all costs and use only "gosub" if you must... but even using "gosub" can cause problems if you're not carful.

Are you using Classic or Pro?

Edit: Also using "cls;" is making it not clear the screen. Remove all semicolons because their not needed... this isn't C++.

Back to top

Profile PM Email

Programmer of Power

19

Years of Service

User Offline

Joined: 22nd Aug 2005

Location: Home

Posted: 12th Nov 2006 06:20

Link

I'm using pro, and the semicolons are just a habit from java. I thought that the cls command did clear the screen, I wasn't aware that it hindered screen clearing.....

"I will work harder... if you ask me enough times... or give me enough coffee"

Back to top

Profile PM Email

Programmer of Power

19

Years of Service

User Offline

Joined: 22nd Aug 2005

Location: Home

Posted: 21st Nov 2006 04:07

Link

Alright, I've attempted to implement the if statements version and there's some success, but the menu still doesn't clear itself.

+ Code Snippet

menu=0;

do
   cls;
   if menu=0
      gosub mainMenu;
   endif

   if menu=1
      gosub continueMenu;
   endif

   if menu=2
      gosub optionsMenu;
   endif
loop

mainMenu:
   `new game
   if button2(200,150,"New Game")>0
      gosub newGame;
   endif

   `continue game
   `NOTE: Check to see if continue game is valid.
   if button2(200,200,"Continue")>0
      menu=1;
   endif

   `options
   if button2(200,250,"Options")>0
      menu=2;
   endif

   `end game
   if button2(200,400,"Exit")>0
      end;
   endif
return;

continueMenu:
   if button2(200,300,"Back")>0
      menu=0;
   endif
return;

optionsMenu:
   if button2(200,300,"Back")>0
      menu=0;
   endif
return;

"I will work harder... if you ask me enough times... or give me enough coffee"

Back to top

Profile PM Email

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 21st Nov 2006 05:53 Edited at: 21st Nov 2006 05:59

Link

Have used the while command, run it and see, what it does is keeps doing the mainmenu until you press the 1 key or if you use your button code then goes to that bit of code.

+ Code Snippet

menu=0;

do
while menu=0
gosub mainMenu
endwhile

loop

mainmenu:
   `new game
   if button2(200,150,"New Game")>0
      gosub newGame;
   endif

   `continue game
   `NOTE: Check to see if continue game is valid.
   if button2(200,200,"Continue")>0
      menu=1;
   endif

   `options
   if button2(200,250,"Options")>0
      menu=2;
   endif

   `end game
   if button2(200,400,"Exit")>0
      end;
   endif
return

continueMenu:
   if button2(200,300,"Back")>0
      menu=0;
   endif
return

optionsMenu:
   if button2(200,300,"Back")>0
      menu=0;
   endif
return;
newgame:
cls
print "press a key"
print "menu = ";menu
sync
wait key
return

function button2(x,y,t$)
set cursor x,y
print x
print y
print t$
if inkey$()="1" then e=1:menu=1
endfunction e

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 21st Nov 2006 09:27

Link

You're still using "cls;" which won't clear the screen because of the semicolon. Remove it and it'll clear the screen.

I made this to help you kick the habit of semicolons:

+ Code Snippet

Slaps=0

` Change the filename to the filename of your code
open to read 1,"menu1.dba"

do
 if file end(1) then exit
 read string 1,a$
 for t=1 to len(a$)
  if mid$(a$,t)=";"
   inc Slaps
  endif
 next t

loop
close file 1

print "You need to slap your hand "+str$(Slaps)+" times for using semicolons."
wait key

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Menu Clearing Issue