/ScriptServ

[aliases]
n0=act.pre if (%action.prefix == $null) %action.prefix = ! | return %action.prefix
n1=add return $calc($1 + $2)
n2=align return $left($2-,$1) $+ $str( ,$sub($1,$len($strip($2-))))
n3=align_mid { if ($len($strip($2-)) == $1) return $2- | if ($len($strip($2-)) > $1) return $left($2-,$1) | return $str( ,$int($calc(($1 - $len($strip($2-))) / 2))) $+ $2- $+ $str( ,$calc($1 - $len($strip($2-)) - $int($calc(($1 - $len($strip($2-))) / 2)))) }
n4=_align return $str( ,$sub($1,$len($strip($2-)))) $+ $left($2-,$1)
n5=atime return $asctime(h:nntt)
n6=banned var %b = $_ulist($1) | if ($level(%b) == 5) return %b
n7=basic.ver return 09282000
n8=bcheck if (%pressed.coords) { var %.pc = $ifmatch | bd -n %.pc | drawdot $gettok(%.pc,1,32) }
n9=; /bd and /3d are modified versions from vague's aliases used in his ftp addon
n10=3d drawrect $1-2 $4 1 $5- | drawline $1-3 1 $5 $calc($6 + $8 - 1) $5-6 $calc($5 + $7) $6
n11=bd {
n12=  drawrect -rnf $2 $rgb(face) 1 $3-6
n13=  drawtext -rn $2 $rgb(text) "MS Sans Serif" 13 $calc($3 + ($5 - $width($7-,"MS Sans Serif",13,0,0)) / 2 + $iif($1 = -i,2,1)) $calc($4 + ($6 - 10) / 2 - $iif($1 = -i,0,1)) $7-
n14=  if ($remove($1,-) isin nh) { 3d -rn $2 $rgb(face) $rgb(frame) $3-6 | 3d -rn $2 $rgb(hilight) $rgb(shadow) $add($3,1) $add($4,1) $sub($5,2) $sub($6,2) }
n15=  else drawrect -rn $2 $rgb(shadow) 1 $3-6
n16=  if ($remove($1,-) isin in) drawrect -rn $2 $rgb($iif($1 = -i,frame,face)) 1 $sub($3,1) $sub($4,1) $add($5,2) $add($6,2)
n17=}
n18=; end vague's aliases
n19=bgb return $iif($colour(background) == 1,$true,$false)
n20=bind return $remove($1-,$chr(32))
n21=blackbg return 1,0,4,8,14,14,3,3,3,3,3,15,0,2,0,15,3,2,3,5,1,1,0,1,15
n22=_bytes {
n23=  if ($1 < 1024) return $remove($round($1,2),.00) $+ b
n24=  if ($calc($1 / 1024) < 1024) return $remove($round($ifmatch,2),.00) $+ kb
n25=  if ($calc($1 / (1024 ^ 2)) < 1024) return $remove($round($ifmatch,2),.00) $+ mb
n26=  if ($calc($1 / (1024 ^ 3)) < 1024) return $remove($round($ifmatch,2),.00) $+ gb
n27=}
n28=c.win return $int($calc(( [ $window(-1).w ] - $1) / 2)) $int($calc(( [ $window(-1).h ] - $2) / 2))
n29=c1 return $gc(1,10)
n30=c2 return $gc(2,11) 
n31=c3 return $gc(3,16)
n32=c4 return $gc(4,11)
n33=c5 return $gc(5,14)
n34=caps return $calc($len($strip($1-)) - $len($removecs($strip($1-),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)))
n35=ccode if ($_readini(country.ini,Country,$1)) return $ifmatch | return Unknown
n36=charmap run charmap.exe
n37=clr { tokenize 32 $1- | if ($2) return  $+ $c3 $+ $upper($1) $+  $cs($2-) | return  $+ $c3 $+ $upper($1-) $+  }
n38=cm return  $+ $c1 $+ $1- $+ 
n39=country iecho Country lookup result: $1 is $ccode($1)
n40=cs return  $+ $c4 $+ $1- $+ 
n41=ct return $iif(($1 == on) || ($1 == 1),on,off)
n42=cwin return $int($calc(( [ $window(-1).w ] - $1) / 2)) $int($calc(( [ $window(-1).h ] - $2) / 2))
n43=; $dbug modified from static orange by webba
n44=dbug set -u1 %db $read -nl $lines(debug.log) debug.log | write -c debug.log | if (%db != %dm) return %db
n45=dccs return $calc( $send(0) + $get(0) + $chat(0) + $fserv(0) )
n46=dialog if ($istok($i(windows,desktop),$2,44)) dialog $1 $+ d $2- | else dialog $1-
n47=div return $calc($1 / $2)
n48=drawborder drawrect -nr $1 $rgb(hilight) $2-6 | drawrect -n $1 14 $2 $sub($3,$2) $sub($4,$2) $5-6 | drawdot -n $1 14 $2 $add($3,$5) $add($4,$6)
n49=drawbutton unset %pressed.coords | bd -n $1-
n50=drawradio {
n51=  drawtext -n $1 1 Marlett 12 $2-3 j
n52=  drawtext -n $1 0 Marlett 12 $2-3 k
n53=  drawtext -n $1 0 Marlett 11 $2 $add($3,1) n
n54=  if ($4 == on) drawtext -n $1 1 Marlett 6 $add($2,3) $add($3,3) n
n55=  var %r = $iif((($len($4)) && ($4 != on) && ($4 != off)),$4-,$5-)
n56=  if ($len(%r)) drawtext -rn $1 $rgb(text) "MS Sans Serif" 14 $add($2,15) $3 %r
n57=}
n58=; much much improved $eta() originally by xnitex
n59=eta var %eta.1 = $calc((($1 - $2) / $3) / 60) | if ($gettok(%eta.1,2,46) != $null) { var %eta.2 = . $+ $gettok(%eta.1,2,46) | var %eta.2 = $round($calc(%eta.2 * 60),0) | var %eta.2 = $fc(%eta.2) | return $gettok(%eta.1,1,46) $+ : $+ %eta.2 } | return %eta.1 $+ :00
n60=explorer run explorer.exe $1-
n61=fc return $iif($len($1) == 1, [ 0 $+ [ $1 ] ] ,$1)
n62=fix.ver if ((($1) && (%ver)) && ($1- !isincs %ver)) return %ver + $1- | if (%ver == $null) return $1- | return %ver
n63=; /fixini topic filename
n64=fixini {
n65=  if (($_isfile($2-) == $null) || ($initopic($2-,$1) == 0)) return
n66=  var %INI_Window = @ $+ $ticks , %INI_File = $lfnfix($2-)
n67=  window -h %INI_Window
n68=  loadbuf -t $+ $1 %INI_Window %INI_File
n69=  remini %INI_File $1
n70=  flushini %INI_File
n71=  var %Index = 0, %TotalLines = $line(%INI_Window,0)
n72=  if ($show) _progress Rewriting $nopath(%INI_File)
n73=  while (%Index < %TotalLines) {
n74=    if ($line(%INI_Window,$calc(%Index + 1))) writeini -n %INI_File $1 n $+ %Index $gettok($ifmatch,2-,61)
n75=    inc %Index
n76=    if ($show) _progress² %Index %TotalLines
n77=  }
n78=  close -@ %INI_Window
n79=  if ($show) _progress² %TotalLines %TotalLines
n80=}
n81=fixmask {
n82=  if ($count($1,.) <= 3) return $mask($bind(bleh!,$1),3)
n83=  if ($right($1,1) isnum) return *!* $+ $remove($gettok($1,1,64),~) $+ @ $+ $replace($gettok($1,2,64),$gettok($gettok($1,2,64),3-,46),*)  
n84=  if ($count($1,.) > 1) return *!* $+ $remove($gettok($1,1,64),~) $+ @*. $+ $gettok($1,$bind($calc($numtok($gettok($1,2-,64),46) - 1),-),46)
n85=  return *!* $+ $remove($1,~)
n86=}
n87=fixnick if (([ isin $1) || (] isin $1)) return $replace($1,[,:1,],:2) | return $replace($1,:1,[,:2,])
n88=fludd {
n89=  set $_var(max.,$1) $i($3,$bind(max,$1))
n90=  if (($__var(max.,$1) <= 0) || ($__var(max.,$1) == $null)) return
n91=  var %f = $1 $+ _time
n92=  if ($__var(flood.type.,$1,$2) >= $__var(max.,$1)) {
n93=    set %floodt $calc(($ticks - $__var(flood.time.,$1,$2)) / 1000)
n94=    if (%floodt < $i($3,%f)) {
n95=      unset %flood.type. [ $+ [ $1 ] $+ [ $2 ] ]
n96=      unset %flood.time. [ $+ [ $1 ] $+ [ $2 ] ]
n97=      return %floodt $+ s 
n98=    }
n99=    set $bind(-u,$i($3,%f)) %flood.type. [ $+ [ $1 ] $+ [ $2 ] ] 1 
n100=    set $bind(-u,$i($3,%f)) %flood.time. [ $+ [ $1 ] $+ [ $2 ] ] $ticks 
n101=    return
n102=  }
n103=  if ($__var(flood.type.,$1,$2) == $null) {
n104=    set $bind(-u,$i($3,%f)) %flood.type. [ $+ [ $1 ] $+ [ $2 ] ] 1
n105=    set $bind(-u,$i($3,%f)) %flood.time. [ $+ [ $1 ] $+ [ $2 ] ] $ticks 
n106=    return
n107=  }
n108=  inc %flood.type. [ $+ [ $1 ] $+ [ $2 ] ] 1
n109=  return
n110=}
n111=gc var %  = $i(colors,n0) | return $fc($iif(% ,$gettok(% ,$1,44),$2))
n112=gettime tokenize 32 $1- | return $iif($1 isnum, [ $gettok($duration($sub($ctime,$1)),1,32) ] ago,$1-)
n113=gkm var %k = $kmsg($1) | return $iif(%k,%k,$2-)
n114=i if ($readini -n sys\main.ini $1 $2 == $null) return $readini -n sys\main.ini main $2 | return $readini -n sys\main.ini $1 $2
n115=ie run iexplore.exe $1-
n116=ignores {
n117=  var %w = @Ignore list
n118=  if ($window(%w) == $null) window -kl -t20 %w $winpos(%w) @Ignores $winfont(%w)
n119=  clear %w
n120=  aline %w Mask $chr(9) Ignore type
n121=  aline %w $x 
n122=  var %i = 1
n123=  while ($ignore(%i)) {
n124=    aline %w $ifmatch $chr(9) $ignore(%i).type
n125=    inc %i
n126=  }
n127=  window -b %w
n128=}
n129=inr tokenize 32 $1- | if ($inrect($mouse.x,$mouse.y,$1,$2,$3,$4)) return $1-4
n130=instances {
n131=  var %dde = 1, %ddecount = 0
n132=  while (%dde <= 10) {
n133=    if ($isdde($bind(mIRCbasic,%dde))) inc %ddecount
n134=    if (%ddecount >= 2) return $true
n135=    inc %dde
n136=  }
n137=  return $false
n138=}
n139=isbot {
n140=  if ($istok($_readini(botlist.ini,Botnicks,all),$1,32)) {
n141=    var %c = $_readini(botlist.ini,$fixnick($1),channels), %h = $_readini(botlist.ini,$fixnick($1),hostmask)
n142=    if (((%c == *) || ($istok(%c,$2,32))) && ((%h == $3) || (%h iswm $3))) return $_readini(botlist.ini,$fixnick($1),password)
n143=  }
n144=}
n145=isexempt {
n146=  if ($_isbot($1)) return 1
n147=  if (($gettok($i($2,exempted.users),1,46)) && (($1 isop $2) || ($__var(§exempt.,$address($1,3),.,$2)))) return 1
n148=  if (($gettok($i($2,exempted.users),2,46)) && (($1 isvo $2) || ($__var(§exempt.,$address($1,3),.,$2)))) return 1
n149=  var %.exempted = $_ulist($address($1,5))
n150=  if ($level(%.exempted) == 40) {
n151=    if ($gettok($i($2,exempted.users),3,46)) return 1
n152=    return $_uchan($_user(%.exempted).chan,$2)
n153=  }
n154=}
n155=isnotifywin if ($active == Notify List) return 1
n156=iswavmid var %media = $remove($1-,") | return $iif((*.mid iswm %media) || (*.wav iswm %media),1)
n157=kmsg if ($_isfile(sys\kicks.txt)) return $read -s $1 $ifmatch
n158=lame {
n159=  var %n = $_readini(lame.ini,lamenicks,n0), %c = $_readini(lame.ini,$1,channels), %i = 1
n160=  if ((($_istok(%c,$2,44)) || (%c == *)) && ($i($2,nickkick) != on)) return 0
n161=  if (($_isfile(sys\lame.ini) == $null) || (%n == $null) || (($istok(%c,$2,44) == $false) && (%c != *))) return 0
n162=  if (($istok(%n,$1,32)) && (($istok(%c,$2,44)) || (%c == *))) return 1
n163=  while ($gettok(%n,%i,32)) {
n164=    if (($ifmatch isin $1) && (($istok(%c,$2,44)) || (%c == *))) return 1
n165=    inc %i
n166=  }
n167=  return 0
n168=}
n169=lfnfix if (" isin $1-) return $1- | if ($chr(32) isin $1-) return " $+ $1- $+ " | return $1-
n170=maxvl if ($len($1-) >= 850) return 1
n171=mod return $calc($1 % $2)
n172=mousecheck if (($mouse.key & 1) && (%pressed.coords != $null) && ($inr( [ $gettok(%pressed.coords,2-5,32) ] ) == $null)) { bd -h %pressed.coords | drawdot $gettok(%pressed.coords,1,32) }
n173=mservchk if ($server) return $1- | if (($active ischan) || ($query($active))) return | return $1-
n174=mult return $calc($1 * $2)
n175=mwin return $int($calc(( [ $window(-3).w ] - $1) / 2)) $int($calc(( [ $window(-3).h ] - $2) / 2))
n176=netscape run netscape.exe $1-
n177=notepad run notepad.exe $1-
n178=percent return $round($calc(($1 * 100) / $2),3) $+ $chr(37)
n179=pignore var %.n = $iif($active == Notify List,$snotify,$2) | if (p isin $1) close -cm %.n | if (t isin $1) close -fgs %.n | if ($active == Notify List) { if ($notify(%.n).ison) ignore $1 %.n $i(ctcps,ignore_type) } | else ignore $1-2 $i(ctcps,ignore_type)
n180=pop.check if ($server == $null) return $iif($active !ischan,$1-) | if (($chan) && ($me isop $chan)) return $1- | if ($me isop $1) return $2-
n181=pre {
n182=  if ($format(pre)) return $ifmatch
n183=  if ($i(display,bullet)) return $replace($ifmatch,&1,,&2,,&3,)
n184=  return  $+ $c1 $+ ú $+ $c3 $+ ù $+ $c1 $+ ú
n185=}
n186=pressbutton set %pressed.coords $1- | bd -i $1-
n187=qignore {
n188=  var %.n = $iif($active == Notify List,$snotify,$2)
n189=  if (p isin $1) close -cm %.n | if (t isin $1) close -fgs %.n
n190=  if ($active == Notify List) { if ($notify(%.n).ison) ignore $1 $+ [ $i(ctcps,ignore_time) ] %.n $i(ctcps,ignore_type) }
n191=  else ignore $1 $+ [ $i(ctcps,ignore_time) ] $2 $i(ctcps,ignore_type)
n192=}
n193=rctcp {
n194=  tokenize 32 $1-
n195=  if ($2 == CHAT) return DCC CHAT
n196=  if (($2 == SEND) && (XDCC !isin $1-)) return DCC SEND ( $+ $lower($3) $+ ) size: $iif($iif($null !isin $_bytes($6),$_bytes($6)),$_bytes($6),n.a.)  
n197=  if (($1 == SOUND) || ($1 == MP3)) return SOUND ( $+ $gettok($1-,$bind(2-,$findtok($1-,$wildtok($1-,$iif(.wav isin $1-,*.wav,$iif(.mid isin $1-,*.mid,*.mp?)),1,32),32)),32) $+ )
n198=  return $upper($1-) 
n199=}
n200=realname {
n201=  if ($_isfile(sys\names.txt)) { if ($read -n $ifmatch) return $ifmatch }
n202=  return http://www.geocities.com/basic_mirc
n203=}
n204=rechan {
n205=  if ($1 == #$1) return $replace($1-,$chr(32),$chr(44))
n206=  if ($left($1,1) isin &#%) return $1
n207=  return $chr(35) $+ $replace($1-,$chr(32),$chr(44))
n208=}
n209=repb {
n210=  if ( !isin $1-) return $1-
n211=  if ($1- == ) return  
n212=  var %rep.r = 1, %rep.t = $numtok($1-,32), %rep.p
n213=  while (%rep.r <= %rep.t) {
n214=    if ( !isin $gettok($1-,%rep.r,32)) {
n215=      var %rep.p = %rep.p $gettok($1-,%rep.r,32)
n216=      inc %rep.r
n217=      continue
n218=    }
n219=    var %rep.d = $gettok($1-,%rep.r,32),%rep.b,%rep.s = 1
n220=    while ($mid(%rep.d,%rep.s,1) != $null) {
n221=      if ($ifmatch == ) {
n222=        if ($mid(%rep.d,$calc(%rep.s + 2),1) == ,) && ($_bk($mid(%rep.d,%rep.s,2))) {
n223=          var %rep.b = %rep.b $+ 15
n224=          inc %rep.s 2
n225=        }
n226=        elseif ($mid(%rep.d,$calc(%rep.s + 3),1) == ,) && ($_bk($mid(%rep.d,%rep.s,3))) {
n227=          var %rep.b = %rep.b $+ 15
n228=          inc %rep.s 3
n229=        }
n230=        elseif (($_bk($mid(%rep.d,%rep.s,2))) && ($mid(%rep.d,$calc(%rep.s + 2),1) !isnum)) inc %rep.s 2
n231=        elseif ($_bk($mid(%rep.d,%rep.s,3))) inc %rep.s 3
n232=      }
n233=      var %rep.b = %rep.b $+ $mid(%rep.d,%rep.s,1)
n234=      inc %rep.s
n235=    }
n236=    var %rep.p = %rep.p %rep.b
n237=    inc %rep.r
n238=  }
n239=  return %rep.p
n240=}
n241=repeat {
n242=  var %rep.t = $i($2,repeat_time)
n243=  if ($__var(repeat.,$1) === $strip($3-)) {
n244=    inc %repeat.count. [ $+ [ $1 ] ]
n245=    if ($__var(repeat.count.,$1) >= $i($2,maxrepeat)) {
n246=      var %.repeat.time = $calc(($ticks - [ $__var(repeat.t.,$1) ] ) / 1000)
n247=      if (%.repeat.time <= %rep.t) {
n248=        unset %repeat.count. [ $+ [ $1 ] ]
n249=        unset %repeat. [ $+ [ $1 ] ]
n250=        return %.repeat.time
n251=      }
n252=    }
n253=  }
n254=  set $bind(-u,%rep.t) %repeat. $+ $1 $3-
n255=  set $bind(-u,%rep.t) %repeat.t. $+ $1 $ticks
n256=  return
n257=}
n258=savewinpos if ($1 == -wh) { _set windows $2 $_winstat2($2) | _set windows $2 $+ .font $window($2).font $window($2).fontsize } | else { _set windows $1 $_winstat1($1) | _set windows $1 $+ .font $window($1).font $window($1).fontsize }
n259=screw {
n260=  var %x = 1, %screw
n261=  while ($mid($1,%x,1) != $null) {
n262=    if ($ifmatch isin *!@.) { %screw = %screw $+ $ifmatch | inc %x | continue }
n263=    if (2 // %x) { %screw = %screw $+ ? | inc %x | continue }
n264=    %screw = %screw $+ $mid($1,%x,1) | inc %x
n265=  }
n266=  return %screw
n267=}
n268=show.a if ($1) return $replace($1-,&,&&)
n269=short if ($len($1) > $2) return $left($1,$2) $+ ... | return $1
n270=servmod if ((dal.net isin $server) || (undernet isin $server) || ($server($server).group == ircnet)) return $iif($1,$str($1,6),6) | if ($istok(IRCNet DALNet Undernet,$_network,32)) return $iif($1,$str($1,6),6) | return $iif($1,$str($1,4),4)
n271=sfix if ((* !isin $1) || (? !isin $1)) return * $+ $replace($1,_,?,-,?) $+ * | return $1
n272=slag return $iif($1,$1,??)
n273=striplame return $remove($1-,|,[,],^,`,\,_)
n274=sub return $calc($1 - $2)
n275=whitebg return 0,6,4,5,2,3,3,3,3,3,3,1,5,2,6,1,3,2,3,5,1,0,1,0,1
n276=window var %.2desktop = $wildtok($1-,@*,1,32) | if ((-* iswm $1) && ($istok($i(windows,desktop),%.2desktop,44))) window $1 $+ d $2- | else window $1-
n277=winfont var %@font = $i(windows, [ [ $1 ] $+ .font ] ) | return $iif(%@font,%@font,$iif($2-,$2-,Arial 11))
n278=winpos return $iif($i(windows,$1) != $null,$i(windows,$1),$iif($2- != $null,$2-,$_winxy))
n279=winstat if ($window($1)) { iecho Window xywh: $_winstat1($1) | iecho Text Area width and height: $window($1).dw $window($1).dh }
n280=wordcheck {
n281=  var %wcktotal = $numtok($words,32),%wckcheck = $strip($2-),%kv = 1
n282=  while (%kv <= %wcktotal) {
n283=    var %word.k = $gettok($words,%kv,32)
n284=    if ($wordcheck2(%word.k,%wckcheck)) {
n285=      var %w.tmp = $_readini(words.ini,%word.k,channels)
n286=      if (($istok(%w.tmp,$1,44)) || (%w.tmp == *)) return %word.k
n287=    }
n288=    inc %kv
n289=  }
n290=}
n291=wordcheck2 if ($_readini(words.ini,word.toggle,toggle)) return $istok($2-,$1,32) | return $wildtok($2-, [ * $+ [ $1 ] $+ * ] ,1,32)
n292=words return $readini -n sys\words.ini words n0
n293=; butane's $wordwrap()
n294=wordwrap {
n295=  var %wwp.parse = $remove($3-,)
n296=  :restart
n297=  var %wwp.wordwrap, %wwp.t = 0, %wwp.l = 0, %wwp.x = 0
n298=  :loop
n299=  inc %wwp.x
n300=  var %wwp.var = $gettok(%wwp.parse,%wwp.x,32)
n301=  if ($len($strip(%wwp.var)) >= $2) {
n302=    var %wwp.parse2, %wwp.l2 = 0 
n303=    :loop2
n304=    inc %wwp.l2
n305=    var %wwp.var = $gettok(%wwp.parse,%wwp.l2,32)
n306=    if (%wwp.var == $null) { var %wwp.parse = %wwp.parse2 | goto restart }
n307=    if ($len($strip(%wwp.var)) >= $2) var %wwp.var = $left(%wwp.var,$sub($2,1)) $right(%wwp.var,$add($sub($len(%wwp.var),$2),1))
n308=    var %wwp.parse2 = %wwp.parse2 %wwp.var
n309=    goto loop2
n310=  }
n311=  if (%wwp.var == $null) { inc %wwp.t | if (%wwp.t == $1) return %wwp.wordwrap | return }
n312=  var %wwp.l = $calc( $len($strip(%wwp.wordwrap)) + $len($strip(%wwp.var)) )
n313=  if (%wwp.l >= $2) { inc %wwp.t | if (%wwp.t == $1) return %wwp.wordwrap | var %wwp.wordwrap = %wwp.var | var %wwp.l = $len($strip(%wwp.var)) | goto loop }
n314=  var %wwp.wordwrap = %wwp.wordwrap %wwp.var
n315=  goto loop
n316=}
n317=x if (($1 isnum) && ($1 >= 1)) return $str( ,$1) | return  
n318=ypos {
n319=  ; $ypos(@window,height of button or rectangle)
n320=  return $int($calc(($window($1).dh - $2) - 3))
n321=}
n322=leftbutton {
n323=  ; $leftbutton(@window,button width)
n324=  return $int($calc(($window($1).w / 2) - $2))
n325=}
n326=rightbutton {
n327=  ; $rightbutton(@window,distance of right button from left button)
n328=  return $int($calc(($window($1).w / 2) + $2))
n329=}
n330=^k var %k = $iif($bgb,00,01) | if ($1) return %k $+ $1- $+  | return %k
n331=_ {
n332=  if (($2 isnum) && (($i(main,$1) !isnum) || ($i(main,$1) < 0))) _set main $1-
n333=  elseif (($2 == on) || ($2 == off)) { if ($istok(on off,$i(main,$1),32) == $false) _set main $1- }
n334=  elseif ($i(main,$1) == $null) _set main $1-
n335=}
n336=_= if (=* iswm $1) return $1 | return = $+ $1
n337=_2 if ($3 isnum) if (($i($1,$2) !isnum) || ($i($1,$2) < 0)) _set $1- | elseif ($istok(on off,$3,32)) { if ($istok(on off,$i($1,$2),32) == $false) _set $1- } | elseif ($i($1,$2) == $null) _set $1-
n338=_a return $_mopt(6,19)
n339=_at {
n340=  tokenize 32 $1- | var %date_tmp = $_convert($2,$3,$5), %time_tmp = $gettok($4,1-2,58)
n341=  if ($left(%time_tmp,2) == 00) return $1 12: $+ $gettok(%time_tmp,2,58) $+ pm %date_tmp
n342=  if ($left(%time_tmp,2) > 12) return $1 $sub($gettok(%time_tmp,1,58),12) $+ : $+ $gettok(%time_tmp,2,58) $+ pm %date_tmp
n343=  return $1 %time_tmp $+ am %date_tmp
n344=}
n345=_away return $iif($away,gone,here)
n346=_bk if ($colour(back)) return $istok(01 1 17 33 49 65 81 97,$1,32) | return $istok(96 80 64 48 32 16 0,$1,32)
n347=_c return $iif($colour(background) == 1,0,1)
n348=_cac if ($colour(back)) return 16 | return  $+ $colour(highlight)
n349=_cb return $iif($colour(background),10,$rgb(face))
n350=_chkmode return $iif($1 isin $chan($2).mode,-,+) $+ $1
n351=_comchan {
n352=  var %z = 1, %comchans
n353=  while ($comchan($1,%z)) {
n354=    %comchans = $addtok(%comchans,$comchan($1,%z),44)
n355=    inc %z
n356=  }
n357=  return %comchans
n358=}
n359=_cont var %hour = $gettok($1,1,58) | var %tail = $iif(%hour > 12,PM,AM) | var %tmp = $iif(%hour > 12,$calc(%hour - 12),%hour) | return $iif($len(%tmp) < 2, [ 0 $+ [ %tmp ] ] ,%tmp) $+ : $+ $gettok($1,1,58) $+ %tail
n360=_convert return $findtok(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec,$1,1,32) $+ . $+ $2 $+ . $+ $right($3,2)
n361=_ct return $iif($colour(background),0,1)
n362=_cv {
n363=  if ($i(display,ascii) == low) return $replace($1-,Ú,.,Ä,-,À,',Ã,|,³,|,¿,.,´,|,Â,.,Å,+,Á,+,Ù,')
n364=  return $1-
n365=}
n366=_dcclog return " $+ $logdir $+ dcc.log"
n367=_def return $iif($1 != $null,$1,$2)
n368=_f return $iif($colour(background) == 1,Arial,MS Sans Serif)
n369=_fldnet {
n370=  if ( %flood.type. [ $+ [ $1 ] ] >= $i(main, [ maxbot $+ [ $1 ] ] ) ) {
n371=    set -u %fld.t $calc( ( $ticks - %flood.time. [ $+ [ $1 ] ] ) / 1000 )
n372=    if (%fld.t < 10) { unset %flood.type. [ $+ [ $1 ] ] | unset %flood.time. [ $+ [ $1 ] ] | return %fld.t $+ s }
n373=    set -u10 %flood.type. [ $+ [ $1 ] ] 1 | set -u10 %flood.time. [ $+ [ $1 ] ] $ticks 
n374=  }
n375=  elseif ( %flood.type. [ $+ [ $1 ] ] == $null ) { set -u10 %flood.type. [ $+ [ $1 ] ] 1 | set -u10 %flood.time. [ $+ [ $1 ] ] $ticks }
n376=  else inc %flood.type. [ $+ [ $1 ] ] 1 | return
n377=}
n378=_font {
n379=  var %ini = $readini -n $mircini fonts f [ $+ [ $iif(@* iswm $active || $chr(32) isin $active,status,$active) ] ]
n380=  var %fnt = $gettok(%ini,1,44), %rfonts = IBMPC.Courier New.Terminal.Fixedsys.GwdTE_437.Courier
n381=  return $istok(%rfonts,%fnt,46)  
n382=}
n383=_ft return [ $iif( [ $1 ] , [ $1 ] , [ $2- ] ) ]
n384=_fulladdress return $readini -n $_mircini about fulladdress
n385=_getdesc var %tmp = $read -nl1 $1- | if (;?desc:* iswm %tmp) return $gettok(%tmp,2-,58) | return None available
n386=_isdir if (($exists($1)) && ($isdir($1))) return $lfnfix($1)
n387=_isfile if (($exists($1)) && ($isfile($1))) return $lfnfix($1)
n388=_kickmsg {
n389=  if (($i(messages,kicks) == random) && ($_isfile(sys\kicks.txt))) return $read sys\kicks.txt
n390=  if (%DefaultKickMessage) return $replace($ifmatch,&nick&,$1,&chan&,$2)
n391=  return bye
n392=}
n393=_lof return $_bytes($lof($1-))
n394=_mask if ($2 == 3) return $iif(*!*@* iswm $1,$fixmask($gettok($1,2-,33)),$fixmask($1)) | return $iif(*!*@* iswm $1,$mask($1,$2),$mask($bind(bleh!,$1),$2))
n395=_menu if (($mouse.x == $null) && ($1 != $null)) return $1-
n396=_mircdir return $mircdir $+ $1-
n397=_mircini return $lfnfix($mircini)
n398=_motd return $_mopt(1,11)
n399=_mopt var %m = $readini -n $_mircini options [ n $+ [ $1 ] ] | return $gettok(%m,$2,44)
n400=_network {
n401=  if ($i(network_id,$server)) return $replace($ifmatch,Other,Unknown)
n402=  var %sv = %server.version
n403=  if (2.8/hybrid-6* iswm %sv) return EFNet hybrid6
n404=  if (2.8/hybrid* iswm %sv) return EFNet hybrid5
n405=  if (undernet isin $server) return Undernet
n406=  if (dal.net isin $server) return DALNet
n407=  if (2.10*+* iswm %sv) return IRCNet
n408=  return $iif($network,$network,Unknown)
n409=}
n410=_op if ($prop == other) { if ($1 isop $2) return @ $+ $1 | if ($1 isvo $2) return + $+ $1 | if ($1 ishelp $2) return $chr(37) $+ $1 | return * $+ $1 } | if ($me isop $1) return @ $+ $1 | if ($me isvo $1) return + $+ $1 | if ($1 !ischan) return | return $1-
n411=_pathfile return $getdir( [ * $+ [ $right($1-,4) ] ] ) $+ $1-
n412=_pdisp {
n413=  if ($address($me,5)) var %_pdisp = $ifmatch
n414=  else var %_pdisp = blue-elf!bdc@wmu-53-73.tm.net.my
n415=  return $_mask(%_pdisp,$1)
n416=}
n417=_pmask {
n418=  var %n = $remove($1,=), %a = 1
n419=  if ($address(%n,5)) %m = $ifmatch
n420=  elseif ($query(%n).addr) %m = %n $+ ! $+ $ifmatch
n421=  else var %a = 0
n422=  return $iif(%a,$mask(%m,$2))
n423=}
n424=_pn if ($2) return $1 $+ . $2-
n425=_quitmsg return $read sys\quits.txt
n426=_readini if ($3 != $null) return $readini -n sys\ [ $+ [ $1 ] ] $2 $3- | if ($readini -n sys\main.ini $1 $2 == $null) return $readini -n sys\main.ini main $2 | return $readini -n sys\main.ini $1 $2
n427=_rec return $gettok($i(recent,$1),$2,32)
n428=_recc return $_rec(channels,$1)
n429=_recf return $_rec(sentfiles,$1)
n430=_recrf return $_rec(rcvdfiles,$1)
n431=_recs return $_rec(servers,$1)
n432=_redomask if (*!*@* iswm $1) { if ((* !isin $1) && (? !isin $1)) return $_mask($1,2) | return $1 } | if ((! !isin $1) && (@ isin $1)) return *!* $+ $1 | if ((! !isin $1) && (@ !isin $1)) { if (. isin $1) return *!*@* $+ $1 | return $1 $+ !*@* }
n433=_remfonts {
n434=  window -hl @ffonts
n435=  filter -fw $_mircini @ffonts f#*=*
n436=  filter -fw $_mircini @ffonts f&*=*
n437=  var %.f = 0
n438=  while ($line(@ffonts,%.f)) {
n439=    remini $_mircini fonts $gettok($line(@ffonts,%.f),1,61)
n440=    inc %.f
n441=  }
n442=  close -@ @ffonts
n443=}
n444=_resizefonts window -h @@ | var %fontsize = $window(@@).fontsize | display - $+ $left($i(display,ascii),1) $calc(%fontsize $1 1) $window(@@).font | close -@ @@
n445=_sadd return $address($snick(#,1),5)
n446=_sc if ($1 isop $chan) return @ $+ $1 | if ($1 isvo $chan) return + $+ $1 | return $1
n447=_set if ($3 != $null) writeini sys\main.ini $$1 $2 $3- | else _unset $1-
n448=_sfail tokenize 32 $1- | if ($1) return $1 $chr(9) $nopath($remove($2-,"))
n449=_sl return $remove( [ $1- ] ,1,2,3,4,5,6,7,8,9,0,&)
n450=_sline if ($sline($active,1) != $x) return $ifmatch
n451=_sline2 return $gettok($remove($_sline,$chr(9)),$1,32)
n452=_sline3 return $sline($active,1).ln
n453=_th return $nopath($findfile( [ [ $mircdir ] $+ theme\ ] ,*.thm,$$1))
n454=_unset remini sys\main.ini $1 $2-
n455=_uptime return $remove($duration($calc($ticks / 1000)),ks,k,ays,ay,rs,r,ins,in,ecs,ec)
n456=_useless {
n457=  if (, isin $1-) tokenize 44 $1-
n458=  if ($numtok($1-,32) == 1) return $1-
n459=  var %.result, %.uq = 1
n460=  while (%.uq < $numtok($1-,32)) {
n461=    %.result = %.result $gettok($1-,%.uq,32) $+ ,
n462=    inc %.uq
n463=  }
n464=  return %.result and $gettok($1-,-1,32)
n465=}
n466=_useless² return $gettok($1-,1-3,32) $gettok($gettok($1-,4,32),1-2,58)
n467=_var return % $+ $bind($1-)
n468=__var return [ [ $_var($1-) ] ]
n469=_wc {
n470=  goto $1
n471=  :122 | return @Clones
n472=  :123 | return @DCC History
n473=  :124 | return @Ban Stats
n474=  :125 | return @Who Results for
n475=  :126 | return display
n476=  :127 | return settings
n477=  :128 | return cset
n478=  :129 | return userlist
n479=  :130 | return lists
n480=  :131 | return @DCC Status
n481=}
n482=_winstat1 return $_winstat2($1) $window($1).w $window($1).h
n483=_winstat2 return $window($1).x $window($1).y
n484=_winxy return $mwin(405,225) 405 225
n485=;EOF