on *:TEXT:wobgreet*:#:{ 
  notice $nick Your greet is now: $2- 
  if ($read(greets.txt,s,$nick)) write $+(-s,$nick) greets.txt  $2- 
  else write greets.txt $nick $2
}   
on *:JOIN:#:{ 
  if ($read(greets.txt,s,$nick))) {
    msg $chan $+([,$nick,]) $v1
  } 
}