equal
deleted
inserted
replaced
1964 for i:= 0 to Pred(ClansCount) do |
1964 for i:= 0 to Pred(ClansCount) do |
1965 begin |
1965 begin |
1966 if ScriptExists('onNewAmmoStore') then |
1966 if ScriptExists('onNewAmmoStore') then |
1967 begin |
1967 begin |
1968 ScriptPrepareAmmoStore; |
1968 ScriptPrepareAmmoStore; |
1969 ScriptCall('onAmmoStoreInit'); |
1969 ScriptCall('onNewAmmoStore'); |
1970 end; |
1970 end; |
1971 AddAmmoStore; |
1971 AddAmmoStore; |
1972 for j:= 0 to Pred(ClansArray[i]^.TeamsNumber) do |
1972 for j:= 0 to Pred(ClansArray[i]^.TeamsNumber) do |
1973 for k:= 0 to Pred(ClansArray[i]^.Teams[j]^.HedgehogsNumber) do |
1973 for k:= 0 to Pred(ClansArray[i]^.Teams[j]^.HedgehogsNumber) do |
1974 ClansArray[i]^.Teams[j]^.Hedgehogs[k].AmmoStore:= StoreCnt - 1 |
1974 ClansArray[i]^.Teams[j]^.Hedgehogs[k].AmmoStore:= StoreCnt - 1 |
1978 for j:= 0 to Pred(TeamsArray[i]^.HedgehogsNumber) do |
1978 for j:= 0 to Pred(TeamsArray[i]^.HedgehogsNumber) do |
1979 begin |
1979 begin |
1980 if ScriptExists('onNewAmmoStore') then |
1980 if ScriptExists('onNewAmmoStore') then |
1981 begin |
1981 begin |
1982 ScriptPrepareAmmoStore; |
1982 ScriptPrepareAmmoStore; |
1983 ScriptCall('onAmmoStoreInit'); |
1983 ScriptCall('onNewAmmoStore'); |
1984 end; |
1984 end; |
1985 AddAmmoStore; |
1985 AddAmmoStore; |
1986 TeamsArray[i]^.Hedgehogs[j].AmmoStore:= StoreCnt - 1 |
1986 TeamsArray[i]^.Hedgehogs[j].AmmoStore:= StoreCnt - 1 |
1987 end |
1987 end |
1988 else |
1988 else |
1989 for i:= 0 to Pred(TeamsCount) do |
1989 for i:= 0 to Pred(TeamsCount) do |
1990 begin |
1990 begin |
1991 if ScriptExists('onNewAmmoStore') then |
1991 if ScriptExists('onNewAmmoStore') then |
1992 begin |
1992 begin |
1993 ScriptPrepareAmmoStore; |
1993 ScriptPrepareAmmoStore; |
1994 ScriptCall('onAmmoStoreInit'); |
1994 ScriptCall('onNewAmmoStore'); |
1995 end; |
1995 end; |
1996 AddAmmoStore; |
1996 AddAmmoStore; |
1997 for j:= 0 to Pred(TeamsArray[i]^.HedgehogsNumber) do |
1997 for j:= 0 to Pred(TeamsArray[i]^.HedgehogsNumber) do |
1998 TeamsArray[i]^.Hedgehogs[j].AmmoStore:= StoreCnt - 1 |
1998 TeamsArray[i]^.Hedgehogs[j].AmmoStore:= StoreCnt - 1 |
1999 end |
1999 end |