39         end

    39         end

    40     end

    40     end

    41 end;

    41 end;

    42 

    42 

    43 procedure chQuit(var s: shortstring);

    43 procedure chQuit(var s: shortstring);

    45 begin

    44 begin

    46     s:= s; // avoid compiler hint

    45     s:= s; // avoid compiler hint

    47     if (GameState = gsGame) or (GameState = gsChat) then

    46     if (GameState = gsGame) or (GameState = gsChat) then

    48         begin

    47         begin

    49         prevGState:= GameState;

    48         prevGState:= GameState;