599 k:= false; |
599 k:= false; |
600 for i:= 0 to Pred(team^.Clan^.TeamsNumber) do |
600 for i:= 0 to Pred(team^.Clan^.TeamsNumber) do |
601 if (team^.Clan^.Teams[i]^.Hedgehogs[0].Gear <> nil) then k:= true; |
601 if (team^.Clan^.Teams[i]^.Hedgehogs[0].Gear <> nil) then k:= true; |
602 if not k then |
602 if not k then |
603 for i:= 0 to Pred(team^.Clan^.TeamsNumber) do |
603 for i:= 0 to Pred(team^.Clan^.TeamsNumber) do |
|
604 begin |
|
605 team^.Clan^.Teams[i]^.hasGone:= true; |
604 TeamGoneEffect(team^.Clan^.Teams[i]^) |
606 TeamGoneEffect(team^.Clan^.Teams[i]^) |
|
607 end |
605 end; |
608 end; |
606 inc(KilledHHs); |
609 inc(KilledHHs); |
607 RecountTeamHealth(team) |
610 RecountTeamHealth(team) |
608 end; |
611 end; |
609 {$IFDEF DEBUGFILE} |
612 {$IFDEF DEBUGFILE} |
1198 FindPlace(TrainingTargetGear, false, 0, LAND_WIDTH); |
1201 FindPlace(TrainingTargetGear, false, 0, LAND_WIDTH); |
1199 end; |
1202 end; |
1200 |
1203 |
1201 if ((GameFlags and gfForts) = 0) then |
1204 if ((GameFlags and gfForts) = 0) then |
1202 begin |
1205 begin |
1203 // TODO: exclude each other or allow both, mines and explosives, on same map? |
1206 if ((GameFlags and gfMines) <> 0) then |
1204 for i:= 0 to Pred(cLandMines) do |
1207 for i:= 0 to Pred(cLandMines) do |
1205 begin |
1208 begin |
1206 Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0); |
1209 Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0); |
1207 FindPlace(Gear, false, 0, LAND_WIDTH); |
1210 FindPlace(Gear, false, 0, LAND_WIDTH); |
1208 end; |
1211 end; |
1209 // No game flag for this for now |
|
1210 for i:= 0 to Pred(cExplosives) do |
1212 for i:= 0 to Pred(cExplosives) do |
1211 begin |
1213 begin |
1212 Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0); |
1214 Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0); |
1213 FindPlace(Gear, false, 0, LAND_WIDTH); |
1215 FindPlace(Gear, false, 0, LAND_WIDTH); |
1214 end; |
1216 end; |