diff -r c11abf387a7d -r d5b30d6373fc hedgewars/uKeys.pas --- a/hedgewars/uKeys.pas Sat Jul 31 10:52:43 2010 +0200 +++ b/hedgewars/uKeys.pas Sat Jul 31 11:24:53 2010 +0200 @@ -71,16 +71,16 @@ rightKey: boolean; leftKey: boolean; preciseKey: boolean; - + backspaceKey: boolean; spaceKey: boolean; enterKey: boolean; tabKey: boolean; - + chatAction: boolean; pauseAction: boolean; - -{$IFDEF IPHONEOS} + +{$IFDEF IPHONEOS} procedure setiPhoneBinds; {$ENDIF} {$ENDIF} @@ -90,7 +90,7 @@ var tkbd, tkbdn: TKeyboardState; KeyNames: array [0..cKeyMaxIndex] of string[15]; - + function KeyNameToCode(name: shortstring): word; var code: Word; begin @@ -247,7 +247,7 @@ inc(k, 1); end; end; - + for t:= 0 to cKeyMaxIndex do tkbd[i]:= tkbdn[i] end; @@ -386,7 +386,7 @@ tkbdn[44]:= ord(chatAction); tkbdn[55]:= ord(pauseAction); - + // set to false the keys that only need one stoke leftClick:= false; middleClick:= false; @@ -395,7 +395,7 @@ tabKey:= false; enterKey:= false; backspaceKey:= false; - + chatAction:= false; pauseAction:= false; end; @@ -408,7 +408,7 @@ end; var Controller: array [0..5] of PSDL_Joystick; - + procedure ControllerInit; var i, j: Integer; begin @@ -442,12 +442,12 @@ WriteLnToConsole('* Number of hats: ' + inttostr(ControllerNumHats[j])); WriteLnToConsole('* Number of buttons: ' + inttostr(ControllerNumButtons[j])); ControllerEnabled:= 1; - + if ControllerNumAxes[j] > 20 then ControllerNumAxes[j]:= 20; //if ControllerNumBalls[j] > 20 then ControllerNumBalls[j]:= 20; if ControllerNumHats[j] > 20 then ControllerNumHats[j]:= 20; if ControllerNumButtons[j] > 20 then ControllerNumButtons[j]:= 20; - + // reset all buttons/axes for i:= 0 to pred(ControllerNumAxes[j]) do ControllerAxes[j][i]:= 0; @@ -465,7 +465,7 @@ // enable event generation/controller updating SDL_JoystickEventState(1); end -else +else WriteLnToConsole('Not using any game controller'); end; @@ -500,7 +500,7 @@ coeff:= 5; {$IFDEF HWLIBRARY} // this function is called by HW_allKeysUp so be careful - + // mouse emulation leftClick:= false; middleClick:= false;