you could make it abit shorter
alias spam {
if ($regex($1,/^-([cbu]{1,3})$/) && $2) {
var %^ = $numtok($2-,32), %& = 1, %$
while (%& <= %^) {
if ($+(*,c,*) iswm $regml(1)) %$ = $addtok(%$,$+(,$r(8,15),$chr(44),$r(0,7),$gettok($2-,%&,32)),32)
inc %&
}
msg $chan $iif($+(*,u,*,b,*) iswm $regml(1),,$iif($+(*,b,*,u,*) iswm $regml(1),,$iif(b isin $regml(1),,$iif(u isin $regml(1),)))) $str($+($iif(!%$,$2-,%$),$chr(32)),$floor($calc(400/$len($iif(!%$,$2-,%$) $+ $chr(32)))))
}
}