In Game Menu - GameCreators Forum

Author

Message

ArcherSam

15

Years of Service

User Offline

Joined: 13th Mar 2011

Location: Florida, US

Posted: 26th Apr 2011 17:33

Link

Hey, I need to create a in game menu where the previous background continues to be drawn while the in game menu is being used. Any help is appreciated.

Sam

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

19

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 26th Apr 2011 18:27

Link

You could just save a screenshot and paste the image before you draw your menu each loop.

Grab a screenshot like this:

+ Code Snippet

function save_screen_to_image(memblocknum,imagenum)
    `memblocknum must be the number of an existing unused memblock
    `just create one in your setup code using "Make Memblock"
    make memblock from bitmap memblocknum,0
    
    `imagenum should be a free image number too
    make image from memblock imagenum,memblocknum
endfunction

Back to top

Profile PM Email

Westmere

16

Years of Service

User Offline

Joined: 12th Mar 2010

Location: Germany

Posted: 26th Apr 2011 19:59

Link

I'm not sure if I understand you correctly.

Here are some hints into that direction:

You can use PNG images to draw semi-transparent buttons. With them you can continue your main drawing routines and just paint the buttons on top - if you use 3D objects you might want to use Draw To Front. Alternatively you can use sprites for this.

If that's not what you meant you might need to elaborate a bit.

Homepage

Back to top

Profile PM Email Website

ArcherSam

15

Years of Service

User Offline

Joined: 13th Mar 2011

Location: Florida, US

Posted: 27th Apr 2011 02:27

Link

The game is 2D and uses nothing but BASIC2D drawing commands with math. I wanted to take the 2D drawings and text at the time the in-game menu is called and save them to an image, where I would paste the saved image and then render the menu. Sorry for not elaborating Westmere.

Thanks baxslash, that's exactly what i'm looking for. One concern through: How would lower the contrast and brightness of the saved imaged, in order to prevent the in game menu being hard to read?

Back to top

Profile PM

ArcherSam

15

Years of Service

User Offline

Joined: 13th Mar 2011

Location: Florida, US

Posted: 27th Apr 2011 03:46 Edited at: 27th Apr 2011 03:51

Link

I got the error: Runtime error 502 - Image does not exist at line 68 . Help please!

The attachment is of the Background.jpg

Here's the code i'm using to create the in-game menu:

Rem Project: Dark Basic Pro Project
Rem Created: Tuesday, April 26, 2011

Rem ***** Main Source File *****

REM Precondition
SYNC
LOAD IMAGE "C:\Users\Sam\Desktop\Background.jpg", 1
PASTE IMAGE 1, 0, 0
WAIT KEY
CLS

InGameMenu_Loop:
     GOSUB InGameMenu_Graphics
     GOSUB InGameMenu_Data
     DO
          GOSUB InGameMenu_Controls
          GOSUB InGameMenu_Graphics
     LOOP

InGameMenu_Data:
    save_screen_to_image(1, 2) 
    
    menuChoice = 0
    
    RETURN

function save_screen_to_image(memblocknum,imagenum)
    `memblocknum must be the number of an existing unused memblock
    `just create one in your setup code using "Make Memblock"
    make memblock from bitmap memblocknum,0
    
    `imagenum should be a free image number too
    make image from memblock imagenum,memblocknum
endfunction

InGameMenu_Controls:
     REM Waiting for user input
     WAIT KEY
     
     REM Moving up the menu
     IF upKey() = 1 AND menuChoice = 0 THEN menuChoice = 0 : RETURN     
     IF upKey() = 1 AND menuChoice = 1 THEN menuChoice = 0 : RETURN
     IF upKey() = 1 AND menuChoice = 2 THEN menuChoice = 1 : RETURN 
     
     REM Moving down the menu
     IF downKey() = 1 AND menuChoice = 0 THEN menuChoice = 1 : RETURN
     IF downKey() = 1 AND menuChoice = 1 THEN menuChoice = 2 : RETURN
     IF downKey() = 1 AND menuChoice = 2 THEN menuChoice = 2 : RETURN
     
     REM Accepting user choice
     IF returnKey() = 1 AND menuChoice = 0 THEN `GOTO
     IF returnKey() = 1 AND menuChoice = 1 THEN `GOTO
     IF returnKey() = 1 AND menuChoice = 2 THEN `GOTO
     
     RETURN
     
InGameMenu_Graphics:
     CLS
     
     drawInGameMenu(menuChoice)
     
     SYNC
     
     RETURN
     
FUNCTION drawInGameMenu(menuChoice)
     PASTE IMAGE 2, 0, 0  REM Line 68
          
     IF menuChoice = 0
          CENTER TEXT screen width() / 2, screen height() / 2 + 10, "[Resume Game]" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 40, "Main Menu" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 70, "Quit Game"
     ENDIF
     
     IF menuChoice = 1
          CENTER TEXT screen width() / 2, screen height() / 2 + 10, "Resume Game" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 40, "[Main Menu]" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 70, "Quit Game"
     ENDIF
     
     IF menuChoice = 2
          CENTER TEXT screen width() / 2, screen height() / 2 + 10, "Resume Game" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 40, "Main Menu" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 70, "[Quit Game]"
     ENDIF
ENDFUNCTION

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Tuesday, April 26, 2011

Rem ***** Main Source File *****

REM Precondition
SYNC
LOAD IMAGE "C:\Users\Sam\Desktop\Background.jpg", 1
PASTE IMAGE 1, 0, 0
WAIT KEY
CLS

InGameMenu_Loop:
     GOSUB InGameMenu_Graphics
     GOSUB InGameMenu_Data
     DO
          GOSUB InGameMenu_Controls
          GOSUB InGameMenu_Graphics
     LOOP

InGameMenu_Data:
    save_screen_to_image(1, 2) 
    
    menuChoice = 0
    
    RETURN 

function save_screen_to_image(memblocknum,imagenum)
    `memblocknum must be the number of an existing unused memblock
    `just create one in your setup code using "Make Memblock"
    make memblock from bitmap memblocknum,0
    
    `imagenum should be a free image number too
    make image from memblock imagenum,memblocknum
endfunction

InGameMenu_Controls:
     REM Waiting for user input
     WAIT KEY
     
     REM Moving up the menu
     IF upKey() = 1 AND menuChoice = 0 THEN menuChoice = 0 : RETURN     
     IF upKey() = 1 AND menuChoice = 1 THEN menuChoice = 0 : RETURN
     IF upKey() = 1 AND menuChoice = 2 THEN menuChoice = 1 : RETURN 
     
     REM Moving down the menu
     IF downKey() = 1 AND menuChoice = 0 THEN menuChoice = 1 : RETURN
     IF downKey() = 1 AND menuChoice = 1 THEN menuChoice = 2 : RETURN
     IF downKey() = 1 AND menuChoice = 2 THEN menuChoice = 2 : RETURN
     
     REM Accepting user choice
     IF returnKey() = 1 AND menuChoice = 0 THEN `GOTO
     IF returnKey() = 1 AND menuChoice = 1 THEN `GOTO
     IF returnKey() = 1 AND menuChoice = 2 THEN `GOTO
     
     RETURN
     
InGameMenu_Graphics:
     CLS
     
     drawInGameMenu(menuChoice)
     
     SYNC
     
     RETURN
     
FUNCTION drawInGameMenu(menuChoice)
     PASTE IMAGE 2, 0, 0  REM Line 68
          
     IF menuChoice = 0
          CENTER TEXT screen width() / 2, screen height() / 2 + 10, "[Resume Game]" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 40, "Main Menu" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 70, "Quit Game"
     ENDIF
     
     IF menuChoice = 1
          CENTER TEXT screen width() / 2, screen height() / 2 + 10, "Resume Game" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 40, "[Main Menu]" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 70, "Quit Game"
     ENDIF
     
     IF menuChoice = 2
          CENTER TEXT screen width() / 2, screen height() / 2 + 10, "Resume Game" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 40, "Main Menu" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 70, "[Quit Game]"
     ENDIF
ENDFUNCTION

Back to top

Profile PM

Hockeykid

DBPro Tool Maker

18

Years of Service

User Offline

Joined: 26th Sep 2007

Location:

Posted: 27th Apr 2011 03:59 Edited at: 27th Apr 2011 04:16

Link

Quote: "I got the error: Runtime error 502 - Image does not exist at line 68 . Help please!"

Change this:

+ Code Snippet

GOSUB InGameMenu_Graphics
GOSUB InGameMenu_Data

To this

+ Code Snippet

GOSUB InGameMenu_Data
GOSUB InGameMenu_Graphics

Change your InGameMenu_Data: subroutine to

+ Code Snippet

InGameMenu_Data:
    `save_screen_to_image(1, 2)

    menuChoice = 0

    RETURN

And change your "precondition" to

+ Code Snippet

SYNC
LOAD IMAGE "C:\Users\Sam\Desktop\Background.jpg", 1
PASTE IMAGE 1, 0, 0
save_screen_to_image(1, 2)
WAIT KEY
CLS

You were calling your pause menu before the picture was even created

. We changed the precondition because you were taking the image of the screen while your background.jpg wasn't even pasted (because of the CLS)

Back to top

Profile PM Email

ArcherSam

15

Years of Service

User Offline

Joined: 13th Mar 2011

Location: Florida, US

Posted: 27th Apr 2011 04:04

Link

AWESOME! Thanks hockey kid!

LOL. I'm going to take a nap, i'm not thinking in ORDER.

Back to top

Profile PM

Hockeykid

DBPro Tool Maker

18

Years of Service

User Offline

Joined: 26th Sep 2007

Location:

Posted: 27th Apr 2011 04:15

Link

Quote: "AWESOME! Thanks hockey kid!"

No problem, I've taken a dew minutes to fix up your code a bit.

Rem Project: Dark Basic Pro Project
Rem Created: Tuesday, April 26, 2011

Rem ***** Main Source File *****

REM Precondition
LOAD IMAGE "C:\Users\Sam\Desktop\Background.jpg", 1
PASTE IMAGE 1, 0, 0 : fastSync
save_screen_to_image(1,2)

GOSUB InGameMenu_Data
DO
 GOSUB InGameMenu_Controls
 drawInGameMenu(menuChoice)
 Sync
LOOP

InGameMenu_Data:
   menuChoice = 0
   menuChoiceMax = 3
RETURN

function save_screen_to_image(memblocknum,imagenum)
    `memblocknum must be the number of an existing unused memblock
    `just create one in your setup code using "Make Memblock"
    make memblock from bitmap memblocknum,0

`imagenum should be a free image number too
    make image from memblock imagenum,memblocknum
endfunction

InGameMenu_Controls:

REM Moving up the menu
     If UpkeyPressed=0
      if upkey() then dec menuChoice : UpkeyPressed=1
      if menuChoice>menuChoiceMax-1 then menuChoice=menuChoiceMax-1
     Endif
     UpkeyPressed=upKey()

If DownkeyPressed=0
      REM Moving down the menu
      if downkey() then inc menuChoice : DownkeyPressed=1
      if menuChoice<0 then menuChoice=0
     Endif
     DownkeyPressed=downKey()

REM Accepting user choice
     IF returnKey() = 1 AND menuChoice = 0 THEN `GOTO
     IF returnKey() = 1 AND menuChoice = 1 THEN `GOTO
     IF returnKey() = 1 AND menuChoice = 2 THEN `GOTO

RETURN

FUNCTION drawInGameMenu(menuChoice)
     PASTE IMAGE 2, 0, 0  REM Line 68

IF menuChoice = 0
          CENTER TEXT screen width() / 2, screen height() / 2 + 10, "[Resume Game]" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 40, "Main Menu" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 70, "Quit Game"
     ENDIF

IF menuChoice = 1
          CENTER TEXT screen width() / 2, screen height() / 2 + 10, "Resume Game" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 40, "[Main Menu]" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 70, "Quit Game"
     ENDIF

IF menuChoice = 2
          CENTER TEXT screen width() / 2, screen height() / 2 + 10, "Resume Game" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 40, "Main Menu" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 70, "[Quit Game]"
     ENDIF
ENDFUNCTION

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Tuesday, April 26, 2011

Rem ***** Main Source File *****

REM Precondition
LOAD IMAGE "C:\Users\Sam\Desktop\Background.jpg", 1
PASTE IMAGE 1, 0, 0 : fastSync
save_screen_to_image(1,2)

GOSUB InGameMenu_Data
DO
 GOSUB InGameMenu_Controls
 drawInGameMenu(menuChoice)
 Sync
LOOP

InGameMenu_Data:
   menuChoice = 0
   menuChoiceMax = 3
RETURN

function save_screen_to_image(memblocknum,imagenum)
    `memblocknum must be the number of an existing unused memblock
    `just create one in your setup code using "Make Memblock"
    make memblock from bitmap memblocknum,0

    `imagenum should be a free image number too
    make image from memblock imagenum,memblocknum
endfunction

InGameMenu_Controls:

     REM Moving up the menu
     If UpkeyPressed=0
      if upkey() then dec menuChoice : UpkeyPressed=1
      if menuChoice>menuChoiceMax-1 then menuChoice=menuChoiceMax-1
     Endif
     UpkeyPressed=upKey()

     If DownkeyPressed=0
      REM Moving down the menu
      if downkey() then inc menuChoice : DownkeyPressed=1
      if menuChoice<0 then menuChoice=0
     Endif
     DownkeyPressed=downKey()

     REM Accepting user choice
     IF returnKey() = 1 AND menuChoice = 0 THEN `GOTO
     IF returnKey() = 1 AND menuChoice = 1 THEN `GOTO
     IF returnKey() = 1 AND menuChoice = 2 THEN `GOTO

     RETURN

FUNCTION drawInGameMenu(menuChoice)
     PASTE IMAGE 2, 0, 0  REM Line 68

     IF menuChoice = 0
          CENTER TEXT screen width() / 2, screen height() / 2 + 10, "[Resume Game]" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 40, "Main Menu" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 70, "Quit Game"
     ENDIF

     IF menuChoice = 1
          CENTER TEXT screen width() / 2, screen height() / 2 + 10, "Resume Game" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 40, "[Main Menu]" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 70, "Quit Game"
     ENDIF

     IF menuChoice = 2
          CENTER TEXT screen width() / 2, screen height() / 2 + 10, "Resume Game" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 40, "Main Menu" :
          CENTER TEXT screen width() / 2, screen height() / 2 + 70, "[Quit Game]"
     ENDIF
ENDFUNCTION

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

19

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 27th Apr 2011 10:27

Link

Quote: "How would lower the contrast and brightness of the saved imaged, in order to prevent the in game menu being hard to read? "

There's a few ways to do this. Funnily enough I'm working on one for a game I'm working on.

One way is to paste a semi-transparent sprite over the whole screen before you paste your menu but after you paste the screenshot (make an image in GIMP just one pixel in size and stretch it as a sprite is how I do it)

You could use the image kit to de-saturate the image (make it greyscale) or perform other effects on the image using a shader...

There must be thousands of things you could do with the image once you have it... have fun

Back to top

Profile PM Email

ArcherSam

15

Years of Service

User Offline

Joined: 13th Mar 2011

Location: Florida, US

Posted: 27th Apr 2011 15:08

Link

Thanks baxslash. I'll start researching.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / In Game Menu