hedgewars/uGearsUtils.pas
changeset 12048 475a1289f940
parent 11867 f6d33710baff
child 12150 bbefbd1a3b0a
equal deleted inserted replaced
12047:7163626748e0 12048:475a1289f940
   280                     s:= '+' + IntToStr(vampDmg);
   280                     s:= '+' + IntToStr(vampDmg);
   281                     AddCaption(ansistring(s), CurrentHedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
   281                     AddCaption(ansistring(s), CurrentHedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
   282                     RenderHealth(CurrentHedgehog^);
   282                     RenderHealth(CurrentHedgehog^);
   283                     RecountTeamHealth(CurrentHedgehog^.Team);
   283                     RecountTeamHealth(CurrentHedgehog^.Team);
   284                     i:= 0;
   284                     i:= 0;
   285                     while i < vampDmg do
   285                     while (i < vampDmg) and (i < 1000) do
   286                         begin
   286                         begin
   287                         vg:= AddVisualGear(hwRound(CurrentHedgehog^.Gear^.X), hwRound(CurrentHedgehog^.Gear^.Y), vgtStraightShot);
   287                         vg:= AddVisualGear(hwRound(CurrentHedgehog^.Gear^.X), hwRound(CurrentHedgehog^.Gear^.Y), vgtStraightShot);
   288                         if vg <> nil then
   288                         if vg <> nil then
   289                             with vg^ do
   289                             with vg^ do
   290                                 begin
   290                                 begin