equal
deleted
inserted
replaced
617 |
617 |
618 |
618 |
619 procedure RenderHealth(var Hedgehog: THedgehog); |
619 procedure RenderHealth(var Hedgehog: THedgehog); |
620 var s: shortstring; |
620 var s: shortstring; |
621 begin |
621 begin |
622 s:= IntToStr(Hedgehog.Gear^.Health); |
|
623 FreeAndNilTexture(Hedgehog.HealthTagTex); |
622 FreeAndNilTexture(Hedgehog.HealthTagTex); |
|
623 if Hedgehog.Gear <> nil then |
|
624 s:= IntToStr(Hedgehog.Gear^.Health) |
|
625 else if Hedgehog.GearHidden <> nil then |
|
626 s:= IntToStr(Hedgehog.GearHidden^.Health) |
|
627 else |
|
628 exit; |
624 Hedgehog.HealthTagTex:= RenderStringTex(ansistring(s), Hedgehog.Team^.Clan^.Color, fnt16) |
629 Hedgehog.HealthTagTex:= RenderStringTex(ansistring(s), Hedgehog.Team^.Clan^.Color, fnt16) |
625 end; |
630 end; |
626 |
631 |
627 function LoadImage(const filename: shortstring; imageFlags: LongInt): PSDL_Surface; |
632 function LoadImage(const filename: shortstring; imageFlags: LongInt): PSDL_Surface; |
628 var tmpsurf: PSDL_Surface; |
633 var tmpsurf: PSDL_Surface; |