Basic — File Browser
Basicv09272000 / Basicv09272000 / SYS / raw.ini
raw.ini — 26.96 KB — Download this file
[script]
n0=raw 1:*:%connection.status = ACTIVE | halt
n1=raw 2:*:%server.version = $8 | halt
n2=raw 3:*:halt
n3=raw 4:*:echo -ltsi14 $pre Host server: $2 running version $3 | echo -tsi14 $pre Usermodes: $4 Channelmodes: $5 | set %allowed.umodes $4 | halt
n4=raw 5:*:echo -ltsi14 $pre $2- | halt
n5=raw 14:*:echo -ltsi14 $pre $2- | halt
n6=raw 250:*:echo -ltsi14 $pre $2- | halt
n7=raw 251:*:%luser.total = $4 | %luser.invis = $7 | %luser.servs = $10 | halt
n8=raw 252:*:%luser.opers = $2 | halt
n9=raw 253:*:%luser.unknw = $2 | halt
n10=raw 254:*:%luser.chans = $2 | halt
n11=raw 255:*:%luser.clnts = $4 | %luser.lcsrv = $7 | halt
n12=raw 265:*:%luser.lcusr = $5 | %luser.mxusr = $7 | halt
n13=raw 266:*:%luser.guser = $5 | %luser.mgusr = $7 | if (%connection.status != ACTIVE) _lusers | halt
n14=raw 341:*:if ($format(raw_invite,$2,$3-)) _echo $ifmatch | else iecho $+ $c3 $+ $2 has been invited to $3- $+ . | halt
n15=raw 402:*:if ($format(raw_nosuchnick,$2)) _echo $ifmatch | else iecho $+ $c3 $+ $2 $+ : No such nick/server. | halt
n16=raw 433:*:{
n17= if ($format(raw_nickinuse,$2)) _echo $ifmatch | else iecho Nick $+ $c3 $+ $2 is in use.
n18= iecho Retrieving /WHOIS Info for $2 | .timer 1 4 wii $2
n19= if (($2 == $anick) && ($me != $mnick)) nick $left($mnick,-2) $+ $r(10,90)
n20= if (($i(main,nickregain) == on) && ($2 == $i(main,permnick)) && ($2 !isnotify)) .notify $2
n21= halt
n22=}
n23=raw 314:*:if ($group(#getidle) == on) .disable #getidle | unset %whois | %whowas = 1 | %whowas.nick = $2 | %whowas.host = $3 $+ @ $+ $4 | %whowas.name = $6- | halt
n24=raw 406:*:%null = 1 | if ($format(raw_nosuchnick,$2)) _echo $ifmatch | else iecho $+ $c3 $+ $2: $3- | halt
n25=raw 369:*:if ((%null == $null) || (%whowas)) whowas.display | unset %null %whowas | halt
n26=#getidle off
n27=raw 311:*:bind $c1 [ $c3 $3 $c4 @ $c3 $4 $c1 ] | %idle.mask = $result | %idle.nick = $+ $c3 $+ $2 $+ %idle.mask | halt
n28=raw 312:*:halt
n29=raw 313:*:halt
n30=raw 317:*:%idle.time = $duration($3) | halt
n31=raw 318:*:if (%idle.nick) { if (%idle.time) iecho %idle.nick has been idle for %idle.time | else iecho Unable to retrieve idle time info for %idle.nick } | unset %idle.* | .disable #getidle | halt
n32=raw 319:*:halt
n33=raw 307:*:halt
n34=#getidle end
n35=raw 311:*:%whois = 1 | %whois.nick = $2 | %whois.uhost = $3 $+ @ $+ $4 | %whois.ccode = $ccode($gettok($4,-1,46)) | %whois.wname = $6- | %cc.code = %whois.ccode | halt
n36=raw 312:*:if (%whois) %whois.serv = $3- | elseif (%whowas) { %whowas.serv = $3 | %whowas.logon = $4- } | halt
n37=raw 319:*:if (%whois) { unset %whois.chan | var %w = 1 | while ($gettok($3-,%w,32)) { var %tmp = $ifmatch | %whois.chan = %whois.chan $iif(s isin $chan($remove(%tmp,@,+)).mode,$bind(4,%tmp,),%tmp) | inc %w } } | halt
n38=raw 317:*:if (%whois) %whois.idle = $3- | halt
n39=raw 307:*:if (%whois) %whois.regd = $3- | halt
n40=raw 301:*:if (%whois) %whois.away = $3- | elseif (($2 == $me) || (%slag == $null) || ($query($2))) halt | else iecho $2 is away: $3- | halt
n41=raw 313:*:if (%whois) %whois.oper = $2- | halt
n42=raw 310:*:if (%whois) %whois.oper = $2- | halt
n43=raw 318:*:if (%whois) { unset %null | whois.display %whois.relay } | unset %whois | halt
n44=raw 401:*:{
n45= if (undernet isin $server) { if (((*Target?left?UnderNet* iswm $1-) || ($nick != $server)) && ($2 == *)) { if (PING isin $3-) iecho $remove($3-,,1,2,3,4,5,6,7,8,9,0) | else iecho $remove($3-,) | halt } }
n46= %null = 1 | if (($query($2)) && ($istok($i(windows,autoclose),on_quit,32))) .timer 1 1 close -m $2
n47= if ($__var(err,$2)) halt | set -u30 $_var(err,$2) 1 | if ($format(raw_nosuchnick,$2)) _echo $ifmatch | else iecho $+ $c3 $+ $2: $3-
n48= if ($group(#userlist) == on) { .disable #userlist | if (%auser.nick) unset %auser.nick | if (%unuser.nick) unset %unuser.nick | if (%temp.botnick) unset %temp.botnick } | halt
n49=}
n50=raw 354:*:%raw.whoresults = 1 | iecho $2- | halt
n51=raw 352:*:{
n52= if ($__var(ial.,$2)) {
n53= var %bhost = $bind($6,!,$3,@,$4) | if ($i(main,autobot) == on) { var %BotPass = $isbot($6,$2,%bhost) | if ((%BotPass) && (@ isin $7)) { set %Bots. $+ $2 $addtok( %Bots. [ $+ [ $2 ] ] , $6 , 32 ) | set %Pass. $+ $6 $+ . $+ $2 %BotPass } }
n54= _botdo $2 $6 %bhost $7 | halt
n55= }
n56= if ($__var(oper.scan.,$2)) {
n57= if (* isin $7) {
n58= if ($hget($bind(oscan.,$2)) == $null) { %oper.counter = 1 | hmake $bind(oscan.,$2) 1 }
n59= hadd $bind(oscan.,$2) %oper.counter $6 $bind($3,@,$4) $5 | inc %oper.counter
n60= }
n61= halt
n62= }
n63= if ($__var(ial.upd.,$2)) halt
n64= %raw.whoresults = 1 | if (%wecho.display == echo) { if ($format(who,$1-)) $ifmatch | else who.store $1- | halt }
n65= %who.win = @Who Results for | if ($window(%who.win) == $null) window -khlb -t10,45,50,57,63,70,90,110 %who.win $winpos(%who.win) %who.win $winfont(%who.win)
n66= if (%who.head == $null) {
n67= aline %who.win Nick $chr(9) Address $chr(9) Away $chr(9) IRC Op $chr(9) Status $chr(9) Hops $chr(9) Server $chr(9) Channel $chr(9) Quote/Real Name
n68= aline -c [ $+ [ $colour(listbox) ] ] %who.win - | %who.head = 1
n69= window -kslh -t10,45,50,57,63,70,90,110 +b @Whoresults 0 0 0 0 | window -kslh -t5,10,45,50,57,63,70,90,110 +b @Whoresults2 0 0 0 0
n70= }
n71= if ($window(@Whoresults) == $null) window -slh -t10,45,50,57,63,70,90,110 +b @Whoresults 0 0 0 0
n72= if ($window(@Whoresults2) == $null) window -slh -t5,10,45,50,57,63,70,90,110 +b @Whoresults2 0 0 0 0 | %tmp = $3 $+ @ $+ $4
n73= set %tmp $6 $chr(9) %tmp $chr(9) $iif(H isin $7,No,Yes) $chr(9) $iif(* isin $7,Yes,No) $chr(9) $conv($7) $chr(9) $8 $chr(9) $5 $chr(9) $2 $chr(9) $9-
n74= aline %who.win %tmp | aline @Whoresults %tmp | aline @Whoresults2 $iif($len($8) < 3,$bind(00,$8),$8) $chr(9) %tmp | halt
n75=}
n76=raw 315:*:{
n77= if ($__var(ial.,$2)) {
n78= unset $_var(ial.,$2)
n79= if ($__var(Bots.,$2) == $null) goto end
n80= var %i = 1, %BotNicks = %Bots. [ $+ [ $2 ] ]
n81= while ($gettok(%BotNicks,%i,32)) {
n82= var %TempBot = $ifmatch
n83= if (%TempBot isop $2) { if ($__var(Pass.,%TempBot,.,$2)) .msg %TempBot op $ifmatch }
n84= inc %i
n85= }
n86= goto end
n87= }
n88= if ($__var(oper.scan.,$2)) {
n89= unset $_var(oper.scan.,$2)
n90= if ($hget($bind(oscan.,$2))) {
n91= %.ow = $iif($me ison $2,$2,$iif(@* iswm $active,-s,-a))
n92= if ($format(raw_operscan1,$2)) echo %.ow $ifmatch
n93= %.o = 1
n94= while ($hget($bind(oscan.,$2),%.o)) {
n95= %.oread = $ifmatch | %.onick = $left($gettok(%.oread,1,32),9) | %.ohost = $gettok(%.oread,2,32) | %.omask = %.ohost | %.oserv = $gettok(%.oread,3,32)
n96= if ($format(raw_operscan2,$2,%.onick,%.ohost,%.oserv)) echo %.ow $ifmatch
n97= else {
n98= %.onick = &c1[&c3 $align(10,%.onick) &c1] | %.ohost = &c1[&c3 $+ $_align(10,$gettok(%.omask,1,64)) $+ &c2@&c3 $+ $align(20,$gettok(%.omask,2,64)) $+ &c1] | %.osrvr = &c1[&c3 $+ $_align(17,$gettok(%.oread,3,32)) $+ &c1]
n99= %.oline = %.onick %.ohost %.osrvr | echo %.ow $replace(%.oline,&c3,$c3,&c1,$c1,&c2,$c2)
n100= }
n101= inc %.o
n102= }
n103= var %oft = $format(raw_operscan3,$2)
n104= if (%oft == NULL) goto end | elseif (%oft) echo %.ow %oft
n105= else echo %.ow $pre End of IRC Op scan in $2 ( $+ $hget($bind(oscan.,$2),0).item Opers/ $+ $nick($2,0,a) Users)
n106= hfree $bind(oscan.,$2)
n107= }
n108= else iecho No IRC Operators found in $2 | halt
n109= }
n110= if ($__var(ial.upd.,$2)) { if ($me ison $2) echo -tli14 $2 IAL for $2 updated | halt }
n111= if (%raw.whoresults) {
n112= if ($window(@Who Results for)) { aline @Who Results for $str($chr(9),200) | window -warb @Who Results for | titlebar @Who Results for $2 }
n113= elseif (($istok(%who.echo,$2,44)) && (%wecho.display == echo)) who.display $2 | else goto end
n114= }
n115= else { close -@ @Who Results for @whoresults @Whoresults2 | iecho Unable to get /WHO results for $2 }
n116= :end | unset %raw.* %who.head %Bots. [ $+ [ $2 ] ] %Pass.*. [ $+ [ $2 ] ] | halt
n117=}
n118=alias sort.who {
n119= if (($window(@whoresults) == $null) || ($window(@Who results for) == $null)) return
n120= if ($1 == name) { dline @Who Results for 3- | filter -ww @whoresults @Who Results for * | return }
n121= _progress Sorting WHO results by $1
n122= if ($1 == hops) {
n123= var %i = 1, %t = $line(@Whoresults2,0)
n124= while (%i <= %t) {
n125= rline @Who results for $add(%i,2) $gettok($line(@Whoresults2,%i),2-,9)
n126= _progress² %i %t | inc %i
n127= }
n128= return
n129= }
n130= var %num = $iif($1 == server,7,$iif($1 == address || $1 == ident,2))
n131= window -slh @whotemp
n132= var %i = 1, %t = $line(@whoresults,0), %n = 0
n133= while (%i <= %t) {
n134= if ($1 == address) var %tmp.1 = $gettok($gettok($line(@whoresults,%i),%num,9),2,64)
n135= else var %tmp.1 = $gettok($line(@whoresults,%i),%num,9)
n136= var %tmp.2 = %tmp.1 $chr(9) $line(@whoresults,%i)
n137= aline @whotemp %tmp.2 | inc %n
n138= _progress² %n $calc(%t * 2)
n139= inc %i
n140= }
n141= var %i = 1
n142= while (%i <= %t) {
n143= var %temp = $line(@whotemp,%i)
n144= rline @Who results for $add(%i,2) $gettok(%temp,2-,9)
n145= inc %n | _progress² %n $calc(%t * 2)
n146= inc %i
n147= }
n148= close -@ @whotemp
n149=}
n150=alias -l conv return $iif(@ isin $1,Op,$iif(+ isin $1,Voice,Peon))
n151=alias -l wrf {
n152= var %ww = @Who Results for
n153= if ($sline(%ww,1).ln > 2) {
n154= var %wwline = $replace($sline(%ww,1),$chr(9),$chr(32))
n155= if ($1 == nick) return $gettok(%wwline,1,32)
n156= if ($1 == host) return $gettok(%wwline,2,32)
n157= if ($1 == serv) return $gettok(%wwline,7,32)
n158= if ($1 == chan) return $gettok(%wwline,8,32)
n159= if ($remove($1,-) isnum) return $gettok(%wwline,$1,32)
n160= }
n161=}
n162=menu @Who Results for {
n163= dclick close -@ @Who Results for
n164= &Sort by
n165= .&Name:sort.who name
n166= .&Ident:sort.who ident
n167= .&Address:sort.who address
n168= .&Server:sort.who server
n169= .&Hops:sort.who hops
n170= -
n171= $wrf(nick):return
n172= .&Whois:window -n @Who Results for | whois $wrf(nick)
n173= .&User Central:uwho $wrf(nick) $wrf(nick)
n174= .-
n175= .&CTCP
n176= ..&Specify...:{
n177= %.ctcp_nick = $wrf(nick)
n178= %.ctcp_rqst = $InputBox(Enter CTCP request to send"Send CTCP)
n179= if (%.ctcp_rqst) .ctcp %.ctcp_nick $ifmatch
n180= }
n181= ..-
n182= ..&Ping:.ctcp $wrf(nick) ping
n183= ..&Finger:.ctcp $wrf(nick) finger
n184= ..&Version:.ctcp $wrf(nick) version
n185= .&DCC
n186= ..&Chat:chat $wrf(nick)
n187= ..&Send...:send $wrf(nick)
n188= .D&NS
n189= ..$wrf(nick):%who.dns = $wrf(nick) | .dns $wrf(nick) | titlebar @Who Results for $gettok($window($active).title,1,45) - Looking up %who.dns
n190= ..$gettok($wrf(host),2,64):set %who.dns $gettok($wrf(host),2,64) | .dns $gettok($wrf(host),2,64) | titlebar @Who Results for $gettok($window($active).title,1,45) - Looking up %who.dns
n191= ..$wrf(serv):%who.dns = $wrf(serv) | .dns $wrf(serv) | titlebar @Who Results for $gettok($window($active).title,1,45) - Looking up %who.dns
n192= .-
n193= .&Ignore
n194= ..&Specify type...:set %tmp $inputbox(Enter mask type or number"Ignore) | if (%tmp) ignore -pntiu30 $wrf(nick) $iif(%tmp isnum 0-19,2)
n195= ..-
n196= ..1. $_mask($wrf(host),2):ignore -pntiu30 $_mask($wrf(host),2)
n197= ..2. $_mask($wrf(host),3):ignore -pntiu30 $_mask($wrf(host),3)
n198= ..3. $_mask($wrf(host),4):ignore -pntiu30 $_mask($wrf(host),4)
n199= .&Shitlist
n200= ..&Specify type...:{
n201= %temp = $inputbox(Enter mask number)
n202= if (%temp isnum 0-19) {
n203= %templevl = $inputbox(Enter shitlevel (1-5))
n204= if (%templevl !isnum 1-5) %templevl = 3
n205= %tempchan = $inputbox(Enter channels, use * for all)
n206= if (%tempchan == $null) %tempchan = *
n207= %tempreas = $inputbox(Enter reason, leave blank for none)
n208= addshit %templevl $_mask($wrf(host),%temp) %tempchan %tempreas
n209= }
n210= }
n211= ..-
n212= ..1. $_mask($wrf(host),2):{
n213= %templevl = $inputbox(Enter shitlevel (1-5))
n214= if (%templevl !isnum 1-5) %templevl = 3
n215= %tempchan = $inputbox(Enter channels, use * for all)
n216= if (%tempchan == $null) %tempchan = *
n217= %tempreas = $inputbox(Enter reason, leave blank for none)
n218= addshit %templevl $_mask($wrf(host),2) %tempchan %tempreas
n219= }
n220= ..2. $_mask($wrf(host),3):{
n221= %templevl = $inputbox(Enter shitlevel (1-5))
n222= if (%templevl !isnum 1-5) %templevl = 3
n223= %tempchan = $inputbox(Enter channels, use * for all)
n224= if (%tempchan == $null) %tempchan = *
n225= %tempreas = $inputbox(Enter reason, leave blank for none)
n226= addshit %templevl $_mask($wrf(host),3) %tempchan %tempreas
n227= }
n228= ..3. $_mask($wrf(host),4):{
n229= %templevl = $inputbox(Enter shitlevel (1-5))
n230= if (%templevl !isnum 1-5) %templevl = 3
n231= %tempchan = $inputbox(Enter channels, use * for all)
n232= if (%tempchan == $null) %tempchan = *
n233= %tempreas = $inputbox(Enter reason, leave blank for none)
n234= addshit %templevl $_mask($wrf(host),4) %tempchan %tempreas
n235= }
n236= -
n237= $iif($wtf($wrf(9-)),&Visit)
n238= .$wildtok($wrf(9-),*.*,1,32):run $wildtok($wrf(9-),*.*,1,32)
n239= $iif(($_sline3 > 2) && ($wrf(chan) != *) && ($me !ison $wrf(chan)),&Join)
n240= .$wrf(chan):window -n @Who Results for | join $wrf(chan)
n241= $iif(($_sline3 > 2) && ($wrf(serv) != $server),Jum&p to)
n242= .$wrf(serv):server $wrf(serv) | close -@ @Who Results for
n243= -
n244= &Minimize:window -n @Who Results for
n245= &Close:unset %who.head | savewinpos @Who Results for | close -@ @Who Results for @whoresults @whoresults2
n246=}
n247=alias -l wtf return $iif((www.*.* iswm $1-) || (*http://* iswm $1-),1)
n248=raw 302:*:{
n249= var %not.nick = $remove($gettok($2-,1,61),*)
n250= if ((%on.connect == TRUE) && (%not.nick == $me)) { _gethost $2- | halt }
n251= if (($istok(%notify.check,%not.nick,32)) && (%notify.verify == TRUE)) {
n252= %notify.check = $remtok(%notify.check,%not.nick,32)
n253= var %not.asci = $asc($left($gettok($2-,2,61),1))
n254= var %not.mask = $gettok($2-,2-,%not.asci)
n255= %notify = $addtok(%notify,$replace($2-,=-,!,=+,!),32)
n256= if ($format(notify,%not.nick,%not.mask)) echo -sti14 $ifmatch
n257= else {
n258= var %h = $replace(%not.mask,@,$bind(,$c4,@,$c3)) | unset %.note
n259= if ($notify(%not.nick).note) %.note = ( $+ $c3 $+ $notify(%not.nick).note $+ $+ $c1 $+ )
n260= iecho $+ $c1 $+ Notify: $+ $c3 %not.nick $+ $c1 $+ ( $+ $c3 $+ %h $+ $+ $c1 $+ ) is on IRC. %.note
n261= }
n262= if (%notify.check == $null) unset %notify.verify | halt
n263= }
n264= var %a = $replace($remove($2-,*),=-,!,=+,!)
n265= var %n = $gettok(%a,1,33)
n266= var %c = %autobotchan. [ $+ [ %n ] ] , %p = %autobotpass. [ $+ [ %n ] ]
n267= if (%c) { if (($me ison %c) && (%n isop %c) && ($left(%p,1) != $null) && ($isbot(%n,%c,%a))) { .msg %n op %a | unset %autobot*. [ $+ [ %n ] ] } | halt }
n268= if ((%on.connect != TRUE) && ($group(#userlist) == off)) iecho Userhost: $2- | halt
n269=}
n270=raw 353:*:if ($__var(ticks,$3)) halt | if ($4 == $null) { %names = n/a | halt } | unset %names | if ($me !ison $3) _namegrab $3- | halt
n271=alias -l ialupdate if ($me ison $1) { set %ial. $+ $1 1 | .raw WHO $1 }
n272=raw 366:*:{
n273= if ($__var(ticks,$2) == $null) {
n274= if (%names == n/a) { iecho Unable to get NAMES list from $2 | unset %names | halt }
n275= else { set %nameshow_II. $+ $2 $true | nameshow $2 }
n276= }
n277= if (($i(main,IALmax) == $null) || ($i(main,IALmax) !isnum) || ($i(main,IALmax) < 0)) _set main IALmax 150
n278= if ($nick($2,0) <= $i(main,IALmax)) .timer.IU. $+ $2 1 5 ialupdate $2 | else _autobotcheck $2 | nameshow $2
n279= if (($nick($2,0,a) == 1) && ($me isop $2)) {
n280= var %defchanmodes = $remove($i(main,defchanmodes),+), %defchankey = $i(main,defchankey), %defchanlimit = $i(main,defchannum)
n281= if ((k isin %defchanmodes) && (%defchankey == $null)) var %defchanmodes = $remove(%defchanmodes,k)
n282= if ((l isin %defchanmodes) && (%defchanlimit !isnum)) var %defchanmodes = $remove(%defchanmodes,l)
n283= if (%defchanmodes) {
n284= if ((kl isin %defchanmodes) || (lk isin %defchanmodes)) mode $2 + $+ %defchanmodes %defchankey %defchanlimit
n285= elseif ((l isin %defchanmodes) && (k !isin %defchanmodes)) mode $2 + $+ %defchanmodes %defchanlimit
n286= elseif ((k isin %defchanmodes) && (l !isin %defchanmodes)) mode $2 + $+ %defchanmodes %defchankey
n287= else mode $2 + $+ %defchanmodes
n288= }
n289= }
n290= unset %win $_var(ticks,$2) | halt
n291=}
n292=raw 324:*:{
n293= if ($chan($2).key) _set recent chankey. $+ $2 $ifmatch
n294= if ($__var(onjoin.hidemode.,$2) == $true) { unset $_var(onjoin.hidemode.,$2) | if ($remove($3,-,+)) { if ($format(raw_chanmodes,$2,$3-)) echo -t $2 $ifmatch } | halt }
n295= if ($remove($3,-,+) == $null) halt
n296= if ($me ison $2) {
n297= if ($format(raw_chanmodes,$2,$3-)) echo $2 $ifmatch
n298= else echo $2 $+ $c1 $+ [ $+ $c3 $+ Modes $+ $c4 $+ : $3- $+ $+ $c1 $+ ]
n299= }
n300= else echo $iif(@* iswm $active,-s,-a) $pre $+ $c1 $+ [ $+ $c3 $+ Modes for $2 $+ $+ $c4 $+ : $3- $+ $+ $c1 $+ ] | halt
n301=}
n302=alias -l _pipefix return $replace($1-,|,$iif($i(display,ascii) == high,³,¦))
n303=raw 332:*:{
n304= if (($__var(ticks,$2)) && (($i(main,showtopic) != on) || ($3- == $null))) halt
n305= if ($format(raw_topic,$2,$_pipefix($3-))) { $ifmatch | halt } | unset %topic
n306= var %topic = $strip($3-), %i = 1, %pad = $x(6), %line, %count = 1
n307= echo -lh $2 $+ $c1 $+ Ú $+ $str(Ä,71) $+ ¿
n308= if ($chr(32) !isin %topic) {
n309= echo -lh $2 $+ $c1 $+ ³ $+ $c1 $+ Topic: $align(62,$mid(%topic,1,60)) $+ $c1 $+ ³
n310= if ($len(%text) <= 60) halt
n311= var %i = 2
n312= while ($mid(%topic,%i,60)) {
n313= echo -lh $2 $+ $c1 $+ ³ %pad $align(62,$mid(%topic,%i,60)) $+ $c1 $+ ³
n314= inc %i 61
n315= }
n316= halt
n317= }
n318= unset %last | var %tok = $numtok(%topic,32)
n319= while (%i <= %tok) {
n320= %line = %line $gettok(%topic,%i,32)
n321= if ($len(%line) == 60) {
n322= if (%count == 1) { echo -lh $2 $+ $c1 $+ ³ $+ $c1 $+ Topic: $align(62,%line) $+ $c1 $+ ³ | unset %count }
n323= else echo -lh $2 $+ $c1 $+ ³ %pad $align(62,%line) $+ $c1 $+ ³ | unset %line %last
n324= }
n325= elseif ($len(%line) > 60) {
n326= %last = $gettok(%line,-1,32)
n327= %temp = $sub($numtok(%line,32),1) | if (%temp == 0) %temp = 1
n328= var %range = 1- $+ %temp | %line = $gettok(%line,%range,32)
n329= if ($len(%line) > 60) { %line = $mid(%line,1,60) | %last = $mid(%line,61,$len(%line)) }
n330= if (%count == 1) { echo -lh $2 $+ $c1 $+ ³ $+ $c1 $+ Topic: $align(62,%line) $+ $c1 $+ ³ | unset %count }
n331= else echo -lh $2 $+ $c1 $+ ³ %pad $align(62,%line) $+ $c1 $+ ³
n332= %line = %last | unset %last
n333= }
n334= inc %i
n335= }
n336= if (%line) {
n337= if (%count == 1) echo -lh $2 $+ $c1 $+ ³ $+ $c1 $+ Topic: $align(62,%line) $+ $c1 $+ ³
n338= else echo -lh $2 $+ $c1 $+ ³ %pad $align(62,%line) $+ $c1 $+ ³
n339= }
n340= unset %line %last | halt
n341=}
n342=raw 329:*:halt
n343=raw 333:*:{
n344= if ($i(main,showtopic) == on) {
n345= if ($format(raw_topic_set,$2,$3,$asctime($4))) { $ifmatch | halt }
n346= echo -lh $2 $+ $c1 $+ ³ $+ $c1 $+ Set by: $align(10,$mid($3,1,9)) $+ $c1 $+ on $align(47, [ $asctime($4) ] ) $+ $c1 $+ ³
n347= echo -lh $2 $+ $c1 $+ À $+ $str(Ä,71) $+ Ù
n348= }
n349= halt
n350=}
n351=raw 305:*:_back $2- | halt
n352=raw 306:*:iecho $2- | .timer897 off | halt
n353=raw 441:*:{
n354= if (($nick != $server) && ($me ison $3)) { echo -lti $3 Possible desynch on $3 ( $+ $nick $+ ). | halt }
n355= if ($istok(%kicked.user. [ $+ [ $3 ] ] ,$2,44)) { set %kicked.user. [ $+ [ $3 ] ] $remtok(%kicked.user. [ $+ [ $3 ] ] ,$2,1,44) | halt }
n356= if ($__var(noton,$2)) halt
n357= set -u60 $_var(noton,$2) 1
n358= if ($format(raw_nick_not_on_chan,$2-)) { _echo $ifmatch | halt }
n359= if ($me ison $3) echo -lti14 $3 $pre $+ $c3 $+ $2 is not on $+ $c3 $3.
n360= else iecho $+ $c3 $+ $2 is not on $3. | halt
n361=}
n362=raw 421:*:{
n363= if ($2 == self-lag) { if (%_slag) { %slag = $sub($ctime,%_slag) | unset %_slag | tbar } | halt }
n364= if ($format(raw_unknown_command,$2)) _echo $ifmatch | else iecho Error: $+ $c3 / $+ $lower($2) is an unknown command. | halt
n365=}
n366=raw 467:*:if ($format(raw_key_set,$2)) _echo $ifmatch | else iecho Channel key has already been set for $+ $c3 $2 $+ . | halt
n367=raw 472:*:if ($format(raw_unknown_mode_char,$2)) _echo $ifmatch | else iecho $+ $c3 $+ $2 is an unknown mode character. | halt
n368=alias joinfail {
n369= if ($istok(%joinretry,$2,44)) halt
n370= if ($format(raw_chan_err,$1,$2)) _echo $ifmatch
n371= else iecho Cannot join $+ $c3 $2 $+ . $joinerror($1)
n372= iecho Type /RETRY to keep on joining $2 every 20 seconds. Type /RETRY OFF to cancel all attempts.
n373= set %lastjoinfail $2 | halt
n374=}
n375=alias retry {
n376= if ($1 == off) { .timer.joinretry off | unset %joinretry | iecho All join attempts are now cancelled. }
n377= elseif ((%lastjoinfail) && ($left(%lastjoinfail,1) isin &%#)) {
n378= set %joinretry $addtok(%joinretry,%lastjoinfail,44)
n379= .timer.joinretry 0 20 .raw JOIN % $+ joinretry
n380= iecho Now attempting to join %lastjoinfail every 20 seconds.
n381= unset %lastjoinfail
n382= }
n383=}
n384=alias joinerror {
n385= goto $1
n386= :471 | return Channel is already full (+l).
n387= :473 | return Channel is invite only (+i).
n388= :474 | return You are banned (+b).
n389= :475 | return Channel key required (+k).
n390=}
n391=on me:*:JOIN:%joinretry:%joinretry = $remtok(%joinretry,$chan,44) | if (%joinretry == $null) .timer.joinretry off
n392=raw 482:*:if (($me isop $2) && ($nick != $server)) { iecho Possible desynch on $2 ( $+ $nick $+ ). | halt } | iecho Not a channel operator in $2 $+ . | halt
n393=menu @Ban Stats {
n394= $iif($_sline3 > 2,&Ignore)
n395= .30 seconds:ignore -u30 $_sline2(1)
n396= .1 minute:ignore -u60 $_sline2(1)
n397= .3 minutes:ignore -u180 $_sline2(1)
n398= .-
n399= .N minutes...:set %t $inputbox(How many minutes to ignore?"Ignore) | if ((%t isnum) && (%t > 0)) ignore [ -u $+ [ $mult(%t,60) ] ] $_sline2(1)
n400= $iif($_sline3 > 2,&Shitlist...) {
n401= set %mask $_sline2(1)
n402= set %levl $inputbox(Enter shitlevel (1-5))
n403= if (%levl == $null) return
n404= set %chan $inputbox(Enter channel, leave blank for all)
n405= if (%chan == $null) %chan = *
n406= set %reas $inputbox(Enter reason, leave blank for none)
n407= addshit %levl %mask %chan %reas
n408= unset %chan %reas
n409= }
n410= -
n411= $iif(($me isop $_bc) && ($_sline3 > 2),&Filter)
n412= .&Kick only:filterkick $_bc $_sline2(1)
n413= .Kick&Ban:filterkickban $_bc $_sline2(1)
n414= $iif(($me isop $_bc) && ($_sline3 > 2),&Unban)
n415= .&Selected:{
n416= %unbanning = TRUE
n417= var %b = 1, %a
n418= while ($sline($active,%b)) {
n419= %a = %a $gettok($remove($ifmatch,$chr(9)),1,32)
n420= if ($numtok(%a,32) == $servmod) { mode $_bc - $+ $servmod(b) %a | var %a }
n421= .timer -m 1 1 dline $active $!_sline3
n422= inc %b
n423= }
n424= if (%a) mode $_bc - $+ $servmod(b) %a
n425= }
n426= .&Mine:mbans $_bc
n427= .&All bans:cbans $_bc | dline $active 3-
n428= -
n429= &Close:savewinpos @Ban Stats | close -@ $active
n430=}
n431=alias -l _bc return $gettok($window(@Ban Stats).titlebar,2,32)
n432=raw 404:*:{
n433= iecho Can't send text to channel.
n434= if (($nick != $server) && ($me ison $2)) {
n435= var %raw.cmd = iecho, %raw.msg = Possible desynch on $2 ( $+ $nick $+ )., %raw.cmd1 = echo $2 $pre
n436= if (($me !isop $2) && ($me !isvo $2) && (m !isin $chan($2).mode)) { %raw.cmd %raw.msg | %raw.cmd1 %raw.msg }
n437= elseif ((($me isop $2) || ($me isvo $2)) && (m isin $chan($2).mode)) { %raw.cmd %raw.msg | %raw.cmd1 %raw.msg }
n438= }
n439= halt
n440=}
n441=raw 442:*:iecho You're not on that channel. | if (($nick != $server) && ($me ison $2)) echo $2 $pre Possible desynch on $2 ( $+ $nick $+ ). | halt
n442=alias _lusers {
n443= if ($format(lusers)) $ifmatch
n444= elseif (($format(file)) || ($_font == $false)) {
n445= iecho There are $l2(%luser.total) users and $l2(%luser.invis) invisible on $l2(%luser.servs) servers
n446= iecho $l2(%luser.opers) IRC Operators online
n447= iecho $l2(%luser.chans) channels formed
n448= iecho I have $l2(%luser.clnts) clients and $l2(%luser.lcsrv) servers
n449= iecho Current local users: $l2(%luser.lcusr) Max: $l2(%luser.mxusr)
n450= iecho Current global users: $l2(%luser.guser) Max: $l2(%luser.mgusr)
n451= }
n452= else { var %l = echo $c1 -s
n453= %l ÚÄÄÄÄ( $+ $c3 lusers $+ $c1 $+ )ÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄ-- ÄÄÄÄÄÂÄÄÄÄÄÄ - ÄÄÄÄÄÄÄÄ¿
n454= %l ³ $+ $c3 $+ $_align(15,Total users) ³ $_l(%luser.total) ³ $+ $c3 $+ $_align(15,Invisible) ³ $_l(%luser.invis) ³
n455= %l ³ $+ $c3 $+ $_align(15,Servers) ³ $_l(%luser.servs) $chr(124) $+ $c3 $+ $_align(15,IRC Ops) ³ $_l(%luser.opers) ³
n456= %l ³ $+ $c3 $+ $_align(15,Unknown) ³ $_l(%luser.unknw) : $+ $c3 $+ $_align(15,Channels) ³ $_l(%luser.chans) ³
n457= %l : $+ $c3 $+ $_align(15,Clients) ³ $_l(%luser.clnts) ³ $+ $c3 $+ $_align(15,Local servers) ³ $_l(%luser.lcsrv) ³
n458= %l : $+ $c3 $+ $_align(15,Local users) ³ $_l(%luser.lcusr) ³ $+ $c3 $+ $_align(15,Max local users) ³ $_l(%luser.mxusr) :
n459= %l ³ $+ $c3 $+ $_align(15,Global users) ³ $_l(%luser.guser) ³ $+ $c3 $+ $_align(15,Max global) ³ $_l(%luser.mgusr) ³
n460= %l ÀÄÄÄÄÄÄ $+ $c3 $+ -- $+ $c1 $+ ÄÄÄÄÄÄÄÄÁÄÄ - ÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄ- $+ $c5 $+ - $+ $c1 $+ ÄÄÄÄÄÄÄÄÄÄÙ
n461= }
n462= unset %luser.*
n463=}
n464=alias -l _l return $align(15,$replace($1,$null,n/a))
n465=alias -l l2 return $replace($1-,$null,n/a)
n466=#wircsrv on
n467=raw 999:*:{
n468= if (%_slag) { %slag = $sub($ctime,%_slag) | unset %_slag | tbar }
n469= elseif ($format(raw_unknown_command,$2)) _echo $ifmatch
n470= else iecho Error: $+ $c3 / $+ $lower($2) is an unknown command.
n471= halt
n472=}
n473=#wircsrv end
n474=raw *:*:{
n475= if (($_motd) && (%connection.status == ACTIVE)) {
n476= if (($_network == IRCNet) && ($numeric == 377)) halt
n477= if (($numeric == 375) || ($numeric == 372)) halt
n478= if ($numeric == 376) { unset %connection.status | _lusers | halt }
n479= }
n480= if ((($numeric isnum 600-605) || ($istok(607-328,$numeric,45))) && (dal.net isin $server)) halt
n481= if (($numeric isnum 605-606) && ($numeric isnum 321-323) && ($numeric isnum 364-365)) halt
n482= if (($numeric == 471) || ($numeric isnum 473-475)) joinfail $numeric $2
n483=}
n484=;EOF