/ScriptServ

[aliases]
n0=join %sync. [ $+ [ $1 ] ] = $ticks | .raw join $1-
n1=msg if ($1 != -q) { echo -a $stamp 12»» (msg/ $+ $1 $+ ):(14 $+ $2- $+ 12) | .raw privmsg $1 : $+ $2- } | else .raw privmsg $2 : $+ $3-
n2=cycle .raw part $1 | join $1-
n3=lag %lag = $ticks | .raw lag
n4=ver return $readini $mircdirkernel\kernel.mx main version
n5=key return $r(a,z) $+ $r(0,9) $+ $r(A,Z) $+ $r(a,z) $+ $r(a,z) $+ $r(A,Z) $+ $r(0,9) $+ $r(0,9) $+ $r(a,z)
n6=dur if ($1 < 60) return $round($1,2) $+ s | else return $replace($duration($1),secs,s,mins,m,hrs,h,days,d,wks,w,sec,s,min,m,hr,h,day,d,wk,w)
n7=stamp return 14(15 $+ $asctime(h:nnt) $+ 14)
n8=nc {
n9=  %nc. [ $+ [ $1 ] ] = $nick(0,$1) | :begin | if (%nc. [ $+ [ $1 ] ] == 0) goto end
n10=  if (66 isin $level($address($nick(%nc. [ $+ [ $1 ] ] ,$1),4))) cline 4 $1 %nc. [ $+ [ $1 ] ]
n11=  if (67 isin $level($address($nick(%nc. [ $+ [ $1 ] ] ,$1),4))) cline 5 $1 %nc. [ $+ [ $1 ] ]
n12=  if (75 isin $level($address($nick(%nc. [ $+ [ $1 ] ] ,$1),4))) cline 10 $1 %nc. [ $+ [ $1 ] ]
n13=  if (90 isin $level($address($nick(%nc. [ $+ [ $1 ] ] ,$1),4))) cline 11 $1 %nc. [ $+ [ $1 ] ]
n14=  if (99 isin $level($address($nick(%nc. [ $+ [ $1 ] ] ,$1),4))) cline 12 $1 %nc. [ $+ [ $1 ] ]
n15=  if ($nick(%nc. [ $+ [ $1 ] ] ,$1) == $me) cline 15 $1 %nc. [ $+ [ $1 ] ]
n16=  dec %nc. [ $+ [ $1 ] ] | goto begin | :end | unset %nc. [ $+ [ $1 ] ]
n17=}
n18=chanstats {
n19=  if ($1 == -q) { echo -a 14:[10mX14]:15 chanstats 14(15 $+ $2 $+ 14):(10modes15 $chan($2).mode $+ 14):(10+o15 $opnick(0,$2) $+ 14):(10-o15 $nopnick(0,$2) $+ 14):(10+v15 $vnick(0,$2) $+ 14):(10-v15 $nvnick(0,$2) $+ 14):(10total15 $nick(0,$2) $+ 14) | halt }
n20=  else msg $1 14,1:[10,1mX14,1]:15,1 chanstats 14,1(15,1 $+ $1 $+ 14,1):(10,1modes15,1 $chan($1).mode $+ 14,1):(10,1+o15,1 $opnick(0,$1) $+ 14,1):(10,1-o15,1 $nopnick(0,$1) $+ 14,1):(10,1+v15,1 $vnick(0,$1) $+ 14,1):(10,1-v15,1 $nvnick(0,$1) $+ 14,1):(10,1total15,1 $nick(0,$1) $+ 14,1)
n21=}
n22=sync {
n23=  echo $1 14::10::11::15:: 14joined (15 $+ $1 $+ 14):(10sync15 %sync. [ $+ [ $1 ] ] $+ 14):(10+o15 $opnick(0,$1) $+ 14):(10-o15 $nopnick(0,$1) $+ 14):(10+v15 $vnick(0,$1) $+ 14):(10-v15 $nvnick(0,$1) $+ 14):(10total15 $nick(0,$1) $+ 14)
n24=  if ($chan($1).topic != $null) echo $1 14::10::11::15:: 14topic (15 $+ $chan($1).topic $+ 14) | else echo $1 14::10::11::15:: 14topic (15not set14)
n25=  echo $1 14::10::11::15:: 14modes (15 $+ $chan($1).mode $+ 14)
n26=  if (%onjoin. [ $+ [ $1 ] ] != $null) echo $1 14::10::11::15:: 14onjoin (15 $+ %onjoin. [ $+ [ $1 ] ] $+ 14) | else echo $1 14::10::11::15:: 14onjoin (15not set14)
n27=  echo $1 1,1x | echo $1 $stamp 14*** now talking in10 $1 $+ 14... | unset %sync. [ $+ [ $1 ] ] | unset %onjoin. [ $+ [ $1 ] ] | .enable #ial | who $1
n28=  if ($nick(0,$1) == 1) { %key. [ $+ [ $1 ] ] = $key | prop $1 ownerkey %key. [ $+ [ $1 ] ] }
n29=}
n30=setaway {
n31=  if ($?="away message: (optional)") %away.r = $! | else %away.r = no reason
n32=  if ($?!="pager on?") %away.p = on | else %away.p = off
n33=  if ($?!="message logger on?") %away.l = on | else %away.l = off
n34=  if ($?!="use away nick?") nick $me $+ -away
n35=  %away.t = $ticks | away %away.r | if ($1 != -q) { .timeraway 0 600 awaymsg | amsg 10,1away 14,1:(15,1 $+ %away.r $+ 14,1):(10,1p/15,1 $+ %away.p 10,1l/15,1 $+ %away.l $+ 14,1):(10,1matrix $ver $+ 14,1) }
n36=}
n37=awaymsg amsg 10,1away 14,1:(15,1 $+ %away.r $+ 14,1):(10,1gone/15,17 $+ $dur($calc(($ticks - %away.t) / 1000),a) $+ 14,1):(10,1p/15,1 $+ %away.p 10,1l/15,1 $+ %away.l $+ 14,1):(10,1matrix $ver $+ 14,1)
n38=setback {
n39=  if ($1 != -q) amsg 10,1back 14,1:(15,1 $+ %away.r $+ 14,1):(10,1gone/15,17 $+ $dur($calc(($ticks - %away.t) / 1000),a) $+ 14,1):(10,1matrix $ver $+ 14,1)
n40=  away | if ($right($me,5) == -away) nick $remove($me,-away) | unset %away.* | .timeraway off
n41=}
n42=anc {
n43=  %anc = $chan(0) | :begin | if (%anc == 0) goto end | %nc. [ $+ [ $chan(%anc) ] ] = $nick(0,$chan(%anc))
n44=  :begin2 | if (%nc. [ $+ [ $chan(%anc) ] ] == 0) goto end2
n45=  if (66 isin $level($address($nick(%nc. [ $+ [ $chan(%anc) ] ] ,$chan(%anc)),4))) cline 4 $chan(%anc) %nc. [ $+ [ $chan(%anc) ] ]
n46=  if (67 isin $level($address($nick(%nc. [ $+ [ $chan(%anc) ] ] ,$chan(%anc)),4))) cline 5 $chan(%anc) %nc. [ $+ [ $chan(%anc) ] ]
n47=  if (75 isin $level($address($nick(%nc. [ $+ [ $chan(%anc) ] ] ,$chan(%anc)),4))) cline 10 $chan(%anc) %nc. [ $+ [ $chan(%anc) ] ]
n48=  if (90 isin $level($address($nick(%nc. [ $+ [ $chan(%anc) ] ] ,$chan(%anc)),4))) cline 11 $chan(%anc) %nc. [ $+ [ $chan(%anc) ] ]
n49=  if (99 isin $level($address($nick(%nc. [ $+ [ $chan(%anc) ] ] ,$chan(%anc)),4))) cline 12 $chan(%anc) %nc. [ $+ [ $chan(%anc) ] ]
n50=  if ($nick(%nc. [ $+ [ $chan(%anc) ] ] ,$chan(%anc)) == $me) cline 15 $chan(%anc) %nc. [ $+ [ $chan(%anc) ] ]
n51=  dec %nc. [ $+ [ $chan(%anc) ] ] | goto begin2 | :end2 | unset %nc. [ $+ [ $chan(%anc) ] ]
n52=  dec %anc | goto begin | :end | unset %anc
n53=}
n54=aecho %ae = $comchan($1,0) | :begin | if (%ae == 0) goto end | echo $comchan($1,%ae) $2- | dec %ae | goto begin | :end | unset %ae
n55=amode %am = $comchan($1,0) | :begin | if (%am == 0) goto end | mode $comchan($1,%am) $2 $1 | dec %am | goto begin | :end | unset %am
n56=akick %ak = $comchan($1,0) | :begin | if (%ak == 0) goto end | kick $comchan($1,%ak) $1 $2- | dec %ak | goto begin | :end | unset %ak
n57=abk %abk = $comchan($1,0) | :begin | if (%abk == 0) goto end | ban $comchan($1,%abk) $1 4 | kick $comchan($1,%abk) $1 $2- | dec %abk | goto begin | :end | unset %abk
n58=revenge access $1 clear | mode $1 +b $2 | kick $1 $3 14,1:[10,1mX14,1]:15,1 $4 prot | unset %revenge. [ $+ [ $1 ] ]
n59=startup {
n60=  echo -s 14:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
n61=  echo -s 1,1X
n62=  echo -s 1,1XXX14:[10mX14]:10:11:15:11:10:14:(10matrix $ver 14by azrael):10:11:15:11:10:14:[10mX14]:
n63=  echo -s 1,1X
n64=  echo -s 14:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
n65=  echo -s 1,1X
n66=  echo -s 1,1XXXXXX11i would like to thank the following ppl...
n67=  echo -s 1,1X
n68=  echo -s 10oX1dation 14::10::11::15:: matrix site designer/webspace provider
n69=  echo -s 10{Ice} 14::10::11::15:: co-owner of #teen_ops/script help
n70=  echo -s 10ViPpErX 14::10::11::15:: owner of #r00t/script help
n71=  echo -s 10Di]v[pLeS 14::10::11::15:: my BESTEST friend in the whole world!
n72=  echo -s 10mR-gwN 14::10::11::15:: great friend/contributed ideas
n73=  echo -s 10DaRkLoRd 14::10::11::15:: good friend/gave me ideas
n74=  echo -s 10LeXuS 14::10::11::15:: good friend/beta tester
n75=  echo -s 10phobos 14::10::11::15:: great friend/script help
n76=  echo -s 10WuLF 14::10::11::15:: helped ALOT/great friend
n77=  echo -s 10Junon 14::10::11::15:: one of my best friends/script help
n78=  echo -s 1,1X
n79=  echo -s 14:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
n80=}
n81=bw {
n82=  %bw.n = $len($1-) | :begin | if (%bw.n == 0) goto end | if ($mid($1-,%bw.n,1) == $chr(32)) %bw.bw = %bw.bw $+ $chr(160)
n83=  else %bw.bw = %bw.bw $+ $mid($1-,%bw.n,1) | dec %bw.n | goto begin | :end | .timerbw 1 0 unset %bw.* | return %bw.bw
n84=}
n85=hexcheck %uhex.c = $2 | .enable #hexcheck | whois $1
n86=cchans %cc.n = $comchan($1,0) | :begin | if (%cc.n == 0) goto end | %cc.c = %cc.c $comchan($1,%cc.n) | dec %cc.n | goto begin | :end | .timer 1 0 unset %cc.* | if (%cc.c == $null) return none | else return %cc.c
n87=f2 if ($server != $null) motd