menu code done with sprites - GameCreators Forum

Author

Message

Cyril Grey

19

Years of Service

User Offline

Joined: 28th Jan 2005

Location:

Posted: 1st Aug 2005 05:11 Edited at: 1st Aug 2005 05:32

Link

Here is a screen shot and the code I wrote for my menu screen. I thought it might come in handy for someone out there...

`Realms of Adventure Menu Screen
`by Cyril Grey
`07/31/05

set display mode 800,600,32
Co=RGB(240,255,35):ink co,1

sync rate 0
sync on

load image "button_startup_all.png",1,1
paste image 1,0,0

`grab images from from the .png and turn into sprites
for y=0 to 6
x = 0
GET IMAGE (y+10),x,y*37,225,((y*37)+37)
SPRITE (y+1),x,(y*37),1
next y

delete image 1
load image "splash_brick_800x600bkg.png",2,1

do
cls

mx=mousex()
my=mousey()

`put the sprites on the screen in the proper places
paste image 2,0,0
for z=0 to 6
sprite z+1,72,(z*37)+98,(z+10)
set sprite alpha z+1,150
next z

`checks the mouse to see if the mouse is on an item...
`I've only set up the exit so far, but you can see how it works
`and add your own click commands with the "execute file" command or
`however you see fit.
if mx>72 and mx<290
   if my>100 and my<125 then set sprite alpha 1,255
   if my>138 and my<164 then set sprite alpha 2,255
   if my>176 and my<200 then set sprite alpha 3,255
   if my>214 and my<237 then set sprite alpha 4,255
   if my>251 and my<274 then set sprite alpha 5,255
   if my>285 and my<315 then set sprite alpha 6,255
   if my>325 and my<346
      set sprite alpha 7,255
         if mouseclick()=1 then end
   endif
endif

text 1,1,"mx="+str$(mx)
text 1,12,"my="+str$(my)

sync
loop

+ Code Snippet

`Realms of Adventure Menu Screen
`by Cyril Grey
`07/31/05

set display mode 800,600,32
Co=RGB(240,255,35):ink co,1

sync rate 0
sync on

load image "button_startup_all.png",1,1
paste image 1,0,0

`grab images from from the .png and turn into sprites
for y=0 to 6
x = 0
GET IMAGE (y+10),x,y*37,225,((y*37)+37)
SPRITE (y+1),x,(y*37),1
next y

delete image 1
load image "splash_brick_800x600bkg.png",2,1

do
cls

mx=mousex()
my=mousey()

`put the sprites on the screen in the proper places
paste image 2,0,0
for z=0 to 6
sprite z+1,72,(z*37)+98,(z+10)
set sprite alpha z+1,150
next z

`checks the mouse to see if the mouse is on an item...
`I've only set up the exit so far, but you can see how it works
`and add your own click commands with the "execute file" command or
`however you see fit.
if mx>72 and mx<290
   if my>100 and my<125 then set sprite alpha 1,255
   if my>138 and my<164 then set sprite alpha 2,255
   if my>176 and my<200 then set sprite alpha 3,255
   if my>214 and my<237 then set sprite alpha 4,255
   if my>251 and my<274 then set sprite alpha 5,255
   if my>285 and my<315 then set sprite alpha 6,255
   if my>325 and my<346
      set sprite alpha 7,255
         if mouseclick()=1 then end
   endif
endif

text 1,1,"mx="+str$(mx)
text 1,12,"my="+str$(my)

sync
loop

With math all things are possible

Attachments

Login to view attachments

Back to top

Profile PM Email

Heckno

20

Years of Service

User Offline

Joined: 8th Sep 2004

Location: Palm Coast, FL

Posted: 1st Aug 2005 06:35

Link

looks great, I need a menu screen...one of these days -sigh-

Back to top

Profile PM Email

NanoBrain

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Portland, OR

Posted: 1st Aug 2005 07:13

Link

Cyril Grey,

Nice graphics. The image has a good eery feel to it.

+NanoBrain+

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 1st Aug 2005 08:43 Edited at: 1st Aug 2005 08:44

Link

Wow! Nice menu! It's always nice to see good artists with programming talent too.

Back to top

Profile PM Email

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 1st Aug 2005 11:55 Edited at: 1st Aug 2005 11:55

Link

Nice looking menu.

Do you know you can use sprite collision to detect which option has been clicked? Use a small, 2 pixel sprite, hidden, which is positioned at the mouse coordinates. Do your collision checking against this sprite and the menu sprites.

The beauty of this approach is that you can move your menu around or redesign it, and the code still works.

Back to top

Profile PM Email

NanoBrain

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Portland, OR

Posted: 1st Aug 2005 12:45 Edited at: 1st Aug 2005 12:47

Link

Cyril Grey,

I was in the mood to teach you a more effecient way to code the collision checking system. Therefore, below is a snippet of your edited code. It makes use of the height of each sprite, so that you don't have to code in the height values yourself. It saves whitespace and your time.

+ Code Snippet

`Realms of Adventure Menu Screen
`by Cyril Grey
`07/31/05

set display mode 800,600,32
Co=RGB(240,255,35):ink co,1

sync rate 0
sync on

load image "button_startup_all.png",1,1
paste image 1,0,0

`grab images from from the .png and turn into sprites
for y=0 to 6
x = 0
GET IMAGE (y+10),x,y*37,225,((y*37)+37)
SPRITE (y+1),x,(y*37),1
next y

delete image 1
load image "splash_brick_800x600bkg.png",2,1

do
cls

mx=mousex()
my=mousey()

`put the sprites on the screen in the proper places
paste image 2,0,0
for z=1 to 7
   sprite z,72,(z*37)+98,(z+10)
   REM << check for sprite/mouse collision
   if mx => 72 and mx =< 290
      if my => sprite y(z) and my =< sprite y(z) + sprite height(z)
         set sprite alpha z,255
         REM << exit command
         if z = 7 and mouseclick() = 1 then end
      else
         set sprite alpha z+1,150
      endif
   endif
next z

text 1,1,"mx="+str$(mx)
text 1,12,"my="+str$(my)

sync
loop

+NanoBrain+

Back to top

Profile PM Email

Cyril Grey

19

Years of Service

User Offline

Joined: 28th Jan 2005

Location:

Posted: 1st Aug 2005 15:02

Link

Thanks for the positive feedback, and thanks Nano for showing me the more efficient way to detect collision. I did find one small problem: in the else statement z+1 should just be z. Also, if you have an item highlighted and move to the left or right (still within the height of the sprite) the sprite doesn't change back to alpha 150. If fixed the problem by setting the alpha to 150 each time the sprite is drawn and only to 255 if the mouse is ont he sprite:

+ Code Snippet

`Realms of Adventure Menu Screen
`by Cyril Grey
`07/31/05

set display mode 800,600,32
Co=RGB(240,255,35):ink co,1

sync rate 0
sync on

load image "button_startup_all.png",1,1
paste image 1,0,0

`grab images from from the .png and turn into sprites
for y=0 to 6
x = 0
GET IMAGE (y+10),x,y*37,225,((y*37)+37)
SPRITE (y+1),x,(y*37),1
next y

delete image 1
load image "splash_brick_800x600bkg.png",2,1

do
cls

mx=mousex()
my=mousey()

`put the sprites on the screen in the proper places
paste image 2,0,0
for z=1 to 7
   sprite z,72,(z*37)+98,(z+10)
   set sprite alpha z,150
   REM << check for sprite/mouse collision
   if mx => 72 and mx =< 290
      if my => sprite y(z) and my =< sprite y(z) + sprite height(z)
         set sprite alpha z,255
         REM << exit command
         if z = 7 and mouseclick() = 1 then end
      endif
   endif
next z

text 1,1,"mx="+str$(mx)
text 1,12,"my="+str$(my)

sync
loop

Thanks again!!

Cyril

With math all things are possible

Back to top

Profile PM Email

NanoBrain

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Portland, OR

Posted: 1st Aug 2005 21:56

Link

Cyril Grey,

Whoops. I forgot to add that line in. Below is the updated code.

`Realms of Adventure Menu Screen
`by Cyril Grey
`07/31/05

set display mode 800,600,32
Co=RGB(240,255,35):ink co,1

sync rate 0
sync on

load image "button_startup_all.png",1,1
paste image 1,0,0

`grab images from from the .png and turn into sprites
for y=0 to 6
x = 0
GET IMAGE (y+10),x,y*37,225,((y*37)+37)
SPRITE (y+1),x,(y*37),1
next y

delete image 1
load image "splash_brick_800x600bkg.png",2,1

do
cls

mx=mousex()
my=mousey()

`put the sprites on the screen in the proper places
paste image 2,0,0
for z=1 to 7
   sprite z,72,(z*37)+98,(z+10)
   set sprite alpha z,150
   REM << check for sprite/mouse collision
   if mx => 72 and mx =< 290
      if my => sprite y(z) and my =< sprite y(z) + sprite height(z)
         set sprite alpha z,255
         REM << exit command
         if z = 7 and mouseclick() = 1 then end
      endif
   REM <<<<<<<<< this is the two lines that were missing >>>>>>>>>>
   else
      set sprite alpha z,150
   endif
next z

text 1,1,"mx="+str$(mx)
text 1,12,"my="+str$(my)

sync
loop

+ Code Snippet

`Realms of Adventure Menu Screen
`by Cyril Grey
`07/31/05

set display mode 800,600,32
Co=RGB(240,255,35):ink co,1

sync rate 0
sync on

load image "button_startup_all.png",1,1
paste image 1,0,0

`grab images from from the .png and turn into sprites
for y=0 to 6
x = 0
GET IMAGE (y+10),x,y*37,225,((y*37)+37)
SPRITE (y+1),x,(y*37),1
next y

delete image 1
load image "splash_brick_800x600bkg.png",2,1

do
cls

mx=mousex()
my=mousey()

`put the sprites on the screen in the proper places
paste image 2,0,0
for z=1 to 7
   sprite z,72,(z*37)+98,(z+10)
   set sprite alpha z,150
   REM << check for sprite/mouse collision
   if mx => 72 and mx =< 290
      if my => sprite y(z) and my =< sprite y(z) + sprite height(z)
         set sprite alpha z,255
         REM << exit command
         if z = 7 and mouseclick() = 1 then end
      endif
   REM <<<<<<<<< this is the two lines that were missing >>>>>>>>>>
   else
      set sprite alpha z,150
   endif
next z

text 1,1,"mx="+str$(mx)
text 1,12,"my="+str$(my)

sync
loop

+NanoBrain+

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / menu code done with sprites

Attachments