on *:INPUT:#: { if ((/* !iswm $1) && (*: iswm $1)) { var %i = 1 while ($nick($chan,%i)) { if ($replace($1,:,*) iswm $nick($chan,%i)) { msg $chan 6·7<4{6 $+ $nick($chan,%i) $+ 4}7>6·1 $2- halt } inc %i } } }