--- a/hedgewars/CCHandlers.inc	Sun Nov 26 21:19:24 2006 +0000
+++ b/hedgewars/CCHandlers.inc	Mon Nov 27 17:29:08 2006 +0000
@@ -415,8 +415,7 @@
 AddFileLog('SDL video driver: ' + string(SDL_VideoDriverName(buf, sizeof(buf))));
 {$ENDIF}
 TryDo(SDLPrimSurface <> nil, errmsgCreateSurface, true);
-PixelFormat:= SDLPrimSurface.format;
-SDL_ShowCursor(0)
+PixelFormat:= SDLPrimSurface.format
 end;
 
 procedure chVol_p(var s: shortstring);
@@ -436,3 +435,9 @@
 FollowGear:= CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog].Gear
 end;
 
+procedure chPause(var s: shortstring);
+begin
+isPaused:= not isPaused;
+SDL_ShowCursor(ord(isPaused))
+end;
+