on *:text:*:#: {

set %t $0

var %i 1

var %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

}

}

alias modes {

if ($me isop $chan) {

var %num = $nick(#,0)

var %i 1

while (%i <= %num) {

var %tmpnick = $nick(#,%i)

if (%tmpnick != $me) {

var %tnk %vnikz

var %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

}

}

}

on *:input:*: {

if (/away isin $1) {

if ($2- == $null) {

nick %awnick

ame is back from : 4 $+ %awr

}

else {

set %awr $2-

set %awnick $me

nick $me $+ [AwaY]
; you can edit away tag as you wish

ame is away. Reason : 4 $+ %awr

}

}

}

alias tbar {

write -c titlebar.anim

var %tbr $1-

if (%tbr == $null) {

echo -a  $+ $color(info) $+ No titlebar text was entered, animating active titlebar text...

var %tbr $titlebar

}

var %ctr 1

var %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 timer

set %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

}

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

 }

}

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

 }

}