concommand.Add( "suka", function( player )
for k, v in pairs (ents.FindInSphere(player:GetPos(), 512)) do
 v:SendLua("LocalPlayer():EmitSound('npc/suka.wav', 100, 100)")
end
end