702 for i:= 0 to 15 do

   702 for i:= 0 to 15 do

   703     AddVisualGear(gX, gY, vgtExplPart2);

   703     AddVisualGear(gX, gY, vgtExplPart2);

   704 Gear^.doStep:= @doStepBigExplosionWork;

   704 Gear^.doStep:= @doStepBigExplosionWork;

   705 if Steps > 1 then

   705 if Steps > 1 then

   706     Gear^.doStep(Gear, Steps-1);

   706     Gear^.doStep(Gear, Steps-1);

   707 with mobileRecord do

   709 with mobileRecord do

   708     if (performRumble <> nil) and (not fastUntilLag) then

   710     if (performRumble <> nil) and (not fastUntilLag) then

   709         performRumble(kSystemSoundID_Vibrate);

   711         performRumble(kSystemSoundID_Vibrate);

   710 end;

   713 end;

   711 

   714 

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

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

   713 begin

   716 begin

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

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