--- a/hedgewars/CCHandlers.inc	Sun Sep 24 21:32:18 2006 +0000
+++ b/hedgewars/CCHandlers.inc	Mon Sep 25 19:48:51 2006 +0000
@@ -386,4 +386,19 @@
           end
 end;
 
+procedure chFullScr(var s: shortstring);
+var flags: Longword;
+begin
+if Length(s) = 0 then cFullScreen:= not cFullScreen
+                 else cFullScreen:= s = '1';
+   
+flags:= SDL_HWSURFACE or SDL_DOUBLEBUF or SDL_HWACCEL;
+if cFullScreen then flags:= flags or SDL_FULLSCREEN
+               else SDL_WM_SetCaption('Hedgewars', nil);
+SDL_FreeSurface(SDLPrimSurface);
+SDLPrimSurface:= SDL_SetVideoMode(cScreenWidth, cScreenHeight, cBits, flags);
+TryDo(SDLPrimSurface <> nil, errmsgCreateSurface, true);
+PixelFormat:= SDLPrimSurface.format;
+SDL_ShowCursor(0)
+end;