TheGameCreators - CodeBase - Very nice menu buttons

Return to the CodeBase listing

Category: Input / Output

Version: 1.2

Information

Uploaded: 25th Nov 2005 16:36

Modified: 1st Jan 1970 01:00

Author: SunDawg

Summary

Button code for DBPro

Full Description

This small code creates a button that has a normal state, a hover state, and a depressed state, and has Windows grade button-click detection. A must have for all your menus in any application, though not quite pretty enough for games. The .rar file included you can download has a highly detailed HTML manual to using the code. I really suggest you look at the manual, as I spent about an hour making all the code snippets and code blocks in it look just as they do in the DBPro IDE. Enjoy this lovely code, as it is part of a large array of user interface codes I'm devising, that I one day hope to have on this site as an extension of DBPro.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

REM Author: Mike Perron

REM Use this powerful GUI script anywhere you need a button.

REM A seperate label image needs to be made, such as 'exit.png' contains only the words REM 'Exit' centered on a 80x20 graphic.

load image "norm.png",1

load image "hover.png",2

load image "press.png",3

load image "exit.png",4

sprite 1,screen width()/2-40,screen height()/2-10,1

sprite 2,sprite x(1),sprite y(1),4

`Hover detection

if mousex()>sprite x(1) then if mousex()<sprite x(1)+80 then if mousey()>sprite y(1) then if mousey()<sprite y(1)+20 then sprite 1,sprite x(1),sprite y(1),2 : hover_end=1

`roll-off detection

if mousex()<sprite x(1) then sprite 1,sprite x(1),sprite y(1),1 : hover_end=0

if mousex()>sprite x(1)+80 then sprite 1,sprite x(1),sprite y(1),1 : hover_end=0

if mousey()<sprite y(1) then sprite 1,sprite x(1),sprite y(1),1 : hover_end=0

if mousey()>sprite y(1)+20 then sprite 1,sprite x(1),sprite y(1),1 : hover_end=0

`click detection

if hover_end=1 then if mouseclick()=1 then wait_release_end()

loop

function wait_release_end()

`exit button release-on-button test script

sprite 1,sprite x(1),sprite y(1),3

if mousex()<sprite x(1) then sprite 1,sprite x(1),sprite y(1),1 : exit

if mousex()>sprite x(1)+80 then sprite 1,sprite x (1),sprite y(1),1 : exit

if mousey()<sprite y(1) then sprite 1,sprite x(1),sprite y(1),1 : exit

if mousey()>sprite y(1)+20 then sprite 1,sprite x(1),sprite y(1),1 : exit

if mouseclick()=0 then end

loop

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	SunDawg
CodeBase Entries:	6

CodeBase - Very nice menu buttons