index 670390a2b4c256f2ac257e35e4c972c79ee75c69..4f10301a04bc3ac35a30234833121b4fd2f1fe71 100644 (file)
IK_Y = 106;
IK_Z = 107;
IK_MINUS = 108;
IK_Y = 106;
IK_Z = 107;
IK_MINUS = 108;
- IK_RMETA = 109;
- IK_LMETA = 110;
+ IK_NONUSBACKSLASH = 111;
// TODO: think of something better than this shit
IK_LASTKEY = e_MaxKbdKeys-1;
// TODO: think of something better than this shit
IK_LASTKEY = e_MaxKbdKeys-1;
JOY2_DOWN = JOYH_BEG + 2*e_MaxJoyHats*4 + 0*4 + HAT_DOWN;
JOY3_DOWN = JOYH_BEG + 3*e_MaxJoyHats*4 + 0*4 + HAT_DOWN;
JOY2_DOWN = JOYH_BEG + 2*e_MaxJoyHats*4 + 0*4 + HAT_DOWN;
JOY3_DOWN = JOYH_BEG + 3*e_MaxJoyHats*4 + 0*4 + HAT_DOWN;
-function e_InitInput: Boolean;
-procedure e_ReleaseInput;
+procedure e_Input_Initialize;
+procedure e_Input_Finalize;
+
procedure e_UnpressAllKeys;
procedure e_KeyUpDown (key: Integer; down: Boolean);
procedure e_UnpressAllKeys;
procedure e_KeyUpDown (key: Integer; down: Boolean);
e_KeyNames[IK_DOT] := '.';
e_KeyNames[IK_MINUS] := '-';
e_KeyNames[IK_EQUALS] := '=';
e_KeyNames[IK_DOT] := '.';
e_KeyNames[IK_MINUS] := '-';
e_KeyNames[IK_EQUALS] := '=';
- e_KeyNames[IK_RMETA] := 'RMETA';
- e_KeyNames[IK_LMETA] := 'LMETA';
+ e_KeyNames[IK_NONUSBACKSLASH] := 'NONUSBACKSLASH';
// joysticks
for j := 0 to e_MaxJoys-1 do
// joysticks
for j := 0 to e_MaxJoys-1 do
result := i < e_MaxJoys
end;
result := i < e_MaxJoys
end;
-function e_InitInput: Boolean;
+procedure e_Input_Initialize;
var i: Integer;
begin
for i := 0 to e_MaxJoys - 1 do
e_JoystickAvailable[i] := False;
var i: Integer;
begin
for i := 0 to e_MaxJoys - 1 do
e_JoystickAvailable[i] := False;
- GenerateKeyNames;
- result := True
+ GenerateKeyNames
end;
end;
-procedure e_ReleaseInput;
+procedure e_Input_Finalize;
var i: Integer;
begin
for i := 0 to e_MaxJoys - 1 do
var i: Integer;
begin
for i := 0 to e_MaxJoys - 1 do