hedgewars/HHHandlers.inc
changeset 5563 fc73b6e941f7
parent 5526 70a5ec7b1020
child 5564 4f42009237df
equal deleted inserted replaced
5562:8056d82b4d23 5563:fc73b6e941f7
   580                     RecountTeamHealth(HH^.Hedgehog^.Team);
   580                     RecountTeamHealth(HH^.Hedgehog^.Team);
   581 
   581 
   582                     i:= 0;
   582                     i:= 0;
   583                     while i < Gear^.Health do
   583                     while i < Gear^.Health do
   584                         begin
   584                         begin
   585                         AddVisualGear(hwRound(HH^.X), hwRound(HH^.Y), vgtHealth);
   585                         vga:= AddVisualGear(hwRound(HH^.X), hwRound(HH^.Y), vgtStraightShot);
       
   586                         if vga <> nil then
       
   587                             with vga^ do
       
   588                                 begin
       
   589                                 dx:= 0.001 * random(45);
       
   590                                 dy:= 0.001 * (random(20) + 25);
       
   591                                 Tint:= $00FF00FF;
       
   592                                 State:= ord(sprHealth);
       
   593                                 if random(2) = 0 then dx := -dx;
       
   594                                 Frame:= 0;
       
   595                                 FrameTicks:= random(750) + 1250;
       
   596                                 end;
   586                         inc(i, 5);
   597                         inc(i, 5);
   587                         end;
   598                         end;
   588                     end;
   599                     end;
   589      end
   600      end
   590 end;
   601 end;