Making buttons - GameCreators Forum

Author

Message

Data

20

Years of Service

User Offline

Joined: 26th Nov 2004

Location: Winnipeg,Canada

Posted: 5th Oct 2005 00:42 Edited at: 5th Oct 2005 00:58

Link

How would I make a button you can click and it will take you to the another screen? I know its a noobie question.....

I think therefore I am.

Back to top

Profile PM Email

Data

20

Years of Service

User Offline

Joined: 26th Nov 2004

Location: Winnipeg,Canada

Posted: 5th Oct 2005 01:45

Link

can someone please answer............

I think therefore I am.

Back to top

Profile PM Email

Slayer93

20

Years of Service

User Offline

Joined: 5th Aug 2004

Location: I wish I knew

Posted: 5th Oct 2005 02:16

Link

I made a code exactly like that except with text but it exactly the same heres the code:

sync on
sync rate 30
do
cls
ink rgb(255,255,255),0
text 0,100,"NEW GAME"
text 0,130,"LOAD"
text 0,160,"OPTIONS"
text 0,190,"QUIT"

`NEW GAME
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 then ink rgb(0,0,100),0 : text 0,100,"NEW GAME"
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 and mouseclick()=1 then text 100,120,"YOU CLICKED NEW GAME"

`LOAD
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 150 then ink rgb(0,0,100),0 : text 0,130,"LOAD"
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 150 and mouseclick()=1 then text 100,120,"YOU CLICKED LOAD"

`OPTIONS
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 180 then ink rgb(0,0,100),0 : text 0,160,"OPTIONS"
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 180 and mouseclick()=1 then text 100,120,"YOU CLICKED OPTIONS"

`QUIT
if mousex() > 0 and mousex() < 100 and mousey() > 190 and mousey() < 210 then ink rgb(0,0,100),0 : text 0,190,"QUIT"
if mousex() > 0 and mousex() < 100 and mousey() > 190 and mousey() < 210 and mouseclick()=1 then end
sync
loop

+ Code Snippet

sync on
sync rate 30
do
cls
ink rgb(255,255,255),0
text 0,100,"NEW GAME"
text 0,130,"LOAD"
text 0,160,"OPTIONS"
text 0,190,"QUIT"

`NEW GAME
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 then ink rgb(0,0,100),0 : text 0,100,"NEW GAME"
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 and mouseclick()=1 then text 100,120,"YOU CLICKED NEW GAME"

`LOAD
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 150 then ink rgb(0,0,100),0 : text 0,130,"LOAD"
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 150 and mouseclick()=1 then text 100,120,"YOU CLICKED LOAD"

`OPTIONS
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 180 then ink rgb(0,0,100),0 : text 0,160,"OPTIONS"
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 180 and mouseclick()=1 then text 100,120,"YOU CLICKED OPTIONS"

`QUIT
if mousex() > 0 and mousex() < 100 and mousey() > 190 and mousey() < 210 then ink rgb(0,0,100),0 : text 0,190,"QUIT"
if mousex() > 0 and mousex() < 100 and mousey() > 190 and mousey() < 210 and mouseclick()=1 then end
sync
loop

this is how it works first you print the text or paste a button if you want to use a button in the loop

then you use the if then command to click the buttons

this code

+ Code Snippet

if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 then ink rgb(0,0,100),0 : text 0,100,"NEW GAME"
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 and mouseclick()=1 then text 100,120,"YOU CLICKED NEW GAME"

the mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 this puts a range

first line of if mousex() ect makes it turn a different color or different button

2nd line is when u click it then it goes somewhere if u replace the text 100,120,"YOU CLICKED NEW GAME"

hope that helps

NARUTO IS THE NINJA.....not really

Back to top

Profile PM Email Website

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 5th Oct 2005 02:28

Link

http://forum.thegamecreators.com/?m=forum_view&t=59061&b=7

If you enter the word 'button' into the search box at the bottom of the screen, it returns loads of other posts about buttons too.

TDK_Man

A New Alternative IDE For DB Classic!

Back to top

Profile PM Email Website

David iz cool

19

Years of Service

User Offline

Joined: 21st Sep 2005

Location: somewhere lol :P

Posted: 5th Oct 2005 04:20

Link

can u actually use 'and' in your code???!!!?

Back to top

Profile PM

Deep Thought 42

19

Years of Service

User Offline

Joined: 31st Jul 2005

Location: New Jersey, USA

Posted: 5th Oct 2005 05:56

Link

@Data
Next time be a little more patient! This isn't instant messaging.

"There are no stupid questions, just a lot of inquisitive idiots."

Back to top

Profile PM Email Website

Heckno

20

Years of Service

User Offline

Joined: 8th Sep 2004

Location: Palm Coast, FL

Posted: 5th Oct 2005 08:10

Link

Quote: "If you enter the word 'button' into the search box at the bottom of the screen, it returns loads of other posts about buttons too."

Lol, do a thread/forum search, that would be way too easy

Back to top

Profile PM Email

smerf

19

Years of Service

User Offline

Joined: 24th Feb 2005

Location: nm usa

Posted: 5th Oct 2005 20:45

Link

i prefer using sprites cuse to many mouse variables get in the way and take up a lot of space an u usaly end up using a while loop.

make a button a sprite
put a small sprite at the cursor position make it invisible
set sprite collision on

+ Code Snippet

  
get image 1,0,0,10,10,1
`draw sprite to mouse
sprite 1,mousex(),mousey(),1
hide sprite 1

get image 3,102,0,203,30,1
`draw sprite
sprite 4,225,170,3
`check for collision between mouse and button
if sprite collision (4,1)
`check for hit
if sprite hit (4,1)
`and this is when you tell it to change the page
dosomthing here
endif
endif

hope this helps

A child's dream never dies.

Back to top

Profile PM Email

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 5th Oct 2005 21:13

Link

the bad thing about sprites is that theyre limited.. here a function for my simple buttons

+ Code Snippet

Function Button(button$,x,y,sx,sy)
mx=mousex() : my=mousey() : mc=mouseclick()
ink rgb(255,255,255),0 : box x,y,x+sx,y+sy
ink rgb(128,128,128),0 : box x+2,y+2,x+sx,y+sy
ink rgb(0,0,0),0       : box (x+sx)-2,y+2,x+sx,y+sy : box x+2,(y+sy)-2,x+sx,y+sy
if mx>x and mx<x+sx : if my>y and my<y+sy : if mc=1
ink rgb(0,0,0),0 : box x,y,x+sx,y+sy
ink rgb(100,100,100),0 : box x+2,y+2,x+sx,y+sy
ink rgb(255,255,255),0       : box (x+sx)-2,y+2,x+sx,y+sy : box x+2,(y+sy)-2,x+sx,y+sy
pressed=1
else
ink rgb(255,255,255),0 : box x,y,x+sx,y+sy
ink rgb(128,128,128),0 : box x+2,y+2,x+sx,y+sy
ink rgb(0,0,0),0       : box (x+sx)-2,y+2,x+sx,y+sy : box x+2,(y+sy)-2,x+sx,y+sy
pressed=0
endif : endif : endif
ink rgb(0,0,0),0 : center text x+(sx/2),(y+(sy/2))-10,button$
Endfunction Pressed

call it like: button("Text",position x,position y,scale x,scale y)

Back to top

Profile PM Email

Silent Knight

19

Years of Service

User Offline

Joined: 25th Jan 2005

Location: In Your Mind

Posted: 6th Oct 2005 00:25

Link

oh btw will a GUI made in liberty basic (with the gui editor) work with dark basic? also, is there a command in DB such as the "nomainwin" command when used in liberty basic?

Version--DB Classic
900 mhz AMD Athlon, 128 MB RAM,
16 MB NVidia Vanta gfx card, Windows ME System software

Back to top

Profile PM

smerf

19

Years of Service

User Offline

Joined: 24th Feb 2005

Location: nm usa

Posted: 6th Oct 2005 10:56 Edited at: 6th Oct 2005 10:57

Link

sprites are not limited only bitmaps
and if you need more than 36 buttons then somthing is seriously wrong with you.
mabey you should go see a doctor for obsessive compulsive disorder lol.

A child's dream never dies.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Making buttons