napa182 commented on a Page, Spam alias  -  Dec 07, 2008

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))))) 
  }           
}
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.