hedgewars/uWorld.pas
changeset 281 5b483aa9f2ab
parent 244 b37ca2295b73
child 282 b1e3387389b6
--- a/hedgewars/uWorld.pas	Sun Nov 26 21:19:24 2006 +0000
+++ b/hedgewars/uWorld.pas	Mon Nov 27 17:29:08 2006 +0000
@@ -170,7 +170,7 @@
     end;
 
 begin
-MoveCamera;
+if not isPaused then MoveCamera;
 
 // Sky
 inc(RealTicks, Lag);
@@ -371,6 +371,8 @@
 DXOutText(10, 10, fnt16, inttostr(cntTicks), Surface);
 {$ENDIF}
 
+if isPaused then DrawCentered(cScreenWidth div 2, cScreenHeight div 2, PauseSurface, Surface);
+
 inc(Frames);
 inc(CountTicks, Lag);
 if CountTicks >= 1000 then