Redefinable Controls

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|539\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Misc

Jayenkai	Created : 07 May 2007 Language : Blitz Redefinable Controls Quick and easy redefinable key functions.
First off, here's the 2 functions. Function hitbutton(button,sensitive#=0.5) out=0 If button>0 And button<256 If KeyDown(button) Then out=1 EndIf For port=0 To 3 If button>299+(port50) And button<340+(port50) If button=300+(port50) And JoyX(port)<-sensitive# Then out=1 If button=301+(port50) And JoyX(port)>sensitive# Then out=1 If button=302+(port50) And JoyY(port)<-sensitive# Then out=1 If button=303+(port50) And JoyY(port)>sensitive# Then out=1 If button=304+(port50) And JoyZ(port)<-sensitive# Then out=1 If button=305+(port50) And JoyZ(port)>sensitive# Then out=1 If button=306+(port50) And JoyU(port)<-sensitive# Then out=1 If button=307+(port50) And JoyU(port)>sensitive# Then out=1 If button=308+(port50) And JoyV(port)<-sensitive# Then out=1 If button=309+(port50) And JoyV(port)>sensitive# Then out=1 If button=310+(port50) And (JoyHat(port)=270 Or JoyHat(port)=315 Or JoyHat(port)=225) Then out=1 If button=311+(port50) And (JoyHat(port)=90 Or JoyHat(port)=45 Or JoyHat(port)=135) Then out=1 If button=312+(port50) And (JoyHat(port)=0 Or JoyHat(port)=315 Or JoyHat(port)=45) Then out=1 If button=313+(port50) And (JoyHat(port)=180 Or JoyHat(port)=225 Or JoyHat(port)=135) Then out=1 If button>320+(port50) And button<340+(port50) And JoyDown(button-(320+(port50)),port) Then out=1 EndIf Next Return out End Function Function Findbutton(sensitive#=0.5,AllowPorts=1,WithZUV=0) ; sensitivity for analogue joys ; Allow Ports = Joyports to allow (+1) so 1 checks port 0, 2 checks 1, 3 for 2 and 4 checks 3! Got that!! Good! ; and only allow WithZUV if you're sure the user's joystick's Z, U and V are working right! out=0 For keychk=1 To 255 If KeyDown(keychk) Then out=keychk Next For port=0 To AllowPorts-1 If JoyX(port)<-sensitive# Then out=300+(port50) If JoyX(port)>sensitive# Then out=301+(port50) If JoyY(port)<-sensitive# Then out=302+(port50) If JoyY(port)>sensitive# Then out=303+(port50) If WithZUV=1 If JoyZ(port)<-sensitive# Then out=304+(port50) If JoyZ(port)>sensitive# Then out=305+(port50) If JoyU(port)<-sensitive# Then out=306+(port50) If JoyU(port)>sensitive# Then out=307+(port50) If JoyV(port)<-sensitive# Then out=308+(port50) If JoyV(port)>sensitive# Then out=309+(port50) EndIf If JoyHat(port)=270 Then out=310+(port50) If JoyHat(port)=90 Then out=311+(port50) If JoyHat(port)=0 Then out=312+(port50) If JoyHat(port)=180 Then out=313+(port50) For button=320 To 340 If JoyDown(button-(320+(port50)),port) Then out=button Next Next Return out End Function --v Use FindButton(), which goes through all keys, and then Joypad controls, checking to see what's pushed. Record the outputted value, then check it with HitButton(value) A short example.. Graphics 640,480,0,2 ; - Gives us full size window Dim Key(10,5) ; - Holds 10 keys for 5 users. Can't imagine more than that fitting on a PC ;) SetBuffer BackBuffer() Const K_Up=1 Const K_Down=2 Const K_Left=3 Const K_Right=4 Const K_Fire=5 ; First, Get 5 redefinable keys for player 1 For n=1 To 5 Repeat Select n Case K_Up txt$="Up" Case K_Down txt$="Down" Case K_Left txt$="Left" Case K_Right txt$="Right" Case K_Fire txt$="Fire" End Select Cls Text 320,240,"Hit Key for "+txt$,1,1 Flip Keyed=FindButton() DebugLog keyed Until Keyed<>0 Key(n,1)=Keyed ;Once a button has been hit, we have to wait until all buttons are un-hit Repeat Until FindButton()=0 Next ; Then do a simple display Repeat Cls If HitButton(Key(K_Up,1)) Then Text 320,20,"UP",1,1 If HitButton(Key(K_Down,1)) Then Text 320,460,"DOWN",1,1 If HitButton(Key(K_Left,1)) Then Text 40,240,"LEFT",1,1 If HitButton(Key(K_Right,1)) Then Text 600,240,"RIGHT",1,1 If HitButton(Key(K_Fire,1)) Then Text 320,240,"FIRE",1,1 Flip Until KeyDown(1) End ;---- Don't forget to include the 2 functions at the bottom ;) ---- --v

Comments
Wednesday, 09 May 2007, 11:57
Paul	err... this just locks up :S Adding a delay in the For keychk=1 To 255 If KeyDown(keychk) Then out=keychk Delay 1;<-- Next allows me to close the program with the ex instead of taskmanager. Dont know if it's got anything to do with my wacky joystick?
Wednesday, 09 May 2007, 14:50
Jayenkai	Yeah, could be a wacky joystick.. Probably best to disable joystick support until the player enables it.
Thursday, 10 May 2007, 07:23
Paul	anyway, here's a function to get the name of the key pressed Needs user32.decels GetKeyNameText% (lParam%,lpBuffer*,nSize%):"GetKeyNameTextA" My decels file didn't have the star after the lpBuffer so it didn't work at first. While Not KeyHit(1) For i=2 To 255 If KeyHit(i) Then Print getkeyname$(i) Next Delay 50 Wend End Function BankToStirng$(B,offset=1) DebugLog BankSize(B) For i = offset To BankSize(B) ok = PeekByte(B,i-1) If ok = 0 Then Exit d$ = d$ + Chr$(ok) Next Return d$ End Function Function getkeyname$(key%,bank=0) If bank=0 Then bank=CreateBank(256) api_GetKeyNameText(key% Shl 16 Or 1 Shl 25,bank,256) tmp$=BankToStirng$(bank) FreeBank(bank) If tmp$<>"" Then Return tmp$ Select key% Case 210:Return "INSERT" Case 199:Return "HOME" Case 201:Return "PAGE UP" Case 211:Return "DELETE" Case 207:Return "END" Case 209:Return "PAGE DOWN" Case 69 :Return "NUM LOCK" Case 156:Return "ENTER" Case 157:Return "CTRL" Case 219:Return "WINDOWS" Case 220:Return "WINDOWS" Case 208:Return "Down" Case 200:Return "UP" Case 203:Return "LEFT" Case 205:Return "RIGHT" Case 197:Return "NUM LOCK" End Select Return "" End Function --v
Thursday, 22 May 2008, 07:42
Jayenkai	Function WhatKey$(k) nm$="?" Select k Case 1 nm$="Esc" Case 41 nm$="`" Case 2 nm$="1" Case 3 nm$="2" Case 4 nm$="3" Case 5 nm$="4" Case 6 nm$="5" Case 7 nm$="6" Case 8 nm$="7" Case 9 nm$="8" Case 10 nm$="9" Case 11 nm$="0" Case 12 nm$="-" Case 13 nm$="=" Case 14 nm$="BCK" Case 15 nm$="TAB" Case 16 nm$="Q" Case 17 nm$="W" Case 18 nm$="E" Case 19 nm$="R" Case 20 nm$="T" Case 21 nm$="Y" Case 22 nm$="U" Case 23 nm$="I" Case 24 nm$="O" Case 25 nm$="P" Case 26 nm$="[" Case 27 nm$="]" Case 28 nm$="RET" Case 58 nm$="CAPS" Case 30 nm$="A" Case 31 nm$="S" Case 32 nm$="D" Case 33 nm$="F" Case 34 nm$="G" Case 35 nm$="H" Case 36 nm$="J" Case 37 nm$="K" Case 38 nm$="L" Case 39 nm$=";" Case 40 nm$="'" Case 43 nm$="#" Case 42 nm$="L SHFT" Case 86 nm$="\" Case 44 nm$="Z" Case 45 nm$="X" Case 46 nm$="C" Case 47 nm$="V" Case 48 nm$="B" Case 49 nm$="N" Case 50 nm$="M" Case 51 nm$="," Case 52 nm$="." Case 53 nm$="/" Case 54 nm$="R SHFT" Case 29 nm$="L CTRL" Case 219 nm$="L WIN" Case 56 nm$="L ALT" Case 57 nm$="SPACE" Case 184 nm$="R ALT" Case 220 nm$="R WIN" Case 221 nm$="R APP" Case 157 nm$="R CTRL" Case 59 nm$="F1" Case 60 nm$="F2" Case 61 nm$="F3" Case 62 nm$="F4" Case 63 nm$="F5" Case 64 nm$="F6" Case 65 nm$="F7" Case 66 nm$="F8" Case 67 nm$="F9" Case 68 nm$="F10" Case 87 nm$="F11" Case 88 nm$="F12" Case 79 nm$="1" Case 80 nm$="2" Case 81 nm$="3" Case 75 nm$="4" Case 76 nm$="5" Case 77 nm$="6" Case 71 nm$="7" Case 72 nm$="8" Case 73 nm$="9" Case 82 nm$="0" Case 83 nm$="." Case 181 nm$="/" Case 55 nm$="*" Case 74 nm$="-" Case 78 nm$="+" Case 156 nm$="ENT" Case 200 nm$="^" Case 208 nm$="v" Case 203 nm$="<" Case 205 nm$=">" End Select Return nm$ End Function --v A "More or less" complete Scancode -> Keyname function.

Comments