Music Volume Scrollbar - GameCreators Forum

Author

Message

B++

16

Years of Service

User Offline

Joined: 6th Dec 2009

Location: India

Posted: 26th Apr 2010 03:30

Link

hi,
Can someone give me some idea how to make a music volume scrollbar to increase/decrease the music of the game? I hv sourced the forum but got no result?

Thank you

Your Signature Here;

Back to top

Profile PM Email Website

B++

16

Years of Service

User Offline

Joined: 6th Dec 2009

Location: India

Posted: 26th Apr 2010 19:06 Edited at: 26th Apr 2010 19:08

Link

Hi,
After some try and error I made this:

+ Code Snippet

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

nobx = 385
noby = 200

load image "scrollnob.tga",2,1
sprite 2,nobx,noby,2
hide sprite 2
load image "scrollbar.tga",1,1
sprite 1,350,200,1
hide sprite 1

do
   text 0,0,"Nob: "+str$(nobx)

   paste sprite 1,350,200
   paste sprite 2,nobx,noby

   if mousex() < nobx + sprite width(2) and mousey() < noby +  sprite height(2)
      if mouseclick()=1 and mousex() > nobx
         nobx = nobx + 5
      endif
      if nobx > 689
         nobx = 689
      endif
   endif
   if mousex() < nobx  +  sprite width(2) and mousey() < noby +  sprite height(2)
      if mouseclick()=1 and mousex() < nobx
         nobx = nobx - 5
      endif
      if nobx < 385
         nobx = 385
      endif
   endif

   sync
loop

It is working fine for me but the problem is that it decreases even when I click outside the sprite 2 on the clickable area. See the attach image and you will know.
Can someone tell me how to solve this?

Thanks

Your Signature Here;

Back to top

Profile PM Email Website

The Slayer

Forum Vice President

16

Years of Service

User Offline

Joined: 9th Nov 2009

Playing: (Hide and) Seek and Destroy on my guitar!

Posted: 26th Apr 2010 21:46 Edited at: 26th Apr 2010 21:56

Link

@B++:
I adjusted your code a bit. Hope this is what you're looking for? BTW, remember to not set the height of your scrollnob image higher than needed.

Hope this helped?

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

nobx = 385
noby = 200

load image "scrollnob.tga",2,1
sprite 2,nobx,noby,2
hide sprite 2
load image "scrollbar.tga",1,1
sprite 1,350,200,1
hide sprite 1

do
   text 0,0,"Nob: "+str$(nobx)

paste sprite 1,350,200
   paste sprite 2,nobx,noby

if mousex() => sprite x(1) and mousex() <= sprite x(1) + sprite width(1) and mousey() => sprite y(1) `<<<<<<<<<<<<< ADDED
     if mousex() < nobx + sprite width(2) and mousey() < noby +  sprite height(2)
       if mouseclick()=1 and mousex() > nobx
         nobx = nobx + 5
       endif
       if nobx > 689
         nobx = 689
       endif
     endif
   endif `<<<<<<<<<<<<<< ADDED
   if mousex() => sprite x(1) and mousex() <= sprite x(1) + sprite width(1) and mousey() => sprite y(1)`<<<<<<<<<<<<< ADDED 
     if mousex() < nobx  +  sprite width(2) and mousey() < noby +  sprite height(2)
       if mouseclick()=1 and mousex() < nobx
         nobx = nobx - 5
       endif
       if nobx < 385
         nobx = 385
       endif
     endif
   endif `<<<<<<<<<<<<<< ADDED

sync
loop

+ Code Snippet

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

nobx = 385
noby = 200

load image "scrollnob.tga",2,1
sprite 2,nobx,noby,2
hide sprite 2
load image "scrollbar.tga",1,1
sprite 1,350,200,1
hide sprite 1

do
   text 0,0,"Nob: "+str$(nobx)

   paste sprite 1,350,200
   paste sprite 2,nobx,noby

   if mousex() => sprite x(1) and mousex() <= sprite x(1) + sprite width(1) and mousey() => sprite y(1) `<<<<<<<<<<<<< ADDED
     if mousex() < nobx + sprite width(2) and mousey() < noby +  sprite height(2)
       if mouseclick()=1 and mousex() > nobx
         nobx = nobx + 5
       endif
       if nobx > 689
         nobx = 689
       endif
     endif
   endif `<<<<<<<<<<<<<< ADDED
   if mousex() => sprite x(1) and mousex() <= sprite x(1) + sprite width(1) and mousey() => sprite y(1)`<<<<<<<<<<<<< ADDED 
     if mousex() < nobx  +  sprite width(2) and mousey() < noby +  sprite height(2)
       if mouseclick()=1 and mousex() < nobx
         nobx = nobx - 5
       endif
       if nobx < 385
         nobx = 385
       endif
     endif
   endif `<<<<<<<<<<<<<< ADDED

   sync
loop

Cheers

Slayer rules!!! Yeaaah, man!

Back to top

Profile PM Email

B++

16

Years of Service

User Offline

Joined: 6th Dec 2009

Location: India

Posted: 28th Apr 2010 19:15

Link

The Slayer:
Thanks a lot. Srry, I could not reply yesterday. It helped. Thanks.

Regards

Your Signature Here;

Back to top

Profile PM Email Website

The Slayer

Forum Vice President

16

Years of Service

User Offline

Joined: 9th Nov 2009

Playing: (Hide and) Seek and Destroy on my guitar!

Posted: 28th Apr 2010 20:35

Link

Quote: "It helped. Thanks."

You're welcome.

Cheers

Slayer rules!!! Yeaaah, man!

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Music Volume Scrollbar