Any idea for Pause? - GameCreators Forum

Author

Message

Hello Everyone !

14

Years of Service

User Offline

Joined: 1st Sep 2011

Location:

Posted: 10th Nov 2011 14:10

Link

Hi guys. Its me again

I dont have any idea how to make pause for my game. For example is, when I press the Escape key my screen will turn into something dark and all the moving objects will stop. Any help will be much appreciated.

i have a problem in darkbasic codes. pls help me

Back to top

Profile PM Email

Quel

17

Years of Service

User Offline

Joined: 13th Mar 2009

Location:

Posted: 10th Nov 2011 14:55

Link

You need to jump into an other loop with sync in it, and this loop would contain nothing but the options for returning to the game, or escape totally.

Works completely fine if you only have 3d stuff in your game, but if you use 2d of any kind, you need to draw those in this secondary loop as well before the sync command.

-In.Dev.X: A unique heavy story based shoot'em ~35%
-CoreFleet: An underground commander unit based RTS ~15%
-TailsVSEggman: An Sonic themed RTS under development for idea presentation to Sega ~15%

Back to top

Profile PM

YavinB

16

Years of Service

User Offline

Joined: 25th Sep 2009

Location: Ontario, Canada

Posted: 13th Nov 2011 04:38

Link

Hello! You can use this code to pause the game. Not exactly sure if it works for 2D games, only tested it on 3D.

+ Code Snippet

//Turn off escapekey from exiting the game
Disable Escapekey

//Declare Game
Make Object Cube 1,1
game:

//Declare if Pause is On or Off
GamePaused as integer = 0


//Start Loop
Do

//Not needed, just to show
If leftkey()=1 then move object left 1,0.1

If rightkey()=1 then move object right 1,0.1

//Turn Pause on
If Escapekey()=1
GamePaused = 1
EndIf

//Goto Pause
If GamePaused = 1
GoSub Pause
EndIf

//End Loop
Loop

//Declare Pause
Pause:

//Start Main Loop
Do

//Clear screen
Cls

//Tell User to press '1' to go back to game
Text 0,0,"Press 1 to go back to game"

//If the user presses 1, go back to game
If inkey$()="1" Then Gosub game

//End Main Loop
loop

It will pause the game when the user presses 'escape' key, then when the user presses the '1' key in the pause menu it will go back to the game.

Hope this helps.

-Mike

Back to top

Profile PM

Hello Everyone !

14

Years of Service

User Offline

Joined: 1st Sep 2011

Location:

Posted: 13th Nov 2011 06:14

Link

Wow thank you Guys!!! It really works. Thanks a lot. GodBless

i have a problem in darkbasic codes. pls help me

Back to top

Profile PM Email

Burning Feet Man

18

Years of Service

User Offline

Joined: 4th Jan 2008

Location: Sydney, Australia

Posted: 13th Nov 2011 10:34

Link

If you're using a timer based movement function in your code, you can usually alter the TBM_function to accommodate a pause in your game.

Help build an online DarkBASIC Professional help archive.
DarkBasic Help Wikia

Back to top

Profile PM Website

Jamie_Leigh

14

Years of Service

User Offline

Joined: 15th Dec 2011

Location:

Posted: 15th Dec 2011 15:48

Link

Hi guys, I'm very new to darkbasic pro and I tried putting this code into a simple platform game my teacher gave me but it just closes the game still.

I tried putting this code at the bottom of the original code, does it need to be placed somewhere specific?

Thanks alot!

Back to top

Profile PM

Neuro Fuzzy

19

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 15th Dec 2011 20:44

Link

did you forget the disable escape key command?

Back to top

Profile PM Email

Jamie_Leigh

14

Years of Service

User Offline

Joined: 15th Dec 2011

Location:

Posted: 16th Dec 2011 13:58

Link

I just copied and pasted it into the game code :S

Back to top

Profile PM

Jamie_Leigh

14

Years of Service

User Offline

Joined: 15th Dec 2011

Location:

Posted: 16th Dec 2011 14:03

Link

It's telling me "Compilation Failed (syntax errors)" and is highlighting the code:

"If inkey$()="1" Then Gosub game"

Thanks

Back to top

Profile PM

YavinB

16

Years of Service

User Offline

Joined: 25th Sep 2009

Location: Ontario, Canada

Posted: 17th Dec 2011 23:59

Link

Hello Jamie, assuming that this isn't a compiler error, it sounds like somewhere in your code you put the pause code in the wrong spot.

The code I originally posted was meant to be split up into parts. That code is normally split up like this:

Pre-Game
Game
Post-Game

The Pre-Game code is before the first DO-LOOP command. That area in the code is where you usually have all the resources getting loaded and the values declared. If you're using your teachers project still, it shouldn't be hard to make with the pause function.

Before the first DO command, you'll want to disable the escapekey so that you can't exit the game by pressing escape. Use this code:

+ Code Snippet

//Disable the Excapekey
Disable Escapekey

After adding that code, you need to declare the game and declare the pause is off. All you have to do is add this:

+ Code Snippet

game:
GamePaused as Integer = 0

right above the DO function.

Next thing you need to do is the Game section of the code. Inside the DO to the LOOP part of your code, you probably have all the controls for the game and the collisions, actions, etc. Right above the LOOP function, you'll want to add the code if you press the Escapekey that it goes the the Pause part of the game. Use this code:

+ Code Snippet

//Turn Pause on
If Escapekey()=1
GamePaused = 1
EndIf

//Goto Pause
If GamePaused = 1
GoSub Pause
EndIf

Lastly, you need to add the pause part of it in the Post-Game section. At the bottom of your entire project, add this code:

+ Code Snippet

//Declare Pause
Pause:

//Start Main Loop
Do

//Clear screen
Cls

//Tell User to press '1' to go back to game
Text 0,0,"Press 1 to go back to game"

//If the user presses 1, go back to game
If inkey$()="1" Then Gosub game

//End Main Loop
loop

I hope this helps out. If you have anymore problems with it, don't be afraid to let us know.

Also, If you still have the code that didn't work in your project, remove it before you try this.

-Mike

Back to top

Profile PM

MrValentine

AGK Backer

15

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 18th Dec 2011 05:12

Link

Wow... I think this will be useful for me... so just tagging in,

However as my brain is alight tonight...
question...
Is it possible to use a 3d menu? like where you pause the game and the menu pops up but the camera in the background starts to spin around the Y axis slowly in the background? ( background can maybe have some image load into the menu with transparency or someting...)

[Hope this was constructive somewhat]

umm concerning this code

+ Code Snippet

//Declare Pause
Pause:

//Start Main Loop
Do

//Clear screen
Cls

//Tell User to press '1' to go back to game
Text 0,0,"Press 1 to go back to game"

//If the user presses 1, go back to game
If inkey$()="1" Then Gosub game

//End Main Loop
loop

how does it know to return to the main loop?

Back to top

Profile PM

YavinB

16

Years of Service

User Offline

Joined: 25th Sep 2009

Location: Ontario, Canada

Posted: 18th Dec 2011 20:44

Link

Hello, It is possible to do what you're saying. Once you use the Gosub command, you're leaving the current loop that you're in. If you're in the Game loop and you use the Gosub command to go to the Pause loop, everything in the Game loop pauses. In the pause loop, you would make the camera go around the player or whatever you choose to have it do. The only flaw with this is that when you exit the pause loop, it affects the Game loop. So the way around this would be to declare positions, angles, etc. of the objects/cameras/etc. that you're editing. Example:

+ Code Snippet

Global CamPosX
Global CamPosY
Global CamPosZ

Global CamAngleX
Global CamAngleY
Global CamAngleZ

If you declare that at the start of the code, and used this:

+ Code Snippet

CamPosX = Camera Position X(0)
CamPosY= Camera Position Y(0)
CamPosZ= Camera Position Z(0)

CamAngleX = Camera Angle X(0)
CamAngleY = Camera Angle Y(0)
CamAngleZ = Camera Angle Z(0)

when you go to the Pause function, you'll be able to just position the camera and set the angle to where it was before.

This may seem hard, but it isn't too hard to do. If you want an example of it working, try this:

//3D Menu Test

//Declare Cam positions
Global CamPosX
Global CamPosY
Global CamPosZ

Global CamAngleX
Global CamAngleY
Global CamAngleZ 
//Make Object
Make Object cube 1,1

//Position Camera
Position camera 0,0,-3

//Declare Game
Game:
//Escape Off
Disable Escapekey

//Declare Pause On/Off
GamePaused as Integer = 0

//Start of loop
Do
    //Control Camera
    Control Camera using arrowkeys 0,.1,.1
    
    //Escapekey turns GamePaused to 1
    If escapekey()=1    
    GamePaused = 1
    Endif
    
    //Make sure it's on
    If GamePaused=1
    //Set the positions
    CamPosX = Camera Position X(0)
    CamPosY= Camera Position Y(0)
    CamPosZ= Camera Position Z(0)

CamAngleX = Camera Angle X(0)
    CamAngleY = Camera Angle Y(0)
    CamAngleZ = Camera Angle Z(0)
    
    //Finally the Pause
    Gosub Pause
    Endif 
    
//End Of Loop    
LOOP

//Declare Pause
Pause:
Disable Escapekey
Set camera view 0,0,screen width(),screen height()
Position camera 0,0,-3

//Start loop
Do
yrotate camera camera angle y()+0.1
    
    //Text
    //Tell User to press '1' to go back to game
    Text 0,0,"Press 1 to go back to game"

//If the user presses 1, go back to game
    If inkey$()="1"
        Position Camera CamPosX,CamPosY,CamPosZ
        Rotate Camera CamAngleX,CamAngleY,CamAngleZ
        Gosub Game
    Endif

//End Loop    
LOOP

+ Code Snippet

//3D Menu Test


//Declare Cam positions
Global CamPosX
Global CamPosY
Global CamPosZ

Global CamAngleX
Global CamAngleY
Global CamAngleZ 
//Make Object
Make Object cube 1,1

//Position Camera
Position camera 0,0,-3

//Declare Game
Game:
//Escape Off
Disable Escapekey

//Declare Pause On/Off
GamePaused as Integer = 0



//Start of loop
Do
    //Control Camera
    Control Camera using arrowkeys 0,.1,.1
    
    //Escapekey turns GamePaused to 1
    If escapekey()=1    
    GamePaused = 1
    Endif
    
    //Make sure it's on
    If GamePaused=1
    //Set the positions
    CamPosX = Camera Position X(0)
    CamPosY= Camera Position Y(0)
    CamPosZ= Camera Position Z(0)

    CamAngleX = Camera Angle X(0)
    CamAngleY = Camera Angle Y(0)
    CamAngleZ = Camera Angle Z(0)
    
    //Finally the Pause
    Gosub Pause
    Endif 
    
//End Of Loop    
LOOP

//Declare Pause
Pause:
Disable Escapekey
Set camera view 0,0,screen width(),screen height()
Position camera 0,0,-3

//Start loop
Do
yrotate camera camera angle y()+0.1
    
    //Text
    //Tell User to press '1' to go back to game
    Text 0,0,"Press 1 to go back to game"

    //If the user presses 1, go back to game
    If inkey$()="1"
        Position Camera CamPosX,CamPosY,CamPosZ
        Rotate Camera CamAngleX,CamAngleY,CamAngleZ
        Gosub Game
    Endif


    
//End Loop    
LOOP

The code worked with my version of DBPro, so it should work with yours too. Hope that answers your question on it, or atleast most of it.

If you want it to go around the person, you'd have to add some more code to it, but this was just an example.

As you said about this code:

+ Code Snippet

//Declare Pause
Pause:

//Start Main Loop
Do

//Clear screen
Cls

//Tell User to press '1' to go back to game
Text 0,0,"Press 1 to go back to game"

//If the user presses 1, go back to game
If inkey$()="1" Then Gosub game

//End Main Loop
loop

That code works by checking if the 1 key is pressed and if it is pressed, it will use the Gosub command to go back to the game.

The gosub command goes to sections in your code. You can declare these sections by using something like this:

ThisSection:
Hello:

They work by having letters followed by a : to define it. When you use Gosub, it will look for the section in your code and then go to it and exiting the current section it is in. In the full code, it shows

Game:

and

Pause:

Hope this helps out.

-Mike

Back to top

Profile PM

Jamie_Leigh

14

Years of Service

User Offline

Joined: 15th Dec 2011

Location:

Posted: 18th Jan 2012 16:04

Link

Thankyou very much YavinB,

Our teacher has now given us a version with a pause menu already coding it but it only consists of the game freezing with a message saying go back to game scrolling across the screen.

I am wondering if there is an easy way to change this to a screen only showing a graphics I can create in lets say photoshop that will tell you to press 1 to go back to game?

Thankyou

Back to top

Profile PM

YavinB

16

Years of Service

User Offline

Joined: 25th Sep 2009

Location: Ontario, Canada

Posted: 19th Jan 2012 00:54

Link

Hello again!

If I understand what you're saying (Pause menu with an image telling the user to do something), it is quite easy to do.

First thing you want to do is load the image you made:

+ Code Snippet

load image "file.ext",1

Change "file" to the file name of it (if its located in like, My pictures, set it to that directory eg. C:\Users\Mike\Pictures\my_bkg.bmp) and also change the ext to the file extention that you saved the image to.

Also, you may need to change the image number of it when loading. You may have already loaded an image with an image number of 1.

Now for part 2, there is 2 ways you can do this:

1. Make the image a sprite (I reccomend using this)

2. Pasting the image

For #1:

If the image isn't the exact same size as your game, you should use this.

+ Code Snippet

sprite 1,0,0,1
size sprite 1,screen width(),screen height()

Just change the sprite number to the sprite you want, and the image number to the one you loaded.

For #2:

If the image is the same size as your game, you should use this.

+ Code Snippet

paste image 1,0,0

As you probably know, just change the image number to the one you loaded.

With whatever one you choose, make sure you have the code that will go back to the game with the code up there.

Hope this helps. If you have anymore questions, don't be afraid to ask.

Back to top

Profile PM

Ramon156

14

Years of Service

User Offline

Joined: 13th Jul 2011

Location: Netherlands

Posted: 2nd Apr 2012 18:11

Link

Thank you this is just what I needed.
I use this method to enter the gunshop of my game.
Here is my code.

Game:

GunShop as integer = 0

do

`Load Functions.
Gosub Move_Player
EnemyFunction()
WeaponController()
KeyController()
Debug()
UpdateKeystate()
CameraFunction()

Rem - Collision with box inside gunshop
if object collision (Player.ObjectNumber,GunShopCollision) 
	Rem - Do "something" , place an image text or whatever you like to let the player know
	Rem - how to enter the shop. In this case we place text for quick use and expand it later.
	Center text Screen width()/2,Screen Height()/2, "To enter the shop press B"
	Rem - If the user presses "B" Gosub gunshop.
	If Keys(48,1) = 1
		GunShop = 1
	Endif
Endif

If GunShop = 1
	Gosub GunShop
Endif

sync
loop

`==================================================End loop==================================================

GunShop:

Do
	
Rem - Keystate function is needed.
UpdateKeystate()

Rem - Some information about the game
Text 0, 0,"$"+str$(Player.Money)
Text 0, 20,"1 - Primary Clip +1"
Text 0, 40,"2 - Secondary Clip +1"
Text 0, 60,"Primary Clip"+Str$(PrimaryWeapon.Clip)
Text 0, 80,"Secondary Clip"+Str$(SecondaryWeapon.Clip)

Rem - User input "1" then buy a clip for the primaryweapon and dec. money
Rem - Put this in a function later to avoid having thousands of lines in your loops.

If Keys(2,1) = 1
	If PrimaryWeapon.Clip < PrimaryWeapon.MaxClip and Player.Money=> 300
		PrimaryWeapon.Clip = PrimaryWeapon.Clip + 1
		Player.Money = Player.Money -300
	Endif
Endif

Rem - User input "B" again
If Keys(48,1) = 1
	
	Rem - Gosub as last
	GoSub Game
	
Endif

Rem - Rotate the camera around the player
position camera ObjPosX#,Player.CameraHeight,ObjPosZ#
yrotate camera  Camera Angle Y()+0.1

sync
loop

+ Code Snippet


Game:

GunShop as integer = 0

do

`Load Functions.
Gosub Move_Player
EnemyFunction()
WeaponController()
KeyController()
Debug()
UpdateKeystate()
CameraFunction()

Rem - Collision with box inside gunshop
if object collision (Player.ObjectNumber,GunShopCollision) 
	Rem - Do "something" , place an image text or whatever you like to let the player know
	Rem - how to enter the shop. In this case we place text for quick use and expand it later.
	Center text Screen width()/2,Screen Height()/2, "To enter the shop press B"
	Rem - If the user presses "B" Gosub gunshop.
	If Keys(48,1) = 1
		GunShop = 1
	Endif
Endif



If GunShop = 1
	Gosub GunShop
Endif




	sync
loop

`==================================================End loop==================================================



GunShop:


Do
	
Rem - Keystate function is needed.
UpdateKeystate()

Rem - Some information about the game
Text 0, 0,"$"+str$(Player.Money)
Text 0, 20,"1 - Primary Clip +1"
Text 0, 40,"2 - Secondary Clip +1"
Text 0, 60,"Primary Clip"+Str$(PrimaryWeapon.Clip)
Text 0, 80,"Secondary Clip"+Str$(SecondaryWeapon.Clip)

Rem - User input "1" then buy a clip for the primaryweapon and dec. money
Rem - Put this in a function later to avoid having thousands of lines in your loops.

If Keys(2,1) = 1
	If PrimaryWeapon.Clip < PrimaryWeapon.MaxClip and Player.Money=> 300
		PrimaryWeapon.Clip = PrimaryWeapon.Clip + 1
		Player.Money = Player.Money -300
	Endif
Endif

Rem - User input "B" again
If Keys(48,1) = 1
	
	Rem - Gosub as last
	GoSub Game
	
Endif

Rem - Rotate the camera around the player
position camera ObjPosX#,Player.CameraHeight,ObjPosZ#
yrotate camera  Camera Angle Y()+0.1


sync
loop

Back to top

Profile PM

Andrew_Neale

16

Years of Service

User Offline

Joined: 3rd Nov 2009

Location: The Normandy SR-2

Posted: 2nd Apr 2012 22:05 Edited at: 3rd Apr 2012 10:28

Link

Here is a pretty quick example of handling pausing / menus using functions which I find preferential to gosubs.

rem Setup the window
set display mode 1024, 768, 32
set window on
set window title "Pause menu"

rem Take over control of rendering
sync on
sync rate 60

rem Show a loading message
sync
center text screen width() / 2, screen height() / 2, "LOADING..."
sync

rem Stop escape key from exiting
disable escapeKey

rem Set the default state
global currentState as integer
currentState = 0

rem Handle the escape key being held
global escapeHeld as boolean
escapeHeld = 0

rem Create a floor
make object plane 1, 100, 100
rotate object 1, 270, 0, 0

rem Create a player
make object box 2, 2, 5, 2
set shadow shading on 2, -1, 20, 1

rem Setup atmosphere
color ambient light 0xffffff
set ambient light 20
color light 0, 0xffdd99
position light 0, 0, 20, -100

rem Start off player and camera
type type_floatXYZ
    x as float
    y as float
    z as float
endType
global cameraAngle as type_floatXYZ
global cameraPosition as type_floatXYZ
global playerAngle as type_floatXYZ
global playerPosition as type_floatXYZ
playerPosition.x = 0
playerPosition.y = 2.5
playerPosition.z = 0

rem Start the main loop
repeat

rem Check if we're in the game or menu
    if (currentState = 0)
        updateGame()
    else
        updateMenu()
    endIf
    
    rem Swap between states
    if (escapeKey() = 1)
        if (escapeHeld = 0)
            inc currentState
            if (currentState = 2)
                currentState = 0
            endIf
        endIf
        escapeHeld = 1
    else
        escapeHeld = 0
    endIf

rem Render
    sync
    
rem End the loop when escape is pushed
until (returnKey() = 1)

rem Exit the application
end

rem Function to handle the game updates
function updateGame()

rem Render UI
    text 0, 0, "Use the mouse to look around and W / S to move."
    text 0, 20, "Press escape to pause."

rem Update the player object
    inc playerAngle.y, mouseMoveX()
    w = keyState(17)
    s = keyState(31)
    inc playerPosition.x, sin(playerAngle.y) * (w - s)
    inc playerPosition.z, cos(playerAngle.y) * (w - s)
    rotate object 2, playerAngle.x, playerAngle.y, playerAngle.z
    position object 2, playerPosition.x, playerPosition.y, playerPosition.z
    
    rem Update the camera
    cameraPosition.x = playerPosition.x + (sin(playerAngle.Y) * -30)
    cameraPosition.y = 20
    cameraPosition.z = playerPosition.z + (cos(playerAngle.Y) * -30)
    position camera curveValue(cameraPosition.x, camera position x(), 15), curveValue(cameraPosition.y, camera position y(), 15), curveValue(cameraPosition.z, camera position z(), 15)
    cameraAngle.x = 30
    cameraAngle.y  = playerAngle.y
    rotate camera curveAngle(cameraAngle.x, camera angle x(), 15),  curveAngle(cameraAngle.y, camera angle y(), 15), curveAngle(cameraAngle.z, camera angle z(), 15)

rem End the function
endFunction

rem Function to handle the menu updates
function updateMenu()

rem Render UI
    box 0, 0, 40 + text width("Press enter to exit the game."), screen height(), 0xcc000000
    text 20, 20, "Press enter to exit the game."
    text 20, 40, "Press escape to unpause."

rem Update the camera
    cameraPosition.x = playerPosition.x + (sin(playerAngle.Y) * 8) + (sin(playerAngle.Y + 90) * 3)
    cameraPosition.y = 3
    cameraPosition.z = playerPosition.z + (cos(playerAngle.Y) * 8) + (cos(playerAngle.Y + 90) * 3)
    position camera curveValue(cameraPosition.x, camera position x(), 15), curveValue(cameraPosition.y, camera position y(), 15), curveValue(cameraPosition.z, camera position z(), 15)
    cameraAngle.x = 0
    cameraAngle.y  = playerAngle.y + 180
    rotate camera curveAngle(cameraAngle.x, camera angle x(), 15),  curveAngle(cameraAngle.y, camera angle y(), 15), curveAngle(cameraAngle.z, camera angle z(), 15)

rem End the function
endFunction

+ Code Snippet

rem Setup the window
set display mode 1024, 768, 32
set window on
set window title "Pause menu"

rem Take over control of rendering
sync on
sync rate 60

rem Show a loading message
sync
center text screen width() / 2, screen height() / 2, "LOADING..."
sync

rem Stop escape key from exiting
disable escapeKey

rem Set the default state
global currentState as integer
currentState = 0

rem Handle the escape key being held
global escapeHeld as boolean
escapeHeld = 0

rem Create a floor
make object plane 1, 100, 100
rotate object 1, 270, 0, 0

rem Create a player
make object box 2, 2, 5, 2
set shadow shading on 2, -1, 20, 1

rem Setup atmosphere
color ambient light 0xffffff
set ambient light 20
color light 0, 0xffdd99
position light 0, 0, 20, -100

rem Start off player and camera
type type_floatXYZ
    x as float
    y as float
    z as float
endType
global cameraAngle as type_floatXYZ
global cameraPosition as type_floatXYZ
global playerAngle as type_floatXYZ
global playerPosition as type_floatXYZ
playerPosition.x = 0
playerPosition.y = 2.5
playerPosition.z = 0

rem Start the main loop
repeat

    rem Check if we're in the game or menu
    if (currentState = 0)
        updateGame()
    else
        updateMenu()
    endIf
    
    rem Swap between states
    if (escapeKey() = 1)
        if (escapeHeld = 0)
            inc currentState
            if (currentState = 2)
                currentState = 0
            endIf
        endIf
        escapeHeld = 1
    else
        escapeHeld = 0
    endIf

    rem Render
    sync
    
rem End the loop when escape is pushed
until (returnKey() = 1)

rem Exit the application
end

rem Function to handle the game updates
function updateGame()

    rem Render UI
    text 0, 0, "Use the mouse to look around and W / S to move."
    text 0, 20, "Press escape to pause."

    rem Update the player object
    inc playerAngle.y, mouseMoveX()
    w = keyState(17)
    s = keyState(31)
    inc playerPosition.x, sin(playerAngle.y) * (w - s)
    inc playerPosition.z, cos(playerAngle.y) * (w - s)
    rotate object 2, playerAngle.x, playerAngle.y, playerAngle.z
    position object 2, playerPosition.x, playerPosition.y, playerPosition.z
    
    rem Update the camera
    cameraPosition.x = playerPosition.x + (sin(playerAngle.Y) * -30)
    cameraPosition.y = 20
    cameraPosition.z = playerPosition.z + (cos(playerAngle.Y) * -30)
    position camera curveValue(cameraPosition.x, camera position x(), 15), curveValue(cameraPosition.y, camera position y(), 15), curveValue(cameraPosition.z, camera position z(), 15)
    cameraAngle.x = 30
    cameraAngle.y  = playerAngle.y
    rotate camera curveAngle(cameraAngle.x, camera angle x(), 15),  curveAngle(cameraAngle.y, camera angle y(), 15), curveAngle(cameraAngle.z, camera angle z(), 15)

rem End the function
endFunction

rem Function to handle the menu updates
function updateMenu()

    rem Render UI
    box 0, 0, 40 + text width("Press enter to exit the game."), screen height(), 0xcc000000
    text 20, 20, "Press enter to exit the game."
    text 20, 40, "Press escape to unpause."

    rem Update the camera
    cameraPosition.x = playerPosition.x + (sin(playerAngle.Y) * 8) + (sin(playerAngle.Y + 90) * 3)
    cameraPosition.y = 3
    cameraPosition.z = playerPosition.z + (cos(playerAngle.Y) * 8) + (cos(playerAngle.Y + 90) * 3)
    position camera curveValue(cameraPosition.x, camera position x(), 15), curveValue(cameraPosition.y, camera position y(), 15), curveValue(cameraPosition.z, camera position z(), 15)
    cameraAngle.x = 0
    cameraAngle.y  = playerAngle.y + 180
    rotate camera curveAngle(cameraAngle.x, camera angle x(), 15),  curveAngle(cameraAngle.y, camera angle y(), 15), curveAngle(cameraAngle.z, camera angle z(), 15)

rem End the function
endFunction

[Edit]Realised I had left some "double slash" comments in. I prefer to use them but the syntax highlighter on here doesn't. Changed them to "rem".[/Edit]

Previously TEH_CODERER.

Back to top

Profile PM Email Website

MrValentine

AGK Backer

15

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 3rd Apr 2012 04:59

Link

Andrew_Neale KUDOZ! TO YOU!!!

Back to top

Profile PM

Andrew_Neale

16

Years of Service

User Offline

Joined: 3rd Nov 2009

Location: The Normandy SR-2

Posted: 3rd Apr 2012 10:26

Link

Thanks, hopefully it will be of help to someone. I'm quite happy to expand on it if anyone wants.

Previously TEH_CODERER.

Back to top

Profile PM Email Website

MrValentine

AGK Backer

15

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 3rd Apr 2012 10:27

Link

simples, as I mentioned before... the camera in the background moving around ^^

and also keypresses for different menu text

Back to top

Profile PM

Andrew_Neale

16

Years of Service

User Offline

Joined: 3rd Nov 2009

Location: The Normandy SR-2

Posted: 3rd Apr 2012 10:37

Link

Well the following code in the 'updateMenu()' function controls the camera whilst in menu mode.

+ Code Snippet

rem Update the camera
cameraPosition.x = playerPosition.x + (sin(playerAngle.Y) * 8) + (sin(playerAngle.Y + 90) * 3)
cameraPosition.y = 3
cameraPosition.z = playerPosition.z + (cos(playerAngle.Y) * 8) + (cos(playerAngle.Y + 90) * 3)
position camera curveValue(cameraPosition.x, camera position x(), 15), curveValue(cameraPosition.y, camera position y(), 15), curveValue(cameraPosition.z, camera position z(), 15)
cameraAngle.x = 0
cameraAngle.y  = playerAngle.y + 180
rotate camera curveAngle(cameraAngle.x, camera angle x(), 15),  curveAngle(cameraAngle.y, camera angle y(), 15), curveAngle(cameraAngle.z, camera angle z(), 15)

At the moment this makes the camera spin around to point straight at the player but move off to the side a bit. This was with the view of the menu having an inventory so as you changed items around in the inventory you could see them updating the player object. To change this to simply make the camera rotate in the background is quite simple.

+ Code Snippet

rem Update the camera
cameraPosition.x = playerPosition.x + (sin(cameraAngle.Y) * -30)
cameraPosition.y = 20
cameraPosition.z = playerPosition.z + (cos(cameraAngle.Y) * -30)
position camera curveValue(cameraPosition.x, camera position x(), 15), curveValue(cameraPosition.y, camera position y(), 15), curveValue(cameraPosition.z, camera position z(), 15)
cameraAngle.x = 30
cameraAngle.y  = cameraAngle.y + 0.5
rotate camera curveAngle(cameraAngle.x, camera angle x(), 15),  curveAngle(cameraAngle.y, camera angle y(), 15), curveAngle(cameraAngle.z, camera angle z(), 15)

As for the menu itself, I'm afraid I have just started work so that may have to wait until I get home tonight but I will look to add the menu to this example then. Probably around 10 hours until I get home though, sorry!

Previously TEH_CODERER.

Back to top

Profile PM Email Website

MrValentine

AGK Backer

15

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 3rd Apr 2012 11:05

Link

no rush there buddy ^^

than you this may give me a head start when I start looking into my games soon... currently beginning the GDD stage

Back to top

Profile PM

Andrew_Neale

16

Years of Service

User Offline

Joined: 3rd Nov 2009

Location: The Normandy SR-2

Posted: 3rd Apr 2012 22:33

Link

Got home from work and my washing machine flooded my kitchen. *facepalm* Lost some time sorting that out but here is a very quick menu implementation to the original example. It is nothing special but hopefully has some value, lol.

rem Setup the window
set display mode 1024, 768, 32
set window on
set window size 1040, 806
set window title "Pause menu"

rem Take over control of rendering
sync on
sync rate 60

rem Setup the font
set text font "Arial"
set text size 30
set text to bold

rem Show a loading message
sync
center text screen width() / 2, screen height() / 2, "LOADING..."
sync

rem Stop escape key from exiting
disable escapeKey

rem Set the default state
global currentState as integer
currentState = 0

rem Handle the escape key being held
global escapeHeld as boolean
escapeHeld = 0
global mouseHeld as boolean
mouseHeld = 0

rem Create a floor
make object plane 1, 100, 100
rotate object 1, 270, 0, 0

rem Create a player
make object box 2, 2, 5, 2
set shadow shading on 2, -1, 20, 1

rem Setup atmosphere
color ambient light 0xffffff
set ambient light 20
color light 0, 0xffdd99
position light 0, 0, 20, -100

rem Start off player and camera
type type_floatXYZ
    x as float
    y as float
    z as float
endType
global cameraAngle as type_floatXYZ
global cameraPosition as type_floatXYZ
global playerAngle as type_floatXYZ
global playerPosition as type_floatXYZ
playerPosition.x = 0
playerPosition.y = 2.5
playerPosition.z = 0

rem Setup the menu options
global dim menuOption(5) as string
menuOption(0) = "Resume"
menuOption(1) = "Red Light"
menuOption(2) = "Green Light"
menuOption(3) = "Blue Light"
menuOption(4) = "Exit"

rem Track when to end the loop
global breakLoop as boolean

rem Hide the mouse in game mode
hide mouse

rem Start the main loop
repeat

rem Check if we're in the game or menu
    if (currentState = 0)
        updateGame()
    else
        updateMenu()
    endIf
    
    rem Swap between states
    if (escapeKey() = 1)
        if (escapeHeld = 0)
            inc currentState
            show mouse
            if (currentState = 2)
                currentState = 0
                hide mouse
            endIf
        endIf
        escapeHeld = 1
    else
        escapeHeld = 0
    endIf

rem Render
    sync
    
rem End the loop when escape is pushed
until (breakLoop = 1)

rem Exit the application
end

rem Function to handle the game updates
function updateGame()

rem Render UI
    text 0, 0, "Use the mouse to look around and W / S to move."
    text 0, 20, "Press escape to pause."

rem Update the player object
    inc playerAngle.y, mouseMoveX()
    w = keyState(17)
    s = keyState(31)
    inc playerPosition.x, sin(playerAngle.y) * (w - s)
    inc playerPosition.z, cos(playerAngle.y) * (w - s)
    if (playerPosition.x < -48)
        playerPosition.x = -48
    endIf
    if (playerPosition.x > 48)
        playerPosition.x = 48
    endIf
    if (playerPosition.z < -48)
        playerPosition.z = -48
    endIf
    if (playerPosition.z > 48)
        playerPosition.z = 48
    endIf
    rotate object 2, playerAngle.x, playerAngle.y, playerAngle.z
    position object 2, playerPosition.x, playerPosition.y, playerPosition.z
    
    rem Update the camera
    cameraPosition.x = playerPosition.x + (sin(playerAngle.Y) * -30)
    cameraPosition.y = 20
    cameraPosition.z = playerPosition.z + (cos(playerAngle.Y) * -30)
    position camera curveValue(cameraPosition.x, camera position x(), 15), curveValue(cameraPosition.y, camera position y(), 15), curveValue(cameraPosition.z, camera position z(), 15)
    cameraAngle.x = 30
    cameraAngle.y  = playerAngle.y
    rotate camera curveAngle(cameraAngle.x, camera angle x(), 15),  curveAngle(cameraAngle.y, camera angle y(), 15), curveAngle(cameraAngle.z, camera angle z(), 15)

rem End the function
endFunction

rem Function to handle the menu updates
function updateMenu()

rem Render the background
    color1 = 0x00000000
    color2 = 0xcc000000
    box 0, 0, 256, 768, color1, color1, color2, color2
    box 768, 0, 1024, 768, color2, color2, color1, color1
    box 256, 0, 768, 768, color2
    
    rem Loop through and render the menu options
    mX = mouseX()
    mY = mouseY()
    local selected as string
    selected = ""
    for i = 0 to (array count(menuOption(0)) - 1)
        l = 256
        t = 240 + (i * 64)
        r = 768
        b = t + 48
        ink 0xffffffff, 0x000000
        if (mouseOver(mX, mY, l, t, r, b) = 1)
            box l, t, r, b
            ink 0xff000000, 0x000000
            selected = menuOption(i)
        endIf
        center text 512, 248 + (i * 64), menuOption(i)
    next i
    
    rem Check there is a selected option
    if (selected <> "")
        
        rem Check for a mouse click
        if (mouseClick() = 1)
        
            rem Check it isn't being held
            if (mouseHeld = 0)
        
                rem Respond to the option
                select selected
                
                    rem Close the menu
                    case "Resume":
                        currentState = 0
                        hide mouse
                    endCase
                    
                    rem Set the light to red
                    case "Red Light":
                        color light 0, 0xff0000
                        color ambient light 0xff0000
                    endCase
                    
                    rem Set the light to green
                    case "Green Light":
                        color light 0, 0x00ff00
                        color ambient light 0x00ff00
                    endCase
                    
                    rem Set the light to blue
                    case "Blue Light":
                        color light 0, 0x0000ff
                        color ambient light 0x0000ff
                    endCase
                    
                    rem Exit
                    case "Exit":
                        breakLoop = 1
                    endCase
                
                endSelect
                
                rem Store the click
                mouseHeld = 1
                
            endIf
        
        else
        
            rem Store that the mouse was released
            mouseHeld = 0
        
        endIf
        
    endIf
    
    rem Update the camera
    cameraPosition.x = playerPosition.x + (sin(cameraAngle.Y) * -30)
    cameraPosition.y = 20
    cameraPosition.z = playerPosition.z + (cos(cameraAngle.Y) * -30)
    position camera curveValue(cameraPosition.x, camera position x(), 15), curveValue(cameraPosition.y, camera position y(), 15), curveValue(cameraPosition.z, camera position z(), 15)
    cameraAngle.x = 30
    cameraAngle.y  = cameraAngle.y + 0.5
    rotate camera curveAngle(cameraAngle.x, camera angle x(), 15),  curveAngle(cameraAngle.y, camera angle y(), 15), curveAngle(cameraAngle.z, camera angle z(), 15)

rem End the function
endFunction

rem Function to check if the mouse is over the specified rectangle
function mouseOver(_mouseX, _mouseY, _left, _top, _right, _bottom)
    
    rem Check if the mouse is over the rectangle
    local result as boolean
    result = 0
    if (_mouseX > _left)
        if (_mouseX < _right)
            if (_mouseY > _top)
                if (_mouseY < _bottom)
                    result = 1
                endIf
            endIf
        endIf
    endIf

rem End the function
endFunction result

+ Code Snippet

rem Setup the window
set display mode 1024, 768, 32
set window on
set window size 1040, 806
set window title "Pause menu"

rem Take over control of rendering
sync on
sync rate 60

rem Setup the font
set text font "Arial"
set text size 30
set text to bold

rem Show a loading message
sync
center text screen width() / 2, screen height() / 2, "LOADING..."
sync

rem Stop escape key from exiting
disable escapeKey

rem Set the default state
global currentState as integer
currentState = 0

rem Handle the escape key being held
global escapeHeld as boolean
escapeHeld = 0
global mouseHeld as boolean
mouseHeld = 0

rem Create a floor
make object plane 1, 100, 100
rotate object 1, 270, 0, 0

rem Create a player
make object box 2, 2, 5, 2
set shadow shading on 2, -1, 20, 1

rem Setup atmosphere
color ambient light 0xffffff
set ambient light 20
color light 0, 0xffdd99
position light 0, 0, 20, -100

rem Start off player and camera
type type_floatXYZ
    x as float
    y as float
    z as float
endType
global cameraAngle as type_floatXYZ
global cameraPosition as type_floatXYZ
global playerAngle as type_floatXYZ
global playerPosition as type_floatXYZ
playerPosition.x = 0
playerPosition.y = 2.5
playerPosition.z = 0

rem Setup the menu options
global dim menuOption(5) as string
menuOption(0) = "Resume"
menuOption(1) = "Red Light"
menuOption(2) = "Green Light"
menuOption(3) = "Blue Light"
menuOption(4) = "Exit"

rem Track when to end the loop
global breakLoop as boolean

rem Hide the mouse in game mode
hide mouse

rem Start the main loop
repeat

    rem Check if we're in the game or menu
    if (currentState = 0)
        updateGame()
    else
        updateMenu()
    endIf
    
    rem Swap between states
    if (escapeKey() = 1)
        if (escapeHeld = 0)
            inc currentState
            show mouse
            if (currentState = 2)
                currentState = 0
                hide mouse
            endIf
        endIf
        escapeHeld = 1
    else
        escapeHeld = 0
    endIf

    rem Render
    sync
    
rem End the loop when escape is pushed
until (breakLoop = 1)

rem Exit the application
end

rem Function to handle the game updates
function updateGame()

    rem Render UI
    text 0, 0, "Use the mouse to look around and W / S to move."
    text 0, 20, "Press escape to pause."

    rem Update the player object
    inc playerAngle.y, mouseMoveX()
    w = keyState(17)
    s = keyState(31)
    inc playerPosition.x, sin(playerAngle.y) * (w - s)
    inc playerPosition.z, cos(playerAngle.y) * (w - s)
    if (playerPosition.x < -48)
        playerPosition.x = -48
    endIf
    if (playerPosition.x > 48)
        playerPosition.x = 48
    endIf
    if (playerPosition.z < -48)
        playerPosition.z = -48
    endIf
    if (playerPosition.z > 48)
        playerPosition.z = 48
    endIf
    rotate object 2, playerAngle.x, playerAngle.y, playerAngle.z
    position object 2, playerPosition.x, playerPosition.y, playerPosition.z
    
    rem Update the camera
    cameraPosition.x = playerPosition.x + (sin(playerAngle.Y) * -30)
    cameraPosition.y = 20
    cameraPosition.z = playerPosition.z + (cos(playerAngle.Y) * -30)
    position camera curveValue(cameraPosition.x, camera position x(), 15), curveValue(cameraPosition.y, camera position y(), 15), curveValue(cameraPosition.z, camera position z(), 15)
    cameraAngle.x = 30
    cameraAngle.y  = playerAngle.y
    rotate camera curveAngle(cameraAngle.x, camera angle x(), 15),  curveAngle(cameraAngle.y, camera angle y(), 15), curveAngle(cameraAngle.z, camera angle z(), 15)

rem End the function
endFunction

rem Function to handle the menu updates
function updateMenu()

    rem Render the background
    color1 = 0x00000000
    color2 = 0xcc000000
    box 0, 0, 256, 768, color1, color1, color2, color2
    box 768, 0, 1024, 768, color2, color2, color1, color1
    box 256, 0, 768, 768, color2
    
    rem Loop through and render the menu options
    mX = mouseX()
    mY = mouseY()
    local selected as string
    selected = ""
    for i = 0 to (array count(menuOption(0)) - 1)
        l = 256
        t = 240 + (i * 64)
        r = 768
        b = t + 48
        ink 0xffffffff, 0x000000
        if (mouseOver(mX, mY, l, t, r, b) = 1)
            box l, t, r, b
            ink 0xff000000, 0x000000
            selected = menuOption(i)
        endIf
        center text 512, 248 + (i * 64), menuOption(i)
    next i
    
    rem Check there is a selected option
    if (selected <> "")
        
        rem Check for a mouse click
        if (mouseClick() = 1)
        
            rem Check it isn't being held
            if (mouseHeld = 0)
        
                rem Respond to the option
                select selected
                
                    rem Close the menu
                    case "Resume":
                        currentState = 0
                        hide mouse
                    endCase
                    
                    rem Set the light to red
                    case "Red Light":
                        color light 0, 0xff0000
                        color ambient light 0xff0000
                    endCase
                    
                    rem Set the light to green
                    case "Green Light":
                        color light 0, 0x00ff00
                        color ambient light 0x00ff00
                    endCase
                    
                    rem Set the light to blue
                    case "Blue Light":
                        color light 0, 0x0000ff
                        color ambient light 0x0000ff
                    endCase
                    
                    rem Exit
                    case "Exit":
                        breakLoop = 1
                    endCase
                
                endSelect
                
                rem Store the click
                mouseHeld = 1
                
            endIf
        
        else
        
            rem Store that the mouse was released
            mouseHeld = 0
        
        endIf
        
    endIf
    
    rem Update the camera
    cameraPosition.x = playerPosition.x + (sin(cameraAngle.Y) * -30)
    cameraPosition.y = 20
    cameraPosition.z = playerPosition.z + (cos(cameraAngle.Y) * -30)
    position camera curveValue(cameraPosition.x, camera position x(), 15), curveValue(cameraPosition.y, camera position y(), 15), curveValue(cameraPosition.z, camera position z(), 15)
    cameraAngle.x = 30
    cameraAngle.y  = cameraAngle.y + 0.5
    rotate camera curveAngle(cameraAngle.x, camera angle x(), 15),  curveAngle(cameraAngle.y, camera angle y(), 15), curveAngle(cameraAngle.z, camera angle z(), 15)

rem End the function
endFunction

rem Function to check if the mouse is over the specified rectangle
function mouseOver(_mouseX, _mouseY, _left, _top, _right, _bottom)
    
    rem Check if the mouse is over the rectangle
    local result as boolean
    result = 0
    if (_mouseX > _left)
        if (_mouseX < _right)
            if (_mouseY > _top)
                if (_mouseY < _bottom)
                    result = 1
                endIf
            endIf
        endIf
    endIf

rem End the function
endFunction result

Previously TEH_CODERER.

Back to top

Profile PM Email Website

MrValentine

AGK Backer

15

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 4th Apr 2012 05:55

Link

Ah bugger... who put too much suds in lol

As I said take your time dont rush anything

Back to top

Profile PM

Libervurto

20

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 5th Apr 2012 01:34

Link

I usually do something like this, which is a cross between Andrew and Yavin's methods.

sync on

rem *** Main Loop ***
do
   rem Main Menu
   cls
   print "TIMER CRISIS 2"
   print "Main Menu"
   print "Press ANY KEY to start a NEW GAME."
   sync
   wait key

game=1 :`there would be other options in a real menu so having a flag is a good idea.
   oldtime = timer()
   pausetime = 0

rem *** Game Loop ***
   while game=1
      time = timer()-oldtime-pausetime
      if keystate(16) then game=0
      if keystate(25) then gosub pause
      sync : cls
      print "TIMER CRISIS 2"
      print "Time elapsed: "; time
      print "press P to PAUSE"
      print "press Q to QUIT"
   endwhile
   while scancode():sync:endwhile :`this loop waits until we release all keys.
loop

rem *** Pause Menu ***
pause:
   oldpause = timer()
   print "GAME PAUSED"
   print "Press ANY KEY to RESUME"
   sync
   while scancode():endwhile :`this loop waits until we release all keys.
   repeat:sync:until scancode() :`this loop waits until we press a key.
   while scancode():endwhile :`this loop waits until we release all keys again.
   pausetime = timer()-oldpause
return

+ Code Snippet

sync on

rem *** Main Loop ***
do
   rem Main Menu
   cls
   print "TIMER CRISIS 2"
   print "Main Menu"
   print "Press ANY KEY to start a NEW GAME."
   sync
   wait key

   game=1 :`there would be other options in a real menu so having a flag is a good idea.
   oldtime = timer()
   pausetime = 0

   rem *** Game Loop ***
   while game=1
      time = timer()-oldtime-pausetime
      if keystate(16) then game=0
      if keystate(25) then gosub pause
      sync : cls
      print "TIMER CRISIS 2"
      print "Time elapsed: "; time
      print "press P to PAUSE"
      print "press Q to QUIT"
   endwhile
   while scancode():sync:endwhile :`this loop waits until we release all keys.
loop

rem *** Pause Menu ***
pause:
   oldpause = timer()
   print "GAME PAUSED"
   print "Press ANY KEY to RESUME"
   sync
   while scancode():endwhile :`this loop waits until we release all keys.
   repeat:sync:until scancode() :`this loop waits until we press a key.
   while scancode():endwhile :`this loop waits until we release all keys again.
   pausetime = timer()-oldpause
return

Even my simple example takes a while to see the flow so I'll give diagrammatic versions of all three.

Andrew's Method

+ Code Snippet

main loop {
  check state {
    state a: run game functions
    state b: run menu functions
    state c: exit the program
  }
}

The only job of the main loop is to decide where to send the flow.
This is a very good approach if done properly, the trick is not to just bundle your entire game into one function. For a demonstration it's okay of course but one would assume that if Andrew used this to make a proper game he would add separate functions as the game grew in size. Using functions of course means you can have separate files too and not crowd your workspace.

Yavin's Method

+ Code Snippet

start:
main loop {
  check pause{ goto pause }
}
pause:
pause loop {
  goto start
}

Yavin uses two loops and jumps between them. The only problem with this is it becomes hard to follow when the program gets big.

My Method

+ Code Snippet

main loop {
  main menu { }
  game loop {
    gosub pause
    exit to main loop
  }
}

pause:
  pause menu { }
return

My method isn't as tidy as Andrew's but it is more stable than Yavin's.

This is just my opinion, you can of course make a game with either of the three and often it will depend on what you are making when you decide how to write something. There is no single best solution for all circumstances.

WARNING: The above comment may contain sarcasm.

Back to top

Profile PM Email

Andrew_Neale

16

Years of Service

User Offline

Joined: 3rd Nov 2009

Location: The Normandy SR-2

Posted: 5th Apr 2012 02:23

Link

Very valid points. I suppose I should have clarified, but yes, the structure I used here was fine for this small example but I would indeed structure it slightly differently for a larger project. The framework I use for all my projects is several thousand lines by itself so structure becomes very important. All my code is separated into different files based on functionality groups (i.e. media control, input handling, physics etc.) and all methods within each prefixed suitably (i.e. mediaControl_findFreeObject(), inputHandler_update()) and then all variables for each functionality group declared to match (i.e. inputHandler.current.mouse.click) to almost emulate class-like structure. Its taken quite awhile, but the framework now covers a hell of a lot and means any new project I start I can focus purely on the project specific code. I've always been quite OCD but I really can't stress how much benefit there is from this approach.

Previously TEH_CODERER.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Any idea for Pause?