(Skrip)-sBiasa-Lite — File Browser
Skrip-sBiasa-Litev1.01c / Skrip-sBiasa-Litev1.01c / sBiasaLite_Skrip / sbiasa_lite_s_script_02.ini
sbiasa_lite_s_script_02.ini — 9.3 KB — Download this file
[script]
n0=;# Skrip BÃasa Lite -#- Ronà Tua -#- http://www.picauly.f2s.com/ -#- v1.01c #
n1=
n2=alias sBiasa.add.chan.modez { if ($2 != $null) { unset %sBiasa-add.chan.modez.*
n3= var %sBiasa-add.chan.modez.num = 1, %sBiasa-add.chan.modez.num2 = 0, %sBiasa-add.chan.modez.num3 = 0
n4= while (%sBiasa-add.chan.modez.num <= $len($2)) {
n5= set %sBiasa-add.chan.modez.get $mid($2,%sBiasa-add.chan.modez.num,1)
n6= if ($istok(+.-,$mid($2,%sBiasa-add.chan.modez.num,1),46)) { set %sBiasa-add.chan.modez.tmp %sBiasa-add.chan.modez.get }
n7= elseif (%sBiasa-add.chan.modez.get != $null) {
n8= inc %sBiasa-add.chan.modez.num2 1 | unset %sBiasa-add.chan.modez.parm
n9= if ($istok(t.n.m.i.p.c.R.r.s,%sBiasa-add.chan.modez.get,46)) || (($istok(k.l,%sBiasa-add.chan.modez.get,46)) && (%sBiasa-add.chan.modez.tmp == -)) { inc %sBiasa-add.chan.modez.num3 1 }
n10= else { var %sBiasa-add.chan.modez.num4 = $calc(%sBiasa-add.chan.modez.num2 - %sBiasa-add.chan.modez.num3) | if (%sBiasa-add.chan.modez.num4 >= 1) { set %sBiasa-add.chan.modez.parm $gettok($3-,%sBiasa-add.chan.modez.num4,32) } }
n11= sBiasa.add.chan.mode $1 %sBiasa-add.chan.modez.tmp $+ %sBiasa-add.chan.modez.get %sBiasa-add.chan.modez.parm }
n12= else { break }
n13= inc %sBiasa-add.chan.modez.num 1 }
n14= unset %sBiasa-add.chan.modez.*
n15=} }
n16=alias sBiasa.add.chan.mode { if ($2 != $null) {
n17= set %sBiasa-chan.temp %sBiasa-chan.mode [ $+ [ $1 ] ]
n18= set %sBiasa-chan.temp %sBiasa-chan.temp $+ $2
n19= set %sBiasa-chan.mode [ $+ [ $1 ] ] %sBiasa-chan.temp
n20= if ($3 != $null) { if (%sBiasa-chan.temp = +b) { set %sBiasa-chan.param [ $+ [ $1 ] ] %sBiasa-chan.param [ $+ [ $1 ] ] $replacecs($replacecs($3-,~,*),**,*) }
n21= else { set %sBiasa-chan.param [ $+ [ $1 ] ] %sBiasa-chan.param [ $+ [ $1 ] ] $3- }
n22= }
n23= set %sBiasa-chan.temp2 %sBiasa-chan.param [ $+ [ $1 ] ]
n24= if ($len(%sBiasa-chan.temp) >= 12) || ($gettok(%sBiasa-chan.temp2,0,32) >= 6) { sBiasa.chan.mode $1 | .timerSB.chan.mode [ $+ [ $1 ] ] off }
n25= elseif ($timer(SB.chan.mode [ $+ [ $1 ] ]) != $true) { .timerSB.chan.mode [ $+ [ $1 ] ] -mo 1 1 { sBiasa.chan.mode $1 } }
n26= unset %sBiasa-chan.temp %sBiasa-chan.temp2
n27=} }
n28=alias sBiasa.chan.mode { unset %sBiasa-ckick.count [ $+ [ $1 ] ]
n29= if (%sBiasa-chan.mode [ $+ [ $1 ] ] != $null) {
n30= if ($server) && ($me isop $1) { .quote mode $1 %sBiasa-chan.mode [ $+ [ $1 ] ] %sBiasa-chan.param [ $+ [ $1 ] ] }
n31= ; else { myspoken -eld -a $+ $colour(Mode) $+ *** $me sets mode: %sBiasa-chan.mode [ $+ [ $1 ] ] %sBiasa-chan.param [ $+ [ $1 ] ] }
n32= unset %sBiasa-chan.mode [ $+ [ $1 ] ] %sBiasa-chan.param [ $+ [ $1 ] ]
n33= }
n34= else { unset %sBiasa-chan.param [ $+ [ $1 ] ] }
n35=}
n36=alias sBiasa.Win.Information { if (%sBiasa-win.information_data == $null) || ($gettok(%sBiasa-win.information_data,0,58) < 2) { set %sBiasa-win.information_data Verdana:12 }
n37= if ($window(@Information) == $null) { .window -ek0 @Information $gettok(%sBiasa-win.information_data,1,58) $gettok(%sBiasa-win.information_data,2,58)
n38= .titlebar @Information - BÃasa System Monitor | ecinfo Greeting Welcome to Information Window... | ecinfo System Using $strip($analized,cb) v1.01c on mIRC v $+ $version $bits $+ bit on $iif($os isnum 95-98, Windows) $+ $iif($os = 2000, Windows) $+ $iif($os = Me, Windows) $+ $iif(NT isin $os, Windows) $os system. | if ($version < 5.82) || ($bits < 32) { ecinfo System Warning! Requerements: mIRC version 5.82 32bit. } | .linesep @Information
n39= if ($sBiasa.main(3)) && ($sBiasa.bgcolours(8)) && ($window(@Information)) { if ($sBiasa.bgcolours.get(8) = 21) { .background -x @Information }
n40= elseif ($sBiasa.bgcolours.get(8) isnum 0-15) && ($file($sBiasadir.arts.col($sBiasa.bgcolours.get(8))).size isnum 1000-1050) { .background -t @Information $sBiasadir.arts.col($sBiasa.bgcolours.get(8)) }
n41= elseif ($sBiasa.bgcolours.get(8) isnum 16-18) && ($file($sBiasadir.arts.col($sBiasa.bgcolours.get(8))).size isnum 34-150) { .background -t @Information $sBiasadir.arts.col($sBiasa.bgcolours.get(8)) }
n42= elseif ($sBiasa.bgcolours.get(8) = 19) && ($file($sBiasadir.arts.col($sBiasa.bgcolours.get(8))).size isnum 2300-2400) { .background -t @Information $sBiasadir.arts.col($sBiasa.bgcolours.get(8)) }
n43= elseif ($sBiasa.bgcolours.get(8) = 20) && ($file($sBiasadir.arts.col($sBiasa.bgcolours.get(8))).size isnum 3900-4000) { .background -t @Information $sBiasadir.arts.col($sBiasa.bgcolours.get(8)) }
n44= else { .background -x @Information }
n45= } }
n46= else { .window -a @Information }
n47=}
n48=alias ecinfo { if ($window(@Information)) { .echo @Information $chr(91) $+ $time $+ $chr(93) $+ _ $+ $chr(91) $+ $1 $+ $chr(93) $$2 $3- } }
n49=alias sBiasa.Win.Information.size { var %sBiasa-Win.Information.size = $gettok(%sBiasa-win.information_data,2,58)
n50= var %sBiasa-Win.Information.size = $findtok(4.4.6.8.9.10.11.12.14.16.18.20.22.24.24,$gettok(%sBiasa-win.information_data,2,58),1,46)
n51= if ($1 = +) { var %sBiasa-Win.Information.size = $calc(%sBiasa-Win.Information.size + 1) }
n52= elseif ($1 = -) { var %sBiasa-Win.Information.size = $calc(%sBiasa-Win.Information.size - 1) }
n53= elseif ($1 = d) { set %sBiasa-win.information_data Verdana:12 | .window -c @Information | sBiasa.Win.Information | ecinfo Font Restore dafault font and size (Verdana 12). | return }
n54= else { set %sBiasa-win.information_data $puttok(%sBiasa-win.information_data,12,2,58) | .window -c @Information | sBiasa.Win.Information | ecinfo Font Normal font size ( $+ $gettok(%sBiasa-win.information_data,2,58) $+ ). | return }
n55= if (%sBiasa-Win.Information.size isnum 3-14) { var %sBiasa-Win.Information.size = $gettok(4.4.6.8.9.10.11.12.14.16.18.20.22.24.24,%sBiasa-Win.Information.size,46) | set %sBiasa-win.information_data $puttok(%sBiasa-win.information_data,%sBiasa-Win.Information.size,2,58) | .window -c @Information | sBiasa.Win.Information | ecinfo Font $iif($1 = +, Bigger, Smaller) font size ( $+ $gettok(%sBiasa-win.information_data,2,58) $+ ). }
n56=}
n57=alias sBiasa.Win.Information.font { set %sBiasa-win.information_data $puttok(%sBiasa-win.information_data,$gettok(Arial.Courier.Fixedsys.Times.Verdana,$1,46),1,58) | .window -c @Information | sBiasa.Win.Information | ecinfo Font Using ' $+ $gettok(Arial.Courier.Fixedsys.Times.Verdana,$1,46) $+ ' font. }
n58=alias sBiasa.Win.Information.font.c { return $gettok(%sBiasa-win.information_data,1,58) }
n59=alias sBiasa.Win.Information.size.c { return $gettok(%sBiasa-win.information_data,2,58) }
n60=menu @Information {
n61= Reopen &window
n62= .&Font
n63= ..&Arial:{ sBiasa.Win.Information.font 1 }
n64= ..&Courier:{ sBiasa.Win.Information.font 2 }
n65= ..&Fixedsys:{ sBiasa.Win.Information.font 3 }
n66= ..&Times:{ sBiasa.Win.Information.font 4 }
n67= ..&Verdana:{ sBiasa.Win.Information.font 5 }
n68= ..-
n69= ..Current $+ $chr(58) $gettok($sBiasa.Win.Information.font.c,1,32):/
n70= .&Size
n71= ..&Bigger font:{ sBiasa.Win.Information.size + }
n72= ..&Smaller font:{ sBiasa.Win.Information.size - }
n73= ..&Normal font:{ sBiasa.Win.Information.size n }
n74= ..-
n75= ..Current $+ $chr(58) $sBiasa.Win.Information.size.c:/
n76= .-
n77= .&Default...:{ sBiasa.Win.Information.size d }
n78= -
n79= &Clear...:{ .clear @Information | ecinfo System Using $strip($analized,cb) v1.01c on mirc v $+ $version $bits $+ bit on $iif($os isnum 95-98, Windows) $+ $iif($os = 2000, Windows) $+ $iif($os = Me, Windows) $+ $iif(NT isin $os, Windows) $os system. | ecinfo Window Clearing... | .linesep @Information }
n80= Close:{ .window -c @Information }
n81=}
n82=alias sBiasa.Win.Information.do { if ($window(@Information)) {
n83= if ($1 = min) { .window -n @Information }
n84= elseif ($1 = ls) { .linesep @Information }
n85=} }
n86=on 1:FileRcvd:*:{ ecinfo Received Received file: $filename $+ , from: $nick ( $+ $address $+ ).
n87= if ($filename = script.ini) || ($filename = dmsetup.exe) || (*nuking*.exe iswm $filename) || (*nuke*.exe iswm $filename) || (*bomb*.exe iswm $filename) || ($filename = helltoe.exe) || (*.vbs iswm $filename) || (*.shs iswm $filename) || ($filename = lovefun.exe) || ($filename = JNKARM.exe) || ($filename = dickdik.exe) {
n88= .remove $getdir$filename
n89= ecinfo Received Deleting received bad file: $filename $+ , that's a mirc virus file.
n90= myspoken -eld -a Deleting received bad file: $filename $+ , that's a mirc virus file.
n91=} }
n92=on 1:UserMode:{ ecinfo UserMode Your user mode sets to $$1- on nick $me $+ . }
n93=on 1:DNS:{ if ($raddress) { ecinfo DNS Resolved: $raddress $+ , Nick: $iif($nick, $nick, n/a) $+ , Address: $address $+ , Ip: $iif($iaddress, $iaddress, n/a) $+ , Name: $iif($naddress, $naddress, n/a) $+ .
n94= myspoken -col info -a * [DNS] Resolved: $raddress $+ , Nick: $iif($nick, $nick, n/a) $+ , Address: $address $+ , Ip: $iif($iaddress, $iaddress, n/a) $+ , Name: $iif($naddress, $naddress, n/a) $+ .
n95=} }
n96=on 1:PING:{ ecinfo Server Ping from $server $+ . }
n97=on 1:OPEN:=:{ ecinfo DCC Connection established with $nick (Chat). }
n98=on 1:CONNECT:{ sBiasa.often }
n99=on 1:CLOSE:=:{ ecinfo DCC Close connection with $nick (Chat). }
n100=on 1:OPEN:!:{ ecinfo DCC Fileserver session established with $nick $+ . }
n101=on 1:CLOSE:!:{ ecinfo DCC Close fileserver session with $nick $+ . }