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