582 for i:= 0 to 46 do AddVisualGear(gX, gY, vgtFire);

   582 for i:= 0 to 46 do AddVisualGear(gX, gY, vgtFire);

   583 for i:= 0 to 15 do AddVisualGear(gX, gY, vgtExplPart);

   583 for i:= 0 to 15 do AddVisualGear(gX, gY, vgtExplPart);

   584 for i:= 0 to 15 do AddVisualGear(gX, gY, vgtExplPart2);

   584 for i:= 0 to 15 do AddVisualGear(gX, gY, vgtExplPart2);

   585 Gear^.doStep:= @doStepBigExplosionWork;

   585 Gear^.doStep:= @doStepBigExplosionWork;

   586 if Steps > 1 then Gear^.doStep(Gear, Steps-1);

   586 if Steps > 1 then Gear^.doStep(Gear, Steps-1);

   587 end;

   588 end;

   588 

   589 

   589 procedure doStepChunk(Gear: PVisualGear; Steps: Longword);

   590 procedure doStepChunk(Gear: PVisualGear; Steps: Longword);

   590 begin

   591 begin

   591 Gear^.X:= Gear^.X + Gear^.dX * Steps;

   592 Gear^.X:= Gear^.X + Gear^.dX * Steps;