hedgewars/uGears.pas
changeset 13761 6fd56a26e8b8
parent 13755 6908d1e65cdc
child 13777 3fa9e30927f1
equal deleted inserted replaced
13760:72a8c0d63d80 13761:6fd56a26e8b8
    61 var skipFlag: boolean;
    61 var skipFlag: boolean;
    62 
    62 
    63 var delay: LongWord;
    63 var delay: LongWord;
    64     delay2: LongWord;
    64     delay2: LongWord;
    65     step: (stInit, stDelay, stChDmg, stSweep, stTurnStats, stChWin1,
    65     step: (stInit, stDelay, stChDmg, stSweep, stTurnStats, stChWin1,
    66     stTurnReact, stAfterDelay, stChWin2, stWater, stChWin3, stHealth,
    66     stTurnReact, stAfterDelay, stChWin2, stWater, stChWin3,
    67     stSpawn, stNTurn);
    67     stHealth, stSpawn, stNTurn);
    68     NewTurnTick: LongWord;
    68     NewTurnTick: LongWord;
    69     //SDMusic: shortstring;
    69     //SDMusic: shortstring;
    70 
    70 
    71 function CheckNoDamage: boolean; // returns TRUE in case of no damaged hhs
    71 function CheckNoDamage: boolean; // returns TRUE in case of no damaged hhs
    72 var Gear: PGear;
    72 var Gear: PGear;
   305     stTurnReact:
   305     stTurnReact:
   306         begin
   306         begin
   307         if (not bBetweenTurns) and (not isInMultiShoot) then
   307         if (not bBetweenTurns) and (not isInMultiShoot) then
   308             begin
   308             begin
   309             uStats.TurnReaction;
   309             uStats.TurnReaction;
       
   310             uStats.TurnStatsReset;
   310             inc(step)
   311             inc(step)
   311             end
   312             end
   312         else
   313         else
   313             inc(step, 2);
   314             inc(step, 2);
   314         end;
   315         end;