alias axpi_show_power {
  if ($hget(axpi_power)) { hfree axpi_power }
  hmake axpi_power 50
  var %x = 1 , %h , %c , %p , %y
  while ($chan(%x)) {
    var %h = 1 , %c = $chan(%x) , %p = $iif($left($nick(%c,$me).pnick,1) isin ~&%+@,$ifmatch,n)
    while ($nick(%c,%h)) {
      if ($axpi_show_power_2(%p,$iif($left($nick(%c,%h).pnick,1) isin ~&@+%,$left($nick(%c,%h).pnick,1),n))) { hadd axpi_power $nick(%c,%h) moo }
      inc %h
    }
    inc %x
  }
  var %y = $iif($hget(axpi_power,0).item,$ifmatch,0) , %h
  if (%y < 5) { goto end }
  var %x = 1 , %j , %k , %h = A few random nicknames:
  while (%x <= 3) {
    %j = $rand(1,%y)
    if (!$istok(%k,%j,46)) {
      %k = $addtok(%k,%j,46)
      %h = %h $hget(axpi_power,%j).item
    }
    else { continue }
    inc %x
  }
  :end
  axpi_msg $active I have power over $iif(!%y,0,%y) $iif(%y != 1,unique people!,person!) %h
}

alias axpi_show_power_2 {
  if ($1 == ~) && ($2 != ~) { return $true }
  if ($1 == &) && ($2 isin $+(+n@,$chr(37))) { return $true }
  if ($1 == @) && ($2 isin $+(n+,$chr(37))) { return $true }
  if ($1 == %) && ($2 isin +n) { return $true }
  if ($1 == +) && ($2 == n) { return $true }
  return $false
}