hedgewars/HHHandlers.inc
changeset 3100 5fe9c4ac4c99
parent 3080 b7fa8ad60e3b
child 3112 f1bbe35ddb83
equal deleted inserted replaced
3099:cc13b42ab593 3100:5fe9c4ac4c99
   334                         end;
   334                         end;
   335 
   335 
   336                     end;
   336                     end;
   337      posCaseHealth: begin
   337      posCaseHealth: begin
   338                     inc(HH^.Health, Gear^.Health);
   338                     inc(HH^.Health, Gear^.Health);
       
   339 										PHedgehog(HH^.Hedgehog)^.Poisoned := false;
   339                     str(Gear^.Health, s);
   340                     str(Gear^.Health, s);
   340                     s:= '+' + s;
   341                     s:= '+' + s;
   341                     AddCaption(s, PHedgehog(HH^.Hedgehog)^.Team^.Clan^.Color, capgrpAmmoinfo);
   342                     AddCaption(s, PHedgehog(HH^.Hedgehog)^.Team^.Clan^.Color, capgrpAmmoinfo);
   342                     RenderHealth(PHedgehog(HH^.Hedgehog)^);
   343                     RenderHealth(PHedgehog(HH^.Hedgehog)^);
   343                     RecountTeamHealth(PHedgehog(HH^.Hedgehog)^.Team);
   344                     RecountTeamHealth(PHedgehog(HH^.Hedgehog)^.Team);