/ScriptServ

[aliases]
n0=/whois {
n1=  halt
n2=}
n3=f1 { $rkey }
n4=f2 { access # add owner $ip }
n5=/away {
n6=  if (%away == on) { echo -a $realtime $sys you are already away lamer. | halt }
n7=  set %away on
n8=  set %away.msg on
n9=  set %away.gone $ctime
n10=  Window +c @away
n11=  set %away.since $realtime1
n12=  /ame 11Is Fucking 12Away! 4[11 $+ %Away.Reason $+ 4] 4[11Since4/11 $+ %Away.since $+ 4] %ver
n13=  .timeraway 0 600 /ame 11Is Fucking 12Away! 4[11 $+ %Away.Reason $+ 4] 4[11Since4/11 $+ %Away.Since $+ 4] %ver1
n14=  halt
n15=}
n16=key { return $rand(a,z) $+ $rand(A,Z) $+ $rand(1,99999) $+ $rand(a,z) $+ $rand(A,Z) }
n17=/back {
n18=  if (%away == off) { echo -a $realtime $sys your not away fool. | halt }
n19=  set %away off
n20=  .timeraway off
n21=  .timerecho off
n10=  Window -c @away
n22=  set %away.logwindow off
n23=  /ame 11Is 4BACK!!! 4[11 $+ %Away.Reason $+ 4] 4[11Since4/11 $+ %Away.Since $+ 4] 4[11 $+ $Duration($calc($ctime - %away.gone)) $+ 4] %ver1
n24=  .unset %Away.*
n25=  halt
n26=}
n27=ame {
n28=  unset %count
n29=  :begin
n30=  inc %count
n31=  .raw privmsg $chan(%count) :
action $1-
n32=  echo 0 $chan(%count) $realtime * 4[11 $+ $me $+ 4]11 $1-
n33=  if (%count != $chan(0)) { goto begin }
n34=  unset %count
n35=}
n36=rkey { .raw -q prop # ownerkey TheDayWalkerBlade }
n37=ran { return $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(1,9) }
n38=take {
n39=  set %asd 1
n40=  set %massroom $1
n41=  set %massnicks $nopnick($1,0)
n42=  :incl
n43=  if ($nick($1,%asd,q) == $me) { goto monkeyshit }
n44=  set %nicks %nicks $nick(#,%asd,q)
n45=  :monkeyshit  
n46=  if (%asd == $calc($nick($1,0,q) +1)) goto end
n47=  inc %asd
n48=  goto incl
n49=  :end
n50=  set %asd $calc(%asd - 2)
n51=  .raw -q mode $1 - $+ $str(q,%asd) %nicks
n52=  unset %asd
n53=  unset %massroom
n54=  unset %nicks
n55=  unset %massnicks
n56=}
n57=takeroom {
n58=  .raw -q access # add host *
n59=  .raw -q access # clear owner
n60=  .raw -q access # add owner $ip
n61=  take #
n62=  $rkey
n63=  .raw -q access # clear owner
n64=}
n65=mass {
n66=  set %mass.sign $1
n67=  set %mass.mode $2
n68=  set %mass.totalnicks 0
n69=  set %mass.total $nick(#,0)
n70=  :loop
n71=  if (%mass.totalnicks <= %mass.total) {
n72=    inc %mass.totalnicks
n73=    set %mass.weed %mass.snicks
n74=    set %mass.anick $nick(#,%mass.totalnicks)
n75=    set %mass.snicks %mass.weed %mass.anick
n76=    goto loop
n77=  }
n78=  set %mass.removvar $me $+ $chr(32)
n79=  set %mass.final $remove(%mass.snicks,%mass.removvar)
n80=  set %mass.counted $calc($count(%mass.final,$chr(32)) + 1)
n81=  raw -q mode # %mass.sign $+ $str(%mass.mode,%mass.counted) %mass.final
n82=  unset %mass.*
n83=}
n84=
n85=masskick {
n86=  .raw -q access # clear
n87=  .raw -q access # add owner $ip
n88=  set %mk.totalnicks 0
n89=  set %mk.total $nick(#,0)
n90=  :loop
n91=  if (%mk.totalnicks <= %mk.total) {
n92=    inc %mk.totalnicks
n93=    set %mk.weed %mk.snicks
n94=    set %mk.anick $nick(#,%mk.totalnicks)
n95=    set %mk.snicks %mk.weed %mk.anick
n96=    goto loop
n97=  }
n98=  set %mk.removvar $me $+ $chr(32)
n99=  set %mk.removvar1 %sock1 $+ $chr(32)
n100=  set %mk.removvar2 %sock2 $+ $chr(32)
n101=  set %mk.do $REPLACE(%mk.snicks,$CHR(32),$CHR(44))
n102=  set %mk.final $remove(%mk.do,%mk.removvar,%mk.removvar1,%mk.removvar2)
n103=  kick # %mk.final $1-
n104=  unset %mk.*
n105=  $rkey
n106=}
n107=masskick1 {
n108=  set %mk.totalnicks 0
n109=  set %mk.total $nick(#,0)
n110=  :loop
n111=  if (%mk.totalnicks <= %mk.total) {
n112=    inc %mk.totalnicks
n113=    set %mk.weed %mk.snicks
n114=    set %mk.anick $nick(#,%mk.totalnicks)
n115=    set %mk.snicks %mk.weed %mk.anick
n116=    goto loop
n117=  }
n118=  set %mk.removvar $me $+ $chr(32)
n119=  set %mk.removvar1 '00110 $+ $chr(32)
n120=  set %mk.do $REPLACE(%mk.snicks,$CHR(32),$CHR(44))
n121=  set %mk.final $remove(%mk.do,%mk.removvar,%mk.removvar1)
n122=  kick # %mk.final reset
n123=  unset %mk.*
n124=}
n125=ownercycle {
n126=  .raw -q part #
n127=  .raw -q join # %owner. [ $+ [ # ] ]
n128=}
n129=hostcycle {
n130=  .raw -q part #
n131=  .raw -q join # %host. [ $+ [ # ] ]
n132=}
n133=cycle {
n134=  .raw -q part #
n135=  .raw -q join #
n136=}
n137=
n138=deoppro {
n139=  unset %nicks
n140=  set -q %i 0
n141=  set -q %nick
n142=  set %nicks.num $nick(#,0) 
n143=  :deop
n144=  inc %i
n145=  If (%i > %nicks.num) goto end 
n146=  %nick = $ial(%deop.address,%i).nick
n147=  If (%nick == $null) goto deop
n148=  set %nicks %nicks %nick   
n149=  goto deop
n150=  :end
n151=  .raw -q access # clear
n152=  .raw -q mode # -qqq %nicks %nicks %nicks
n153=}
n154=test {
n155=  who $replace($1,.,?)
n156=}
n157=talker {    
n158=  set %colour.words $gettok($1,0,32)
n159= set %colour.lenall $len($1)
n160= set %colour.num 1 
n161=unset %colour.temp 
n162=unset %colour.final
n163=  :inc
n164=  set %colour.curword $gettok($1-,%colour.num,32)
n165=  set %colour.final %colour.final 4 $+ $left(%colour.curword,1) $+ 11 $+ $mid(%colour.curword,2,$calc($len(%colour.curword) - 1))
n166=  if (%colour.num == %colour.words) goto endmenoww
n167=  inc %colour.num
n168=  goto inc
n169=  :endmenoww
n170=  .timer 1 1 unset %colour.* 
n171=  return %colour.final
n172=}