Polled Input - Anytime, Anywhere

BlitzMax Forums/BlitzMax Module Tweaks/Polled Input - Anytime, Anywhere

ninjarat (Posted 2007) [#1]

Okey-dokey, this is simple replace the contents of BRL.PolledInput with this: Strict Rem bbdoc: Polled input end rem Module BRL.PolledInput ModuleInfo "Version: 1.01" ModuleInfo "Author: Mark Sibly, Simon Armstrong" ModuleInfo "License: Blitz Shared Source Code" ModuleInfo "Copyright: Blitz Research Ltd" ModuleInfo "Modserver: BRL" ModuleInfo "History: 1.01 Release" ModuleInfo "History: Fixed charQueue bug" Import BRL.System Private Global enabled Global autoPoll=True Global inputSource:Object Global suspended,terminate Global keyStates[256],keyHits[256] Global mouseStates[4],mouseHits[4],mouseLocation[4] Global charGet,charPut,charQueue[256] Function Hook:Object( id,data:Object,context:Object ) Local ev:TEvent=TEvent(data) If Not ev Return data If inputSource And inputSource<>ev.source Return data Select ev.id Case EVENT_KEYDOWN If Not keyStates[ev.data] keyStates[ev.data]=1 keyHits[ev.data]:+1 EndIf Case EVENT_KEYUP keyStates[ev.data]=0 Case EVENT_KEYCHAR If charPut-charGet<256 charQueue[charPut & 255]=ev.data charPut:+1 EndIf Case EVENT_MOUSEDOWN If Not mouseStates[ev.data] mouseStates[ev.data]=1 mouseHits[ev.data]:+1 EndIf Case EVENT_MOUSEUP mouseStates[ev.data]=0 Case EVENT_MOUSEMOVE mouseLocation[0]=ev.x mouseLocation[1]=ev.y Case EVENT_MOUSEWHEEL mouseLocation[2]:+ev.data Case EVENT_APPSUSPEND FlushKeys FlushMouse suspended=True Case EVENT_APPRESUME FlushKeys FlushMouse suspended=False Case EVENT_APPTERMINATE terminate=True End Select Return data End Function Public Function EnablePolledInput( source:Object=Null ) If enabled Return inputSource=source FlushKeys FlushMouse AddHook EmitEventHook,Hook,Null,0 enabled=True End Function Function DisablePolledInput() If Not enabled Return RemoveHook EmitEventHook,Hook FlushKeys FlushMouse inputSource=Null enabled=False End Function Rem bbdoc: Get app suspended state returns: True if application is currently suspended. End Rem Function AppSuspended() If autoPoll PollSystem Return suspended End Function Rem bbdoc: Return app terminate state returns: True if user has requested to terminate application End Rem Function AppTerminate() If autoPoll PollSystem Local n=terminate terminate=False Return n End Function Rem bbdoc: Check for key hit returns: Number of times @key has been hit. about: The returned value represents the number of the times @key has been hit since the last call to #KeyHit with the same @key.<br> <br> See the <a href="../../keycodes.mod/doc/commands.html">KeyCodes</a> docs for a list of valid keycodes. End Rem Function KeyHit( key ) If autoPoll PollSystem Local n=keyHits[key] keyHits[key]=0 Return n End Function Rem bbdoc: Check for key state returns: #True if @key is currently down about: See the <a href="../../keycodes.mod/doc/commands.html">KeyCodes</a> docs for a list of valid keycodes. end rem Function KeyDown( key ) If autoPoll PollSystem Return keyStates[key] End Function Rem bbdoc: Get next character returns: The character code of the next character. about: As the user hits keys on the keyboard, BlitzMax records the character codes of these keystrokes into an internal 'character queue'.<br> <br> #GetChar removes the next character code from this queue and returns it the application.<br> <br> If the character queue is empty, 0 is returned. end rem Function GetChar() If autoPoll PollSystem If charGet=charPut Return 0 Local n=charQueue[charGet & 255] charGet:+1 Return n End Function Rem bbdoc: Flush key states and character queue. about: #FlushKeys resets the state of all keys to 'off', and resets the character queue used by #GetChar. End Rem Function FlushKeys() PollSystem charGet=0 charPut=0 For Local i=0 Until 256 keyStates[i]=0 keyHits[i]=0 Next End Function Rem bbdoc: Get mouse x location returns: Mouse x axis location about: The returned value is relative to the left of the screen. end rem Function MouseX() If autoPoll PollSystem Return mouseLocation[0] End Function Rem bbdoc: Get mouse y location returns: Mouse y axis location about: The returned value is relative to the top of the screen. end rem Function MouseY() If autoPoll PollSystem Return mouseLocation[1] End Function Rem bbdoc: Get mouse wheel returns: Mouse wheel value about: The mouse wheel value increments when the mouse wheel is rolled 'away' from the user, and decrements when the mouse wheel is rolled 'towards' the user. end rem Function MouseZ() If autoPoll PollSystem Return mouseLocation[2] End Function Rem bbdoc: Flush mouse button states about: #FlushMouse resets the state of all mouse buttons to 'off'. End Rem Function FlushMouse() PollSystem For Local i=0 Until 4 mouseStates[i]=0 mouseHits[i]=0 Next mouseLocation[2]=0 End Function Rem bbdoc: Check for mouse button click returns: Number of times @button has been clicked. about: The returned value represents the number of the times @button has been clicked since the last call to #MouseHit with the same @button.<br> <br> @button should be 1 for the left mouse button, 2 for the right mouse button or 3 for the middle mouse button. end rem Function MouseHit( button ) If autoPoll PollSystem Local n=mouseHits[button] mouseHits[button]=0 Return n End Function Rem bbdoc: Check for mouse button down state returns: #True if @button is currently down about: @button should be 1 for the left mouse button, 2 for the right mouse button or 3 for the middle mouse button. end rem Function MouseDown( button ) If autoPoll PollSystem Return mouseStates[button] End Function Rem bbdoc: Wait for a key press returns: The keycode of the pressed key about: #WaitKey suspends program execution until a key has been hit. The keycode of this key is then returned to the application.<br> <br> See the <a href="../../keycodes.mod/doc/commands.html">KeyCodes</a> docs for a list of valid keycodes. End Rem Function WaitKey() FlushKeys Repeat WaitSystem For Local n=1 To 255 If KeyHit(n) Return n Next Forever End Function Rem bbdoc: Wait for a key press returns: The character code of the pressed key about: #WaitChar suspends program execution until a character is available from #GetChar. This character is then returned to the application. End Rem Function WaitChar() FlushKeys Repeat WaitSystem Local n=GetChar() If n Return n Forever End Function Rem bbdoc: Wait for mouse button click returns: The clicked button about: #WaitMouse suspends program execution until a mouse button is clicked.<br> <br> #WaitMouse returns 1 if the left mouse button was clicked, 2 if the right mouse button was clicked or 3 if the middle mouse button was clicked. End Rem Function WaitMouse() FlushMouse Repeat WaitSystem For Local n=1 To 3 If MouseHit(n) Return n Next Forever End Function Now call EnablePolledInput() and DisablePolledInput() at any time to turn it on and off.