equal
deleted
inserted
replaced
680 isSpeed:= false |
680 isSpeed:= false |
681 end; |
681 end; |
682 |
682 |
683 procedure chZoomIn(var s: shortstring); |
683 procedure chZoomIn(var s: shortstring); |
684 begin |
684 begin |
685 if zoom < 4.0 then zoom:= zoom + 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 |
690 if zoom > 0.25 then zoom:= zoom - 0.25; |
690 if ZoomValue > 0.5 then ZoomValue:= ZoomValue - 0.25; |
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; |