Untitled

dialog Channel_protector {
  title "Protect Your Channel V0.1 - By Steiner"
  size -1 -1 159 154
  option dbu
  tab "General", 1, 0 -3 362 242
  box "Updating", 5, 104 57 54 52, tab 1
  text "Current Version: Version 0.1", 6, 106 68 50 20, tab 1 center
  button "Check For Updates", 7, 106 92 50 12, tab 1
  box "Current Status", 8, 104 15 54 42, tab 1
  radio "Off", 9, 106 26 19 14, group tab 1
  radio "On", 10, 106 36 20 14, tab 1
  box "Toggling On/Off", 11, 3 15 98 94, tab 1
  text "Toggling on/off allowed?", 12, 8 25 86 10, tab 1
  radio "No", 13, 8 37 50 10, group tab 1
  radio "Yes", 14, 8 47 50 10, tab 1
  check "By Me", 15, 15 57 50 10, disable tab 1
  check "By Voices", 16, 15 87 50 10, disable tab 1
  check "By Ops", 17, 15 67 50 10, disable tab 1
  check "By Regulars", 18, 15 97 50 10, disable tab 1
  check "By HalfOps", 19, 15 77 50 10, disable tab 1
  box "Flood Control", 20, 3 110 102 42, tab 1
  text "Turn Flood Control On For", 4, 7 118 66 7, tab 1
  check "Actions", 22, 7 135 37 7, tab 1
  check "Text", 23, 7 127 37 7, tab 1
  check "Join/Parts", 24, 7 143 39 7, tab 1
  button "Flood Settings", 21, 53 129 45 12, tab 1
  button "Apply Settings", 75, 107 113 50 17, tab 1
  button "Close", 76, 107 132 50 17, tab 1 cancel
  tab "Flooding", 2
  box "Text", 25, 2 15 154 36, tab 2
  text "Lines Allowed", 26, 7 25 37 8, tab 2
  text "Per Seconds", 27, 7 36 37 8, tab 2
  edit "", 28, 53 24 23 10, tab 2
  edit "", 29, 53 35 23 10, tab 2
  box "Actions", 30, 2 50 154 35, tab 2
  box "Join/Part", 31, 2 85 154 36, tab 2
  text "Lines Allowed", 36, 7 60 37 8, tab 2
  text "Per Seconds", 38, 7 70 37 8, tab 2
  edit "", 41, 53 70 23 10, tab 2
  edit "", 42, 53 59 23 10, tab 2
  button "Apply Settings", 33, 93 135 44 12, tab 2
  text "Lines Allowed", 35, 7 95 37 8, tab 2
  text "Per Seconds", 37, 7 105 37 8, tab 2
  edit "", 40, 53 94 23 10, tab 2
  edit "", 39, 53 104 23 10, tab 2
  button "Close", 59, 19 135 44 12, tab 2
  tab "Badwords", 3
  box "Adding A Badword", 43, 2 15 71 38, tab 3
  text "Badword", 44, 5 26 25 8, tab 3
  edit "", 45, 30 25 40 10, tab 3 autohs
  button "Add Badword", 46, 18 38 37 12, tab 3
  box "Status", 47, 75 15 36 38, tab 3
  radio "Enable", 49, 79 25 27 12, tab 3
  radio "Disable", 50, 79 38 29 11, tab 3
  box "List Of Current Badwords", 48, 2 54 154 99, tab 3
  list 51, 5 61 147 77, tab 3 size vsbar
  button "Show", 52, 24 139 39 12, tab 3
  button "Delete Selected", 53, 95 139 42 12, tab 3
  button "Apply Settings", 32, 114 18 39 12, tab 3
  button "Close", 34, 114 40 39 12, tab 3
  tab "Misellaneous", 54
  box "Repetition", 55, 3 13 95 36, tab 54
  edit "", 57, 59 33 32 10, tab 54
  text "Allowed Repetitions", 58, 7 34 48 8, tab 54
  box "Actions", 60, 100 13 56 36, tab 54
  text "Allow Actions", 61, 104 19 42 8, tab 54
  radio "Yes", 62, 104 28 50 10, group tab 54
  radio "No", 63, 104 38 50 10, tab 54
  box "What To Do When Someone Doesn't Follow Rules?", 64, 3 49 153 69, tab 54
  combo 65, 8 58 60 28, tab 54 size drop
  radio "Kick", 66, 8 74 50 10, group tab 54
  radio "Ban", 67, 8 84 50 10, tab 54
  radio "Notice Nick", 68, 8 94 50 10, tab 54
  radio "Message Channel", 69, 8 104 54 10, tab 54
  edit "", 70, 76 70 50 10, hide tab 54
  button "Apply Settings", 71, 92 132 41 12, tab 54
  text "Message", 72, 76 60 25 8, hide tab 54
  text "Unban After ... Minutes", 73, 76 85 65 8, hide tab 54
  edit "", 74, 76 98 20 10, hide tab 54
  button "Close", 77, 26 132 41 12, tab 54
  radio "Enable", 56, 7 21 28 10, tab 54
  radio "Disable", 78, 41 21 33 10, tab 54
}
menu * {
  Protect Your Channel:/getit
}
alias /getit {
  /dialog -ms Channel_protector Channel_protector
}
on *:dialog:Channel_protector:init:0:{
  /did -a Channel_protector 65 Text Flood
  /did -a Channel_protector 65 Join Flood
  /did -a Channel_protector 65 Badword
  /did -a Channel_protector 65 General Action
  /did -a Channel_protector 65 Action Flood
  /did -c Channel_protector $iif($readini(ChanProt.ini,Status,General) == On,10,9)
  /did -c Channel_protector $iif($readini(ChanProt.ini,Status,Badwords) == On,49,50)
  /did -c Channel_protector $iif($readini(ChanProt.ini,Status,Repetition) == On,56,78)
  /did -c Channel_protector $iif($readini(ChanProt.ini,Status,Toggling) == On,14,13)
  /did -c Channel_protector $iif($readini(ChanProt.ini,Status,Actions) == On,63,62)
}
on *:dialog:Channel_protector:sclick:14:{
  did -e Channel_protector 15-19
}
on *:dialog:Channel_protector:sclick:13:{
  did -ub Channel_protector 15-19
}
on *:dialog:Channel_protector:sclick:52:{
  did -r Channel_Protector 51
  var %x 1
  while ($ini(ChanProt.ini,badwords,%x)) {
    did -a Channel_protector 51 $ini(ChanProt.ini,badwords,%x)
    /inc %x
  }
}
on *:dialog:Channel_Protector:sclick:46:{
  writeini ChanProt.ini badwords $did(45) Badword
  echo -as $did(45) added as badword!
  did -r Channel_Protector 45
}
on *:dialog:Channel_Protector:sclick:53:{
  remini ChanProt.ini Badwords $did(51).seltext Badword
  echo -as $did(51).seltext deleted as badword!
  did -d Channel_Protector 51 $did(51).sel
}
on *:dialog:Channel_Protector:sclick:14,10,49,63,56:{
  writeini ChanProt.ini Status $replace($did,14,Toggling,10,General,49,Badwords,63,Actions,56,Repetition) On
}
on *:dialog:Channel_Protector:sclick:76,59,34,77:{
  dialog -x Channel_Protector
}
on *:dialog:Channel_Protector:close:0:{
  set %sdf Hi
}
on *:dialog:Channel_Protector:sclick:13,9,50,62,78:{
  writeini ChanProt.ini Status $replace($did,13,Toggling,9,General,50,Badwords,62,Actions,78,Repetition) Off
}