189 if CurrentTeam <> nil then

   189 if CurrentTeam <> nil then

   190    begin

   190    begin

   191    Result^.Hedgehog:= CurrentHedgehog;

   191    Result^.Hedgehog:= CurrentHedgehog;

   192    Result^.IntersectGear:= CurrentHedgehog^.Gear

   192    Result^.IntersectGear:= CurrentHedgehog^.Gear

   193    end;

   193    end;

   195 case Kind of

   195 case Kind of

   196        gtCloud: Result^.Z:= High(Result^.Z);

   196        gtCloud: Result^.Z:= High(Result^.Z);

   197    gtAmmo_Bomb: begin

   197    gtAmmo_Bomb: begin

   198                 Result^.Radius:= 4;

   198                 Result^.Radius:= 4;

   199                 Result^.Elasticity:= _0_6;

   199                 Result^.Elasticity:= _0_6;