me and my freinds are working on a game, it would be very nice for some more people to help, right now i have a problem with a black screen on main menu, which is all i have so far :/ lol.
//-------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
Goto Difficulty
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