688 procedure chZoomOut(var s: shortstring);

   688 procedure chZoomOut(var s: shortstring);

   689 begin

   689 begin

   690 if ZoomValue > 1.0 then ZoomValue:= ZoomValue - 0.25;

   690 if ZoomValue > 1.0 then ZoomValue:= ZoomValue - 0.25;

   691 end;

   691 end;

   692 

   692 

   693 procedure chChat(var s: shortstring);

   698 procedure chChat(var s: shortstring);

   694 begin

   699 begin

   695 GameState:= gsChat;

   700 GameState:= gsChat;

   696 KeyPressChat(27)

   701 KeyPressChat(27)

   697 end;

   702 end;