Idle-op

[chain]

>on *:text:!warn on:#:{

 if ($nick isop $chan) || ($nick ishop $chan) {

   if (%warnon [ $+ [ $chan ] ] == $null) {

     set %warnon [ $+ [ $chan ] ] sup

     msg $chan 7Idle-op is now ON

   }

   else notice $nick it is already on.

 }

 else notice $nick you need to be op or hop to use this.

}



on *:text:!warn off:#:{

 if ($nick isop $chan) || ($nick ishop $chan) {

   if (%warnon [ $+ [ $chan ] ] != $null) {

     unset %warnon [ $+ [ $chan ] ]

     msg $chan 7Idle-op is now OFF

   }

   else notice $nick it is already off.

 }

 else notice $nick you need to be op or hop to use this.

}



on *:TEXT:*:#: {

 if (%warnon [ $+ [ $chan ] ] != $null) {



   if (aaaaaa isin $1-) || (bbbbbb isin $1-) || (cccccc isin $1-) || (dddddd isin $1-) || (eeeeee isin $1-) || (ffffff isin $1-) || (gggggg isin $1-) || (hhhhhh isin $1-) || (iiiiii isin $1-) || (jjjjjj isin $1-) || (kkkkkk isin $1-) || (llllll isin $1-) || (mmmmmm isin $1-) || (nnnnnn isin $1-) || (oooooo isin $1-) || (pppppp isin $1-) || (qqqqqq isin $1-) || (rrrrrr isin $1-) || (ssssss isin $1-) || (tttttt isin $1-) || (uuuuuu isin $1-) || (vvvvvv isin $1-) || (wwwwww isin $1-) || (xxxxxx isin $1-) || (yyyyyy isin $1-) || (zzzzzz isin $1-) {

     if (%nickick [ $+ [ $nick ] ] == 2) { /kick $chan $nick Please use less characters in one word (3/3) | halt }

     if (%nickick [ $+ [ $nick ] ] == 1) { /msg $chan 4[Warning]  $+ $nick $+  Please use less characters in one word (2/3) | set %nickick [ $+ [ $nick ] ] 2 | halt }

     msg $chan 4[Warning]  $+ $nick $+  Please use less characters in one word (1/3)

     set %nickick [ $+ [ $nick ] ] 1

   }

   if (!!!!!! isin $1-) {

     if (%nickick [ $+ [ $nick ] ] == 2) { /Kick $chan $nick Please use less exclamation marks! (3/3) | halt }

     if (%nickick [ $+ [ $nick ] ] == 1) { /msg $chan 4[Warning]  $+ $nick $+  Please use less exclamation marks! (2/3) | set %nickick [ $+ [ $nick ] ] 2 | halt }

     msg $chan 4[Warning]  $+ $nick $+  Please use less exclamation marks! (1/2)

     set %nickick [ $+ [ $nick ] ] 1

   }

 }

 elseif (%warnon == $null) { halt }  

}



on *:PART:#: { unset %nickick [ $+ [ $nick ] ] }

on *:kick:#: { unset %nickick [ $+ [ $knick ] ] }