(Skrip)-sBiasa-Lite — File Browser
Skrip-sBiasa-Litev1.01c / Skrip-sBiasa-Litev1.01c / sBiasaLite_Skrip / sbiasa_lite_s_access_01.ini
sbiasa_lite_s_access_01.ini — 22.87 KB — Download this file
[script]
n0=;# Skrip BÃasa Lite -#- Ronà Tua -#- http://www.picauly.f2s.com/ -#- v1.01c #
n1=;---/sBiasa.access.v2.lists <norm> <level> <myspoken_mode> <target/window> [number]---
n2=;---Ex: /sBiasa.access.v2.lists norm 100 -eld -a---
n3=;---Ex: /sBiasa.access.v2.lists norm avoice -eld @Info 2-5---
n4=;---Ex: /sBiasa.access.v2.lists norm avoice -nl Roni -5---
n5=;---/sBiasa.access.v2.check <mask>---
n6=;---University of North Sumatera---
n7=;---Medan---
n8=
n9=alias sBiasa.access.v2.checks { if ($isfile($fileaccess) != $true) { return }
n10= unset %sBiasa-access.v2.check.*
n11= if ($1 = maskrep) { if ($2) { var %sBiasa-access.v2.check.num = 0
n12= :sBIasa.access.v2.check
n13= set %sBiasa-access.v2.check.get $readini $fileaccess sBiasa_Access n [ $+ [ %sBiasa-access.v2.check.num ] ]
n14= if (%sBiasa-access.v2.check.get) { set %sBiasa-access.v2.check.level $gettok(%sBiasa-access.v2.check.get,1,58)
n15= set %sBiasa-access.v2.check.mask $gettok(%sBiasa-access.v2.check.get,2,58)
n16= if (%sBiasa-access.v2.check.mask iswm $2) {
n17= if (%sBiasa-access.v2.check.level = akick) && (%sBiasa-access.v2.check.maskrep == $null) { set -u0 %sBiasa-access.v2.check.maskrep %sBiasa-access.v2.check.mask }
n18= if (%sBiasa-access.v2.check.match == $null) { set -u0 %sBiasa-access.v2.check.match %sBiasa-access.v2.check.level }
n19= else { set -u0 %sBiasa-access.v2.check.match %sBiasa-access.v2.check.match %sBiasa-access.v2.check.level }
n20= }
n21= inc %sBiasa-access.v2.check.num 1
n22= goto sBIasa.access.v2.check
n23= }
n24= unset %sBiasa-access.v2.check.get %sBiasa-access.v2.check.level %sBiasa-access.v2.check.mask
n25= return %sBiasa-access.v2.check.maskrep %sBiasa-access.v2.check.match
n26= } }
n27= elseif ($1 = norm) { if ($2 != $null) { var %sBiasa-access.v2.check.num = 0
n28= :sBIasa.access.v2.check
n29= set %sBiasa-access.v2.check.get $readini $fileaccess sBiasa_Access n [ $+ [ %sBiasa-access.v2.check.num ] ]
n30= if (%sBiasa-access.v2.check.get) { set %sBiasa-access.v2.check.level $gettok(%sBiasa-access.v2.check.get,1,58)
n31= set %sBiasa-access.v2.check.mask $gettok(%sBiasa-access.v2.check.get,2,58)
n32= if (%sBiasa-access.v2.check.mask iswm $2) {
n33= if (%sBiasa-access.v2.check.match == $null) { set -u0 %sBiasa-access.v2.check.match %sBiasa-access.v2.check.level }
n34= else { set -u0 %sBiasa-access.v2.check.match %sBiasa-access.v2.check.match %sBiasa-access.v2.check.level }
n35= }
n36= inc %sBiasa-access.v2.check.num 1 | goto sBIasa.access.v2.check
n37= }
n38= unset %sBiasa-access.v2.check.get %sBiasa-access.v2.check.level %sBiasa-access.v2.check.mask
n39= return %sBiasa-access.v2.check.match
n40=} } }
n41=alias sBiasa.access.v2.checkaig {
n42= if ($1 == $null) || ($3 == $null) || ($4 == $null) { return }
n43= elseif (($1 == ChanServ) || ($1 == NickServ) || ($1 == StatServ) || ($1 == OperServ)) && (*.Undernet !iswm $4) && (*.efnet.net !iswm $4) { return }
n44= elseif (($1 == X) || ($1 == W)) && (*.Undernet.org iswm $4) { return }
n45= elseif ($exists($fileaccess) != $true) { return }
n46= unset %sBiasa-access.v2.checkaig.*
n47= var %sBiasa-access.v2.checkaig.num = 0
n48= :sBiasa.access.v2.checkaig
n49= set %sBiasa-access.v2.checkaig.get $readini $fileaccess sBiasa_access_aignore n [ $+ [ %sBiasa-access.v2.checkaig.num ] ]
n50= if (%sBiasa-access.v2.checkaig.get) {
n51= set %sBiasa-access.v2.checkaig.level $gettok(%sBiasa-access.v2.checkaig.get,1,58)
n52= set %sBiasa-access.v2.checkaig.mask $gettok(%sBiasa-access.v2.checkaig.get,2,58)
n53= if (%sBiasa-access.v2.checkaig.mask iswm $3) {
n54= .ignore -u3600 %sBiasa-access.v2.checkaig.mask
n55= set %sBiasa-aignore.mask %sBiasa-aignore.mask %sBiasa-access.v2.checkaig.mask
n56= myspoken -eld -a $+ $colour(Info) *** AutoIgnoring: $sBiasa.censoring(%sBiasa-access.v2.checkaig.mask) $+ $colour(Info) $+ (temporary 1 hour) Type: /aignore remlast to unignoring the last ignored. Usage: /Cmd ACCESS Aignore LIST and: /Cmd ACCESS Aignore DEL <nick or mask or number of list>
n57= unset %sBiasa-access.v2.checkaig.*
n58= haltdef
n59= }
n60= inc %sBiasa-access.v2.checkaig.num 1
n61= goto sBiasa.access.v2.checkaig
n62= unset %sBiasa-access.v2.checkaig.*
n63= }
n64= unset %sBiasa-access.v2.checkaig.*
n65=}
n66=alias sBiasa.access.v2.fullkan { if ($1) { unset %sBiasa-access.v2.fullkan.*
n67= set -u0 %sBiasa-access.v2.fullkan.nick $iif($gettok($1,1,33), $gettok($1,1,33), *)
n68= if ($gettok($1,0,33) == 2) { set -u0 %sBiasa-access.v2.fullkan.ident $iif($gettok($gettok($1,1,64),2,33), $gettok($gettok($1,1,64),2,33), *) }
n69= else { set -u0 %sBiasa-access.v2.fullkan.ident * }
n70= if ($gettok($1,0,64) == 2) { set -u0 %sBiasa-access.v2.fullkan.host $iif($gettok($1,2,64), $gettok($1,2,64), *) }
n71= else { set -u0 %sBiasa-access.v2.fullkan.host * }
n72= return %sBiasa-access.v2.fullkan.nick $+ ! $+ %sBiasa-access.v2.fullkan.ident $+ @ $+ %sBiasa-access.v2.fullkan.host
n73= unset %sBiasa-access.v2.fullkan.*
n74=} }
n75=alias aignore { if ($1 = remlast) && ($2 == $null) {
n76= if (%sBiasa-aignore.mask == $null) { myspoken -eld -a $+ $colour(Info) *** There's nothing to be unignored. }
n77= else { .ignore -r $gettok(%sBiasa-aignore.mask,$gettok(%sBiasa-aignore.mask,0,32),32)
n78= myspoken -eld -a $+ $colour(Info) $+ *** UnIgnoring: $sBiasa.censoring($gettok(%sBiasa-aignore.mask,$gettok(%sBiasa-aignore.mask,0,32),32)) $+ $colour(Info) $+ as unignoring the last ignored from AutoIgnoring. Usage: /Cmd ACCESS Aignore LIST and: /Cmd ACCESS Aignore DEL <nick or mask or number of list>
n79= set %sBiasa-aignore.mask $deltok(%sBiasa-aignore.mask,$gettok(%sBiasa-aignore.mask,0,32),32)
n80=} } }
n81=alias sBiasa.access.v2.lists { if ($left($3,2) = -e) { linesep $$4 }
n82= if ($1 = norm) { if ($2 != $null) { unset %sBiasa-access.v2.list.*
n83= if ($5 != $null) { if ($chr(45) isin $5) && ($len($5) > 1) { set %sBiasa-access.v2.list.isnum $$5
n84= if ($gettok($5,1,45) < $gettok($5,2,45)) { set %sBiasa-access.v2.list.isnum.add (Number $gettok(%sBiasa-access.v2.list.isnum,1,45) to $gettok(%sBiasa-access.v2.list.isnum,2,45) $+ ) }
n85= elseif ($gettok($5,1,45) == $gettok($5,2,45)) { set %sBiasa-access.v2.list.isnum.add (Number $iif($gettok($5,1,45) != $null, $gettok($5,1,45), $gettok($5,2,45)) $+ ) }
n86= elseif ($gettok($5,1,45) == $null) || ($gettok($5,2,45) == $null) {
n87= if ($left($5,1) = $chr(45)) {
n88= if ($5 = -1) { set %sBiasa-access.v2.list.isnum.add (Just the first) }
n89= else { set %sBiasa-access.v2.list.isnum.add (From the first to $gettok(%sBiasa-access.v2.list.isnum,1,45) $+ ) }
n90= }
n91= else { set %sBiasa-access.v2.list.isnum.add (Number $gettok(%sBiasa-access.v2.list.isnum,1,45) to the end) }
n92= } }
n93= elseif ($5 isnum 1-9999) { set %sBiasa-access.v2.list.isnum $$5 | set %sBiasa-access.v2.list.isnum.add (Number $$5 $+ ) }
n94= }
n95= myspoken $3 $$4 List of $+ $2 $+ access: %sBiasa-access.v2.list.isnum.add
n96= var %sBiasa-access.v2.list.num = 0, %sBiasa-access.v2.list.count = 0, %sBiasa-access.v2.list.isnum.count = 0
n97= :sBIasa.access.v2.list
n98= set %sBiasa-access.v2.list.get $readini $fileaccess sBiasa_Access n [ $+ [ %sBiasa-access.v2.list.num ] ]
n99= if (%sBiasa-access.v2.list.get) {
n100= set %sBiasa-access.v2.list.level $gettok(%sBiasa-access.v2.list.get,1,58)
n101= set %sBiasa-access.v2.list.mask $gettok(%sBiasa-access.v2.list.get,2,58)
n102= if (%sBiasa-access.v2.list.level iswm $2) {
n103= inc %sBiasa-access.v2.list.count 1
n104= if (%sBiasa-access.v2.list.isnum.add) {
n105= if (%sBiasa-access.v2.list.count isnum %sBiasa-access.v2.list.isnum) {
n106= myspoken $3 $4 $+ %sBiasa-access.v2.list.count $+ - $sBiasa.censoring(%sBiasa-access.v2.list.mask)
n107= inc %sBiasa-access.v2.list.isnum.count 1
n108= } }
n109= else { myspoken $3 $$4 $+ %sBiasa-access.v2.list.count $+ - $sBiasa.censoring(%sBiasa-access.v2.list.mask) }
n110= }
n111= inc %sBiasa-access.v2.list.num 1
n112= goto sBIasa.access.v2.list
n113= }
n114= if (%sBiasa-access.v2.list.isnum.add) {
n115= if (%sBiasa-access.v2.list.isnum.count == 0) { myspoken $3 $$4 -Not found. }
n116= myspoken $3 $$4 * End of $+ $2 $+ access list. $+ %sBiasa-access.v2.list.isnum.count $+ of $+ %sBiasa-access.v2.list.count $+ access were found.
n117= }
n118= else { myspoken $3 $$4 * End of $+ $2 $+ access list. $+ %sBiasa-access.v2.list.count $+ access were found. }
n119= if ($left($3,2) = -e) { linesep $$4 }
n120= unset %sBiasa-access.v2.list.*
n121=} } }
n122=alias sBiasa.access.v2.add { if ($left($3,2) = -e) { linesep $$4 }
n123= if ($2 != $null) { if ($1 = 200) || ($1 = 100) || ($1 = akick) || ($1 = aignore) || ($1 = avoice) || ($1 = 300) {
n124= if ($left($3,2) = -e) { myspoken $$3- Try to adding $+ $sBiasa.censoring($$2) $+ to $+ $1 $+ access list... }
n125= unset %sBiasa-access.v2.add.*
n126= var %sBiasa-access.v2.add.tmp.num = 1
n127= while (%sBiasa-access.v2.add.tmp.num < 7) {
n128= set %sBiasa-access.v2.add.tmp.file $fileaccesstmp [ $+ [ %sBiasa-access.v2.add.tmp.num ] ]
n129= if ($exists(%sBiasa-access.v2.add.tmp.file)) { .remove %sBiasa-access.v2.add.tmp.file }
n130= inc %sBiasa-access.v2.add.tmp.num 1
n131= }
n132= set %sBiasa-access.v2.add.tmp 300 200 100 akick aignore avoice
n133= var %sBiasa-access.v2.add.num = 0, %sBiasa-access.v2.add.count = 0
n134= :sBiasa.access.v2.add
n135= set %sBiasa-access.v2.add.get $readini $fileaccess sBiasa_Access n [ $+ [ %sBiasa-access.v2.add.num ] ]
n136= if (%sBiasa-access.v2.add.get) {
n137= set %sBiasa-access.v2.add.level $gettok(%sBiasa-access.v2.add.get,1,58)
n138= set %sBiasa-access.v2.add.mask $gettok(%sBiasa-access.v2.add.get,2,58)
n139= var %sBiasa-access.v2.add.level.chk = 1
n140= while (%sBiasa-access.v2.add.level.chk < 7) {
n141= if (%sBiasa-access.v2.add.level = $gettok(%sBiasa-access.v2.add.tmp,%sBiasa-access.v2.add.level.chk,32)) {
n142= set %sBiasa-access.v2.add.level.file $fileaccesstmp [ $+ [ %sBiasa-access.v2.add.level.chk ] ]
n143= .write %sBiasa-access.v2.add.level.file %sBiasa-access.v2.add.level $+ : $+ %sBiasa-access.v2.add.mask
n144= }
n145= inc %sBiasa-access.v2.add.level.chk 1
n146= }
n147= inc %sBiasa-access.v2.add.num 1
n148= goto sBIasa.access.v2.add
n149= }
n150= set %sBiasa-access.v2.add.start.new $1 $+ : $+ $sBiasa.access.v2.fullkan($$2)
n151= var %sBiasa-access.v2.add.start.chk = 1
n152= while (%sBiasa-access.v2.add.start.chk < 7) {
n153= if ($1 = $gettok(%sBiasa-access.v2.add.tmp,%sBiasa-access.v2.add.start.chk,32)) {
n154= set %sBiasa-access.v2.add.start.file $fileaccesstmp [ $+ [ %sBiasa-access.v2.add.start.chk ] ]
n155= if ($exists(%sBiasa-access.v2.add.start.file) != $true) { goto sBiasa.access.v2.add.start.chk.do }
n156= var %sBiasa-access.v2.add.start.chk.first.num = 1
n157= :sBiasa.access.v2.add.start.chk.first
n158= set %sBiasa-access.v2.add.start.chk.first.num2 -l $+ %sBiasa-access.v2.add.start.chk.first.num
n159= set %sBiasa-access.v2.add.start.chk.first.read $read %sBiasa-access.v2.add.start.chk.first.num2 %sBiasa-access.v2.add.start.file
n160= if (%sBiasa-access.v2.add.start.chk.first.read) {
n161= inc %sBiasa-access.v2.add.count.num 1
n162= if (%sBiasa-access.v2.add.start.chk.first.read = %sBiasa-access.v2.add.start.new) {
n163= myspoken $$3- Already! Level: $+ $gettok(%sBiasa-access.v2.add.start.chk.first.read,1,58) $+ Mask: $+ $sBiasa.censoring($gettok(%sBiasa-access.v2.add.start.chk.first.read,2,58)) $+ At number: $+ %sBiasa-access.v2.add.count.num $+
n164= set %sBiasa-access.v2.add.start.chk.result Already!
n165= }
n166= inc %sBiasa-access.v2.add.start.chk.first.num 1
n167= goto sBiasa.access.v2.add.start.chk.first
n168= }
n169= :sBiasa.access.v2.add.start.chk.do
n170= if (%sBiasa-access.v2.add.start.chk.result == $null) {
n171= .write %sBiasa-access.v2.add.start.file %sBiasa-access.v2.add.start.new
n172= inc %sBiasa-access.v2.add.count.num 1
n173= myspoken $$3- Adding.. Level: $+ $1 $+ Mask: $+ $sBiasa.censoring($sBiasa.access.v2.fullkan($$2)) $+ At number: $+ %sBiasa-access.v2.add.count.num $+
n174= } }
n175= inc %sBiasa-access.v2.add.start.chk 1
n176= }
n177= if ($exists($fileaccess)) { .remini $fileaccess sBiasa_access | .remini $fileaccess sBiasa_access_aignore }
n178= var %sBiasa-access.v2.add.balikin.chk = 1, %sBiasa-access.v2.add.balikin.count = 0, %sBiasa-access.v2.add.balikin.aignore = 0
n179= while (%sBiasa-access.v2.add.balikin.chk < 7) {
n180= set %sBiasa-access.v2.add.balikin.file $fileaccesstmp [ $+ [ %sBiasa-access.v2.add.balikin.chk ] ]
n181= var %sBiasa-access.v2.add.balikin.src.num = 1
n182= :sBiasa.access.v2.add.balikin.src
n183= var %sBiasa-access.v2.add.balikin.src.num2 -l $+ %sBiasa-access.v2.add.balikin.src.num
n184= if ($exists(%sBiasa-access.v2.add.balikin.file)) { set %sBiasa-access.v2.add.balikin.src $read %sBiasa-access.v2.add.balikin.src.num2 %sBiasa-access.v2.add.balikin.file }
n185= else { %sBiasa-access.v2.add.balikin.src }
n186= if (%sBiasa-access.v2.add.balikin.src) {
n187= if (%sBiasa-access.v2.add.balikin.chk == 5) {
n188= .writeini $fileaccess sBiasa_access_aignore n [ $+ [ %sBiasa-access.v2.add.balikin.aignore ] ] %sBiasa-access.v2.add.balikin.src
n189= inc %sBiasa-access.v2.add.balikin.aignore 1
n190= }
n191= .writeini $fileaccess sBiasa_Access n [ $+ [ %sBiasa-access.v2.add.balikin.count ] ] %sBiasa-access.v2.add.balikin.src
n192= inc %sBiasa-access.v2.add.balikin.count 1
n193= inc %sBiasa-access.v2.add.balikin.src.num 1
n194= goto sBiasa.access.v2.add.balikin.src
n195= }
n196= inc %sBiasa-access.v2.add.balikin.chk 1
n197= }
n198= var %sBiasa-access.v2.add.deltmp.chk = 1
n199= while (%sBiasa-access.v2.add.deltmp.chk < 7) {
n200= set %sBiasa-access.v2.add.deltmp.file $fileaccesstmp [ $+ [ %sBiasa-access.v2.add.deltmp.chk ] ]
n201= if ($exists(%sBiasa-access.v2.add.deltmp.file)) { .remove %sBiasa-access.v2.add.deltmp.file }
n202= inc %sBiasa-access.v2.add.deltmp.chk 1
n203= }
n204= if ($left($3,2) = -e) { myspoken $$3- * You have $+ %sBiasa-access.v2.add.count.num $+ access of $+ $1 $+ access list now. | linesep $$4 }
n205= unset %sBiasa-access.v2.add.*
n206=} } }
n207=alias sBiasa.access.v2.del { if ($left($3,2) = -e) { linesep $$4 }
n208= if ($2 != $null) {
n209= if ($1 = 200) || ($1 = 100) || ($1 = akick) || ($1 = aignore) || ($1 = avoice) || ($1 = 300) {
n210= unset %sBiasa-access.v2.del.*
n211= set %sBiasa-access.v2.del.want $1 $+ : $+ $sBiasa.access.v2.fullkan($$2)
n212= if ($chr(45) isin $2) && ($len($2) > 1) { set %sBiasa-access.v2.del.isnum $$2
n213= if ($gettok($2,1,45) < $gettok($2,2,45)) { set %sBiasa-access.v2.del.isnum.del From Number $gettok(%sBiasa-access.v2.del.isnum,1,45) to number $gettok(%sBiasa-access.v2.del.isnum,2,45) }
n214= elseif ($gettok($2,1,45) == $gettok($2,2,45)) { set %sBiasa-access.v2.del.isnum.del Number $iif($gettok($2,1,45) != $null, $gettok($2,1,45), $gettok($2,2,45)) }
n215= elseif ($gettok($2,1,45) == $null) || ($gettok($2,2,45) == $null) {
n216= if ($left($2,1) = $chr(45)) {
n217= if ($2 = -1) { set %sBiasa-access.v2.del.isnum.del Just the first }
n218= else { set %sBiasa-access.v2.del.isnum.del From the first to number $gettok(%sBiasa-access.v2.del.isnum,1,45) }
n219= }
n220= else { set %sBiasa-access.v2.del.isnum.del From Number $gettok(%sBiasa-access.v2.del.isnum,1,45) to the end }
n221= } }
n222= elseif ($2 isnum 1-9999) { set %sBiasa-access.v2.del.isnum $$2 | set %sBiasa-access.v2.del.isnum.del Number $$2 }
n223= if ($left($3,2) = -e) {
n224= if (%sBiasa-access.v2.del.isnum.del != $null) { myspoken $$3- Try to removing $+ %sBiasa-access.v2.del.isnum.del $+ from $+ $1 $+ access list... }
n225= else { myspoken $$3- Try to removing $+ $sBiasa.censoring($sBiasa.access.v2.fullkan($$2)) $+ from $+ $1 $+ access list... }
n226= }
n227= var %sBiasa-access.v2.del.tmp.num = 1
n228= while (%sBiasa-access.v2.del.tmp.num < 7) {
n229= set %sBiasa-access.v2.del.tmp.file $fileaccesstmp [ $+ [ %sBiasa-access.v2.del.tmp.num ] ]
n230= if ($exists(%sBiasa-access.v2.del.tmp.file)) { .remove %sBiasa-access.v2.del.tmp.file }
n231= inc %sBiasa-access.v2.del.tmp.num 1
n232= }
n233= set %sBiasa-access.v2.del.tmp 300 200 100 akick aignore avoice
n234= var %sBiasa-access.v2.del.num = 0, %sBiasa-access.v2.del.count = 0
n235= :sBiasa.access.v2.del
n236= set %sBiasa-access.v2.del.get $readini $fileaccess sBiasa_Access n [ $+ [ %sBiasa-access.v2.del.num ] ]
n237= if (%sBiasa-access.v2.del.get) {
n238= set %sBiasa-access.v2.del.level $gettok(%sBiasa-access.v2.del.get,1,58)
n239= set %sBiasa-access.v2.del.mask $gettok(%sBiasa-access.v2.del.get,2,58)
n240= var %sBiasa-access.v2.del.level.chk = 1
n241= while (%sBiasa-access.v2.del.level.chk < 7) {
n242= if (%sBiasa-access.v2.del.level = $gettok(%sBiasa-access.v2.del.tmp,%sBiasa-access.v2.del.level.chk,32)) {
n243= if (%sBiasa-access.v2.del.level = $1) { inc %sBiasa-access.v2.del.count.now 1 }
n244= if (%sBiasa-access.v2.del.level = $1) && (%sBiasa-access.v2.del.isnum.del != $null) && (%sBiasa-access.v2.del.count.now isnum %sBiasa-access.v2.del.isnum) {
n245= inc %sBiasa-access.v2.del.count 1
n246= myspoken $3 $$4 Removing.. Level: $+ %sBiasa-access.v2.del.level $+ Mask: $+ $sBiasa.censoring(%sBiasa-access.v2.del.mask) $+ From number: $+ %sBiasa-access.v2.del.count.now $+ Del number: $+ %sBiasa-access.v2.del.count $+
n247= }
n248= elseif (%sBiasa-access.v2.del.get = %sBiasa-access.v2.del.want) {
n249= inc %sBiasa-access.v2.del.count 1
n250= myspoken $3 $$4 Removing.. Level: $+ %sBiasa-access.v2.del.level $+ Mask: $+ $sBiasa.censoring(%sBiasa-access.v2.del.mask) $+ From number: $+ %sBiasa-access.v2.del.count.now $+ Del number: $+ %sBiasa-access.v2.del.count $+
n251= }
n252= else {
n253= set %sBiasa-access.v2.del.level.file $fileaccesstmp [ $+ [ %sBiasa-access.v2.del.level.chk ] ]
n254= .write %sBiasa-access.v2.del.level.file %sBiasa-access.v2.del.level $+ : $+ %sBiasa-access.v2.del.mask
n255= } }
n256= inc %sBiasa-access.v2.del.level.chk 1
n257= }
n258= inc %sBiasa-access.v2.del.num 1
n259= goto sBIasa.access.v2.del
n260= }
n261= if ($exists($fileaccess)) { .remini $fileaccess sBiasa_access | .remini $fileaccess sBiasa_access_aignore }
n262= var %sBiasa-access.v2.del.balikin.chk = 1, %sBiasa-access.v2.del.balikin.count = 0, %sBiasa-access.v2.del.balikin.aignore = 0
n263= while (%sBiasa-access.v2.del.balikin.chk < 7) {
n264= set %sBiasa-access.v2.del.balikin.file $fileaccesstmp [ $+ [ %sBiasa-access.v2.del.balikin.chk ] ]
n265= var %sBiasa-access.v2.del.balikin.src.num = 1
n266= :sBiasa.access.v2.del.balikin.src
n267= var %sBiasa-access.v2.del.balikin.src.num2 -l $+ %sBiasa-access.v2.del.balikin.src.num
n268= if ($exists(%sBiasa-access.v2.del.balikin.file)) { set %sBiasa-access.v2.del.balikin.src $read %sBiasa-access.v2.del.balikin.src.num2 %sBiasa-access.v2.del.balikin.file }
n269= else { unset %sBiasa-access.v2.del.balikin.src }
n270= if (%sBiasa-access.v2.del.balikin.src != $null) {
n271= if (%sBiasa-access.v2.del.balikin.chk == 5) {
n272= .writeini $fileaccess sBiasa_access_aignore n [ $+ [ %sBiasa-access.v2.del.balikin.aignore ] ] %sBiasa-access.v2.del.balikin.src
n273= inc %sBiasa-access.v2.del.balikin.aignore 1
n274= }
n275= .writeini $fileaccess sBiasa_Access n [ $+ [ %sBiasa-access.v2.del.balikin.count ] ] %sBiasa-access.v2.del.balikin.src
n276= inc %sBiasa-access.v2.del.balikin.count 1
n277= inc %sBiasa-access.v2.del.balikin.src.num 1
n278= goto sBiasa.access.v2.del.balikin.src
n279= }
n280= inc %sBiasa-access.v2.del.balikin.chk 1
n281= }
n282= var %sBiasa-access.v2.del.deltmp.chk = 1
n283= while (%sBiasa-access.v2.del.deltmp.chk < 7) {
n284= set %sBiasa-access.v2.del.deltmp.file $fileaccesstmp [ $+ [ %sBiasa-access.v2.del.deltmp.chk ] ]
n285= if ($exists(%sBiasa-access.v2.del.deltmp.file)) { .remove %sBiasa-access.v2.del.deltmp.file }
n286= inc %sBiasa-access.v2.del.deltmp.chk 1
n287= }
n288= if (%sBiasa-access.v2.del.count >= 1) { if ($left($3,2) = -e) { myspoken $3 $$4 Successfully removed: $+ %sBiasa-access.v2.del.count $+ access from $+ $1 $+ access list. } }
n289= else { myspoken $$3- -Not found in $+ $1 $+ access list. }
n290= if ($left($3,2) = -e) { myspoken $3 $$4 * You have $+ $calc(%sBiasa-access.v2.del.count.now - %sBiasa-access.v2.del.count) $+ access in $+ $1 $+ access list now. | linesep $$4 }
n291= unset %sBiasa-access.v2.del.*
n292=} } }
n293=alias sBiasa.censoring { set -u3 %sBiasa-analize $analize | set -u3 %sBiasa-analizetmp $analize | return $replace($$1-,sexy,s4*x0y,sex,s4*x,fuck,f4*c0*,shit,sh4*t,suck,s4*c0*,nude,n4*d4*,sucx,s4*c0*,horny,h4*r0*4*,bitch,b4*t0*h) }
n294=alias sBiasa.censoringbw { set -u3 %sBiasa-analize $analize | set -u3 %sBiasa-analizetmp $analize | return $replace($$1-,sexy,s*x*,sex,s*x,fuck,f*c*,shit,sh*t,suck,s*c*,nude,n*d*,sucx,s*cx) }
n295=alias sBiasa.access.v2.check { linesep -a | unset %sBiasa-access.v2.checka.* | set -u0 %sBiasa-access.v2.checka.mask $sBiasa.access.v2.fullkan($$1) | set -u0 %sBiasa-access.v2.checka.level $sBiasa.access.v2.checks(norm,%sBiasa-access.v2.checka.mask) | set -u0 %sBiasa-access.v2.checka.level $replacecs($replacecs($replacecs(%sBiasa-access.v2.checka.level,$chr(32),._),.,$chr(44)),_,$chr(32)) | myspoken -eld -a Access of $+ %sBiasa-access.v2.checka.mask $+ is $+ $iif(%sBiasa-access.v2.checka.level != $null, %sBiasa-access.v2.checka.level, Nothing) $+ . | linesep -a }