Menu System in 20 lines. - GameCreators Forum

Author

Message

Lukas W

20

Years of Service

User Offline

Joined: 5th Sep 2003

Location: Sweden

Posted: 11th Mar 2006 18:00

Link

not very good. but i dont have time to improve it. i got to go

Menus=6 : Dim MenuItem(Menus) : Dim MenuEntryX(Menus) : Dim MenuEntryY(999) : Dim MenuItem$(Menus) : Dim Items(Menus) : Dim Item$(Menus,99) : Dim Action(Menus,99)
Items(1)=9 : Items(2)=13 : Items(3)=9 : Items(4)=6 : Items(5)=1 : Title$="Demo Menu System"
MenuItem$(1)="File" : MenuItem$(2)="Objects" : MenuItem$(3)="Lights \ Sounds" : MenuItem$(4)="Windows" : MenuItem$(5)="Help" : Item$(1,1)="New" : Item$(1,2)="-" : Item$(1,3)="Save" : Item$(1,4)="Save As..." : Item$(1,5)="-" : Item$(1,6)="Load Level"
Item$(1,7)="Load Texture" : Item$(1,8)="-" : Item$(1,9)="Exit" : Item$(2,1)="Add CUBE" : Item$(2,2)="Add SPHERE" : Item$(2,3)="Add CONE" : Item$(2,4)="Add CYLINDER" : Item$(2,5)="-" : Item$(2,6)="Load Object" : Item$(2,7)="-" : Item$(2,8)="Position Object"
Item$(2,9)="Rotate Object" : Item$(2,10)="Scale Object" : Item$(2,11)="-": Item$(2,12)="Color Object" : Item$(2,13)="Texture Object" : Item$(3,1)="Add LIGHT" : Item$(3,2)="Position Light" : Item$(3,3)="Rotate Light" : Item$(3,4)="-" : Item$(3,5)="Spot Light Angle"
Item$(3,6)="-" : Item$(3,7)="Color Light" : Item$(3,8)="Load Sound" : Item$(3,9)="Position Sound" : Item$(4,1)="Object Propertites" : Item$(4,2)="-" : Item$(4,3)="Select Object" : Item$(4,4)="Select Sound" : Item$(4,5)="Select Light" : Item$(4,6)="Select Texture" : Item$(5,1)="About..."
sync rate 0 : sync on : backdrop on : do : MainBar(Menus,Title$,LevelName$,1,"Arial Narrow",Help$)
for x = 1 to Menus : for y= 1 to 99 : if Action(x,y)=1 : Action(x,y)=0
do : backdrop off : cls 0 : text 0,0,"Hello there! and thanx for trying my Menu Function" : text 0,15,"This is where the demo ends.." : text 0,30,"You selected The '"+MenuItem$(x)+"' Menu and the '"+Item$(x,y)+"' Item iside that Menu" : text 0,45,"This and more can be found on my website" : text 0,75,"www.lukasw.com" : text 15,90,"-Lukas Wadenhof" : if scancode()>0 : end : endif : sync:loop
endif : next y : next x : sync:loop
function MainBar(a,a$,b$,time,c$,Help$)
   sw=screen width():sh=screen height() : mx=mousex():my=mousey():mc=mouseclick() : if mouseclick()=0 : latch = 1 : else : latch = 0 : endif
   ink rgb(255,255,255),0 : box 0,0,sw-1,15 : ink rgb(96,96,96),0 : box 1,1,sw-1,15 : ink rgb(196,196,196),0 : box 1,1,sw-2,14 : ink rgb(0,0,0),0 : set text size 16 : set text font c$ : text 3,0,a$ : center text sw/2,0,b$ : if time=1 then text sw-100,1,get date$()+"-"+get time$() : ink rgb(225,225,225),0 : box 0,16,sw-1,31
   Ink RGB(0,0,0),0 : MenuEntryX(0)=0 : for x = 1 to a-1 : number=len(MenuItem$(x))*6 : text MenuEntryX(x)+4,16,MenuItem$(x) : MenuEntryX(x+1)=MenuEntryX(x)+number : next x
   for x = 1 to a-1 : number=len(MenuItem$(x))*6 : if my>=16 and my<=31 : if mx>=MenuEntryX(x) and mx<=MenuEntryX(x)+number : ink rgb(192,192,192),0 : box MenuEntryX(x),16,MenuEntryX(x)+number,31 : ink rgb(0,0,0),0 : text MenuEntryX(x)+4,16,MenuItem$(x) : if latch = 0 : if DisplayMenu>0 : DisplayMenu=0 : endif : if DisplayMenu=0 : DisplayMenu=x : endif : endif : endif : endif : next x
   if DisplayMenu>0 : MenuEntryY(1)=31 : number=len(MenuItem$(DisplayMenu))*6 : ink rgb(255,255,255),0 : box MenuEntryX(DisplayMenu),16,MenuEntryX(DisplayMenu)+number,31 : ink rgb(100,100,100),0 : text MenuEntryX(DisplayMenu)+4,16,MenuItem$(DisplayMenu)
   for z=1 to Items(DisplayMenu) : number=len(Item$(DisplayMenu,z)) : ink rgb(255,255,255),0 : box MenuEntryX(DisplayMenu),MenuEntryY(z),MenuEntryX(DisplayMenu)+128,MenuEntryY(z)+15 : ink rgb(0,0,0),0 : if mid$(Item$(DisplayMenu,z),number)="-" : line MenuEntryX(DisplayMenu)+2,MenuEntryY(z)+9,MenuEntryX(DisplayMenu)+126,MenuEntryY(z)+9 : else : if mx>=MenuEntryX(DisplayMenu) and mx<=MenuEntryX(DisplayMenu)+128
   if my>=MenuEntryY(z) and my<=MenuEntryY(z)+15 : ink rgb(192,192,192),0 : box MenuEntryX(DisplayMenu)+2,MenuEntryY(z)+2,MenuEntryX(DisplayMenu)+126,MenuEntryY(z)+13 : ink rgb(0,0,0),0 : if mc=1 : Action(DisplayMenu,z)=1:DisplayMenu=0 : endif : endif : endif : text MenuEntryX(DisplayMenu)+8,MenuEntryY(z),Item$(DisplayMenu,z) : endif : text MenuEntryX(DisplayMenu)+8,MenuEntryY(z),Item$(DisplayMenu,z) : if z<Items(DisplayMenu) : MenuEntryY(z+1)=MenuEntryY(z)+15 : endif : next z
   if latch = 0 : if mx<=MenuEntryX(DisplayMenu) or mx>=MenuEntryX(DisplayMenu)+128 or my<=31 or my>=(15*Items(DisplayMenu)) : DisplayMenu=0 : endif : endif : endif
endfunction

+ Code Snippet

Menus=6 : Dim MenuItem(Menus) : Dim MenuEntryX(Menus) : Dim MenuEntryY(999) : Dim MenuItem$(Menus) : Dim Items(Menus) : Dim Item$(Menus,99) : Dim Action(Menus,99)
Items(1)=9 : Items(2)=13 : Items(3)=9 : Items(4)=6 : Items(5)=1 : Title$="Demo Menu System"
MenuItem$(1)="File" : MenuItem$(2)="Objects" : MenuItem$(3)="Lights \ Sounds" : MenuItem$(4)="Windows" : MenuItem$(5)="Help" : Item$(1,1)="New" : Item$(1,2)="-" : Item$(1,3)="Save" : Item$(1,4)="Save As..." : Item$(1,5)="-" : Item$(1,6)="Load Level"
Item$(1,7)="Load Texture" : Item$(1,8)="-" : Item$(1,9)="Exit" : Item$(2,1)="Add CUBE" : Item$(2,2)="Add SPHERE" : Item$(2,3)="Add CONE" : Item$(2,4)="Add CYLINDER" : Item$(2,5)="-" : Item$(2,6)="Load Object" : Item$(2,7)="-" : Item$(2,8)="Position Object"
Item$(2,9)="Rotate Object" : Item$(2,10)="Scale Object" : Item$(2,11)="-": Item$(2,12)="Color Object" : Item$(2,13)="Texture Object" : Item$(3,1)="Add LIGHT" : Item$(3,2)="Position Light" : Item$(3,3)="Rotate Light" : Item$(3,4)="-" : Item$(3,5)="Spot Light Angle"
Item$(3,6)="-" : Item$(3,7)="Color Light" : Item$(3,8)="Load Sound" : Item$(3,9)="Position Sound" : Item$(4,1)="Object Propertites" : Item$(4,2)="-" : Item$(4,3)="Select Object" : Item$(4,4)="Select Sound" : Item$(4,5)="Select Light" : Item$(4,6)="Select Texture" : Item$(5,1)="About..."
sync rate 0 : sync on : backdrop on : do : MainBar(Menus,Title$,LevelName$,1,"Arial Narrow",Help$)
for x = 1 to Menus : for y= 1 to 99 : if Action(x,y)=1 : Action(x,y)=0
do : backdrop off : cls 0 : text 0,0,"Hello there! and thanx for trying my Menu Function" : text 0,15,"This is where the demo ends.." : text 0,30,"You selected The '"+MenuItem$(x)+"' Menu and the '"+Item$(x,y)+"' Item iside that Menu" : text 0,45,"This and more can be found on my website" : text 0,75,"www.lukasw.com" : text 15,90,"-Lukas Wadenhof" : if scancode()>0 : end : endif : sync:loop
endif : next y : next x : sync:loop
function MainBar(a,a$,b$,time,c$,Help$)
   sw=screen width():sh=screen height() : mx=mousex():my=mousey():mc=mouseclick() : if mouseclick()=0 : latch = 1 : else : latch = 0 : endif
   ink rgb(255,255,255),0 : box 0,0,sw-1,15 : ink rgb(96,96,96),0 : box 1,1,sw-1,15 : ink rgb(196,196,196),0 : box 1,1,sw-2,14 : ink rgb(0,0,0),0 : set text size 16 : set text font c$ : text 3,0,a$ : center text sw/2,0,b$ : if time=1 then text sw-100,1,get date$()+"-"+get time$() : ink rgb(225,225,225),0 : box 0,16,sw-1,31
   Ink RGB(0,0,0),0 : MenuEntryX(0)=0 : for x = 1 to a-1 : number=len(MenuItem$(x))*6 : text MenuEntryX(x)+4,16,MenuItem$(x) : MenuEntryX(x+1)=MenuEntryX(x)+number : next x
   for x = 1 to a-1 : number=len(MenuItem$(x))*6 : if my>=16 and my<=31 : if mx>=MenuEntryX(x) and mx<=MenuEntryX(x)+number : ink rgb(192,192,192),0 : box MenuEntryX(x),16,MenuEntryX(x)+number,31 : ink rgb(0,0,0),0 : text MenuEntryX(x)+4,16,MenuItem$(x) : if latch = 0 : if DisplayMenu>0 : DisplayMenu=0 : endif : if DisplayMenu=0 : DisplayMenu=x : endif : endif : endif : endif : next x
   if DisplayMenu>0 : MenuEntryY(1)=31 : number=len(MenuItem$(DisplayMenu))*6 : ink rgb(255,255,255),0 : box MenuEntryX(DisplayMenu),16,MenuEntryX(DisplayMenu)+number,31 : ink rgb(100,100,100),0 : text MenuEntryX(DisplayMenu)+4,16,MenuItem$(DisplayMenu)
   for z=1 to Items(DisplayMenu) : number=len(Item$(DisplayMenu,z)) : ink rgb(255,255,255),0 : box MenuEntryX(DisplayMenu),MenuEntryY(z),MenuEntryX(DisplayMenu)+128,MenuEntryY(z)+15 : ink rgb(0,0,0),0 : if mid$(Item$(DisplayMenu,z),number)="-" : line MenuEntryX(DisplayMenu)+2,MenuEntryY(z)+9,MenuEntryX(DisplayMenu)+126,MenuEntryY(z)+9 : else : if mx>=MenuEntryX(DisplayMenu) and mx<=MenuEntryX(DisplayMenu)+128
   if my>=MenuEntryY(z) and my<=MenuEntryY(z)+15 : ink rgb(192,192,192),0 : box MenuEntryX(DisplayMenu)+2,MenuEntryY(z)+2,MenuEntryX(DisplayMenu)+126,MenuEntryY(z)+13 : ink rgb(0,0,0),0 : if mc=1 : Action(DisplayMenu,z)=1:DisplayMenu=0 : endif : endif : endif : text MenuEntryX(DisplayMenu)+8,MenuEntryY(z),Item$(DisplayMenu,z) : endif : text MenuEntryX(DisplayMenu)+8,MenuEntryY(z),Item$(DisplayMenu,z) : if z<Items(DisplayMenu) : MenuEntryY(z+1)=MenuEntryY(z)+15 : endif : next z
   if latch = 0 : if mx<=MenuEntryX(DisplayMenu) or mx>=MenuEntryX(DisplayMenu)+128 or my<=31 or my>=(15*Items(DisplayMenu)) : DisplayMenu=0 : endif : endif : endif
endfunction

HorizShootiz - 96%

Back to top

Profile PM Email

Lukas W

20

Years of Service

User Offline

Joined: 5th Sep 2003

Location: Sweden

Posted: 11th Mar 2006 18:57

Link

here is one that works a little better.

Menus=6 : Dim MenuItem(Menus) : Dim MenuEntryX(Menus) : Dim MenuEntryY(999) : Dim MenuItem$(Menus) : Dim Items(Menus) : Dim Item$(Menus,99) : Dim Action(Menus,99)
GLOBAL DisplayMenu : Items(1)=9 : Items(2)=13 : Items(3)=9 : Items(4)=6 : Items(5)=1
Title$="Demo Menu System" : MenuItem$(1)="File" : MenuItem$(2)="Objects" : MenuItem$(3)="Lights \ Sounds" : MenuItem$(4)="Windows" : MenuItem$(5)="Help" : Item$(1,1)="New" : Item$(1,2)="-" : Item$(1,3)="Save" : Item$(1,4)="Save As..." : Item$(1,5)="-" : Item$(1,6)="Load Level"
Item$(1,7)="Load Texture" : Item$(1,8)="-" : Item$(1,9)="Exit" : Item$(2,1)="Add CUBE" : Item$(2,2)="Add SPHERE" : Item$(2,3)="Add CONE" : Item$(2,4)="Add CYLINDER" : Item$(2,5)="-" : Item$(2,6)="Load Object" : Item$(2,7)="-" : Item$(2,8)="Position Object"
Item$(2,9)="Rotate Object" : Item$(2,10)="Scale Object" : Item$(2,11)="-": Item$(2,12)="Color Object" : Item$(2,13)="Texture Object" : Item$(3,1)="Add LIGHT" : Item$(3,2)="Position Light" : Item$(3,3)="Rotate Light" : Item$(3,4)="-" : Item$(3,5)="Spot Light Angle"
Item$(3,6)="-" : Item$(3,7)="Color Light" : Item$(3,8)="Load Sound" : Item$(3,9)="Position Sound" : Item$(4,1)="Object Propertites" : Item$(4,2)="-" : Item$(4,3)="Select Object" : Item$(4,4)="Select Sound" : Item$(4,5)="Select Light" : Item$(4,6)="Select Texture" : Item$(5,1)="About..."
sync rate 0 : sync on : backdrop on : do : MainBar(Menus,Title$,LevelName$,1,"Arial Narrow",Help$)
for x = 1 to Menus : for y= 1 to 99 : if Action(x,y)=1 : Action(x,y)=0
do : backdrop off : cls 0 : INK RGB(255,255,255),0 : text 0,30,"You selected Menu '"+MenuItem$(x)+"' and Item '"+Item$(x,y)+"' iside that Menu" : if scancode()>0 : end : endif : sync:loop : endif : next y : next x : sync:loop
function MainBar(a,a$,b$,time,c$,Help$)
   sw=screen width() : sh=screen height()  : mx=mousex() : my=mousey() : mc=mouseclick() : if mouseclick()=0 : latch = 1 : else : latch = 0 : endif
   ink rgb(255,255,255),0 : box 0,0,sw-1,15 : ink rgb(096,096,096),0 : box 1,1,sw-1,15 : ink rgb(196,196,196),0 : box 1,1,sw-2,14
   ink rgb(0,0,0),0 : set text size 16 : set text font c$ : text 3,0,a$ : center text sw/2,0,b$ : if time=1 then text sw-100,1,get date$()+"-"+get time$() : ink rgb(225,225,225),0 : box 0,16,sw-1,31
   Ink RGB(0,0,0),0 : MenuEntryX(0)=0 : for x = 1 to a-1 : number=len(MenuItem$(x))*6 : text MenuEntryX(x)+4,16,MenuItem$(x) : MenuEntryX(x+1)=MenuEntryX(x)+number : next x
   for x = 1 to a-1 : number=len(MenuItem$(x))*6 : if my>=16 and my<=31 : if mx>=MenuEntryX(x) and mx<=MenuEntryX(x)+number : ink rgb(192,192,192),0 : box MenuEntryX(x),16,MenuEntryX(x)+number,31 : ink rgb(0,0,0),0 : text MenuEntryX(x)+4,16,MenuItem$(x) : if latch = 1 : DisplayMenu=x : endif :endif : endif : next x
   if DisplayMenu>0 : MenuEntryY(1)=31 : number=len(MenuItem$(DisplayMenu))*6 : ink rgb(255,255,255),0 : box MenuEntryX(DisplayMenu),16,MenuEntryX(DisplayMenu)+number,31 : ink rgb(100,100,100),0 : text MenuEntryX(DisplayMenu)+4,16,MenuItem$(DisplayMenu)
   for z=1 to Items(DisplayMenu) : number=len(Item$(DisplayMenu,z)) : ink rgb(255,255,255),0 : box MenuEntryX(DisplayMenu),MenuEntryY(z),MenuEntryX(DisplayMenu)+128,MenuEntryY(z)+15 : ink rgb(0,0,0),0 : if mid$(Item$(DisplayMenu,z),number)="-" : line MenuEntryX(DisplayMenu)+2,MenuEntryY(z)+9,MenuEntryX(DisplayMenu)+126,MenuEntryY(z)+9 : else
   if mx>=MenuEntryX(DisplayMenu) and mx<=MenuEntryX(DisplayMenu)+128 : if my>=MenuEntryY(z) and my<=MenuEntryY(z)+15 : ink rgb(192,192,192),0 : box MenuEntryX(DisplayMenu)+2,MenuEntryY(z)+2,MenuEntryX(DisplayMenu)+126,MenuEntryY(z)+13 : ink rgb(0,0,0),0 : if mc=1 : Action(DisplayMenu,z)=1:DisplayMenu=0 : endif : endif : endif
   text MenuEntryX(DisplayMenu)+8,MenuEntryY(z),Item$(DisplayMenu,z) : endif : text MenuEntryX(DisplayMenu)+8,MenuEntryY(z),Item$(DisplayMenu,z) : if z<Items(DisplayMenu) : MenuEntryY(z+1)=MenuEntryY(z)+15 : endif : next z : if latch = 0 : if mx<=MenuEntryX(DisplayMenu) or mx>=MenuEntryX(DisplayMenu)+128 or my<=31 or my>=(15*Items(DisplayMenu))
   DisplayMenu=0 : endif : endif : endif : endfunction

+ Code Snippet

Menus=6 : Dim MenuItem(Menus) : Dim MenuEntryX(Menus) : Dim MenuEntryY(999) : Dim MenuItem$(Menus) : Dim Items(Menus) : Dim Item$(Menus,99) : Dim Action(Menus,99)
GLOBAL DisplayMenu : Items(1)=9 : Items(2)=13 : Items(3)=9 : Items(4)=6 : Items(5)=1
Title$="Demo Menu System" : MenuItem$(1)="File" : MenuItem$(2)="Objects" : MenuItem$(3)="Lights \ Sounds" : MenuItem$(4)="Windows" : MenuItem$(5)="Help" : Item$(1,1)="New" : Item$(1,2)="-" : Item$(1,3)="Save" : Item$(1,4)="Save As..." : Item$(1,5)="-" : Item$(1,6)="Load Level"
Item$(1,7)="Load Texture" : Item$(1,8)="-" : Item$(1,9)="Exit" : Item$(2,1)="Add CUBE" : Item$(2,2)="Add SPHERE" : Item$(2,3)="Add CONE" : Item$(2,4)="Add CYLINDER" : Item$(2,5)="-" : Item$(2,6)="Load Object" : Item$(2,7)="-" : Item$(2,8)="Position Object"
Item$(2,9)="Rotate Object" : Item$(2,10)="Scale Object" : Item$(2,11)="-": Item$(2,12)="Color Object" : Item$(2,13)="Texture Object" : Item$(3,1)="Add LIGHT" : Item$(3,2)="Position Light" : Item$(3,3)="Rotate Light" : Item$(3,4)="-" : Item$(3,5)="Spot Light Angle"
Item$(3,6)="-" : Item$(3,7)="Color Light" : Item$(3,8)="Load Sound" : Item$(3,9)="Position Sound" : Item$(4,1)="Object Propertites" : Item$(4,2)="-" : Item$(4,3)="Select Object" : Item$(4,4)="Select Sound" : Item$(4,5)="Select Light" : Item$(4,6)="Select Texture" : Item$(5,1)="About..."
sync rate 0 : sync on : backdrop on : do : MainBar(Menus,Title$,LevelName$,1,"Arial Narrow",Help$)
for x = 1 to Menus : for y= 1 to 99 : if Action(x,y)=1 : Action(x,y)=0
do : backdrop off : cls 0 : INK RGB(255,255,255),0 : text 0,30,"You selected Menu '"+MenuItem$(x)+"' and Item '"+Item$(x,y)+"' iside that Menu" : if scancode()>0 : end : endif : sync:loop : endif : next y : next x : sync:loop
function MainBar(a,a$,b$,time,c$,Help$)
   sw=screen width() : sh=screen height()  : mx=mousex() : my=mousey() : mc=mouseclick() : if mouseclick()=0 : latch = 1 : else : latch = 0 : endif
   ink rgb(255,255,255),0 : box 0,0,sw-1,15 : ink rgb(096,096,096),0 : box 1,1,sw-1,15 : ink rgb(196,196,196),0 : box 1,1,sw-2,14
   ink rgb(0,0,0),0 : set text size 16 : set text font c$ : text 3,0,a$ : center text sw/2,0,b$ : if time=1 then text sw-100,1,get date$()+"-"+get time$() : ink rgb(225,225,225),0 : box 0,16,sw-1,31
   Ink RGB(0,0,0),0 : MenuEntryX(0)=0 : for x = 1 to a-1 : number=len(MenuItem$(x))*6 : text MenuEntryX(x)+4,16,MenuItem$(x) : MenuEntryX(x+1)=MenuEntryX(x)+number : next x
   for x = 1 to a-1 : number=len(MenuItem$(x))*6 : if my>=16 and my<=31 : if mx>=MenuEntryX(x) and mx<=MenuEntryX(x)+number : ink rgb(192,192,192),0 : box MenuEntryX(x),16,MenuEntryX(x)+number,31 : ink rgb(0,0,0),0 : text MenuEntryX(x)+4,16,MenuItem$(x) : if latch = 1 : DisplayMenu=x : endif :endif : endif : next x
   if DisplayMenu>0 : MenuEntryY(1)=31 : number=len(MenuItem$(DisplayMenu))*6 : ink rgb(255,255,255),0 : box MenuEntryX(DisplayMenu),16,MenuEntryX(DisplayMenu)+number,31 : ink rgb(100,100,100),0 : text MenuEntryX(DisplayMenu)+4,16,MenuItem$(DisplayMenu)
   for z=1 to Items(DisplayMenu) : number=len(Item$(DisplayMenu,z)) : ink rgb(255,255,255),0 : box MenuEntryX(DisplayMenu),MenuEntryY(z),MenuEntryX(DisplayMenu)+128,MenuEntryY(z)+15 : ink rgb(0,0,0),0 : if mid$(Item$(DisplayMenu,z),number)="-" : line MenuEntryX(DisplayMenu)+2,MenuEntryY(z)+9,MenuEntryX(DisplayMenu)+126,MenuEntryY(z)+9 : else
   if mx>=MenuEntryX(DisplayMenu) and mx<=MenuEntryX(DisplayMenu)+128 : if my>=MenuEntryY(z) and my<=MenuEntryY(z)+15 : ink rgb(192,192,192),0 : box MenuEntryX(DisplayMenu)+2,MenuEntryY(z)+2,MenuEntryX(DisplayMenu)+126,MenuEntryY(z)+13 : ink rgb(0,0,0),0 : if mc=1 : Action(DisplayMenu,z)=1:DisplayMenu=0 : endif : endif : endif
   text MenuEntryX(DisplayMenu)+8,MenuEntryY(z),Item$(DisplayMenu,z) : endif : text MenuEntryX(DisplayMenu)+8,MenuEntryY(z),Item$(DisplayMenu,z) : if z<Items(DisplayMenu) : MenuEntryY(z+1)=MenuEntryY(z)+15 : endif : next z : if latch = 0 : if mx<=MenuEntryX(DisplayMenu) or mx>=MenuEntryX(DisplayMenu)+128 or my<=31 or my>=(15*Items(DisplayMenu))
   DisplayMenu=0 : endif : endif : endif : endfunction

HorizShootiz - 96%

Back to top

Profile PM Email

Chris Franklin

18

Years of Service

User Offline

Joined: 2nd Aug 2005

Location: UK

Posted: 12th Mar 2006 17:55

Link

nice

Theme park simulator wip
http://forum.thegamecreators.com/?m=forum_view&t=71731&b=8

Back to top

Profile PM Website

Redostrike

21

Years of Service

User Offline

Joined: 9th Feb 2003

Location: Belgium

Posted: 12th Mar 2006 22:20

Link

Good work

Back to top

Profile PM Email Website

Essence

21

Years of Service

User Offline

Joined: 12th Oct 2002

Location: The Netherlands

Posted: 13th Mar 2006 08:35

Link

o...m....g

Now thats a real good 20-liner

Check out: BlueSpace 360 degree free movement in 3D Spacemines!

Back to top

Profile PM Email

Lukas W

20

Years of Service

User Offline

Joined: 5th Sep 2003

Location: Sweden

Posted: 13th Mar 2006 17:51

Link

thanks

i made some improvements visually in this one.

` menu in 20 lines v2.
` started: 17:08 ended: 17:50
` ---------------------------------------

sync on : sync rate 60 : autocam off : Set Display Mode 640, 480, 16 : GLOBAL menuStartIMG AS INTEGER : menuStartIMG = 10000 : GLOBAL Latch : GLOBAL openmenu  : #CONSTANT true  0x000001 : #CONSTANT false 0x000000
GLOBAL MENUS : MENUS = 4 : DIM Item(4, 10) AS STRING : Item( 1, 10) = "File" : Item( 1, 0 ) = "6" : Item( 1, 1 ) = "New" : Item( 1, 2 ) = "Save" : Item( 1, 3 ) = "Open" : Item( 1, 4 ) = "-" : Item( 1, 5 ) = "hello hello!" : Item( 1, 6 ) = "Exit" : Item( 2, 10) = "Edit" : Item( 2, 0 ) = "2" : Item( 2, 1 ) = "Undo" : Item( 2, 2 ) = "Redo" : Item( 3, 10) = "Something" : Item( 3, 0 ) = "4" : Item( 3, 1 ) = "item1" : Item( 3, 2 ) = "really long item this one .^^" : Item( 3, 3 ) = "-" : Item( 3, 4 ) = "yea im cool" : Item( 4, 10) = "Help" : Item( 4, 0 ) = "4" : Item( 4, 1 ) = "lalalala" : Item( 4, 2 ) = "Hello!" : Item( 4, 3 ) = "-" : Item( 4, 4 ) = "About" : DO : CLS : handleMenuBar() : SYNC : LOOP
Function handleMenuBar()
	mc = mouseclick() : if mc = true and latch = false : latch = true : endif : if mc = false : latch = false : endif : xpos = 1 : for x = 1 to MENUS : xpos2 = xpos + len( Item(x, 10) )*10 : ink rgb(205, 215, 227),0 : box xpos, 1, xpos2, 16 : if mousex() > xpos and mousex() < xpos2 and mousey() > 1 and mousey() < 16  : ink rgb(53,132,230),0 : box xpos, 1, xpos2, 16 : if latch=1 : openmenu = x : endif : endif : inc xpos, ((len( Item(x, 10) )*10)+1) : next x : xpos = 1 : for x = 1 to MENUS : xpos2 = xpos + len( Item(x, 10) )*10 : if openmenu = x : ink rgb(144,188,243),0 : box xpos, 1, xpos2, 16 : action = getItems( xpos ) : endif : ink rgb(255,255,255),0 : text xpos, 1, Item(x, 10) : inc xpos, ((len( Item(x, 10) )*10)+1) : next x
EndFunction
Function getItems( xpos )
   ypos = 17 : maxxsize = 5 : mx = mousex() : my = mousey() : mc = mouseclick() : for x = 1 to val(Item(openmenu, 0)) : _maxxsize = len(Item(openmenu, x)) *10 : if _maxxsize > maxxsize : maxxsize = _maxxsize : endif : next x
   for x = 1 to val(Item(openmenu, 0)) : ink rgb(205, 215, 227),0 : box xpos, ypos, xpos + maxxsize, ypos+15 : if Item(openmenu, x) <> "-"
   if mx > xpos and mx < xpos + maxxsize : if my > ypos and my < ypos + 15 : ink 0,0 : box xpos, ypos, xpos+maxxsize, ypos+15 : ink rgb(53,132,230),0 : box xpos+1, ypos+1, xpos+maxxsize-1, ypos+14 : if mc = true : exitfunction x : endif : endif : endif : ink rgb(255,255,255),0 : text xpos+5, ypos, Item(openmenu, x) : else
   ink rgb(000,000,000),0 : line xpos+2, ypos+6, xpos+maxxsize-2, ypos+6 : ink rgb(255,255,255),0 : line xpos+2, ypos+7, xpos+maxxsize-2, ypos+7 : endif : inc ypos, 15 : next x
EndFunction 0

+ Code Snippet

` menu in 20 lines v2.
` started: 17:08 ended: 17:50
` ---------------------------------------






sync on : sync rate 60 : autocam off : Set Display Mode 640, 480, 16 : GLOBAL menuStartIMG AS INTEGER : menuStartIMG = 10000 : GLOBAL Latch : GLOBAL openmenu  : #CONSTANT true  0x000001 : #CONSTANT false 0x000000
GLOBAL MENUS : MENUS = 4 : DIM Item(4, 10) AS STRING : Item( 1, 10) = "File" : Item( 1, 0 ) = "6" : Item( 1, 1 ) = "New" : Item( 1, 2 ) = "Save" : Item( 1, 3 ) = "Open" : Item( 1, 4 ) = "-" : Item( 1, 5 ) = "hello hello!" : Item( 1, 6 ) = "Exit" : Item( 2, 10) = "Edit" : Item( 2, 0 ) = "2" : Item( 2, 1 ) = "Undo" : Item( 2, 2 ) = "Redo" : Item( 3, 10) = "Something" : Item( 3, 0 ) = "4" : Item( 3, 1 ) = "item1" : Item( 3, 2 ) = "really long item this one .^^" : Item( 3, 3 ) = "-" : Item( 3, 4 ) = "yea im cool" : Item( 4, 10) = "Help" : Item( 4, 0 ) = "4" : Item( 4, 1 ) = "lalalala" : Item( 4, 2 ) = "Hello!" : Item( 4, 3 ) = "-" : Item( 4, 4 ) = "About" : DO : CLS : handleMenuBar() : SYNC : LOOP
Function handleMenuBar()
	mc = mouseclick() : if mc = true and latch = false : latch = true : endif : if mc = false : latch = false : endif : xpos = 1 : for x = 1 to MENUS : xpos2 = xpos + len( Item(x, 10) )*10 : ink rgb(205, 215, 227),0 : box xpos, 1, xpos2, 16 : if mousex() > xpos and mousex() < xpos2 and mousey() > 1 and mousey() < 16  : ink rgb(53,132,230),0 : box xpos, 1, xpos2, 16 : if latch=1 : openmenu = x : endif : endif : inc xpos, ((len( Item(x, 10) )*10)+1) : next x : xpos = 1 : for x = 1 to MENUS : xpos2 = xpos + len( Item(x, 10) )*10 : if openmenu = x : ink rgb(144,188,243),0 : box xpos, 1, xpos2, 16 : action = getItems( xpos ) : endif : ink rgb(255,255,255),0 : text xpos, 1, Item(x, 10) : inc xpos, ((len( Item(x, 10) )*10)+1) : next x
EndFunction
Function getItems( xpos )
   ypos = 17 : maxxsize = 5 : mx = mousex() : my = mousey() : mc = mouseclick() : for x = 1 to val(Item(openmenu, 0)) : _maxxsize = len(Item(openmenu, x)) *10 : if _maxxsize > maxxsize : maxxsize = _maxxsize : endif : next x
   for x = 1 to val(Item(openmenu, 0)) : ink rgb(205, 215, 227),0 : box xpos, ypos, xpos + maxxsize, ypos+15 : if Item(openmenu, x) <> "-"
   if mx > xpos and mx < xpos + maxxsize : if my > ypos and my < ypos + 15 : ink 0,0 : box xpos, ypos, xpos+maxxsize, ypos+15 : ink rgb(53,132,230),0 : box xpos+1, ypos+1, xpos+maxxsize-1, ypos+14 : if mc = true : exitfunction x : endif : endif : endif : ink rgb(255,255,255),0 : text xpos+5, ypos, Item(openmenu, x) : else
   ink rgb(000,000,000),0 : line xpos+2, ypos+6, xpos+maxxsize-2, ypos+6 : ink rgb(255,255,255),0 : line xpos+2, ypos+7, xpos+maxxsize-2, ypos+7 : endif : inc ypos, 15 : next x
EndFunction 0

HorizShootiz - finished

Back to top

Profile PM Email

Hippie Dude

19

Years of Service

User Offline

Joined: 6th Feb 2005

Location: California, United States

Posted: 14th Mar 2006 01:45

Link

thats so good!!!

Mysteries Surround You

Back to top

Profile PM

Chilled Programmer 420

18

Years of Service

User Offline

Joined: 24th Nov 2005

Location: NOT SAYING!, i dont wanna get kidnapped!

Posted: 14th Mar 2006 14:30

Link

i just got a blank screen

[url=www.freewebs.com/tyhrfg][img]bruce.bmp[/img][/url]

Back to top

Profile PM Email

Lukas W

20

Years of Service

User Offline

Joined: 5th Sep 2003

Location: Sweden

Posted: 14th Mar 2006 14:39

Link

mwahahaha

HorizShootiz - finished

Back to top

Profile PM Email

Chilled Programmer 420

18

Years of Service

User Offline

Joined: 24th Nov 2005

Location: NOT SAYING!, i dont wanna get kidnapped!

Posted: 14th Mar 2006 14:44

Link

i sorted it:d, it involved spacing it out and indenting it though :S, class program though

[url=www.freewebs.com/tyhrfg][img]bruce.bmp[/img][/url]

Back to top

Profile PM Email

Benjamin

21

Years of Service

User Offline

Joined: 24th Nov 2002

Location: France

Posted: 15th Mar 2006 06:52

Link

Det er meget godt Lukas. Jeg kan lide det.

Tempest - P2P UDP Multiplayer Plugin - 70%
Download the free version

Back to top

Profile PM Email

Lukas W

20

Years of Service

User Offline

Joined: 5th Sep 2003

Location: Sweden

Posted: 15th Mar 2006 09:40

Link

Quote: "Jeg kan lide det."

you can suffer it?

HorizShootiz - finished

Back to top

Profile PM Email

Benjamin

21

Years of Service

User Offline

Joined: 24th Nov 2002

Location: France

Posted: 15th Mar 2006 09:54

Link

Just about.

Tempest - P2P UDP Multiplayer Plugin - 70%
Download the free version

Back to top

Profile PM Email

Lukas W

20

Years of Service

User Offline

Joined: 5th Sep 2003

Location: Sweden

Posted: 15th Mar 2006 10:21

Link

HorizShootiz - finished

Back to top

Profile PM Email

Sorry your browser is not supported!

The 20 Line Challenge / Menu System in 20 lines.