686             if Gear^.Tex <> nil then FreeTexture(Gear^.Tex);

   686             if Gear^.Tex <> nil then FreeTexture(Gear^.Tex);

   687             Gear^.Tex:= RenderStringTex(inttostr(Gear^.Timer div 1000), cWhiteColor, fntSmall);

   687             Gear^.Tex:= RenderStringTex(inttostr(Gear^.Timer div 1000), cWhiteColor, fntSmall);

   688             end;

   688             end;

   689         Gear^.doStep(Gear);

   689         Gear^.doStep(Gear);

   690         // might be useful later

   690         // might be useful later

   692         end

   692         end

   693     end;

   693     end;

   694 

   694 

   695 if AllInactive then

   695 if AllInactive then

   696 case step of

   696 case step of

   970            spawnHealthTagForHH(CurrentHedgehog^.Gear, tmpDmg);

   970            spawnHealthTagForHH(CurrentHedgehog^.Gear, tmpDmg);

   971            end;

   971            end;

   972         end;

   972         end;

   973     end;

   973     end;

   974     inc(Gear^.Damage, Damage);

   974     inc(Gear^.Damage, Damage);

   976 end;

   976 end;

   977 

   977 

   978 procedure SetAllToActive;

   978 procedure SetAllToActive;

   979 var t: PGear;

   979 var t: PGear;

   980 begin

   980 begin