hedgewars/uGearsHedgehog.pas
changeset 12048 475a1289f940
parent 11939 c7ec309cd685
child 12169 869cf5f34700
equal deleted inserted replaced
12047:7163626748e0 12048:475a1289f940
   746                     AddCaption(ansistring(s), HH^.Hedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
   746                     AddCaption(ansistring(s), HH^.Hedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
   747                     RenderHealth(HH^.Hedgehog^);
   747                     RenderHealth(HH^.Hedgehog^);
   748                     RecountTeamHealth(HH^.Hedgehog^.Team);
   748                     RecountTeamHealth(HH^.Hedgehog^.Team);
   749 
   749 
   750                     i:= 0;
   750                     i:= 0;
   751                     while i < Gear^.Health do
   751                     while (i < Gear^.Health) and (i <= 1000) do
   752                         begin
   752                         begin
   753                         vga:= AddVisualGear(hwRound(HH^.X), hwRound(HH^.Y), vgtStraightShot);
   753                         vga:= AddVisualGear(hwRound(HH^.X), hwRound(HH^.Y), vgtStraightShot);
   754                         if vga <> nil then
   754                         if vga <> nil then
   755                             with vga^ do
   755                             with vga^ do
   756                                 begin
   756                                 begin