374        gtGrave: begin

   374        gtGrave: begin

   375                 gear^.ImpactSound:= sndGraveImpact;

   375                 gear^.ImpactSound:= sndGraveImpact;

   376                 gear^.nImpactSounds:= 1;

   376                 gear^.nImpactSounds:= 1;

   377                 gear^.Radius:= 10;

   377                 gear^.Radius:= 10;

   378                 gear^.Elasticity:= _0_6;

   378                 gear^.Elasticity:= _0_6;

   379                 end;

   380                 end;

   380          gtBee: begin

   381          gtBee: begin

   381                 gear^.Radius:= 5;

   382                 gear^.Radius:= 5;

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

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

   383                 gear^.RenderTimer:= true;

   384                 gear^.RenderTimer:= true;