279                 gear^.Radius:= 5;

   279                 gear^.Radius:= 5;

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

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

   281                 gear^.RenderTimer:= true;

   281                 gear^.RenderTimer:= true;

   282                 gear^.Elasticity:= _0_9;

   282                 gear^.Elasticity:= _0_9;

   283                 gear^.Tag:= 0;

   283                 gear^.Tag:= 0;

   284                 end;

   285                 end;

   285    gtSeduction: begin

   286    gtSeduction: begin

   286                 gear^.Radius:= 250;

   287                 gear^.Radius:= 250;

   287                 end;

   288                 end;

   288  gtShotgunShot: begin

   289  gtShotgunShot: begin