1721 end;

  1721 end;

  1722 

  1722 

  1723 procedure AddBounceEffectForGear(Gear: PGear);

  1723 procedure AddBounceEffectForGear(Gear: PGear);

  1724 var boing: PVisualGear;

  1724 var boing: PVisualGear;

  1725 begin

  1725 begin

  1726     boing:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtStraightShot, 0, false, 1);

  1728     boing:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtStraightShot, 0, false, 1);

  1727     if boing <> nil then

  1729     if boing <> nil then

  1728         with boing^ do

  1730         with boing^ do

  1729             begin

  1731             begin

  1730             Angle:= random(360);

  1732             Angle:= random(360);