equal
deleted
inserted
replaced
284 for i:= 0 to ClansCount do |
284 for i:= 0 to ClansCount do |
285 if ClansArray[i] <> nil then |
285 if ClansArray[i] <> nil then |
286 ClansArray[i]^.TurnNumber:= 0; |
286 ClansArray[i]^.TurnNumber:= 0; |
287 ResetWeapons |
287 ResetWeapons |
288 end |
288 end |
289 end |
289 end; |
290 else |
|
291 if TotalRounds <= -1 then |
|
292 TotalRounds:= 0; |
|
293 |
290 |
294 inc(CurrentTeam^.Clan^.TurnNumber); |
291 inc(CurrentTeam^.Clan^.TurnNumber); |
295 with CurrentTeam^.Clan^ do |
292 with CurrentTeam^.Clan^ do |
296 for t:= 0 to Pred(TeamsNumber) do |
293 for t:= 0 to Pred(TeamsNumber) do |
297 with Teams[t]^ do |
294 with Teams[t]^ do |