Someone

on $*:TEXT:/^[!@]greet/Si:#: {
  if ($2 == on) || ($2 == off) && ($nick isop $chan) {
    set %greet [ $+ [ $chan ] ] $2
    msg $chan Greets Turned $2 for this Channel.
  }
  else notice $nick You need Op Access. Example: !greet off turns greet off for your channel.
}

on $*:TEXT:/^[!@]setgreet/Si:#: {
  if ($ isin $2-) {
    Halt
  }
  else {
    writeini greet.ini $address($nick,2) message $2-
    notice $nick Your Greet is Changed to: $2- $+ .
  }
}

on $*:TEXT:/^[!@]delgreet/Si:#: {
  remini greet.ini $address($nick,2)
  notice $nick Your Greet has been Unset.
}

on *:JOIN:#: {
  if (%greet [ $+ [ $chan ] ] == off) {
  halt }
  elseif ($readini(greet.ini, n, $address($nick,2), message)) {
    msg $chan [» $+ $nick $+ «] $readini(greet.ini, n, $address($nick,2), message)
  }
  else {
    notice $nick You don't have a greet set. Type !setgreet <greet> to set one.
  }