--- a/hedgewars/PascalExports.pas	Mon Sep 19 23:18:48 2011 +0200
+++ b/hedgewars/PascalExports.pas	Mon Sep 19 23:35:07 2011 +0200
@@ -36,6 +36,7 @@
 implementation
 {$IFDEF HWLIBRARY}
 var cZoomVal: GLfloat;
+    previousGameState: TGameState;
 
 // retrieve protocol information
 procedure HW_versionInfo(netProto: PLongInt; versionStr: PPChar); cdecl; export;
@@ -184,6 +185,17 @@
     exit( isPaused );
 end;
 
+procedure HW_suspend; cdecl; export;
+begin
+    previousGameState:= GameState;
+    GameState:= gsSuspend;
+end;
+
+procedure HW_resume; cdecl; export;
+begin
+    GameState:= previousGameState;
+end;
+
 // equivalent to esc+y; when closeFrontend = true the game exits after memory cleanup
 procedure HW_terminate(closeFrontend: boolean); cdecl; export;
 begin