function DoSound(ply,cmd,args)
 local sound=args[1]
 local pitch=tonumber(args[2])
 util.PrecacheSound(sound)
 surface.PlaySound(sound,100,pitch)
end
concommand.Add("p",DoSound)