Text Buttons - GameCreators Forum

Author

Message

The Ringmaster

19

Years of Service

User Offline

Joined: 19th Mar 2005

Location: Cyberspace

Posted: 1st Aug 2005 12:54

Link

Here it is:

+ Code Snippet

_mainmenu:
sync on
do
   if text_button(250,220,"New Game")= 1 then cls : goto _newgame
   if text_button(250,240,"Credits")= 1 then cls : goto _credits
        if text_button(250,260,"Exit The Game")= 1 then end
sync
loop

function text_button(x,y,text$)
   tx = text width(text$)
   ty = text height(text$)
   pressed = 0
   if mousex() < x+(tx/2) and mousex() > x-(tx/2)
      if mousey() < y+(ty/2) and mousey() > y-(ty/2)
         pressed = 1
      endif
   endif
   if pressed = 1
      ink rgb(200,0,0),0
   else
      ink rgb(255,0,0),0
   endif
   if pressed = 0 then hold = 0
   center text x,y-(text size()/2),text$
   if mouseclick() = 0 then pressed = 0
endfunction pressed

_credits:

Clouds float the exact same way bricks don't
- Douglas Adams

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 1st Aug 2005 20:35

Link

Like that The Ringmaster ,

very simple when you see how its done.

I'm not getting you down am I, Ho Look! another fancy Door?

Back to top

Profile PM

The Ringmaster

19

Years of Service

User Offline

Joined: 19th Mar 2005

Location: Cyberspace

Posted: 2nd Aug 2005 00:18

Link

Thanx.

Clouds float the exact same way bricks don't
- Douglas Adams

Back to top

Profile PM

The Ringmaster

19

Years of Service

User Offline

Joined: 19th Mar 2005

Location: Cyberspace

Posted: 2nd Aug 2005 00:19 Edited at: 2nd Aug 2005 00:20

Link

But uh, its actually not mine. *Sheepish grin*

This code is a variation on that by Xenoscythe

I used it, found it worked well (better then anything I could come up with) so I posted it here.

Clouds float the exact same way bricks don't
- Douglas Adams

Back to top

Profile PM

Sorry your browser is not supported!

Code Snippets / Text Buttons