Mine

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 (%greetson [ $+ [ $chan ] ] == off) { halt }
  if ($read(greets.txt,s,$nick)) {
    msg $chan $+([,$nick,]) $v1
  } 
}