on *:TEXT:wobgreet*:#:{ 
  If ($chr(36) isin $2-) { 
    notice $nick Sorry The Symbol $ Is Not Allowed For Safety Reasons 
    halt
  }
  else {
    notice $nick Your greet is now: $2- 
    if ($read(greets.txt,s,$nick)) write $+(-s,$nick) greets.txt  $nick $2- 
    else write greets.txt $nick $2-
  }  
} 
on *:JOIN:#: { 
  if ($read(greets.txt,s,$nick)) {
    msg $chan $+([,$nick,]) $v1
  } 
}