Channel Protection
Platform: mIRC
Published Feb 12, 2008
Updated Feb 14, 2008
ok well i was bored so i took all my channel protection scripts i made and put them into a dialog. copy paste in a new remote and click in any channel to open the dialog....
dialog chanpro {
title "Chan Protections «×X§Ç®îÞt0®§X×»™"
size -1 -1 169 190
option dbu
box "Sound Protection", 8, 3 3 51 22
check "On", 9, 7 12 18 10
check "Off", 10, 31 12 19 10
box "Revolveing Door ", 11, 116 3 51 22
check "On", 12, 119 12 18 10
check "Off", 13, 145 12 19 10
box "Advertise Protection", 14, 56 3 57 22
check "On", 15, 60 12 18 10
check "Off", 16, 88 12 19 10
box "Color Protection", 17, 3 27 51 22
check "On", 18, 7 35 18 10
check "Off", 19, 31 35 20 10
box "Flood Protection", 20, 56 27 57 22
check "On", 21, 60 35 18 10
check "Off", 22, 88 35 19 10
box "Character Flood Protection ", 23, 3 52 110 32
check "On", 24, 7 71 18 10
check "Off", 25, 31 71 20 10
text "Set Chr Amount:", 26, 7 60 42 8
edit "", 27, 51 60 36 9, autohs
button "set", 28, 92 60 15 9
box "Cap's Protection", 29, 3 86 110 32
text "Set Cap Amount:", 30, 7 94 42 8
edit "", 31, 51 94 36 9
button "set", 32, 92 94 15 9
check "On", 33, 7 105 18 10
check "Off", 34, 31 105 19 10
box "Add/Del Chan", 35, 116 27 50 32
button "Add", 36, 119 35 15 9
button "Del", 37, 147 35 15 9
edit "", 38, 119 47 43 9, autohs
box "Channel List", 39, 116 63 50 55
list 40, 120 70 43 44, size vsbar
button "clear", 42, 92 71 15 9
button "clear", 43, 92 105 15 9
box "Curse Protection", 44, 3 121 110 32
text "Bad Word:", 45, 7 130 26 8
edit "", 46, 51 130 36 9, autohs
button "Add", 47, 92 130 15 9
button "Del", 48, 92 141 15 9
check "On", 49, 7 140 19 10
check "Off", 50, 31 140 19 10
box "Curseword List", 51, 116 121 50 32
list 52, 120 129 43 21, size vsbar
box "Bad Nick Protection", 53, 4 155 110 32
text "Bad Nick:", 54, 7 164 23 8
edit "", 55, 51 164 36 9, autohs
button "Add", 56, 92 164 15 9
button "Del", 57, 92 175 15 9
check "On", 58, 7 174 18 10
check "Off", 59, 31 174 19 10
box "Bad Nick List", 60, 116 155 50 32
list 61, 120 163 43 21, size vsbar
menu "File", 1
item "Close", 2, 1, cancel
menu "About", 3
item "Script", 41, 3
menu "Links", 4
item "EzzyChat", 5, 4
item "EzzyChat Java", 6, 4
item "Hawkee", 7, 4
}
dialog aboutpro {
title "About "
size -1 -1 164 67
option dbu
box "«×X§Ç®îÞt0®§X×»™", 1, 2 1 160 64
text "Channel Protections", 2, 51 9 50 8
text "Made By Napa182", 3, 54 18 46 8
text "Thank you For useing napa182's channel protections. These ", 4, 5 27 146 8
text "protections were made to keep ur channel under control from", 5, 5 36 147 8
text "annoying users. So I hope you find them useful as much as i do.", 6, 5 45 154 8
text "Thank You.", 7, 63 54 32 8
}
dialog set1 {
title "Set"
size -1 -1 91 23
option dbu
box "«×X§Ç®îÞt0®§X×»", 1, 1 1 89 21
text "", 2, 4 10 83 8
}
dialog set2 {
title "Set"
size -1 -1 91 23
option dbu
box "«×X§Ç®îÞt0®§X×»", 1, 1 1 89 21
text "", 2, 4 10 83 8
}
dialog unset1 {
title "UnSet"
size -1 -1 91 23
option dbu
box "«×X§Ç®îÞt0®§X×»", 1, 1 1 89 21
text "", 2, 4 10 83 8
}
dialog unset2 {
title "UnSet"
size -1 -1 91 23
option dbu
box "«×X§Ç®îÞt0®§X×»", 1, 1 1 89 21
text "", 2, 4 10 83 8
}
dialog error1 {
title "ERROR"
size -1 -1 96 24
option dbu
box "«×X§Ç®îÞt0®§X×»", 1, 1 1 93 21
text "ERROR! Please enter numbers only.", 2, 4 10 87 8
}
dialog error2 {
title "ERROR"
size -1 -1 120 25
option dbu
box "«×X§Ç®îÞt0®§X×»", 1, 2 2 117 21
text "ERROR! Please enter channel as ex. #channel", 2, 4 10 112 8
}
dialog error3 {
title "ERROR"
size -1 -1 87 24
option dbu
box "«×X§Ç®îÞt0®§X×»", 1, 1 1 84 21
text "ERROR! Please enter a bad Nick.", 2, 4 10 79 8
}
dialog error4 {
title "ERROR"
size -1 -1 91 23
option dbu
box "«×X§Ç®îÞt0®§X×»", 1, 1 1 89 21
text "ERROR! Please enter a bad Word.", 2, 4 10 83 8
}
alias set1 { dialog $iif($dialog(set1),-v,-md) set1 set1 | did -a set1 2 Character's set to %pcaram }
alias set2 { dialog $iif($dialog(set2),-v,-md) set2 set2 | did -a set2 2 Cap percent set to %pcapam $+ % }
alias unset1 { dialog $iif($dialog(unset1),-v,-md) unset1 unset1 | did -a unset1 2 Character's is now unset }
alias unset2 { dialog $iif($dialog(unset2),-v,-md) unset2 unset2 | did -a unset2 2 Cap percent is now unset }
alias chanpro { dialog $iif($dialog(chanpro),-v,-md) chanpro chanpro }
alias aboutpro { dialog $iif($dialog(aboutpro),-v,-md) aboutpro aboutpro }
alias error1 { dialog $iif($dialog(error1),-v,-md) error1 error1 }
alias error2 { dialog $iif($dialog(error2),-v,-md) error2 error2 }
alias error3 { dialog $iif($dialog(error3),-v,-md) error3 error3 }
alias error4 { dialog $iif($dialog(error4),-v,-md) error4 error4 }
menu channel {
.Channel Protection { chanpro }
}
on *:load: {
echo 12 -a You Have Just Loaded Napa182's Channel Protections ...Enjoy..
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 *:DIALOG:chanpro:init:0:{
if (%psound == on) { did -c chanpro 9 }
if (!%psound) { did -c chanpro 10 }
if (%pdoor == on) { did -c chanpro 12 }
if (!%pdoor) { did -c chanpro 13 }
if (%padvert == on) { did -c chanpro 15 }
if (!%padvert) { did -c chanpro 16 }
if (%pcolor == on) { did -c chanpro 18 }
if (!%pcolor) { did -c chanpro 19 }
if (%pflood == on) { did -c chanpro 21 }
if (!%pflood) { did -c chanpro 22 }
if (%pchar == on) { did -c chanpro 24 | did -e chanpro 27 }
if (!%pchar) { did -c chanpro 25 | did -b chanpro 27 }
if (%pcap == on) { did -c chanpro 33 | did -e chanpro 31 }
if (!%pcap) { did -c chanpro 34 | did -b chanpro 31 }
if (%pcaram) { did -a chanpro 27 %pcaram }
if (%pcapam) { did -a chanpro 31 %pcapam $+ % }
if (%pcurse == on) { did -c chanpro 49 }
if (!%pcurse) { did -c chanpro 50 }
if (%pbnick == on) { did -c chanpro 58 }
if (!%pbnick) { did -c chanpro 59 }
var %prchan = $gettok(%prochans,1-,44)
var %boo = $numtok(%prchan,44), %oh = 1
while ( %oh <= %boo ) {
did -a chanpro 40 $gettok(%prchan,%oh,44)
inc %oh
}
var %pcwords = $gettok(%pcuwords,1-,44)
var %bo = $numtok(%pcwords,44), %ooh = 1
while ( %ooh <= %bo ) {
did -a chanpro 52 $gettok(%pcwords,%ooh,44)
inc %ooh
}
var %pcnicks = $gettok(%pbnicks,1-,44)
var %o = $numtok(%pcnicks,44), %ot = 1
while ( %ot <= %o ) {
did -a chanpro 61 $gettok(%pcnicks,%ot,44)
inc %ot
}
}
on *:DIALOG:chanpro:menu:*:{
if ($did == 41) { aboutpro }
if ($did == 5) { url -a http://www.freewebs.com/shideezdi/index.htm }
if ($did == 6) { url -a http://www.ezzychat.com/ }
if ($did == 7) { url -a http://www.hawkee.com/ }
}
on *:DIALOG:chanpro:sclick:*:{
if ($did == 9) { set %psound on | did -u chanpro 10 }
if ($did == 10) { unset %psound | did -u chanpro 9 }
if ($did == 12 ) { set %pdoor on | did -u chanpro 13 }
if ($did == 13) { unset %pdoor | did -u chanpro 12 }
if ($did == 15) { set %padvert on | did -u chanpro 16 }
if ($did == 16) { unset %padvert | did -u chanpro 15 | unset %adcheck }
if ($did == 18) { set %pcolor on | did -u chanpro 19 }
if ($did == 19) { unset %pcolor | did -u chanpro 18 | unset %colocheck }
if ($did == 21) { set %pflood on | did -u chanpro 22 }
if ($did == 22) { unset %pflood | did -u chanpro 21 }
if ($did == 24) { set %pchar on | did -u chanpro 25 | did -e chanpro 27 }
if ($did == 25) { unset %pchar | did -u chanpro 24 | did -b chanpro 27 | unset %charcheck }
if ($did == 33) { set %pcap on | did -u chanpro 34 | did -e chanpro 31 }
if ($did == 34) { unset %pcap | did -u chanpro 33 | did -b chanpro 31 | unset %capcheck }
if ($did == 49) { set %pcurse on | did -u chanpro 50 }
if ($did == 50) { unset %pcurse | did -u chanpro 49 | unset %cursecheck }
if ($did == 58) { set %pbnick on | did -u chanpro 59 }
if ($did == 59) { unset %pbnick | did -u chanpro 58 | unset %newnickcheck | unset %badddnick }
if ($did == 28) {
if ($regex($did(27).text,/[a-z]/g)) || ($regex($did(27).text,/[A-Z]/g)) || (!$did(27).text) {
error1
did -r chanpro 27
}
else {
set %pcaram $did(27).text
set1
}
}
if ($did == 42) {
if (!$did(27).text) || ($regex($did(27).text,/[a-z]/g)) || ($regex($did(27).text,/[A-Z]/g)) {
error1
did -r chanpro 27
}
else {
unset %pcaram
did -r chanpro 27
unset1
}
}
if ($did == 43) {
if (!$did(31).text) || ($regex($did(31).text,/[a-z]/g)) || ($regex($did(31).text,/[A-Z]/g)) {
error1
did -r chanpro 31
}
else {
unset %pcapam
did -r chanpro 31
unset2
}
}
if ($did == 32) {
if ($regex($did(31).text,/[a-z]/g)) || ($regex($did(31).text,/[A-Z]/g)) || (!$did(31).text) {
error1
did -r chanpro 31
}
else {
set %pcapam $did(31).text
set2
did -ra chanpro 31 %pcapam $+ %
}
}
if ($did == 36) {
if ($left($did(38).text,1) != $chr(35)) {
error2
did -r chanpro 38
}
else {
set %prochans $addtok(%prochans,$did(38).text,44)
echo -a $did(38).text is now set
did -r chanpro 38
did -r chanpro 40
var %prchan = $gettok(%prochans,1-,44)
var %boo = $numtok(%prchan,44), %oh = 1
while ( %oh <= %boo ) {
did -a chanpro 40 $gettok(%prchan,%oh,44)
inc %oh
}
}
}
if ($did == 37) {
if ($left($did(38).text,1) != $chr(35)) {
error2
did -r chanpro 38
}
else {
set %prochans $remtok(%prochans,$did(38).text,1,44)
echo -a $did(38).text is now unset
did -r chanpro 38
did -r chanpro 40
var %prchan = $gettok(%prochans,1-,44)
var %boo = $numtok(%prchan,44), %oh = 1
while ( %oh <= %boo ) {
did -a chanpro 40 $gettok(%prchan,%oh,44)
inc %oh
}
}
}
if ($did == 47) {
if (!$did(46).text) {
error4
}
else {
set %pcuwords $addtok(%pcuwords,$did(46).text,44)
echo -a $did(46).text is now set
did -r chanpro 46
did -r chanpro 52
var %pcwords = $gettok(%pcuwords,1-,44)
var %bo = $numtok(%pcwords,44), %ooh = 1
while ( %ooh <= %bo ) {
did -a chanpro 52 $gettok(%pcwords,%ooh,44)
inc %ooh
}
}
}
if ($did == 48) {
if (!$did(46).text) {
error4
}
else {
set %pcuwords $remtok(%pcuwords,$did(46).text,1,44)
echo -a $did(46).text is now unset
did -r chanpro 46
did -r chanpro 52
var %pcwords = $gettok(%pcuwords,1-,44)
var %bo = $numtok(%pcwords,44), %ooh = 1
while ( %ooh <= %bo ) {
did -a chanpro 52 $gettok(%pcwords,%ooh,44)
inc %ooh
}
}
}
if ($did == 56) {
if (!$did(55).text) {
error3
}
else {
set %pbnicks $addtok(%pbnicks,$did(55).text,44)
echo -a $did(55).text is now set
did -r chanpro 55
did -r chanpro 61
var %pcnicks = $gettok(%pbnicks,1-,44)
var %o = $numtok(%pcnicks,44), %ot = 1
while ( %ot <= %o ) {
did -a chanpro 61 $gettok(%pcnicks,%ot,44)
inc %ot
}
}
}
if ($did == 57) {
if (!$did(55).text) {
error3
}
else {
set %pbnicks $remtok(%pbnicks,$did(55).text,1,44)
echo -a $did(55).text is now unset
did -r chanpro 55
did -r chanpro 61
var %pcnicks = $gettok(%pbnicks,1-,44)
var %o = $numtok(%pcnicks,44), %ot = 1
while ( %ot <= %o ) {
did -a chanpro 61 $gettok(%pcnicks,%ot,44)
inc %ot
}
}
}
}
CTCP @*:SOUND:%prochans:{
if (%psound == on) && ($nick isreg #) {
inc -u900 $+(%,sound,.,$chan,.,$nick)
if ($($+(%,sound,.,$chan,.,$nick),2) = 1) { msg $chan 12,1 $nick 0,1Dont Do SOUND EVENTS In This Room. }
if ($($+(%,sound,.,$chan,.,$nick),2) = 2 ) { msg $chan 12,1 $nick 0,1You Were Told Not To Do SOUND EVENTS In This Room Do It Again And Be 12,1Banned! | kick $chan $nick 1 more time and it's a BAN!! 0,1 «×X§Ç®îÞt0®§X×» ™ }
if ($($+(%,sound,.,$chan,.,$nick),2) >= 3 ) { Ban -ku600 $chan $nick you were warned not to do SOUND EVENTS In This Room. | unset $+(%,sound,.,$chan,.,$nick),2) }
}
}
on @*:join:%prochans: {
if (%pdoor == on) { redoor }
if (%pbnick == on) { set %badddnick $nick | banick }
}
on @*:nick:{
if (%pbnick == on) { set %newnickcheck $newnick | newnickkick }
}
on @*:text:*:%prochans: {
if ($nick isreg #) {
if (%pcap == on) { set %capcheck $1- | capcheck }
if (%pcurse == on) { set %cursecheck $1- | wordcheack }
if (%padvert == on) { set %adcheck $1- | advercheck }
if (%pchar == on) { set %charcheck $1- | charcheck }
if (%pflood == on) { floodcheck }
if (%pcolor == on) { set %colocheck $1- | colorcheck }
}
}
on @*:actions:*:%prochans: {
if ($nick isreg #) {
if (%pcap == on) { set %capcheck $1- | capcheck }
if (%pcurse == on) { set %cursecheck $1- | wordcheack }
if (%padvert == on) { set %adcheck $1- | advercheck }
if (%pchar == on) { set %charcheck $1- | charcheck }
if (%pflood == on) { floodcheck }
if (%pcolor == on) { set %colocheck $1- | colorcheck }
}
}
alias newnickkick {
var %z = %pbnicks
var %a = $numtok(%z,44)
while (%a) {
tokenize 32 $strip(%newnickcheck)
if ($istok(%newnickcheck,$gettok(%z,%a,44),32)) {
nickkick
}
dec %a
}
}
alias nickkick {
var %i = 0
while (%i < $comchan($newnick,0)) {
inc %i
ban -k $comchan($newnick,%i) $newnick You Have A Bad Nick Change It And Come Back
}
}
alias banick {
var %o = %pbnicks
var %t = $numtok(%o,44)
while (%t) {
tokenize 32 $strip(%badddnick)
if ($istok(%badddnick,$gettok(%o,%t,44),32)) {
inc -u900 $+(%,badn,.,$chan,.,$address($nick,2))
if ($($+(%,badn,.,$chan,.,$address($nick,2)),2) = 1) { kick $chan $nick $nick You Have A Bad Nick Change It And Come Back | unset %badddnick }
if ($($+(%,badn,.,$chan,.,$address($nick,2)),2) = 2) {
mode $chan +b $address($nick,2)
kick $chan $nick You Just Dont Listen Do You
unset $+(%,badn,.,$chan,.,$address($nick,2)),2)
unset %badddnick
}
}
dec %t
}
}
alias redoor {
if ($nick isreg #) {
inc -u60 $+(%,revolvingdoor,.,$chan,.,$nick)
if ($($+(%,revolvingdoor,.,$chan,.,$nick),2) = 4) {
mode $chan +b $address($nick,2)
kick $chan $nick This Room Has No Revolving Door
$+(.,timerrevol,.,$chan,.,$nick) 1 600 mode $chan -b $address($nick,2)
}
}
}
alias charcheck {
var %lenamount $len(%charcheck)
if (%lenamount >= %pcaram) {
inc -u900 $+(%,longtype,.,$chan,.,$nick)
if ($($+(%,longtype,.,$chan,.,$nick),2) = 1) { msg $chan $nick Please dont type so damn long for God's Sake's.. The MAX Character's Allowed $calc(%pcaram - 1) You Typed %lenamount | unset %charcheck }
if ($($+(%,longtype,.,$chan,.,$nick),2) = 2) { kick $chan $nick You typed %lenamount character of text The MAX Character's Allowed $calc(%pcaram - 1) | unset %charcheck }
if ($($+(%,longtype,.,$chan,.,$nick),2) >= 3) {
mode $chan +b $address($nick,2)
kick $chan $nick You Were Told Not To Type So Damn Long...
$+(.,timerchar,.,$chan,.,$nick) 1 600 mode $chan -b $address($nick,2)
unset $+(%,longtype,.,$chan,.,$nick),2)
unset %charcheck
}
}
}
alias colorcheck {
if ($regex(%colocheck,/\003/g) > 0) || ($regex(%colocheck,/\002/g) > 0) || ($regex(%colocheck,/\037/g) > 0) || ($regex(%colocheck,/\o26/g) > 0) {
inc -u900 $+(%,color,.,$chan,.,$nick)
if ($($+(%,color,.,$chan,.,$nick),2) = 1 ) { msg $chan $nick Dont Use Colors/Bolds/Underlines In This Room. You Used $regex($1-,/\003/g) Colors, $regex(%colocheck,/\002/g) Bolds, $regex(%colocheck,/\037/g) Underlines, and $regex(%colocheck,/\026/g) Reverse Colors.. «×X§Ç®îÞt0®§X×» | unset %colocheck }
if ($($+(%,color,.,$chan,.,$nick),2) = 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(%colocheck,/\003/g) Colors, $regex(%colocheck,/\002/g) Bolds, $regex(%colocheck,/\037/g) Underlines,and $regex(%colocheck,/\026/g) Reverse Colors. | kick $chan $nick Colors/Bolds/Underlines Control)4 1 more time and it's a BAN!! 10 «×X§Ç®îÞt0®§X×» | unset %colocheck }
if ($($+(%,color,.,$chan,.,$nick),2) = 3 ) {
mode $chan +b $address($nick,2)
kick $chan $nick you were warned not to Use Colors/Bolds/Underlines In This Room.4,1 «×X§Ç®îÞt0®§X×» ™
unset $+(%,color,.,$chan,.,$nick),2)
$+(.,timercolor,.,$chan,.,$nick) 1 600 mode $chan -b $address($nick,2)
unset %colocheck
}
}
}
alias floodcheck {
inc -u2 $+(%,flood,.,$chan,.,text,.,$nick)
if $($+(%,flood,.,$chan,.,text,.,$nick),2) >= 5 {
inc -u900 $+(%,floodd,.,$chan,.,$nick)
if ($($+(%,floodd,.,$chan,.,$nick),2) = 2 ) { msg $chan $nick Dont Flood This Room | kick $chan $nick flood Control «×X§Ç®îÞt0®§X×» ™ }
if ($($+(%,floodd,.,$chan,.,$nick),2) = 5 ) { msg $chan $nick You Were Told Not To Flood This Room Do It Again And Be Banned! | kick $chan $nick flood Control 1 more time and it's a BAN!! «×X§Ç®îÞt0®§X×» ™ }
if ($($+(%,floodd,.,$chan,.,$nick),2) = 8 ) {
msg $chan Damn $nick You Were Warned Not To Flood In This Room.
mode $chan +b $address($nick,2)
kick $chan $nick you were warned not to Flood In This Room.4,1 «×X§Ç®îÞt0®§X×» ™
unset $+(%,floodd,.,$chan,.,$nick),2)
$+(.,timerflood,.,$chan,.,$nick) 1 600 mode $chan -b $address($nick,2)
}
}
}
alias capcheck {
if ($len(%capcheck) > 5) {
var %percent $calc($regex(%capcheck,/[A-Z]/g)/$len(%capcheck)*100)
if (%percent > %pcapam) {
inc -u900 $+(%,caps,.,$chan,.,$nick)
if ($($+(%,caps,.,$chan,.,$nick),2) = 1 ) { msg $chan $nick Please Dont Use Cap's Here.. $round(%percent,0) $+ % Of Ur Message Was In Caps! | unset %capcheck }
if ($($+(%,caps,.,$chan,.,$nick),2) = 2 ) { msg $chan $nick Please Dont Use Cap's Here.. $round(%percent,0) $+ % Of Ur Message Was In Caps! | kick $chan $nick Please Turn Caps Lock Off Or Next It's A Ban.. $round(%percent,0) $+ % Of Ur Message Was In Caps!0,1 «×X§Ç®îÞt0®§X×» ™ | unset %capcheck | unset %capchan }
if ($($+(%,caps,.,$chan,.,$nick),2) = 3 ) {
msg $chan Damn $nick You Were Warned To Not To Use Caps Here.. $round(%percent,0) $+ % Of Ur Message Was In Caps!
mode $chan +b $address($nick,2)
kick $chan $nick you were warned Not To Use Caps Here. $round(%percent,0) $+ % Of Ur Message Was In Caps!0,1 «×X§Ç®îÞt0®§X×» ™
unset $+(%,caps,.,$chan,.,$nick),2)
$+(.,timercap,.,$chan,.,$nick) 1 600 mode $chan -b $address($nick,2)
unset %capcheck
}
}
}
}
alias wordcheack {
var %ob = %pcuwords
var %x = $numtok(%ob,44)
while (%x) {
tokenize 32 $strip(%cursecheck)
if ($istok(%cursecheck,$gettok(%ob,%x,44),32)) {
inc -u900 $+(%,badw,.,$chan,.,$address($nick,2))
if ($($+(%,badw,.,$chan,.,$address($nick,2)),2) = 1) { mode $chan +b ~q: $+ $address($nick,2) | msg $chan $nick You Have Been GAGGED For Cursing For The Next Five Mins | $+(.,timergag,.,$chan,.,$nick) 1 300 mode $chan -b ~q: $+ $address($nick,2) | unset %cursecheck }
if ($($+(%,badw,.,$chan,.,$address($nick,2)),2) = 2) {
mode $chan +b $address($nick,2)
kick $chan $nick You Just Couldnt Stop Could you
$+(.,timercurse,.,$chan,.,$nick) 1 600 mode $chan -b $address($nick,2)
unset $+(%,badw,.,$chan,.,$address($nick,2)),2)
unset %cursecheck
}
}
dec %x
}
}
alias advercheck {
if ((www. isin %adcheck) || (http isin %adcheck) || (.com isin %adcheck) || ($chantypes isin %adcheck)) {
inc -u900 $+(%,advertising,.,$chan,.,$address($nick,2))
if ($($+(%,advertising,.,$chan,.,$address($nick,2)),2) = 1 ) { msg $chan $nick Please Don't Advertise Channels Or Web Sites In This Room GAGGED FOR 1 MIN | mode $chan +b ~q: $+ $address($nick,2) | $+(.,timerad,.,$chan,.,$nick) 1 60 mode $chan -b ~q: $+ $address($nick,2) | unset %adcheck }
if ($($+(%,advertising,.,$chan,.,$address($nick,2)),2) = 2 ) {
msg $chan I told you not to Advertise Channels Or Web Sites In This Room Now Gagged For 5 Min's
mode $chan +b ~q: $+ $address($nick,2)
$+(.,timerad,.,$chan,.,$nick) 1 300 mode $chan -b ~q: $+ $address($nick,2)
unset %adcheck
}
if ($($+(%,advertising,.,$chan,.,$address($nick,2)),2) = 3 ) {
msg $chan Damn $nick You Were Warned Not To Advertise Channels Or Web Sites In This Room.
mode $chan +b $address($nick,2)
kick $chan $nick you were warned not to Advertise Channels Or Web Sites In This Room.4,1 «×X§Ç®îÞt0®§X×»
unset $+(%,advertising,.,$chan,.,$address($nick,2)),2)
$+(.,timeradban,.,$chan,.,$nick) 1 600 mode $chan -b $address($nick,2)
unset %adcheck
}
}
}
