/ScriptServ

[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 != <enter>) { 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 <nickname> 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%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
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%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
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=} } }