hedgewars/uStore.pas
changeset 11822 4600dcb9db4f
parent 11539 c22d292e7266
child 11895 19cb0de79287
equal deleted inserted replaced
11821:d8844d4c67de 11822:4600dcb9db4f
   576 
   576 
   577 
   577 
   578 procedure RenderHealth(var Hedgehog: THedgehog);
   578 procedure RenderHealth(var Hedgehog: THedgehog);
   579 var s: shortstring;
   579 var s: shortstring;
   580 begin
   580 begin
   581 str(Hedgehog.Gear^.Health, s);
   581 s:= IntToStr(Hedgehog.Gear^.Health);
   582 FreeAndNilTexture(Hedgehog.HealthTagTex);
   582 FreeAndNilTexture(Hedgehog.HealthTagTex);
   583 Hedgehog.HealthTagTex:= RenderStringTex(ansistring(s), Hedgehog.Team^.Clan^.Color, fnt16)
   583 Hedgehog.HealthTagTex:= RenderStringTex(ansistring(s), Hedgehog.Team^.Clan^.Color, fnt16)
   584 end;
   584 end;
   585 
   585 
   586 function LoadImage(const filename: shortstring; imageFlags: LongInt): PSDL_Surface;
   586 function LoadImage(const filename: shortstring; imageFlags: LongInt): PSDL_Surface;