/ScriptServ

[Aliases]
n0=rc {
n1=  %i = 0 
n2=  %rsolt = "" 
n3=  %already = $replace(*1,$chr(32),$chr(1))  
n4=  :start
n5=  inc %i  
n6=  if (%i > $len(%already)) { goto resolt }  
n7=  else { set %rsolt %rsolt $chr(3) $+ $r(1,15) $+ $mid(%i,1,%already) $+ $chr(3) | goto start }
n8=  :resolt
n9=  %rsolt = $remove(%rsolt,$chr(32)) 
n10=  %rsolt = $replace(%rsolt,$chr(1),$chr(32)) 
n11=  say %rsolt
n12=}
n13=clrinc {
n14=  if ($1 == $null) { echo 10 -a *9** 7,1Usage: 4,1/clrinc 11text 9hieght | halt }
n15=  if ($2 == $null) { echo 10 -a *9** 7,1Usage: 4,1/clrinc 11text 9hieght | halt }
n16=  if ($2 ISNUM) { goto continue }
n17=  else { echo 10 -a *9** 7,1Usage: 4,1/clrinc 11text 9hieght | halt }
n18=  :continue
n19=  set %i 0
n20=  set %char $1
n21=  set %hieght $2
n22=  :start
n23=  inc %i 1
n24=  inc %i.2
n25=  if (%i.2 == 15) { set %i.2 1 }
n26=  if (%i == %hieght) { goto dec } 
n27=  echo %i.2 $str(%i,%char)
n28=  goto start
n29=  :dec
n30=  if (%tmp != 0) && (%tmp2 == $null) { set %tmp 0 }
n31=  set %tmp2 .
n32=  if (%tmp == 0) { inc %i 1 }
n33=  set %tmp 1 
n34=  dec %i 1
n35=  inc %i.2
n36=  if (%i.2 == 15) { set %i.2 1 }
n37=  if (%i == 0) { goto end }
n38=  echo %i.2 $str(%i,%char) 
n39=  goto dec
n40=  :end
n41=  unset %tmp2
n42=  unset %i
n43=  unset %i.2
n44=  unset %tmp
n45=  halt
n46=}
n47=flash {
n48=  if ($1 == $null) { echo 10 -a *9** 7,1Usage: 4,1/flash 11text 9hieght | halt }
n49=  if ($2 == $null) { echo 10 -a *9** 7,1Usage: 4,1/flash 11text 9hieght | halt }
n50=  if ($2 ISNUM) { goto continue }
n51=  else { echo 10 -a *9** 7,1Usage: 4,1/clrinc 11text 9hieght | halt }
n52=  :continue
n53=  set %i 0
n54=  set %char $1
n55=  set %hieght $2
n56=  :start
n57=  inc %i 1
n58=  inc %i.2
n59=  if (%i.2 == 15) { set %i.2 1 }
n60=  if (%i == %hieght) { goto dec } 
n61=  say  $+ %i.2 $str(%i,%char)
n62=  goto start
n63=  :dec
n64=  if (%tmp != 0) && (%tmp2 == $null) { set %tmp 0 }
n65=  set %tmp2 .
n66=  if (%tmp == 0) { inc %i 1 }
n67=  set %tmp 1 
n68=  dec %i 1
n69=  inc %i.2
n70=  if (%i.2 == 15) { set %i.2 1 }
n71=  if (%i == 0) { goto end }
n72=  say  $+ %i.2 $str(%i,%char) 
n73=  goto dec
n74=  :end
n75=  unset %tmp2
n76=  unset %i
n77=  unset %i.2
n78=  unset %tmp
n79=  halt
n80=}
n81=krazy {
n82=  %str1ng = $replace(*1,$chr(32), )
n83=  %krazy = 0
n84=  :start
n85=  inc %krazy
n86=  if ($mid(%krazy,1,%str1ng) == $null) { %s4y = $replace(%s4y, ,$chr(32)) | say %s4y | unset %s4y | unset %str1ng | unset %krazy | unset %rand | halt }
n87=  %rand = $r(1,15)
n88=  if (%rand < 10) { set %rand 0 $+ %rand }
n89=  if (%s4y == $null) { %s4y =  $+ %rand $+ $mid(%krazy,1,%str1ng) }
n90=  else { %s4y = %s4y $+  $+ %rand $+ $mid(%krazy,1,%str1ng) }
n91=  if ($r(1,2) == 1) { %s4y = %s4y $+  }
n92=  if ($r(1,2) == 2) { %s4y = %s4y $+  }
n93=  goto start
n94=}
n95=flip {
n96=  if ($1 == $null) { echo 11 *** Usage: flip #otimes #len (0 for infinite) | halt }
n97=  if ($2 == $null) { echo 11 *** Usage: flip #otimes #len (0 for infinite) | halt }
n98=  %i = 0
n99=  set %i.2 0
n100=  %end = $$1
n101=  set %len $$2
n102=  :start
n103=  inc %i 1
n104=  inc %i.2
n105=  if (%i.2 == %end) { halt }
n106=  if (%i == 5) { set %i 0 | goto start }
n107=  if (%i == 4) { echo %i.2 $str(%len,\) | clear | goto start }
n108=  if (%i == 3) { echo %i.2 $str(%len,|) | clear | goto start }
n109=  if (%i == 2) { echo %i.2 $str(%len,/) | clear | goto start }
n110=  if (%i == 1) { echo %i.2 $str(%len,-) | clear | goto start }
n111=  halt 
n112=}
n113=colors {
n114=  set %i 0
n115=  :start
n116=  inc %i
n117=  if (%i == 16) { echo 5 *** End of colors list | halt }
n118=  if (%i < 10) { echo 5 Color $chr(35) $+ 0 $+ %i =>  $+ %i $+ , $+ %i ............ | goto start }
n119=  echo 5 Color $chr(35) $+ %i =>  $+ %i $+ , $+ %i $+ .............
n120=  goto start
n121=} 
n122=scolor {
n123=  set %bg 1
n124=  :SCLoop
n125=  set %fg1 1 | set %fg2 2 | set %fg3 3 | set %fg4 4
n126=  unset %cout  
n127=  if %bg > 15 { 
n128=    unset %bg %fg1 %fg2 %fg3 %fg4 %cout %cout1
n129=    halt
n130=  }
n131=  :CSet
n132=  set %cout1  $+ %fg1 $+ , $+ %bg %fg1 $+ , $+ %bg  $+ %fg2 $+ , $+ %bg %fg2 $+ , $+ %bg  $+ %fg3 $+ , $+ %bg %fg3 $+ , $+ %bg  $+ %fg4 $+ , $+ %bg %fg4 $+ , $+ %bg 
n133=  set %cout %cout %cout1
n134=  inc %fg1 4 | inc %fg2 4 | inc %fg3 4 | inc %fg4 4
n135=  if %fg3 > 15 goto CSetDone
n136=  goto CSet
n137=  :CSetDone
n138=  echo -a %cout
n139=  inc %bg 1
n140=  goto SCLoop
n141=}
n142=rain {
n143=  set %i $replace(*1,$chr(32), ) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
n144=  :loop
n145=  set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
n146=  inc %p
n147=  if ( $mid(%p,1,%i) !=  ) { inc %c }
n148=  if ( %c > 6 ) { set %c 1 }
n149=  if ( $mid(%p,1,%i) != $null ) { goto loop }
n150=  say %o
n151=  unset %o %i %p %c
n152=}
n153=cool { say $fcolor(*1) }
n154=fcolor {
n155=  set %num 0
n156=  set %c 14,01
n157=  set %data $replace(*1, $chr(32), $chr(150))
n158=  unset %temp
n159=  :loop
n160=  if (%c == 14,01) { set %c 1,14 }
n161=  else if (%c == 1,14) { set %c 14,15 }
n162=  else if (%c == 14,15) { set %c 15,00 }
n163=  else if (%c == 15,00) { set %c 00,15 }
n164=  else if (%c == 00,15) { set %c 15,14 }
n165=  else if (%c == 15,14) { set %c 14,01 }
n166=  inc %num 1
n167=  set %temp %temp  $+ [ %c ] $+ [ $mid(%num,1,%data) ]
n168=  if (%num == $len(%data)) { return $replace($remove(%temp,$chr(32)), $chr(150), $chr(32)) }
n169=  goto loop
n170=}
n171=crypt {
n172=  set %rk *1
n173=  %rk = $replace(%rk,a,9å)
n174=  %rk = $replace(%rk,b,2ß)
n175=  %rk = $replace(%rk,c,3©)
n176=  %rk = $replace(%rk,d,4Ð)
n177=  %rk = $replace(%rk,e,5ë)
n178=  %rk = $replace(%rk,f,6f)
n179=  %rk = $replace(%rk,g,7g)
n180=  %rk = $replace(%rk,h,10H)
n181=  %rk = $replace(%rk,i,9î)
n182=  %rk = $replace(%rk,j,10j)
n183=  %rk = $replace(%rk,k,10k)
n184=  %rk = $replace(%rk,l,12£)
n185=  %rk = $replace(%rk,m,13m)
n186=  %rk = $replace(%rk,n,14ñ)
n187=  %rk = $replace(%rk,o,15ø)
n188=  %rk = $replace(%rk,p,14P)
n189=  %rk = $replace(%rk,q,13q)
n190=  %rk = $replace(%rk,r,12®)
n191=  %rk = $replace(%rk,s,10§)
n192=  %rk = $replace(%rk,t,10t)
n193=  %rk = $replace(%rk,u,9ü)
n194=  %rk = $replace(%rk,v,8v)
n195=  %rk = $replace(%rk,w,7W)
n196=  %rk = $replace(%rk,x,6×)
n197=  %rk = $replace(%rk,y,5¥)
n198=  %rk = $replace(%rk,z,4z)
n199=  %rk = $replace(%rk,?,3¿)
n200=  %rk = $replace(%rk,!,8¡) 
n201=  say %rk
n202=  unset %rk
n203=}
n204=ascii {
n205=  set %rk *1
n206=  %rk = $replace(%rk,a,å)
n207=  %rk = $replace(%rk,b,ß)
n208=  %rk = $replace(%rk,c,©)
n209=  %rk = $replace(%rk,d,Ð)
n210=  %rk = $replace(%rk,e,ë)
n211=  %rk = $replace(%rk,f,f)
n212=  %rk = $replace(%rk,g,g)
n213=  %rk = $replace(%rk,h,H)
n214=  %rk = $replace(%rk,i,î)
n215=  %rk = $replace(%rk,j,j)
n216=  %rk = $replace(%rk,k,k)
n217=  %rk = $replace(%rk,l,£)
n218=  %rk = $replace(%rk,m,m)
n219=  %rk = $replace(%rk,n,ñ)
n220=  %rk = $replace(%rk,o,ø)
n221=  %rk = $replace(%rk,p,þ)
n222=  %rk = $replace(%rk,q,¶)
n223=  %rk = $replace(%rk,r,®)
n224=  %rk = $replace(%rk,s,§)
n225=  %rk = $replace(%rk,t,t)
n226=  %rk = $replace(%rk,u,µ)
n227=  %rk = $replace(%rk,v,v)
n228=  %rk = $replace(%rk,w,W)
n229=  %rk = $replace(%rk,x,×)
n230=  %rk = $replace(%rk,y,¥)
n231=  %rk = $replace(%rk,z,z)
n232=  %rk = $replace(%rk,?,¿)
n233=  %rk = $replace(%rk,!,¡) 
n234=  %rk = $replace(%rk,>,») 
n235=  %rk = $replace(%rk,<,«) 
n236=  %rk = $replace(%rk,1,¹)
n237=  %rk = $replace(%rk,2,²)
n238=  %rk = $replace(%rk,3,³)
n239=  %rk = $replace(%rk,+,±)
n240=  %rk = $replace(%rk,0,¤)       
n241=  say %rk
n242=  unset %rk
n243=}
n244=time {
n245=  if ($left(1,$time) == 0) {
n246=    %time = 12: $+ $gettok($time,2,58) $+ : $+ $gettok($time,3,58) $+ a
n247=  }
n248=  elseif ($chr(58) isin $left(2,$time)) {
n249=    %time = $left(1,$time) $+ : $+ $gettok($time,2,58) $+ : $+ $gettok($time,3,58) $+ a
n250=  }
n251=  elseif ($left(2,$time) < 12) {
n252=    %time = $time $+ a
n253=  }
n254=  elseif ($left(2,$time) == 12) {
n255=    %time = 12: $+ $token(2,58,$time) $+ : $+ $gettok($time,3,58) $+ p
n256=  }
n257=  else {
n258=    %time2 = $left(2,$time) - 12
n259=    %time = %time2 $+ : $+ $gettok($time,2,58) $+ : $+ $gettok($time,3,58) $+ p
n260=  }
n261=}
n262=timeon {
n263=  %timeonline = $ctime - %online
n264=  %hrz = %timeonline / 3600
n265=  %hrz2 = %hrz * 3600
n266=  %timeonline = %timeonline - %hrz2
n267=  %minz = %timeonline / 60
n268=  %minz2 = %minz * 60
n269=  %timeonline = %timeonline - %minz2
n270=}
n271=atime { return %time }
n272=tonline { return %hrz $+ h $+ %minz $+ m $+ %timeonline $+ s }
n273=refresh {
n274=}
n275=awaymsg { ame is away! %echo (Reason: $+ %awaymsg $+ ) (Away since: $+ $day %awaysince $+ ) (Away for: $+ %awaymins $+ mins) (Pager: $+ %pager $+ ) }
n276=}
n277=/ghost {
n278=join $$1 $+ $chr(160)
n279=}
n280=wall {
n281=.onotice # %echo $+ 4(10WallOps4(10 $+ $opnick(0,#) $+ 4) $+ / $+  $+ # $+ 4) *1
n282=echo 4(2To Ops4) 5 $+ %echo $+ 4(10WallOps4(10 $+ $opnick(0,#) $+ 4) $+ 4/ $+ 10 $+ # $+ 4) *1 $+