74     delay2: LongWord;

    74     delay2: LongWord;

    75     step: (stDelay, stChDmg, stSweep, stTurnReact,

    75     step: (stDelay, stChDmg, stSweep, stTurnReact,

    76     stAfterDelay, stChWin, stWater, stChWin2, stHealth,

    76     stAfterDelay, stChWin, stWater, stChWin2, stHealth,

    77     stSpawn, stNTurn);

    77     stSpawn, stNTurn);

    78     upd: Longword;

    78     upd: Longword;

    79 

    80 

    80 // For better maintainability the step handlers of gears are stored in

    81 // For better maintainability the step handlers of gears are stored in

    81 // separate files.

    82 // separate files.

    82 // Note: step handlers of gears that are hedgehogs are in a different file

    83 // Note: step handlers of gears that are hedgehogs are in a different file

    83 //       than the handlers for all other gears.

    84 //       than the handlers for all other gears.

   311                     Ammoz[amTardis].Probability:= 0;

   312                     Ammoz[amTardis].Probability:= 0;

   312                     end;

   313                     end;

   313                 AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);

   314                 AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);

   314                 playSound(sndSuddenDeath);

   315                 playSound(sndSuddenDeath);

   315                 StopMusic //No SDMusic for now

   316                 StopMusic //No SDMusic for now

   318                     end

   318                     end

   319                 else if (TotalRounds < cSuddenDTurns) and (not isInMultiShoot) then

   319                 else if (TotalRounds < cSuddenDTurns) and (not isInMultiShoot) then

   320                     begin

   320                     begin

   321                     i:= cSuddenDTurns - TotalRounds;

   321                     i:= cSuddenDTurns - TotalRounds;

   322                     s:= inttostr(i);

   322                     s:= inttostr(i);

  1324     //typed const

  1324     //typed const

  1325     delay:= 0;

  1325     delay:= 0;

  1326     delay2:= 0;

  1326     delay2:= 0;

  1327     step:= stDelay;

  1327     step:= stDelay;

  1328     upd:= 0;

  1328     upd:= 0;

  1329 end;

  1331 end;

  1330 

  1332 

  1331 procedure freeModule;

  1333 procedure freeModule;

  1332 begin

  1334 begin

  1333     FreeGearsList();

  1335     FreeGearsList();