(Skrip)-sBiasa-Lite — File Browser
Skrip-sBiasa-Litev1.01c / Skrip-sBiasa-Litev1.01c / sBiasaLite_Skrip / sbiasa_lite_s_setup_prot_chan_02.ini
sbiasa_lite_s_setup_prot_chan_02.ini — 30.52 KB — Download this file
[script]
n0=;# Skrip BĂasa Lite -#- RonĂ Tua -#- http://www.picauly.f2s.com/ -#- v1.01c #
n1=
n2=alias sBiasa.prot.ch.options.init.d { if ($1 = 646) { if ($did(sBiasa.prot.ch.options,632).state) || ($did(sBiasa.prot.ch.options,636).state) || ($did(sBiasa.prot.ch.options,641).state) || ($did(sBiasa.prot.ch.options,651).state) { cdid -e sBiasa.prot.ch.options 646,647,648 } | else { cdid -b sBiasa.prot.ch.options 646,647,648 } } }
n3=on *:DIALOG:sBiasa.prot.ch.options:init:0:{ sBiasa.prot.ch.options.init }
n4=alias sBiasa.prot.ch.options.cancel {
n5= ; set %sBiasa-prot.ch_data %sBiasa-prot.ch_data.old | unset %sBiasa-prot.ch_data.old
n6=}
n7=alias sBiasa.prot.ch.options.sclick.d { if ($1 = 806) { var %sBiasa-prot.ch.options.sclick.d = 806 | while (%sBiasa-prot.ch.options.sclick.d <= 808) { if ($did(sBiasa.prot.ch.options,%sBiasa-prot.ch.options.sclick.d).sel != $null) && (%sBiasa-prot.ch.options.sclick.d != $2) { did -ku sBiasa.prot.ch.options %sBiasa-prot.ch.options.sclick.d $did(sBiasa.prot.ch.options,%sBiasa-prot.ch.options.sclick.d).sel } | inc %sBiasa-prot.ch.options.sclick.d 1 } } }
n8=on *:DIALOG:sBiasa.prot.ch.select.chan:sclick:*:{ if ($did = 51) { unset %sBiasa-prot.ch.select.chan.add* | if ($did(sBiasa.prot.ch.select.chan,30) != $null) && ($did(sBiasa.prot.ch.select.chan,30).lines < 30) {
n9= set %sBiasa-prot.ch.select.chan.add $iif($left($did(sBiasa.prot.ch.select.chan,30),1) != $chr(35), $chr(35) $+ $did(sBiasa.prot.ch.select.chan,30), $did(sBiasa.prot.ch.select.chan,30))
n10= var %sBiasa-prot.ch.select.chan.add.num = 1, %sBiasa-prot.ch.select.chan.add.total = $gettok($didtok(sBiasa.prot.ch.select.chan,30,44),0,44)
n11= while (%sBiasa-prot.ch.select.chan.add.num <= %sBiasa-prot.ch.select.chan.add.total) {
n12= if (%sBiasa-prot.ch.select.chan.add = $gettok($didtok(sBiasa.prot.ch.select.chan,30,44),%sBiasa-prot.ch.select.chan.add.num,44)) {
n13= set %sBiasa-prot.ch.select.chan.add.res Already | break
n14= }
n15= inc %sBiasa-prot.ch.select.chan.add.num 1
n16= }
n17= if (%sBiasa-prot.ch.select.chan.add.res == $null) { if ($did(sBiasa.prot.ch.select.chan,30).lines > 30) { sBiasa.dialog.info.small Cycle Channel error...:Sorry, too many channels. You can add only 30 channels in the list. }
n18= elseif ($len(%sBiasa-prot.ch.select.chan.add) > 30) { sBiasa.dialog.info.small Cycle Channel error...:Sorry, the channel name is too long. The maximum is 30 characters. }
n19= else { did -a sBiasa.prot.ch.select.chan 30 %sBiasa-prot.ch.select.chan.add }
n20= unset %sBiasa-prot.ch.select.chan.add*
n21= } } }
n22= elseif ($did = 52) && ($did(sBiasa.prot.ch.select.chan,30).sel != $null) { did -d sBiasa.prot.ch.select.chan 30 $did(sBiasa.prot.ch.select.chan,30).sel }
n23= elseif ($did = 53) && ($did(sBiasa.prot.ch.select.chan,30).sel != $null) { set %sBiasa-prot.ch.select.chan.temp $did(sBiasa.prot.ch.select.chan,30)
n24= var %sBiasa-prot.ch.select.chan.sel = $did(sBiasa.prot.ch.select.chan,30).sel, %sBiasa-prot.ch.select.chan.total = $gettok($didtok(sBiasa.prot.ch.select.chan,30,44),0,44)
n25= if (%sBiasa-prot.ch.select.chan.total > 1) {
n26= did -d sBiasa.prot.ch.select.chan 30 %sBiasa-prot.ch.select.chan.sel
n27= dec %sBiasa-prot.ch.select.chan.sel 1
n28= if (%sBiasa-prot.ch.select.chan.sel < 1) { var %sBiasa-prot.ch.select.chan.sel = %sBiasa-prot.ch.select.chan.total }
n29= did -i sBiasa.prot.ch.select.chan 30 %sBiasa-prot.ch.select.chan.sel %sBiasa-prot.ch.select.chan.temp
n30= did -kc sBiasa.prot.ch.select.chan 30 %sBiasa-prot.ch.select.chan.sel %sBiasa-prot.ch.select.chan.temp
n31= }
n32= unset %sBiasa-prot.ch.select.chan.temp
n33= }
n34= elseif ($did = 54) && ($did(sBiasa.prot.ch.select.chan,30).sel != $null) { set %sBiasa-prot.ch.select.chan.temp $did(sBiasa.prot.ch.select.chan,30)
n35= var %sBiasa-prot.ch.select.chan.sel = $did(sBiasa.prot.ch.select.chan,30).sel, %sBiasa-prot.ch.select.chan.total = $gettok($didtok(sBiasa.prot.ch.select.chan,30,44),0,44)
n36= if (%sBiasa-prot.ch.select.chan.total > 1) { did -d sBiasa.prot.ch.select.chan 30 %sBiasa-prot.ch.select.chan.sel | inc %sBiasa-prot.ch.select.chan.sel 1
n37= if (%sBiasa-prot.ch.select.chan.sel > %sBiasa-prot.ch.select.chan.total) { var %sBiasa-prot.ch.select.chan.sel = 1 }
n38= did -i sBiasa.prot.ch.select.chan 30 %sBiasa-prot.ch.select.chan.sel %sBiasa-prot.ch.select.chan.temp
n39= did -kc sBiasa.prot.ch.select.chan 30 %sBiasa-prot.ch.select.chan.sel %sBiasa-prot.ch.select.chan.temp
n40= }
n41= unset %sBiasa-prot.ch.select.chan.temp
n42= }
n43= elseif ($did = 55) { did -r sBiasa.prot.ch.select.chan 30 }
n44= elseif ($did = 3) { if ($didtok(sBiasa.prot.ch.select.chan,30,44) != $null) { set %sBiasa-cycle.channel_data $puttok(%sBiasa-cycle.channel_data,$didtok(sBiasa.prot.ch.select.chan,30,44),2,58) }
n45= else { set %sBiasa-cycle.channel_data $gettok(%sBiasa-cycle.channel_data,1,58) $+ : }
n46=} }
n47=on *:DIALOG:sBiasa.prot.ch.select.chan:init:0:{ did -f sBiasa.prot.ch.select.chan 30
n48= cdialog -t sBiasa.prot.ch.select.chan BĂasa Cycle Channel | sBiasa.prot.ch.channel.check
n49= var %sBiasa-prot.ch.select.chan.num = 1, %sBiasa-prot.ch.select.chan.total = $gettok($gettok(%sBiasa-cycle.channel_data,2,58),0,44)
n50= while (%sBiasa-prot.ch.select.chan.num <= %sBiasa-prot.ch.select.chan.total) {
n51= cdid -a sBiasa.prot.ch.select.chan 30 $gettok($gettok(%sBiasa-cycle.channel_data,2,58),%sBiasa-prot.ch.select.chan.num,44)
n52= inc %sBiasa-prot.ch.select.chan.num 1
n53=} }
n54=alias sBiasa.prot.ch.select.chan { opendialog sBiasa.prot.ch.select.chan sBiasa.dialog.select.chan -ma }
n55=alias sBiasa.prot.ch.channel.check { if ($gettok(%sBiasa-cycle.channel_data,2,58) == $null) { set %sBiasa-cycle.channel_data $gettok(%sBiasa-cycle.channel_data,1,58) $+ :#NorthSumatera,#Medan,#Picauly,#indoflasher | sBiasa.dialog.info.small Cycle Channel error...:There's no channel in the list. The default channel data is shown. You change it but please don't make the list empty, couse you will see this message again. } }
n56=on *:DIALOG:sBiasa.prot.ch.options:sclick:*:{ if ($did = 3) || ($did = 5) { sBiasa.prot.ch.options.apply $did } | elseif ($did = 7) { about -ma }
n57= elseif ($did = 202) { did - $+ $iif($did(sBiasa.prot.ch.options,202).state,e,b) sBiasa.prot.ch.options 203,204,205,206,207,208,209,210,211,221,222,223,224,225,226,227,228,229,231,232,233,234,235,236,237,238,239 }
n58= elseif ($did = 252) { did - $+ $iif($did(sBiasa.prot.ch.options,252).state,e,b) sBiasa.prot.ch.options 253,254,255,261,262,263 }
n59= elseif ($did = 302) { if ($did(sBiasa.prot.ch.options,302).state) { did -e sBiasa.prot.ch.options 303,304,305,306 | did - $+ $iif($did(sBiasa.prot.ch.options,306).state,e,b) sBiasa.prot.ch.options 307,308 } | else { did -b sBiasa.prot.ch.options 303,304,305,306,307,308 } }
n60= elseif ($did = 306) { did - $+ $iif($did(sBiasa.prot.ch.options,306).state,e,b) sBiasa.prot.ch.options 307,308 }
n61= elseif ($did = 311) { did - $+ $iif($did(sBiasa.prot.ch.options,311).state,e,b) sBiasa.prot.ch.options 312,313,314,315,316,317 }
n62= elseif ($did = 381) { did - $+ $iif($did(sBiasa.prot.ch.options,381).state,e,b) sBiasa.prot.ch.options 382,383,384,385,386,387 }
n63= elseif ($did = 391) { if ($did(sBiasa.prot.ch.options,391).state) { did -e sBiasa.prot.ch.options 392 | did - $+ $iif($did(sBiasa.prot.ch.options,392).state,e,b) sBiasa.prot.ch.options 393,394 } | else { did -b sBiasa.prot.ch.options 392,393,394 } }
n64= elseif ($did = 392) { did - $+ $iif($did(sBiasa.prot.ch.options,392).state,e,b) sBiasa.prot.ch.options 393,394 }
n65= elseif ($did = 402) { did - $+ $iif($did(sBiasa.prot.ch.options,402).state,e,b) sBiasa.prot.ch.options 403,404,405 }
n66= elseif ($did = 411) { did - $+ $iif($did(sBiasa.prot.ch.options,411).state,e,b) sBiasa.prot.ch.options 412,413,414 }
n67= elseif ($did = 421) { did - $+ $iif($did(sBiasa.prot.ch.options,421).state,e,b) sBiasa.prot.ch.options 422,423,424 }
n68= elseif ($did = 431) { did - $+ $iif($did(sBiasa.prot.ch.options,431).state,e,b) sBiasa.prot.ch.options 432,433,434 }
n69= elseif ($did = 451) { did - $+ $iif($did(sBiasa.prot.ch.options,451).state,e,b) sBiasa.prot.ch.options 452,453,454,455,456,457,458 }
n70= elseif ($did = 461) { did - $+ $iif($did(sBiasa.prot.ch.options,461).state,e,b) sBiasa.prot.ch.options 462,463,464,465,466,467 }
n71= elseif ($did = 502) { did - $+ $iif($did(sBiasa.prot.ch.options,502).state,e,b) sBiasa.prot.ch.options 503 }
n72= elseif ($did = 511) { if ($did(sBiasa.prot.ch.options,511).state) { did -e sBiasa.prot.ch.options 512,513 | did - $+ $iif($did(sBiasa.prot.ch.options,513).state,e,b) sBiasa.prot.ch.options 515,516,519 | did - $+ $iif($did(sBiasa.prot.ch.options,516).state,e,b) sBiasa.prot.ch.options 517,518 } | else { did -b sBiasa.prot.ch.options 512,513,515,516,517,518,519 } }
n73= elseif ($did = 516) { did -e sBiasa.prot.ch.options 517,518 }
n74= elseif ($did = 515) || ($did = 519) { did -b sBiasa.prot.ch.options 517,518 }
n75= elseif ($did = 512) { did -b sBiasa.prot.ch.options 515,516,517,518,519 }
n76= elseif ($did = 513) { did -e sBiasa.prot.ch.options 515,516,519 | did - $+ $iif($did(sBiasa.prot.ch.options,516).state,e,b) sBiasa.prot.ch.options 517,518 }
n77= elseif ($did = 521) { did - $+ $iif($did(sBiasa.prot.ch.options,521).state,e,b) sBiasa.prot.ch.options 522,523,524,525,526,527 }
n78= elseif ($did = 531) { did - $+ $iif($did(sBiasa.prot.ch.options,531).state,e,b) sBiasa.prot.ch.options 532,532,533,534,535,536,537 }
n79= elseif ($did = 552) { did - $+ $iif($did(sBiasa.prot.ch.options,552).state,e,b) sBiasa.prot.ch.options 553,554,555,556,557,561,562 }
n80= elseif ($did = 611) { did - $+ $iif($did(sBiasa.prot.ch.options,611).state,e,b) sBiasa.prot.ch.options 612,613,614 }
n81= elseif ($did = 621) { did - $+ $iif($did(sBiasa.prot.ch.options,621).state,e,b) sBiasa.prot.ch.options 622,623,624 }
n82= elseif ($did = 602) { if ($did(sBiasa.prot.ch.options,602).state) { did -e sBiasa.prot.ch.options 603,604,605,606,608,609
n83= if ($did(sBiasa.prot.ch.options,606).state) { did -e sBiasa.prot.ch.options 607 }
n84= else { did -b sBiasa.prot.ch.options 607 } } | else { did -b sBiasa.prot.ch.options 603,604,605,606,607,608,609 } }
n85= elseif ($did = 606) { did -e sBiasa.prot.ch.options 607 }
n86= elseif ($did = 607) { sBiasa.prot.ch.select.chan }
n87= elseif ($did = 608) { did -b sBiasa.prot.ch.options 607 }
n88= elseif ($did = 632) || ($did = 636) || ($did = 641) || ($did = 651) { sBiasa.prot.ch.options.init.d 646 }
n89= elseif ($did = 608) { did -b sBiasa.prot.ch.options 607 }
n90= elseif ($did = 802) { did -b sBiasa.prot.ch.options 806,807,808,811,812,813,814 | sBiasa.prot.ch.options.sclick.d 806 }
n91= elseif ($did = 803) { did -e sBiasa.prot.ch.options 806,807,808,811,812,813,814 }
n92= elseif ($did = 806) || ($did == 807) || ($did == 808) { sBiasa.prot.ch.options.sclick.d 806 $did }
n93= elseif ($did = 811) { if ($did(sBiasa.prot.ch.options,808,3) == $null) { opendialog sBiasa.prot.ch.options.addchan sBiasa.prot.ch.options.addchan -ma } }
n94= elseif ($did = 812) { if ($did(sBiasa.prot.ch.options,806).sel != $null) { set -u0 %sBiasa-prot.ch.options.del.ch.s $did(sBiasa.prot.ch.options,806,$did(sBiasa.prot.ch.options,806).sel).text }
n95= elseif ($did(sBiasa.prot.ch.options,807).sel != $null) { set -u0 %sBiasa-prot.ch.options.del.ch.s $did(sBiasa.prot.ch.options,807,$did(sBiasa.prot.ch.options,807).sel).text }
n96= elseif ($did(sBiasa.prot.ch.options,808).sel != $null) { set -u0 %sBiasa-prot.ch.options.del.ch.s $did(sBiasa.prot.ch.options,808,$did(sBiasa.prot.ch.options,808).sel).text } | else { return }
n97= if ($did(sBiasa.prot.ch.options,806).lines = 1) { set -u0 %sBiasa-prot.ch.options.del.ch $did(sBiasa.prot.ch.options,806,1).text
n98= if (%sBiasa-prot.ch.options.del.ch) && (%sBiasa-prot.ch.options.del.ch = %sBiasa-prot.ch.options.del.ch.s) { did -r sBiasa.prot.ch.options 806 | did -e sBiasa.prot.ch.options 5 }
n99= }
n100= else { set -u0 %sBiasa-prot.ch.options.del.ch $didtok(sBiasa.prot.ch.options,806,44) $+ $iif($didtok(sBiasa.prot.ch.options,807,44), $chr(44) $+ $didtok(sBiasa.prot.ch.options,807,44)) $+ $iif($didtok(sBiasa.prot.ch.options,808,44), $chr(44) $+ $didtok(sBiasa.prot.ch.options,808,44))
n101= set -u0 %sBiasa-prot.ch.options.del.ch $remtok(%sBiasa-prot.ch.options.del.ch,%sBiasa-prot.ch.options.del.ch.s,1,44)
n102= if (%sBiasa-prot.ch.options.del.ch) { sBiasa.prot.ch.options.init.channel %sBiasa-prot.ch.options.del.ch | did -e sBiasa.prot.ch.options 5 }
n103= }
n104= unset %sBiasa-prot.ch.options.del.ch %sBiasa-prot.ch.options.del.ch.s
n105= }
n106= elseif ($did isnum 813-814) { sBiasa.prot.ch.options.chan.updown $iif($did = 813, +, -) }
n107= elseif ($did = 832) { sBiasa.prot.ch.options.restore.do }
n108= elseif ($did = 836) { if ($did(sBiasa.prot.ch.options,836).seltext) { did -e sBiasa.prot.ch.options 841,842 } | else { did -b sBiasa.prot.ch.options 841,842 } }
n109= elseif ($did = 837) { if ($did(sBiasa.prot.ch.options,837).seltext) { did -e sBiasa.prot.ch.options 846 } | else { did -b sBiasa.prot.ch.options 846 } }
n110= elseif ($did = 841) { sBiasa.prot.ch.options.load.file $sBiasadir.prot.ch($did(sBiasa.prot.ch.options,836).seltext) $+ .spc }
n111= elseif ($did = 842) { sBiasa.prot.ch.options.del.file $sBiasadir.prot.ch($did(sBiasa.prot.ch.options,836).seltext) $+ .spc | sBiasa.prot.ch.options.init.file }
n112= elseif ($did = 847) { sBiasa.prot.ch.options.save }
n113= elseif ($did = 846) { if ($did(sBiasa.prot.ch.options,837).seltext) { sBiasa.prot.ch.options.save.file $sBiasadir.prot.ch($did(sBiasa.prot.ch.options,837).seltext)) } | elseif ($did(sBiasa.prot.ch.options,837).text) { sBiasa.prot.ch.options.save.file $sBiasadir.prot.ch($did(sBiasa.prot.ch.options,837).text)) } }
n114= elseif ($did = 847) { sBiasa.prot.ch.options.save }
n115= if ($did isnum 3-5) || ($did = 7) || ($did = 607) || ($did isnum 806-808) || ($did isnum 811-814) { }
n116= elseif ($did = 200) || ($did = 300) || ($did = 400) || ($did = 500) || ($did = 600) || ($did = 800) || ($did isnum 836-837) || ($did isnum 841-842) || ($did isnum 846-847) { }
n117= else { did -e sBiasa.prot.ch.options 5 }
n118=}
n119=dialog sBiasa.prot.ch.options {
n120= title "Skrip BĂasa Lite Channel Protection Options"
n121= size -1 -1 509 387
n122= button "OK", 3, 146 337 70 24, Ok default
n123= button "Cancel", 4, 223 337 70 24, Cancel
n124= button "&Apply", 5, 300 337 70 24
n125= menu "&Options", 900
n126= item "&Restore defaults", 901
n127= item break, 902
n128= item "&Load...", 903
n129= item "&Save as...", 904
n130= item "&Delete...", 905
n131= item break, 906
n132= item "&Ok", 908
n133= item "&Cancel", 909
n134= Tab "Standard", 200, 5 3 499 330
n135= Tab "Text", 300
n136= Tab "Mass", 400
n137= Tab "Mode", 500
n138= Tab "Other", 600
n139= Tab "Setting", 800
n140= box "Codes, length and lines", 201, 9 32 490 128, tab 200
n141= check "Enable codes, length and lines flood protections", 202, 23 57 247 15, tab 200
n142= text "Codes warn:", 203, 41 82 61 15, tab 200
n143= edit "", 204, 107 79 31 20, right, tab 200
n144= text "code(s).", 205, 143 82 40 15, tab 200
n145= text "Codes kick:", 206, 41 105 60 15, tab 200
n146= edit "", 207, 107 102 31 20, right, tab 200
n147= text "code(s).", 208, 143 105 40 15, tab 200
n148= text "Codes ban:", 209, 41 128 60 15, tab 200
n149= edit "", 210, 107 125 31 20, right, tab 200
n150= text "code(s).", 211, 143 128 40 15, tab 200
n151= text "Length more:", 221, 200 82 65 15, tab 200
n152= edit "", 222, 269 79 31 20, right, tab 200
n153= text "char(s).", 223, 305 82 40 15, tab 200
n154= text "Length kick:", 224, 200 105 65 15, tab 200
n155= edit "", 225, 269 102 31 20, right, tab 200
n156= text "char(s).", 226, 305 105 40 15, tab 200
n157= text "Length ban:", 227, 200 128 65 15, tab 200
n158= edit "", 228, 269 125 31 20, right, tab 200
n159= text "char(s).", 229, 305 128 40 15, tab 200
n160= text "Line kick:", 231, 361 82 56 15, tab 200
n161= edit "", 232, 417 79 31 20, right, tab 200
n162= text "line(s).", 233, 453 82 40 15, tab 200
n163= text "Line ban:", 234, 361 105 56 15, tab 200
n164= edit "", 235, 417 102 31 20, right, tab 200
n165= text "line(s).", 236, 453 105 40 15, tab 200
n166= text "Ctcp kick:", 237, 361 128 56 15, tab 200
n167= edit "", 238, 417 125 31 20, right, tab 200
n168= text "line(s).", 239, 453 128 40 15, tab 200
n169= box "Nick", 251, 9 166 490 81, tab 200
n170= check "Enable nick flood protection", 252, 23 191 245 15, tab 200
n171= text "Changes nick kick:", 253, 41 216 95 15, tab 200
n172= edit "", 254, 140 213 31 20, right, tab 200
n173= text "time(s).", 255, 176 216 40 15, tab 200
n174= text "Changes nick ban:", 261, 263 216 93 15, tab 200
n175= edit "", 262, 360 213 31 20, right, tab 200
n176= text "time(s).", 263, 396 216 40 15, tab 200
n177= box "Codes, length, lines and nick settings", 271, 9 254 490 60, tab 200
n178= text "Checks delay:", 272, 25 282 73 15, tab 200
n179= edit "", 273, 100 280 31 20, right, tab 200
n180= text "sec(s).", 274, 136 282 40 15, tab 200
n181= text "Ban length:", 281, 249 283 70 15, tab 200
n182= edit "", 282, 312 280 37 20, right, tab 200
n183= text "sec(s).", 283, 354 283 40 15, tab 200
n184= box "Text and words", 301, 9 32 490 282, tab 300
n185= check "Enable repeat text protection", 302, 23 57 171 15, tab 300
n186= text "Repeat kick:", 303, 41 80 61 15, tab 300
n187= edit "", 304, 109 77 31 20, right, tab 300
n188= text "lines.", 305, 145 80 40 15, tab 300
n189= check "Use ban for:", 306, 42 104 82 15, tab 300
n190= edit "", 307, 126 101 37 20, right, tab 300
n191= text "sec(s).", 308, 168 104 40 15, tab 300
n192= check "Enable caps text protection", 311, 265 56 161 15, tab 300
n193= text "Caps kick:", 312, 283 80 51 15, tab 300
n194= combo 313, 342 77 50 90, drop, tab 300
n195= text "percent(s).", 314, 397 80 50 15, tab 300
n196= text "If more than:", 315, 283 105 60 15, tab 300
n197= edit "", 316, 350 102 31 20, right, tab 300
n198= text "char(s).", 317, 387 105 40 15, tab 300
n199= check "Enable colour text kick.", 321, 23 133 178 15, tab 300
n200= check "Enable bold text kick.", 331, 23 153 178 15, tab 300
n201= check "Enable underline text kick.", 341, 23 173 178 15, tab 300
n202= check "Enable reverse text kick.", 351, 23 193 178 15, tab 300
n203= check "Enable ghost text kick.", 361, 23 213 178 15, tab 300
n204= check "Enable bad jokes text kick.", 326, 265 133 185 15, tab 300
n205= check "Enable bad word text kick.", 336, 265 153 185 15, tab 300
n206= check "Enable bad word text ban.", 346, 265 173 185 15, tab 300
n207= check "Enable ctcp channel kick.", 356, 265 193 185 15, tab 300
n208= check "Enable notice channel kick.", 366, 265 213 185 15, tab 300
n209= check "Enable tsunami text protection.", 376, 265 233 178 15, tab 300
n210= check "Enable BĂasa underline text protection", 381, 23 233 212 15, tab 300
n211= text "Ban length:", 382, 41 256 61 15, tab 300
n212= edit "", 383, 103 253 37 20, right, tab 300
n213= text "sec(s).", 384, 145 256 40 15, tab 300
n214= text "If ignoring, ignore for:", 385, 41 280 107 15, tab 300
n215= edit "", 386, 148 277 37 20, right, tab 300
n216= text "sec(s).", 387, 190 280 40 15, tab 300
n217= check "Enable advertising text protection.", 391, 265 253 200 15, tab 300
n218= check "Use ban for:", 392, 284 276 82 15, tab 300
n219= edit "", 393, 368 273 37 20, right, tab 300
n220= text "sec(s).", 394, 410 275 40 15, tab 300
n221= box "Mass flood", 401, 9 52 236 239, tab 400
n222= check "Enable mass kick protection", 402, 23 79 171 15, tab 400
n223= text "Limit kick:", 403, 41 102 53 15, tab 400
n224= edit "", 404, 99 99 31 20, right, tab 400
n225= text "times.", 405, 135 102 40 15, tab 400
n226= check "Enable mass deop protection", 411, 23 131 171 15, tab 400
n227= text "Limit deop:", 412, 41 154 53 15, tab 400
n228= edit "", 413, 99 151 31 20, right, tab 400
n229= text "times.", 414, 135 154 40 15, tab 400
n230= check "Enable mass ban protection", 421, 23 183 171 15, tab 400
n231= text "Limit ban:", 422, 41 206 53 15, tab 400
n232= edit "", 423, 99 203 31 20, right, tab 400
n233= text "times.", 424, 135 206 40 15, tab 400
n234= check "Enable mass topic protection", 431, 23 235 173 15, tab 400
n235= text "Limit topic:", 432, 41 258 53 15, tab 400
n236= edit "", 433, 99 255 31 20, right, tab 400
n237= text "times.", 434, 135 258 40 15, tab 400
n238= box "Join and clone flood", 450, 250 68 249 207, tab 400
n239= check "Enable join flood protection", 451, 265 95 160 15, tab 400
n240= text "Limit join in 10 secs:", 452, 283 118 100 15, tab 400
n241= edit "", 453, 385 115 31 20, right, tab 400
n242= text "times.", 454, 421 118 40 15, tab 400
n243= text "Ban length:", 455, 283 143 61 15, tab 400
n244= edit "", 456, 346 140 37 20, right, tab 400
n245= text "sec(s).", 457, 388 143 40 15, tab 400
n246= check "Include ident join flood.", 458, 284 168 133 15, tab 400
n247= check "Enable clone limit protection", 461, 265 195 161 15, tab 400
n248= text "Clone kick per hostname:", 462, 283 218 122 15, tab 400
n249= edit "", 463, 411 215 31 20, right, tab 400
n250= text "clones.", 464, 447 218 45 15, tab 400
n251= text "Ban length:", 465, 283 243 61 15, tab 400
n252= edit "", 466, 346 240 37 20, right, tab 400
n253= text "sec(s).", 467, 388 243 40 15, tab 400
n254= box "Ban stuff", 501, 9 32 490 199, tab 500
n255= check "Enable enforcer ban (banned kick).", 502, 23 57 188 15, tab 500
n256= check "Not including ops.", 503, 42 77 110 15, tab 500
n257= check "Enable ban protection", 511, 23 104 129 15, tab 500
n258= radio "Only unban the banmask.", 512, 41 125 145 15, group, tab 500
n259= radio "Unban, deop and kick the person.", 513, 41 145 184 15, tab 500
n260= radio "No banning.", 515, 59 165 105 15, group, tab 500
n261= radio "Temporary ban:", 516, 59 184 95 15, tab 500
n262= edit "", 517, 159 181 37 20, tab 500
n263= text "sec(s)", 518, 201 184 37 15, tab 500
n264= radio "Ban permanently.", 519, 59 203 105 15, tab 500
n265= check "Enable auto unban channel banlist", 521, 258 57 191 15, tab 500
n266= text "Check every:", 522, 277 80 67 15, tab 500
n267= edit "", 523, 348 77 37 20, right, tab 500
n268= text "secs.", 524, 390 80 67 15, tab 500
n269= text "Unbanning:", 525, 277 104 60 15, tab 500
n270= edit "", 526, 341 101 31 20, right, tab 500
n271= text "ban(s).", 527, 377 104 67 15, tab 500
n272= check "Enable auto ban if a host always got kicked", 531, 258 132 229 15, tab 500
n273= text "If were kicked:", 532, 277 155 72 15, tab 500
n274= edit "", 533, 356 152 31 20, right, tab 500
n275= text "time(s).", 534, 392 155 67 15, tab 500
n276= text "Ban length:", 535, 277 179 57 15, tab 500
n277= edit "", 536, 340 176 37 20, right, tab 500
n278= text "sec(s).", 537, 382 179 67 15, tab 500
n279= box "Channel mode", 551, 9 238 490 76, tab 500
n280= check "Enable mode lock (can be a takeover protection)", 552, 23 263 255 15, tab 500
n281= check "+nt", 553, 42 283 41 15, tab 500
n282= check "-i", 554, 86 283 35 15, tab 500
n283= check "-p", 555, 122 283 35 15, tab 500
n284= check "-k", 556, 160 283 35 15, tab 500
n285= check "-l", 557, 198 283 35 15, tab 500
n286= check "Kick the user.", 561, 243 283 88 15, tab 500
n287= check "Ban the user (deop first).", 562, 343 283 138 15, tab 500
n288= box "Cycle, take data and invite protection", 601, 9 32 490 147, tab 600
n289= check "Enable auto cycling channel", 602, 23 56 171 17, tab 600
n290= text "Cycle every:", 603, 41 80 61 15, tab 600
n291= edit "", 604, 107 77 37 20, right, tab 600
n292= text "secs.", 605, 149 80 40 15, tab 600
n293= radio "Just for the specified channel.", 606, 40 104 162 17, group, tab 600
n294= button "Set...", 607, 207 102 40 20, tab 600
n295= radio "All channels.", 608, 40 124 162 17, tab 600
n296= check "Disable when the server service is down.", 609, 42 147 215 17, tab 600
n297= check "Enable check msg invite/dcc send on join", 611, 265 56 220 17, tab 600
n298= text "Ban length:", 612, 283 80 61 15, tab 600
n299= edit "", 613, 346 77 37 20, right, tab 600
n300= text "sec(s).", 614, 388 80 40 15, tab 600
n301= check "Enable invite kick protection", 621, 265 108 159 17, tab 600
n302= text "Ban length:", 622, 283 132 61 15, tab 600
n303= edit "", 623, 346 129 37 20, right, tab 600
n304= text "sec(s).", 624, 388 132 40 15, tab 600
n305= box "Others", 631, 9 186 490 128, tab 600
n306= check "Enable auto ban bad nick.", 632, 23 211 171 17, tab 600
n307= check "Enable auto ban bad ident.", 636, 23 231 171 17, tab 600
n308= check "Enable auto ban bad ip/host.", 641, 23 251 171 17, tab 600
n309= text "Ban length for bad nick, ident, ip/host and guest nick:", 646, 42 281 259 15, tab 600
n310= edit "", 647, 305 278 37 20, right, tab 600
n311= text "sec(s).", 648, 347 281 40 15, tab 600
n312= check "Enable auto ban guest/tamu nick.", 651, 265 211 185 17, tab 600
n313= check "Enable auto deop users opped by server.", 656, 265 231 212 17, tab 600
n314= check "Enable sets +nt on join empty channel.", 661, 265 251 206 17, tab 600
n315= box "Channel", 801, 9 32 490 120, tab 800
n316= radio "Protect all the channel that i'm opped in.", 802, 22 55 215 17, group, tab 800
n317= radio "Protect only some channel that i want and i'm opped in.", 803, 22 74 284 17, tab 800
n318= list 806, 41 92 105 67, tab 800
n319= list 807, 150 92 105 67, tab 800
n320= list 808, 259 92 105 67, tab 800
n321= button "Add", 811, 380 93 43 18, tab 800
n322= button "Del", 812, 380 117 43 18, tab 800
n323= button "up", 813, 431 93 43 18, tab 800
n324= button "down", 814, 431 117 43 18, tab 800
n325= box "Lock channel", 821, 9 159 490 60, tab 800
n326= text "If the protection decide needs to lock the channel (sets +mi), temporary:", 822, 24 188 340 15, tab 800
n327= edit "", 823, 370 185 37 20, right, tab 800
n328= text "sec(s).", 824, 412 188 40 20, tab 800
n329= box "Options", 831, 9 226 490 88, tab 800
n330= button "&Restore Defaults", 832, 23 264 105 25, tab 800
n331= combo 836, 165 251 145 142, drop, tab 800
n332= combo 837, 165 278 145 142, edit drop, tab 800
n333= button "Load", 841, 325 251 60 21, drop, tab 800
n334= button "Delete", 842, 394 251 60 21, drop, tab 800
n335= button "Save", 846, 325 278 60 21, drop, tab 800
n336= button "Save as...", 847, 394 278 60 21, drop, tab 800
n337= icon 7, 5 339 79 20, $logobiasa
n338= ; link $analog, 33, 8 382 105 17
n339=}
n340=on *:DIALOG:sBiasa.prot.ch.options:edit:*:{ if ($did == 837) { if ($did(sBiasa.prot.ch.options,837)) { did -e sBiasa.prot.ch.options 846 } | else { did -b sBiasa.prot.ch.options 846 } } | else { did -e sBiasa.prot.ch.options 5 } }
n341=alias sBiasa.prot.ch.options.check.ld { if ($findfile($sBiasadir.prot.ch,*.spc,0) >= 1) { return $true } | else { return $false } }
n342=alias sBiasa.prot.ch.options.check.ld.info { sBiasa.dialog.info.small Channel Protection load/delete...:There's no one channel protection setting to be loaded or deteled. }
n343=alias sBiasa.prot.ch.options.load { opendialog sBiasa.prot.ch.options.load sBiasa.prot.ch.options.load -ma }
n344=alias sBiasa.prot.ch.options.save { opendialog sBiasa.prot.ch.options.save sBiasa.prot.ch.options.save -ma }
n345=alias sBiasa.prot.ch.options.del { opendialog sBiasa.prot.ch.options.del sBiasa.prot.ch.options.del -ma }
n346=on *:DIALOG:sBiasa.prot.ch.options.load:init:0:{ sBiasa.prot.ch.options.init.file | did -f sBiasa.prot.ch.options.load 12 }
n347=on *:DIALOG:sBiasa.prot.ch.options.load:dclick:12:{ set %sBiasa-prot.ch.options.load.file $sBiasadir.prot.ch($did(sBiasa.prot.ch.options.load,12).seltext) $+ .spc
n348= closedialog sBiasa.prot.ch.options.load sBiasa.prot.ch.options.load
n349= sBiasa.prot.ch.options.load.file %sBiasa-prot.ch.options.load.file
n350= unset %sBiasa-prot.ch.options.load.file
n351=}
n352=on *:DIALOG:sBiasa.prot.ch.options.del:init:0:{ sBiasa.prot.ch.options.init.file | did -f sBiasa.prot.ch.options.del 12 }
n353=on *:DIALOG:sBiasa.prot.ch.options.del:dclick:12:{ set %sBiasa-prot.ch.options.del.file $sBiasadir.prot.ch($did(sBiasa.prot.ch.options.del,12).seltext) $+ .spc
n354= closedialog sBiasa.prot.ch.options.del sBiasa.prot.ch.options.del | opendialog sBiasa.prot.ch.options.del.proc sBiasa.deleting.proc -ma
n355= sBiasa.prot.ch.options.del.ok %sBiasa-prot.ch.options.del.file
n356= unset %sBiasa-prot.ch.options.del.file
n357=}
n358=alias sBiasa.prot.ch.options.del.ok { closedialog sBiasa.prot.ch.options.del sBiasa.prot.ch.options.del | opendialog sBiasa.prot.ch.options.del.proc sBiasa.deleting.proc -ma | sBiasa.prot.ch.options.del.proc confirm file $1- }
n359=on *:DIALOG:sBiasa.prot.ch.options.del:sclick:3:{ if ($did(sBiasa.prot.ch.options.del,12).seltext) {
n360= set %sBiasa-prot.ch.options.del.file $sBiasadir.prot.ch($did(sBiasa.prot.ch.options.del,12).seltext) $+ .spc
n361= sBiasa.prot.ch.options.del.ok %sBiasa-prot.ch.options.del.file
n362= unset %sBiasa-prot.ch.options.del.file
n363=} }
n364=dialog sBiasa.prot.ch.options.del {
n365= title "BĂasa Delete Channel Protection Setting..."
n366= size -1 -1 178 208
n367= button "Delete", 3, 30 179 56 23, default Ok
n368= button "Cancel", 4, 92 179 56 23, Cancel
n369= text "Please &select one!", 11, 14 7 100 15
n370= list 12, 12 24 154 154, vsbar
n371= ; link $analog, 100, 5 115 165 17
n372= ; icon 99, 192 118 79 20, $logobiasa
n373=}
n374=dialog sBiasa.prot.ch.options.save {
n375= title "BĂasa Channel Protection Save as..."
n376= size -1 -1 222 93
n377= button "Save", 3, 53 62 56 23, default Ok
n378= button "Cancel", 4, 116 62 56 23, Cancel
n379= text "Please write a &name!", 11, 12 10 198 15
n380= edit "", 12, 10 28 202 24, autohs limit 26
n381= ; link $analog, 100, 5 115 165 17
n382= ; icon 99, 192 118 79 20, $logobiasa
n383=}
n384=on *:DIALOG:sBiasa.prot.ch.options.save:init:0:{ did -f sBiasa.prot.ch.options.save 12 }
n385=on *:DIALOG:sBiasa.prot.ch.options.save:sclick:3:{ if ($did(sBiasa.prot.ch.options.save,12)) {
n386= if ($gettok($did(sBiasa.prot.ch.options.save,12),$gettok($did(sBiasa.prot.ch.options.save,12),0,46),46) != spc) { set %sBiasa-prot.ch.options.save.file $did(sBiasa.prot.ch.options.save,12) $+ .spc }
n387= else { set %sBiasa-prot.ch.options.save.file $did(sBiasa.prot.ch.options.save,12) }
n388= set %sBiasa-prot.ch.options.save.file $replacecs(%sBiasa-prot.ch.options.save.file,$chr(32),_)
n389= set %sBiasa-prot.ch.options.save.file $sBiasadir.prot.ch(%sBiasa-prot.ch.options.save.file)
n390= sBiasa.prot.ch.options.save.proc %sBiasa-prot.ch.options.save.file
n391= unset %sBiasa-prot.ch.options.save.file
n392=} }