hedgewars/uGears.pas
changeset 15897 d7b53d08ad9c
parent 15865 a722c8e86573
child 15936 303cf91e5233
equal deleted inserted replaced
15894:c09063ea0267 15897:d7b53d08ad9c
   626 AddRandomness(CheckSum);
   626 AddRandomness(CheckSum);
   627 TurnClockActive:= prevtime <> TurnTimeLeft;
   627 TurnClockActive:= prevtime <> TurnTimeLeft;
   628 inc(GameTicks);
   628 inc(GameTicks);
   629 if (OuchTauntTimer > 0) then
   629 if (OuchTauntTimer > 0) then
   630     dec(OuchTauntTimer);
   630     dec(OuchTauntTimer);
       
   631 if fastForward and (GameTicks = FFGameTick) then
       
   632    ParseCommand('sff', true);
   631 end;
   633 end;
   632 
   634 
   633 //Purpose, to reset all transient attributes toggled by a utility and clean up various gears and effects at end of turn
   635 //Purpose, to reset all transient attributes toggled by a utility and clean up various gears and effects at end of turn
   634 //If any of these are set as permanent toggles in the frontend, that needs to be checked and skipped here.
   636 //If any of these are set as permanent toggles in the frontend, that needs to be checked and skipped here.
   635 procedure EndTurnCleanup;
   637 procedure EndTurnCleanup;