hedgewars/uGearsHedgehog.pas
changeset 11822 4600dcb9db4f
parent 11765 10860d4bca22
child 11847 38e7206a5df4
equal deleted inserted replaced
11821:d8844d4c67de 11822:4600dcb9db4f
   730                     end;
   730                     end;
   731      posCaseHealth: begin
   731      posCaseHealth: begin
   732                     PlaySound(sndShotgunReload);
   732                     PlaySound(sndShotgunReload);
   733                     inc(HH^.Health, Gear^.Health);
   733                     inc(HH^.Health, Gear^.Health);
   734                     HH^.Hedgehog^.Effects[hePoisoned] := 0;
   734                     HH^.Hedgehog^.Effects[hePoisoned] := 0;
   735                     str(Gear^.Health, s);
   735                     s:= '+' + IntToStr(Gear^.Health);
   736                     s:= '+' + s;
       
   737                     AddCaption(ansistring(s), HH^.Hedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
   736                     AddCaption(ansistring(s), HH^.Hedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
   738                     RenderHealth(HH^.Hedgehog^);
   737                     RenderHealth(HH^.Hedgehog^);
   739                     RecountTeamHealth(HH^.Hedgehog^.Team);
   738                     RecountTeamHealth(HH^.Hedgehog^.Team);
   740 
   739 
   741                     i:= 0;
   740                     i:= 0;