Ruby Quellcode

#============================================================================== 
# ** Keyboard Modul von Kai unter Verwendung von Near Fantasticas Keyboard-Script
# => Ermöglicht Abfrage von Tasten über den Aufruf
# Keyboard.key_down?(Keyboard::Taste)
# Keyboard.key_press?(Keyboard::Taste)
# Keyboard.key_up?(Keyboard::Taste)
# Wobei Taste eine der unten stehenden Konstanten darstellt
#==============================================================================
 
module Input
  #--------------------------------------------------------------------------
  # * Konstanten von Near Fantastica
  #--------------------------------------------------------------------------
  Mouse_Left  	= 1   	; Mouse_Right 	= 2
  Back        	= 8   	; Tab         	= 9
  Enter       	= 13  	; Shift       	= 16
  Ctrl        	= 17  	; Alt         	= 18
  Capslock    	= 20  	; Esc         	= 27
  Space       	= 32  	; End         	= 35
  Home        	= 36  	; Left        	= 37
  Right       	= 39
  Del         	= 46  	; Collon      	= 186
  Equal       	= 187 	; Comma       	= 188
  Underscore  	= 189 	; Dot         	= 190
  Backslash   	= 191 	; Tilde       	= 192
  Lb          	= 219 	; Rb          	= 221
  Forwardslash	= 220 	; Quote       	= 222
  Numberkeys = ('0'..'9').inject({}) do |h, c| h[c] = c[0]; h end
  Numberpad   	= {}  	; Numberpad[0]	= 45
  Numberpad[1]	= 35  	; Numberpad[2]	= 40
  Numberpad[3]	= 34  	; Numberpad[4]	= 37
  Numberpad[5]	= 12  	; Numberpad[6]	= 39
  Numberpad[7]	= 36  	; Numberpad[8]	= 38
  Numberpad[9]	= 33
  Numpad = {}           	; Numpad[0] = 96
  Numpad[1] = 97        	; Numpad[2] = 98
  Numpad[3] = 99        	; Numpad[4] = 100
  Numpad[5] = 101       	; Numpad[6] = 102
  Numpad[7] = 103       	; Numpad[8] = 104
  Numpad[9] = 105
  Letters = ('A'..'Z').inject({}) do |h, c| h[c] = c[0]; h end
 
  Fkeys       	= {}  	; Fkeys[1]    	= 112
  Fkeys[2]    	= 113 	; Fkeys[3]    	= 114
  Fkeys[4]    	= 115 	; Fkeys[5]    	= 116
  Fkeys[6]    	= 117 	; Fkeys[7]    	= 118
  Fkeys[8]    	= 119 	; Fkeys[9]    	= 120
  Fkeys[10]   	= 121 	; Fkeys[11]   	= 122
  Fkeys[12]   	= 123
 
  DOWN = [Letters['S']]
  UP = [Letters['W']]
  LEFT = [Letters['A']]
  RIGHT = [Letters['D']]
  A = [Shift]
  B = [Tab]
  C = [Enter, Space]
  X = [Del]
  Y = [Esc]
  Z = [Alt]
  L = [Letters['Q']]
  R = [Letters['E']]
  #--------------------------------------------------------------------------
  # * WinAPI
  #--------------------------------------------------------------------------
  GetKeyboardState = Win32API.new('user32', 'GetKeyboardState', 'P', 'L')
  #--------------------------------------------------------------------------
  # * most significant bit
  #--------------------------------------------------------------------------
  MSB = 128
  @wait = 0
  #--------------------------------------------------------------------------
  # * Get Key State (Test Pressed)
  #--------------------------------------------------------------------------
  def self.getkeystate(buffer)
	GetKeyboardState.call(buffer)
  end
  #--------------------------------------------------------------------------
  # * Gibt true zurück, wenn Taste heruntergedrückt wurde
  #--------------------------------------------------------------------------
  def self.trigger?(tasten)
	tasten = tasten.to_a if tasten.is_a?(Fixnum)
	for taste in tasten
  	y = (@pressed[taste] & MSB == MSB) && (@last[taste] & MSB != MSB)
  	return y if y == true
	end
	return false
  end
  #--------------------------------------------------------------------------
  # * Gibt true zurück, wenn Taste gedrückt gehalten wird
  #--------------------------------------------------------------------------
  def self.press?(tasten)
	tasten = tasten.to_a if tasten.is_a?(Fixnum)
	for taste in tasten
  	y = @pressed[taste] & MSB == MSB
  	return y if y == true
	end
	return false
  end
  #--------------------------------------------------------------------------
  # * Gibt true zurück, wenn Taste wiederholt gedrückt gehalten wird
  #--------------------------------------------------------------------------
  def self.repeat?(tasten)
	max_wait = 4
	tasten = tasten.to_a if tasten.is_a?(Fixnum)
	@wait += 1
	for taste in tasten
  	if not key_down?(taste) and press?(taste)
    	if @wait == max_wait
      	@wait = 0
      	return true
    	end
  	else
    	@wait = max_wait-1
  	end
	end
	return false
  end
  #--------------------------------------------------------------------------
  # * Update
  #--------------------------------------------------------------------------
  @pressed = ' ' * 256
  @last = ' ' * 256
  def self.update2
	@last.replace(@pressed)
	getkeystate(@pressed)
  end
 
  #--------------------------------------------------------------------------
  # * Gibt true zurück, wenn Taste heruntergedrückt wurde
  #--------------------------------------------------------------------------
  def self.key_down?(tasten)
	tasten = tasten.to_a if tasten.is_a?(Fixnum)
	for taste in tasten
 	x = (@pressed[taste] & MSB == MSB) && (@last[taste] & MSB != MSB)
 	return x if x == true
   end
   return false
  end
end
#==============================================================================
# ** Input
#==============================================================================
class << Input
  alias update_rx_keys update
  def update
	Input.update2
	update_rx_keys
  end
end