Need some help with my menu - GameCreators Forum

Author

Message

May0naise

17

Years of Service

User Offline

Joined: 16th Nov 2008

Location: Lost in Time

Posted: 31st Dec 2008 08:32

Link

Well im trying to make a pong game...im pretty new, and this is what i have so far, I'm still having trouble with LoadImage ...and those commands.

Rem Help From TDK_Man's Tutorial On Menu Screens

Set Display Mode 800,600,32
Sync On: Sync Rate 60

GLOBAL CurDir$
GLOBAL Mx=MouseX()
GLOBAL My=MouseY()
GLOBAL Mc=MouseClick()

LoadMedia()
FUNCTION LoadMedia()
SET DIR CurDir$+"C:\Pong REMIX\Media\"
LOAD IMAGE "\Media\MainMenu.jpg",1
LOAD IMAGE "\Media\StartButton.jpg",2
LOAD IMAGE "\Media\StartButton2.jpg",3
LOAD IMAGE "\Media\Hi-ScoreButton.jpg",4
LOAD IMAGE "\Media\Hi-ScoreButton2.jpg",5
LOAD IMAGE "\Media\ExitButton.jpg",6
LOAD IMAGE "\Media\ExitButton2.jpg",7
ENDFUNCTION

Paste Image 1,0,0
Paste Image 2,245,186
Paste Image 4,245,338
Paste Image 6,245,490

Rem Main Menu (Highlighted Buttons)
Do
Highlight:
  Rem Start Button
  If Mx > 245 and My > 186 And Mx < 566 And My < 242
    PASTE IMAGE 3,245,186
   ELSE
    PASTE IMAGE 2,245,186
  Endif
  Rem Hi-Score Button
  If Mx > 245 and My > 338 And Mx < 566 And My < 394
    PASTE IMAGE 5,245,338
   ELSE
    PASTE IMAGE 4,245,338
  Endif
  Rem Exit Button
  If Mx > 245 and My > 490 And Mx < 566 And My < 546
    PASTE IMAGE 7,245,490
   ELSE
    PASTE IMAGE 6,245,490
 Endif
If Mc=1 Then Gosub CheckRegion Rem Adding this later
Sync
Loop

+ Code Snippet

Rem Help From TDK_Man's Tutorial On Menu Screens

Set Display Mode 800,600,32
Sync On: Sync Rate 60

GLOBAL CurDir$
GLOBAL Mx=MouseX()
GLOBAL My=MouseY()
GLOBAL Mc=MouseClick()

LoadMedia()
FUNCTION LoadMedia()
SET DIR CurDir$+"C:\Pong REMIX\Media\"
LOAD IMAGE "\Media\MainMenu.jpg",1
LOAD IMAGE "\Media\StartButton.jpg",2
LOAD IMAGE "\Media\StartButton2.jpg",3
LOAD IMAGE "\Media\Hi-ScoreButton.jpg",4
LOAD IMAGE "\Media\Hi-ScoreButton2.jpg",5
LOAD IMAGE "\Media\ExitButton.jpg",6
LOAD IMAGE "\Media\ExitButton2.jpg",7
ENDFUNCTION

Paste Image 1,0,0
Paste Image 2,245,186
Paste Image 4,245,338
Paste Image 6,245,490

Rem Main Menu (Highlighted Buttons)
Do
Highlight:
  Rem Start Button
  If Mx > 245 and My > 186 And Mx < 566 And My < 242
    PASTE IMAGE 3,245,186
   ELSE
    PASTE IMAGE 2,245,186
  Endif
  Rem Hi-Score Button
  If Mx > 245 and My > 338 And Mx < 566 And My < 394
    PASTE IMAGE 5,245,338
   ELSE
    PASTE IMAGE 4,245,338
  Endif
  Rem Exit Button
  If Mx > 245 and My > 490 And Mx < 566 And My < 546
    PASTE IMAGE 7,245,490
   ELSE
    PASTE IMAGE 6,245,490
 Endif
If Mc=1 Then Gosub CheckRegion Rem Adding this later
Sync
Loop

I want to make it so when you hover over the buttons it changes the picture to another one, like its highlighted.
All help appreciated.

Be patient....everything takes time.

Back to top

Profile PM

Not_Maindric

19

Years of Service

User Offline

Joined: 10th Jul 2007

Location: Omaha, NE

Posted: 31st Dec 2008 09:11

Link

http://forum.thegamecreators.com/?m=forum_view&t=106004&b=10&p=0

This tutorial has a few methods..

* The band, visit them at Dopearmy.com (Warning, foul language.)

Back to top

Profile PM Email

May0naise

17

Years of Service

User Offline

Joined: 16th Nov 2008

Location: Lost in Time

Posted: 31st Dec 2008 14:57 Edited at: 31st Dec 2008 15:14

Link

Thanks, it's exactly what I was using before, but i guess i never fully loaded the page. =D

Well....I loaded the files, but now my menu buttons arn't working at all. To me, the code looks like it should work in theory..am i doing something completely wrong? I know the tutorial shows you a way, but i dont really get their way. Heres my updated code:

Rem From TDK_Man's Tutorial On Menu Screens

Set Display Mode 800,600,32
Sync On: Sync Rate 60

GLOBAL CurDir$
GLOBAL Mx=MouseX()
GLOBAL My=MouseY()
GLOBAL Mc=MouseClick()

SET DIR CurDir$+"C:\Pong REMIX\Media\"
LOAD IMAGE "MainMenu.jpg",1
LOAD IMAGE "StartButton.jpg",2
LOAD IMAGE "StartButton2.jpg",3
LOAD IMAGE "Hi-ScoreButton.jpg",4
LOAD IMAGE "Hi-ScoreButton2.jpg",5
LOAD IMAGE "ExitButton.jpg",6
LOAD IMAGE "ExitButton2.jpg",7

Paste Image 1,0,0
Paste Image 2,245,186
Paste Image 4,245,338
Paste Image 6,245,490

Rem Main Menu (Highlighted Buttons)
Do
Highlight:
  Rem Start Button
  If Mx > 245 and My > 186 And Mx < 566 And My < 242
    PASTE IMAGE 3,245,186
   ELSE
    PASTE IMAGE 2,245,186
  Endif
  Rem Hi-Score Button
  If Mx > 245 and My > 338 And Mx < 566 And My < 394
    PASTE IMAGE 5,245,338
   ELSE
    PASTE IMAGE 4,245,338
  Endif
  Rem Exit Button
  If Mx > 245 and My > 490 And Mx < 566 And My < 546
    PASTE IMAGE 7,245,490
    If Mc=1 then end
   ELSE
    PASTE IMAGE 6,245,490
 Endif
Sync
Loop

+ Code Snippet

Rem From TDK_Man's Tutorial On Menu Screens

Set Display Mode 800,600,32
Sync On: Sync Rate 60

GLOBAL CurDir$
GLOBAL Mx=MouseX()
GLOBAL My=MouseY()
GLOBAL Mc=MouseClick()

SET DIR CurDir$+"C:\Pong REMIX\Media\"
LOAD IMAGE "MainMenu.jpg",1
LOAD IMAGE "StartButton.jpg",2
LOAD IMAGE "StartButton2.jpg",3
LOAD IMAGE "Hi-ScoreButton.jpg",4
LOAD IMAGE "Hi-ScoreButton2.jpg",5
LOAD IMAGE "ExitButton.jpg",6
LOAD IMAGE "ExitButton2.jpg",7

Paste Image 1,0,0
Paste Image 2,245,186
Paste Image 4,245,338
Paste Image 6,245,490

Rem Main Menu (Highlighted Buttons)
Do
Highlight:
  Rem Start Button
  If Mx > 245 and My > 186 And Mx < 566 And My < 242
    PASTE IMAGE 3,245,186
   ELSE
    PASTE IMAGE 2,245,186
  Endif
  Rem Hi-Score Button
  If Mx > 245 and My > 338 And Mx < 566 And My < 394
    PASTE IMAGE 5,245,338
   ELSE
    PASTE IMAGE 4,245,338
  Endif
  Rem Exit Button
  If Mx > 245 and My > 490 And Mx < 566 And My < 546
    PASTE IMAGE 7,245,490
    If Mc=1 then end
   ELSE
    PASTE IMAGE 6,245,490
 Endif
Sync
Loop

My media should be in the 1st post

Be patient....everything takes time.

Back to top

Profile PM

Kendor

23

Years of Service

User Offline

Joined: 31st Jan 2003

Location: Malta

Posted: 31st Dec 2008 16:54 Edited at: 31st Dec 2008 16:55

Link

You have to check for the mouse position/clicks on each loop, not only at the beginning of the program.

Rem From TDK_Man's Tutorial On Menu Screens

Set Display Mode 800,600,32
Sync On: Sync Rate 60

GLOBAL CurDir$
GLOBAL Mx=MouseX()
GLOBAL My=MouseY()
GLOBAL Mc=MouseClick()

SET DIR CurDir$+"C:\Pong REMIX\Media\"
LOAD IMAGE "MainMenu.jpg",1
LOAD IMAGE "StartButton.jpg",2
LOAD IMAGE "StartButton2.jpg",3
LOAD IMAGE "Hi-ScoreButton.jpg",4
LOAD IMAGE "Hi-ScoreButton2.jpg",5
LOAD IMAGE "ExitButton.jpg",6
LOAD IMAGE "ExitButton2.jpg",7

Paste Image 1,0,0
Paste Image 2,245,186
Paste Image 4,245,338
Paste Image 6,245,490

Rem Main Menu (Highlighted Buttons)
Do
`check mouse position/click on each loop
Mx=MouseX()
My=MouseY()
Mc=MouseClick()

Highlight:
  Rem Start Button
  If Mx > 245 and My > 186 And Mx < 566 And My < 242
    PASTE IMAGE 3,245,186
   ELSE
    PASTE IMAGE 2,245,186
  Endif
  Rem Hi-Score Button
  If Mx > 245 and My > 338 And Mx < 566 And My < 394
    PASTE IMAGE 5,245,338
   ELSE
    PASTE IMAGE 4,245,338
  Endif
  Rem Exit Button
  If Mx > 245 and My > 490 And Mx < 566 And My < 546
    PASTE IMAGE 7,245,490
    If Mc=1 then end
   ELSE
    PASTE IMAGE 6,245,490
 Endif
Sync
Loop

+ Code Snippet

Rem From TDK_Man's Tutorial On Menu Screens

Set Display Mode 800,600,32
Sync On: Sync Rate 60

GLOBAL CurDir$
GLOBAL Mx=MouseX()
GLOBAL My=MouseY()
GLOBAL Mc=MouseClick()

SET DIR CurDir$+"C:\Pong REMIX\Media\"
LOAD IMAGE "MainMenu.jpg",1
LOAD IMAGE "StartButton.jpg",2
LOAD IMAGE "StartButton2.jpg",3
LOAD IMAGE "Hi-ScoreButton.jpg",4
LOAD IMAGE "Hi-ScoreButton2.jpg",5
LOAD IMAGE "ExitButton.jpg",6
LOAD IMAGE "ExitButton2.jpg",7

Paste Image 1,0,0
Paste Image 2,245,186
Paste Image 4,245,338
Paste Image 6,245,490

Rem Main Menu (Highlighted Buttons)
Do
`check mouse position/click on each loop
Mx=MouseX()
My=MouseY()
Mc=MouseClick()


Highlight:
  Rem Start Button
  If Mx > 245 and My > 186 And Mx < 566 And My < 242
    PASTE IMAGE 3,245,186
   ELSE
    PASTE IMAGE 2,245,186
  Endif
  Rem Hi-Score Button
  If Mx > 245 and My > 338 And Mx < 566 And My < 394
    PASTE IMAGE 5,245,338
   ELSE
    PASTE IMAGE 4,245,338
  Endif
  Rem Exit Button
  If Mx > 245 and My > 490 And Mx < 566 And My < 546
    PASTE IMAGE 7,245,490
    If Mc=1 then end
   ELSE
    PASTE IMAGE 6,245,490
 Endif
Sync
Loop

Back to top

Profile PM Email Website

May0naise

17

Years of Service

User Offline

Joined: 16th Nov 2008

Location: Lost in Time

Posted: 31st Dec 2008 17:28

Link

omg....i feel kind of dumb not seeing that =\

But thanks alot it works just like i thought it would

Be patient....everything takes time.

Back to top

Profile PM

May0naise

17

Years of Service

User Offline

Joined: 16th Nov 2008

Location: Lost in Time

Posted: 31st Dec 2008 18:33 Edited at: 31st Dec 2008 18:34

Link

I hit another wall

...Im starting to make the main game now. Well here is my plan. Basically its pong, but the camera will be spinning around the game , gradually getting different patterns and such(levels). Right now i've made the camera, but i cant figure out how to raise it up above the table im playing on and make it look down (ex seats in the upper levels of a stadium)

heres the code for the game so far:

+ Code Snippet

MainGame:
cls
Make Camera 1
	position camera 1,0,0,100
	point camera 0,0,0
sync on
sync rate 60
Paste image 8,0,0
make object box 1,1,1,3
	color object 1, rgb (255,255,250)
	position object 1, 21,245,0
make object box 2,1,1,3
	color object 2, rgb (255,255,255)
rem make ball
make object sphere 3,1
   color object 3, rgb (255,255,255)
rem make floor
make object box 4,20,0.1,20
	position object 4,0,-0.55,0
	color object 4, rgb (250,250,250)

Thanks in Advance

P.S. Sorry for double post

Be patient....everything takes time.

Back to top

Profile PM

Kendor

23

Years of Service

User Offline

Joined: 31st Jan 2003

Location: Malta

Posted: 2nd Jan 2009 19:35

Link

You don't need to create a new camera, just use the default one ( camera 0).

So this:

+ Code Snippet

 
Make Camera 1
	position camera 1,0,0,100
	point camera 0,0,0

becomes like this

+ Code Snippet

 
	position camera 0,0,0,100
	point camera 0,0,0,0

Back to top

Profile PM Email Website

May0naise

17

Years of Service

User Offline

Joined: 16th Nov 2008

Location: Lost in Time

Posted: 3rd Jan 2009 01:08 Edited at: 3rd Jan 2009 01:53

Link

Well thanks, but that wasn't what i was asking.

I mean maybe a picture would be better..

Edit: Just to make sure you see them, there are words at the bottom of the picture.

Be patient....everything takes time.

Back to top

Profile PM

Kendor

23

Years of Service

User Offline

Joined: 31st Jan 2003

Location: Malta

Posted: 3rd Jan 2009 11:16

Link

Now you just have to increase the altitude/height of the camera (y component). I've also included the autocam off command, to prevent the camera from moving when you create new objects.

Final code:

+ Code Snippet

MainGame:
cls

    autocam off
	position camera 0,0,100,100
	point camera 0,0,0	
	
sync on
sync rate 60
Paste image 8,0,0
make object box 1,1,1,3
	color object 1, rgb (255,255,250)
	position object 1, 21,245,0
make object box 2,1,1,3
	color object 2, rgb (255,255,255)
rem make ball
make object sphere 3,1
   color object 3, rgb (255,255,255)
rem make floor
make object box 4,20,0.1,20
	position object 4,0,-0.55,0
	color object 4, rgb (250,250,250)

Back to top

Profile PM Email Website

May0naise

17

Years of Service

User Offline

Joined: 16th Nov 2008

Location: Lost in Time

Posted: 3rd Jan 2009 17:09

Link

Thanks it works now, the problem was the autocam being on. I guess since i positioned the camera before i made the objects I never saw what I wanted to.

Be patient....everything takes time.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Need some help with my menu