[simspark-cvs] simspark/contrib/rsgedit bindings.rb,NONE,1.1

[Markus R. <rol...@us...>]

Update of /cvsroot/simspark/simspark/contrib/rsgedit
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27147

Added Files:
	bindings.rb 
Log Message:
- added bindings.rb


--- NEW FILE: bindings.rb ---
#
# bindings.rb sets up a mapping from input constants used by the
# inputserver to application defined command constants.
#
inputServer = get('/sys/server/input');

if (inputServer == nil)
  print "(bindings.rb) no InputServer present\n";
else
  print "(bindings.rb) setting up bindings\n";

  inputServer.bindCommand('axist',      Command.Timer);
  inputServer.bindCommand('axisx',      Command.MouseX);
  inputServer.bindCommand('axisy',      Command.MouseY);
  inputServer.bindCommand('mouse_left', Command.Mouselook);
  inputServer.bindCommand('mouse_right',Command.Up);
  inputServer.bindCommand('pagedown',   Command.Down);
  inputServer.bindCommand('kp_minus', Command.Down);
  inputServer.bindCommand('kp_plus',Command.Up);
  inputServer.bindCommand('pageup',     Command.Up);
  inputServer.bindCommand('q',          Command.Quit)
  inputServer.bindCommand('a',          Command.Left)
  inputServer.bindCommand('left',       Command.Left)
  inputServer.bindCommand('d',          Command.Right)
  inputServer.bindCommand('right',      Command.Right)
  inputServer.bindCommand('w',          Command.Forward)
  inputServer.bindCommand('up',         Command.Forward)
  inputServer.bindCommand('s',          Command.Backward)
  inputServer.bindCommand('down',       Command.Backward)
end