Sorry your browser is not supported!

// Project: keytest 
// Created: 2017-05-01

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "keytest" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

global KeyArray as Integer

do

    Print( ScreenFPS() )
    
    keytest()
    Print(Str(KeyArray))   
    Sync()
loop
end



function keytest()
 KeyArray=0
 
 if GetRawKeyState(87)		// w (north)
   //KeyArray=KeyArray || %1000
   KeyArray=KeyArray+8  
  endif
 if GetRawKeyState(65)		// a (west)
   //KeyArray=KeyArray || %0001
   KeyArray=KeyArray+1   
 endif
 if GetRawKeyState(83)		// s (south)
   //KeyArray=KeyArray || %0010  
   KeyArray=KeyArray+2   
 endif
 if GetRawKeyState(68)		// d (east)
//   KeyArray=KeyArray || %0100
   KeyArray=KeyArray+4   
 endif

endfunction

// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "keytest" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
KeyArray as Integer
 
do
 
    Print( ScreenFPS() )
     
    KeyArray = keytest()
    Print(Str(KeyArray))   
    Sync()
loop
end
 
 
 
function keytest()
 KeyArray=0
  
 if GetRawKeyState(87)      // w (north)
   //KeyArray=KeyArray || %1000
   KeyArray=KeyArray+8  
  endif
 if GetRawKeyState(65)      // a (west)
   //KeyArray=KeyArray || %0001
   KeyArray=KeyArray+1   
 endif
 if GetRawKeyState(83)      // s (south)
   //KeyArray=KeyArray || %0010  
   KeyArray=KeyArray+2   
 endif
 if GetRawKeyState(68)      // d (east)
//   KeyArray=KeyArray || %0100
   KeyArray=KeyArray+4   
 endif
 
endfunction(KeyArray)