TheGameCreators - CodeBase - Menu 2D (no media needed)

Return to the CodeBase listing

Category: Basic 2D

Version: 0.0.1

Information

Uploaded: 16th Aug 2007 16:41

Modified: 1st Jan 1970 01:00

Author: 313

Summary

Drop down, aerostyle like menu (no media)

Full Description

Drop down, aerostyle like menu (no media). Move mouse to the left top corner of the screen to open menu.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync on

sync rate 100

set text font "courier"

c=60

for a=1 to 10

ink rgb(c,c,c),0

line 1,a,100,a

c=c+5

next a

k=30

for a=11 to 20

ink rgb(k,k,k),0

line 1,a,100,a

k=k+5

next a

get image 1,1,1,100,20

menu_visible=0

choice1_visible=0

choice1_width=110

choice1_height=150

a=1

cls

ink rgb(255,255,255),0

mx#=mousex()

my#=mousey()

if mx#>1 and mx#<100 and my#>1 and my#<20

menu_visible=1

else

if choice1_visible=0

menu_visible=0

endif

if menu_visible=1

paste image 1,1,1

text 10,4,"Menu"

if mouseclick()=1

choice1_visible=1

endif

if menu_visible=0

choice1_visible=0

endif

if choice1_visible=1

ink rgb(100,100,100),0

box 20,20,choice1_width,choice1_height

ink rgb(120,120,120),0

line 20,20,choice1_width,20

line 20,20,20,choice1_height

ink rgb(110,110,110),0

line 21,21,choice1_width-1,21

line 21,21,21,choice1_height-1

ink rgb(70,70,70),0

line choice1_width,21,choice1_width,choice1_height

line 21,choice1_height,choice1_width,choice1_height

ink rgb(90,90,90),0

line choice1_width-1,22,choice1_width-1,choice1_height-1

line 22,choice1_height-1,choice1_width-1,choice1_height-1

ink rgb(255,255,255),0

text 30,24,"First"

endif

if mouseclick()=1 then menu_visible=0

sync

loop

wait key

end

Download

Please login to download

Comments

No comments yet.

Author Name:	313
CodeBase Entries:	1

CodeBase - Menu 2D (no media needed)

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments