hedgewars/uGears.pas
changeset 4344 23ab3bdbf218
parent 4337 85e02b1a8e8f
child 4357 a1fcfc341a52
equal deleted inserted replaced
4341:46b8791e577f 4344:23ab3bdbf218
   991             RenderHealth(PHedgehog(t^.Hedgehog)^);
   991             RenderHealth(PHedgehog(t^.Hedgehog)^);
   992             end;
   992             end;
   993         t:= t^.NextGear
   993         t:= t^.NextGear
   994         end;
   994         end;
   995    
   995    
   996     if (GameFlags and gfResetWeps) <> 0 then
   996     if ((GameFlags and gfResetWeps) <> 0) and not PlacingHogs then
   997         ResetWeapons;
   997         ResetWeapons;
   998 
   998 
   999     if (GameFlags and gfResetHealth) <> 0 then
   999     if (GameFlags and gfResetHealth) <> 0 then
  1000         for i:= 0 to Pred(TeamsCount) do
  1000         for i:= 0 to Pred(TeamsCount) do
  1001             RecountTeamHealth(TeamsArray[i])
  1001             RecountTeamHealth(TeamsArray[i])