function USay.ChatFunction( ply, text )
   if ply:IsValid() then
      for k,	v in pairs(USay.WordList) do
         if string.find( text, k ) then
ply:EmitSound(USay.WordList[k])
            return text
         end
      end
   end
end
hook.Add("PlayerSay", "USay.ChatFunction_Hook", USay.ChatFunction) --Emoticons End