equal
deleted
inserted
replaced
999 end; |
999 end; |
1000 |
1000 |
1001 procedure RenderHealth(var Hedgehog: THedgehog); |
1001 procedure RenderHealth(var Hedgehog: THedgehog); |
1002 var s: shortstring; |
1002 var s: shortstring; |
1003 begin |
1003 begin |
1004 str(Hedgehog.Gear^.Health, s); |
1004 str(Hedgehog.Gear^.Health, s); |
1005 if Hedgehog.HealthTagTex <> nil then FreeTexture(Hedgehog.HealthTagTex); |
1005 if Hedgehog.HealthTagTex <> nil then |
1006 Hedgehog.HealthTagTex:= RenderStringTex(s, Hedgehog.Team^.Clan^.Color, fnt16) |
1006 FreeTexture(Hedgehog.HealthTagTex); |
|
1007 Hedgehog.HealthTagTex:= RenderStringTex(s, Hedgehog.Team^.Clan^.Color, fnt16) |
1007 end; |
1008 end; |
1008 |
1009 |
1009 function LoadImage(const filename: string; imageFlags: LongInt): PSDL_Surface; |
1010 function LoadImage(const filename: string; imageFlags: LongInt): PSDL_Surface; |
1010 var tmpsurf: PSDL_Surface; |
1011 var tmpsurf: PSDL_Surface; |
1011 s: shortstring; |
1012 s: shortstring; |