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        gtFlame: begin

   275        gtFlame: begin

   275                 Result^.Angle:= Counter mod 64;

   276                 Result^.Angle:= Counter mod 64;

   276                 Result^.Radius:= 1;

   277                 Result^.Radius:= 1;

   277                 Result^.Health:= 2;

   278                 Result^.Health:= 2;

   278                 Result^.dY:= (getrandom - _0_8) * _0_03;

   279                 Result^.dY:= (getrandom - _0_8) * _0_03;