on *:TEXT:!setgreet*:#: {
  if ($chr(36) isincs $1-) { ban -k # $nick Attempt to exploit $me $+ | halt }
  if ($chr(47) isincs $1-) { ban -k # $nick Attempt to exploit $me $+ | halt }
  else {
    set %greet [ $+ [ $address($nick,2) ] ] $2-
    set %greetaddress [ $+ [ $nick ] ] $address($nick,2)
    set %greetnick [ $+ [ $address($nick,2) ] ] $nick
    notice $nick Your greet for %greetaddress [ $+ [ $nick ] ] is now set to: %greet [ $+ [ $address($nick,2) ] ]
  }
}
on *:TEXT:!delgreet:#: {
  notice $nick Your greet for %greetaddress [ $+ [ $nick ] ] has now been deleted
  unset %greetnick [ $+ [ $address($nick,2) ] ]
  unset %greet [ $+ [ $address($nick,2) ] ]
  unset %greetaddress [ $+ [ $nick ] ]
}
on *:TEXT:!greet:#: {
  notice $nick Your greet for %greetaddress [ $+ [ $nick ] ] is: %greet [ $+ [ $address($nick,2) ] ]
}
on *:JOIN:#: {
  if (%greetaddress [ $+ [ $nick ] ] == $address($nick,2)) {
    msg # $chr(91) $+ %greetnick [ $+ [ $address($nick,2) ] ] $+ $chr(93) %greet [ $+ [ $address($nick,2) ] ]
  }
}