This reduces CheckLand ~5.5% on average over prior making the overall reduction ~77.4% instead of ~81.9%. It does skip centre pixel in odd w/h, but that really shouldn't matter much in this case. Can alter if any objects are noticeably off.
(*
* PascalExports.pas
* hwengine
*
* Created by Vittorio on 09/01/10.
* Copyright 2009 __MyCompanyName__. All rights reserved.
*
*)
{$INCLUDE "options.inc"}
unit PascalExports;
interface
uses uKeys, GLunit, uWorld, hwengine;
{$INCLUDE "config.inc"}
implementation
{$IFDEF HWLIBRARY}
// retrieve protocol information
procedure HW_versionInfo(netProto: PShortInt; versionStr: Ppchar); cdecl; export;
begin
// http://bugs.freepascal.org/view.php?id=16156
if netProto <> nil then netProto^:= cNetProtoVersion;
if versionStr <> nil then versionStr^:= cVersionString;
end;
procedure HW_click; cdecl; export;
begin
leftClick:= true;
end;
procedure HW_zoomIn; cdecl; export;
begin
wheelUp:= true;
end;
procedure HW_zoomOut; cdecl; export;
begin
wheelDown:= true;
end;
procedure HW_zoomReset; cdecl; export;
begin
middleClick:= true;
end;
procedure HW_ammoMenu; cdecl; export;
begin
rightClick:= true;
end;
procedure HW_allKeysUp; cdecl; export;
begin
// set all keys to released
uKeys.initModule;
end;
procedure HW_walkLeft; cdecl; export;
begin
leftKey:= true;
end;
procedure HW_walkRight; cdecl; export;
begin
rightKey:= true;
end;
procedure HW_aimUp; cdecl; export;
begin
upKey:= true;
end;
procedure HW_aimDown; cdecl; export;
begin
downKey:= true;
end;
procedure HW_shoot; cdecl; export;
begin
spaceKey:= true;
end;
procedure HW_jump; cdecl; export;
begin
enterKey:= true;
end;
procedure HW_backjump; cdecl; export;
begin
backspaceKey:= true;
end;
procedure HW_chat; cdecl; export;
begin
chatAction:= true;
end;
procedure HW_tab; cdecl; export;
begin
switchAction:= true;
end;
procedure HW_pause; cdecl; export;
begin
pauseAction:= true;
end;
procedure HW_cursorUp(coefficient:LongInt); cdecl; export;
begin
coeff:= coefficient;
cursorUp:= true;
end;
procedure HW_cursorDown(coefficient:LongInt); cdecl; export;
begin
coeff:= coefficient;
cursorDown:= true;
end;
procedure HW_cursorLeft(coefficient:LongInt); cdecl; export;
begin
coeff:= coefficient;
cursorLeft:= true;
end;
procedure HW_cursorRight(coefficient:LongInt); cdecl; export;
begin
coeff:= coefficient;
cursorRight:= true;
end;
procedure HW_terminate(closeFrontend: boolean); cdecl; export;
begin
isTerminated:= true;
if closeFrontend then alsoShutdownFrontend:= true;
end;
procedure HW_setLandscape(landscape: boolean); cdecl; export;
begin
if landscape then
begin
cOffsetY:= 0;
end
else
begin
cOffsetY:= 120;
end;
end;
{$ENDIF}
end.