TheGameCreators - CodeBase - Easy Pop-Up Menu System

Return to the CodeBase listing

Category: Input

Version: 1.0

Information

Uploaded: 16th Jul 2004 06:19

Modified: 16th Jul 2004 06:23

Author: SandraD

Summary

Easy text based menu bar system for pop-up menus.

Full Description

I created this pop-up menu system for myself, and thought others would like it too.<br /> It uses a database listing to define the button windows, returning either a unique number for the button activated or the text of the selection. May be adapted to other types. Does not do mouse-overs, (uses sprites for the menu boxes) but does allow up to 10 (as written) sub-menus with automatic pop-up. Placement code is incomplete, but it's a start.<br />

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem Easy Pop-up Menu system

rem for DBC w/o DLLs

rem by SandraD 07/08/04

sync on

set display mode 800, 600, 16

rem these are the outputs,

rem by number or text...

dim sel(0)

dim sel$(0)

rem these define the menus

rem first (10) is the menu depth

rem others are parameters

dim menus(10, 5)

rem these define the buttons on each

dim button$(20)

dim buttons(20, 3)

rem The following is for example only...

rem a sample world...

make matrix 1, 240, 240, 20, 20

position matrix 1, 6, -6, 6

update matrix 1

rem and the camera...

position camera 50, 150, -50

point camera 150, 0, 150

rem the main loop...

rem if right-click, show menu(s)

if mouseclick() = 2 then do_menu(1)

rem clear a corner and print output

set cursor 0, 0

ink 0, 0

box 0, 0, 200, 50

ink rgb(255, 255, 255), 0

print sel(0)," ",sel$(0)," ",mousex()," ",mousey(),

sync

loop

end

rem =======================================================

rem the function... enter with

rem the number of the menu desired.

rem (see below)

function do_menu(num)

rem it's starting position..

xp = mousex()

yp = mousey()

rem starting image/sprite number

sn = 10000

rem arry values

ss = -1

rem empty outputs

sel(0) = 0

sel$(0) = ""

rem this begins the recursion loop.

rem first, let mouse go..

lp0:

if mouseclick() then goto lp0

rem then stuff data into arrays

ss = ss + 1

menus(ss, 0) = num

menus(ss, 1) = xp

menus(ss, 2) = yp

sn = sn - 1

rem now we begin the search process.

rem it reads through the menu list

rem until the menu desired is found,

rem then displays it at the mouse

rem location.

lp00:

restore

w1 = w

repeat

rem read menu descriptor.

read m, w, h, b

if m <> menus(ss, 0)

rem read button list if not the

rem menu we wanted.

for y = 1 to b

read a, c, a$

next y

endif

until m = menus(ss, 0)

rem Adjust the menu position to on screen...

rem I'll add these later for more positioning stuff

rem  menus(ss, 4) = w

rem  menus(ss, 5) = h

rem just stick to edges for now....

if (menus(ss, 1) + w) > screen width() then menus(ss, 1) = screen width() - w

if (menus(ss, 2) + h) > screen height() then menus(ss, 2) = screen height() - h

rem draw the frame...

ink rgb(255, 255, 180),0

box menus(ss, 1), menus(ss, 2), menus(ss, 1)+w, menus(ss, 2)+h

ink rgb(100, 100, 100),0

box menus(ss, 1)+2, menus(ss, 2)+2, menus(ss, 1)+w-4, menus(ss, 2)+h-4

rem set the font...

set text font "Arial"

set text size 15

rem read and display the buttons...

for y = 0 to b-1

read a, c, a$

buttons(y, 1) = a

buttons(y, 2) = c

button$(y) = a$

if c then ink rgb(255, 255, 255),0

if c = 0 then ink rgb(180, 255, 0),0

text menus(ss, 1)+2, 2+ menus(ss, 2)+(y*13), button$(y)

next y

xx = menus(ss, 1)

yy = menus(ss, 2)

rem make menu into a sprite...

rem (so it don't go away on next sync)

get image sn, xx, yy, xx+w, yy+h

sprite sn, menus(ss, 1), menus(ss, 2), sn

show sprite sn

rem here we test the mouse for position

rem to create sub-menus, and clicks for

rem selections.

lp1:

sync

a = mousex()

b = mousey()

y = (b-menus(ss, 2))/13

if b > menus(ss, 2) and b < (menus(ss, 2)+w)

if a > ((menus(ss, 1)+w)-10) and a < (menus(ss, 1)+w) and buttons(y, 2) = 0 then goto sk1

endif

if mouseclick() = 0 then goto lp1

rem we came here on sub-menu position

rem or clicking...

sk1:

if a > (menus(ss, 1)+w) or a < menus(ss, 1) then goto lp2

if y < 0 or y > b then goto lp2

rem if buttons has sub-menu, go back

if buttons(y, 2) = 0 and mouseclick() = 0

num = buttons(y, 1)

xp = mousex()

yp = mousey()

goto lp0

endif

rem else, make selection

sel(0) = buttons(y, 2)

sel$(0) = button$(y)

rem then wait for mouse release

lp3:

if mouseclick() then goto lp3

rem here we remove the sprites

rem and exit with sel(0) and sel$(0)

rem set properly...

lp2:

hide sprite sn

delete image sn

if sn < 9999

ss = ss - 1

xp = menus(ss, 1)

yp = menus(ss, 2)

num = menus(ss, 0)

sn = sn + 1

if sel(0) <> 0 then goto lp2

goto lp00

endif

rem this is the menu data to be used

rem see comment at bottom for format

data 1, 40, 70, 5

data 0, 2, "Test 1"

data 0, 3, "Test 2"

data 2, 0, "Test 3"

data 0, 5, "Test 4"

data 0, 6, "Test 5"

data 2, 40, 70, 5

data 0, 7, "Run 1"

data 0, 8, "Run 2"

data 0, 9, "Run 3"

data 0, 10, "Run 4"

data 0, 11, "Run 5"

data 0, 0, 0, 0

endfunction

remstart

The Menu Structure list is:

int -- menu header: 0=end, other=menu identifier

int -- width (of column)

int -- height (of column)

int -- # of buttons

--entries--

int -- child menu number (if any)

int -- button number; 0 = use child

str -- button name

remend

Download

Please login to download

Comments

No comments yet.

Author Name:	SandraD
CodeBase Entries:	4

CodeBase - Easy Pop-Up Menu System

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments