--- a/hedgewars/uScript.pas	Sun Mar 14 22:55:46 2010 +0000
+++ b/hedgewars/uScript.pas	Sun Mar 14 23:46:46 2010 +0000
@@ -372,11 +372,6 @@
 
 ScriptPrepareAmmoStore;
 ScriptCall('onAmmoStoreInit');
-ScriptApplyAmmoStore; // doing 6 times - this is just temporary for now
-ScriptApplyAmmoStore;
-ScriptApplyAmmoStore;
-ScriptApplyAmmoStore;
-ScriptApplyAmmoStore;
 ScriptApplyAmmoStore;
 end;
 
@@ -476,7 +471,9 @@
 end;
 
 procedure ScriptApplyAmmoStore;
+var i : LongInt;
 begin
+for i:= 0 to Pred(TeamsCount) do
     AddAmmoStore(ScriptAmmoStore);
 end;