on *:text:!greets*:#:{ 
  if ($nick isop $chan) {
    if ($2 == on) { set %Greets [ $+ [ $chan ] ]  on | notice $nick Greets are now On for this channel. | halt }
    elseif ($2 == off) { unset %Greets | notice $nick Greets are now Off for this channel. | halt }
    else { notice $nick You must be an Op in this channel.
    }
  }
}


on *:text:!setgreet*:#:{ if (!$($+(%Greets.,$chan),2)) { halt }
  else { if (!$2-) notice $nick You can't have nothing as a greet, if you want your greet deleting type !delgreet
    else { set $($+(%,$address(nick,3),.Greet)) $2-
      notice $nick You greet has been changed to: $2-
    }
  }
}

on *:text:!delgreet*:#:{ if (!$($+(%Greets.,$chan),2)) | halt }
else { if (!$($+(%,$address(nick,3),.Greet),2)) notice $nick You do not have a greet to delete.
  else { unset $($+(%,$address(nick,3),.Greet))
    notice $nick You greet has been deleted.
  }
}

on *:join:#:{ if (!$($+(%Greets.,$chan),2)) { halt }
  else { if (!$($+(%,$address(nick,3),.Greet),2)) notice $nick You do not have a greet, type !setgreet <greet> to make one.
    else { msg $chan $chr(91) $+ $nick $+ $chr(93) $($+(%,$address(nick,3),.Greet),2)
    }
  }
}