--- a/hedgewars/uAmmos.pas	Sun Jan 24 19:52:30 2010 +0000
+++ b/hedgewars/uAmmos.pas	Tue Jan 26 04:13:37 2010 +0000
@@ -22,6 +22,7 @@
 interface
 uses uConsts, uTeams;
 
+procedure free_uAmmos;
 procedure AddAmmoStore(s: shortstring);
 procedure AssignStores;
 procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType);
@@ -316,4 +317,11 @@
 	if (Ammoz[t].Ammo.Propz and ammoprop_NotBorder) <> 0 then Ammoz[t].Probability:= 0
 end;
 
+procedure free_uAmmos;
+var i: LongWord;
+begin
+for i:= 0 to Pred(StoreCnt) do Dispose(StoresList[i]);
+StoreCnt:= 0
+end;
+
 end.