794 end;

   794 end;

   795 

   795 

   796 procedure doStepExplosion(Gear: PGear);

   796 procedure doStepExplosion(Gear: PGear);

   797 var i: LongWord;

   797 var i: LongWord;

   798 begin

   798 begin

   799 for i:= 0 to 15 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart);

   800 for i:= 0 to 15 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart);

   800 Gear^.doStep:= @doStepExplosionWork

   801 Gear^.doStep:= @doStepExplosionWork

   801 end;

   802 end;

   802 

   803 

   803 ////////////////////////////////////////////////////////////////////////////////

   804 ////////////////////////////////////////////////////////////////////////////////