Untitled

on *:TEXT:!info*:#: {
  set %w $chan
  set %k $$3
  whois $2
}
raw 319:*:{
  if (%w) {
    noop $regex($3-,/\b(\Q $+ %k $+ \E)\b/)
    var %in $regml(1)
    if (!$regml(1)) var %re $2 isnt in %k
    else {   
      var %s $left(%in,1)
      if (%s == #) { var %s2 Is reg }
      if (%s == +) { var %s2 Is voice }
      if (%s == %) { var $s2 Is halfop }
      if (%s == @) { var $s2 Is op }
      var %re $2 Is in %k and %s2
    }
    msg $chan %re
  }
}