on *:TEXT:!setgreet *:#:{
  write -ds $+ $nick setgreet.txt
  write setgreet.txt $nick $2-
  set %greetmsg [ $+ [ $nick ] ] on
  notice $nick 4Your greet has been set to: $2-
}
on *:JOIN:#:{
  if (%greetmsg [ $+ [ $nick ] ] != $null) {
    msg $chan < $+ 4 $nick $+ 1 > $read(setgreet.txt, s, $nick)
  }
}