49         GameState:= gsConfirm;

    49         GameState:= gsConfirm;

    50         SDL_ShowCursor(1)

    50         SDL_ShowCursor(1)

    51     end else

    51     end else

    52     begin

    52     begin

    53         GameState:= prevGState;

    53         GameState:= prevGState;

    55     end

    55     end

    56 end;

    56 end;

    57 

    57 

    58 procedure chForceQuit(var s: shortstring);

    58 procedure chForceQuit(var s: shortstring);

    59 begin

    59 begin

   531 procedure chPause(var s: shortstring);

   531 procedure chPause(var s: shortstring);

   532 begin

   532 begin

   533 s:= s; // avoid compiler hint

   533 s:= s; // avoid compiler hint

   534 if gameType <> gmtNet then

   534 if gameType <> gmtNet then

   535     isPaused:= not isPaused;

   535     isPaused:= not isPaused;

   537 end;

   541 end;

   538 

   542 

   539 procedure chRotateMask(var s: shortstring);

   543 procedure chRotateMask(var s: shortstring);

   540 begin

   544 begin

   541 s:= s; // avoid compiler hint

   545 s:= s; // avoid compiler hint