Something

on me:*:JOIN:#:mode # a | mode # q
raw 388:*:hadd -m is_a $+ $2 $3 $true
raw 386:*:hadd -m is_q $+ $2 $3 $true
on *:RAWMODE:#:{
  var %c 1,%t 1
  while (%c <= $len($1)) {
    if ($mid($1,%c,1) isin +-) var %+- $v1
    else {
      if ($mid($1,%c,1) !isincs $gettok($chanmodes,4,44)) {
        inc %t
        if ($mid($1,%c,1) isincs qa) {
          if (%+- == +) hadd -m is_ $+ $mid($1,%c,1) $+ $chan $($ $+ %t,2) $true
          else hdel is_ $+ $mid($1,%c,1) $+ $chan $2
        }
      }
    }
    inc %c
  }
}
alias isOwner return $iif($hget(is_q $+ $1,$2),$true,$false)
alias isAdmin return $iif($hget(is_a $+ $1,$2),$true,$false)