CodeBase - Need Help With Menu.

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

0

0

Information

Uploaded: 17th Jul 2011 20:55

Modified: 1st Jan 1970 01:00

Author: Darkzombies

Summary

Everything works fine, but when i press enter, it doesnt do anything.

Full Description

Please Help.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem ***** Included Source File *****

REM Main Menu

Sync on : sync rate 40

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

end

endif

Sync

loop

REM VARIABLES

mnuVars:

Dim mnuItems$(5)

mnuItems$(0)= "New Game"

mnuItems$(1)= "Load Game"

mnuItems$(2)= "Save Game"

mnuItems$(3)= "Options"

mnuItems$(4)= "Quit"

selectedItem = 0

up = 0

down = 0

red = RGB(255, 0, 0)

white = RGB(255, 255, 255)

return

Generate:

cls

Download

Please login to download

Comments

No comments yet.