On *:Join:#: {

  if (!%greet [ $+ [ $address($nick,2) ] ] == on) { halt }
  else {
    msg $chan $chr(91) $+ $nick $+ $chr(93) %greet [ $+ [ $address($nick,2) ] ] 
  }
}

On *:TEXT:!setgreet*:#: {
  set %greet [ $+ [ $address($nick,2) ] ] $2-
  notice $nick ** [Greet] Your greet has been set. To view your greet, type !viewgreet.
}

On *:TEXT:!delgreet:#: {
  unset %greet [ $+ [ $address($nick,2) ] ]
  notice $nick ** [Greet] Your greet has been deleted.
}

On *:TEXT:!viewgreet:#: {
  if (!%greet [ $+ [ $address($nick,2) ] ]) {
    notice $nick ** [Greet] You dont have a greet : !setgreet greet
  }
  else {
    notice $nick ** [Greet] Your greet is set to: %greet [ $+ [ $address($nick,2) ] ]
  }
}