Title screen with buttons - GameCreators Forum

Author

Message

Wu dynasty

12

Years of Service

User Offline

Joined: 7th Feb 2013

Location: In a democracy

Posted: 26th Mar 2013 16:09

Link

I am making a game and I would like a menu with buttons that I can click. I would like to have a start game, instructions, credits, and standards addressed (educational game) buttons.
Thanks,
Nathan

You are entering the Wu Dynasty. Boomshakalaka
-Nathan

Back to top

Profile PM

ShellfishGames

12

Years of Service

User Offline

Joined: 6th Feb 2013

Location:

Posted: 26th Mar 2013 18:11

Link

+ Code Snippet


do
   cls
   if button(100,100,200,140, "QUIT")=1 then end
loop





function button(x1,y1,x2,y2, caption$)
   rem Interaction
   result = 0
   if mousex() > x1 and mousex() < x2 and mousey() > y1 and mousey() < y2
      if mouseclick()=1
         result = 1
      else
         result = 2
      endif
   endif
   rem Draw
   ink rgb(255,255,255),0
   box x1,y1,x2,y2
   if result = 2
      rem Button Hovered -> Change Color
      ink rgb(80,80,80),0
   else
      ink rgb(0,0,0),0
   endif
   box x1+1,y1+1,x2-1,y2-1
   ink rgb(255,255,255),0
   center text (x1+x2)/2, (y1+y2)/2 - 2 - text size()/2, caption$
endfunction result

A very simple button function. Basically all you need is mousex()/mousey() and mouseclick() and some way to display the button - for instance DBPro-drawing commands as in this code, or alternatively an image or sprite that you loaded before.

Back to top

Profile PM Email Website

chafari

Valued Member

19

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 26th Mar 2013 18:13 Edited at: 26th Mar 2013 18:16

Link

Hi Wu dynasty.
There are so many ways to get that...I thing one of the best is get your menu images and make something like this piece of code.Obviously, then you will have to write conditions to be taken to program flow.

+ Code Snippet

autocam off
sync on
rem buttom texture
ink rgb(130,130,130),0
box 0,0,640,480
ink rgb(0,0,0),0
box 100,100,150,130
ink rgb(150,150,150),0
box 101,101,149,129
ink rgb(255,255,0),0
set cursor 105,105:print "START "
get image 1,103,103,145,127,1


do
if mousex()>100 and mousex()<150 and mousey()>100 and mousey()<130 and mouseclick() then paste image 1,103,105 else paste image 1,103,103
sync
loop

@ShellfishGames
Edited

Sorry...I answered at the same time and didnt't see youra example....looks like I copied it