420    if CurrentTeam <> nil then

   420    if CurrentTeam <> nil then

   421       if CurrentHedgehog^.Gear <> nil then

   421       if CurrentHedgehog^.Gear <> nil then

   422          if ((CurrentHedgehog^.Gear^.State and gstAttacking) = 0)

   422          if ((CurrentHedgehog^.Gear^.State and gstAttacking) = 0)

   423             and not isInMultiShoot then dec(TurnTimeLeft);

   423             and not isInMultiShoot then dec(TurnTimeLeft);

   424 

   424 

   425 inc(GameTicks)

   426 inc(GameTicks)

   426 end;

   427 end;

   427 

   428 

   428 procedure SetAllToActive;

   429 procedure SetAllToActive;

   429 var t: PGear;

   430 var t: PGear;