you can also use tokens to make it abit shorter
alias modenum { var %^ = + % @ & ~, %$ = $left($nick(#,$1).pnick,1) | return $iif($istok(%^,%$,32),$findtok(%^,%$,1,32),0) }