685 if ZoomValue < 3.0 then ZoomValue:= ZoomValue + 0.25;

   685 if ZoomValue < 3.0 then ZoomValue:= ZoomValue + 0.25;

   686 end;

   686 end;

   687 

   687 

   688 procedure chZoomOut(var s: shortstring);

   688 procedure chZoomOut(var s: shortstring);

   689 begin

   689 begin

   691 end;

   691 end;

   692 

   692 

   693 procedure chChat(var s: shortstring);

   693 procedure chChat(var s: shortstring);

   694 begin

   694 begin

   695 GameState:= gsChat;

   695 GameState:= gsChat;