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
}
}
}

Comments

Sign in to comment.
hollowkid   -  Jul 28, 2012
this script doesn't help for channel advertising, i use it on undernet and i tried my best, but couldn't succeed, otherwise the script is great.
 Respond  
Jethro   -  Sep 22, 2011
Abtehi, I think it'll work. The best way to find out is try and see for yourself.

It's like asking a blind man,"can you see me?" :P
 Respond  
Abtehi   -  Sep 22, 2011
Will this work for Undernet X too?
 Respond  
94killerz   -  Apr 03, 2009
>.> I guess I only thought I did. Sorry about that, thanks for clarifying.


Edit: Another idea that would be nice is to have a bit more options under the "File" tab. Such as... Punishment Order, Access List, No Kick List, etc.
 Respond  
napa182   -  Apr 03, 2009
you didnt ask anything about the Revolving Door. =/

well what the revolving Door does: it kick/bans if a user joins and parts 4 times within 60 seconds.

the specifications for flood protection is 5 lines in 2 seconds.
 Respond  
94killerz   -  Apr 03, 2009
Hm... A "Good Nicks" function would be nice. The owner can add "Good Nicks" and there can be a mode named "Nick Type" or "Nicks Allowed" that can have the options; "Good Nicks", "No Bad Nicks", and "All Nicks". Where "Good Nicks" only allows nicks on the "Good Nicks" list in, "No Bad Nicks" allows anyone in unless they're on the "Bad Nicks" list, and "All Nicks" allows everyone, regardless of list.


Also, what's the specifications for "Flood Protection"? And you did not answer the question regarding "Revolving Door".
 Respond  
napa182   -  Apr 03, 2009
lol i dont believe people still use this code being it's over a year old.... i guess il have to update it some time in the future when i have time...

anyways...
the Sound Protection is to warn stop people from doing ctcp sound events.

the Advertising Protection is to stop people from advertising websites in channel.

the Flood Protection is to stop people from flooding the channel with a ton of lines sent to channel.

the Character Flood Protection is to set a number of chr's allowd in one entry.

but like i said this is a old code and il have to update it when i have time.


 Respond  
94killerz   -  Apr 03, 2009
Can someone please clarify the following features on the bot?

Sound Protection
Advertising Protection
Flood Protection
Character Flood Protection

And also, how do you add a channel to the list? The Add/Del Chan function isn't seeming to work. Exactly how is it used?



Edit: Please disregard the "add/del chan" question...Being 3 feet from the monitor, I didn't see the text box below it until I started clicking around.
 Respond  
itmgt   -  Feb 02, 2009
how can i remove the "gagged" msg and kick instead from the first attempt? I dont need to give warnings, sometimes we have to kick from the first time. Can anyone help me? and btw, the URL for the script above "when CS kick" is not opening. Can anyone paste it here?
 Respond  
Abtehi   -  Jan 15, 2009
The gagged thing should be set to work on channel users who are VOICED as well as UNVOICED.
 Respond  
Bullet_Dodger   -  Oct 02, 2008
Good Script
10/10
 Respond  
mostafa_basha   -  Mar 04, 2008
well mr napa i have a suggestion to add some control for flood protection like how many lines per seconds
 Respond  
napa182   -  Feb 29, 2008
um what kind of server are you trying to use this on MoonWhisper ?
cuz if it\'s chatspace then no it wont.
 Respond  
MoonWhisper   -  Feb 29, 2008
it wont accept channel advertises :) the # sign :)
 Respond  
SnoooP   -  Feb 27, 2008
works well and i like it =) i rated it 8/10
 Respond  
napa182   -  Feb 27, 2008
MoonWhisper said:

Quote

the advertisment code is wrong

um it works fine for me. it does what it\'s ment to do.

Quote

oh yeah and make the bad word recognition with **

um i didnt use a wildcard for a reason.. say you have hell as a curse word so you you used it like a wildcard it would read hello as a curse word. thats why i made it so you can add curse words to the list.
 Respond  
MoonWhisper   -  Feb 27, 2008
oh yeah and make the bad word recognition with **
the other is great
 Respond  
MoonWhisper   -  Feb 27, 2008
the advertisment code is wrong
 Respond  
mostafa_basha   -  Feb 17, 2008
thx just it will be more amazing if u added clones and mass join protection but i know it will get alot of work and will be more amazing also if u made for the flood table of setting
 Respond  
napa182   -  Feb 17, 2008
lol yw
 Respond  
mostafa_basha   -  Feb 17, 2008
oh mr napa sorry it work so good thx for good work
 Respond  
mostafa_basha   -  Feb 17, 2008
lol it dont work anymore mr napa even i am op or idle
i think u need to write it again it need alot of work
it give me
chanserv No such nick
-
chanserv No such nick
-
 Respond  
mostafa_basha   -  Feb 16, 2008
well good job mr napa i will try it now thx so much
 Respond  
napa182   -  Feb 16, 2008
well somewhat anyway lmao fast edit il do more when i have more time.
 Respond  
napa182   -  Feb 16, 2008
mostafa_basha here i redid it for chanserv...
http://www.mywebs.biz/Uploads/channelprotectionupdate2.txt
 Respond  
mostafa_basha   -  Feb 13, 2008
well the probelm in the bot he deop after 14 minutes and if i used a protection anti idle so the bot get crazy with annoying messages that u r idle so u must deop ur self and the problem is another ops have scripts and snipts kick via cs even they r idle thats the problem so i wish that u both help me or the way tlo modify any protection addon or script
 Respond  
napa182   -  Feb 12, 2008
Um I made this so you would have no need for a bot to run it. Me personally I dont like to use cs to do my kicks,bans,gag\'s, and so on, but I do see why mostafa_basha would have to have the script do the kicks and ban\'s via cs. Um atm i dont have the time to change all the kick and ban lines over to cs, but mostafa_basha you can if you want.

 Respond  
Cheiron   -  Feb 12, 2008
that is why the script goes into a bot. you have a access level with the bot of which you can perform room commands with at the equivalent levels of either hop,aop,sop or owner level.. it matters then ONLY what level you are set with on the bot and not if you are opped in channel as the script will run from the active bot. not your script. all it needs is for the bot to maintain it\'s chanserv o.. simple as
 Respond  
mostafa_basha   -  Feb 12, 2008
man i am an op but the problem that i have a bot i am one of operators so if i get ilde 15 minutes i be deoped so the script dont work so i want the script to be on even i am deoped hope u get me
 Respond  
Cheiron   -  Feb 12, 2008
from my understanding.. you MUST be of half-op % normal op @ admin or super op & or owner q in order to utilise chanserv bans. the only other way is to run this on a bot that has op or admin level and have yourself set to master or assistant level (or owner) and do it that way via the bot
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.