equal
deleted
inserted
replaced
5212 vg^.dx:= 0.001 * random(80); |
5212 vg^.dx:= 0.001 * random(80); |
5213 vg^.dy:= 0.001 * random(80) |
5213 vg^.dy:= 0.001 * random(80) |
5214 end |
5214 end |
5215 end; |
5215 end; |
5216 PlaySound(sndHogFreeze); |
5216 PlaySound(sndHogFreeze); |
5217 iter^.State:= iter^.State or gstFrozen; |
|
5218 if iter^.Kind = gtMine then // dud mine block |
5217 if iter^.Kind = gtMine then // dud mine block |
5219 begin |
5218 begin |
|
5219 iter^.State:= iter^.State or gstFrozen; |
5220 vg:= AddVisualGear(hwRound(iter^.X) - 4 + Random(8), hwRound(iter^.Y) - 4 - Random(4), vgtSmoke); |
5220 vg:= AddVisualGear(hwRound(iter^.X) - 4 + Random(8), hwRound(iter^.Y) - 4 - Random(4), vgtSmoke); |
5221 if vg <> nil then |
5221 if vg <> nil then |
5222 vg^.Scale:= 0.5; |
5222 vg^.Scale:= 0.5; |
5223 PlaySound(sndVaporize); |
5223 PlaySound(sndVaporize); |
5224 iter^.Health := 0; |
5224 iter^.Health := 0; |
5226 iter^.State := iter^.State and (not gstAttacking) |
5226 iter^.State := iter^.State and (not gstAttacking) |
5227 end |
5227 end |
5228 else if iter^.Kind = gtCase then |
5228 else if iter^.Kind = gtCase then |
5229 begin |
5229 begin |
5230 DeleteCI(iter); |
5230 DeleteCI(iter); |
|
5231 iter^.State:= iter^.State or gstFrozen; |
5231 AddGearCI(iter) |
5232 AddGearCI(iter) |
5232 end |
5233 end |
5233 else // gtExplosives |
5234 else // gtExplosives |
|
5235 begin |
|
5236 iter^.State:= iter^.State or gstFrozen; |
5234 iter^.Health:= iter^.Health + cBarrelHealth |
5237 iter^.Health:= iter^.Health + cBarrelHealth |
|
5238 end |
5235 end; |
5239 end; |
5236 iter:= iter^.NextGear |
5240 iter:= iter^.NextGear |
5237 end; |
5241 end; |
5238 |
5242 |
5239 // FillRoundInLandWithIce(Target.X, Target.Y, iceRadius); |
5243 // FillRoundInLandWithIce(Target.X, Target.Y, iceRadius); |