281                 gear^.Radius:= 5;

   281                 gear^.Radius:= 5;

   282                 if gear^.Timer = 0 then gear^.Timer:= 500;

   282                 if gear^.Timer = 0 then gear^.Timer:= 500;

   283                 gear^.RenderTimer:= true;

   283                 gear^.RenderTimer:= true;

   284                 gear^.Elasticity:= _0_9;

   284                 gear^.Elasticity:= _0_9;

   285                 gear^.Tag:= 0;

   285                 gear^.Tag:= 0;

   286                 end;

   287                 end;

   287    gtSeduction: begin

   288    gtSeduction: begin

   288                 gear^.Radius:= 250;

   289                 gear^.Radius:= 250;

   289                 end;

   290                 end;

   290  gtShotgunShot: begin

   291  gtShotgunShot: begin