on *:JOIN:#: { 
  if (%greets [ $+ [ $chan ] ] == on) || (%greets [ $+ [ $chan ] ] == $null) {  
    if (%greet [ $+ [ $nick ] ] == $null) { 
      notice $nick You have no greet set! !setgreet to set one. 
      halt 
    } 
    if (%greet [ $+ [ $nick ] ] !== $null) { 
      msg $chan [ 4»7»1 $nick 7«4«1 ] %greet [ $+ [ $nick ] ] 
    } 
  } 
} 
on *:TEXT:!setgreet*:#: { 
  if (!$2) { 
    notice $nick You must provide a greet. 
    halt 
  } 
  if (*$* iswm $2) { 
    notice $nick Identifyers aernt accepted. Nice try. 
    halt 
  } 
  if (%greet [ $+ [ $nick ] ] == $null) { 
    set %greet [ $+ [ $nick ] ] $2- 
    notice $nick Your personal greet set to: $2- 
    halt 
  } 
  if (%greet [ $+ [ $nick ] ] !== $null) { 
    set %greet [ $+ [ $nick ] ] $2- 
    notice $nick Your personal greet has been changed to: $2- 
  } 
} 
on *:TEXT:!delgreet:#: { 
  if (%greet [ $+ [ $Nick ] ] == $Null) { 
    notice $nick You have no greet set! 
    halt 
  } 
  unset %greet [ $+ [ $nick ] ] 
  notice $nick Your greet has been unset. 
  halt 
} 
on *:TEXT:!greets*:#: { 
  if (!$2) { 
    notice $nick Syntax: !greets on / !greets off 
    halt 
  } 
  if (%greets [ $+ [ $chan ] ] == $null) { 
    if ($2 == on) && (%greets [ $+ [ $chan ] ] == $null) { 
      set %greets [ $+ [ $chan ] ] on 
      msg $chan Greets are now on! 
      halt 
    } 
    if ($2 == off) && (%greets [ $+ [ $chan ] ] == $null) { 
      set %greets [ $+ [ $chan ] ] off 
      msg $chan Greets are now off! 
      halt 
    } 
  } 
  if (%greets [ $+ [ $chan ] ] !== $null) { 
    if ($2 == on) && (%greets [ $+ [ $chan ] ] == off) { 
      set %greets [ $+ [ $chan ] ] on 
      msg $chan Greets are now on! 
      halt 
    } 
    if ($2 == off) && (%greets [ $+ [ $chan ] ] == on) { 
      set %greets [ $+ [ $chan ] ] off 
      msg $chan Greets are now off! 
      halt 
    } 
  }