button tapping - GameCreators Forum

Author

Message

blank

22

Years of Service

User Offline

Joined: 4th Mar 2003

Location: My Computer

Posted: 22nd Aug 2004 09:05

Link

hey all,
i was wondering i need to make a little thing for my game where the player needs to taps 2 buttons simutaneously to raise a meter up.
The meter will drop as the speed of the repetitions decreases. how do i get it so that it wont just go up if the player holds down one button and so that they have to release he last button before the next can be pressed?
if thats too complicated then please say and ill rewrite it. or try and add some source into it.

Back to top

Profile PM

aprilfan

22

Years of Service

User Offline

Joined: 3rd Oct 2002

Location: Hell

Posted: 22nd Aug 2004 11:23

Link

<click the source code button at the bottom of this post>

There you go try that.

Back to top

Profile PM

Vespar

21

Years of Service

User Offline

Joined: 17th Jul 2003

Location: USA

Posted: 22nd Aug 2004 11:42 Edited at: 22nd Aug 2004 11:52

Link

Some very simple code to get you started.
Opps didnt see your code posted, this code uses the "a" key and "l" keys.
Vespar

+ Code Snippet

t=timer()+500
do
cls
if inkey$()="a" then key1=1 else if inkey$()="" and key1 =1 then key=0:check=1

if inkey$()="l" and check = 1 then key2=1 else if inkey$()="" and key2 =1 then key2=0:inc scale,1:check = 0: t=timer()+500

if timer() > t and scale >0 then dec scale,1:t=timer()+300

text 100,0, str$(scale)
box 0,0,20,scale

sync
loop

Back to top

Profile PM Email

Rob K

Retired Moderator

22

Years of Service

User Offline

Joined: 10th Sep 2002

Location: Surrey, United Kingdom

Posted: 22nd Aug 2004 11:43 Edited at: 22nd Aug 2004 11:43

Link

Alter the speed variable to control the "difficulty" of the meter, use LEFT & RIGHT key presses to keep the meter up.

+ Code Snippet

sync on : sync rate 0

speed=500

do
     if timer()-checkTime > speed
        if reps > 0 then dec reps
        checkTime=timer()
     endif
     
     if currentKey=0
          if rightkey()
               inc reps
               currentKey=1
          endif
     endif
     
     if currentKey=1
          if leftkey()
               inc reps
               currentKey=2
          endif
     endif
     
     if (not leftkey()) and (not rightkey())
          if currentKey=2 then currentKey=0
     endif
     
     cls
     print reps
     box 20,20,20+reps*5,40
     
     sync
loop

BlueGUI:Windows UI Plugin - All the power of the windows interface in your DBPro games.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / button tapping