Code archives/User Input/Waggler
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
*Updated - now operates as a function. Remember those oldskool games such as Decathlon and Hypersports where you clock the joystick as fast as possible to gain speed? Well, heres a very simple bit of code for implementing that in a game. | |||||
;; Waggler - by Syntax_Error ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ; A little bit of code for joystick/keyboard waggling ; games like the classic Decathlon & Hypersports ; ####################### Dim wkey(1) : wkey(0)=42 : wkey(1)=54 ; left/right SHIFT keys (scancodes) Global WaggleToggle ; waggle toggle flag ; waggle function Function GetWaggleSpeed#(speed#,inputmethod=0) If inputmethod=1 If JoyXDir()=WaggleToggle*2-1 WaggleToggle=Not WaggleToggle speed=speed+5.7 EndIf Else If KeyHit(wkey(WaggleToggle)) WaggleToggle=Not WaggleToggle speed=speed+7.9 EndIf EndIf If speed>0.89 Then speed=speed-0.89 If speed>100 Then speed=100 Return speed End Function ; ####################### ; example code Graphics 640,480 SetBuffer BackBuffer() wagglespeed#=75 While Not KeyHit(1) Cls wagglespeed#=GetWaggleSpeed(wagglespeed#,method) ; simple bar Color 40,40,40 : Rect 100,100,201,16 Color 20,200,40 : Rect 101,101,wagglespeed*2,14 Text 125,128,"Speed:"+Int(wagglespeed) ; If KeyHit(57) method=Not method Color 100,200,200 Text 100,160,"Input Method: "+Mid$("KEYBOARDJOYSTICK",method*8+1,8) Text 140,180,"(Press SPACEBAR to toggle)" Flip Wend End |
Comments
None.
Code Archives Forum