Color Bold Underline Warn/Kick/Ban

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	8.7
Scores Submitted	6
Date Added	Aug 26, 2007
Last Updated	Nov 14, 2007
Tags	ban bold bot color control kick underline

Introduction

Ok this is a color bold underline kicker. What it does is it will warn the person not to use color bolds and underlines then kick them if they do it again, and if they still do it they will get banned.. It's set up the same as my Flood Protection script. I made these Control scripts in a series so they are set up the same. Just like the other script you load this on into a new remote and add Ur self as owner by /botking Urnickhere. type !color help for commands.

Grab the Code

alias botking { set %botking $1 | echo -a 0,1Bot Owner Is Now4,1 $1 0,1 ��X�Ǯ��t0��X׻ � }
on *:text:!color *:#:{
  if (($nick != %botking) && ($2 == on)) { 
    msg $chan You Wish You Could Do That $nick 
  }
  elseif (($nick != %botking) && ($2 == off)) {
    msg $chan You Wish You Could Do That $nick
  }
  elseif (($nick == %botking) && ($2 == on) && (%2controlcolor [ $+ [ $3 ] ] == on)) {
    msg $chan My Color , Bold , Underline ,Reverse Protection Is Already On For $3 
  }
  elseif (($nick == %botking) && ($2 == on)) {
    set %2controlcolor [ $+ [ $3 ] ] on
    set %2colorchan $addtok(%2colorchan,$3,44)
    msg $chan My Color , Bold , Underline , Reverse Protection Is Now ON In $3 !! ��X�Ǯ��t0��X׻ �
  }
  elseif (($nick == %botking) && ($2 == off) && (%2controlcolor [ $+ [ $3 ] ] == $null)) {
    msg $chan My Color , Bold , Underline, Reverse Protection Is Already OFF For $3 
  }
  elseif (($nick == %botking) && ($2 == off)) {
    unset %2controlcolor [ $+ [ $3 ] ]
    set %2colorchan $remtok(%2colorchan,$3,1,44)
    msg $chan My Color , Bold , Underline , Reverse Protection Is Now OFF!! In Room $3 ��X�Ǯ��t0��X׻ �
  }
  elseif (($nick == %botking) && ($2 == setcolors)) {
    set %colornumber $3
    msg $chan Number Of Colors Allowed Are %colornumber
  }
  elseif (($nick == %botking) && ($2 == setbolds)) {
    set %boldnumber $3
    msg $chan Number Of Bolds Allowed Are %boldnumber
  }
  elseif (($nick == %botking) && ($2 == setunderlines)) {
    set %underlinenumber $3
    msg $chan Number Of Underlines Allowed Are %underlinenumber
  }
  elseif (($nick == %botking) && ($2 == setreverse)) {
    set %reversenumber $3
    msg $chan Number Of Reverse Colors Allowed Are %reversenumber
  }
  elseif (($nick == %botking) && ($2 == help)) {
    notice $nick 0,1 To Turn On 4,1!color on #channel 
    notice $nick 0,1 To Turn Off 4,1!color off #channel 
    notice $nick 0,1 To Set Number Of Colors Allowed 4,1!color setcolors number
    notice $nick 0,1 To Set Number Of Blods Allowed 4,1!color setbolds number
    notice $nick 0,1 To Set Number Of Underlines Allowed 4,1!color setunderlines number
    notice $nick 0,1 To Set Number Of Reverse Colors Allowed 4,1!color setreverse number
    notice $nick 0,1 To List Rooms 4,1!colorrooms 0,1 ��X�Ǯ��t0��X׻ �
  }
}
on *:text:!colorooms:#:{ 
  if ($nick != %botking) {
    msg $chan Sorry $nick But You Dont Have Access To That Command...
  }
  elseif (($nick == %botking) && (%2colorchan == $null)) {
    msg $chan My Color , Bold , Underline , Reverse Protection Is NOT ON In Any Room's  ��X�Ǯ��t0��X׻ �
  }
  else {
    msg $chan My Color , Bold , Underline , Reverse Protection Is On In Room's %2colorchan ��X�Ǯ��t0��X׻ �
  }
}
on *:load: { 
  echo 12 -a You Have Just Loaded Napa182's Color/Bold/Underline/Reverse Control. 
  echo 12 -a A Script0rs Inc. Production 
  echo -a 14,1(14,1�15,1�0,1�0,1� ��X�Ǯ��t0��X׻ �0,1�15,1�14,1�)�
}
on !*:text:*:%2colorchan: {
  if (($nick isop #) || ($nick ishop #)) {
    halt
  }
  if ($regex($1-,/03/g) > %colornumber) || ($regex($1-,/02/g) > %boldnumber) || ($regex($1-,/37/g) > %underlinenumber) || ($regex($1-,/26/g) > %reversenumber) {
    inc -u900 %color. [ $+ [ $chan ] ] [ $+ . [ $+ [ $nick ] ] ] 
    if (%color. [ $+ [ $chan ] ] [ $+ . [ $+ [ $nick ] ] ] = 1 ) { msg $chan $nick Dont Use Colors/Bolds/Underlines In This Room. You Used $regex($1-,/03/g) Colors, $regex($1-,/02/g) Bolds, $regex($1-,/37/g) Underlines, and $regex($1-,/26/g) Reverse Colors.. (��X�Ǯ��t0��X׻ � }
    if (%color. [ $+ [ $chan ] ] [ $+ . [ $+ [ $nick ] ] ] = 2 ) { msg $chan $nick You Were Told Not To Use Colors/Bolds/Underlines In This Room Do It Again And Be Banned! You Used $regex($1-,/03/g) Colors, $regex($1-,/02/g) Bolds, $regex($1-,/37/g) Underlines,and $regex($1-,/26/g) Reverse Colors. | kick $chan $nick Colors/Bolds/Underlines Control)4 1 more time and it's a BAN!! 10 (��X�Ǯ��t0��X׻ � }
    if (%color. [ $+ [ $chan ] ] [ $+ . [ $+ [ $nick ] ] ] = 3 ) { Ban -ku600 $chan $nick $nick you were warned not to Use Colors/Bolds/Underlines In This Room.4,1 ��X�Ǯ��t0��X׻ � | unset %color. [ $+ [ $chan ] ] [ $+ . [ $+ [ $nick ] ] ] }
  }
}

Comments

(0) RSS

Go to Bottom

Color Bold Underline Warn/Kick/Ban

Introduction

Grab the Code

Comments

napa182

My Snippet Tags

Contact

Friends (34)

Sponsors

		Head Admin For irc.EzzyChat.com and Admin for irc.ChatScape.net California ÎÇ ×Ç ÑÎ KÅ
Last seen: Sep 05, 2008 Profile \| Website Likes (2) Friends (34) Snippets (43) Images (2) Comments Received (328) Comments Submitted (996) Forum Posts (144)