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