Zr

alias c1 { return $+(,$1-) }
alias c2 { return $+(,$1-) }
On $*:TEXT:/^[!@.]setgreet/Si:#: {
  if (*$* !iswm $1-) {
    if ($readini(greets.ini,greets,$wildsite)) {
      writeini -n greets.ini greets $wildsite $replace($2-,$chr(3),@k@,$chr(2),@b@,$chr(22),@r@,$chr(31),@u@,$chr(15),@o@)
      notice $nick $c1(Your greet has been changed to:) $+ $2-
    }
    else {
      writeini -n greets.ini greets $wildsite $replace($2-,$chr(3),@k@,$chr(2),@b@,$chr(22),@r@,$chr(31),@u@,$chr(15),@o@)
      notice $nick $c1(Your greet has been set to:) $+ $2-
    }
    else {
      notice $nick $c1(Sorry, identifiers aren't allowed.)
    }
  }
}
on $*:TEXT:/^[!@.]delgreet/Si:#: {
  if (!$readini(greets.ini,greets,$wildsite)) {
    notice $nick $c1(You have no greet to delete!)
  }
  else {
    notice $nick $c1(Your greet of:) $+ $qt($replace($readini(greets.ini,greets,$wildsite),@k@,$chr(3),@b@,$chr(2),@r@,$chr(22),@u@,$chr(31),@o@,$chr(15)) $+ ) $c1(has been deleted.)
    remini greets.ini greets $wildsite
  }
}
on $*:TEXT:/^[!@.]viewgreet/Si:#: {
  if (!$2) && ($right($1,5) == greet) {
    if (!$readini(greets.ini,greets,$wildsite)) {
      notice $nick $c1(You have no greet set. Type) $c2(!setgreet <greet>) $c1(to set one.)
    }
    else {
      notice $nick $c1(Your greet is:) $+ $qt($replace($readini(greets.ini,greets,$wildsite),@k@,$chr(3),@b@,$chr(2),@r@,$chr(22),@u@,$chr(31),@o@,$chr(15)) $+ )
    }
  }
}
on $*:TEXT:/^[!@.]greets/Si:#: {
  if (!$2) {
    notice $nick $c1(Please specify on or off)
  }
  if ($nick ishop $chan || $nick isop $chan) {
    if ($2) {
      writeini -n greets.ini channels $chan $2
      notice $chan $c1(Greets for) $c2($chan) $c1(have been turned) $c2($2) $+ $c1(.)
    }
  }
  else {
    notice $nick $c1(You need to be an op/halfop to use this command.)
  }
}
on *:JOIN:#: {
  if ($readini(greets.ini,channels,$chan) != off) {
    if ($readini(greets.ini,greets,$wildsite)) {
      msg $chan $+([,$nick,]) $replace($readini(greets.ini,greets,$wildsite),@k@,$chr(3),@b@,$chr(2),@r@,$chr(22),@u@,$chr(31),@o@,$chr(15))
    }
    else {
      notice $nick $c1(You have no greet set! Type) $c2(!setgreet <greet>) $c1(to set one.)
    }
  }
}