TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Miscellaneous

Version: 1.0

Information

Uploaded: 31st May 2004 04:12

Modified: 1st Jan 1970 01:00

Author: amol

Summary

This program draws menu button on screen. Buttons can be clicked and changes color when mouse over

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: Menu

Rem Created: 07/01/2003 15:34:28

Rem ***** Main Source File *****

rem Author: Amol Paranjpe

rem Link: www.inspyr.com

load bitmap "1.jpg",1 `load background image

copy bitmap 1,0 `load bitmap to screen

set current bitmap 0

`define global variables

global active=0

global disp_main_menu=0 ` if 1 the activate main_menu

global disp_Options_menu=0  ` if 1 then activate Options_menu

` set defaule menu as main_menu

disp_main_menu=1

if disp_main_menu=1

copy bitmap 1,0

main_menu()

endif

if disp_Options_menu=1

copy bitmap 1,0

Options_menu()

endif

loop

` This is very important function helps in drawing the button with two colors and also tells

` if the button is clicked. The button changes color if mouse pointer is over the button

function draw_button(SX,SY,St$)

active=0

offsetX=100

offsetY=20

if mousex()>SX and mousex()< SX+offsetX

if mousey()>SY and mousey()< SY+offsetY

ink  RGB(64,64,255),RGB(0,0,0)

active=1

else

ink RGB(255,128,64),RGB(0,0,0)

active=0

endif

else

ink RGB(255,128,64),RGB(0,0,0)

active=0

endif

box SX,SY,SX+offsetX,SY+offsetY

ink RGB(255,255,255),RGB(0,0,0)

center text SX+offsetX/2,SY+offsetY/2-6,St$

endfunction

`defines main Menu

function main_menu()

draw_button(90,500,"New Game")

if active=1 and mouseclick()=1

button_clicked("New Game")

endif

draw_button(200,500,"Load")

if active=1 and mouseclick()=1

button_clicked("Load")

endif

draw_button(310,500,"Options")

if active=1 and mouseclick()=1

disp_Options_menu=1

disp_main_menu=0

endif

draw_button(430,500,"Exit")

if active=1 and mouseclick()=1

button_clicked("Options")

endif

endfunction

`defines Options Menu

function Options_menu()

draw_button(100,500,"Option 1")

if active=1 and mouseclick()=1

button_clicked("Option 1")

endif

draw_button(210,500,"Back")

if active=1 and mouseclick()=1

disp_Options_menu=0

disp_main_menu=1

endif

endfunction

function button_clicked(St$)

set text size 20

text 10,20,St$+"  button is clicked "

text 10,50, "Press any key to Exit"

wait key

end

endfunction

Download

Please login to download

Comments

No comments yet.

CodeBase - Menu

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	amol
CodeBase Entries:	1