--- a/hedgewars/CCHandlers.inc	Sat Jun 13 15:30:40 2009 +0000
+++ b/hedgewars/CCHandlers.inc	Sat Jun 13 15:39:26 2009 +0000
@@ -665,6 +665,16 @@
 isSpeed:= false
 end;
 
+procedure chZoomIn(var s: shortstring);
+begin
+if zoom < 4.0 then zoom:= zoom + 0.25;
+end;
+
+procedure chZoomOut(var s: shortstring);
+begin
+if zoom > 0.25 then zoom:= zoom - 0.25;
+end;
+
 procedure chChat(var s: shortstring);
 begin
 GameState:= gsChat;