Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uGearsHandlersMess.pas
changeset 10123 64e72781d344
parent 10118 788703011d20
child 10125 7a77a819a94d 
--- a/hedgewars/uGearsHandlersMess.pas	Fri Feb 07 23:57:32 2014 +0400
+++ b/hedgewars/uGearsHandlersMess.pas	Sat Feb 08 16:29:34 2014 +0400
@@ -3548,7 +3548,7 @@
         Gear^.Damage:= i;
         //AddCaption('Fuel: '+inttostr(round(Gear^.Health/20))+'%', cWhiteColor, capgrpAmmostate);
         FreeTexture(Gear^.Tex);
-        Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(i) + '%', cWhiteColor, fntSmall)
+        Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ansistring(': ' + inttostr(i) + '%'), cWhiteColor, fntSmall)
         end;
 
     if (HHGear^.Message and (gmAttack or gmUp or gmLeft or gmRight) <> 0) and
@@ -4705,8 +4705,8 @@
             begin
             Gear^.Damage:= i;
             FreeTexture(Gear^.Tex);
-            Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(i) +
-                         '%', cWhiteColor, fntSmall)
+            Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ansistring(': ' + inttostr(i) +
+                         '%'), cWhiteColor, fntSmall)
             end
         end
 end;
@@ -4782,8 +4782,8 @@
             begin
             Gear^.Damage:= i;
             FreeTexture(Gear^.Tex);
-            Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(i) +
-                         '%', cWhiteColor, fntSmall)
+            Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ansistring(': ' + inttostr(i) +
+                         '%'), cWhiteColor, fntSmall)
             end
         end
 end;
@@ -5387,8 +5387,8 @@
     begin
     Gear^.Damage:= t;
     FreeTexture(Gear^.Tex);
-    Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(t) +
-              '%', cWhiteColor, fntSmall)
+    Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ansistring(': ' + inttostr(t) +
+              '%'), cWhiteColor, fntSmall)
     end;
     if Gear^.Message and (gmUp or gmDown) <> 0 then
         begin
hedgewars