Channel Protection

Please Register to submit score.

Average Score	8.8
Scores Submitted	6
Date Added	Feb 12, 2008
Last Updated	Feb 14, 2008
Tags	ban channel color dialog flood kick protection swear

Introduction

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

Grab the Code

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

(21) RSS

Go to Bottom

water_dragon

Comments: 44

mIRC Snippet: Channel Protection
Posted on Feb 12, 2008 3:59 am

nice script i like it wd 10/10 i say

mostafa_basha

Comments: 11

mIRC Snippet: Channel Protection
Posted on Feb 12, 2008 7:17 pm

well it nice but can i ask u to modify it to ban from cs and while i am deoped

Cheiron

Comments: 121

mIRC Snippet: Channel Protection
Posted on Feb 12, 2008 7:31 pm

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

mostafa_basha

Comments: 11

mIRC Snippet: Channel Protection
Posted on Feb 12, 2008 7:59 pm

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

Cheiron

Comments: 121

mIRC Snippet: Channel Protection
Posted on Feb 12, 2008 8:22 pm

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

napa182

Comments: 775

mIRC Snippet: Channel Protection
Posted on Feb 12, 2008 8:55 pm

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.

mostafa_basha

Comments: 11

mIRC Snippet: Channel Protection
Posted on Feb 13, 2008 7:02 pm

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

napa182

Comments: 775

mIRC Snippet: Channel Protection
Posted on Feb 16, 2008 1:18 am

mostafa_basha here i redid it for chanserv...
http://www.mywebs.biz/Uploads/channelprotectionupdate2.txt

napa182

Comments: 775

mIRC Snippet: Channel Protection
Posted on Feb 16, 2008 1:21 am

well somewhat anyway lmao fast edit il do more when i have more time.

mostafa_basha

Comments: 11

mIRC Snippet: Channel Protection
Posted on Feb 16, 2008 11:07 am

well good job mr napa i will try it now thx so much

mostafa_basha

Comments: 11

mIRC Snippet: Channel Protection
Posted on Feb 17, 2008 7:48 pm

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
-

mostafa_basha

Comments: 11

mIRC Snippet: Channel Protection
Posted on Feb 17, 2008 8:15 pm

oh mr napa sorry it work so good thx for good work

napa182

Comments: 775

mIRC Snippet: Channel Protection
Posted on Feb 17, 2008 8:30 pm

lol yw

mostafa_basha

Comments: 11

mIRC Snippet: Channel Protection
Posted on Feb 17, 2008 9:20 pm

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

MoonWhisper

Comments: 4

mIRC Snippet: Channel Protection
Posted on Feb 27, 2008 2:39 am

the advertisment code is wrong

MoonWhisper

Comments: 4

mIRC Snippet: Channel Protection
Posted on Feb 27, 2008 2:42 am

oh yeah and make the bad word recognition with **
the other is great

napa182

Comments: 775

mIRC Snippet: Channel Protection
Posted on Feb 27, 2008 3:28 am

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.

SnoooP

Comments: 348

mIRC Snippet: Channel Protection
Posted on Feb 27, 2008 9:11 am

works well and i like it =) i rated it 8/10

MoonWhisper

Comments: 4

mIRC Snippet: Channel Protection
Posted on Feb 29, 2008 6:41 pm

it wont accept channel advertises :) the # sign :)

napa182

Comments: 775

mIRC Snippet: Channel Protection
Posted on Feb 29, 2008 7:06 pm

um what kind of server are you trying to use this on MoonWhisper ?
cuz if it's chatspace then no it wont.

mostafa_basha

Comments: 11

mIRC Snippet: Channel Protection
Posted on Mar 4, 2008 7:42 pm

well mr napa i have a suggestion to add some control for flood protection like how many lines per seconds

Channel Protection

Introduction

Grab the Code

Comments

napa182

My Snippet Tags

Contact

Friends (30)

Sponsors

		Head Admin For irc.EzzyChat.com California ÎÇ ×Ç ÑÎ KÅ
Last seen: Jul 19, 2008 Profile \| Website Friends (30) Snippets (40) Images (1) Comments Received (349) Comments Submitted (775) Forum Posts (135)