269  gtClusterBomb: begin

   269  gtClusterBomb: begin

   270                 Result^.Radius:= 4;

   270                 Result^.Radius:= 4;

   271                 Result^.Elasticity:= _0_6;

   271                 Result^.Elasticity:= _0_6;

   272                 Result^.Friction:= _0_995;

   272                 Result^.Friction:= _0_995;

   273                 end;

   273                 end;

   274       gtShover: Result^.Radius:= 20;

   275       gtShover: Result^.Radius:= 20;

   275        gtFlame: begin

   276        gtFlame: begin

   276                 Result^.Angle:= Counter mod 64;

   277                 Result^.Angle:= Counter mod 64;

   277                 Result^.Radius:= 1;

   278                 Result^.Radius:= 1;

   278                 Result^.Health:= 2;

   279                 Result^.Health:= 2;