equal
deleted
inserted
replaced
1771 for j:= 0 to Pred(TeamsArray[i]^.HedgehogsNumber) do |
1771 for j:= 0 to Pred(TeamsArray[i]^.HedgehogsNumber) do |
1772 TeamsArray[i]^.Hedgehogs[j].AmmoStore:= k; |
1772 TeamsArray[i]^.Hedgehogs[j].AmmoStore:= k; |
1773 if StoreCnt-1 < k then AddAmmoStore; |
1773 if StoreCnt-1 < k then AddAmmoStore; |
1774 inc(k) |
1774 inc(k) |
1775 end; |
1775 end; |
1776 if ScriptExists('onAmmoStoreInit') then |
1776 if ScriptExists('onAmmoStoreInit') or ScriptExists('onNewAmmoStore') then |
1777 begin |
1777 begin |
1778 // reset ammostore (quite unclean, but works?) |
1778 // reset ammostore (quite unclean, but works?) |
1779 uAmmos.freeModule; |
1779 uAmmos.freeModule; |
1780 uAmmos.initModule; |
1780 uAmmos.initModule; |
1781 ScriptPrepareAmmoStore; |
1781 if ScriptExists('onAmmoStoreInit') then |
1782 ScriptCall('onAmmoStoreInit'); |
1782 begin |
|
1783 ScriptCall('onAmmoStoreInit'); |
|
1784 ScriptPrepareAmmoStore |
|
1785 end; |
1783 ScriptApplyAmmoStore |
1786 ScriptApplyAmmoStore |
1784 end; |
1787 end; |
1785 |
1788 |
1786 ScriptSetInteger('ClansCount', ClansCount); |
1789 ScriptSetInteger('ClansCount', ClansCount); |
1787 ScriptSetInteger('TeamsCount', TeamsCount) |
1790 ScriptSetInteger('TeamsCount', TeamsCount) |
1964 for i:= 0 to Pred(ClansCount) do |
1967 for i:= 0 to Pred(ClansCount) do |
1965 begin |
1968 begin |
1966 if ScriptExists('onNewAmmoStore') then |
1969 if ScriptExists('onNewAmmoStore') then |
1967 begin |
1970 begin |
1968 ScriptPrepareAmmoStore; |
1971 ScriptPrepareAmmoStore; |
1969 ScriptCall('onNewAmmoStore',i,-1); |
1972 ScriptCall('onNewAmmoStore',i,-1) |
1970 end; |
1973 end; |
1971 AddAmmoStore; |
1974 AddAmmoStore; |
1972 for j:= 0 to Pred(ClansArray[i]^.TeamsNumber) do |
1975 for j:= 0 to Pred(ClansArray[i]^.TeamsNumber) do |
1973 for k:= 0 to Pred(ClansArray[i]^.Teams[j]^.HedgehogsNumber) do |
1976 for k:= 0 to Pred(ClansArray[i]^.Teams[j]^.HedgehogsNumber) do |
1974 ClansArray[i]^.Teams[j]^.Hedgehogs[k].AmmoStore:= StoreCnt - 1 |
1977 ClansArray[i]^.Teams[j]^.Hedgehogs[k].AmmoStore:= StoreCnt - 1 |
1978 for j:= 0 to Pred(TeamsArray[i]^.HedgehogsNumber) do |
1981 for j:= 0 to Pred(TeamsArray[i]^.HedgehogsNumber) do |
1979 begin |
1982 begin |
1980 if ScriptExists('onNewAmmoStore') then |
1983 if ScriptExists('onNewAmmoStore') then |
1981 begin |
1984 begin |
1982 ScriptPrepareAmmoStore; |
1985 ScriptPrepareAmmoStore; |
1983 ScriptCall('onNewAmmoStore'); |
1986 ScriptCall('onNewAmmoStore',i,j) |
1984 ScriptCall('onNewAmmoStore',i,j); |
|
1985 end; |
1987 end; |
1986 AddAmmoStore; |
1988 AddAmmoStore; |
1987 TeamsArray[i]^.Hedgehogs[j].AmmoStore:= StoreCnt - 1 |
1989 TeamsArray[i]^.Hedgehogs[j].AmmoStore:= StoreCnt - 1 |
1988 end |
1990 end |
1989 else |
1991 else |
1990 for i:= 0 to Pred(TeamsCount) do |
1992 for i:= 0 to Pred(TeamsCount) do |
1991 begin |
1993 begin |
1992 if ScriptExists('onNewAmmoStore') then |
1994 if ScriptExists('onNewAmmoStore') then |
1993 begin |
1995 begin |
1994 ScriptPrepareAmmoStore; |
1996 ScriptPrepareAmmoStore; |
1995 ScriptCall('onNewAmmoStore',i,-1); |
1997 ScriptCall('onNewAmmoStore',i,-1) |
1996 end; |
1998 end; |
1997 AddAmmoStore; |
1999 AddAmmoStore; |
1998 for j:= 0 to Pred(TeamsArray[i]^.HedgehogsNumber) do |
2000 for j:= 0 to Pred(TeamsArray[i]^.HedgehogsNumber) do |
1999 TeamsArray[i]^.Hedgehogs[j].AmmoStore:= StoreCnt - 1 |
2001 TeamsArray[i]^.Hedgehogs[j].AmmoStore:= StoreCnt - 1 |
2000 end |
2002 end |