equal
deleted
inserted
replaced
191 end; |
191 end; |
192 |
192 |
193 c:= CurrentTeam^.Clan^.ClanIndex; |
193 c:= CurrentTeam^.Clan^.ClanIndex; |
194 repeat |
194 repeat |
195 with ClansArray[c]^ do |
195 with ClansArray[c]^ do |
196 if (GameFlags and gfTagTeam) <> 0 then |
196 if (CurrTeam = TagTeamIndex) and ((GameFlags and gfTagTeam) <> 0) then |
197 begin |
197 begin |
198 if (CurrTeam = TagTeamIndex) then |
198 TagTeamIndex:= Pred(TagTeamIndex) mod TeamsNumber; |
199 begin |
199 CurrTeam:= Pred(CurrTeam) mod TeamsNumber; |
200 if (c = 0) and (not PlacingHogs) then |
200 inc(c); |
201 inc(TotalRounds); |
201 NextClan:= true; |
202 TagTeamIndex:= Pred(TagTeamIndex) mod TeamsNumber; |
202 end; |
203 CurrTeam:= Pred(CurrTeam) mod TeamsNumber; |
|
204 inc(c); |
|
205 NextClan:= true; |
|
206 end; |
|
207 end |
|
208 else if (c = 0) and (not PlacingHogs) then |
|
209 inc(TotalRounds); |
|
210 |
203 |
211 if (GameFlags and gfTagTeam) = 0 then |
204 if (GameFlags and gfTagTeam) = 0 then |
212 inc(c); |
205 inc(c); |
213 |
206 |
214 if c = ClansCount then |
207 if c = ClansCount then |
215 c:= 0; |
208 begin |
|
209 if not PlacingHogs then |
|
210 inc(TotalRounds); |
|
211 c:= 0 |
|
212 end; |
216 |
213 |
217 with ClansArray[c]^ do |
214 with ClansArray[c]^ do |
218 begin |
215 begin |
219 PrevTeam:= CurrTeam; |
216 PrevTeam:= CurrTeam; |
220 repeat |
217 repeat |