hi
no need to $calc(%var +1) u can do var %ownah %ownah + 1 or just do /inc %ownah

i think u can do all that alias by one

P.S: code not tested

alias Wbragz {
  var %x 1,%~,%&,%@,%%,%+,%r,%n
  while $chan(%x) {
    var %p $left($nick($v1,$me).pnick,1)
    if ($istok(~.&.@.%.+,%p,46)) inc % $+ %p
    else inc %r
    inc %n $nick($chan(%x),0)
    inc %x
  }
  say I am currently in $chan(0) $iif($chan(0) == 1,channel,channels) on $+($network,$chr(44)) of which I have $iif(%~,none,$v1) of owner status, $iif(%&,0,$v1) $iif(%& == 1,admin,admins) $+ , $iif(%@,0,$v1) $iif(%@ == 1,op,ops) $+ , $iif(%%,0,$v1) $iif(%% == 1,halfop,halfops) $+ , $iif(%+,0,$v1) $iif(%+ == 1,voice,voices) and $iif(%r,0,$v1) $iif(%r == 1,channel,channels) with no status and channel power over %n $iif(%n == 1,person,people) $+ . $iif(o isincs $usermode,I also have an oline on this network.)
}

result:

• your code is 3207 bytes
• my code is 689 bytes

and u can do better