hedgewars/uScript.pas
changeset 14754 b39da9cf7616
parent 14750 ab7bf5036314
child 14927 9d6a25239d00
equal deleted inserted replaced
14753:168be33c099a 14754:b39da9cf7616
  1863                     gear^.Health:= cMaxHogHealth;
  1863                     gear^.Health:= cMaxHogHealth;
  1864                 if gear^.Health < 0 then
  1864                 if gear^.Health < 0 then
  1865                     gear^.Health:= 0;
  1865                     gear^.Health:= 0;
  1866                 RenderHealth(gear^.Hedgehog^);
  1866                 RenderHealth(gear^.Hedgehog^);
  1867                 RecountTeamHealth(gear^.Hedgehog^.Team)
  1867                 RecountTeamHealth(gear^.Hedgehog^.Team)
  1868                 end;
  1868                 end
  1869             // Why did this do a "setalltoactive" ?
  1869             else if (gear^.RenderHealth) and (gear^.Tex <> nil) then
  1870             //SetAllToActive;
  1870                 FreeAndNilTexture(gear^.Tex);
  1871             Gear^.Active:= true;
  1871             Gear^.Active:= true;
  1872             AllInactive:= false
  1872             AllInactive:= false
  1873             end
  1873             end
  1874         end;
  1874         end;
  1875     lc_sethealth:= 0
  1875     lc_sethealth:= 0