5344 for i:= 0 to Pred(HH^.Team^.Clan^.Teams[j]^.HedgehogsNumber) do |
5344 for i:= 0 to Pred(HH^.Team^.Clan^.Teams[j]^.HedgehogsNumber) do |
5345 if (HH^.Team^.Clan^.Teams[j]^.Hedgehogs[i].Gear <> nil) |
5345 if (HH^.Team^.Clan^.Teams[j]^.Hedgehogs[i].Gear <> nil) |
5346 and ((HH^.Team^.Clan^.Teams[j]^.Hedgehogs[i].Gear^.State and gstDrowning) = 0) |
5346 and ((HH^.Team^.Clan^.Teams[j]^.Hedgehogs[i].Gear^.State and gstDrowning) = 0) |
5347 and (HH^.Team^.Clan^.Teams[j]^.Hedgehogs[i].Gear^.Health > HH^.Team^.Clan^.Teams[j]^.Hedgehogs[i].Gear^.Damage) then |
5347 and (HH^.Team^.Clan^.Teams[j]^.Hedgehogs[i].Gear^.Health > HH^.Team^.Clan^.Teams[j]^.Hedgehogs[i].Gear^.Damage) then |
5348 inc(cnt); |
5348 inc(cnt); |
5349 |
|
5350 if (cnt = 0) or SuddenDeathDmg or (Gear^.Timer = 0) then |
5349 if (cnt = 0) or SuddenDeathDmg or (Gear^.Timer = 0) then |
5351 begin |
5350 begin |
5352 Gear^.SoundChannel := LoopSound(sndTardis); |
|
5353 Gear^.Pos:= 1; |
|
5354 Gear^.Power:= 0; |
|
5355 Gear^.Timer:= 0; |
|
5356 |
|
5357 if HH^.GearHidden <> nil then |
5351 if HH^.GearHidden <> nil then |
5358 FindPlace(HH^.GearHidden, false, 0, LAND_WIDTH,true); |
5352 FindPlace(HH^.GearHidden, false, 0, LAND_WIDTH,true); |
5359 |
5353 |
5360 if HH^.GearHidden <> nil then |
5354 if HH^.GearHidden <> nil then |
5361 begin |
5355 begin |
5362 Gear^.X:= HH^.GearHidden^.X; |
5356 Gear^.X:= HH^.GearHidden^.X; |
5363 Gear^.Y:= HH^.GearHidden^.Y; |
5357 Gear^.Y:= HH^.GearHidden^.Y; |
5364 //HH^.Gear:=HH^.GearHidden; |
5358 end; |
5365 //HH^.GearHidden:= nil; |
5359 Gear^.Timer:= 0; |
5366 //HH^.Gear^.State:= HH^.Gear^.State or gstInvisible; |
5360 |
|
5361 if (HH^.GearHidden <> nil) and (cnt = 0) then // do an emergency jump back in this case. the team needs you! |
|
5362 begin |
|
5363 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplosion); |
|
5364 Gear^.Pos:= 2; |
|
5365 Gear^.Power:= 255; |
|
5366 end |
|
5367 else begin |
|
5368 Gear^.SoundChannel := LoopSound(sndTardis); |
|
5369 Gear^.Pos:= 1; |
|
5370 Gear^.Power:= 0; |
5367 end |
5371 end |
5368 end |
5372 end |
5369 else dec(Gear^.Timer); |
5373 else dec(Gear^.Timer); |
5370 end; |
5374 end; |
5371 |
5375 |