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);

  5218                             if iter^.Kind = gtMine then // dud mine block

  5217                             if iter^.Kind = gtMine then // dud mine block

  5219                                 begin

  5218                                 begin

  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                                 AddGearCI(iter)

  5232                                 AddGearCI(iter)

  5232                                 end

  5233                                 end

  5233                             else // gtExplosives

  5234                             else // gtExplosives

  5234                                 iter^.Health:= iter^.Health + cBarrelHealth

  5237                                 iter^.Health:= iter^.Health + cBarrelHealth

  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);