i need a menu! - GameCreators Forum

Author

Message

GZMGames Admin

19

Years of Service

User Offline

Joined: 15th Feb 2005

Location: vermont

Posted: 28th Mar 2005 09:03

Link

hello guys i need a menu but me being a newbie i have no idea what im doing so if someone could help me out here and give me one it doesnt have to be a cool nice looking one with 500 lines on it just a simple menu were i can add a background, and text on the menu buttons with ease. anyone who helps me out i thank you

Games made with passion

Back to top

Profile PM Email Website

Three Score

20

Years of Service

User Offline

Joined: 18th Jun 2004

Location: behind you

Posted: 28th Mar 2005 09:33

Link

heres a tip for future note
when u need help with code check the code snipplets board first
but i checked it for u so here
http://forum.thegamecreators.com/?m=forum_view&t=49106&b=6

X-Patch x-patch.exe(gui):75% make.exe:5% x-patch.dll(runtime dll):0% developed on win xp home sp2

Back to top

Profile PM Email Website

GZMGames Admin

19

Years of Service

User Offline

Joined: 15th Feb 2005

Location: vermont

Posted: 28th Mar 2005 09:39

Link

achtually i already checked the code snippets and found that same one and i can't seem to figure out how to add text to those buttons on that menu and thats what i need but thank you for your time anyway

Games made with passion

Back to top

Profile PM Email Website

Dsarchy

20

Years of Service

User Offline

Joined: 4th Oct 2003

Location: UK- Kent

Posted: 28th Mar 2005 18:51 Edited at: 28th Mar 2005 18:52

Link

its very basic and you will have to sort alot of it out yourself but it works, just look at it as the function being a command and you call it up when you want

+ Code Snippet

global xpos=0
global ypos=0

do

xpos=mousex()
ypos=mousey()

rollover(100,100,200,200,"test")

loop

function rollover(boxleft,boxtop,boxright,boxbottom,buttonname$)

box boxleft,boxtop,boxright,boxbottom,RGB(255,0,255),RGB(255,0,255),RGB(255,0,255),RGB(255,0,255)
text (boxright-boxleft),(boxbottom-boxtop),buttonname$
if xpos>boxleft and xpos<boxright and ypos>boxtop and ypos<boxbottom
cls
box boxleft,boxtop,boxright,boxbottom,rgb(200,29,45),rgb(200,29,45),rgb(100,22,75),rgb(200,23,125)
text (boxright-boxleft),(boxbottom-boxtop),buttonname$
if mouseclick()=1 then print "hello"
endif

endfunction

Back to top

Profile PM Website

Digital Dragon

19

Years of Service

User Offline

Joined: 17th Dec 2004

Location: ...

Posted: 28th Mar 2005 21:44

Link

lol my menu's look ok since they have no media! But it is complex code but the easiest way to add labels is just by changing the "whatever" to "start" or somethinfg like that. This is a simple menu I used for my Spanish Armada project for school.

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

menu:
cls
rem menu background
box 20,20,620,460,black,black,black,red
rem game title
center text 320,100,"Spanish Aramada --- The Board Game"
ink rgb(0,0,0),0
repeat
if mouseclick()=0 then MOUSEOLD=0
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=200) and (mousey() <=220))) then ink red,0 :text 100,200,"Start"
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 199) or (mousey() >= 219))) then ink rgb(255,255,255),0 :text 100,200,"Start"
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=200) and (mousey() <=220) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=230) and (mousey() <=250))) then ink red,0 :text 100,230,"Manual"
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 229) or (mousey() >= 249))) then ink rgb(255,255,255),0 :text 100,230,"Manual"
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=230) and (mousey() <=250) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=260) and (mousey() <=280))) then ink red,0 :text 100,260,"Credits"
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 259) or (mousey() >= 279))) then ink rgb(255,255,255),0 :text 100,260,"Credits"
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=260) and (mousey() <=280) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : 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) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end

until false

+ Code Snippet

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

menu:
cls
rem menu background
box 20,20,620,460,black,black,black,red
rem game title
center text 320,100,"Spanish Aramada --- The Board Game"
ink rgb(0,0,0),0
repeat
if mouseclick()=0 then MOUSEOLD=0
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=200) and (mousey() <=220))) then ink red,0 :text 100,200,"Start"
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 199) or (mousey() >= 219))) then ink rgb(255,255,255),0 :text 100,200,"Start"
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=200) and (mousey() <=220) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=230) and (mousey() <=250))) then ink red,0 :text 100,230,"Manual"
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 229) or (mousey() >= 249))) then ink rgb(255,255,255),0 :text 100,230,"Manual"
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=230) and (mousey() <=250) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=260) and (mousey() <=280))) then ink red,0 :text 100,260,"Credits"
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 259) or (mousey() >= 279))) then ink rgb(255,255,255),0 :text 100,260,"Credits"
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=260) and (mousey() <=280) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : 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) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end

until false

On this you will have to change the labels to something though

Back to top

Profile PM Email

GZMGames Admin

19

Years of Service

User Offline

Joined: 15th Feb 2005

Location: vermont

Posted: 29th Mar 2005 11:12

Link

that works pretty good thank you but how do i make it goto where i want it to example: someone clicks start, doesnt work they get p*ssed, destroy computer, buys new one, plays game again, repeat.
would i put a

goto where ever:
well thanks for the menu anyway looks good!

Games made with passion

Back to top

Profile PM Email Website

GZMGames Admin

19

Years of Service

User Offline

Joined: 15th Feb 2005

Location: vermont

Posted: 29th Mar 2005 11:42

Link

i figured out how

thanks

Games made with passion

Back to top

Profile PM Email Website

GZMGames Admin

19

Years of Service

User Offline

Joined: 15th Feb 2005

Location: vermont

Posted: 29th Mar 2005 11:52

Link

another prblem actually, i made one of the buttons got my credits but is stay on the same page in other words when someone clicks on credits it will stay at the main menu just the credits will be there and it will be un readable

Games made with passion

Back to top

Profile PM Email Website

BF game programmer

19

Years of Service

User Offline

Joined: 22nd Jan 2005

Location: hoover alabama

Posted: 29th Mar 2005 13:54

Link

try cls but i if it a 3d menu just hide the objects and / or delete them and turn the backdrop off.! hope that helps

james bond rules

Back to top

Profile PM Email

fasdfsdaf

19

Years of Service

User Offline

Joined: 17th Jan 2005

Location:

Posted: 29th Mar 2005 15:54

Link

just replace the "end" with a "goTo Blahblah_Land"

And remember to use a cls when you go somewhere else.

Oh, don't listen to other people saying "goTo's suck your mom!" In this case, goTo's are the only think you'll want.

www.war3forums.net

A.K.A Death Stalker

Back to top

Profile PM

Digital Dragon

19

Years of Service

User Offline

Joined: 17th Dec 2004

Location: ...

Posted: 29th Mar 2005 18:17

Link

You can also chage that breally cool background effect by just doing this.

green as DWORD
blue as DWORD
white as DWORD
black as DWORD

green=rgb(0,255,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

menu:
cls
rem menu background
box 20,20,620,460,black,black,black,green
rem game title
center text 320,100,"Spanish Aramada --- The Board Game"
ink rgb(0,0,0),0
repeat
if mouseclick()=0 then MOUSEOLD=0
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=200) and (mousey() <=220))) then ink red,0 :text 100,200,"Start"
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 199) or (mousey() >= 219))) then ink rgb(255,255,255),0 :text 100,200,"Start"
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=200) and (mousey() <=220) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=230) and (mousey() <=250))) then ink red,0 :text 100,230,"Manual"
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 229) or (mousey() >= 249))) then ink rgb(255,255,255),0 :text 100,230,"Manual"
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=230) and (mousey() <=250) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=260) and (mousey() <=280))) then ink red,0 :text 100,260,"Credits"
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 259) or (mousey() >= 279))) then ink rgb(255,255,255),0 :text 100,260,"Credits"
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=260) and (mousey() <=280) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : 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) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end

until false

+ Code Snippet

green as DWORD
blue as DWORD
white as DWORD
black as DWORD

green=rgb(0,255,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

menu:
cls
rem menu background
box 20,20,620,460,black,black,black,green
rem game title
center text 320,100,"Spanish Aramada --- The Board Game"
ink rgb(0,0,0),0
repeat
if mouseclick()=0 then MOUSEOLD=0
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=200) and (mousey() <=220))) then ink red,0 :text 100,200,"Start"
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 199) or (mousey() >= 219))) then ink rgb(255,255,255),0 :text 100,200,"Start"
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=200) and (mousey() <=220) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=230) and (mousey() <=250))) then ink red,0 :text 100,230,"Manual"
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 229) or (mousey() >= 249))) then ink rgb(255,255,255),0 :text 100,230,"Manual"
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=230) and (mousey() <=250) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=260) and (mousey() <=280))) then ink red,0 :text 100,260,"Credits"
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 259) or (mousey() >= 279))) then ink rgb(255,255,255),0 :text 100,260,"Credits"
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=260) and (mousey() <=280) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : 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) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end

until false

That makes it black and green

Back to top

Profile PM Email

GZMGames Admin

19

Years of Service

User Offline

Joined: 15th Feb 2005

Location: vermont

Posted: 30th Mar 2005 06:15

Link

thanks i figured a nother way but it will cost me some lines and i tryed the cls that will erase the links to the game example

when someone loads the game they see the background an they won't see any of the buttons becuase the cls is there but i figured out something when they click on a button ill have

print ""
sleep 100
cls

at the cls will erase the screen then goto the game but that costs me a few lines but o well

Games made with passion

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / i need a menu!