Stuff

alias isowner { 
  if ($isid) return $iif($nick($1,$2,q) || $istok($ial($2).mark,$1,32),$true,$false) 
  .ialmark $2 $($+($,$3,tok($ial($2).mark,$1,32)),2) 
} 
on *:join:#:{ 
  isowner # $nick rem 
  isadmin # $nick rem
} 
on *:owner:#:{ isowner # $opnick add } 
on *:deowner:#:{ isowner # $opnick rem } 
raw 386:*:{ isowner $2- add }
alias isadmin { 
  if ($isid) return $iif($nick($1,$2,$mid($prefix,$pos($nickmode,a),1)) || $istok($ial($2).mark,a $+ $1,32),$true,$false) 
  .ialmark $2 $($+($,$3,tok($ial($2).mark,a $!+ $!1,32)),2) 
} 
on *:rawmode:#:{ 
  if (*a*,*,*,* iswmcs $chanmodes) { 
    var %a = 1, %b, %c = 2 
    while ($mid($1,%a,1)) { 
      if ($v1 isin +-) %b = $v1 
      if ($v1 === a) isadmin # $($ $+ %c,2) $replace(%b,+,add,-,rem) 
      if ($regex($nickmode $chanmodes,/(?:^|,)(?=.* $v1 )/gx) %b isin 3 +1 %b 2 %b) inc %c 
      inc %a 
    } 
  } 
} 
raw 388:*:{ isadmin $2- add }