on off button - GameCreators Forum

Author

Message

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 14th Apr 2005 06:16

Link

Hi All

Please how do I make this bit of code go click once for on then click again of off.

if mousex()>0 and mousex()<14 and mousey()>0 and mousey()<20
if mouseclick()=1
click=1
else
if mouseclick()=1 and click=1
click=0
endif
endif
endif

In Space No One can Hear You Scream! (When your comm Line is cut?)

Back to top

Profile PM

Mentor

22

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 14th Apr 2005 06:39

Link

+ Code Snippet

print "left click mouse"
click=0
do
if mouseclick()
click=1-click
repeat
until mouseclick()=0
print click
endif
loop

heres an example, all you do is subtract the last value you had from 1, so

click=0----1-0=1---click=1
click=1----1-1=0---click=0
click=0----1-0=1---clcik=1
etc

thats the simple way to do it anyway, the repeat until line makes sure you have released the button before the code continues (busy waiting), if you want to make sure you don`t get busy waiting then set a variable to the current timer +250...eg

clock=timer()+250

so remove the lines

repeat
until mouseclick()=0

and replace them with

clock=timer()+250

and alter the calling line to read

if mouseclick() and (timer()>clock)

so the line can only execute every 0.25 seconds.

Mentor.

PC1:XP, P4 3ghz, 1gig mem, 3x160gig hd`s, Radeon 9800pro, 6 way sound.
PC2: Linux, AMD 2ghz, 512mb ram, Nvidia GeForce4mx, 16 bit SB.
PC3: XP, laptop, intel 2.6ghz celeron, ATI 9000igp, 256mb

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 14th Apr 2005 06:55

Link

Cheers Mentor works a treat, I see how works but I am still

,

In Space No One can Hear You Scream! (When your comm Line is cut?)

Back to top

Profile PM

wmf

19

Years of Service

User Offline

Joined: 6th Nov 2004

Location:

Posted: 14th Apr 2005 09:31

Link

here is another way

+ Code Snippet

do
`if mousex()>0 and mousex()<14 and mousey()>0 and mousey()<20
if mouseclick()=1
click = not click
repeat:until mouseclick() = 0
print click
endif
`endif
loop

wait key

Back to top

Profile PM

Mr Bigger

19

Years of Service

User Offline

Joined: 31st Jan 2005

Location: was here!

Posted: 14th Apr 2005 11:08

Link

This code will do it in one line.

+ Code Snippet

if mouseclick() and (clock<timer()) then clicked = 1 ~~ clicked:clock = timer() + 250

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 15th Apr 2005 03:05

Link

Cheers

Now there something to chew on.

Now I got it going, how do you make click work on two or more places, say top left and top right, can I use the same click or do I have to make a click2.

(making drop down menus system)

Trying to get a radio button system if I click button 1 it turns on then if I click buton 2,3 or 4 it will turn off button 1 and turn on button I have clicked.

In Space No One can Hear You Scream! (When your comm Line is cut?)

Back to top

Profile PM

wmf

19

Years of Service

User Offline

Joined: 6th Nov 2004

Location:

Posted: 15th Apr 2005 12:10

Link

try something like this. buttons are for testing only.

+ Code Snippet

sync on
sync rate 0
get image 100,0,0,1,1,1
sprite 100,0,0,100
circle 100,100,4
get image 1,96,96,105,105,1
circle 100,100,1
get image 2,96,96,105,105,1
sync
button = 1
do
   if mouseclick() = 1
      sprite 100,mousex(),mousey(),100
      if sprite collision(100,0) then button = sprite collision(100,0)
      repeat:until mouseclick() = 0
   endif
   for i = 1 to 5
      sprite i,100,100+(i-1)*15,1
   next i
   sprite button,100,100+(button-1)*15,2
   sync
loop

Back to top

Profile PM

BN2 Productions

20

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 15th Apr 2005 12:50

Link

the best way that I have found to check for mouse collision with buttons is to put a sprite(completely black so that it will be transparant) at mousex(),mousey()
something like this

+ Code Snippet

sprite 1,mousex(),mousey(),1
if mouseclick()=1
     if sprite collision(1,0)=SPRITE NUMBER OF BUTTON
          rem put what you want it to do here
     endif
endif

it isn't perfect but it does work

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 15th Apr 2005 22:45

Link

Cheers for the diffrent ways to detected sprites but I am not using them yet, as this drawing boxes on the screen and using the mouse box checking system.

I am making drop down menu system, so what I had in the post above works ok if I only have one to check, however I have upto 8 I wish to check, this means that if I click menu 1 it drops down with its choices then if I click on menu 5 , menu 1 will close up and menu 5 open.

ok here's the code so far

rem Standard Setup Code
sync on : sync rate 0 :
color backdrop rgb(0,0,128)
rem hide mouse
set text font "arial" : set text size 12
` set text transparent
dim menu$(8,20)
dim ts$(8)
dim tl(8)
menu$(0,1)="Frame Title"
rem menu 1 list
menu$(1,1)="File     " :rem title
menu$(1,2)="New File " :rem sub items
menu$(1,3)="Save file"
menu$(1,4)="Save As.."
menu$(1,5)="Exit     "
rem menu 2 list
menu$(2,1)="Edit     "
menu$(2,2)="Undo     "
menu$(2,3)="Cut      "
menu$(2,4)="Copy     "
rem menu 3 list
menu$(3,1)="Search   "

menu$(4,1)="View     "
menu$(5,1)="Options  "
menu$(6,1)="Tools    "
menu$(7,1)="Window   "
menu$(8,1)="Help     "
sw=screen width()
sh=screen height()
th=text height("1")
tw=text width("1")
sp=(screen width()/8)/tw
dl=th*12
click=0
do
cls

box 0,0,sw,th+4,RGB(0,0,255),RGB(0,0,255),RGB(255,255,255),RGB(255,255,255)
text tw,0,menu$(0,1)
box 0,th,sw,th*2+4,RGB(0,135,225),RGB(0,135,235),RGB(0,135,255),RGB(0,135,255)

ink RGB(255,255,255),0
ts$(1)=menu$(1,1)+space$(sp-len(menu$(1,1)))

ts$(2)=menu$(2,1)+space$(sp-len(menu$(2,1)))

ts$(3)=menu$(3,1)+space$(sp-len(menu$(3,1)))

ts$(4)=menu$(4,1)+space$(sp-len(menu$(4,1)))

ts$(5)=menu$(5,1)+space$(sp-len(menu$(5,1)))

ts$(6)=menu$(6,1)+space$(sp-len(menu$(6,1)))

ts$(7)=menu$(7,1)+space$(sp-len(menu$(7,1)))

ts$(8)=menu$(8,1)+space$(sp-len(menu$(8,1)))
if t<8
for t=1 to 8
ts$=ts$+ts$(t)
tl(t)=len(ts$(t))
next t
endif
text tw,th+2,ts$
set cursor 0,60
print str$(mousex())+" "+str$(mousey())
if mousex()>0 and mousex()<20 and mousey()>0 and mousey()<15
if mouseclick()
click=1-click
ms=1
repeat
until mouseclick()=0
endif
endif

if mousex()>55 and mousex()<100 and mousey()>0 and mousey()<15
if mouseclick()
click2=1-click2
ms=2
repeat
until mouseclick()=0
endif
endif

if click=1
ms=1
repeat
box tw,th*2+4,th*6,dl,RGB(0,0,255),RGB(0,0,255),RGB(255,255,255),RGB(255,255,255)
for tt=2 to 4
ink RGB(255,255,255),0
text tw,th*2+4+(tt-2)*th,menu$(ms,tt)
next tt
if mousex()>tw and mousex()<tw*len(menu$(ms,2)) and mousey()>th and mousey()<th+th
col=col-1
ink RGB(0,255,0),0
text tw,th*2+4,menu$(ms,2)
endif
if mousex()>tw and mousex()<tw*len(menu$(ms,3)) and mousey()>th*2 and mousey()<th*3
col=col-1
ink RGB(0,255,0),0
text tw,th*2+4,menu$(ms,3)
endif
sync
until mouseclick()=1
endif

if click2=1
ms=2
repeat
box 55,th*2+4,105,th*6,RGB(0,0,255),RGB(0,0,255),RGB(255,255,255),RGB(255,255,255)
for tt=2 to 4
ink RGB(255,255,255),0
text tw*11,th*2+4+(tt-2)*th,menu$(ms,tt)
next tt
if mousex()>tw and mousex()<tw*len(menu$(ms,2)) and mousey()>th and mousey()<th+th
col=col-1
ink RGB(0,255,0),0
text 55,th*2+4,menu$(ms,2)
endif
if mousex()>tw and mousex()<tw*len(menu$(ms,3)) and mousey()>th*2 and mousey()<th*3
col=col-1
ink RGB(0,255,0),0
text 55,th*2+4,menu$(ms,3)
endif
sync
until mouseclick()=1
endif

sync
loop

+ Code Snippet

rem Standard Setup Code
sync on : sync rate 0 :
color backdrop rgb(0,0,128)
rem hide mouse
set text font "arial" : set text size 12
` set text transparent
dim menu$(8,20)
dim ts$(8)
dim tl(8)
menu$(0,1)="Frame Title"
rem menu 1 list
menu$(1,1)="File     " :rem title
menu$(1,2)="New File " :rem sub items
menu$(1,3)="Save file"
menu$(1,4)="Save As.."
menu$(1,5)="Exit     "
rem menu 2 list
menu$(2,1)="Edit     "
menu$(2,2)="Undo     "
menu$(2,3)="Cut      "
menu$(2,4)="Copy     "
rem menu 3 list
menu$(3,1)="Search   "

menu$(4,1)="View     "
menu$(5,1)="Options  "
menu$(6,1)="Tools    "
menu$(7,1)="Window   "
menu$(8,1)="Help     "
sw=screen width()
sh=screen height()
th=text height("1")
tw=text width("1")
sp=(screen width()/8)/tw
dl=th*12
click=0
do
cls

box 0,0,sw,th+4,RGB(0,0,255),RGB(0,0,255),RGB(255,255,255),RGB(255,255,255)
text tw,0,menu$(0,1)
box 0,th,sw,th*2+4,RGB(0,135,225),RGB(0,135,235),RGB(0,135,255),RGB(0,135,255)

ink RGB(255,255,255),0
ts$(1)=menu$(1,1)+space$(sp-len(menu$(1,1)))

ts$(2)=menu$(2,1)+space$(sp-len(menu$(2,1)))

ts$(3)=menu$(3,1)+space$(sp-len(menu$(3,1)))

ts$(4)=menu$(4,1)+space$(sp-len(menu$(4,1)))

ts$(5)=menu$(5,1)+space$(sp-len(menu$(5,1)))

ts$(6)=menu$(6,1)+space$(sp-len(menu$(6,1)))

ts$(7)=menu$(7,1)+space$(sp-len(menu$(7,1)))

ts$(8)=menu$(8,1)+space$(sp-len(menu$(8,1)))
if t<8
for t=1 to 8
ts$=ts$+ts$(t)
tl(t)=len(ts$(t))
next t
endif
text tw,th+2,ts$
set cursor 0,60
print str$(mousex())+" "+str$(mousey())
if mousex()>0 and mousex()<20 and mousey()>0 and mousey()<15
if mouseclick()
click=1-click
ms=1
repeat
until mouseclick()=0
endif
endif

if mousex()>55 and mousex()<100 and mousey()>0 and mousey()<15
if mouseclick()
click2=1-click2
ms=2
repeat
until mouseclick()=0
endif
endif

if click=1
ms=1
repeat
box tw,th*2+4,th*6,dl,RGB(0,0,255),RGB(0,0,255),RGB(255,255,255),RGB(255,255,255)
for tt=2 to 4
ink RGB(255,255,255),0
text tw,th*2+4+(tt-2)*th,menu$(ms,tt)
next tt
if mousex()>tw and mousex()<tw*len(menu$(ms,2)) and mousey()>th and mousey()<th+th
col=col-1
ink RGB(0,255,0),0
text tw,th*2+4,menu$(ms,2)
endif
if mousex()>tw and mousex()<tw*len(menu$(ms,3)) and mousey()>th*2 and mousey()<th*3
col=col-1
ink RGB(0,255,0),0
text tw,th*2+4,menu$(ms,3)
endif
sync
until mouseclick()=1
endif

if click2=1
ms=2
repeat
box 55,th*2+4,105,th*6,RGB(0,0,255),RGB(0,0,255),RGB(255,255,255),RGB(255,255,255)
for tt=2 to 4
ink RGB(255,255,255),0
text tw*11,th*2+4+(tt-2)*th,menu$(ms,tt)
next tt
if mousex()>tw and mousex()<tw*len(menu$(ms,2)) and mousey()>th and mousey()<th+th
col=col-1
ink RGB(0,255,0),0
text 55,th*2+4,menu$(ms,2)
endif
if mousex()>tw and mousex()<tw*len(menu$(ms,3)) and mousey()>th*2 and mousey()<th*3
col=col-1
ink RGB(0,255,0),0
text 55,th*2+4,menu$(ms,3)
endif
sync
until mouseclick()=1
endif

sync
loop

In Space No One can Hear You Scream! (When your comm Line is cut?)

Back to top

Profile PM

Underworld 1020

20

Years of Service

User Offline

Joined: 2nd Mar 2004

Location: NY, USA

Posted: 16th Apr 2005 00:34 Edited at: 16th Apr 2005 01:03

Link

Well, I haven't made a drop down system yet, but I have made something for Radio buttons.

Here It Is:

Sync On : Sync Rate 30

GoSub StartRadioProgram
Set=1 : x1=10 : y1=10 : x2=30 : y2=10 : x3=50 : y3=10 : GoSub CreateRadioSet

Do

Cls : Text 0,100,Str$(MouseX())+" : "+Str$(MouseY())

If ClickBox(10,10,20,20,1)=1 Then Set=1 : Num=1 : GoSub ChangeRadioActive
If ClickBox(30,10,40,20,1)=1 Then Set=1 : Num=2 : GoSub ChangeRadioActive
If ClickBox(50,10,60,20,1)=1 Then Set=1 : Num=3 : GoSub ChangeRadioActive

Set=1 : GoSub UpdateRadioSet

Sync

Loop

StartRadioProgram:
Dim RadioSet(10,10,10,10,10)
Dim RadioActive(10,10)
Return

CreateRadioSet:
RadioSet(Set,1,1)=x1 : RadioSet(Set,1,1,1)=y1
RadioSet(Set,2,1)=x2 : RadioSet(Set,2,1,1)=y2
RadioSet(Set,3,1)=x3 : RadioSet(Set,3,1,1)=y3
RadioActive(1,1)=1
Return

UpdateRadioSet:
Circle RadioSet(Set,1,1),RadioSet(Set,1,1,1),5
Circle RadioSet(Set,2,1),RadioSet(Set,2,1,1),5
Circle RadioSet(Set,3,1),RadioSet(Set,3,1,1),5
Num=0 : Repeat : Inc Num : Until RadioActive(Set,Num)=1
For Radius= 1 To 2 : Circle RadioSet(Set,Num,1),RadioSet(Set,Num,1,1),Radius : Next Radius
Return

ChangeRadioActive:
For Radio= 1 To 10 : RadioActive(Set,Radio)=0 : Next Radio
RadioActive(Set,Num)=1
Return

Function ClickBox(x1,y1,x2,y2,Click)
Clicked=0
If MouseClick()=Click
If MouseX()=>x1 and MouseY()=>y1 and MouseX()=<x2 and MouseY()=<y2 Then Clicked=1
EndIf
EndFunction Clicked

+ Code Snippet

Sync On : Sync Rate 30

GoSub StartRadioProgram
Set=1 : x1=10 : y1=10 : x2=30 : y2=10 : x3=50 : y3=10 : GoSub CreateRadioSet

Do

Cls : Text 0,100,Str$(MouseX())+" : "+Str$(MouseY())

If ClickBox(10,10,20,20,1)=1 Then Set=1 : Num=1 : GoSub ChangeRadioActive
If ClickBox(30,10,40,20,1)=1 Then Set=1 : Num=2 : GoSub ChangeRadioActive
If ClickBox(50,10,60,20,1)=1 Then Set=1 : Num=3 : GoSub ChangeRadioActive

Set=1 : GoSub UpdateRadioSet

Sync

Loop

StartRadioProgram:
Dim RadioSet(10,10,10,10,10)
Dim RadioActive(10,10)
Return

CreateRadioSet:
RadioSet(Set,1,1)=x1 : RadioSet(Set,1,1,1)=y1
RadioSet(Set,2,1)=x2 : RadioSet(Set,2,1,1)=y2
RadioSet(Set,3,1)=x3 : RadioSet(Set,3,1,1)=y3
RadioActive(1,1)=1
Return

UpdateRadioSet:
Circle RadioSet(Set,1,1),RadioSet(Set,1,1,1),5
Circle RadioSet(Set,2,1),RadioSet(Set,2,1,1),5
Circle RadioSet(Set,3,1),RadioSet(Set,3,1,1),5
Num=0 : Repeat : Inc Num : Until RadioActive(Set,Num)=1
For Radius= 1 To 2 : Circle RadioSet(Set,Num,1),RadioSet(Set,Num,1,1),Radius : Next Radius
Return

ChangeRadioActive:
For Radio= 1 To 10 : RadioActive(Set,Radio)=0 : Next Radio
RadioActive(Set,Num)=1
Return

Function ClickBox(x1,y1,x2,y2,Click)
Clicked=0
If MouseClick()=Click
If MouseX()=>x1 and MouseY()=>y1 and MouseX()=<x2 and MouseY()=<y2 Then Clicked=1
EndIf
EndFunction Clicked

Eventually I want the user to be able to specify how many sets, buttons, color of the buttons, size of the buttons. Right now it will create three Radio buttons and checks for collision with them and if you click on one, then the others turn off.

Check Out My Site Here: http://www.freewebs.com/underworld1020/

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 16th Apr 2005 00:57

Link

Cheers like the way you get the x1,y1,y1,y2 data to the Circle command.

PS Anyone else down loading this remove the dot in this line

For Radius= 1 To 2 : Circle RadioSet(Set,Num,1),RadioSet(Set,Num,1,1),Radius : Next Radius

it trys doing it but .1 to 2 takes it a very long time.

In Space No One can Hear You Scream! (When your comm Line is cut?)

Back to top

Profile PM

Underworld 1020

20

Years of Service

User Offline

Joined: 2nd Mar 2004

Location: NY, USA

Posted: 16th Apr 2005 01:06

Link

I think there is something on drop down windows style menus somewhere on this site, I'll try looking for it.

EDIT: I fixed the .1 thing.

Check Out My Site Here: http://www.freewebs.com/underworld1020/

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 17th Apr 2005 22:55

Link

How did you fix your post?

In Space No One can Hear You Scream! (When your comm Line is cut?)

Back to top

Profile PM

NanoBrain

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Portland, OR

Posted: 18th Apr 2005 09:18 Edited at: 18th Apr 2005 09:19

Link

HowDo,

When I first began programming in this language, the on/off button was quite tricky to me. Try this code snippet below.

+ Code Snippet

set display mode 800,600,32
sync on
sync rate 60

repeat

REM turn button on/off
if mousex()=> 350 and mousex() =< 450 and mousey() => 275 and mousey() =< 325
   if mouseclick() = 1
      if click = 0 and control = 0
         click = 1
         control = 1
      endif
      if click = 1 and control = 0
         click = 0
         control = 1
      endif
   else
      control = 0
   endif
else
   control = 0
endif

REM draw button to screen
if click = 1
   ink rgb(255,0,0),0
else
   ink rgb(150,0,0),0
endif
box 350,275,450,325

REM draw text to screen
center text 400,560,"Press left mouse button over box to turn it on or off"
center text 400,580,"Press right mouse button to end program"

sync
cls
until mouseclick() = 2
end

Two variables are needed to make this program work properly. First, there is click, and then there is control. click is the boolean variable to change the color of the box. That if it is a value of 1, it is on, else it is off. control does just what it is named as. I could have placed the code like this:

+ Code Snippet

if mousex()=> 350 and mousex() =< 450 and mousey() => 275 and mousey() =< 325 
   if mouseclick() = 1 
      if click = 1 then click = 0
      if click = 0 then click = 1
   endif
endif

However, the box would have never changed colors this way, because click would have always ended up being the value of 1. So, I had to throw a control variable in. This variable let's each if statement know if the box has been clicked on within that same program loop.

Now, somehow I have to reset control back to te value of 0 given certain circumstances. Or else, the button would only have the chance to change it's color once. So, I have placed that if the mouse is not pressed or the cursor is not over the box, control is then set to 0.

+NanoBrain+

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / on off button