25 procedure initModule;

    25 procedure initModule;

    26 procedure freeModule;

    26 procedure freeModule;

    27 

    27 

    28 implementation

    28 implementation

    29 uses uCommands, uTypes, uVariables, uIO, uDebug, uConsts, uScript, uUtils, SDLh, uWorld, uRandom, uCaptions

    29 uses uCommands, uTypes, uVariables, uIO, uDebug, uConsts, uScript, uUtils, SDLh, uWorld, uRandom, uCaptions

    31      {$IFDEF USE_VIDEO_RECORDING}, uVideoRec {$ENDIF};

    31      {$IFDEF USE_VIDEO_RECORDING}, uVideoRec {$ENDIF};

    32 

    32 

    33 var cTagsMasks : array[0..15] of byte = (7, 0, 0, 0, 0, 4, 5, 6, 15, 8, 8, 8, 8, 12, 13, 14);

    33 var cTagsMasks : array[0..15] of byte = (7, 0, 0, 0, 0, 4, 5, 6, 15, 8, 8, 8, 8, 12, 13, 14);

    34     cTagsMasksNoHealth: array[0..15] of byte = (3, 0, 1, 2, 0, 0, 0, 0, 11, 8, 9, 10, 8, 8, 8, 8);

    34     cTagsMasksNoHealth: array[0..15] of byte = (3, 0, 1, 2, 0, 0, 0, 0, 11, 8, 9, 10, 8, 8, 8, 8);

    35 

    35 

    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

    54         GameState:= gsConfirm;

    54         GameState:= gsConfirm;

    55     end

    55     end

    56     else begin

    56     else begin

    57         if GameState = gsConfirm then

    57         if GameState = gsConfirm then

    58             GameState:= gsGame;

    58             GameState:= gsGame;