Code:
alias sml {
  if (!$+(%sml.,$1)) { set $+($(%sml.,$1)) $$?="Greet Msg:" }
  else { beep $input($+(There is already a smiley set for $1 $+ .,$crlf,Check your smileys),o,Problem) }
}

Syntax: /sml