menu screen? This is hard...lol - GameCreators Forum

Author

Message

o0o0The Code Keeper0o0o

21

Years of Service

User Offline

Joined: 3rd Mar 2003

Location:

Posted: 4th Mar 2003 01:00

Link

Hello,
My name is Nathan Hall, lol, now that we've gotten that out of the way, i am making a game and i have the character walking around with the upkey command (along with the left, right, and down keys) well i want it to be if you press the shift key a menu pops up... (this is a 3d game if that makes any difference) and after that the upkey, downkey, leftkey, and rightkey commands work with the menu instead of the 3d object, thank you for the help all of you, these forums are the most helpful forums that i've ever been to, well, thanks for the help, i hope my questions can be answered like they have any other time...thank you all!

P.S. please be sure to fill me in on how to make the menu screen pop up (as well as the controls changing) THANK YOU!!

Back to top

Profile PM

xmen

21

Years of Service

User Offline

Joined: 27th Jan 2003

Location:

Posted: 4th Mar 2003 02:22

Link

Try this out hope it helps

sync on
dim menuclick(1)
dim menu$(10)

menu$(1)="LOAD"
menu$(2)="SAVE"
menu$(3)="FIRE"
menu$(4)="JUMP"

menu$(5)="RUN"
menu$(10)="XMEN"

MAKE OBJECT CUBE 1,10

do
INK RGB(255,255,255),1
TEXT 10,2,"....RIGHT CLICK FOR MENU...  "

TEXT 10,20,"....YOU CLICK MENU...  "+STR$(menuclick(1))+"..  "+menu$(menuclick(1))

IF MOUSECLICK()=2 THEN menu(320,10,10) :SLEEP 20

YROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE Y(1)+2)

sync
loop

`..X=LEFT/RIGHT  POS  Y=UP/DOWN  POS.......L=NUMBER OF MENU LENGHT...............
`..menuclick(1) RETURN MENU VALUE...............

function menu(x,y,l)

set text font "times new roman"
set text size 15
dim menux(l)
dim menuy(l)
dim mwidth(l)
dim mheight(l)
dim ops$(l)
dim menuops(l)
ex=0

for a=1 to l
ops$(a)=menu$(a)
next a
tw2=0:tw3=0:tw=0

for a=1 to l
for b=1 to 2
tw2=text width(ops$(a))
if  tw2>tw3 then tw3=tw2
next a
next b

tw=tw3
mposy=y+16
for pos=1 to l
menux(pos)=x
menuy(pos)=y+pos*16
mwidth(pos)=x+tw+5
mheight(pos)=16+y+pos*16
menuops(pos)=pos

Next pos

oxm=mousex()
oym=mousey()

repeat

xm=mousex()
ym=mousey()

for pos=1 to l

ink rgb(210,210,160),1

if image exist(1000+pos) then box x,y+pos*16,x+tw+5+50,18+y+pos*16
box x,y+pos*16,x+tw+5,18+y+pos*16
ink rgb(165,165,125),1

box x+1,y+1+pos*16,x+tw+4,17+y+pos*16

ink rgb(10,10,10),1
text x+3,y+pos*16,ops$(pos)

if mousex()>menux(pos) and mousex()<mwidth(pos) and mousey()>menuy(pos) and mousey()<mheight(pos)

ink rgb(190,190,140),1
box x+2,y+2+pos*16,x+tw+3,16+y+pos*16
ink rgb(255,255,255),0
text x+3,y+pos*16,ops$(pos)

endif

if mouseclick()=1 and mousex()<>oxm and mousey()<mposy
menuclick(1)=0
backdrop on
ex=1
endif

if mouseclick()=1 and mousex()>menux(pos) and mousex()<mwidth(pos) and mousey()>menuy(pos)  and mousey()<mheight(pos) 
ink rgb(190,190,140),1

box x+2,y+2+pos*16,x+tw+3,16+y+pos*16

ink rgb(250,250,250),1
text x+3,y+pos*16,ops$(pos)
menuclick(1)=menuops(pos)
ex=1
endif

if mouseclick()=1 and mousey()>mheight(pos) 
menuclick(1)=0
ex=1
endif

next pos

sync
until ex=1
`clik=0
`backdrop on
`undim menu$(l)
undim menux(l)
undim menuy(l)
undim mwidth(l)
undim mheight(l)
undim ops$(20)
undim menuops(l)

endfunction menuclick(1)

+ Code Snippet

sync on
dim menuclick(1)
dim menu$(10)

menu$(1)="LOAD"
menu$(2)="SAVE"
menu$(3)="FIRE"
menu$(4)="JUMP"

menu$(5)="RUN"
menu$(10)="XMEN"


MAKE OBJECT CUBE 1,10

do
INK RGB(255,255,255),1
TEXT 10,2,"....RIGHT CLICK FOR MENU...  "

TEXT 10,20,"....YOU CLICK MENU...  "+STR$(menuclick(1))+"..  "+menu$(menuclick(1))

IF MOUSECLICK()=2 THEN menu(320,10,10) :SLEEP 20

YROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE Y(1)+2)

sync
loop

`..X=LEFT/RIGHT  POS  Y=UP/DOWN  POS.......L=NUMBER OF MENU LENGHT...............
`..menuclick(1) RETURN MENU VALUE...............


function menu(x,y,l)

set text font "times new roman"
set text size 15
dim menux(l)
dim menuy(l)
dim mwidth(l)
dim mheight(l)
dim ops$(l)
dim menuops(l)
ex=0

for a=1 to l
ops$(a)=menu$(a)
next a
tw2=0:tw3=0:tw=0

for a=1 to l
for b=1 to 2
tw2=text width(ops$(a))
if  tw2>tw3 then tw3=tw2
next a
next b

tw=tw3
mposy=y+16
for pos=1 to l
menux(pos)=x
menuy(pos)=y+pos*16
mwidth(pos)=x+tw+5
mheight(pos)=16+y+pos*16
menuops(pos)=pos

Next pos

oxm=mousex()
oym=mousey()



repeat

xm=mousex()
ym=mousey()

for pos=1 to l

ink rgb(210,210,160),1

if image exist(1000+pos) then box x,y+pos*16,x+tw+5+50,18+y+pos*16
box x,y+pos*16,x+tw+5,18+y+pos*16
ink rgb(165,165,125),1


box x+1,y+1+pos*16,x+tw+4,17+y+pos*16

ink rgb(10,10,10),1
text x+3,y+pos*16,ops$(pos)


if mousex()>menux(pos) and mousex()<mwidth(pos) and mousey()>menuy(pos) and mousey()<mheight(pos)

ink rgb(190,190,140),1
box x+2,y+2+pos*16,x+tw+3,16+y+pos*16
ink rgb(255,255,255),0
text x+3,y+pos*16,ops$(pos)

endif

if mouseclick()=1 and mousex()<>oxm and mousey()<mposy
menuclick(1)=0
backdrop on
ex=1
endif

if mouseclick()=1 and mousex()>menux(pos) and mousex()<mwidth(pos) and mousey()>menuy(pos)  and mousey()<mheight(pos) 
ink rgb(190,190,140),1

box x+2,y+2+pos*16,x+tw+3,16+y+pos*16

ink rgb(250,250,250),1
text x+3,y+pos*16,ops$(pos)
menuclick(1)=menuops(pos)
ex=1
endif

if mouseclick()=1 and mousey()>mheight(pos) 
menuclick(1)=0
ex=1
endif


next pos


sync
until ex=1
`clik=0
`backdrop on
`undim menu$(l)
undim menux(l)
undim menuy(l)
undim mwidth(l)
undim mheight(l)
undim ops$(20)
undim menuops(l)

endfunction menuclick(1)

Back to top

Profile PM

o0o0The Code Keeper0o0o

21

Years of Service

User Offline

Joined: 3rd Mar 2003

Location:

Posted: 4th Mar 2003 02:41

Link

Hello,
the code didnt work, and do you think you could segment it up so i could know what each of the parts does sorry, i'm jess a newbie :S thanks for the help

bye bye!

Back to top

Profile PM

Jadelion

21

Years of Service

User Offline

Joined: 14th Jan 2003

Location:

Posted: 4th Mar 2003 04:15

Link

ok, here is what I would do
first make a bitmap that is your menue (with paint or whatever)(also make a cursor image to move over the menue,or multiple images of the menue for wherever the cursor is))
then "load bitmap" and use "get image" then "delete bitmap"
then use "sprite" and then clear the screen "cls"
at that point load the game part you have setup, hide the sprite "hide sprite" (you'll need to put "draw to front" near the top of your program so 2d sprites are drawn over 3d objects) from there your main loop will need to be modified like so
"if shiftkey(mabey use the scancode) =1 then menue =1
while menu = 1
show sprite 1(menue)
show sprite 2(cursor)
(add if for cuusor movment)
if shiftkey (again I think you will need the scancode)=1 then menue =0
endwhile

...that move was indeed...Bold.

Back to top

Profile PM Email

xmen

21

Years of Service

User Offline

Joined: 27th Jan 2003

Location:

Posted: 4th Mar 2003 19:33

Link

I try it and it work fine try this just copy and paste

sync on

dim menuclick(1)
dim menu$(10)

menu$(1)="LOAD"
menu$(2)="SAVE"
menu$(3)="FIRE"
menu$(4)="JUMP"
menu$(5)="RUN"
menu$(10)="XMEN"
MAKE OBJECT CUBE 1,10

do

INK RGB(255,255,255),1

TEXT 10,2,"....RIGHT CLICK FOR MENU...  "

TEXT 10,20,"....YOU CLICK MENU...  "+STR$(menuclick(1))+"..  "+menu$(menuclick(1))

IF MOUSECLICK()=2 THEN menu(320,10,10) :SLEEP 20

YROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE Y(1)+2)

sync
loop

`..X=LEFT/RIGHT  POS  Y=UP/DOWN  POS.......L=NUMBER OF MENU LENGHT...............
`..menuclick(1) RETURN MENU VALUE...............

function menu(x,y,l)

set text font "times new roman"
set text size 15
dim menux(l)
dim menuy(l)
dim mwidth(l)
dim mheight(l)
dim ops$(l)
dim menuops(l)
ex=0

for a=1 to l
ops$(a)=menu$(a)
next a

tw2=0:tw3=0:tw=0
for a=1 to l
for b=1 to 2
tw2=text width(ops$(a))
if  tw2>tw3 then tw3=tw2
next a
next b

tw=tw3
mposy=y+16

for pos=1 to l
menux(pos)=x
menuy(pos)=y+pos*16
mwidth(pos)=x+tw+5
mheight(pos)=16+y+pos*16
menuops(pos)=pos

Next pos

oxm=mousex()
oym=mousey()

repeat

xm=mousex()
ym=mousey()

for pos=1 to l

ink rgb(210,210,160),1

if image exist(1000+pos) then box x,y+pos*16,x+tw+5+50,18+y+pos*16

box x,y+pos*16,x+tw+5,18+y+pos*16
ink rgb(165,165,125),1
box x+1,y+1+pos*16,x+tw+4,17+y+pos*16
ink rgb(10,10,10),1
text x+3,y+pos*16,ops$(pos)

if mousex()>menux(pos) and mousex()<mwidth(pos) and mousey()>menuy(pos) and mousey()<mheight(pos)
ink rgb(190,190,140),1
box x+2,y+2+pos*16,x+tw+3,16+y+pos*16
ink rgb(255,255,255),0
text x+3,y+pos*16,ops$(pos)
endif

if mouseclick()=1 and mousex()<>oxm and mousey()<mposy
menuclick(1)=0
backdrop on
ex=1
endif

if mouseclick()=1 and mousex()>menux(pos) and mousex()<mwidth(pos) and mousey()>menuy(pos)  and mousey()<mheight(pos) 
ink rgb(190,190,140),1
box x+2,y+2+pos*16,x+tw+3,16+y+pos*16
ink rgb(250,250,250),1
text x+3,y+pos*16,ops$(pos)
menuclick(1)=menuops(pos)
ex=1
endif

if mouseclick()=1 and mousey()>mheight(pos) 
menuclick(1)=0
ex=1
endif

next pos

sync
until ex=1

undim menux(l)
undim menuy(l)
undim mwidth(l)
undim mheight(l)
undim ops$(20)
undim menuops(l)

endfunction menuclick(1)

+ Code Snippet

sync on

dim menuclick(1)
dim menu$(10)

menu$(1)="LOAD"
menu$(2)="SAVE"
menu$(3)="FIRE"
menu$(4)="JUMP"
menu$(5)="RUN"
menu$(10)="XMEN"
MAKE OBJECT CUBE 1,10


do

INK RGB(255,255,255),1

TEXT 10,2,"....RIGHT CLICK FOR MENU...  "

TEXT 10,20,"....YOU CLICK MENU...  "+STR$(menuclick(1))+"..  "+menu$(menuclick(1))

IF MOUSECLICK()=2 THEN menu(320,10,10) :SLEEP 20

YROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE Y(1)+2)

sync
loop



`..X=LEFT/RIGHT  POS  Y=UP/DOWN  POS.......L=NUMBER OF MENU LENGHT...............
`..menuclick(1) RETURN MENU VALUE...............



function menu(x,y,l)

set text font "times new roman"
set text size 15
dim menux(l)
dim menuy(l)
dim mwidth(l)
dim mheight(l)
dim ops$(l)
dim menuops(l)
ex=0

for a=1 to l
ops$(a)=menu$(a)
next a

tw2=0:tw3=0:tw=0
for a=1 to l
for b=1 to 2
tw2=text width(ops$(a))
if  tw2>tw3 then tw3=tw2
next a
next b


tw=tw3
mposy=y+16


for pos=1 to l
menux(pos)=x
menuy(pos)=y+pos*16
mwidth(pos)=x+tw+5
mheight(pos)=16+y+pos*16
menuops(pos)=pos

Next pos


oxm=mousex()
oym=mousey()



repeat

xm=mousex()
ym=mousey()

for pos=1 to l

ink rgb(210,210,160),1

if image exist(1000+pos) then box x,y+pos*16,x+tw+5+50,18+y+pos*16

box x,y+pos*16,x+tw+5,18+y+pos*16
ink rgb(165,165,125),1
box x+1,y+1+pos*16,x+tw+4,17+y+pos*16
ink rgb(10,10,10),1
text x+3,y+pos*16,ops$(pos)


if mousex()>menux(pos) and mousex()<mwidth(pos) and mousey()>menuy(pos) and mousey()<mheight(pos)
ink rgb(190,190,140),1
box x+2,y+2+pos*16,x+tw+3,16+y+pos*16
ink rgb(255,255,255),0
text x+3,y+pos*16,ops$(pos)
endif

if mouseclick()=1 and mousex()<>oxm and mousey()<mposy
menuclick(1)=0
backdrop on
ex=1
endif

if mouseclick()=1 and mousex()>menux(pos) and mousex()<mwidth(pos) and mousey()>menuy(pos)  and mousey()<mheight(pos) 
ink rgb(190,190,140),1
box x+2,y+2+pos*16,x+tw+3,16+y+pos*16
ink rgb(250,250,250),1
text x+3,y+pos*16,ops$(pos)
menuclick(1)=menuops(pos)
ex=1
endif


if mouseclick()=1 and mousey()>mheight(pos) 
menuclick(1)=0
ex=1
endif


next pos


sync
until ex=1



undim menux(l)
undim menuy(l)
undim mwidth(l)
undim mheight(l)
undim ops$(20)
undim menuops(l)

endfunction menuclick(1)

Back to top

Profile PM

Zach

21

Years of Service

User Offline

Joined: 23rd Feb 2003

Location: Ms, USA

Posted: 5th Mar 2003 01:10

Link

Just E-mail me for a menu i've made ... I've already sent it to other people ... znatm1@cs.com

Tupelo, Ms

Back to top

Profile PM Email

CarlTaylor

21

Years of Service

User Offline

Joined: 13th Jan 2003

Location: United States

Posted: 5th Mar 2003 07:34

Link

no no no guys... he has to figure it out himself, otherwise he wont learn how to do it next time. ill give you a starting point though, nathan hall.

make your main engine (walking around, etc/) a subroutine. this is dont like this i believe, if maingame is the name of your main engine code and menu is the name of your menu code...

Main:
{type your engine code here}
if shiftkey()=1 then goto menu
endif
goto main

Menu:
{Menu code}
if shiftkey()=1 then goto main
endif
goto menu

baseball = life

Back to top

Profile PM Website

CarlTaylor

21

Years of Service

User Offline

Joined: 13th Jan 2003

Location: United States

Posted: 5th Mar 2003 07:35

Link

wow major typo, i meant "make your main engine (walking around, etc.) a subroutine. it is done like this i believe:"

my bad, im really sleepy tonight *yawn*

baseball = life

Back to top

Profile PM Website

John H

Retired Moderator

21

Years of Service

User Offline

Joined: 14th Oct 2002

Location: Burlington, VT

Posted: 5th Mar 2003 14:08

Link

Yea but I would suggest using Diff keys for each one

And make sure there is a DO LOOP statement in each one.

RPGamer

Current - RPG: Eternal Destiny
http://www.halbrosproductions.netfirms.com
Dont ask those questions! Read the help files lazy! Oh ya, and Tat has a plugin for that!

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / menu screen? This is hard...lol