index 9e9c7d8aa60d12f4eabee89b8e83c06f11fa9114..effe559e475ec78ed53bc6dfe9858e5ea9e1f79b 100644 (file)
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);
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