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