alias text { if ($1-) { if ($prop == r) { var %x = $numtok($1-,32),%words while (%x) { var %words = %words $gettok($1-,%x,32) dec %x } if (%words) return %words } if ($prop == r2) || ($prop == case) { var %x = 1,%words while ($gettok($1-,%x,32)) { var %text = $gettok($1-,%x,32),%lentext = $iif($prop == r2,$len(%text),1),%word while ($iif($prop == r2,%lentext,$mid(%text,%lentext,1))) { if ($prop == r2) { var %word = %word $+ $mid(%text,%lentext,1) } elseif ($prop == case) { var %word = %word $+ $iif($mid(%text,%lentext,1) isupper,$lower($mid(%text,%lentext,1)),$upper($mid(%text,%lentext,1))) } $iif($prop == r2,dec,inc) %lentext } var %words = %words %word inc %x } if (%words) return %words } } else return $1- } alias mass { if ($istok(+o -o +h -h +v -v -i,$1,32)) { if ($1 == -i) iecho -a * /mass SYNTAX: /mass <+,-|o,h,v> ; performs multiple mode actions on users in a specified channel else { if ($2 ischan) { var %+- = $left($1,1),%mode = $left($1,2),%chan = $nick($2,0),%nicks,%modes while (%chan) { var %nicks = %nicks $nick($2,%chan)) dec %chan } mode $2 $+(%+-,$str(%mode,$numtok(%nicks,32))) %nicks } } } elseif ($istok(+b -b,$1,32)) { if ($2 ischan) { if ($3) { var %+- = $left($1,1) var %3 = $remove($3,$chr(42)),%3 = $+($chr(42),$3,$chr(42)) if (%+- == -) { var %ibl = $ibl($2,0),%bans while (%ibl) { var %addy = $ibl($2,%ibl) if (%3 iswm %addy) var %bans = %bans %addy dec %ibl } } elseif (%+- == +) { if ($3 isnum 1-20) { var %chan = $nick($2,0),%bans while (%chan) { var %nick = $nick($2,%chan),%address = $address(%nick,$3) if ($nick($2,%chan) != $me) var %bans = %bans %address dec %chan } } } if (%bans) mode $2 $+(%+-,$str(b,$numtok(%bans,32))) %bans } } } else iecho -a * /mass: /mass <+,-|o,h,v> <#channel> }