equal
deleted
inserted
replaced
786 end; |
786 end; |
787 |
787 |
788 procedure OpenChat(s: shortstring); |
788 procedure OpenChat(s: shortstring); |
789 var i: Integer; |
789 var i: Integer; |
790 begin |
790 begin |
|
791 if GameState = gsConfirm then |
|
792 ParseCommand('quit', true); |
791 isInChatMode:= true; |
793 isInChatMode:= true; |
792 SDL_StopTextInput(); |
794 SDL_StopTextInput(); |
793 SDL_StartTextInput(); |
795 SDL_StartTextInput(); |
794 //Make REALLY sure unexpected events are flushed (1 time is insufficient as of SDL 2.0.7) |
796 //Make REALLY sure unexpected events are flushed (1 time is insufficient as of SDL 2.0.7) |
795 for i := 1 to 2 do |
797 for i := 1 to 2 do |