on *:TEXT:!setgreet*:#:{
  if ($2 == off) {
    write -ds $+ $address($nick,3) "c:/mircsaves/greets.txt"
    write "c:/mircsaves/greets.txt" $address($nick,3) off
    notice $nick [GREET] You have disabled your greet. To enable it, type !setgreet TEXT.
    halt
  }
  if ($2 == $null) {
    notice $nick [GREET] Error! You have to enter a valid text!
  }
  else {
    write -ds $+ $address($nick,3) "c:/mircsaves/greets.txt"
    write "c:/mircsaves/greets.txt" $address($nick,3) $2-
    notice $nick [GREET] You have changed your greet into:
    notice $nick $read("c:/mircsaves/greets.txt", s, $address($nick,3)) $+ .
  }
}



on *:JOIN:#:{
  if ($read("c:/mircsaves/greets.txt", s, $address($nick,3)) == off) {
    halt
  }
  elseif ($read("c:/mircsaves/greets.txt", s, $address($nick,3)) == $null) {
    notice $nick [GREET] You haven't set a greet yet! Type !setgreet TEXT to set a greet, or !setgreet OFF to
    disable this message without setting a greet.
  }
  elseif ($read("c:/mircsaves/greets.txt", s, $address($nick,3)) != $null) {
    msg $chan [ $+ $nick $+ ]: $read("c:/mircsaves/greets.txt", s, $address($nick,3))
  }
}