some stuff I wrote...
basic $chan prots :
on *:text:*:#: {set %t $0var %i 1var %txt $1-if (%t > 100) {; number 100 is number of max words per line, it can be edited.kick $chan $nick Max words per line in this chan is 100 ,you had %t words...}if ($len($1-) > 500) {; number 500 is number of max characters per line, adjust it to suit you.kick $chan $nick Max length per line in this chan is 500 characters,you had $len($1-) characters...}while (%i <= %t) {if (#* iswm $gettok(%txt,%i,32)) && ($len($gettok(%txt,%i,32)) >= 2) {kick $chan $nick No channel advertising -[ $+ $gettok(%txt,%i,32) $+ ]-; Here it says what word was detected as channel name.}inc %i}}
mass modes :
alias modes {if ($me isop $chan) {var %num = $nick(#,0)var %i 1while (%i <= %num) {var %tmpnick = $nick(#,%i)if (%tmpnick != $me) {var %tnk %vnikzvar %vnikz %tmpnick %tnk}inc %i}if ($1 == $null) {echo -a $+ $color(info) $+ [Modes] You must enter which mode to be used. (supported +/- vohb) -[ ch1zra@gmail.com ]-}if (+v isin $1-) {mode # + $+ $str(v,$calc(%num - 1)) %vnikz}if (-v isin $1-) {mode # - $+ $str(v,$calc(%num - 1)) %vnikz}if (+o isin $1-) {mode # + $+ $str(o,$calc(%num - 1)) %vnikz}if (-o isin $1-) {mode # - $+ $str(o,$calc(%num - 1)) %vnikz}if (+h isin $1-) {mode # + $+ $str(h,$calc(%num - 1)) %vnikz}if (-h isin $1-) {mode # - $+ $str(h,$calc(%num - 1)) %vnikz}if (+b isin $1-) {mode # + $+ $str(b,$calc(%num - 1)) %vnikz}if (-b isin $1-) {mode # - $+ $str(b,$calc(%num - 1)) %vnikz}}}
simplest away system :
on *:input:*: {if (/away isin $1) {if ($2- == $null) {nick %awnickame is back from : 4 $+ %awr}else {set %awr $2-set %awnick $menick $me $+ [AwaY] ; you can edit away tag as you wishame is away. Reason : 4 $+ %awr}}}
usage : /away reason - to go away.. /away - with no reason to get back..
titlebar text animator :
alias tbar {write -c titlebar.animvar %tbr $1-if (%tbr == $null) {echo -a $+ $color(info) $+ No titlebar text was entered, animating active titlebar text...var %tbr $titlebar}var %ctr 1var %len $len(%tbr)while (%ctr <= %len) {write titlebar.anim titlebar $right(%tbr,%ctr)inc %ctr}while (%ctr >= 0) {write titlebar.anim titlebar $right(%tbr,%ctr)dec %ctr}while (%ctr <= %len) {write titlebar.anim titlebar $left(%tbr,%ctr)inc %ctr}set %timer.pause 400;pause between scrolls for timerset %tmr $calc($lines(titlebar.anim) * 30 + %timer.pause).timer -m 0 %tmr .play -cs titlebar.anim 30}on *:start: {.timer -m 0 %tmr .play -cs titlebar.anim 30}
usage /tbar text you want to be displayedif no text is provided, it will animate current titlebar text.
Ban protection :
on *:ban:#*: { if ($banmask iswm $address($me,5)) && ($me isop $chan) { mode $chan -b $banmask kick $chan $nick No ban $me $+ , $me angry... ( $+ %bkz $+ ) inc %bkz }}
destroy the auto thanx for voice :
on *:VOICE:#:{ if ($nick == $me) { set -u5 %autothnx 1 }}on *:text:*:#: { if (%autothnx) && ($me isin $1-) { notice $nick Turn autothanx off mode $chan -v $nick }}on *:action:*:#: { if (%autothnx) && ($me isin $1-) { notice $nick Turn autothanx off mode $chan -v $nick }}
have phUn
