Drop down, aerostyle like menu (no media)

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

                                    ` 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

do

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

endif



if menu_visible=1

paste image 1,1,1

text 10,4,"Menu"

if mouseclick()=1

choice1_visible=1

endif

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