Browse: (Skrip)-sBiasa-Lite

(Skrip)-sBiasa-Lite — File Browser

Skrip-sBiasa-Litev1.01c / Skrip-sBiasa-Litev1.01c / sBiasaLite_Skrip / sbiasa_lite_s_prot_chan_01.ini
sbiasa_lite_s_prot_chan_01.ini — 30.73 KB — Download this file
[script]
n0=;# Skrip Bíasa Lite -#- Roní Tua -#- http://www.picauly.f2s.com/ -#- v1.01c #
n1=;-----If you turn on all the channel protections, you should set the IAL on.-----
n2=;-----mIRC maintains an internal address list of all users -----
n3=;-----who are currently on the same channels as you.-----
n4=;-----Note: Maintaining the integrity of the internal address list requires -----
n5=;-----quite a bit of processing. For people with faster computers this won't -----
n6=;-----make a difference but for others this might slow down IRCing -----
n7=;-----quite a bit if you are on several channels with lots of people with -----
n8=;-----many messages, modes, joins, parts, etc. mIRC has to keep checking it's -----
n9=;-----internal list to make sure it is updated correctly.-----
n10=;-----Usage: /ial [on|off] or: /clearial to clear the Internal Address List.-----
n11=;-----IAL needs by addressing (addressnick/$address(nick,N)/$ial(chan,N)/$banmask(chan,N)) in some case.-----
n12=
n13=on @^1:JOIN:#:{
n14=  if ($sBiasa.main(6)) { sBiasa.extnicklist.nick # $nick }
n15=  if ($sBiasa.main(11)) && ($sBiasa.prot.ischan($chan)) && ($nick != $me) {
n16=    if ($sBiasa.prot.ch(25)) { inc %jfldp [ $+ [ $wildsite ] $+ [ $chan ] ] 1
n17=      .timerjfldp [ $+ [ $wildsite ] $+ [ $chan ] ] -o 1 10 { unset %jfldp [ $+ [ $wildsite ] $+ [ $chan ] ] }
n18=      if (%jfldp [ $+ [ $wildsite ] $+ [ $chan ] ] > $gettok(%sBiasa-joinflood_data,1,58)) {
n19=        sBiasa.add.chan.mode $chan +b $wildsite
n20=        ckick $chan $nick Banned: join flood
n21=        unset %jfldp [ $+ [ $wildsite ] $+ [ $chan ] ]
n22=        .timerubadd2 [ $+ [ $chan ] $+ [ $wildsite ] ] -o 1 $gettok(%sBiasa-joinflood_data,2,58) { ubmask $chan $wildsite }
n23=        inc -u60 %sBiasa-chkchanFld [ $+ [ $chan ] ] 1
n24=        if (%sBiasa-chkchanFld [ $+ [ $chan ] ] >= 5) { unset %sBiasa-chkchanFld [ $+ [ $chan ] ] | sBiasa.lockchannel flood $chan }
n25=    } }
n26=    if ($sBiasa.prot.ch(27)) && ($ial) { var %sBiasa-jumlahklon = $ialchan($wildsite,$chan,0)
n27=      if (%sBiasa-jumlahklon >= $gettok(%sBiasa-jumlahklon_data,1,58)) {
n28=        sBiasa.add.chan.mode $chan +b $wildsite
n29=        .timerubadd2 [ $+ [ $chan ] $+ [ $wildsite ] ] -o 1 $gettok(%sBiasa-jumlahklon_data,2,58) { ubmask $chan $wildsite }
n30=        :sBiasa.jumlahklon.kicknext
n31=        if ($gettok($ialchan($wildsite,$chan,%sBiasa-jumlahklon),1,33) != $me) { ckick $chan $gettok($ialchan($wildsite,$chan,%sBiasa-jumlahklon),1,33) Banned: Too many clones from your hostname! }
n32=        dec %sBiasa-jumlahklon 1 | if (%sBiasa-jumlahklon > 0) { goto sBiasa.jumlahklon.kicknext }
n33=    } }
n34=    if ($sBiasa.prot.ch(26)) { inc %jfldi [ $+ [ $sBiasa.get.ident2($fulladdress) ] $+ [ $chan ] ] 1
n35=      .timerjfldi [ $+ [ $sBiasa.get.ident2($fulladdress) ] $+ [ $chan ] ] -o 1 10 { unset %jfldp [ $+ [ $sBiasa.get.ident2($fulladdress) ] $+ [ $chan ] ] }
n36=      if (%jfldi [ $+ [ $sBiasa.get.ident2($fulladdress) ] $+ [ $chan ] ] > $gettok(%sBiasa-joinflood_data,1,58)) {
n37=        sBiasa.add.chan.mode $chan +b *!* $+ $sBiasa.get.ident2($fulladdress) $+ *@*
n38=        ckick $chan $nick Banned: join flood
n39=        unset %jfldi [ $+ [ $wildsite ] $+ [ $chan ] ]
n40=        .timerubadd2 [ $+ [ $chan ] $+ [ *!* $+ $sBiasa.get.ident2($fulladdress) $+ *@* ] ] -o 1 $gettok(%sBiasa-joinflood_data,2,58) { ubmask $chan *!* $+ $sBiasa.get.ident2($fulladdress) $+ *@* }
n41=        inc -u60 %sBiasa-chkchanFld [ $+ [ $chan ] ] 1
n42=        if (%sBiasa-chkchanFld [ $+ [ $chan ] ] >= 3) { unset %sBiasa-chkchanFld [ $+ [ $chan ] ] | sBiasa.lockchannel flood $chan }
n43=    } }
n44=    if ($sBiasa.prot.ch(46)) { var %sBiasa-prot.ch.join.num = 1
n45=      while (%sBiasa-prot.ch.join.num < 3) { if ($gettok(Guest.Tamu,%sBiasa-prot.ch.join.num,46) $+ * iswm $nick) {
n46=          sBiasa.add.chan.mode $chan +b $gettok(Guest.Tamu,%sBiasa-prot.ch.join.num,46) $+ *!*@*
n47=          ckick $chan $nick Banned: No Guest/Tamu nick in here. Please rejoin with a new good nick!
n48=          .timerubnick [ $+ [ $chan ] $+ [ $gettok(Guest.Tamu,%sBiasa-prot.ch.join.num,46) $+ *!*@* ] ] -o 1 %sBiasa-stdbanneduser_data { ubmask $chan $gettok(Guest.Tamu,%sBiasa-prot.ch.join.num,46) $+ *!*@* }
n49=        }
n50=        inc %sBiasa-prot.ch.join.num 1
n51=    } }
n52=    if ($sBiasa.prot.ch(42)) || ($sBiasa.prot.ch(43)) || ($sBiasa.prot.ch(44)) { var %sBiasa-bdwrd.chan.check.num = 1
n53=      set -u0 %sBiasa-prot.bdwrd M<V5X('-E:W,@<S-X(',S:W,@9G5C:R!S:&ET('-U8VL@<W5C>"!K;VYT;VP@M:W5N='5L(&YG96YT;W0@:V5N=&]T('9A9VEN82!D=6)U<B!H;W)N>2!N9V%CM=6YG(&YG86-E;F<@;F%P<W4@;F%F<W4@8FER86AI(&]R9V%S;2!P97!E:R!PM97!E>"!P87EU9&%R82!C;&ES=&]R:7,@<&5L97(@;65M96L@;65M97@@8G5RM:70@:F5M8G5T(&UA<W1U<F(@;31S='5R8B!O;F%N:2!O;C1N:2!O;F%N,2!OM;C1N,2!T;W1O;F<@;F]N;VYG('1U='5N9R!P86YT870@86YJ:6YG(&QE<V)IM(&LP;G1O;"!K;VYT,&P@:S!N=#!L('`S<&5K('!E<#-K('`S<#-K(&TS;65K,(&UE;3-K(&TS;3-K````
n54=      while (%sBiasa-bdwrd.chan.check.num <= $gettok($decode(%sBiasa-prot.bdwrd),0,32)) {
n55=        if ($sBiasa.prot.ch(42)) && ($gettok($decode(%sBiasa-prot.bdwrd),%sBiasa-bdwrd.chan.check.num,32) isin $nick) {
n56=          sBiasa.add.chan.mode $chan +b $nick $+ *!*@*
n57=          .timerubnick [ $+ [ $chan ] $+ [ $nick ] ] -o 1 $gettok(%sBiasa-stdbanneduser_data,1,58) { ubmask $chan $nick $+ *!*@* }
n58=          ckick $chan $nick Banned: bad nick detected..! | break
n59=        }
n60=        elseif ($sBiasa.prot.ch(43)) && ($gettok($decode(%sBiasa-prot.bdwrd),%sBiasa-bdwrd.chan.check.num,32) isin $sBiasa.get.ident($fulladdress)) {
n61=          sBiasa.add.chan.mode $chan +b *!* $+ $right($sBiasa.get.ident2($fulladdress),8) $+ *@*
n62=          .timerubident [ $+ [ $chan ] $+ [ $sBiasa.get.ident($fulladdress) ] ] -o 1 $gettok(%sBiasa-stdbanneduser_data,1,58) { ubmask $chan *!* $+ $right($sBiasa.get.ident2($fulladdress),8) $+ *@* }
n63=          ckick $chan $nick Banned: bad ident detected..! | break
n64=        }
n65=        elseif ($sBiasa.prot.ch(44)) && ($gettok($decode(%sBiasa-prot.bdwrd),%sBiasa-bdwrd.chan.check.num,32) isin $sBiasa.get.host($fulladdress)) {
n66=          sBiasa.add.chan.mode $chan +b $wildsite
n67=          .timerubnick [ $+ [ $chan ] $+ [ $wildsite ] ] -o 1 $gettok(%sBiasa-stdbanneduser_data,1,58) { ubmask $chan $wildsite }
n68=          ckick $chan $nick Banned: bad ip/host detected..! | break
n69=        }
n70=        inc %sBiasa-bdwrd.chan.check.num 1
n71=      }
n72=      unset %sBiasa-prot.bdwrd
n73=} } }
n74=on ^+1:TEXT:*:*:{ if ($chan) { if ($nick != $me) && ($sBiasa.main(11)) && ($sBiasa.prot.ischan($chan)) {
n75=      if ($me isop $chan) { sBiasa.prot.ch.check.text $chan $nick $fulladdress Text $$1- }
n76=      elseif ($me !isop $chan) && ($sBiasa.prot.ch(1) != $true) && ($len($1-) > 50) && (*????*????* iswm $1-) { sBiasa.biasa.underline.prot.int $chan $nick $fulladdress }
n77=  } }
n78=  else { if ($nick != $me) && ($sBiasa.main(10)) && ($sBiasa.prot.pv(1)) { inc -u5 %PpvTf [ $+ [ $wildsite ] ] 1
n79=      if ($sBiasa.prot.pv(22)) && ($len($1-) > 50) && (*????*????* iswm $1-) { .ignore -u [ $+ [ $iif($gettok(%sBiasa-Ppv.other_data,1,58),$gettok(%sBiasa-Ppv.other_data,1,58),0) ] ] $wildsite | ecinfo PrivateProtection Bíasa Underline text flood detected, ignoring: $wildsite from nick: $nick ( $+ $gettok($fulladdress,2-,33) $+ ) in $iif($gettok(%sBiasa-Ppv.other_data,1,58),$gettok(%sBiasa-Ppv.other_data,1,58),0) sec(s). | .closemsg $nick | halt }
n80=      if ($sBiasa.prot.pv(23)) && ($len($1-) > 99) {
n81=        set -u0 %sBiasa-floodtsunami ^^^ |@#$%| /*/*/*/0,4-*0,12-*0,4-*0,12-*  |F|L|O|O|D|| ]]]]]]]]]] %%%%%%%%%%%%%%%%%%%%%%% æææææææææææ 4,12llIIIIIIIIIIIIIIIIIIIIIIIII BlizztBlizzt 412,4eLite4,12eLite12,4eLite 57,8illus8,7ion7,8illus8,7ion7,8illus8,7ion 44,3f3,4L4,3o3,4o4,3D3,4 1,3,|¥@¶!#tmC#!¶$% ^^^^^ 5d12k6s7f9h5d12k11j6s
n82=        var %sBiasa-Ppv.tsnmfld.i = 1, %sBiasa-Ppv.tsnmfld.x = $gettok(%sBiasa-floodtsunami,0,32)
n83=        while (%sBiasa-Ppv.tsnmfld.i <= %sBiasa-Ppv.tsnmfld.x) {
n84=          if ($gettok(%sBiasa-floodtsunami,%sBiasa-Ppv.tsnmfld.i,32) isin $1-) { .ignore -u [ $+ [ $iif($gettok(%sBiasa-Ppv.other_data,2,58),$gettok(%sBiasa-Ppv.other_data,2,58),0) ] ] $wildsite | ecinfo PrivateProtection Tsunami text flood detected, ignoring: $wildsite from nick: $nick ( $+ $gettok($fulladdress,2-,33) $+ ) in $iif($gettok(%sBiasa-Ppv.other_data,2,58),$gettok(%sBiasa-Ppv.other_data,2,58),0) sec(s). | .closemsg $nick | halt }
n85=          inc %sBiasa-Ppv.tsnmfld.i 1
n86=      } }
n87=      if (%PpvTf [ $+ [ $wildsite ] ] >= $gettok(%sBiasa-Ppv.text_data,1,58)) {
n88=        .ignore -u [ $+ [ $iif($gettok(%sBiasa-Ppv.text_data,2,58),$gettok(%sBiasa-Ppv.text_data,2,58),0) ] ] $wildsite
n89=        if ($sBiasa.prot.pv(21)) { .timerPpvNotice [ $+ [ $nick ] ] 1 3 { myspoken -nl $nick You are ignored for $iif($gettok(%sBiasa-Ppv.text_data,2,58),$gettok(%sBiasa-Ppv.text_data,2,58),0) sec(s). Please don't send me too fast/much. } }
n90=      }
n91=      if ($sBiasa.prot.pv(2)) && ((/j isin $strip($1-)) || (join isin $strip($1-)) || (*#??* iswm $strip($1-)) || (come to $chr(35) isin $strip($1-))) { .closemsg $nick }
n92=      if ($sBiasa.prot.pv(3)) && (((http: isin $strip($1-)) || (ftp: isin $strip($1-)) || (www. isin $strip($1-)) || (ftp. isin $strip($1-)) || (.htm isin $strip($1-)) || (.shtm isin $strip($1-)) || ((.com isin $strip($1-)) && (@ !isin $strip($1-))) || ((.net isin $strip($1-)) && (@ !isin $strip($1-))) || ((.org isin $strip($1-)) && (@ !isin $strip($1-))) || (.mpg isin $strip($1-)))) { .closemsg $nick }
n93=      if ($sBiasa.prot.pv(4)) { var %sBiasa-Ppv.stdcnsr.i = 1, %sBiasa-Ppv.stdcnsr.x = $gettok($decode(%sBiasa-prot.bdwrd),0,32)
n94=        set -u0 %sBiasa-Ppv.stdcnsr.bdwrd M:V]N=&]L(&MU;G1U;"!N9V5N=&]T(&ME;G1O="!P97!E:R!P97!E>"!B=7)IM="!A;F%L<V5X(&%N86QS96MS(&]R86QS97@@;W)A;'-E:W,@9&]G9WES='ELM92!P=7-S>2!V86=I;F$@:71I;"!C;&ET(&-L:7-T;W)I<R!P=71I;F<@<&%NM=&%T('!A=&%T(&IA;F-U:R!J86YC;VL@;F=E<V5K<R!T;W1O;F<@;F]N;VYGM(&MO;F-E="!S97@@<VAI="!F=6-K('-U8VL@:&]R;GD@<S-X('-E:W-I('-H?,70@<W5C>"!N9V5S96L@87-U=2!A;FII;F<@8F%B
n95=        while (%sBiasa-Ppv.stdcnsr.i <= %sBiasa-Ppv.stdcnsr.x) {
n96=          if ($gettok($decode(%sBiasa-Ppv.stdcnsr.bdwrd),%sBiasa-Ppv.stdcnsr.i,32) isin $strip($1-)) {
n97=            if ($window($nick)) { .echo $nick  $+ $colour(normal) $+ < $+ $nick $+ > $replace($$1-,a,*,e,*,i,*,o,*,u,*,1,*,2,*,3,*,4,*,5,*,6,*,7,*,8,*,9,*,0,*) | halt }
n98=            else { .echo -a  $+ $colour(normal) $+ < $+ $nick $+ > $replace($$1-,a,*,e,*,i,*,o,*,u,*,1,*,2,*,3,*,4,*,5,*,6,*,7,*,8,*,9,*,0,*) | halt }
n99=          }
n100=          inc %sBiasa-Ppv.stdcnsr.i 1
n101=        }
n102=        unset %sBiasa-Ppv.stdcnsr.bdwrd
n103=    } }
n104=    if ($away) && ($sBiasa.away(3)) {
n105=      var %sBiasa-away.logging.i = $ini($filelogging,$nick,0)
n106=      if (%sBiasa-away.logging.i == $null) || (%sBiasa-away.logging.i < 1) { var %sBiasa-away.logging.i = 0 }
n107=      .writeini -n $filelogging $nick n [ $+ [ %sBiasa-away.logging.i ] ] $ctime $gettok($fulladdress,2-,33)  $+ $colour(normal) $+ < $+ $nick $+ > $1-
n108=      if ($nick != $me) { .timerawaylogmsg [ $+ [ $nick ] ] 1 2 { myspoken -mld $nick $me is $sbiasa.away.text } }
n109=      elseif ($query($me)) { myspoken -eld $me * Auto Away Logging: Logged your self message. }
n110=      if ($mid(%sBiasa-away_data,4,2) == 11) { .closemsg $nick }
n111=      elseif ($mid(%sBiasa-away_data,4,1) != 1) { .timerclosemsg [ $+ [ $nick ] ] -o 1 $sBiasa.away.query { .closemsg $nick } }
n112=      sBiasa.away.log.update $nick
n113=  } }
n114=  if ($sBiasa.main(9)) && ($1 = !ping) {
n115=    if ($2 != $null) && ($2 = me) && ($1 = !ping) { inc -u10 %msgping.all 1 | if (%msgping.all < 4) { set -u600 %msgping [ $+ [ $nick ] ] $iif($chan, $chan, $nick) | myspoken -c $nick PING } }
n116=    elseif ($2 != $null) && ($2 != me) && ($1 = !ping) { inc -u10 %msgping.all 1 | if (%msgping.all < 4) { set -u600 %msgping [ $+ [ $$2 ] ] $iif($chan, $chan, $nick) | myspoken -c $$2 PING } }
n117=    else { myspoken -nl $nick To make a ping request, usage: !ping <me/nick/#chenel> }
n118=} }
n119=on ^+1:NOTICE:*:*:{ if ($nick = $me) || ($nick = $server) { return }
n120=  elseif (($nick = X) || ($nick = W)) && (*.Undernet.Org iswm $server) { return }
n121=  elseif (($nick = ChanServ) || ($nick = NickServ) || ($nick = MemoServ) || ($nick = OperServ) || ($nick = StatServ)) && (*.Undernet.org !iswm $server) && (*.efnet.net !iswm $server) { return }
n122=  if ($chan) { if ($sBiasa.main(11)) && ($sBiasa.prot.ischan($chan)) {
n123=      if ($me isop $chan) { sBiasa.prot.ch.check.text $chan $nick $fulladdress Notice $$1- }
n124=      elseif ($me !isop $chan) && ($sBiasa.prot.ch(1) != $true) && ($len($1-) > 50) && (*????*????* iswm $1-) { sBiasa.biasa.underline.prot.int $chan $nick $fulladdress }
n125=    }
n126=    sBiasa.access.v2.checkaig $nick $chan $fulladdress $server
n127=  }
n128=  else { sBiasa.access.v2.checkaig $nick $null $fulladdress $server
n129=    if ($sBiasa.main(10)) && ($sBiasa.prot.pv(11)) { inc -u5 %PpvNf [ $+ [ $wildsite ] ] 1
n130=      if ($sBiasa.prot.pv(22)) && ($len($1-) > 50) && (*????*????* iswm $1-) { .ignore -u [ $+ [ $iif($gettok(%sBiasa-Ppv.other_data,1,58),$gettok(%sBiasa-Ppv.other_data,1,58),0) ] ] $wildsite | ecinfo PrivateProtection Bíasa Underline text flood detected, ignoring: $wildsite from nick: $nick ( $+ $gettok($fulladdress,2-,33) $+ ) in $iif($gettok(%sBiasa-Ppv.other_data,1,58),$gettok(%sBiasa-Ppv.other_data,1,58),0) sec(s). | halt }
n131=      if ($sBiasa.prot.pv(23)) && ($len($1-) > 99) {
n132=        set -u0 %sBiasa-floodtsunami ^^^ |@#$%| /*/*/*/0,4-*0,12-*0,4-*0,12-*  |F|L|O|O|D|| ]]]]]]]]]] %%%%%%%%%%%%%%%%%%%%%%% æææææææææææ 4,12llIIIIIIIIIIIIIIIIIIIIIIIII BlizztBlizzt 412,4eLite4,12eLite12,4eLite 57,8illus8,7ion7,8illus8,7ion7,8illus8,7ion 44,3f3,4L4,3o3,4o4,3D3,4 1,3,|¥@¶!#tmC#!¶$% ^^^^^ 5d12k6s7f9h5d12k11j6s
n133=        var %sBiasa-Ppv.tsnmfld.i = 1, %sBiasa-Ppv.tsnmfld.x = $gettok(%sBiasa-floodtsunami,0,32)
n134=        while (%sBiasa-Ppv.tsnmfld.i <= %sBiasa-Ppv.tsnmfld.x) {
n135=          if ($gettok(%sBiasa-floodtsunami,%sBiasa-Ppv.tsnmfld.i,32) isin $1-) { .ignore -u [ $+ [ $iif($gettok(%sBiasa-Ppv.other_data,2,58),$gettok(%sBiasa-Ppv.other_data,2,58),0) ] ] $wildsite | ecinfo PrivateProtection Tsunami text flood detected, ignoring: $wildsite from nick: $nick ( $+ $gettok($fulladdress,2-,33) $+ ) in $iif($gettok(%sBiasa-Ppv.other_data,2,58),$gettok(%sBiasa-Ppv.other_data,2,58),0) sec(s). | halt }
n136=          inc %sBiasa-Ppv.tsnmfld.i 1
n137=      } }
n138=      if (%PpvNf [ $+ [ $wildsite ] ] >= $gettok(%sBiasa-Ppv.notice_data,1,58)) {
n139=        .ignore -u [ $+ [ $iif($gettok(%sBiasa-Ppv.notice_data,2,58),$gettok(%sBiasa-Ppv.notice_data,2,58),0) ] ] $wildsite
n140=        if ($sBiasa.prot.pv(21)) { .timerPpvNotice [ $+ [ $nick ] ] 1 3 { myspoken -nl $nick You are ignored for $iif($gettok(%sBiasa-Ppv.notice_data,2,58),$gettok(%sBiasa-Ppv.notice_data,2,58),0) sec(s). Please don't send me too fast/much. } }
n141=      }
n142=      if ($sBiasa.prot.pv(12)) { var %sBiasa-Ppv.stdcnsr.i = 1, %sBiasa-Ppv.stdcnsr.x = $gettok($decode(%sBiasa-prot.bdwrd),0,32)
n143=        set -u0 %sBiasa-Ppv.stdcnsr.bdwrd M:V]N=&]L(&MU;G1U;"!N9V5N=&]T(&ME;G1O="!P97!E:R!P97!E>"!B=7)IM="!A;F%L<V5X(&%N86QS96MS(&]R86QS97@@;W)A;'-E:W,@9&]G9WES='ELM92!P=7-S>2!V86=I;F$@:71I;"!C;&ET(&-L:7-T;W)I<R!P=71I;F<@<&%NM=&%T('!A=&%T(&IA;F-U:R!J86YC;VL@;F=E<V5K<R!T;W1O;F<@;F]N;VYGM(&MO;F-E="!S97@@<VAI="!F=6-K('-U8VL@:&]R;GD@<S-X('-E:W-I('-H?,70@<W5C>"!N9V5S96L@87-U=2!A;FII;F<@8F%B
n144=        while (%sBiasa-Ppv.stdcnsr.i <= %sBiasa-Ppv.stdcnsr.x) {
n145=          if ($gettok($decode(%sBiasa-Ppv.stdcnsr.bdwrd),%sBiasa-Ppv.stdcnsr.i,32) isin $strip($1-)) {
n146=            if ($window($nick)) { .echo $nick  $+ $colour(notice) $+ - $+ $nick $+ - $replace($$1-,a,*,e,*,i,*,o,*,u,*,1,*,2,*,3,*,4,*,5,*,6,*,7,*,8,*,9,*,0,*) | halt }
n147=            else { .echo -a  $+ $colour(notice) $+ - $+ $nick $+ - $replace($$1-,a,*,e,*,i,*,o,*,u,*,1,*,2,*,3,*,4,*,5,*,6,*,7,*,8,*,9,*,0,*) | halt }
n148=          }
n149=          inc %sBiasa-Ppv.stdcnsr.i 1
n150=        }
n151=        unset %sBiasa-Ppv.stdcnsr.bdwrd
n152=} } } }
n153=on ^+1:ACTION:*:*:{ if ($chan) { if ($nick != $me) && ($sBiasa.main(11)) && ($sBiasa.prot.ischan($chan)) {
n154=      if ($me isop $chan) { sBiasa.prot.ch.check.text $chan $nick $fulladdress Action $$1- }
n155=      elseif ($me !isop $chan) && ($sBiasa.prot.ch(1) != $true) && ($len($1-) > 50) && (*????*????* iswm $1-) { sBiasa.biasa.underline.prot.int $chan $nick $fulladdress }
n156=    }
n157=    if ($nick != $me) { sBiasa.access.v2.checkaig $nick $chan $fulladdress $server }
n158=  }
n159=  else { if ($nick != $me) { sBiasa.access.v2.checkaig $nick $null $fulladdress $server }
n160=    if ($nick != $me) && ($sBiasa.main(10)) && ($sBiasa.prot.pv(6)) { inc -u5 %PpvAf [ $+ [ $wildsite ] ] 1
n161=      if ($sBiasa.prot.pv(22)) && ($len($1-) > 50) && (*????*????* iswm $1-) { .ignore -u [ $+ [ $iif($gettok(%sBiasa-Ppv.other_data,1,58),$gettok(%sBiasa-Ppv.other_data,1,58),0) ] ] $wildsite | ecinfo PrivateProtection Bíasa Underline text flood detected, ignoring: $wildsite from nick: $nick ( $+ $gettok($fulladdress,2-,33) $+ ) in $iif($gettok(%sBiasa-Ppv.other_data,1,58),$gettok(%sBiasa-Ppv.other_data,1,58),0) sec(s). | .closemsg $nick | halt }
n162=      if ($sBiasa.prot.pv(23)) && ($len($1-) > 99) {
n163=        set -u0 %sBiasa-floodtsunami ^^^ |@#$%| /*/*/*/0,4-*0,12-*0,4-*0,12-*  |F|L|O|O|D|| ]]]]]]]]]] %%%%%%%%%%%%%%%%%%%%%%% æææææææææææ 4,12llIIIIIIIIIIIIIIIIIIIIIIIII BlizztBlizzt 412,4eLite4,12eLite12,4eLite 57,8illus8,7ion7,8illus8,7ion7,8illus8,7ion 44,3f3,4L4,3o3,4o4,3D3,4 1,3,|¥@¶!#tmC#!¶$% ^^^^^ 5d12k6s7f9h5d12k11j6s
n164=        var %sBiasa-Ppv.tsnmfld.i = 1, %sBiasa-Ppv.tsnmfld.x = $gettok(%sBiasa-floodtsunami,0,32)
n165=        while (%sBiasa-Ppv.tsnmfld.i <= %sBiasa-Ppv.tsnmfld.x) {
n166=          if ($gettok(%sBiasa-floodtsunami,%sBiasa-Ppv.tsnmfld.i,32) isin $1-) { .ignore -u [ $+ [ $iif($gettok(%sBiasa-Ppv.other_data,2,58),$gettok(%sBiasa-Ppv.other_data,2,58),0) ] ] $wildsite | ecinfo PrivateProtection Tsunami text flood detected, ignoring: $wildsite from nick: $nick ( $+ $gettok($fulladdress,2-,33) $+ ) in $iif($gettok(%sBiasa-Ppv.other_data,2,58),$gettok(%sBiasa-Ppv.other_data,2,58),0) sec(s). | .closemsg $nick | halt }
n167=          inc %sBiasa-Ppv.tsnmfld.i 1
n168=      } }
n169=      if (%PpvAf [ $+ [ $wildsite ] ] >= $gettok(%sBiasa-Ppv.action_data,1,58)) {
n170=        .ignore -u [ $+ [ $iif($gettok(%sBiasa-Ppv.action_data,2,58),$gettok(%sBiasa-Ppv.action_data,2,58),0) ] ] $wildsite
n171=        if ($sBiasa.prot.pv(21)) { .timerPpvNotice [ $+ [ $nick ] ] 1 3 { myspoken -nl $nick You are ignored for $iif($gettok(%sBiasa-Ppv.action_data,2,58),$gettok(%sBiasa-Ppv.action_data,2,58),0) sec(s). Please don't send me too fast/much. } }
n172=      }
n173=      if ($sBiasa.prot.pv(7)) && ((/j isin $strip($1-)) || (join isin $strip($1-)) || (*#??* iswm $strip($1-)) || (come to $chr(35) isin $strip($1-))) { .closemsg $nick | halt }
n174=      if ($sBiasa.prot.pv(8)) && (((http: isin $strip($1-)) || (ftp: isin $strip($1-)) || (www. isin $strip($1-)) || (ftp. isin $strip($1-)) || (.htm isin $strip($1-)) || (.shtm isin $strip($1-)) || ((.com isin $strip($1-)) && (@ !isin $strip($1-))) || ((.net isin $strip($1-)) && (@ !isin $strip($1-))) || ((.org isin $strip($1-)) && (@ !isin $strip($1-))) || (.mpg isin $strip($1-)))) { .closemsg $nick | halt }
n175=      if ($sBiasa.prot.pv(9)) { var %sBiasa-Ppv.stdcnsr.i = 1, %sBiasa-Ppv.stdcnsr.x = $gettok($decode(%sBiasa-prot.bdwrd),0,32)
n176=        set -u0 %sBiasa-Ppv.stdcnsr.bdwrd M:V]N=&]L(&MU;G1U;"!N9V5N=&]T(&ME;G1O="!P97!E:R!P97!E>"!B=7)IM="!A;F%L<V5X(&%N86QS96MS(&]R86QS97@@;W)A;'-E:W,@9&]G9WES='ELM92!P=7-S>2!V86=I;F$@:71I;"!C;&ET(&-L:7-T;W)I<R!P=71I;F<@<&%NM=&%T('!A=&%T(&IA;F-U:R!J86YC;VL@;F=E<V5K<R!T;W1O;F<@;F]N;VYGM(&MO;F-E="!S97@@<VAI="!F=6-K('-U8VL@:&]R;GD@<S-X('-E:W-I('-H?,70@<W5C>"!N9V5S96L@87-U=2!A;FII;F<@8F%B
n177=        while (%sBiasa-Ppv.stdcnsr.i <= %sBiasa-Ppv.stdcnsr.x) {
n178=          if ($gettok($decode(%sBiasa-Ppv.stdcnsr.bdwrd),%sBiasa-Ppv.stdcnsr.i,32) isin $strip($1-)) {
n179=            if ($window($nick)) { .echo $nick  $+ $colour(action) $+ * $nick $replace($$1-,a,*,e,*,i,*,o,*,u,*,1,*,2,*,3,*,4,*,5,*,6,*,7,*,8,*,9,*,0,*) | halt }
n180=            else { .echo -a  $+ $colour(action) $+ * $nick $replace($$1-,a,*,e,*,i,*,o,*,u,*,1,*,2,*,3,*,4,*,5,*,6,*,7,*,8,*,9,*,0,*) | halt }
n181=          }
n182=          inc %sBiasa-Ppv.stdcnsr.i 1
n183=        }
n184=        unset %sBiasa-Ppv.stdcnsr.bdwrd
n185=    } }
n186=    if ($away) && ($sBiasa.away(3)) {
n187=      var %sBiasa-away.logging.i = $ini($filelogging,$nick,0)
n188=      if (%sBiasa-away.logging.i == $null) || (%sBiasa-away.logging.i < 1) { var %sBiasa-away.logging.i = 0 }
n189=      .writeini -n $filelogging $nick n [ $+ [ %sBiasa-away.logging.i ] ] $ctime $gettok($fulladdress,2-,33)  $+ $colour(action) $+ * $nick $1-
n190=      .timerawaylogmsg [ $+ [ $nick ] ] 1 2 { myspoken -dld is $sbiasa.away.text }
n191=      if ($mid(%sBiasa-away_data,4,2) == 11) { .closemsg $nick }
n192=      elseif ($mid(%sBiasa-away_data,4,1) != 1) { .timerclosemsg [ $+ [ $nick ] ] -o 1 $sBiasa.away.query { .closemsg $nick } }
n193=      sBiasa.away.log.update $nick
n194=} } }
n195=on @^1:BAN:#:{ if ($sBiasa.main(11)) && ($sBiasa.prot.ischan($chan)) {
n196=    if ($ial) { inc %banlistchan [ $+ [ $chan ] ] 1
n197=      if (*.efnet.net iswm $server) && (%banlistchan [ $+ [ $chan ] ] >= 20) { lockchannel fullban $chan }
n198=      elseif (*.dal.net iswm $server) && ($nick != $me) && (%banlistchan [ $+ [ $chan ] ] >= 45) { lockchannel fullban $chan }
n199=      elseif (*.Undernet.Org iswm $server) && ($nick != $me) && (%banlistchan [ $+ [ $chan ] ] >= 30) { lockchannel fullban $chan }
n200=    }
n201=    if ($sBiasa.prot.ch(23)) && ($nick != $me) && ($chan != #SkripBiasa) {
n202=      inc %Massban [ $+ [ $chan ] $+ [ $nick ] ] 1
n203=      .timerMassban -o 1 3 { unset %Massban [ $+ [ $chan ] $+ [ $nick ] ] }
n204=      if (%Massban [ $+ [ $chan ] $+ [ $nick ] ] > $gettok(%sBiasa-masslimit_data,3,58)) {
n205=        unset %Massban [ $+ [ $chan ] $+ [ $nick ] ]
n206=        if (($nick = X) || ($nick = W)) && (*.undernet.org iswm $server) {   }
n207=        elseif (($nick = OperServ) || ($nick = ChanServ)) && (*.efnet.net !iswm $server) {   }
n208=        else { ckick $chan $nick Mass-ban!! }
n209=    } }
n210=    if ($sBiasa.prot.ch(34)) { set -u0 %AutoUnban2Mask.temp.timer2 AUb2Mdo [ $+ [ $chan ] ]
n211=      if ($timer(%AutoUnban2Mask.temp.timer2) == $null) {
n212=        .timer [ $+ [ %AutoUnban2Mask.temp.timer2 ] ] -o 1 $gettok(%sBiasa-AutoUnban2Masklength_data,1,58) { sBiasa.AutoUnban2Mask.do.chan $chan }
n213=      }
n214=      unset %AutoUnban2Mask.temp.timer2
n215=    }
n216=    if ($sBiasa.prot.ch(30)) {
n217=      if ($banmask = *!*@*) && ($sBiasa.is.serv.chan($nick) != $true) { sBiasa.add.chan.mode $chan -b $banmask }
n218=      elseif ($bnick = $me) { sBiasa.add.chan.modez $chan -bb $banmask $bnick
n219=        if ($sBiasa.prot.ch(31)) { if ($nick != $me) && ($nick != Roni) && ($nick != lukisan) {
n220=            sBiasa.add.chan.mode $chan -o $nick
n221=            if ($sBiasa.prot.ch(33)) { sBiasa.add.chan.mode $chan +b $mask($fulladdress,3) }
n222=            elseif ($sBiasa.prot.ch(32)) { sBiasa.add.chan.mode $chan +b $mask($fulladdress,3)
n223=              .timerubadd3 [ $+ [ $chan ] $+ [ $mask($fulladdress,3) ] ] -o 1 %sBiasa-banprot_data { ubmask $chan $mask($fulladdress,3) }
n224=            }
n225=            ckick $chan $nick Please no bans me!!
n226=      } } }
n227=      elseif ($banmask iswm $address($me,5)) { sBiasa.add.chan.mode $chan -b $banmask
n228=        if ($sBiasa.prot.ch(31)) { if ($nick != $me) && ($nick != Roni) && ($nick != lukisan) {
n229=            sBiasa.add.chan.mode $chan -o $nick
n230=            if ($sBiasa.prot.ch(33)) { sBiasa.add.chan.mode $chan +b $mask($fulladdress,3) }
n231=            elseif ($sBiasa.prot.ch(32)) { sBiasa.add.chan.mode $chan +b $mask($fulladdress,3)
n232=              .timerubadd3 [ $+ [ $chan ] $+ [ $mask($fulladdress,3) ] ] -o 1 %sBiasa-banprot_data { ubmask $chan $mask($fulladdress,3) }
n233=            }
n234=            ckick $chan $nick Please no bans about me!!
n235=    } } } }
n236=    if ($sBiasa.prot.ch(28)) { if ($banmask != *!*@*) && ($bnick != $me) && ($banmask !iswm $address($me,5)) && ($banmask != *!*@*.*) && ($banmask != *!*@*.*.*) && ($banmask != *!*@*.*.*.*) && ($chan != #SkripBiasa) {
n237=        if ($bnick ison $chan) { if ($sBiasa.prot.ch(29)) && ($nick isop $chan) {   } | else { ckick $chan $bnick You are banned } }
n238=        elseif ($banmask) { var %sebbannedi = $nick($chan,0)
n239=          :enforcerbanloop
n240=          set -u0 %sebbannednick $nick($chan,%sebbannedi) | set -u0 %sebbannedadres $address(%sebbannednick,5)
n241=          if ($version >= 5.8) && (%sebbannedadres isban $chan) && (%sebbannednick != $me) {
n242=            if (%sebbannednick != Roni) && (%sebbannednick != Rontu) && (%sebbannednick != lukisan) && (%sebbannednick != CmdServ) && (%sebbannednick != laba-laba) {
n243=              if ($sBiasa.prot.ch(29)) && ($nick isop $chan) {   }
n244=              else { ckick $chan %sebbannednick Your address are banned }
n245=          } }
n246=          elseif ($version < 5.8) && ($banmask iswm %sebbannedadres) && (%sebbannednick != $me) {
n247=            if (%sebbannednick != Roni) && (%sebbannednick != Rontu) && (%sebbannednick != lukisan) && (%sebbannednick != CmdServ) && (%sebbannednick != laba-laba) {
n248=              if ($sBiasa.prot.ch(29)) && (%sebbannednick isop $chan) {   }
n249=              else { ckick $chan %sebbannednick Your address are banned }
n250=          } }
n251=          dec %sebbannedi 1
n252=          if (%sebbannedi > 0) { goto enforcerbanloop }
n253=        }
n254=        unset %sebbannednick %sebbannedadres
n255=} } } }
n256=on @1:KICK:#:{
n257=  if (((($nick = ChanServ) || ($nick = OperServ)) && (*.Undernet.Org !iswm $server) && (*.efnet.net !iswm $server))) || ($chan = #SkripBiasa) {   }
n258=  elseif (($nick = X) || ($nick = W)) && (*.Undernet.Org iswm $server) {   }
n259=  elseif ($sBiasa.main(11)) && ($sBiasa.prot.ischan($chan)) {
n260=    if ($knick != $me) && ($ial) && ($sBiasa.prot.ch(35)) && ($address($knick,2)) {
n261=      inc -u60 %kickip [ $+ [ $chan ] $+ [ $address($knick,2) ] ] 1
n262=      if (%kickip [ $+ [ $chan ] $+ [ $address($knick,2) ] ] >= $gettok(%sBiasa-kickbanwildsite_data,1,58)) {
n263=        set -u0 %sBiasa-kickip.wildsite $address($knick,2)
n264=        if (%sBiasa-kickip.wildsite == $null) { unset %sBiasa-kickip.* | return }
n265=        sBiasa.add.chan.mode $chan +b %sBiasa-kickip.wildsite
n266=        .timerubadd2 [ $+ [ $chan ] $+ [ %sBiasa-kickip.wildsite ] ] -o 1 $gettok(%sBiasa-kickbanwildsite_data,2,58) { ubmask $chan %sBiasa-kickip.wildsite }
n267=        var %sBiasa-kickip.channum = $nick($chan,0)
n268=        :sBiasa.kickip.search
n269=        set -u0 %sBiasa-kickip.srcnick $nick($chan,%sBiasa-kickip.channum)
n270=        set -u0 %sBiasa-kickip.fullsite $address(%sBiasa-kickip.srcnick,5)
n271=        if (%sBiasa-kickip.wildsite iswm %sBiasa-kickip.fullsite) && (%sBiasa-kickip.srcnick != $me) {
n272=          if (%sBiasa-kickip.srcnick = Roni) || (%sBiasa-kickip.srcnick = Rontu) || (%sBiasa-kickip.srcnick = CmdServ) || (%sBiasa-kickip.srcnick = lukisan) {   }
n273=          else { ckick $chan %sBiasa-kickip.srcnick Banned: Get out now! }
n274=        }
n275=        dec %sBiasa-kickip.channum 1
n276=        if (%sBiasa-kickip.channum > 0) { goto sBiasa.kickip.search }
n277=        unset %sBiasa-kickip.* %kickip [ $+ [ $chan ] $+ [ %sBiasa-kickip.wildsite ] ]
n278=    } }
n279=    if ($nick != $me) && ($sBiasa.prot.ch(21)) {
n280=      inc %kickmodelbt [ $+ [ $chan ] $+ [ $nick ] ] 1
n281=      .timerkickmodelbt -o 1 3 { unset %kickmodelbt [ $+ [ $chan ] $+ [ $nick ] ] }
n282=      if (%kickmodelbt [ $+ [ $chan ] $+ [ $nick ] ] > $gettok(%sBiasa-masslimit_data,1,58)) {
n283=        unset %kickmodelbt [ $+ [ $chan ] $+ [ $nick ] ]
n284=        ckick $chan $nick Mass-kick! Go sit in the corner...
n285=} } } }
n286=on +1:NICK:{
n287=  if ($sBiasa.main(11)) { inc %DefTFTN [ $+ [ $wildsite ] ]
n288=    .timerusFldNick [ $+ [ $wildsite ] ] -o 1 3 { unset %DefTFTN [ $+ [ $wildsite ] ] }
n289=    if (%DefTFTN [ $+ [ $wildsite ] ] >= $gettok(%sBiasa-FloodNick_data,2,58)) {
n290=      var %sBiasa-channickfloodnum = $chan(0)
n291=      :sBiasa.rdeffloodnloop
n292=      set -u0 %sBiasa-channickfloodchan $chan(%sBiasa-channickfloodnum)
n293=      if ($sBiasa.prot.ischan(%sBiasa-channickfloodchan)) && ($newnick ison %sBiasa-channickfloodchan) {
n294=        if ($me isop %sBiasa-channickfloodchan) {
n295=          if (%DefFTNban [ $+ [ $wildsite ] ] == $null) {
n296=            sBiasa.add.chan.mode %sBiasa-channickfloodchan +b $wildsite
n297=            unset %DefTFTN [ $+ [ $wildsite ] ]
n298=          }
n299=          ckick %sBiasa-channickfloodchan $newnick Banned: nick flood
n300=          .timerubadd2 [ $+ [ %sBiasa-channickfloodchan ] $+ [ $wildsite ] ] -o 1 $gettok(%sBiasa-FloodNick_data,3,58) { ubmask %sBiasa-channickfloodchan $wildsite }
n301=          inc -u60 %sBiasa-chkchanFld [ $+ [ $chan ] ] 1
n302=          if (%sBiasa-chkchanFld [ $+ [ $chan ] ] >= 5) { unset %sBiasa-chkchanFld [ $+ [ $chan ] ] | lockchannel flood $chan }
n303=        }
n304=        dec %sBiasa-channickfloodnum 1
n305=        if (%sBiasa-channickfloodnum > 0) { goto sBiasa.rdeffloodnloop }
n306=      }
n307=      unset %sBiasa-channickfloodchan %sBiasa-channickfloodnum
n308=    }
n309=    elseif (%DefTFTN [ $+ [ $wildsite ] ] >= $gettok(%sBiasa-FloodNick_data,1,58)) {
n310=      var %sBiasa-channickfloodnum2 = $chan(0)
n311=      :sBiasa.rdeffloodnloop2
n312=      set -u0 %sBiasa-channickfloodchan2 $chan(%sBiasa-channickfloodnum2)
n313=      if ($nick ison %sBiasa-channickfloodchan2) {
n314=        ckick %sBiasa-channickfloodchan2 $newnick Nick flood
n315=        dec %sBiasa-channickfloodnum2 1
n316=        if (%sBiasa-channickfloodnum2 > 0) { goto sBiasa.rdeffloodnloop2 }
n317=      }
n318=      unset %sBiasa-channickfloodchan2 %sBiasa-channickfloodnum2
n319=} } }