5222                                     vg^.Angle:= random(360);

  5222                                     vg^.Angle:= random(360);

  5223                                     vg^.dx:= 0.001 * random(80);

  5223                                     vg^.dx:= 0.001 * random(80);

  5224                                     vg^.dy:= 0.001 * random(80)

  5224                                     vg^.dy:= 0.001 * random(80)

  5225                                     end

  5225                                     end

  5226                                 end;

  5226                                 end;

  5227                             iter^.State:= iter^.State or gstFrozen;

  5228                             iter^.State:= iter^.State or gstFrozen;

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

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

  5229                                 begin

  5230                                 begin

  5230                                 vg:= AddVisualGear(hwRound(iter^.X) - 4  + Random(8), hwRound(iter^.Y) - 4 - Random(4), vgtSmoke);

  5231                                 vg:= AddVisualGear(hwRound(iter^.X) - 4  + Random(8), hwRound(iter^.Y) - 4 - Random(4), vgtSmoke);

  5231                                 if vg <> nil then

  5232                                 if vg <> nil then

  5251                     Timer := iceWaitCollision;

  5252                     Timer := iceWaitCollision;

  5252                     end;

  5253                     end;

  5253 

  5254 

  5254                 if (Timer = iceCollideWithWater) and ((GameTicks - Power) > groundFreezingTime) then

  5255                 if (Timer = iceCollideWithWater) and ((GameTicks - Power) > groundFreezingTime) then

  5255                     begin

  5256                     begin

  5256                     DrawIceBreak(Target.X, cWaterLine - iceHeight, iceRadius, iceHeight);

  5258                     DrawIceBreak(Target.X, cWaterLine - iceHeight, iceRadius, iceHeight);

  5257                     SetAllHHToActive;

  5259                     SetAllHHToActive;

  5258                     Timer := iceWaitCollision;

  5260                     Timer := iceWaitCollision;

  5259                     end;

  5261                     end;

  5260 (*

  5262 (*