equal
deleted
inserted
replaced
6261 iter^.State:= iter^.State or gstFrozen; |
6261 iter^.State:= iter^.State or gstFrozen; |
6262 AddCI(iter) |
6262 AddCI(iter) |
6263 end |
6263 end |
6264 else if iter^.Kind = gtAirMine then |
6264 else if iter^.Kind = gtAirMine then |
6265 begin |
6265 begin |
6266 AddCI(iter); |
6266 ForcePlaceOnLand(hwRound(iter^.X)-16, hwRound(iter^.Y)-16, sprFrozenAirMine, 0, lfIce, $FFFFFFFF, false, false, false); |
6267 iter^.Damage := 0; |
6267 iter^.State:= gstFrozen or gstInvisible; |
6268 iter^.State:= iter^.State or gstFrozen |
|
6269 end |
6268 end |
6270 else // gtExplosives |
6269 else // gtExplosives |
6271 begin |
6270 begin |
6272 iter^.State:= iter^.State or gstFrozen; |
6271 iter^.State:= iter^.State or gstFrozen; |
6273 iter^.Health:= iter^.Health + cBarrelHealth |
6272 iter^.Health:= iter^.Health + cBarrelHealth |
6277 end; |
6276 end; |
6278 |
6277 |
6279 // FillRoundInLandWithIce(Target.X, Target.Y, iceRadius); |
6278 // FillRoundInLandWithIce(Target.X, Target.Y, iceRadius); |
6280 SetAllHHToActive; |
6279 SetAllHHToActive; |
6281 Timer := iceWaitCollision; |
6280 Timer := iceWaitCollision; |
|
6281 Power:= GameTicks |
6282 end; |
6282 end; |
6283 |
6283 |
6284 if (Timer = iceCollideWithWater) and ((GameTicks - Power) > groundFreezingTime div 2) then |
6284 if (Timer = iceCollideWithWater) and ((GameTicks - Power) > groundFreezingTime div 2) then |
6285 begin |
6285 begin |
6286 PlaySound(sndHogFreeze); |
6286 PlaySound(sndHogFreeze); |
6336 Target.X:= gX; |
6336 Target.X:= gX; |
6337 Target.Y:= gY; |
6337 Target.Y:= gY; |
6338 X:= HHGear^.X; |
6338 X:= HHGear^.X; |
6339 Y:= HHGear^.Y |
6339 Y:= HHGear^.Y |
6340 end |
6340 end |
6341 else if CheckGearNear(Gear, gtAirMine, Gear^.Radius*2, Gear^.Radius*2) <> nil then |
6341 else |
6342 begin |
6342 begin |
6343 Target.X:= gX; |
6343 iter:= CheckGearNear(Gear, gtAirMine, Gear^.Radius*2, Gear^.Radius*2); |
6344 Target.Y:= gY; |
6344 if (iter <> nil) and (iter^.State <> gstFrozen) then |
6345 X:= HHGear^.X; |
6345 begin |
6346 Y:= HHGear^.Y |
6346 Target.X:= gX; |
6347 end; |
6347 Target.Y:= gY; |
|
6348 X:= HHGear^.X; |
|
6349 Y:= HHGear^.Y |
|
6350 end |
|
6351 end; |
6348 if (gX > max(LAND_WIDTH,4096)*2) or |
6352 if (gX > max(LAND_WIDTH,4096)*2) or |
6349 (gX < -max(LAND_WIDTH,4096)) or |
6353 (gX < -max(LAND_WIDTH,4096)) or |
6350 (gY < -max(LAND_HEIGHT,4096)) or |
6354 (gY < -max(LAND_HEIGHT,4096)) or |
6351 (gY > max(LAND_HEIGHT,4096)+512) then |
6355 (gY > max(LAND_HEIGHT,4096)+512) then |
6352 begin |
6356 begin |