equal
deleted
inserted
replaced
4041 DeleteGear(Gear); |
4041 DeleteGear(Gear); |
4042 AfterAttack |
4042 AfterAttack |
4043 end |
4043 end |
4044 else |
4044 else |
4045 begin |
4045 begin |
4046 i:= round(Gear^.Health / 5); |
4046 i:= Gear^.Health div 5; |
4047 if i <> Gear^.Tag then |
4047 if i <> Gear^.Tag then |
4048 begin |
4048 begin |
4049 Gear^.Tag:= i; |
4049 Gear^.Tag:= 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) + |