on *:text:!setgreet*:#:{
  if ($2) {
    set %greet. [ + [ $nick ] ] $2-
    notice $nick 12Your greet has been set.
  }
  else {
    unset %greet. [ $+ [ $nick ] ]
    notice $nick 12Your greet has been unset.
  }
}
on *:text:!greet on*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %nogreet. [ $+ [ $chan ] ] on
    msg $chan 12Greet enabled for7 $chan $+ 12.
  } 
}
on *:text:!greet off*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %nogreet. [ $+ [ $chan ] ] off
    msg $chan 12Greet disabled for7 $chan $+ 12.
  }
}
on *:JOIN:#:{
  if (%nogreet. [ $+ [ $chan ] ] == off) { HALT }
  if (%nogreet. [ $+ [ $chan ] ] == on) && (%greet. [ $+ [ $nick ] ]) {
    msg $chan 12[7 $+ $nick $+ 12]:7 %greet. [ $+ [ $nick ] ]
  }
}