TheGameCreators - CodeBase - Buttons Made Even Easier and Understandable

Category: Functions

Version: 1.0

Information

Uploaded: 3rd Aug 2006 22:59

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

-Simple button menu tutorial, No media Required. -Quick, Easy, and Understandable Setup -Clickable buttons based on width and height of text from its start location.

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

`//*Window Layout*//

set window on : show window

set display mode 450,480,32

set window layout 1,1,0

set window title "Button Tutorial"

set text font "Comic Sans MS" : set text size 21

set text to bold

`//*Main Menu Vars*//

Global Button_1_txt$ = "Create New Character"

Global Button_1_x = 140

Global Button_1_y = 100

Global Button_2_txt$ = "Load Character"

Global Button_2_x = 165

Global Button_2_y = 140

Global Button_3_txt$ = "Exit"

Global Button_3_x = 200

Global Button_3_y = 180

`//*Add Other Buttons Here*//

`---------------------------`

`//*Main Loop For Escapekey Exit*//

while escapekey()=0

_Menu()

endwhile

Function _Menu()

cls

box 0,0,screen width(),30,RGB(36,36,36),RGB(36,36,36),RGB(36,36,36),RGB(36,36,36)

center text screen width()/2,5,"Menu"

line 0,30,screen width(),30

text Button_1_x,Button_1_y,Button_1_txt$

if (mousex() > Button_1_x and mousex() < Button_1_x + text width(Button_1_txt$) and mousey() > Button_1_y and mousey() < Button_1_y + text height(Button_1_txt$)) and mouseclick()=1 then _New()

text Button_2_x,Button_2_y,Button_2_txt$

if (mousex() > Button_2_x and mousex() < Button_2_x + text width(Button_2_txt$) and mousey() > Button_2_y and mousey() < Button_2_y + text height(Button_2_txt$)) and mouseclick()=1 then _Load()

text Button_3_x,Button_3_y,Button_3_txt$

if (mousex() > Button_3_x and mousex() < Button_3_x + text width(Button_3_txt$) and mousey() > Button_3_y and mousey() < Button_3_y + text height(Button_3_txt$)) and mouseclick()=1 then _Exit()

EndFunction

`//*New*//

Function _New()

cls

box 0,0,screen width(),30,RGB(36,36,36),RGB(36,36,36),RGB(36,36,36),RGB(36,36,36)

center text screen width()/2,5,"New Character"

line 0,30,screen width(),30

center text screen width()/2,200,"Press Any Key To Return"

wait key

EndFunction

`//*Load*//

Function _Load()

cls

box 0,0,screen width(),30,RGB(36,36,36),RGB(36,36,36),RGB(36,36,36),RGB(36,36,36)

center text screen width()/2,5,"Character List"

line 0,30,screen width(),30

center text screen width()/2,200,"Press Any Key To Return"

wait key

EndFunction

`//*Exit*//

Function _Exit()

cls

box 0,0,screen width(),30,RGB(36,36,36),RGB(36,36,36),RGB(36,36,36),RGB(36,36,36)

CodeBase - Buttons Made Even Easier and Understandable

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Anonymous Coder
CodeBase Entries:	1