[aliases]
n0=aidle .timer.anti.idle 0 30 .quote PRIVMSG $!me :
ANTI-IDLE

n1=ascii var %i = 1, %a, %len = $len($1-) | while (%i <= %len) { var %a = %a $align(3,$replace($mid($1-,%i,1),$chr(32),))  $+ $c1 $+ ( $+ $_align(4,$asc($mid($1-,%i,1))) $+  $+ $c1 $+ ) | if (4 // %i) { echo -a %a | var %a } | inc %i } | if (%a) echo -a %a
n2=basic_exit var %text = Close all instances of Basic? $crlf $iif($1 == -all,[Including this one]) | if ($_cnfrm(%text)) _bexit $1
n3=_bexit {
n4=  var %mb = 1
n5=  while ($isdde($bind(mIRCbasic,%mb))) {
n6=    if ($bind(mIRCbasic,%mb) != $ddename) .dde $ifmatch command "" /exit
n7=    inc %mb
n8=  }
n9=  if ($1 == -all) exit
n10=}
n11=checkdccs if ($window(@DCC Status) == $null) { unset %dcc.* | .timerDCC off } | else dccstats
n12=dccstats {
n13=  var %w = @DCC Status
n14=  if ($dccs == 0) { if ($window(%w) == $null) iecho No active DCC's | return }
n15=  if (($i(display,dcc) == echo) && (%TempDCCStats != $true) && ($window(%w) == $null)) { dccecho | halt }
n16=  var %winstat = $mwin(400,200) 400 200
n17=  if ($window(%w) == $null) {
n18=    window -kl -t6,15,25,35,50,60,70 +ftns %w $winpos(%w,%winstat) %w $winfont(%w)
n19=    clear %w
n20=    aline %w Type $chr(9) Nick $chr(9) Status $chr(9) Size $chr(9) Name $chr(9) Sent/Rcvd $chr(9) Speed $chr(9) Time Left
n21=  }
n22=  else dline %w 2-
n23=  aline -c $+ $colour(back) %w -
n24=  %dcc.total = $dccs
n25=  %x = 1
n26=  while ($chat(%x)) {
n27=    aline %w CHAT $chr(9) $chat(%x) $chr(9) $chat(%x).status $chr(9) -- $chr(9) -- $chr(9) -- $chr(9) -- $chr(9) --
n28=    inc %x
n29=  }
n30=  %x = 1
n31=  while ($send(%x)) {
n32=    var %stmp = $chr(9) $eta($send(%x).size,$send(%x).sent,$send(%x).cps)
n33=    aline %w SEND $chr(9) $send(%x) $chr(9) $send(%x).status $chr(9) $_bytes($send(%x).size) $chr(9) $send(%x).file $chr(9) $send(%x).pc $+ [ $chr(37) ] $chr(9) $cps2kb($send(%x).cps) %stmp
n34=    inc %x
n35=  }
n36=  %x = 1
n37=  while ($get(%x)) {
n38=    var %gtmp = $chr(9) $eta($get(%x).size,$get(%x).rcvd,$get(%x).cps)
n39=    aline %w GET $chr(9) $get(%x) $chr(9) $get(%x).status $chr(9) $_bytes($get(%x).size) $chr(9) $get(%x).file $chr(9) $get(%x).pc $+ [ $chr(37) ] $chr(9) $cps2kb($get(%x).cps) %gtmp
n40=    inc %x
n41=  }
n42=  %x = 1
n43=  while ($fserv(%x)) {
n44=    aline %w FSERV $chr(9) $fserv(%x) $chr(9) $fserv(%x).status $chr(9) -- $chr(9) -- $chr(9) -- $chr(9) -- $chr(9) --
n45=    inc %x
n46=  }
n47=  .timerDCC 1 5 checkdccs
n48=}
n49=; /import -n|-u|-b filename
n50=import {
n51=  if ($1 == -n) {
n52=    set %.importfile $$dir="Select mirc.ini to import notify settings from" *.ini
n53=    if ($nopath(%.importfile) != mirc.ini) { s.err You must select mirc.ini | halt }
n54=    if (%.importfile == $mircini) { s.err Same mirc.ini selected. | halt }
n55=    window -hl @_notify
n56=    loadbuf -tnotify @_notify " $+ %.importfile $+ "
n57=    var %t = $line(@_notify,0), %i = 1
n58=    while ($line(@_notify,%i)) {
n59=      .notify $gettok($ifmatch,2,61)
n60=      inc %i
n61=    }
n62=    close -@ @_notify
n63=    iecho Notify list updated
n64=  }
n65=  elseif ($1 == -u) {
n66=    set %.importfile $$dir="Select remote.ini to import userlist from" *.ini
n67=    if ($nopath(%.importfile) != remote.ini) { s.err You must select remote.ini | halt }
n68=    var %.tmp = $mircdir $+ sys\remote.ini
n69=    if (%.importfile == %.tmp) { s.err Same file selected. | halt }
n70=    var %.import.ulist = $nofile(%.importfile) $+ userlist.ini
n71=    var %.import.ulist = $shortfn(%.import.ulist)
n72=    import.users %.importfile $+ $chr(124) $+ %.import.ulist
n73=  }
n74=  elseif ($1 == -b) {
n75=    set %.importfile $$dir="Select main.ini to import" *.ini
n76=    if ($nopath(%.importfile) != main.ini) { s.err You must select main.ini | halt }
n77=    var %.tmp = $mircdir $+ sys\main.ini
n78=    if (%.importfile == %.tmp) { s.err Same file selected. | halt }
n79=    .copy -o " $+ %.importfile $+ " sys\main.ini
n80=    iecho Script settings updated
n81=  }
n82=  elseif ($1 == -a) {
n83=    set %.importfile $$dir="Select botlist.ini to import" *.ini
n84=    if ($nopath(%.importfile) != botlist.ini) { s.err You must select botlist.ini | halt }
n85=    var %.tmp = $mircdir $+ sys\botlist.ini
n86=    if (%.importfile == %.tmp) { s.err Same file selected. | halt }
n87=    .copy -a " $+ %.importfile $+ " sys\botlist.ini
n88=    iecho Eggdrop bot list updated
n89=  }
n90=}
n91=; /import.users importfile|secondfile
n92=import.users {
n93=  var %file.1 = $gettok($1-,1,124), %file.2 = " $+ $gettok($1-,2-,144) $+ "
n94=  var %check = $mircdir $+ sys\remote.ini
n95=  var %same = $iif((%file.1 == %check),$true,$false), %ftmp = $nofile(%file.1) $+ idents.ini
n96=  if ($_isfile(%ftmp)) { window -h @vcheck | filter -fw %ftmp @vcheck *=basic.ver* | if ($filtered) { var %l = $gettok($line(@vcheck,1),3,32) | if ((%l == 3.5) || (%l == $basic.ver)) { s.err You are attempting to import from almost the same version. Just move the remote.ini to your $mircdir $+ sys\ to import. | window -c @vcheck | halt } } | window -c @vcheck }
n97=  window -hl @_users
n98=  loadbuf -tusers @_users " $+ %file.1 $+ "
n99=  var %i = 1, %t = $line(@_users,0)
n100=  while ($line(@_users,%i)) {
n101=    var %l = $ifmatch
n102=    if ((%l) && (;* !iswm $gettok(%l,2,61))) {
n103=      var %level = $gettok($gettok(%l,2,61),1,58), %host = $gettok($gettok(%l,2,61),2,58)
n104=      if (%level == 40) {
n105=        %.chan = $readini -n %file.2 ChanOps %host
n106=        if (%.chan == $null) %.chan = *
n107=        %.pass = $readini -n %file.2 Passwords %host
n108=        if (%.pass == $null) %.pass = changeme
n109=        if (%same) .ruser %host        
n110=        .adduser +ocsxuiv %host %.chan %.pass
n111=      }
n112=      elseif (%level == 30) {
n113=        %.chan = $readini -n %file.2 Friends %host
n114=        if (%.chan == $null) %.chan = *
n115=        if (%same) .ruser %host
n116=        .adduser +csxiv %host %.chan changeme
n117=      }
n118=      elseif (%level == 5) {
n119=        %.chan = $readini -n %file.2 Shit %host
n120=        if (%.chan == $null) %.chan = *
n121=        %.why = $readini -n %file.2 Shitreasons %host
n122=        if (%same) .ruser %host
n123=        .addshit 3 %host %.chan %.why
n124=      }
n125=    }
n126=    inc %i
n127=  }
n128=  close -@ @_users
n129=  _ultag
n130=  if ($show) iecho Userlist updated
n131=}
n132=_ultag {
n133=  if ($isid) return $readini -n $_mircini about ulist_import
n134=  writeini $_mircini about ulist_import TRUE
n135=}
n136=getwindir {
n137=  write -c gwd.bat echo % $+ WINDIR% > windir.$$$
n138=  write gwd.bat @echo off
n139=  write gwd.bat cls
n140=  run -n gwd.bat
n141=  .timer 1 2 getwindir2
n142=}
n143=getwindir2 {
n144=  _set main windir $read -nl1 windir.$$$
n145=  .timer 1 2 .remove windir.$$$
n146=  .remove gwd.bat 
n147=}
n148=windir var %w = $i(main,windir) | if ($len($1)) return %w $+ $1 | return %w
n149=match {
n150=  window -c @Scan
n151=  set -u %.w $mwin(500,300) 500 300
n152=  window -hlk -t10,50,30 @Scan $winpos(@Scan,%.w) @Scan $winfont(@Scan,Arial 11)
n153=  aline @Scan Nick $chr(9) Address $chr(9) In Channels
n154=  aline @Scan $x
n155=  var %match.tmp = $1, %match.cmd = titlebar @Scan -
n156=  if ($1 == -s) { var %match.tmp = $2, %match.cmd = msg $active | window -c @Scan }
n157=  if ($1 == -e) { var %match.tmp = $2, %match.cmd = iecho | window -c @Scan }
n158=  if (* !isin %match.tmp) var %match.tmp = * $+ %match.tmp $+ *
n159=  iecho Searching for matches of %match.tmp
n160=  var %match.found = $ial(%match.tmp,0), %match.w = 1
n161=  %match.cmd Searching for %match.tmp
n162=  while ($ial(%match.tmp,%match.w)) {
n163=    var %match.tnick = $ial(%match.tmp,%match.w).nick
n164=    if ($window(@Scan)) {
n165=      setcomchans %match.tnick
n166=      aline @Scan %match.tnick $chr(9) $ial(%match.tmp,%match.w).addr $chr(9) $_comchan($ial(%match.tmp,%match.w).nick)
n167=    }
n168=    else {
n169=      var %match.tmp2 = $align(10,$mid(%match.tnick,1,9))
n170=      if (msg isin %match.cmd) var %match.tmp2 = $replace(%match.tmp,ÿ, )
n171=      var %match.t2 = $remove(%match.tmp,*)
n172=      %match.cmd %match.tmp2  $+ $c1 $+ ( $+ $replace($ial(%match.tmp,%match.w).addr,%match.t2,%match.t2) $+  $+ $c1 $+ ) in $_comchan($ial(%match.tmp,%match.w).nick)
n173=    }
n174=    inc %match.w
n175=  }
n176=  if (%match.found == 0) {
n177=    window -c @Scan
n178=    if (msg* iswm %match.cmd) %match.cmd No matches found for %match.tmp
n179=    else iecho No matches found for %match.tmp
n180=  }
n181=  else {
n182=    %match.cmd Found %match.found match(es) for %match.tmp
n183=    if ($window(@Scan)) window -warb @Scan
n184=  }
n185=}
n186=rehash {
n187=  if (($i(colors,n0) == $null) || ($numtok($i(colors,n0),44) < 5)) _set colors n0 10,04,16,11,14
n188=  if ($i(colors,n1) == $null) _set colors n1 default
n189=  if ($i(display,ascii) == $null) _set display ascii high
n190=  _2 display font Terminal
n191=  .display - $+ $left($i(display,ascii),1) $i(display,font)
n192=  _remfonts
n193=  if ($_pp(optn) == $null) _set personal optn 0,0,0,0,0,0
n194=  if ($istok(Moderate.Strict.Lenient.Ignore all,$i(ctcps,adcc),46) == $false) _set ctcps adcc Moderate
n195=  _2 awaysettings logging on
n196=  _2 awaysettings pager on
n197=  _2 awaysettings autoaway on
n198=  _2 awaysettings automins 10
n199=  _2 awaysettings autosecs 600
n200=  _2 ctcps ignore_time 60
n201=  _2 ctcps rejectkick off
n202=  _2 ctcps rejectswitch off
n203=  _2 ctcps outgoing active
n204=  _2 ctcps incoming active
n205=  _2 ctcps ctcp_abuse off
n206=  _2 ctcps ignore_type 2
n207=  _2 spam toggle off
n208=  _2 sounds toggle off
n209=  _ autobot off
n210=  _ shownames on
n211=  _ showsynch on
n212=  _ showtopic on
n213=  _ showstats on
n214=  _ botnet_join on
n215=  _ botnet_notice off
n216=  _ botnet_nick on
n217=  _ botnet_public off
n218=  _ maxbotjoin 7
n219=  _ maxbotnick 10
n220=  _ maxbotnotice 10
n221=  _ maxbotpublic 30
n222=  _ maxrepeat 5
n223=  _ maxctcp 5
n224=  _ maxtext 8
n225=  _ maxnick 4
n226=  _ maxnotices 5
n227=  _ maxjoins 9
n228=  _ maxdeop 0
n229=  _ maxkick 0
n230=  _ maxban 0
n231=  _ repeat_time 10
n232=  _ ctcp_time 10
n233=  _ text_time 10
n234=  _ nick_time 10
n235=  _ notices_time 10
n236=  _ joins_time 10
n237=  _ deop_time 15
n238=  _ kick_time 0
n239=  _ ban_time 0
n240=  _ kickonban on
n241=  _ longword off
n242=  _ capskick on
n243=  _ maxcaps 400
n244=  _ clonejoin on
n245=  _ maxclones 7
n246=  _ clonepenalty kban
n247=  _ maxlength 300
n248=  _ sreq off
n249=  _ autosend off
n250=  _ maxkicked 4
n251=  _ kickedmaxtime 120
n252=  _ bankickeduser off
n253=  _ autojoin off
n254=  _ ctcpcloaking off
n255=  _ operview off
n256=  _ nethack 0
n257=  _ defchannum 45
n258=  _ nickregain off
n259=  _ wordkick off
n260=  _ nickkick off
n261=  var %tmp = $readini -n $_mircini ident userid
n262=  .identd on $iif(%tmp,%tmp,basic)
n263=  if (%split.jump) unset % [ $+ [ $ifmatch ] ]
n264=  if (%DefaultKickMessage == $null) set %DefaultKickMessage &nick& has left &chan&
n265=  unset %allowed.umodes %ExitQuit %^* %_* %ibl.* %c.n %z.* %who.win %raw.whoresults %tmp %temp %max.* %ctcp.* %sound %showcomchan.*
n266=  unset %.* %#*.bots %luser.* %tmp.* %temp?.* %*.tmp %*.temp %*.temp? %=comchan.* %temp.* %who.head %reject.* %repeat.count.*
n267=  unset %:s %:f %tmp %split.jump %nc.chan %dns.host %nc.nick %slag 6 %a %b %c %d %e %f %g %h %i %j %k %l %m %n %o %p %q %r %s %t %u %v %w %x %y %z %send2ip.*
n268=  unset %netsplitfile.* %amp.* %massping* %nameshow_II.* %s.tmp %server.version %tmp_switch | countsoundfiles
n269=  flushini sys\main.ini
n270=}
n271=relwin if ($__var(last.,$1)) { if (($active ischan) || ($query($active)) || ($chat($remove($active,=)).status == active)) return 1 }
n272=rel relay $iif($2,$2,$active) $1
n273=relay {
n274=  if ($relwin($2)) {
n275=    var %relay = $__var(last.,$2)
n276=    if ($format($2,%relay)) msg $1 $ifmatch
n277=    else {
n278=      var %type = $2, %targ = msg $1
n279=      tokenize 32 %relay
n280=      if (%type == relsm) %targ -> * $+ $1 $+ * $2-
n281=      if (%type == relsn) %targ -> - $+ $1 $+ - $2-
n282=      if (%type == reln) %targ - $+ $1 $+ - $2-
n283=      if (%type = relm) %targ < $+ $1 $+ > $2-
n284=      if (%type == relsc) %targ $chr(91) $+ $1 $+ $chr(93) $2-
n285=      ;/set %last.relq $nick $address $1-
n286=      if (%type == relc) %targ $chr(91) $+ $1 $3- $+ $chr(93)
n287=      ;relcr $nick $address $1 %last.relcr
n288=      if (%type == relcr) %targ $chr(91) $+ $1 $3 reply]: $4-
n289=      ;relq *** drue has quit IRC (Read error: 0 (Undefined error: 0))
n290=      ; $1 = nick, $2 = address, $3 = quit message
n291=      if (%type == relq) %targ *** $1 has quit IRC ( $+ $3- $+ )
n292=    }
n293=  }
n294=}
n295=relc rel relc $1
n296=relcr rel relcr $1
n297=relm rel relm $1
n298=reln rel reln $1
n299=relq rel relq $1
n300=relsc rel relsc $1
n301=relsm rel relsm $1
n302=relsn rel relsn $1
n303=startup_add {
n304=  var %i = 1
n305=  while (%i <= 10) {
n306=    if ($__var(StartUp.,%i) == $null) {
n307=      if (($_isfile($1-) == $null) && ((http:* !iswm $1-) && (ftp:* !iswm $1-))) { .timer -m 1 0 startup_cnfrm %i $1- | halt }
n308=      else { startup_store %i $1- | break }
n309=    }
n310=    inc %i
n311=  }
n312=}
n313=startup_cnfrm { if ($_cnfrm( [ $2- ] does not seem to exist.&crlf;Do you want to add anyway?&crlf;Hint: When adding URLs, prefix them with http:// or ftp://)) startup_store $1- }
n314=startup_store { set %StartUp. $+ $1 $2- | if ($dialog(sl)) { did -a sl 6 $2- | did -r sl 3 } }
n315=startup_browse var %tmp = $dir="Select a program file to add" \*.exe | if ($dialog(sl)) { if (%tmp) did -a sl 3 %tmp | dialog -v sl }
n316=startup_rem {
n317=  var %i = 1
n318=  while (%i <= 10) {
n319=    if ($__var(StartUp.,%i) == $1-) {
n320=      unset %StartUp. [ $+ [ %i ] ]
n321=      if ($didwm(sl,6,$1-)) did -d sl 6 $ifmatch
n322=      break
n323=    }
n324=    inc %i
n325=  }
n326=}
n327=startup_start {
n328=  var %x = 1 | while ($isdde($bind(mIRCbasic,%x)) == $true) { inc %x | continue } | .ddeserver on $bind(mIRCbasic,%x)
n329=  if (%x == 1) { var %i = 1 | while (%i <= 10) { if ($__var(StartUp.,%i)) run -n $ifmatch | inc %i } }
n330=}
n331=umod {
n332=  if ($left($1,1) isin +-) var %umod.pre = : $+ $ifmatch, %.cumod = $mid($1,2,$len($1))
n333=  elseif ($1 isletter) var %umod.pre = :+, %.cumod = $1
n334=  else return
n335=  var %.checkumode = $iif(%umod.pre == :+,%allowed.umodes,$remove($usermode,+)), %.newmodes, %umod.var = 1
n336=  while (%umod.var <= $len(%.cumod)) {
n337=    if ($mid(%.cumod,%umod.var,1) isincs %.checkumode) %.newmodes = %.newmodes $+ $mid(%.cumod,%umod.var,1)
n338=    inc %umod.var
n339=  }
n340=  if (%.newmodes) .raw MODE $me %umod.pre $+ $ifmatch $2-
n341=}
n342=umode umod $1-
n343=whois.disp2 {
n344=  var %Echo = $iif((($_mopt(2,26)) && (@* !iswm $active)),echo -atli,echo -slti)
n345=  bind  $c1 Ú $c4 Ä( $c3 whois $c1 )ÄÄÄÄÄÄ $c4 Ä $c1 ÄÄ-ÄÄ--ÄÄÄÄ $c4 ÄÄÄÄÄÄÄÄÄÄÄÄ- $c1 - $c4 Ä $c1 Ä $c4 -
n346=  %Echo $result
n347=  %Echo $bind(,$c1,|,$c3) %whois.nick  $+ $c1 $+ ( $+ $c5 $+ $replace(%whois.uhost,@,$bind(,$c1,@,$c5)) $+  $+ $c1 $+ ) [ $+ $c3 $+ %whois.ccode $+  $+ $c1 $+ ]
n348=  %Echo  $+ $c1 $+ ³ $+ $c5 ircname  $+ $c4 $+ : $ansi2mirc(%whois.wname)
n349=  if (%whois.chan) {
n350=    if ($len($strip(%whois.chan)) < 60) %Echo  $+ $c1 $+ ³ $+ $c5 channels $+  $+ $c4 $+ : %whois.chan
n351=    else {
n352=      %Echo  $+ $c1 $+ ³ $+ $c5 channels $+ $c4 $+ : $wordwrap(1,60,%whois.chan)
n353=      var %c.var = 2
n354=      while ($wordwrap(%c.var,60,%whois.chan)) {
n355=        var %.ctmp = $ifmatch
n356=        %Echo  $+ $c1 $+ ³ $x(7)  $+ $c4 $+ : %.ctmp
n357=        inc %c.var
n358=      }
n359=    }
n360=  }
n361=  %Echo  $+ $c1 $+ ³ $+ $c5 server   $+ $c4 $+ : $wordwrap(1,60,%whois.serv)
n362=  var %w.var = 2
n363=  while ($wordwrap(%w.var,60,%whois.serv)) {
n364=    var %s = $ifmatch
n365=    %Echo  $+ $c1 $+ ³ $+ $c4 $x(7)  $+ $c4 $+ : %s
n366=    inc %w.var
n367=  }
n368=  if (%whois.away) {
n369=    %Echo  $+ $c1 $+ | $+ $c5 away $x(2)  $+ $c4 $+ : $wordwrap(1,60,%whois.away)
n370=    var %t = 2
n371=    while ($wordwrap(%t,60,%whois.away)) {
n372=      var %.wa = $ifmatch
n373=      %Echo  $+ $c1 $+ ³ $x(7)  $+ $c5 $+ : %.wa
n374=      inc %t
n375=    }
n376=  }
n377=  if (%whois.idle) {
n378=    if (seconds !isin $gettok(%whois.idle,3,32)) %Echo  $+ $c1 $+ ³ $+ $c5 idle $x(2)  $+ $c4 $+ : $duration(%whois.idle)
n379=    else %Echo  $+ $c1 $+ ³ $+ $c5 idle $x(2)  $+ $c4 $+ : $duration($gettok(%whois.idle,1,32))  $+ $c1 $+ ( $+ $c5 $+ sign on $+ $c4 $+ : $asctime($gettok(%whois.idle,2,32)) $+  $+ $c1 $+ )
n380=  }
n381=  if (%whois.oper) %Echo  $+ $c1 $+ ³ $+ $c5 %whois.oper
n382=  %Echo  $+ $c1 $+ ÀÄ $+ $c4 $+ Ä $+ $c1 $+ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ $+ $c5 $+ ÄÄ $+ $c1 $+ - $+ $c4 $+ Ä $+ $c1 $+ ÄÄÄÄÄ $+ $c4 -- $+ $c1 $+ --
n383=}
n384=wi .raw WHOIS $$1 $1 
n385=ww whowas $$1 $2-
n386=_botnetfld {
n387=  if ($i(main,$bind(botnet_,$1)) != on) return
n388=  _botnetfld² $1
n389=  if ($_fldnet($1)) {
n390=    var %:s = $i(main,$bind($1,.botnetignoretime))
n391=    if (%s: !isnum) var %:s = 30
n392=    var %:f = $replace($1,nick,nick changes,text,channel text,notice,notices,join,joins,invite,invites)
n393=    if ($1 == CTCP) _fnig t %:s
n394=    elseif ($1 == invite) {
n395=      _fnig i %:s
n396=      if ($2) gkb $2 Invite flood
n397=    }
n398=    elseif ($1 == notices) {
n399=      _fnig n %:s
n400=      if ($me isop $3) fkb $3 $2 Notice flood
n401=    }
n402=    elseif ($1 == text) {
n403=      _fnig c %:s
n404=      if ($me isop $3) {
n405=        .raw MODE $3 +m
n406=        fkb $3 $2 Public flood
n407=      }
n408=    }
n409=    else {
n410=      set $bind(-u,%:s) $_var(botnet.ignore.,$1) ACTIVE
n411=      if (($1 == join) && ($me isop $3)) {
n412=        .raw MODE $3 +i
n413=        fkb $3 $2 Join flood
n414=      }
n415=      elseif ($2) gkb $2 $1 flood
n416=    }
n417=    iecho Possible $remove($1,s) flood detected from multiple sites. Ignoring all %:f for %:s seconds.
n418=  }
n419=}
n420=_botnetfld² if ( %botnet.ignore. [ $+ [ $1 ] ] == ACTIVE) halt
n421=_hchat { var %c = 1 | while ($chat(%c)) { window $1 = $+ $chat(%c) | inc %c } }
n422=_hsend { var %i = $send(0) | while (%i) { window $1 "Send $send(%i) $send(%i).file $+ " | dec %i } }
n423=_hget { var %i = $get(0) | while (%i) { window $1 "Get $get(%i) $get(%i).file $+ " | dec %i } }
n424=_winbug return $iif((CON\ isin $1- || NUL isin $1- || AUX isin $1- || CLOCK$ isin $1- || CONFIG$ isin $1-),$true,$false)
n425=_loaddefaults {
n426=  var %check1 = $read -ns[Strict] sys\main.ini, %check2 = $read -ns[Normal] sys\main.ini, %check3 = $read -ns[Lenient] sys\main.ini
n427=  if ((%check1 == $null) || (%check2 == $null) || (%check3 == $null)) {
n428=    var %com = write -a sys\main.ini
n429=    %com [Strict]
n430=    %com DefBanType=12
n431=    %com nethack=1
n432=    %com longword=on
n433=    %com kickonban=on
n434=    %com capskick=on
n435=    %com clonejoin=on
n436=    %com clonepenalty=kban
n437=    %com nickkick=on
n438=    %com wordkick=on
n439=    %com bankickeduser=on
n440=    %com exempted.users=1.0.0.0
n441=    %com maxcaps=7
n442=    %com maxlength=80
n443=    %com maxclones=3
n444=    %com maxkicked=3
n445=    %com kickedmaxtime=60
n446=    %com maxrepeat=3
n447=    %com maxtext=4
n448=    %com maxnotices=3
n449=    %com maxdeop=3
n450=    %com maxban=3
n451=    %com repeat_time=10
n452=    %com text_time=10
n453=    %com notices_time=10
n454=    %com deop_time=10
n455=    %com ban_time=10
n456=    %com repeat.bantime=300
n457=    %com ctcp.bantime=600
n458=    %com text.bantime=300
n459=    %com nick.bantime=900
n460=    %com notices.bantime=300
n461=    %com joins.bantime=900
n462=    %com deop.bantime=300
n463=    %com kick.bantime=300
n464=    %com ban.bantime=300
n465=    %com nickkick.bantime=600
n466=    %com wordkick.bantime=600
n467=    %com invite.bantime=600
n468=    %com capskick.bantime=300
n469=    %com longword.bantime=300
n470=    %com maxctcp=4
n471=    %com maxnick=3
n472=    %com maxjoins=3
n473=    %com maxkick=3
n474=    %com ctcp_time=10
n475=    %com nick_time=10
n476=    %com joins_time=10
n477=    %com kick_time=10
n478=    %com [Normal]
n479=    %com DefBanType=3
n480=    %com nethack=0
n481=    %com longword=on
n482=    %com kickonban=off
n483=    %com capskick=on
n484=    %com clonejoin=on
n485=    %com clonepenalty=kick
n486=    %com nickkick=on
n487=    %com wordkick=on
n488=    %com bankickeduser=on
n489=    %com exempted.users=1.0.1.0
n490=    %com maxcaps=10
n491=    %com maxlength=100
n492=    %com maxclones=4
n493=    %com maxkicked=4
n494=    %com kickedmaxtime=120
n495=    %com maxrepeat=5
n496=    %com maxtext=5
n497=    %com maxnotices=5
n498=    %com maxdeop=4
n499=    %com maxban=4
n500=    %com repeat_time=10
n501=    %com text_time=15
n502=    %com notices_time=10
n503=    %com deop_time=15
n504=    %com ban_time=15
n505=    %com repeat.bantime=120
n506=    %com ctcp.bantime=300
n507=    %com text.bantime=120
n508=    %com nick.bantime=120
n509=    %com notices.bantime=0
n510=    %com joins.bantime=300
n511=    %com deop.bantime=60
n512=    %com kick.bantime=60
n513=    %com ban.bantime=60
n514=    %com nickkick.bantime=180
n515=    %com wordkick.bantime=180
n516=    %com invite.bantime=300
n517=    %com capskick.bantime=120
n518=    %com longword.bantime=120
n519=    %com maxctcp=5
n520=    %com maxnick=5
n521=    %com maxjoins=5
n522=    %com maxkick=4
n523=    %com ctcp_time=10
n524=    %com nick_time=15
n525=    %com joins_time=10
n526=    %com kick_time=15
n527=    %com [Lenient]
n528=    %com DefBanType=2
n529=    %com nethack=0
n530=    %com longword=on
n531=    %com kickonban=off
n532=    %com capskick=on
n533=    %com clonejoin=on
n534=    %com clonepenalty=warn
n535=    %com nickkick=off
n536=    %com wordkick=off
n537=    %com bankickeduser=off
n538=    %com exempted.users=1.1.1.1
n539=    %com maxcaps=30
n540=    %com maxlength=300
n541=    %com maxclones=3
n542=    %com maxkicked=4
n543=    %com kickedmaxtime=120
n544=    %com maxrepeat=5
n545=    %com maxtext=8
n546=    %com maxnotices=7
n547=    %com maxdeop=0
n548=    %com maxban=0
n549=    %com repeat_time=15
n550=    %com text_time=10
n551=    %com notices_time=10
n552=    %com deop_time=0
n553=    %com ban_time=0
n554=    %com repeat.bantime=60
n555=    %com ctcp.bantime=300
n556=    %com text.bantime=0
n557=    %com nick.bantime=120
n558=    %com notices.bantime=0
n559=    %com joins.bantime=300
n560=    %com deop.bantime=0
n561=    %com kick.bantime=0
n562=    %com ban.bantime=0
n563=    %com nickkick.bantime=180
n564=    %com wordkick.bantime=180
n565=    %com invite.bantime=300
n566=    %com capskick.bantime=60
n567=    %com longword.bantime=60
n568=    %com maxctcp=5
n569=    %com maxnick=7
n570=    %com maxjoins=5
n571=    %com maxkick=0
n572=    %com ctcp_time=15
n573=    %com nick_time=15
n574=    %com joins_time=15
n575=    %com kick_time=0
n576=  }
n577=}
n578=; eof

[script]
n0=; backup
n1=alias backup backupwindow
n2=alias _backup {
n3=  if ($window(@Backup) == $null) backupwindow
n4=  var %total = 0
n5=  if (%backup.win.file iswm *.ini) { .load -rs sys\dialog.ini | inc %total }
n6=  var %h = 1, %alias = 0 | while ($script(%h)) { if (%backup.win.file iswm $ifmatch) inc %total | inc %h }
n7=  %h = 1 | while ($alias(%h)) { if (%backup.win.file iswm $ifmatch) inc %total | inc %h }
n8=  %z = 1 | var %i = 1 | while ($alias(%i)) { backup.do %total $ifmatch | inc %i }
n9=  %i = 1 | while ($script(%i)) { backup.do %total $ifmatch | inc %i }
n10=  if (%backup.win.file iswm *.ini) .copy -o " $+ $mircdir $+ sys\popups.ini" " $+ [ %backup.win.defaultpath ] $+ popups.ini"
n11=  .timerBackuptbar 1 1 titlebar @Backup - Closing... please wait
n12=  if ($script(dialog.ini)) .unload -rs $ifmatch
n13=  .timerBackup 1 3 window -c @Backup
n14=  %backup.closing = $true
n15=  unset %backup.win.*
n16=}
n17=; /backup.do current total filename
n18=alias -l backup.do {
n19=  if (%backup.win.file !iswm $2-) return | inc %z
n20=  .copy -o " $+ $2- $+ " " $+ %backup.win.defaultpath $+ $nopath($2-) $+ "
n21=  var %perc = $percent(%z,$1)
n22=  drawrect -f @Backup 2 1 31 111 $calc(243 * ($int($remove(%perc,%)) / 100)) 13
n23=  titlebar @Backup - $int(%perc) $+ %
n24=}
n25=alias backupwindow {
n26=  ;if ($server) { s.err WARNING: Please leave all channels, and disconnect from IRC when attempting to back-up files to prevent corrupted files! | halt }
n27=  if ($_cnfrm(Continue back-up? This will close other instances of Basic and part all channels and disconnect from IRC for safety reasons.) == $false) halt
n28=  if ($server) disconnect | partall | _bexit -exempt
n29=  window -fpk +tn @Backup $mwin(300,160) 300 160 @Backup
n30=  drawrect -rnf @Backup $rgb(face) 0 0 0 $window(@Backup).w $window(@Backup).h
n31=  drawtext -rn @Backup $rgb(text) "MS Sans Serif" 14 10 13 Backup dir:
n32=  %backup.win.ok = $leftbutton(@Backup,75) $ypos(@Backup,25) 75 25
n33=  %backup.win.cancel = $rightbutton(@Backup,3) $ypos(@Backup,25) 75 25
n34=  %backup.win.dir = 70 8 200 25
n35=  %backup.win.defaultpath = $backupdir
n36=  %backup.win.file = *.ini
n37=  %backup.closing = $false
n38=  bd -h @Backup %backup.win.ok Backup
n39=  bd -h @Backup %backup.win.cancel Close
n40=  bd -h @Backup %backup.win.dir $short(%backup.win.defaultpath,25)
n41=  drawradio @Backup 70 50 on Backup loaded .ini files only.
n42=  drawradio @Backup 70 70 Backup loaded .mrc files only.
n43=  drawradio @Backup 70 90 Backup all loaded files.
n44=  3d -rn @Backup $rgb(shadow) $rgb(hilight) 30 110 245 15
n45=  drawdot @Backup
n46=}
n47=menu @Backup {
n48=  sclick:{
n49=    if (%backup.closing) halt
n50=    if ($inr(%backup.win.ok)) depress $active $ifmatch Backup
n51=    if ($inr(%backup.win.dir)) depress $active $ifmatch $short(%backup.win.defaultpath,25)
n52=    if ($inr(%backup.win.cancel)) depress $active $ifmatch Close
n53=    if ($inr(70,50,10,10)) { %backup.win.file = *.ini | drawradio $active 70 50 on | drawradio $active 70 70 off | drawradio $active 70 90 off }
n54=    if ($inr(70,70,10,10)) { %backup.win.file = *.mrc | drawradio $active 70 70 on | drawradio $active 70 50 off | drawradio $active 70 90 off }
n55=    if ($inr(70,90,10,10)) { %backup.win.file = *.* | drawradio $active 70 90 on | drawradio $active 70 50 off | drawradio $active 70 70 off }
n56=  }
n57=  leave:if (%backup.closing) halt | backup.restore 
n58=  uclick:{
n59=    if (%backup.closing) halt
n60=    backup.restore
n61=    if ($inr(%backup.win.ok)) _backup
n62=    if ($inr(%backup.win.dir)) {
n63=      bd -n $active $ifmatch $short(%backup.win.defaultpath,25)
n64=      drawdot $active
n65=      %backup.win.defaultpath = $$sdir="Select a directory to place your backup files"
n66=      if (%backup.win.defaultpath == [ $mircdir [ $+ [ sys\ ] ] ] ) {
n67=        s.err Invalid directory!
n68=        %backup.win.defaultpath = $backupdir
n69=        backup.restore
n70=      }
n71=      else backup.restore
n72=    }
n73=    if ($inr(%backup.win.cancel)) backup.cancel
n74=  }
n75=}
n76=alias backupdir {
n77=  return $mircdir $+ backup\
n78=}
n79=alias -l backup.restore {
n80=  bd -n @Backup %backup.win.ok Backup
n81=  bd -n @Backup %backup.win.cancel Close
n82=  bd -n @Backup %backup.win.dir $short(%backup.win.defaultpath,25)
n83=  drawdot @Backup
n84=}
n85=alias -l backup.cancel {
n86=  unset %backup.win.*
n87=  .timer -m 1 0 window -c @Backup
n88=}
n89=alias -l depress { bd -i $1- | drawdot $1 }
n90=; end backup
n91=on *:MP3END:{
n92=  if (%mp3qfiles) {
n93=    var %mp3end = $gettok($ifmatch,1,124)
n94=    if (%mp3end) {
n95=      _mpxdo %mp3qtarg. [ $+ [ $shortfn(%mp3end) ] ] %mp3end
n96=      unset %mp3qtarg. [ $+ [ $shortfn(%mp3end) ] ]
n97=    }
n98=    %mp3qfiles = $remtok(%mp3qfiles,%mp3end,124)
n99=  }
n100=}
n101=alias volume {
n102=  if (%volume.coords == $null) %volume.coords = $mwin(300,100) 300 100
n103=  if (%volume.bgcolor !isnum 0-15) %volume.bgcolor = 1
n104=  if (%volume.textcolor !isnum 0-15) %volume.textcolor = 0
n105=  if (%volume.fontname == $null) %volume.fontname = "Arial"
n106=  if (%volume.fontsize !isnum) %volume.fontsize = 14
n107=  if (%volume.barcolor !isnum 0-15) %volume.barcolor = 2
n108=  if (%volume.bordercolor !isnum 0-15) %volume.bordercolor = 12
n109=  window -pk +ftn @Volume %volume.coords @Volume
n110=  drawrect -f @Volume %volume.bgcolor 0 0 0 300 100
n111=  drawtext @Volume %volume.textcolor %volume.fontname %volume.fontsize 10 10 MP3/Wave
n112=  drawtext @Volume %volume.textcolor %volume.fontname %volume.fontsize 10 30 Midi
n113=  drawtext @Volume %volume.textcolor %volume.fontname %volume.fontsize 10 50 Master
n114=  drawrect @Volume %volume.bordercolor 1 80 12 120 10
n115=  drawrect @Volume %volume.bordercolor 1 80 32 120 10
n116=  drawrect @Volume %volume.bordercolor 1 80 52 120 10
n117=  %volume.mp3pos = $calc(118 * ($remove($_perc($vol(mp3),65000),%) / 100))
n118=  %volume.midipos = $calc(118 * ($remove($_perc($vol(midi),65000),%) / 100))
n119=  %volume.masterpos = $calc(118 * ($remove($_perc($vol(master),65000),%) / 100))
n120=  drawrect -f @Volume %volume.barcolor 1 81 13 %volume.mp3pos 8
n121=  drawrect -f @Volume %volume.barcolor 1 81 33 %volume.midipos 8
n122=  drawrect -f @Volume %volume.barcolor 1 81 53 %volume.masterpos 8
n123=  drawtext @Volume %volume.textcolor %volume.fontname %volume.fontsize 220 10 Mute
n124=  drawtext @Volume %volume.textcolor %volume.fontname %volume.fontsize 220 50 Mute
n125=  drawmuteboxes
n126=}
n127=alias -l drawmuteboxes {
n128=  drawrect -f @Volume %volume.bgcolor 1 250 13 10 10
n129=  drawrect -f @Volume %volume.bgcolor 1 250 53 10 10
n130=  drawrect @Volume %volume.bordercolor 1 250 13 10 10
n131=  drawrect @Volume %volume.bordercolor 1 250 53 10 10
n132=  if ($vol(mp3).mute) drawtext @Volume %volume.textcolor Marlett 13 248 11 a
n133=  if ($vol(master).mute) drawtext @Volume %volume.textcolor Marlett 13 248 51 a
n134=}
n135=alias -l mute {
n136=  bind - $iif($1 == master,v,$left($1,1)) u $iif($vol($1).mute == 1,2,1)
n137=  vol $result
n138=  drawmuteboxes
n139=}
n140=menu @Volume {
n141=  sclick:{
n142=    if ($inr(250,13,10,10)) mute wave
n143=    if ($inr(250,33,10,10)) mute midi
n144=    if ($inr(250,53,10,10)) mute master
n145=  }
n146=  mouse:{
n147=    if ($mouse.key & 1) {
n148=      if ($inr(80,12,120,10)) _vol mp3 13
n149=      elseif ($inr(80,32,120,10)) _vol midi 33
n150=      elseif ($inr(80,52,120,10)) _vol master 53
n151=    }
n152=  }
n153=  Background...:if ($inputbox(Enter a number between 0 to 15"Volume window background color) isnum 0-15) { %volume.bgcolor = $ifmatch | volume }
n154=  Bar...:if ($inputbox(Enter a number between 0 to 15"Volume progress bar color) isnum 0-15) { %volume.barcolor = $ifmatch | volume }
n155=  Border...:if ($inputbox(Enter a number between 0 to 15"Volume progress bar border color) isnum 0-15) { %volume.bordercolor = $ifmatch | volume }
n156=  Text...:if ($inputbox(Enter a number between 0 to 15"Volume text color) isnum 0-15) { %volume.textcolor = $ifmatch | volume }
n157=  Font...:if ($_vfont != cancel) { %volume.fontname = $ifmatch | %volume.fontsize = %.fontsize | volume }
n158=  -
n159=  Close:window -c $active
n160=}
n161=on *:close:@Volume:%volume.coords = $window($target).x $window($target).y $window($target).w $window($target).h
n162=; stolen from P&P
n163=alias _vfont {
n164=  window -pfh +d @.pickfont 50 50 1 1 cancel 13
n165=  window -a @.pickfont | font
n166=  if ($window(@.pickfont).font == cancel) { window -c @.pickfont | return }
n167=  var %font = $window(@.pickfont).font
n168=  %.fontsize = $window(@.pickfont).fontsize
n169=  window -c @.pickfont | return " $+ %font $+ "
n170=}
n171=; end stolen code
n172=alias _vol {
n173=  if (%volume.vol [ $+ [ $1 ] ] == $null) %volume.vol [ $+ [ $1 ] ] = $vol($1)
n174=  if ($calc($mouse.x - 80) < %volume. [ $+ [ $1 ] $+ ] pos) {
n175=    dec %volume.vol $+ $1 550
n176=    vol $iif($1 == mp3,-w,$iif($1 == midi,-m,-v)) %volume.vol [ $+ [ $1 ] ]
n177=    %volume. [ $+ [ $1 ] $+ ] pos = $calc(118 * ($remove($_perc($vol($1),65000),%) / 100))
n178=    drawrect -f @Volume %volume.bgcolor 1 81 $2 118 8
n179=    drawrect -f @Volume %volume.barcolor 1 81 $2 %volume. [ $+ [ $1 ] $+ ] pos 8
n180=  }
n181=  elseif (($calc($mouse.x - 80) > %volume. [ $+ [ $1 ] $+ ] pos) || ($mouse.x isnum 80-81)) {
n182=    inc %volume.vol $+ $1 550
n183=    vol $iif($1 == mp3,-w,$iif($1 == midi,-m,-v)) %volume.vol [ $+ [ $1 ] ]
n184=    %volume. [ $+ [ $1 ] $+ ] pos = $calc(118 * ($remove($_perc($vol($1),65000),%) / 100))
n185=    drawrect -f @Volume %volume.barcolor 1 81 $2 %volume. [ $+ [ $1 ] $+ ] pos 8
n186=  }
n187=  titlebar $active $upper($1) $+ : $_perc($vol($1),65000)
n188=  .timer.tact 1 1 t.act $active
n189=}
n190=alias -l t.act if ($window($1)) titlebar $1
n191=; end volume
n192=alias vk {
n193=  if (($1 ischan) && ($me isop $1)) { if ($2) _vk $1 $2- | else bhelp vk }
n194=  elseif (($1) && ($me isop $active)) _vk $active $1-
n195=  else bhelp vk
n196=}
n197=alias _vk {
n198=  if ($me !isop $1) { iecho You must have ops to do that. | halt }
n199=  var %i = 1 | while ($nick($1,%i,r)) { var %nick = $ifmatch | set $_var(VersionKick.,%nick) $2- | set $_var(VersionChan.,%nick) $1 | inc %i }
n200=  .ctcp $1 VERSION | iecho Version filtering " $+ $2- $+ "
n201=}
n202=on *:CTCPREPLY:*:{
n203=  if (($__var(VersionKick.,$nick) isin $2-) && ($me isop $__var(VersionChan.,$nick))) kick $__var(VersionChan.,$nick) $nick Version Kick! Use another client!
n204=  unset $_var(VersionChan.,$nick) $_var(VersionKick.,$nick)
n205=}
n206=on *:CONNECT:unset %Last*
n207=on *:TEXT:*:?:set %LastMessage $nick | set %last.relm $nick $1-
n208=on *:OPEN:?:set %LastQuery $nick | set %last.relm $nick $1-
n209=on *:NOTICE:*:*:set %LastNotice $nick | set %last.reln $nick $1-
n210=on *:QUIT:set %last.relq $nick $address $1-
n211=ctcp *:*:*:set %last.relq $nick $address $1-
n212=alias lm if (%LastMessage) editbox -ap /msg $ifmatch
n213=alias lq if (%LastQuery) editbox -ap /query $ifmatch
n214=alias ln if (%LastNotice) editbox -ap /notice $ifmatch
n215=on @*:BAN:#:set $_var(LastBan,$chan) $banmask
n216=on @*:UNBAN:#:set $_var(LastUnban,$chan) $banmask
n217=on @*:RAWMODE:#:set $_var(LastRawMode,$chan) $1-
n218=on @*:JOIN:#:set $_var(LastJoin,$chan) $nick
n219=alias lb { if ($last($active,Ban)) { mode $active -b $ifmatch | unset $_var(LastBan,$active) } }
n220=alias lu { if ($last($active,Unban)) { mode $active +b $ifmatch | unset $_var(LastUnban,$active) } }
n221=alias lj { if ($last($active,Join)) { kb $ifmatch $iif($2,$2-,bye) | unset $_var(LastJoin,$active) } }
n222=alias undo {
n223=  if ($last($active,RawMode)) {
n224=    var %i = 1, %modes = $gettok($ifmatch,1,32), %target = $gettok($ifmatch,2-,32), %newmodes
n225=    while ($mid(%modes,%i,1)) {
n226=      var %tmp = $ifmatch
n227=      if (%tmp == +) %newmodes = %newmodes $+ -
n228=      elseif (%tmp == -) %newmodes = %newmodes $+ +
n229=      else %newmodes = %newmodes $+ %tmp
n230=      inc %i
n231=    }
n232=    mode $active %newmodes %target
n233=    unset $_var(LastRawmode,$active)
n234=  }
n235=}
n236=alias last if (($me isop $1) && ($__var(Last,$2,$1))) return $__var(Last,$2,$1)
n237=;nick completion
n238=alias nc {
n239=  if ($1 ison #) return $1
n240=  var %n = 1, %m
n241=  while ($nick(#,%n)) {
n242=    var %m = $ifmatch
n243=    if ($right(%m,-1) == $1) return %m
n244=    inc %n
n245=  }
n246=  return $1
n247=}
n248=alias nc.ial {
n249=  if ($1 ison #) return $1
n250=  var %n = $1 $+ *
n251=  if ($ialchan(%n,#,1).nick) return $ifmatch
n252=  if ($ial(%n,1).nick) return $ifmatch
n253=  var %n = * $+ $1 $+ *
n254=  if ($ialchan(%n,#,1).nick) return $ifmatch
n255=  if ($ial(%n,1).nick) return $ifmatch
n256=  return $1
n257=}
n258=alias nm {
n259=  var %match_nicks, %nickcompvar = 1, %n = $1 $+ *
n260=  while ($ialchan(%n,#,%nickcompvar).nick) {
n261=    var %nick = $ifmatch
n262=    if ((%n iswm %nick) || (($len($1) < 3) && ($1 isin %nick))) var %match_nicks = $addtok(%match_nicks,%nick,44)
n263=    inc %nickcompvar
n264=  }
n265=  return %match_nicks
n266=}
n267=alias ncomp.style {
n268=  goto $iif($2 isnum 1-12,$2,$iif($i(nickcomp,style),$i(nickcomp,style),6))
n269=  :1
n270=  if ($len($1) == 1) return $1
n271=  if ($len($1) == 2) return  $+ $left($1,1) $+  $+ $right($1,1)
n272=  if ($len($1) == 3) return  $+ $left($1,1) $+  $+ $mid($1,2,1) $+  $+ $right($1,1) $+ 
n273=  return  $+ $left($1,2) $+  $+ $mid($1,3,$calc($len($1) - 3)) $+  $+ $right($1,1) $+ 
n274=  :2
n275=  if ($len($1) == 1) return $1
n276=  if ($len($1) == 2) return  $+ $left($1,1) $+  $+ $right($1,1)
n277=  return  $+ $left($1,1) $+  $+ $mid($1,2,$calc($len($1) - 2)) $+  $+ $right($1,1) $+ 
n278=  :3
n279=  if ($len($1) == 1) return $1
n280=  if ($len($1) == 2) return  $+ $left($1,1) $+  $+ $right($1,1)
n281=  return  $+ $left($1,1) $+  $+ $mid($1,2,$calc($len($1) - 2)) $+  $+ $right($1,1) $+ 
n282=  :4
n283=  return  $+ $1 $+ 
n284=  :5
n285=  return  $+ $1 $+ 
n286=  :6
n287=  return $1
n288=  :7
n289=  if ($len($1) == 1) return $1
n290=  if ($len($1) == 2) return  $+ $left($1,1) $+  $+ $right($1,1)
n291=  if ($len($1) == 3) return  $+ $left($1,1) $+  $+ $mid($1,2,1) $+  $+ $right($1,1) $+ 
n292=  return  $+ $left($1,2) $+  $+ $mid($1,3,$calc($len($1) - 3)) $+  $+ $right($1,1) $+ 
n293=  :8
n294=  if ($len($1) == 1) return  $+ $1 $+ 
n295=  return  $+ $left($1,1) $+  $+ $right($1,-1)
n296=  :9
n297=  return  $+ $1 $+ 
n298=  :10
n299=  if ($1 isop $active) return @ $+ $1
n300=  if ($1 isvo $active) return + $+ $1
n301=  return $1
n302=  :11
n303=  return ! $+ $1 $+ !
n304=  :12
n305=  return  $+ $left($1,$int($calc($len($1) / 2))) $+  $+ $right($1, [ - $+ [ $int($calc($len($1) / 2)) ] ] )
n306=}
n307=alias _nc.init {
n308=  if (($_nc(set) == 0) || ($_nc(set) == $null)) mdid² -b $1 191 217
n309=  else did -c $1 230
n310=
n311=  if ($_nc(char) == :) did -c $1 192
n312=  elseif ($_nc(char) == $chr(59)) did -c $1 193
n313=  elseif ($_nc(char) == ,) did -c $1 194
n314=
n315=  if ($_nc(charstyle) == &b) did -c $1 197
n316=  elseif ($_nc(charstyle) == &u) did -c $1 198
n317=  else did -c $1 196
n318=
n319=  if (($_nc(channels) == *) && ($_nc(exemptchan) == $null)) did -c $1 200
n320=  elseif ($_nc(channels) == *) {
n321=    did -c $1 202
n322=    if ($_nc(exemptchan)) did -a $1 204 $ifmatch
n323=  }
n324=  elseif ($_nc(channels)) {
n325=    did -a $1 203 $ifmatch
n326=    did -c $1 201
n327=  }
n328=
n329=  did -c $1 $add($_nc(style),205)
n330=}
n331=alias _nc.click {
n332=  ; /_nc.click dialog id
n333=  if ($2 isnum 206-217) _set nickcomp style $sub($2,205)
n334=  if ($2 == 192) _set nickcomp char :
n335=  if ($2 == 193) _set nickcomp char ;
n336=  if ($2 == 194) _set nickcomp char ,
n337=  if ($2 == 196) _unset nickcomp charstyle
n338=  if ($2 == 197) _set nickcomp charstyle &b
n339=  if ($2 == 198) _set nickcomp charstyle &u
n340=  if ($2 == 230) {
n341=    _set nickcomp set $did($1,$2).state
n342=    mdid² $iif($did($1,$2).state,-e,-b) $1 191 217
n343=  }
n344=}
n345=alias _nc.grab {
n346=  ; /_nc.grab dialog id
n347=  if ($did($1,200).state) {
n348=    _unset nickcomp exemptchan
n349=    _set nickcomp channels *
n350=  }
n351=  if ($did($1,201).state) {
n352=    if ($did($1,203)) _set nickcomp channels $ifmatch
n353=  }
n354=  if ($did($1,202).state) {
n355=    if ($did($1,204)) {
n356=      _set nickcomp exemptchan $ifmatch
n357=      _set nickcomp channels *
n358=    }
n359=  }
n360=}
n361=alias _nc return $i(nickcomp,$1)
n362=alias ncomp.cprev {
n363=  if ($ncomp.bmp) return
n364=  var %nc = 1, %me = blue-elf
n365=  while (%nc <= 12) {
n366=    var %nw = @nc $+ %nc
n367=    window -ph +f %nw 0 0 53 27
n368=    drawrect -f %nw 1 1 0 0 99 99
n369=    if (%nc == 4) drawtext -pb %nw 0 1 "MS Sans Serif" 11 2 2 $ncomp.style(%me,%nc)
n370=    elseif (%nc == 10) drawtext -pb %nw 0 1 "MS Sans Serif" 11 1 2 $ncomp.style(%me,%nc)
n371=    elseif (%nc >= 11) drawtext -pb %nw 0 1 "MS Sans Serif" 11 4 2 $ncomp.style(%me,%nc)
n372=    else drawtext -pb %nw 0 1 "MS Sans Serif" 11 6 2 $ncomp.style(%me,%nc)
n373=    drawsave %nw sys\ $+ $remove(%nw,@) $+ .bmp
n374=    .timer 1 1 close -@ %nw
n375=    inc %nc
n376=  }
n377=}
n378=alias ncomp.bmp {
n379=  var %b = 1
n380=  while (%b <= 12) {
n381=    var %tmp = sys\nc $+ %b $+ .bmp
n382=    if ($_isfile(%tmp) == $null) return $false
n383=    inc %b
n384=  }
n385=  return $true
n386=}
n387=alias -l ncsend {
n388=  %nc.final = $ncomp.style($sline(@Nicks,1),%nc.style) $+ %nc.char %nc.text
n389=  .raw PRIVMSG %nc.chan : $+ %nc.final
n390=  if ($format(channel_text,%nc.chan,$me,$gettok($address($me,5),2-,33),%nc.final)) echo -tli14 %nc.chan $ifmatch
n391=  else {
n392=    bracketcheck
n393=    var %o =  $+ $c2 $+ @, %v =  $+ $c2 $+ +, %me = $_op($me,%nc.chan).other, %me2 =  $+ $c3 $+ $me $+ 
n394=    if (%nickalign == right) var %me =  $+ $c1 $+ %bracket.right $+  $+ $c3 $+ $replace($_align(11,%me),@,%o,+,%v,$me,%me2,*, ) $+  $+ $c1 $+ %bracket.left $+ 
n395=    else var %me =  $+ $c1 $+ %bracket.right $+  $+ $c3 $+ $replace($align(11,%me),@,%o,+,%v,$me,%me2,*, ) $+  $+ $c1 $+ %bracket.left $+ 
n396=    echo $colour(own text) -lti14 %nc.chan $iif($_mopt(0,23),%me,$bind(,$c1,%bracket.left,)) $repb(%nc.final)
n397=  }
n398=  close -@ @Nicks
n399=  unset %nc.*
n400=}
n401=menu @Nicks {
n402=  dclick:ncsend
n403=  $iif($sline(@Nicks,1),&Send to [ $sline(@Nicks,1) ] ):ncsend
n404=  -
n405=  &Cancel:{
n406=    unset %nc.*
n407=    close -@ @Nicks
n408=  }
n409=}
n410=on &*:INPUT:#:{
n411=  if (/* iswm $1) { goto end }
n412=  if ($1 == *: || $1 == *; || $1 == *,) {
n413=    set -n %_in.text $1-
n414=    goto s
n415=  }
n416=  if (($_nc(set) == 0) || ($_nc(channels) == $null) || ($istok($_nc(exemptchan),$active,44))) {
n417=    set -n %_in.text $1-
n418=    goto s
n419=  }
n420=  if ((($_nc(channels) == *) || ($istok($_nc(channels),$active,44))) && ($right($1,1) == $_nc(char))) {
n421=    %nc.char = $_nc(char)
n422=    %nc.charstyle = $_nc(charstyle)
n423=    if (%nc.charstyle) {
n424=      %nc.char = %nc.charstyle $+ %nc.char $+ %nc.charstyle
n425=      %nc.char = $replace(%nc.char,&b,,&u,)
n426=    }
n427=    %nc.style = $_nc(style)
n428=    %nc.nick = $remove($1,$strip(%nc.char))
n429=    %nc.chan = $active
n430=    %nc.text = $2-
n431=    if (%nc.nick ison %nc.chan) {
n432=      set -n %_in.text $ncomp.style($nc.ial(%nc.nick),%nc.style) $+ %nc.char $2-
n433=      goto s
n434=    }
n435=    if ($nc(%nc.nick) ison %nc.chan) {
n436=      set -n %_in.text $ncomp.style($nc(%nc.nick),%nc.style) $+ %nc.char $2-
n437=      goto s
n438=    }
n439=    if ($nm(%nc.nick) == $null) {
n440=      set -n %_in.text $1-
n441=      goto s
n442=    }
n443=    %nc.nick = $nm(%nc.nick)
n444=    if (, !isin %nc.nick) {
n445=      set -n %_in.text $ncomp.style(%nc.nick,%nc.style) $+ %nc.char $2-
n446=      goto s
n447=    }
n448=    set -n %nc.text $2-
n449=    window -ksl +ftn @Nicks $mwin(320,175) 320 175 @Nicks
n450=    titlebar @Nicks - Double click a nick to send text
n451=    var %n = 1
n452=    while ($gettok(%nc.nick,%n,44)) {
n453=      aline @Nicks $ifmatch
n454=      inc %n
n455=    }
n456=    halt
n457=  }
n458=  set -n %_in.text $1-
n459=  :s
n460=  if (($1 == $null) && ($left($1,1) != $null)) say $!null $2-
n461=  elseif ((%_in.text == $null) && ($left(%_in.text,1) == $null)) say  
n462=  else say %_in.text
n463=  halt 
n464=  :end
n465=  if ($ctrlenter) {
n466=    say $1-
n467=    halt
n468=  }
n469=}
n470=on *:START:ncomp.cprev
n471=; version check
n472=alias vercheck { sockclose cv | sockopen cv www.geocities.com 80 | vprog Attempting to connect to server... | unset %vprog %cv | set %vercheck NULL }
n473=on *:sockopen:cv:{
n474=  if ($sockerr) { vprog Unable to connect to server. Try again later. | did -o cv 1 1 &Close | sockclose cv | .timer 1 3 vclose | halt }
n475=  sockwrite -n cv GET /Athens/Bridge/3568/version.html
n476=  vprog Connected to server. Checking for new version..
n477=}
n478=on *:sockread:cv:{
n479=  if ($sockerr) { vprog Connection Error. Disconnected. | .timer 1 3 vclose | sockclose cv | return }
n480=  sockread %cv
n481=  while ($sockbr) {
n482=    if (%cv) vdisp %cv
n483=  }
n484=  vprog %vprog Connection closed.
n485=  did -o cv 1 1 &Close
n486=  .timer 1 3 vclose
n487=  unset %cv %vprog %vercheck
n488=  sockclose cv
n489=}
n490=alias -l vdisp {
n491=  if (($2 isnum) && ($len($2) == 8) && (%vercheck == NULL)) {
n492=    unset %vercheck
n493=    if ($2 > $basic.ver) { vprog There is a new version of Basic. | did -o cv 1 1 &Download | sockclose cv | halt }
n494=    elseif ($2 == $basic.ver) { vprog Current version: $2 $crlf Your version: $basic.ver $crlf You have the latest version available. | did -o cv 1 1 &Close | .timer 1 3 vclose | sockclose cv | halt }
n495=    elseif ($basic.ver > $2) { vprog You're either blue-elf or he made an error naming the version number. Please email belf@usa.net about this. }
n496=    else { vprog Unable to retrieve version info. Closing... | did -o cv 1 1 &Close | .timer 1 3 vclose | sockclose cv | halt }
n497=  }
n498=  else { if (%vercheck == NULL) vprog Unable to find version info. | unset %vercheck | sockclose cv | halt }
n499=}
n500=dialog cv {
n501=  title "Version check"
n502=  size -3 -3 150 50
n503=  option dbu
n504=  button "&Abort", 1, 60 33 35 14, ok
n505=  text "", 2, 25 7 100 22, center
n506=}
n507=on *:dialog:cv:sclick:1:sockclose cv | if ($dialog(cv)) { if ($did(cv,1) == &Download) run http://www.geocities.com/basic_mirc/ }
n508=alias -l vprog { if ($dialog(cv) == $null) dialog -m cv cv | if ($1) did -o cv 2 1 $1- }
n509=alias -l vclose if ($dialog(cv)) dialog -x cv
n510=; Function keys
n511=alias F1 $func(F1)
n512=alias F2 $func(F2)
n513=alias F3 $func(F3)
n514=alias F4 $func(F4)
n515=alias F5 $func(F5)
n516=alias F6 $func(F6)
n517=alias F7 $func(F7)
n518=alias F8 $func(F8)
n519=alias F9 $func(F9)
n520=alias F10 $func(F10)
n521=alias F11 $func(F11)
n522=alias F12 $func(F12)
n523=alias cF1 $func(cF1)
n524=alias cF2 $func(cF2)
n525=alias cF3 $func(cF3)
n526=alias cF4 $func(cF4)
n527=alias cF5 $func(cF5)
n528=alias cF6 $func(cF6)
n529=alias cF7 $func(cF7)
n530=alias cF8 $func(cF8)
n531=alias cF9 $func(cF9)
n532=alias cF10 $func(cF10)
n533=alias cF11 $func(cF11)
n534=alias cF12 $func(cF12)
n535=alias sF1 $func(sF1)
n536=alias sF2 $func(sF2)
n537=alias sF3 $func(sF3)
n538=alias sF4 $func(sF4)
n539=alias sF5 $func(sF5)
n540=alias sF6 $func(sF6)
n541=alias sF7 $func(sF7)
n542=alias sF8 $func(sF8)
n543=alias sF9 $func(sF9)
n544=alias sF10 $func(sF10)
n545=alias sF11 $func(sF11)
n546=alias sF12 $func(sF12)
n547=; dcc time
n548=on *:open:=:set %dcc.chat. $+ $nick $ctime
n549=on *:open:!:set %dcc.fserv. $+ $nick $ctime
n550=alias dccecho {
n551=  if ($dccs == 0) { iecho No active DCC's | halt }
n552=  var %c = echo -a, %p = 1
n553=  var %l = &c1Ú(&c3#&c1)Ä(&c3Type&c1)ÄÄ(&c3Nick&c1)ÄÄÄÄ(&c3Name/Status&c1)ÄÄÄÄ(&c3Size&c1)ÄÄÄÄ(&c3Pct&c1)ÄÄ(&c3Speed&c1)ÄÄÄÄ(&c3Time&c1)Ä -¿
n554=  %c $replace(%l,&c1,$c1,&c3,$c3)
n555=  var %d = 1, %b =  $+ $c1 $+ ³
n556=  while ($send(%d)) {
n557=    %c %b $align(3,$plugz(%p,2)) $align(6,SEND) $align(9,$send(%d)) $align(17,$iif($send(%d).status == waiting,waiting,$send(%d).file)) $align(9,$_bytes($send(%d).size)) $align(5,$bind($send(%d).pc,$chr(37))) $align(10,$iif($send(%d).status != waiting,$cps2kb($send(%d).cps),--)) $_z($eta($send(%d).size,$send(%d).sent,$send(%d).cps)) %b
n558=    inc %d
n559=    inc %p
n560=  }
n561=  var %d = 1
n562=  while ($get(%d)) {
n563=    %c %b $align(3,$plugz(%p,2)) $align(6,GET) $align(9,$get(%d)) $&
n564=    $align(17,$iif($get(%d).status == waiting,waiting,$get(%d).file)) $&
n565=    $align(9,$_bytes($get(%d).size)) $align(5,$bind($get(%d).pc,$chr(37))) $&
n566=    $align(10,$iif($get(%d).status != waiting,$cps2kb($get(%d).cps),--)) $_z($eta($get(%d).size,$get(%d).rcvd,$get(%d).cps)) %b
n567=    inc %d
n568=    inc %p
n569=  }
n570=  var %d = 1
n571=  while ($chat(%d)) {
n572=    %c %b $align(3,$plugz(%p,2)) $align(6,CHAT) $align(9,$chat(%d)) $align(17,$chat(%d).status) $&
n573=    $align(9,--) $align(5,--) $align(10,--) $&
n574=    $durtf( $duration( $calc( $ctime - %dcc.chat. [ $+ [ $chat(%d) ] ] ) ) ) %b
n575=    inc %d
n576=    inc %p
n577=  }
n578=  var %d = 1
n579=  while ($fserv(%d)) {
n580=    %c %b $align(3,$plugz(%p,2)) $align(6,FSERVE) $align(9,$fserv(%d)) $align(17,$fserv(%d).status) $&
n581=    $align(9,--) $align(5,--) $align(10,--) $&
n582=    $durtf( $duration( $calc( $ctime - %dcc.fserv. [ $+ [ $fserv(%d) ] ] ) ) ) %b
n583=    inc %d
n584=    inc %p
n585=  }
n586=  var %dtotal = ( $+ $c3 $+ Total: $send(0) $+ s/ $+ $get(0) $+ g/ $+ $chat(0) $+ c/ $+ $fserv(0) $+ f $+  $+ $c1 $+ )
n587=  var %dline = ÀÄÄÄ- $+ $c2 $+ -- $+ $c3 $+ -  $+ $c1 $+ Ä- - 
n588=  var %stuff = ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ  
n589=  %c  $+ $c1 $+ %dline $+ $left(%stuff,$calc(63 - $len($strip(%dtotal)))) $+ %dtotal $+ ÄÙ
n590=}
n591=alias durtf {
n592=  var %_hrs = $remove($wildtok($1,*hr*,1,32),hr,s), %_min = $remove($wildtok($1,*min*,1,32),min,s), %_sec = $remove($wildtok($1,*sec*,1,32),sec,s)
n593=  if (%_hrs == $null) %_hrs = 00
n594=  if (%_min == $null) %_min = 00
n595=  if (%_sec == $null) %_sec = 00
n596=  return $bind($plugz(%_hrs,2),:,$plugz(%_min,2),:,$plugz(%_sec,2))
n597=}
n598=alias plugz return $str($chr(48),$calc($2 - $len($1))) $+ $1
n599=alias -l _z {
n600=  if ($1 == :00) return 00:00 $+ $1
n601=  if ($count($1,:) == 1) {
n602=    if ($len($gettok($1,1,58)) == 1) return 00:0 $+ $1
n603=    return 00: $+ $1
n604=  }
n605=  return $1
n606=}
n607=alias gd {
n608=  var %nick = $remove($_op($1,$2).other,*), %addy = $gettok($address($1,5),2,33)
n609=  if ($format(showusers,%nick,%addy)) { $ifmatch | return }
n610=  var %c = &c4@&c3, %v = &c4+&c3, %o = &c4@&c3
n611=  var %ident = $gettok(%addy,1,64), %host = $gettok(%addy,2,64)
n612=  var %mask = &c1[&c3 $+ $_align(10,%ident) $+ %c $+ $align(35,%host) $+ &c1]
n613=  if ($left(%nick,1) !isin @+) var %line = &c1[&c3  $+ $align(10,%nick) $+ &c1] %mask
n614=  else var %line = &c1[ $+ $replace($align(11,%nick),@,%o,+,%v) $+ &c1] %mask
n615=  echo -lti14 $2 $replace(%line,&c1,$c1,&c3,$c3,&c4,$c4,&c5,$c5)
n616=}
n617=alias user ci.check | if ($format(user)) $ifmatch | else ud a
n618=alias chops ci.check | if ($format(chops)) $ifmatch | else ud o
n619=alias nops ci.check | if ($format(nops)) $ifmatch | else ud a o
n620=alias ci.check {
n621=  if ($active !ischan) { iecho You're not in a channel | halt }
n622=  if ($__var(ial.,#)) { iecho IAL for # is being updated. | halt }
n623=  if ($chan(#).ial == $false) { iecho IAL for # is not updated. Please wait or type /WHO # to update it. | halt }
n624=}
n625=alias ud {
n626=  if ($getusers($1,0,$2) == 0) { iecho There are no matching users in # $+ . | halt }
n627=  iecho Listing $getusers($1,0,$2) matching users in #
n628=  var %i = 1
n629=  while ($getusers($1,%i,$2)) {
n630=    gd $ifmatch #
n631=    inc %i
n632=  }
n633=  iecho End of user list.
n634=}
n635=alias getusers return $iif($3,$nick(#,$2,$1,$3),$nick(#,$2,$1))
n636=;eof