And i've updated the MAIN MENU bit.
if you want to see it, here it is.
REM Project: Tutorial---Game Menu
REM Created: 13/2/2010 22:57:31 PM
REM
REM ***** Main Source File *****
REM
Rem Screen Setup (Frame Rate)
Sync on : Sync rate 30
Disable Escapekey
Gosub mnuVars
Do
If selectedItem <> 0
Ink white, white
center text screen width()/2, 200, mnuItems$(0)
Else
Ink red, red
center text screen width()/2, 200, mnuItems$(0)
Endif
If selectedItem <> 1
Ink white, white
center text screen width()/2, 220, mnuItems$(1)
Else
Ink red, red
center text screen width()/2, 220, mnuItems$(1)
Endif
If selectedItem <> 2
Ink white, white
center text screen width()/2, 240, mnuItems$(2)
Else
Ink red, red
center text screen width()/2, 240, mnuItems$(2)
Endif
If selectedItem <> 3
Ink white, white
center text screen width()/2, 260, mnuItems$(3)
Else
Ink red, red
center text screen width()/2, 260, mnuItems$(3)
Endif
If selectedItem <> 4
Ink white, white
center text screen width()/2, 280, mnuItems$(4)
Else
Ink red, red
center text screen width()/2, 280, mnuItems$(4)
Endif
If upkey()=0 and up = 1
up = 0
Endif
if upkey() = 1 and up = 0
selectedItem = selectedItem - 1
up = 1
Endif
if downkey() = 0 and down = 1
down = 0
Endif
if downkey() = 1 and down = 0
selectedItem = selectedItem + 1
Down = 1
Endif
if selectedItem < 0
selectedItem = 4
Endif
if selectedItem > 4
selectedItem = 0
Endif
Rem Exit
If selectedItem = 4 and returnkey() = 1
End
Endif
Rem StartGame
If SelectedItem = 0 and returnkey() = 1
Goto MainGame
Endif
Sync
Loop
mnuvars:
Dim mnuItems$(6)
mnuItems$(0)= "Continue (Option 1 (Working Option))"
mnuItems$(1)= "New Game (option 2)"
mnuItems$(2)= "Settings (option 3)"
mnuItems$(3)= "Introduction & Controls (option 4)"
mnuItems$(4)= "Exit Game (Option 5 (Working option))"
mnuItems$(5)= """Game Title Here"""
center text screen width()/2, 160, mnuItems$(5)
selecteditem = 0
up = 0
down = 0
red = RGB(255, 0, 0)
white = RGB(255, 255, 255)
Return
You'll get a error code saying cant find MAINGAME,
REM *** Include File: Maingame.dba ***
REM Created: 14/02/2010 19:27:31
REM
REM Included in Project: C:\Program Files\The Game Creators\Dark Basic Professional\Projects\audshgfasdg spare.dbpro
REM
MainGame:
cls
do
Center text screen width ()/2, screen height ()/2, "New Game (Inputted here)"
If EscapeKey() = 1
End
Endif
Sync
Loop
Here it is above, you need to go into the files options and make sure you've saved both of the 2 codes as GameMenu V.1.1 and MainGame, once in the files option in the bottom right corner, browse for them both and put them in, then just run it and it will work, its the only way i've learnt how to do new pages, but it works. So its alright because ive learnt that in quite a short time period.
Ready For Anything!!!
