Someone

alias -l c2 return $+($chr(3),02,$1-,$chr(3)) 
alias -l c7 return $+($chr(3),07,$1-,$chr(3)) 

on $*:TEXT:/^[!@](greetsoff)/Si:#:{
  if (%greetsoff [ $+ [ $chan ] ] == off) { 
  /notice $nick $+($c2(**[),$c7(ERROR),$c2(] The command "),$c7(Greet),$c2(" is already) $c7(off),$c2(.)) }
  elseif ($nick isop #) || ($nick ishop #) {
    set %greetsoff [ $+ [ $chan ] ] off
    msg $chan $+($c2(**[),$c7(GREET),$c2(]** The command "),$c7(Greet),$c2(" is now) $c7(off)) $+ $c2(.)
    unset %greetson [ $+ [ $chan ] ]
  }
  else {
notice $nick $+($c2(**[),$c7(ERROR),$c2(]** Sorry) $c7($nick),$c2(, you do not have) $c7(access) $c2(to this command.)) } }

on $*:TEXT:/^[!@](greetson)/Si:#:{
  if (%greetson [ $+ [ $chan ] ] == on) { /notice $nick $+($c2(**[),$c7(ERROR),$c2(]** The command "),$c7(Greet),$c2(" is already) $c7(on),$c2(.)) }
  elseif ($nick isop #) || ($nick ishop #) {
    set %greetson [ $+ [ $chan ] ] on
    msg $chan $+($c2(**[),$c7(GREET),$c2(]** The command "),$c7(Greet),$c2(" is now) $c7(on)) $+ $c2(.)
    unset %greetsoff [ $+ [ $chan ] ]
  }
  else {
notice $nick $+($c2(**[),$c7(ERROR),$c2(]** Sorry) $c7($nick),$c2(, you do not have) $c7(access) $c2(to this command.)) } }

on $*:TEXT:/^[!@](setgreet)/Si:#:{
  if (%greetsoff [ $+ [ $chan ] ] == off) {
    /notice $nick $+($c2(**[),$c7(ERROR),$c2(]** The command "),$c7(Greet),$c2(" is turned) $c7(off),$c2(. Ask an) $c7(Op) $c2(or) $c7(Halfop) $c2(to type) $c7(!awayon),$c2(, $&
    if this is an) $c7(error) $c2(please contact) $c7([-sophie-]) $c2(or) $c7([-srankie-]),$c2(.)) }
  else {
    if (!$2) { /notice $nick $+($c2(**[),$c7(ERROR),$c2(]** You have) $c7(not) $c2(specified any) $c7(greet),$c2(.)) }
    else {
      if (%grat [ $+ [ $nick ] ] == on) { /notice $nick $+($c2(**[),$c7(ERROR),$c2(]** You) $c7(already) $c2(have a greet) $c7(set),$c2(. Type) $c7(!delgreet) $c2(to remove it.)) }
      else {
        set %grat [ $+ [ $nick ] ] on
        /writeini greets.ini $address($nick,2) Greet $2-
/notice $nick $+($c2(**[),$c7(GREET),$c2(]** Your greet has been set to "),$c7($2-),$c2(" for the host) $c2("),$c7($address($nick,2)),$c2(".)) } } } }

on $*:TEXT:/^[!@](delgreet)/Si:#:{
  if (%greetsoff [ $+ [ $chan ] ] == off) {
    /notice $nick $+($c2(**[),$c7(ERROR),$c2(]** The command "),$c7(Greet),$c2(" is turned) $c7(off),$c2(. Ask an) $c7(Op) $c2(or) $c7(Halfop) $c2(to type) $c7(!awayon),$c2(, $&
    if this is an) $c7(error) $c2(please contact) $c7([-sophie-]) $c2(or) $c7([-srankie-]),$c2(.)) }
  else {
    if ($readini(greets.ini, n, $address($nick,2), Greet) == $null) {
    /notice $nick $+($c2(**[),$c7(ERROR),$c2(]** You do) $c7(not) $c2(have any greet to) $c7(delete),$c2(.)) }
    else {
      /notice $nick $+($c2(**[),$c7(GREET),$c2(]** Your greet) $c2($chr(40)),$c7($readini(greets.ini, n, $address($nick,2), Greet)),$c2($chr(41) has been) $c7(deleted),$c2(.))
      remini greets.ini $address($nick,2)
unset %grat [ $+ [ $nick ] ] } } } }

on $*:TEXT:/^[!@](viewgreet)/Si:#:{
  if if (%greetsoff [ $+ [ $chan ] ] == off) {
    /notice $nick $+($c2(**[),$c7(ERROR),$c2(]** The command "),$c7(Greet),$c2(" is turned) $c7(off),$c2(. Ask an) $c7(Op) $c2(or) $c7(Halfop) $c2(to type) $c7(!awayon),$c2(, $&
    if this is an) $c7(error) $c2(please contact) $c7([-sophie-]) $c2(or) $c7([-srankie-]),$c2(.)) }
  else {
    set %way $iif($left($1,1) == @,msg $chan,notice $nick)
    if (!$2) && ($readini(greets.ini, n, $address($nick,2), Greet) != $null) { %way $+($c2(**[),$c7(GREET),$c2(]** Your greet is "),$c7($readini(greets.ini, n, $address($nick,2), Greet)),$c2(".)) }
    else {
      if (!$2) && ($readini(greets.ini, n, $address($nick,2), Greet) == $null) { %way $+($c2(**[),$c7(GREET),$c2(]** You have) $c7(no) $c2(greet set.)) }
      else {
        if ($readini(greets.ini, n, $address($2,2), Greet) != $null) {
        %way $+($c2(**[),$c7(GREET),$c2(]** The greet of "),$c7($2),$c2(" is "),$c7($readini(greets.ini, n, $address($2,2), Greet)),$c2(".)) }
else { %way $+($c2(**[),$c7(GREET),$c2(]** "),$c7($2),$c2(" has) $c7(no) $c2(greet set.)) } } } } }

on *:JOIN:#:{
  if (%greetson [ $+ [ $chan ] ] == on && ($readini(greets.ini, n, $address($nick,2), Greet) != $null)) {
  msg $chan $+($c2($chr(40)),$c7($nick),$c2($chr(41))) $readini(greets.ini, n, $address($nick,2), Greet) }
  else {
    if (%greetson [ $+ [ $chan ] ] == on && ($readini(greets.ini, n, $address($nick,2), Greet) == $null)) { halt }
    else {
      if (%greetsoff [ $+ [ $chan ] ] == off) { halt }
  } }