Pegasus

ON *:JOIN:#: {
    if ($nick == $me) halt
    elseif (%greet. [ $+ [ $nick ] ] == $null) {
      notice $nick *** Your greeting message isn't set! To save a greeting message, type: !setgreet greeting
    }
    else msg # [4 $+ $nick $+ 1] %greet. [ $+ [ $nick ] ]
  }
}
ON *:TEXT:!setgreet*:#: {
 if ($$2 == $null) { notice $nick Your greeting contains no information, please reset it }
  else {
    set %greet. [ $+ [ $nick ] ] $2-
    notice $nick *** Your greeting message has been set!
  }
}

ON *:TEXT:!unsetgreet:#: {
  if (%greet. [ $+ [ $nick ] ] != $null)
  unset %greet. [ $+ [ $nick ] ]
  notice $nick *** Your greeting message has been unset!
}

On *:TEXT:!checkgreet:#: {
  if (%greet. [ $+ [ $nick ] ] == $null) {
    notice $nick *** You do not have a greeting set. To set a greeting, type: !setgreet greeting
    halt
  }
  else {
    notice $nick *** Your on-join greeting is currently set to: %greet. [ $+ [ $nick ] ]
  }
}