hedgewars/uCommandHandlers.pas
changeset 15984 6a985a680c44
parent 15983 416bca0a172c
child 16004 2146cb7be36f
equal deleted inserted replaced
15983:416bca0a172c 15984:6a985a680c44
    47 
    47 
    48 procedure chQuit(var s: shortstring);
    48 procedure chQuit(var s: shortstring);
    49 begin
    49 begin
    50     s:= s; // avoid compiler hint
    50     s:= s; // avoid compiler hint
    51     if (GameState = gsGame) then
    51     if (GameState = gsGame) then
    52     begin
    52         begin
    53         CloseChat;
    53         CloseChat;
    54         GameState:= gsConfirm;
    54         GameState:= gsConfirm;
    55     end
    55         end
    56     else begin
    56     else
    57         if GameState = gsConfirm then
    57         if GameState = gsConfirm then
       
    58             begin
    58             GameState:= gsGame;
    59             GameState:= gsGame;
    59     end;
    60             RestoreChat;
    60 
    61             end;
    61     updateCursorVisibility;
    62     updateCursorVisibility;
    62 end;
    63 end;
    63 
    64 
    64 procedure chForceQuit(var s: shortstring);
    65 procedure chForceQuit(var s: shortstring);
    65 begin
    66 begin