pass indexes for the clan/team/hedgehog
authornemo
Sun, 26 Feb 2012 12:32:48 -0500 (2012-02-26)
changeset 6742 0acfa8202a29
parent 6741 770689c4625d
child 6743 864bf0f52a8c
pass indexes for the clan/team/hedgehog
hedgewars/uScript.pas
--- a/hedgewars/uScript.pas	Sun Feb 26 11:28:28 2012 -0500
+++ b/hedgewars/uScript.pas	Sun Feb 26 12:32:48 2012 -0500
@@ -1966,7 +1966,7 @@
         if ScriptExists('onNewAmmoStore') then
             begin
             ScriptPrepareAmmoStore;
-            ScriptCall('onNewAmmoStore');
+            ScriptCall('onNewAmmoStore',i,-1);
             end;
         AddAmmoStore;
         for j:= 0 to Pred(ClansArray[i]^.TeamsNumber) do
@@ -1981,6 +1981,7 @@
                 begin
                 ScriptPrepareAmmoStore;
                 ScriptCall('onNewAmmoStore');
+                ScriptCall('onNewAmmoStore',i,j);
                 end;
             AddAmmoStore;
             TeamsArray[i]^.Hedgehogs[j].AmmoStore:= StoreCnt - 1
@@ -1991,7 +1992,7 @@
         if ScriptExists('onNewAmmoStore') then
             begin
             ScriptPrepareAmmoStore;
-            ScriptCall('onNewAmmoStore');
+            ScriptCall('onNewAmmoStore',i,-1);
             end;
         AddAmmoStore;
         for j:= 0 to Pred(TeamsArray[i]^.HedgehogsNumber) do