Mine

on *:text:!setgreet ?*:#: {
  if ($len($2-) <= 100) {
    set $+(%,personal.greet.,$address($nick,3)) $2-
    notice $nick Your greet is $qt($2-)
  }
  else notice $Nick Please make your greet message 100 characters or less
}
on !*:join:#: {
  if ($($+(%,personal.greet.,$address($nick,3)),2))  msg # 7::15 $nick 7::6 $v1
  else notice $nick Get a greet message: !setgreet <message>
}