equal
deleted
inserted
replaced
5115 |
5115 |
5116 if (Gear^.Pos = 4) then |
5116 if (Gear^.Pos = 4) then |
5117 begin |
5117 begin |
5118 cnt:= 0; |
5118 cnt:= 0; |
5119 for j:= 0 to Pred(HH^.Team^.Clan^.TeamsNumber) do |
5119 for j:= 0 to Pred(HH^.Team^.Clan^.TeamsNumber) do |
5120 for i:= 0 to Pred(HH^.Team^.Clan^.Teams[j]^.HedgehogsNumber) do |
5120 with HH^.Team^.Clan^.Teams[j]^ do |
5121 if (HH^.Team^.Clan^.Teams[j]^.Hedgehogs[i].Gear <> nil) |
5121 for i:= 0 to Pred(HedgehogsNumber) do |
5122 and ((HH^.Team^.Clan^.Teams[j]^.Hedgehogs[i].Gear^.State and gstDrowning) = 0) |
5122 if (Hedgehogs[i].Gear <> nil) |
5123 and (HH^.Team^.Clan^.Teams[j]^.Hedgehogs[i].Gear^.Health > HH^.Team^.Clan^.Teams[j]^.Hedgehogs[i].Gear^.Damage) then |
5123 and ((Hedgehogs[i].Gear^.State and gstDrowning) = 0) |
5124 inc(cnt); |
5124 and (Hedgehogs[i].Gear^.Health > Hedgehogs[i].Gear^.Damage) then |
|
5125 inc(cnt); |
5125 if (cnt = 0) or SuddenDeathDmg or (Gear^.Timer = 0) then |
5126 if (cnt = 0) or SuddenDeathDmg or (Gear^.Timer = 0) then |
5126 begin |
5127 begin |
5127 if HH^.GearHidden <> nil then |
5128 if HH^.GearHidden <> nil then |
5128 FindPlace(HH^.GearHidden, false, 0, LAND_WIDTH,true); |
5129 FindPlace(HH^.GearHidden, false, 0, LAND_WIDTH,true); |
5129 |
5130 |