Something

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 4.:12(=>3 %nick 12 <=)4:. $2- 
    HALTDEF
  } 
}