on *:TEXT:!LKF*:#:{ set %read.lkf $calc((%read.lkf % $lines(LKF.txt))+1) msg # Litte Known Fact : $read(LKF.txt,n,%read.lkf) }