hedgewars/CCHandlers.inc
changeset 2379 d62b1f224982
parent 2373 e3989519731b
child 2396 e13a1117152b
--- a/hedgewars/CCHandlers.inc	Thu Sep 10 15:35:34 2009 +0000
+++ b/hedgewars/CCHandlers.inc	Thu Sep 10 18:50:53 2009 +0000
@@ -690,6 +690,11 @@
 if ZoomValue > 1.0 then ZoomValue:= ZoomValue - 0.25;
 end;
 
+procedure chZoomReset(var s: shortstring);
+begin
+ZoomValue:= 2.0
+end;
+
 procedure chChat(var s: shortstring);
 begin
 GameState:= gsChat;