TheGameCreators - CodeBase - Menu with simple shadowing

Return to the CodeBase listing

Category: Games

Version: 1.0

Information

Uploaded: 12th Sep 2004 10:35

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

This is a simple menu with menu shadowing.

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: 2004.09.12. 10:45:47

REM Edited by: B3nc3

REM ***** Main Source File *****

REM From: Hungary

red as DWORD

blue as DWORD

white as DWORD

black as DWORD

red=rgb(255,0,0)

blue=rgb(0,0,255)

white=rgb(255,255,255)

black=rgb(0,0,0)

rem default text color

ink rgb(255,255,255),0

rem menu background

box 20,20,620,460,black,black,black,red

rem game title

center text 320,100,"GaMe TiTlE"

ink rgb(100,100,100),0

text 105,205,"New game"

text 105,235,"Load game"

text 105,265,"Configure"

text 105,295,"Exit"

menu:

repeat

if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=200) and (mousey() <=220))) then ink red,0 :text 100,200,"New game"

if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 199) or (mousey() >= 219))) then ink rgb(255,255,255),0 :text 100,200,"New game"

if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=200) and (mousey() <=220) and (mouseclick()=1)))) then end

if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=230) and (mousey() <=250))) then ink red,0 :text 100,230,"Load game"

if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 229) or (mousey() >= 249))) then ink rgb(255,255,255),0 :text 100,230,"Load game"

if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=230) and (mousey() <=250) and (mouseclick()=1)))) then end

if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=260) and (mousey() <=280))) then ink red,0 :text 100,260,"Configure"

if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 259) or (mousey() >= 279))) then ink rgb(255,255,255),0 :text 100,260,"Configure"

if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=260) and (mousey() <=280) and (mouseclick()=1)))) then end

if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=290) and (mousey() <=310))) then ink red,0 :text 100,290,"Exit"

if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 289) or (mousey() >= 309))) then ink rgb(255,255,255),0 :text 100,290,"Exit"

if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=290) and (mousey() <=310) and (mouseclick()=1)))) then end

CodeBase - Menu with simple shadowing

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Anonymous Coder
CodeBase Entries:	1