Something

on *:JOIN:%home-chan:{
  .enable #raw
  whois $nick
}
#raw off
raw *:*:{
  haltdef
  if ($numeric == 319) { 
    set $+(%,$2) $count($3-,@) $count($3-,%) $count($3-,+)
    omsg $ticks $2 is on $iif($calc($0 - 2) >= 1,$v1 Channels,$v1 Channel) $&
      Op in: $iif($gettok($($+(%,$2),2),1,32) >= 1,$v1 Channels,$v1 Channel) $&
      Half Op in: $iif($gettok($($+(%,$2),2),2,32) >= 1,$v1 Channels,$v1 Channel) $&
      Voice in: $iif($gettok($($+(%,$2),2),3,32) >= 1,$v1 Channels,$v1 Channel) $&
      Regular in: $iif($calc(($0 - 2) - ($gettok($($+(%,$2),2),1,32) + $gettok($($+(%,$2),2),2,32) + $gettok($($+(%,$2),2),3,32))) >= 1,$v1 Channels,$v1 Channel)
    omsg $ticks $+($2,:) $remove($3-,@,%,+)
  }
  if ($numeric == 318) { .disable #raw } 
}
#raw end
alias -l omsg {
  set $+(%,$1) 0
  while ($($+(%,$1),2) < $nick(%home-chan,0)) {
    inc $+(%,$1) 1
    if ($nick(%home-chan,$($+(%,$1),2)) isop %home-chan) { .msg $nick(%home-chan,$($+(%,$1),2)) $2- }
    else { unset $+(%,$1) | break }
  }
}