on *:INPUT:#:{
  if ($1 == there || $1 == though) { HALT }
  var %numnicks $nick($chan,0)
  var %nicktxt $left($1,4)
  var %c 1
  while (%c <= %numnicks) {
    var %cnick = $nick( $chan , %c )
    var %mnicktxt $left(%cnick,4)
    if (%nicktxt == %mnicktxt) { 
      var %flag 1
      var %nick = $nick($chan,%c)
      break 
    }
    inc %c 1
  }
  if (%flag == 1) {
    /msg $chan 11.:12(11=>12 %nick 11<=12)11:. $2- 
    HALT
  } 
}