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