/ScriptServ

[script]
n0=;# Skrip Bíasa Lite -#- Roní Tua -#- http://www.picauly.f2s.com/ -#- v1.01c #
n1=
n2=alias sBiasa.prot.pv.options { opendialog sBiasa.prot.pv.options sBiasa.prot.pv.options $1- }
n3=dialog sBiasa.prot.pv.options {
n4=  title "Skrip Bíasa Lite Private Protection Options"
n5=  size -1 -1 352 279
n6=  tab "Text", 100, 6 7 339 240
n7=  tab "Action", 200
n8=  tab "Notice", 300
n9=  tab "Ctcp", 400
n10=  tab "Other", 800
n11=  button "OK", 3, 112 250 74 23, default Ok
n12=  button "Cancel", 4, 192 250 74 23, Cancel
n13=  button "&Apply", 5, 272 250 74 23
n14=  check "Enable private message text protection.", 101, 22 53 320 15, tab 100
n15=  text "Line ignore:", 102, 40 85 61 15, tab 100
n16=  edit "", 103, 102 82 31 20, right limit 3, tab 100
n17=  text "line(s).", 104, 138 85 50 15, tab 100
n18=  text "Ignore length:", 105, 40 110 71 15, tab 100
n19=  edit "", 106, 112 107 37 20, right limit 4, tab 100
n20=  text "sec(s).", 107, 154 110 50 15, tab 100
n21=  check "Enable auto close message query on channel inviting.", 111, 40 143 300 15, tab 100
n22=  check "Enable auto close message query on website advertising.", 121, 40 171 300 15, tab 100
n23=  check "Enable standard text censoring.", 131, 40 199 300 15, tab 100
n24=  check "Enable private action/describe protection.", 201, 22 53 320 15, tab 200
n25=  text "Line ignore:", 202, 40 85 61 15, tab 200
n26=  edit "", 203, 102 82 31 20, right limit 3, tab 200
n27=  text "line(s).", 204, 138 85 50 15, tab 200
n28=  text "Ignore length:", 205, 40 110 71 15, tab 200
n29=  edit "", 206, 112 107 37 20, right limit 4, tab 200
n30=  text "sec(s).", 207, 154 110 50 15, tab 200
n31=  check "Enable auto close message query on channel inviting.", 211, 40 143 300 15, tab 200
n32=  check "Enable auto close message query on website advertising.", 221, 40 171 300 15, tab 200
n33=  check "Enable standard text censoring.", 231, 40 199 300 15, tab 200
n34=  check "Enable private notice protection.", 301, 22 53 320 15, tab 300
n35=  text "Line ignore:", 302, 40 85 61 15, tab 300
n36=  edit "", 303, 102 82 31 20, right limit 3, tab 300
n37=  text "line(s).", 304, 138 85 50 15, tab 300
n38=  text "Ignore length:", 305, 40 110 71 15, tab 300
n39=  edit "", 306, 112 107 37 20, right limit 4, tab 300
n40=  text "sec(s).", 307, 154 110 50 15, tab 300
n41=  check "Enable standard text censoring.", 311, 40 143 300 15, tab 300
n42=  check "Enable private ctcp and private ctcpreply protection.", 401, 22 53 320 15, tab 400
n43=  text "Line ignore:", 402, 40 85 61 15, tab 400
n44=  edit "", 403, 102 82 31 20, right limit 3, tab 400
n45=  text "line(s).", 404, 138 85 50 15, tab 400
n46=  text "Ignore length:", 405, 40 110 71 15, tab 400
n47=  edit "", 406, 112 107 37 20, right limit 4, tab 400
n48=  text "sec(s).", 407, 154 110 50 15, tab 400
n49=  check "Enable standard text censoring.", 411, 40 143 300 15, tab 400
n50=  check "Notice the ignored user for text, action, and ctcps flood.", 801, 22 53 320 15, tab 800
n51=  check "Enable Bíasa-Underline text flood protection.", 811, 22 85 320 15, tab 800
n52=  text "Ignore length:", 812, 40 110 71 15, tab 800
n53=  edit "", 813, 112 107 37 20, right limit 4, tab 800
n54=  text "sec(s).", 814, 154 110 50 15, tab 800
n55=  check "Enable tsunami text flood protection.", 821, 22 146 320 15, tab 800
n56=  text "Ignore length:", 822, 40 171 71 15, tab 800
n57=  edit "", 823, 112 168 37 20, right limit 4, tab 800
n58=  text "sec(s).", 824, 154 171 50 15, tab 800
n59=  ;  link $analog, 98, 5 115 165 17
n60=  ;  icon 99, 192 118 79 20, $logobiasa
n61=}
n62=on *:DIALOG:sBiasa.prot.pv.options:sclick:*:{ if ($did = 3) || ($did = 5) { sBiasa.prot.pv.options.apply $did }
n63=  elseif ($did = 101) { did - $+ $iif($did(sBiasa.prot.pv.options,101).state,e,b) sBiasa.prot.pv.options 102,103,104,105,106,107,111,121,131 }
n64=  elseif ($did = 201) { did - $+ $iif($did(sBiasa.prot.pv.options,201).state,e,b) sBiasa.prot.pv.options 202,203,204,205,206,207,211,221,231 }
n65=  elseif ($did = 301) { did - $+ $iif($did(sBiasa.prot.pv.options,301).state,e,b) sBiasa.prot.pv.options 302,303,304,305,306,307,311 }
n66=  elseif ($did = 401) { did - $+ $iif($did(sBiasa.prot.pv.options,401).state,e,b) sBiasa.prot.pv.options 402,403,404,405,406,407,411 }
n67=  elseif ($did = 811) { did - $+ $iif($did(sBiasa.prot.pv.options,811).state,e,b) sBiasa.prot.pv.options 812,813,814 }
n68=  elseif ($did = 821) { did - $+ $iif($did(sBiasa.prot.pv.options,821).state,e,b) sBiasa.prot.pv.options 822,823,824 }
n69=  if ($did !isnum 3-5) && ($did != 100) && ($did != 200) && ($did != 300) && ($did != 400) && ($did != 800) { did -e sBiasa.prot.pv.options 5 }
n70=}
n71=on *:DIALOG:sBiasa.prot.pv.options:edit:*:{ did -e sBiasa.prot.pv.options 5 }
n72=alias sBiasa.prot.pv.options.init {
n73=  did - $+ $iif($sBiasa.prot.pv(2),c,u) sBiasa.prot.pv.options 111
n74=  did - $+ $iif($sBiasa.prot.pv(3),c,u) sBiasa.prot.pv.options 121
n75=  did - $+ $iif($sBiasa.prot.pv(4),c,u) sBiasa.prot.pv.options 131
n76=  did - $+ $iif($sBiasa.prot.pv(1),c,u) sBiasa.prot.pv.options 101
n77=  did - $+ $iif($sBiasa.prot.pv(1),e,b) sBiasa.prot.pv.options 102,103,104,105,106,107,111,121,131
n78=  did - $+ $iif($sBiasa.prot.pv(7),c,u) sBiasa.prot.pv.options 211
n79=  did - $+ $iif($sBiasa.prot.pv(8),c,u) sBiasa.prot.pv.options 221
n80=  did - $+ $iif($sBiasa.prot.pv(9),c,u) sBiasa.prot.pv.options 231
n81=  did - $+ $iif($sBiasa.prot.pv(6),c,u) sBiasa.prot.pv.options 201
n82=  did - $+ $iif($sBiasa.prot.pv(6),e,b) sBiasa.prot.pv.options 202,203,204,205,206,207,211,221,231
n83=  did - $+ $iif($sBiasa.prot.pv(12),c,u) sBiasa.prot.pv.options 311
n84=  did - $+ $iif($sBiasa.prot.pv(11),c,u) sBiasa.prot.pv.options 301
n85=  did - $+ $iif($sBiasa.prot.pv(11),e,b) sBiasa.prot.pv.options 302,303,304,305,306,307,311
n86=  did - $+ $iif($sBiasa.prot.pv(17),c,u) sBiasa.prot.pv.options 411
n87=  did - $+ $iif($sBiasa.prot.pv(16),c,u) sBiasa.prot.pv.options 401
n88=  did - $+ $iif($sBiasa.prot.pv(16),e,b) sBiasa.prot.pv.options 402,403,404,405,406,407,411
n89=  did - $+ $iif($sBiasa.prot.pv(21),c,u) sBiasa.prot.pv.options 801
n90=  did - $+ $iif($sBiasa.prot.pv(22),c,u) sBiasa.prot.pv.options 811
n91=  did - $+ $iif($sBiasa.prot.pv(22),e,b) sBiasa.prot.pv.options 812,813,814
n92=  did - $+ $iif($sBiasa.prot.pv(23),c,u) sBiasa.prot.pv.options 821
n93=  did - $+ $iif($sBiasa.prot.pv(23),e,b) sBiasa.prot.pv.options 822,823,824
n94=  did -o sBiasa.prot.pv.options 103 1 $gettok(%sBiasa-Ppv.text_data,1,58)
n95=  did -o sBiasa.prot.pv.options 106 1 $gettok(%sBiasa-Ppv.text_data,2,58)
n96=  did -o sBiasa.prot.pv.options 203 1 $gettok(%sBiasa-Ppv.action_data,1,58)
n97=  did -o sBiasa.prot.pv.options 206 1 $gettok(%sBiasa-Ppv.action_data,2,58)
n98=  did -o sBiasa.prot.pv.options 303 1 $gettok(%sBiasa-Ppv.notice_data,1,58)
n99=  did -o sBiasa.prot.pv.options 306 1 $gettok(%sBiasa-Ppv.notice_data,2,58)
n100=  did -o sBiasa.prot.pv.options 403 1 $gettok(%sBiasa-Ppv.ctcp_data,1,58)
n101=  did -o sBiasa.prot.pv.options 406 1 $gettok(%sBiasa-Ppv.ctcp_data,2,58)
n102=  did -o sBiasa.prot.pv.options 813 1 $gettok(%sBiasa-Ppv.other_data,1,58)
n103=  did -o sBiasa.prot.pv.options 823 1 $gettok(%sBiasa-Ppv.other_data,2,58)
n104=}
n105=alias sBiasa.prot.pv.options.apply { if ($1 = 5) { did -b sBiasa.prot.pv.options 5 }
n106=  set %sBiasa-prot.pv_data $did(sBiasa.prot.pv.options,101).state $+ $did(sBiasa.prot.pv.options,111).state $+ $did(sBiasa.prot.pv.options,121).state $+ $did(sBiasa.prot.pv.options,131).state $+ $mid(%sBiasa-prot.pv_data,5,26)
n107=  set %sBiasa-prot.pv_data $left(%sBiasa-prot.pv_data,5) $+ $did(sBiasa.prot.pv.options,201).state $+ $did(sBiasa.prot.pv.options,211).state $+ $did(sBiasa.prot.pv.options,221).state $+ $did(sBiasa.prot.pv.options,231).state $+ $mid(%sBiasa-prot.pv_data,10,21)
n108=  set %sBiasa-prot.pv_data $left(%sBiasa-prot.pv_data,10) $+ $did(sBiasa.prot.pv.options,301).state $+ $did(sBiasa.prot.pv.options,311).state $+ $mid(%sBiasa-prot.pv_data,13,18)
n109=  set %sBiasa-prot.pv_data $left(%sBiasa-prot.pv_data,15) $+ $did(sBiasa.prot.pv.options,401).state $+ $did(sBiasa.prot.pv.options,411).state $+ $mid(%sBiasa-prot.pv_data,18,13)
n110=  set %sBiasa-prot.pv_data $left(%sBiasa-prot.pv_data,20) $+ $did(sBiasa.prot.pv.options,801).state $+ $did(sBiasa.prot.pv.options,811).state $+ $did(sBiasa.prot.pv.options,821).state $+ $mid(%sBiasa-prot.pv_data,24,2)
n111=  if ($did(sBiasa.prot.pv.options,103) isnum 1-999) { set %sBiasa-Ppv.text_data $puttok(%sBiasa-Ppv.text_data,$did(sBiasa.prot.pv.options,103),1,58) }
n112=  if ($did(sBiasa.prot.pv.options,106) isnum 0-9999) { set %sBiasa-Ppv.text_data $puttok(%sBiasa-Ppv.text_data,$did(sBiasa.prot.pv.options,106),2,58) }
n113=  if ($did(sBiasa.prot.pv.options,203) isnum 1-999) { set %sBiasa-Ppv.action_data $puttok(%sBiasa-Ppv.action_data,$did(sBiasa.prot.pv.options,203),1,58) }
n114=  if ($did(sBiasa.prot.pv.options,206) isnum 0-9999) { set %sBiasa-Ppv.action_data $puttok(%sBiasa-Ppv.action_data,$did(sBiasa.prot.pv.options,206),2,58) }
n115=  if ($did(sBiasa.prot.pv.options,303) isnum 1-999) { set %sBiasa-Ppv.notice_data $puttok(%sBiasa-Ppv.notice_data,$did(sBiasa.prot.pv.options,303),1,58) }
n116=  if ($did(sBiasa.prot.pv.options,306) isnum 0-9999) { set %sBiasa-Ppv.notice_data $puttok(%sBiasa-Ppv.notice_data,$did(sBiasa.prot.pv.options,306),2,58) }
n117=  if ($did(sBiasa.prot.pv.options,403) isnum 1-999) { set %sBiasa-Ppv.ctcp_data $puttok(%sBiasa-Ppv.ctcp_data,$did(sBiasa.prot.pv.options,403),1,58) }
n118=  if ($did(sBiasa.prot.pv.options,406) isnum 0-9999) { set %sBiasa-Ppv.ctcp_data $puttok(%sBiasa-Ppv.ctcp_data,$did(sBiasa.prot.pv.options,406),2,58) }
n119=  if ($1 = 5) { sBiasa.prot.pv.options.init }
n120=}
n121=on *:DIALOG:sBiasa.prot.pv.options:init:0:{ did -b sBiasa.prot.pv.options 5 | sBiasa.prot.pv.chk | sBiasa.prot.pv.options.init }