Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
er. and cast to TAmmoType, which burp's routine still requires :)
authornemo
Thu, 11 Nov 2010 10:51:38 -0500
changeset 4240 4e81670e52aa
parent 4239 eda0a8e2325f
child 4241 835fd7a0e1bf
er. and cast to TAmmoType, which burp's routine still requires :)
hedgewars/uGears.pas file | annotate | diff | comparison | revisions 
--- a/hedgewars/uGears.pas	Thu Nov 11 09:59:45 2010 -0500
+++ b/hedgewars/uGears.pas	Thu Nov 11 10:51:38 2010 -0500
@@ -1675,12 +1675,12 @@
             end;
         AmmoCrate: begin
             FollowGear^.Pos := posCaseAmmo;
-            FollowGear^.AmmoType := content;
+            FollowGear^.AmmoType := TAmmoType(content);
             AddCaption(GetEventString(eidNewAmmoPack), cWhiteColor, capgrpAmmoInfo);
             end;
         UtilityCrate: begin
             FollowGear^.Pos := posCaseUtility;
-            FollowGear^.AmmoType := content;
+            FollowGear^.AmmoType := TAmmoType(content);
             AddCaption(GetEventString(eidNewUtilityPack), cWhiteColor, capgrpAmmoInfo);
             end;
     end;
hedgewars