[script] n0=;# Skrip Bíasa Lite -#- Roní Tua -#- http://www.picauly.f2s.com/ -#- v1.01c # n1= n2=raw 402:*:{ myspoken -ei -a No such server:  $+ $2 $+  | halt } n3=raw 403:*:{ myspoken -ei -a No such channel:  $+ $2 $+  | halt } n4=raw 405:*:{ myspoken -ei -a Cannot join:  $+ $2 $+  (you have joined too many channels) | halt } n5=raw 406:*:{ myspoken -ei -a Cannot whowas:  $+ $2 $+  (there was no such nickname) | halt } n6=raw 407:*:{ myspoken -ei -a Too many targets:  $+ $2 $+  (duplicate recipients, no message delivered) | halt } n7=raw 412:*:{ myspoken -ei -a No text to send. | halt } n8=raw 421:*:{ if ($2 != ) { myspoken -ei -a Unknown command:  $+ $2 $+  | halt } } n9=raw 422:*:{ myspoken -ei -a Server's MOTD file could not be opened by the server. | halt } n10=raw 423:*:{ myspoken -ei -a No administrative info available from server  $+ $2 $+ . | halt } n11=raw 431:*:{ myspoken -ei -a No nickname given. Please set your nickname by /nick  command or maybe you must make a different nickname. halt } n12=raw 432:*:{ myspoken -ei -a Erroneus nickname:  $+ $2 $+  (you can't use that nickname on this server) | halt } n13=raw 433:*:{ myspoken -ei -a Cannot use nickname:  $+ $2 $+  (nickname is already in use) | halt } n14=raw 436:*:{ myspoken -ei -a Nickname collision KILL:  $+ $2 $+  (registered of a NICK that already exists by another server) | halt } n15=raw 437:*:{ myspoken -ei -a Cannot change nickname while banned on channel or in moderate channel:  $+ $2 $+  | halt } n16=raw 438:*:{ myspoken -ei -a Nick change too fast. | halt } n17=raw 439:*:{ myspoken -ei -a Targer change too fast. | halt } n18=raw 440:*:{ myspoken -ei -a Please wait, the services is currently down. ( $+ $2 $+ ) | halt } n19=raw 441:*:{ myspoken -ei -a User nick:  $+ $2 $+ , they aren't on channel:  $+ $3 $+ . | halt } n20=raw 442:*:{ myspoken -ei -a You're not on that channel:  $+ $2 $+  (perform a channel effecting command for which the client isn't a member) | halt } n21=raw 443:*:{ myspoken -ei -a User nick:  $+ $2 $+  is already on channel:  $+ $3 $+ . | halt } n22=raw 444:*:{ myspoken -ei -a User nick:  $+ $2 $+  (not logged in) | halt } n23=raw 445:*:{ myspoken -ei -a SUMMON has been disabled. | halt } n24=raw 446:*:{ myspoken -ei -a USER has been disabled. | halt } n25=raw 451:*:{ myspoken -ei -a You have not registered. (must be registered before the server will allow it to be parsed in detail) | halt } n26=raw 461:*:{ myspoken -ei -a Command:  $+ $2 $+  (not enough parameters, need more parameters) | halt } n27=raw 462:*:{ myspoken -ei -a You may not register. (already registered) | halt } n28=raw 463:*:{ myspoken -ei -a Your host isn't among the privileged. | halt } n29=raw 464:*:{ myspoken -ei -a Password incorrect. | halt } n30=raw 465:*:{ myspoken -ei -a You are banned from this server. (maybe k-lined) | halt } n31=raw 467:*:{ myspoken -ei -a Channel:  $+ $2 $+  (channel key already set) | halt } n32=raw 468:*:{ myspoken -ei -a Cannot change mode: r (only servers can change that mode) | halt } n33=raw 471:*:{ myspoken -ei -a Cannot join channel:  $+ $2 $+  (channel list is full, sets mode: +limit) | halt } n34=raw 472:*:{ myspoken -ei -a Character mode:  $+ $2 $+  (is unknown mode char to server) | halt } n35=raw 473:*:{ myspoken -ei -a Cannot join channel:  $+ $2 $+  (invite only chan, sets mode: +invite) | halt } n36=raw 474:*:{ myspoken -ei -a Cannot join channel:  $+ $2 $+  (address is banned, sets mode: +ban) | halt } n37=raw 475:*:{ myspoken -ei -a Cannot join channel:  $+ $2 $+  (bad channel key, sets mode: +key) | halt } n38=raw 476:*:{ myspoken -ei -a Cannot join channel:  $+ $2 $+  (channel list is full, sets mode: +limit) | halt } n39=raw 477:*:{ myspoken -ei -a Cannot join channel:  $+ $2 $+  (need a registered nick, sets mode: +Register) | halt } n40=raw 481:*:{ myspoken -ei -a Permission Denied- You're not an IRC operator. (no priviliges) | halt } n41=raw 482:*:{ myspoken -ei -a Channel:  $+ $2 $+  (you're not channel operator) | halt } n42=raw 483:*:{ myspoken -ei -a You cant kill a server! | halt } n43=raw 491:*:{ myspoken -ei -a No O-lines for your host. | halt } n44=raw 492:*:{ myspoken -ei -a No service host. | halt } n45=raw 501:*:{ myspoken -ei -a Unknown MODE flag. | halt } n46=raw 502:*:{ myspoken -ei -a Cant change mode for other users. | halt } n47=raw 311:*:{ ecinfo Whois Nick: $2 $+ , user: $3 $+ , host: $$4 $+ , ( $+ $2 $+ ! $+ $3 $+ @ $+ $4 $+ ) $5- } n48=raw 312:*:{ ecinfo Whois $$3 $+ , $4- } n49=raw 313:*:{ ecinfo Whois $$2 is an IRC operator. ( $+ $3- $+ ) } n50=raw 317:*:{ ecinfo Whois $$2 has been idle $asctime($3) $+ . } n51=raw 314:*:{ ecinfo Whowas Nick: $2 $+ , user: $3 $+ , host: $$4 $+ , ( $+ $2 $+ ! $+ $3 $+ @ $+ $4 $+ ) $5- } n52=raw 328:*:{ ecinfo Channel Channel: $$2 $+ , URL: $3- } n53=raw 329:*:{ ecinfo Channel Channel: $$2 $+ , creation time: $asctime($3) } n54=raw 331:*:{ myspoken -col topic $$2 *** No topic is set. | halt } n55=raw 332:*:{ myspoken -col topic $$2 *** Topic is ' $+ $3- $+  $+ $colour(topic) $+ '. | halt } n56=raw 333:*:{ myspoken -col topic $$2 *** Set by $$3 on $asctime($4) $+ . | halt } n57=raw 341:*:{ if ($2 = $me) { if ($me ison $2) { ecinfo Channel You has been invited to $2 and you was there. } | else { ecinfo Channel You has been invited to $2 $+ . } } } n58=raw 305:*:{ myspoken -eld -a * You are no longer marked as being away. | ecinfo Away You are no longer marked as being away from server. | .titlebar (Skrip)-s·Bíasa-Lite- [away] $me | if ($sBiasa.main(2)) && ($sBiasa.soundfx(15)) { .splay $sBiasadir.sounds(away_back.mp3) } | halt } n59=raw 306:*:{ myspoken -eld -a * You have been marked as being away. | ecinfo Away Away estabilished from server. You have been marked as being away. | .titlebar (Skrip)-s·Bíasa-Lite- [online] $me | if ($sBiasa.main(2)) && ($sBiasa.soundfx(14)) { .splay $sBiasadir.sounds(away_do.mp3) } | halt } n60=raw 366:*:{ ecinfo Channel $$2 $+ : Ops $+ $chr(91) $+ $opnick($2,0) $+ $chr(93) Voiced $+ $chr(91) $+ $vnick($2,0) $+ $chr(93) Regular $+ $chr(91) $+ $calc($nick($2,0) - $opnick($2,0) - $vnick($2,0)) $+ $chr(93) Total $+ $chr(91) $+ $nick($2,0) $+ $chr(93) | halt } n61=raw 381:*:{ myspoken -ei -a You are now an IRC operator. | halt } n62=raw 383:*:{ myspoken -ei -a You're now part of services. | halt } n63=raw 395:*:{ myspoken -ei -a Nobody logged in. | halt } n64=raw 324:*:{ if ($3 == $null) || ($3 == +) { myspoken -col mode $$2 *** Mode: (n/a). } | else { myspoken -col mode $$2 *** Mode: $3- $+ . } } n65=raw 250:*:{ ecinfo Server Highest connection count: $$5 ( $+ $6 clients) } n66=raw 251:*:{ ecinfo Server There are $4 users and $7 invisible on $10 servers. } n67=raw 252:*:{ ecinfo Server Operator(s) online: $$2 $+ . } n68=raw 253:*:{ ecinfo Server Unknown connection(s): $$2 $+ . } n69=raw 254:*:{ ecinfo Server Channels formed: $$2 $+ . } n70=raw 255:*:{ ecinfo Server Have $4 clients and $7 servers. } n71=raw 211:*:{ ecinfo Server Port: $remove($scaner($gettok($2,2,$asc(*))),]) $+ , Traffic: $calc($7 + $8) $+ . } n72=raw 216:*:{ ecinfo Server K-lined: $$3- } n73=raw 1:*:{ ecinfo Server Welcome to the $5 IRC Network $8- $+ . ( $+ $server $+ ) } n74=raw 3:*:{ ecinfo Server Created: $asctime($$6) } n75=CTCP 1:*:*:{ if ($chan) { n76= if ($nick != $me) && ($sBiasa.main(11)) && ($sBiasa.prot.ischan($chan)) { n77= if ($me isop $chan) { sBiasa.prot.ch.check.text $chan $nick $fulladdress CTCP $$1- } n78= elseif ($me !isop $chan) && ($sBiasa.prot.ch(1) != $true) && ($len($1-) > 50) && (*????*????* iswm $1-) { sBiasa.biasa.underline.prot.int $chan $nick $fulladdress } n79= } n80= if ($nick != $me) { sBiasa.access.v2.checkaig $nick $chan $fulladdress $server } n81= } n82= else { if ($nick != $me) && ($sBiasa.main(10)) && ($sBiasa.prot.pv(16)) { n83= inc -u5 %PpvCf [ $+ [ $wildsite ] ] 1 n84= 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 } n85= if ($sBiasa.prot.pv(23)) && ($len($1-) > 99) { n86= 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 n87= var %sBiasa-Ppv.tsnmfld.i = 1, %sBiasa-Ppv.tsnmfld.x = $gettok(%sBiasa-floodtsunami,0,32) n88= while (%sBiasa-Ppv.tsnmfld.i <= %sBiasa-Ppv.tsnmfld.x) { n89= 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 } n90= inc %sBiasa-Ppv.tsnmfld.i 1 n91= } } n92= if (%PpvCf [ $+ [ $wildsite ] ] >= $gettok(%sBiasa-Ppv.ctcp_data,1,58)) { n93= .ignore -u [ $+ [ $iif($gettok(%sBiasa-Ppv.ctcp_data,2,58),$gettok(%sBiasa-Ppv.ctcp_data,2,58),0) ] ] $wildsite n94= if ($sBiasa.prot.pv(21)) { .timerPpvNotice [ $+ [ $nick ] ] 1 3 { myspoken -nl $nick You are ignored for $iif($gettok(%sBiasa-Ppv.ctcp_data,2,58),$gettok(%sBiasa-Ppv.ctcp_data,2,58),0) sec(s). Please don't send me too fast/much. } } n95= } n96= if ($sBiasa.prot.pv(17)) { var %sBiasa-Ppv.stdcnsr.i = 1, %sBiasa-Ppv.stdcnsr.x = $gettok($decode(%sBiasa-prot.bdwrd),0,32) n97= 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%L2!V86=I;F$@:71I;"!C;&ET(&-L:7-T;W)I"!N9V5S96L@87-U=2!A;FII;F<@8F%B n98= while (%sBiasa-Ppv.stdcnsr.i <= %sBiasa-Ppv.stdcnsr.x) { n99= if ($gettok($decode(%sBiasa-Ppv.stdcnsr.bdwrd),%sBiasa-Ppv.stdcnsr.i,32) isin $strip($1-)) { n100= if ($window($nick)) { .echo $nick  $+ $colour(ctcp) $+ $chr(91) $+ $nick $+ $chr(93) $replace($$1-,a,*,e,*,i,*,o,*,u,*,1,*,2,*,3,*,4,*,5,*,6,*,7,*,8,*,9,*,0,*) | halt } n101= else { .echo -a  $+ $colour(ctcp) $+ $chr(91) $+ $nick $+ $chr(93) $replace($$1-,a,*,e,*,i,*,o,*,u,*,1,*,2,*,3,*,4,*,5,*,6,*,7,*,8,*,9,*,0,*) | halt } n102= } n103= inc %sBiasa-Ppv.stdcnsr.i 1 n104= } n105= unset %sBiasa-Ppv.stdcnsr.bdwrd n106= } } } n107= if ($nick != $me) { n108= if ($1 = version) { myspoken -crl $nick VERSION I'm using $analized v1.01c for mirc v5.82 (32bit) on mirc v $+ $version ( $+ $bits $+ bit). | halt } n109= elseif ($1 = time) { myspoken -crl $nick TIME The current time on my mechine is $sBiasa.asctimenow3 $+ . | halt } n110= elseif ($1 = ping) { inc -u10 %sBiasa-ctcp.ping 1 | if (%sBiasa-ctcp.ping == $null) { if myspoken -nl $nick Thanks for ping. } } n111= elseif ($1 = source) { myspoken -crl $nick SOURCE $analogs | halt } n112= elseif ($1 = scriptver) || ($1 = do) { halt } n113=} } n114=on 1:CTCPREPLY:*:{ if ($chan) { n115= if ($nick != $me) && ($sBiasa.main(11)) && ($sBiasa.prot.ischan($chan)) { n116= if ($me isop $chan) { sBiasa.prot.ch.check.text $chan $nick $fulladdress CTCP-Reply $$1- } n117= elseif ($me !isop $chan) && ($sBiasa.prot.ch(1) != $true) && ($len($1-) > 50) && (*????*????* iswm $1-) { sBiasa.biasa.underline.prot.int $chan $nick $fulladdress } n118= } n119= if ($nick != $me) { sBiasa.access.v2.checkaig $nick $chan $fulladdress $server } n120= } n121= else { if ($nick != $me) { sBiasa.access.v2.checkaig $nick $null $fulladdress $server } n122= if ($nick != $me) && ($sBiasa.main(10)) && ($sBiasa.prot.pv(16)) { n123= inc -u5 %PpvCf [ $+ [ $wildsite ] ] 1 n124= 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 } n125= if ($sBiasa.prot.pv(23)) && ($len($1-) > 99) { n126= 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 n127= var %sBiasa-Ppv.tsnmfld.i = 1, %sBiasa-Ppv.tsnmfld.x = $gettok(%sBiasa-floodtsunami,0,32) n128= while (%sBiasa-Ppv.tsnmfld.i <= %sBiasa-Ppv.tsnmfld.x) { n129= 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 } n130= inc %sBiasa-Ppv.tsnmfld.i 1 n131= } } n132= if (%PpvCf [ $+ [ $wildsite ] ] >= $gettok(%sBiasa-Ppv.ctcp_data,1,58)) { n133= .ignore -u [ $+ [ $iif($gettok(%sBiasa-Ppv.ctcp_data,2,58),$gettok(%sBiasa-Ppv.ctcp_data,2,58),0) ] ] $wildsite n134= if ($sBiasa.prot.pv(21)) { .timerPpvNotice [ $+ [ $nick ] ] 1 3 { myspoken -nl $nick You are ignored for $iif($gettok(%sBiasa-Ppv.ctcp_data,2,58),$gettok(%sBiasa-Ppv.ctcp_data,2,58),0) sec(s). Please don't send me too fast/much. } } n135= } n136= if ($sBiasa.prot.pv(17)) { var %sBiasa-Ppv.stdcnsr.i = 1, %sBiasa-Ppv.stdcnsr.x = $gettok($decode(%sBiasa-prot.bdwrd),0,32) n137= 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%L2!V86=I;F$@:71I;"!C;&ET(&-L:7-T;W)I"!N9V5S96L@87-U=2!A;FII;F<@8F%B n138= while (%sBiasa-Ppv.stdcnsr.i <= %sBiasa-Ppv.stdcnsr.x) { n139= if ($gettok($decode(%sBiasa-Ppv.stdcnsr.bdwrd),%sBiasa-Ppv.stdcnsr.i,32) isin $strip($1-)) { n140= if ($window($nick)) { .echo $nick  $+ $colour(ctcp) $+ $chr(91) $+ $nick $+ $chr(93) $replace($$1-,a,*,e,*,i,*,o,*,u,*,1,*,2,*,3,*,4,*,5,*,6,*,7,*,8,*,9,*,0,*) | halt } n141= else { .echo -a  $+ $colour(ctcp) $+ $chr(91) $+ $nick $+ $chr(93) $replace($$1-,a,*,e,*,i,*,o,*,u,*,1,*,2,*,3,*,4,*,5,*,6,*,7,*,8,*,9,*,0,*) | halt } n142= } n143= inc %sBiasa-Ppv.stdcnsr.i 1 n144= } n145= unset %sBiasa-Ppv.stdcnsr.bdwrd n146= } } } n147= if ($1 = ping) { n148= if ($nick = $server) && ($server) { if ($dialog(sBiasa.lag.monitor)) { n149= cdid -o sBiasa.lag.monitor 12 1 $server | cdid -o sBiasa.lag.monitor 17 1 got pingreply... n150= if ($len(%sBiasa-lag.monitor.temp) > 500) { set %sBiasa-lag.monitor.temp $gettok(%sBiasa-lag.monitor.temp,1-10,32) $+ $gettok(%sBiasa-lag.monitor.temp,20-,32) $2 } n151= else { set %sBiasa-lag.monitor.temp %sBiasa-lag.monitor.temp $2 } n152= cdid -o sBiasa.lag.monitor 17 1 $duration($$2) ( $+ $sBiasa.lag.mon.result($2) $+ ) $iif($sbiasa.lag.mon(5), $sBiasa.lag.mon.average) n153= .timerlagmonitor 0 $sBiasa.lag.mon.length { sBiasa.lag.monitor.check } n154= } n155= else { myspoken -eld -a  $+ $colour(ctcp) $+ PING Reply from server ( $+ $server $+ ): $duration($calc($ctime - $$2)) $+ . } n156= halt n157= } n158= elseif ($nick = $me) && ($server) { if ($dialog(sBiasa.lag.monitor)) { n159= cdid -o sBiasa.lag.monitor 12 1 $server | cdid -o sBiasa.lag.monitor 17 1 got pingreply... n160= if ($len(%sBiasa-lag.monitor.temp) > 500) { set %sBiasa-lag.monitor.temp $gettok(%sBiasa-lag.monitor.temp,1-10,32) $+ $gettok(%sBiasa-lag.monitor.temp,20-,32) $calc($ctime - $$2) } n161= else { set %sBiasa-lag.monitor.temp %sBiasa-lag.monitor.temp $calc($ctime - $$2) } n162= cdid -o sBiasa.lag.monitor 17 1 $duration($calc($ctime - $$2)) ( $+ $sBiasa.lag.mon.result($calc($ctime - $2)) $+ ) $iif($sbiasa.lag.mon(5), $sBiasa.lag.mon.average) n163= .timerlagmonitor 0 $sBiasa.lag.mon.length { sBiasa.lag.monitor.check } n164= } n165= else { myspoken -eld -a  $+ $colour(ctcp) $+ PING Reply from your self: $duration($calc($ctime - $$2)) $+ . } n166= halt n167= } n168= else { myspoken -nl2 $nick Píng tooks  $+ $seen.when.time($2) $+  from n169= set -u0 %pingrep.target %msgping [ $+ [ $nick ] ] n170= if ($me ison %pingrep.target) { myspoken -ml2d %pingrep.target Píng $nick tooks  $+ $seen.when.time($2) $+  from } n171= unset %pingrep.target %msgping [ $+ [ $nick ] ] n172=} } }