acronym script

 on *:input:*:{
   if ($1- == $crlf) || ($regex($1-,/^ $+ $chr(9) $+ +?/)) || ($1- == $null) { halt }
   if ($left($1,1) != /) {
     if ($active ischan) || ($query($active)) {
       if ($inpaste) { msg $active $remove($1-,$chr(9)) | haltdef }
       else { msg $active $remove($1-,$chr(9)) | haltdef }
     }
   }
 }