1749 else UndampenAudio();

  1749 else UndampenAudio();

  1750 end;

  1750 end;

  1751 

  1751 

  1752 procedure SetUtilityWidgetState(ammoType: TAmmoType);

  1752 procedure SetUtilityWidgetState(ammoType: TAmmoType);

  1753 begin

  1753 begin

  1754 if(ammoType = amNothing)then

  1755 if(ammoType = amNothing)then

  1755     ammoType:= CurrentHedgehog^.CurAmmoType;

  1756     ammoType:= CurrentHedgehog^.CurAmmoType;

  1756 

  1757 

  1757 if(CurrentHedgehog <> nil)then

  1758 if(CurrentHedgehog <> nil)then

  1758     if (Ammoz[ammoType].Ammo.Propz and ammoprop_Timerable) <> 0 then

  1759     if (Ammoz[ammoType].Ammo.Propz and ammoprop_Timerable) <> 0 then

  1770         utilityWidget.sprite:= sprTargetButton;

  1771         utilityWidget.sprite:= sprTargetButton;

  1771         animateWidget(@utilityWidget, true, true);

  1772         animateWidget(@utilityWidget, true, true);

  1772         end

  1773         end

  1773     else if utilityWidget.show then

  1774     else if utilityWidget.show then

  1774         animateWidget(@utilityWidget, true, false); 

  1775         animateWidget(@utilityWidget, true, false); 

  1775 end;

  1777 end;

  1776 

  1778 

  1777 procedure animateWidget(widget: POnScreenWidget; fade, showWidget: boolean);

  1779 procedure animateWidget(widget: POnScreenWidget; fade, showWidget: boolean);

  1778 begin

  1780 begin

  1779 with widget^ do

  1781 with widget^ do