on *:input:*:{ if $left($1,1) != / { var %x 1 while ($gettok($1-,%x,32)) var %v $v1,%t %t $iif($read(wdic.txt,s,$(,$+(%,v))),$v1,$(,$+(%,v))),%x %x + 1 msg $active %t haltdef } }