hedgewars/uGearsUtils.pas
changeset 11822 4600dcb9db4f
parent 11751 20e0a72e0e2c
child 11847 38e7206a5df4
equal deleted inserted replaced
11821:d8844d4c67de 11822:4600dcb9db4f
   272                 if vampDmg >= 1 then
   272                 if vampDmg >= 1 then
   273                     begin
   273                     begin
   274                     // was considering pulsing on attack, Tiy thinks it should be permanent while in play
   274                     // was considering pulsing on attack, Tiy thinks it should be permanent while in play
   275                     //CurrentHedgehog^.Gear^.State:= CurrentHedgehog^.Gear^.State or gstVampiric;
   275                     //CurrentHedgehog^.Gear^.State:= CurrentHedgehog^.Gear^.State or gstVampiric;
   276                     inc(CurrentHedgehog^.Gear^.Health,vampDmg);
   276                     inc(CurrentHedgehog^.Gear^.Health,vampDmg);
   277                     str(vampDmg, s);
   277                     s:= '+' + IntToStr(vampDmg);
   278                     s:= '+' + s;
       
   279                     AddCaption(ansistring(s), CurrentHedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
   278                     AddCaption(ansistring(s), CurrentHedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
   280                     RenderHealth(CurrentHedgehog^);
   279                     RenderHealth(CurrentHedgehog^);
   281                     RecountTeamHealth(CurrentHedgehog^.Team);
   280                     RecountTeamHealth(CurrentHedgehog^.Team);
   282                     i:= 0;
   281                     i:= 0;
   283                     while i < vampDmg do
   282                     while i < vampDmg do