equal
deleted
inserted
replaced
4042 AfterAttack |
4042 AfterAttack |
4043 end |
4043 end |
4044 else |
4044 else |
4045 begin |
4045 begin |
4046 i:= Gear^.Health div 5; |
4046 i:= Gear^.Health div 5; |
4047 if i <> Gear^.Tag then |
4047 if i <> Gear^.Damage then |
4048 begin |
4048 begin |
4049 Gear^.Tag:= i; |
4049 Gear^.Damage:= i; |
4050 if Gear^.Tex <> nil then FreeTexture(Gear^.Tex); |
4050 if Gear^.Tex <> nil then FreeTexture(Gear^.Tex); |
4051 Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(i) + |
4051 Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(i) + |
4052 '%', cWhiteColor, fntSmall) |
4052 '%', cWhiteColor, fntSmall) |
4053 end |
4053 end |
4054 end |
4054 end |