hedgewars/PascalExports.pas
changeset 5662 99083392cd4f
parent 5492 a0455a050ca8
child 5725 e27100a0e2d0
child 5968 4e8bb227be9a
--- a/hedgewars/PascalExports.pas	Mon Aug 22 23:56:25 2011 +0200
+++ b/hedgewars/PascalExports.pas	Tue Aug 23 03:46:17 2011 +0200
@@ -36,7 +36,6 @@
 implementation
 {$IFDEF HWLIBRARY}
 var cZoomVal: GLfloat;
-    previousGameState: TGameState;
 
 // retrieve protocol information
 procedure HW_versionInfo(netProto: PLongInt; versionStr: PPChar); cdecl; export;
@@ -185,17 +184,6 @@
     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