1699             ScreenFadeSpeed := 1;

  1699             ScreenFadeSpeed := 1;

  1700             end;

  1700             end;

  1701         if Gear^.Timer = 0 then

  1701         if Gear^.Timer = 0 then

  1702             begin

  1702             begin

  1703             SendIPC(_S'N');

  1703             SendIPC(_S'N');

  1704             SendIPC(_S'q');

  1706             SendIPC(_S'q');

  1705             GameState := gsExit

  1707             GameState := gsExit

  1706             end

  1708             end

  1707         end;

  1709         end;

  1708     end;

  1710     end;