--- a/hedgewars/PascalExports.pas Sat Jul 10 15:39:07 2010 +0200
+++ b/hedgewars/PascalExports.pas Sat Jul 10 18:42:47 2010 +0200
@@ -20,6 +20,8 @@
implementation
{$IFDEF HWLIBRARY}
+var xx, yy: LongInt;
+
// retrieve protocol information
procedure HW_versionInfo(netProto: PShortInt; versionStr: Ppchar); cdecl; export;
begin
@@ -174,6 +176,18 @@
CursorPoint.Y:= y;
end;
+procedure HW_saveCursor(reset: boolean); cdecl; export;
+begin
+ if reset then
+ begin
+ CursorPoint.X:= xx;
+ CursorPoint.Y:= yy;
+ end
+ else
+ xx:= CursorPoint.X;
+ yy:= CursorPoint.Y;
+end;
+
function HW_isAmmoOpen:boolean; cdecl; export;
begin
exit(bShowAmmoMenu);