Sorry your browser is not supported!

//-------GLOBALVARS-------------\\
Global Health = 100
Global Mana = 100
Global Easy = 0
Global Normal = 0
Global Hard = 0
//------------------------------\\

maximize window
Sync on : sync rate 40
disable escapekey

gosub mnuVars

Do

set text size 15
set text font "Courier"

Ink white, white
center text screen width()/2, 180, "//------------------------------\\"

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

Ink white, white
center text screen width()/2, 280, "//------------------------------\\"

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 Continue
if selectedItem = 0 and returnkey() = 1
endif

REM StartGame
if selectedItem = 1 and returnkey() = 1
Goto Difficulty
endif

REM Quit
if selectedItem = 3 and returnkey() = 1
cls
ink white, white
center text screen width()/2, 220, "Quitting..."
end
endif

Sync
loop

REM VARIABLES

mnuVars:
Dim mnuItems$(4)
mnuItems$(0)= "Continue"
mnuItems$(1)= "New Game"
mnuItems$(2)= "Load Game"
mnuItems$(3)= "Quit"

selectedItem = 0
up = 0
down = 0

red = RGB(255, 0, 0)
white = RGB(255, 255, 255)
return

Difficulty:

cls

gosub mnuVars

Do

set text size 15
set text font "Courier"

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 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 EASY
if selectedItem = 0 and returnkey() = 1
Global Easy = 1
cls
ink white, white
center text screen width()/2, 220, "Changed difficulty to easy"
endif

REM NORMAL
if selectedItem = 1 and returnkey() = 1
Global Normal = 1
cls
ink white, white
center text screen width()/2, 220, "Changed difficulty to normal"
endif

REM HARD
if selectedItem = 2 and returnkey() = 1
Global Hard = 1
cls
ink white, white
center text screen width()/2, 220, "Changed difficulty to hard"
endif

Sync
loop

REM VARIABLES

mnuVars:
Dim mnuItems$(3)
mnuItems$(0)= "Easy"
mnuItems$(1)= "Normal"
mnuItems$(2)= "Hard"
return

your problem lies in your

commands.
change

to


and you will be able to see the text.

You should use the code button at the top of the page when posting code.
It preserves indenting and makes your code much easier to read.

I would also avoid using the goto command in your projects.
http://forum.thegamecreators.com/?m=forum_view&t=96505&b=7

in your posted code you need a gosub in its place anyway.

hope this helps.

kezzla

Also I would suggest using "CLS" at the start of your loop otherwise your text will stay on the screen and will get unreadable after a while.

Also you have multiple loops but you are using "end" within them to quit each loop. Use "exit" if you want to quit a loop as "end" will close the program.

Or you could paste a nice image in the background instead, rather than a plain screen cls.