602     begin

   602     begin

   603     maxMovement := max(1, 13 - ((Gear^.Timer * 15) div 250));

   603     maxMovement := max(1, 13 - ((Gear^.Timer * 15) div 250));

   604     ShakeCamera(maxMovement);

   604     ShakeCamera(maxMovement);

   605     end;

   605     end;

   606 *)

   606 *)

   607 if Gear^.Timer > 250 then DeleteVisualGear(Gear);

   608 if Gear^.Timer > 250 then DeleteVisualGear(Gear);

   608 end;

   609 end;

   609 

   610 

   610 procedure doStepBigExplosion(Gear: PVisualGear; Steps: Longword);

   611 procedure doStepBigExplosion(Gear: PVisualGear; Steps: Longword);

   611 var i: LongWord;

   612 var i: LongWord;

   612     gX,gY: LongInt;

   613     gX,gY: LongInt;

   613     vg: PVisualGear;

   614     vg: PVisualGear;

   614 begin

   615 begin

   615 gX:= round(Gear^.X);

   619 gX:= round(Gear^.X);

   616 gY:= round(Gear^.Y);

   620 gY:= round(Gear^.Y);

   617 AddVisualGear(gX, gY, vgtSmokeRing);

   621 AddVisualGear(gX, gY, vgtSmokeRing);

   618 for i:= 0 to 46 do 

   622 for i:= 0 to 46 do 

   619     begin

   623     begin