equal
deleted
inserted
replaced
663 procedure chSpeedup_m(var s: shortstring); |
663 procedure chSpeedup_m(var s: shortstring); |
664 begin |
664 begin |
665 isSpeed:= false |
665 isSpeed:= false |
666 end; |
666 end; |
667 |
667 |
|
668 procedure chZoomIn(var s: shortstring); |
|
669 begin |
|
670 if zoom < 4.0 then zoom:= zoom + 0.25; |
|
671 end; |
|
672 |
|
673 procedure chZoomOut(var s: shortstring); |
|
674 begin |
|
675 if zoom > 0.25 then zoom:= zoom - 0.25; |
|
676 end; |
|
677 |
668 procedure chChat(var s: shortstring); |
678 procedure chChat(var s: shortstring); |
669 begin |
679 begin |
670 GameState:= gsChat; |
680 GameState:= gsChat; |
671 KeyPressChat(27) |
681 KeyPressChat(27) |
672 end; |
682 end; |