Fun little game. Just type put the script in remotes and type !Lamer in a channel.

on *:TEXT:!lamer*:#: {
  if (!%waitlame) && (!$2) {
    set -u5 %waitlame stop
    set %chan.tot $nick($chan,0)
    set %ran.user $rand(1,%chan.tot)
    set %lamer $nick($chan,%ran.user)
    if (%lamer == $me) { 
      msg $chan Scanning $+(,$chan,) for lamers...
      .timer 1 1 msg $chan No lamers were found in $+(,$chan,) $+ .
    }
    else { 
      msg $chan Scanning $+(,$chan,) for lamers...
      .timer 1 1 msg $chan 4Lamer Detected: $+(,%lamer,)
      unset %ran.user
      unset %chan.tot
      unset %lamer
    }
  }
  else if (!%waitlame) && ($2 ison $chan) {
    set %lame $rand(1,2)
    if (%lame == 1) {
      set -u5 %waitlame stop
      msg $chan Deciding if $+(,$2,) is a lamer...
      .timer 1 1 msg $chan 4Lamer Status: $+(,Yes,)
      unset %lame
    }
    elseif (%lame == 2) && ($2 ison $chan) && (!%waitlame) {
      set -u5 %waitlame stop
      msg $chan Deciding if $+(,$2,) is a lamer...
      .timer 1 1 msg $chan 4Lamer Status: $+(,No,)
      unset %lame
    }
  }
  elseif ($2 !ison $chan) { msg $chan $+(,$2,) is not in $+(,$chan,) $+ . }
}