hedgewars/PascalExports.pas
changeset 3635 38d3e31556d3
parent 3626 19f78afa0188
child 3637 0db298524c3d
--- 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);