on *:INPUT:#:{
var %numnicks $nick($chan,0)
var %nicktxt $left($1,3)
var %c 1
while (%c <= %numnicks) {
var %cnick = $nick( $chan , %c )
var %mnicktxt $left(%cnick,3)
if (%nicktxt == %mnicktxt) { 
var %flag 1
var %nick = $nick($chan,%c)
break 
}

inc %c 1
}
if (%flag == 1) {
/msg $chan 10.:12(10=>12 %nick 10<=12)10:. $2- 
HALT
}

}