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 %nickgreet [ $+ [ $address($nick,2) ] ] $2-
    set %greetaddress [ $+ [ $nick ] ] $address($nick,2)
    notice $nick Your greet for $address($nick,2) is now set to: $2-
  }
}
on *:TEXT:!delgreet:#: {
  unset %nickgreet [ $+ [ $address($nick,2) ] ]
  unset %greetaddress [ $+ [ $nick ] ]
  notice $nick Your greet for $address($nick,2) has now been deleted
}
on *:TEXT:!greet:#: {
  notice $nick Your greet for $address($nick,2) is: %nickgreet [ $+ [ $address($nick,2) ] ]
}
on *:JOIN:#: {
  if (%greetaddress [ $+ [ $nick ] ] == $address($nick,2)) {
    msg # $chr(91) $+ $nick $+ $chr(93) %nickgreet [ $+ [ $address($nick,2) ] ]
  }
}