| changeset 14346 | 22c91ac48d38 |
| parent 14344 | e3e06b216e00 |
| child 14347 | 1dcc37b6913e |
| 14345:ef7501d9935c | 14346:22c91ac48d38 |
|---|---|
6477 end |
6477 end |
6478 else if iter^.Kind = gtAirMine then |
6478 else if iter^.Kind = gtAirMine then |
6479 begin |
6479 begin |
6480 iter^.Damage:= 0; |
6480 iter^.Damage:= 0; |
6481 iter^.State:= iter^.State or gstFrozen; |
6481 iter^.State:= iter^.State or gstFrozen; |
6482 AddCI(iter); |
|
6483 if (hwRound(iter^.X) < RightX-16) and (hwRound(iter^.X) > LeftX+16) and |
6482 if (hwRound(iter^.X) < RightX-16) and (hwRound(iter^.X) > LeftX+16) and |
6484 (hwRound(iter^.Y) > topY+16) and (hwRound(iter^.Y) < LAND_HEIGHT-16) then |
6483 (hwRound(iter^.Y) > topY+16) and (hwRound(iter^.Y) < LAND_HEIGHT-16) then |
6485 begin |
6484 begin |
6485 AddCI(iter); |
|
6486 iter^.X:= int2hwFloat(min(RightX-16,max(hwRound(iter^.X), LeftX+16))); |
6486 iter^.X:= int2hwFloat(min(RightX-16,max(hwRound(iter^.X), LeftX+16))); |
6487 iter^.Y:= int2hwFloat(min(LAND_HEIGHT-16,max(hwRound(iter^.Y),TopY+16))); |
6487 iter^.Y:= int2hwFloat(min(LAND_HEIGHT-16,max(hwRound(iter^.Y),TopY+16))); |
6488 ForcePlaceOnLand(hwRound(iter^.X)-16, hwRound(iter^.Y)-16, sprFrozenAirMine, 0, lfIce, $FFFFFFFF, false, false, false); |
6488 ForcePlaceOnLand(hwRound(iter^.X)-16, hwRound(iter^.Y)-16, sprFrozenAirMine, 0, lfIce, $FFFFFFFF, false, false, false); |
6489 iter^.State:= iter^.State or gstInvisible |
6489 iter^.State:= iter^.State or gstInvisible |
6490 end |
6490 end |