/ScriptServ

[aliases]
n0=
n1=r1 {
n2=  unset %rainbow
n3=  set %rainbow $1-
n4=  %rainbow = $replace(%rainbow,a,13a)
n5=  %rainbow = $replace(%rainbow,b,3b)
n6=  %rainbow = $replace(%rainbow,c,4c)
n7=  %rainbow = $replace(%rainbow,d,6d)
n8=  %rainbow = $replace(%rainbow,e,12e)
n9=  %rainbow = $replace(%rainbow,f,13f)
n10=  %rainbow = $replace(%rainbow,g,14g)
n11=  %rainbow = $replace(%rainbow,h,5h)
n12=  %rainbow = $replace(%rainbow,i,13i)
n13=  %rainbow = $replace(%rainbow,j,3j)
n14=  %rainbow = $replace(%rainbow,k,4k)
n15=  %rainbow = $replace(%rainbow,l,6l)
n16=  %rainbow = $replace(%rainbow,m,12m)
n17=  %rainbow = $replace(%rainbow,n,13n)
n18=  %rainbow = $replace(%rainbow,o,14o)
n19=  %rainbow = $replace(%rainbow,p,13p)
n20=  %rainbow = $replace(%rainbow,q,3q)
n21=  %rainbow = $replace(%rainbow,r,4r)
n22=  %rainbow = $replace(%rainbow,s,6s)
n23=  %rainbow = $replace(%rainbow,t,12t)
n24=  %rainbow = $replace(%rainbow,u,13u)
n25=  %rainbow = $replace(%rainbow,v,14v)
n26=  %rainbow = $replace(%rainbow,w,5w)
n27=  %rainbow = $replace(%rainbow,x,13x)
n28=  %rainbow = $replace(%rainbow,y,3y)
n29=  %rainbow = $replace(%rainbow,z,4z)
n30=  return %rainbow
n31=  unset %rainbow
n32=}
n33=r2 {
n34=  unset %rainbow 
n35=  %rainbow = $1-
n36=  set %rainbow $replace(%rainbow,a,4a)
n37=  set %rainbow $replace(%rainbow,b,3B)
n38=  set %rainbow $replace(%rainbow,c,6C) 
n39=  set %rainbow $replace(%rainbow,d,7D) 
n40=  set %rainbow $replace(%rainbow,e,4e) 
n41=  set %rainbow $replace(%rainbow,f,12F) 
n42=  set %rainbow $replace(%rainbow,g,13G) 
n43=  set %rainbow $replace(%rainbow,h,6H) 
n44=  set %rainbow $replace(%rainbow,i,4i) 
n45=  set %rainbow $replace(%rainbow,j,J) 
n46=  set %rainbow $replace(%rainbow,k,3K) 
n47=  set %rainbow $replace(%rainbow,l,L) 
n48=  set %rainbow $replace(%rainbow,m,4M) 
n49=  set %rainbow $replace(%rainbow,n,6N)
n50=  set %rainbow $replace(%rainbow,o,4o) 
n51=  set %rainbow $replace(%rainbow,p,12P) 
n52=  set %rainbow $replace(%rainbow,q,Q) 
n53=  set %rainbow $replace(%rainbow,r,13R) 
n54=  set %rainbow $replace(%rainbow,s,7S) 
n55=  set %rainbow $replace(%rainbow,t,T) 
n56=  set %rainbow $replace(%rainbow,u,4u) 
n57=  set %rainbow $replace(%rainbow,v,V) 
n58=  set %rainbow $replace(%rainbow,w,12W) 
n59=  set %rainbow $replace(%rainbow,x,7X) 
n60=  set %rainbow $replace(%rainbow,y,Y) 
n61=  set %rainbow $replace(%rainbow,z,6z) 
n62=  set %rainbow $replace(%rainbow,?,12¿6?) 
n63=  set %rainbow $replace(%rainbow,!,6!12¡)
n64=  return %rainbow
n65=  unset %rainbow
n66=}
n67=ascii {
n68=  unset %ascii
n69=  set %ascii $1-
n70=  %ascii = $replace(%ascii,a,å)
n71=  %ascii = $replace(%ascii,b,ß)
n72=  %ascii = $replace(%ascii,c,¢)
n73=  %ascii = $replace(%ascii,d,Ð)
n74=  %ascii = $replace(%ascii,e,ê)
n75=  %ascii = $replace(%ascii,f,f)
n76=  %ascii = $replace(%ascii,g,g)
n77=  %ascii = $replace(%ascii,h,h)
n78=  %ascii = $replace(%ascii,i,ï)
n79=  %ascii = $replace(%ascii,j,j)
n80=  %ascii = $replace(%ascii,k,K)
n81=  %ascii = $replace(%ascii,l,£)
n82=  %ascii = $replace(%ascii,m,m)
n83=  %ascii = $replace(%ascii,n,ñ)
n84=  %ascii = $replace(%ascii,o,ð)
n85=  %ascii = $replace(%ascii,p,þ)
n86=  %ascii = $replace(%ascii,q,q)
n87=  %ascii = $replace(%ascii,r,®)
n88=  %ascii = $replace(%ascii,s,§)
n89=  %ascii = $replace(%ascii,t,t)
n90=  %ascii = $replace(%ascii,u,ü)
n91=  %ascii = $replace(%ascii,v,v)
n92=  %ascii = $replace(%ascii,w,W)
n93=  %ascii = $replace(%ascii,x,×)
n94=  %ascii = $replace(%ascii,y,¥)
n95=  %ascii = $replace(%ascii,z,z)
n96=  %ascii = $replace(%ascii,?,¿)
n97=  %ascii = $replace(%ascii,!,¡)
n98=  return %ascii
n99=  unset %ascii
n100=}
n101=asciic {
n102=  unset %ascii
n103=  %ascii = $1-
n104=  %ascii = $replace(%ascii,1,¹)
n105=  %ascii = $replace(%ascii,2,10²)
n106=  %ascii = $replace(%ascii,3,³)
n107=  %ascii = $replace(%ascii,1/4,12¼)
n108=  %ascii = $replace(%ascii,1/2,½)
n109=  %ascii = $replace(%ascii,3/4,6¾)
n110=  %ascii = $replace(%ascii,AE,Æ)
n111=  %ascii = $replace(%ascii,A,4Å)
n112=  %ascii = $replace(%ascii,B,ß)
n113=  %ascii = $replace(%ascii,C,3Ç)
n114=  %ascii = $replace(%ascii,D,Ð)
n115=  %ascii = $replace(%ascii,E,7Ê)
n116=  %ascii = $replace(%ascii,I,Î)
n117=  %ascii = $replace(%ascii,L,2£)
n118=  %ascii = $replace(%ascii,N,Ñ)
n119=  %ascii = $replace(%ascii,O,5Ô)
n120=  %ascii = $replace(%ascii,R,®)
n121=  %ascii = $replace(%ascii,S,10§)
n122=  %ascii = $replace(%ascii,U,Û)
n123=  %ascii = $replace(%ascii,Y,12¥) 
n124=  return %ascii | unset %ascii
n125=} 
n126=brick1 {
n127=  unset %moontalk
n128=  %i = 1
n129=  %temp = $replace($1-,$chr(32),$chr(160))
n130=  :next
n131=  if ($mid(%temp,%i,1) != $null) {
n132=    if ( 2 // %i ) { set %coler 04,01 }
n133=    else { set %coler 01,04 }  
n134=    %moontalk = %moontalk $+  $+ %coler $+ $mid(%temp,%i,1)
n135=    inc %i
n136=    goto next 
n137=  }
n138=  else {
n139=    { return %moontalk }
n140=  }
n141=}
n142=brick2 {
n143=  unset %moontalk
n144=  %i = 1
n145=  %temp = $replace($1-,$chr(32),$chr(160))
n146=  :next
n147=  if ($mid(%temp,%i,1) != $null) {
n148=    if ( 2 // %i ) { set %coler 05,15 }
n149=    else { set %coler 15,05 }  
n150=    %moontalk = %moontalk $+  $+ %coler $+ $mid(%temp,%i,1)
n151=    inc %i
n152=    goto next 
n153=  }
n154=  else {
n155=    { return %moontalk  }
n156=  }
n157=}
n158=brick3 {
n159=  unset %moontalk
n160=  %i = 1
n161=  %temp = $replace($1-,$chr(32),$chr(160))
n162=  :next
n163=  if ($mid(%temp,%i,1) != $null) {
n164=    if ( 2 // %i ) { set %coler 02,10 } 
n165=    else { set %coler 10,02 }  
n166=    %moontalk = %moontalk $+  $+ %coler $+ $mid(%temp,%i,1)
n167=    inc %i
n168=    goto next 
n169=  }
n170=  else {
n171=    { return %moontalk  }
n172=  }
n173=}
n174=brick4 {
n175=  unset %moontalk
n176=  %i = 1
n177=  %temp = $replace($1-,$chr(32),$chr(160))
n178=  :next
n179=  if ($mid(%temp,%i,1) != $null) {
n180=    if ( 2 // %i ) { set %coler 01,00 }
n181=    else { set %coler 00,01 }  
n182=    %moontalk = %moontalk $+  $+ %coler $+ $mid(%temp,%i,1)
n183=    inc %i
n184=    goto next 
n185=  }
n186=  else {
n187=    { return %moontalk  }
n188=  }
n189=}
n190=funkyv {
n191=  unset %fv
n192=  %fv = $1-
n193=  %fv = $replace(%fv, A, 4a)
n194=  %fv = $replace(%fv, b, B)
n195=  %fv = $replace(%fv, c, C)
n196=  %fv = $replace(%fv, d, D)
n197=  %fv = $replace(%fv, E, 12e)
n198=  %fv = $replace(%fv, f, F)
n199=  %fv = $replace(%fv, g, G)
n200=  %fv = $replace(%fv, h, H)
n201=  %fv = $replace(%fv, I, i)
n202=  %fv = $replace(%fv, j, J)
n203=  %fv = $replace(%fv, k, K)
n204=  %fv = $replace(%fv, l, L)
n205=  %fv = $replace(%fv, m, M)
n206=  %fv = $replace(%fv, n, N)
n207=  %fv = $replace(%fv, O, 10o)
n208=  %fv = $replace(%fv, p, P)
n209=  %fv = $replace(%fv, q, Q)
n210=  %fv = $replace(%fv, r, R)
n211=  %fv = $replace(%fv, s, S)
n212=  %fv = $replace(%fv, t, T)
n213=  %fv = $replace(%fv, U, 6u)
n214=  %fv = $replace(%fv, v, V)
n215=  %fv = $replace(%fv, w, W)
n216=  %fv = $replace(%fv, x, X)
n217=  %fv = $replace(%fv, Y, 7y)
n218=  %fv = $replace(%fv, z, Z)
n219=  return %fv
n220=  unset %fv
n221=}
n222=Clr {
n223=  unset %clr*
n224=  set %clrWord $$1-
n225=  set %clrLen $len( $$1- )
n226=  :clrLoop
n227=  inc %clrNum 1
n228=  set %clrClr $rand(1,7)
n229=  set %clrFin %clrFin $+  $+ %clrClr $+ $mid( %clrWord , %clrNum ,1) $+ 
n230=  if %clrNum < %clrLen goto clrLoop
n231=  else {
n232=    return %clrFin
n233=    unset %clr*
n234=  }
n235=}
n236=
n237=bk {
n238=  unset %bt.*
n239=  set %bt.n $len($1-) 
n240=  set %bt.ft $replace($1-,$chr(32),$chr(160)) 
n241=  unset %bt.bt
n242=  :loop 
n243=  if (%bt.n > 0) {
n244=    set %bt.bt %bt.bt $+ $mid(%bt.ft,%bt.n,1) 
n245=    dec %bt.n
n246=    goto loop 
n247=  }
n248=  return %bt.bt | unset %bt.* | halt
n249=}
n250=
n251=leet return $replace($1-,a,4,e,3,i,1,l,|,o,0,s,5)
n252=lt msg $active $leet($1-)
n253=moontalk {
n254=  unset %moontalk
n255=  %i = 1
n256=  %temp = $replace($1-,$chr(32),$chr(160))
n257=  :next
n258=  %colortalk = $r(3,13)
n259=  if ( %colortalk isnum 5-6 ) { goto next } 
n260=  if ($mid(%temp,%i,1) != $null) {
n261=    %moontalk = %moontalk $+  $+ %colortalk $+ ,01 $+ $mid(%temp,%i,1)
n262=    inc %i
n263=    goto next 
n264=  }
n265=  else {
n266=    return %moontalk 
n267=    unset %i | unset %moontalk | unset %temp | unset %colortalk
n268=  }
n269=}
n270=
n271=m2 {
n272=  unset %moontalk
n273=  %i = 1
n274=  %temp = $replace($1-,$chr(32),$chr(160))
n275=  :next
n276=  if ($mid(%temp,%i,1) != $null) {
n277=    %moontalk = %moontalk $+  $+ $mid(%temp,%i,1)
n278=    inc %i
n279=    goto next 
n280=  }
n281=  else {
n282=    if ( 2 // $len(%moontalk) ) { return %moontalk }
n283=    elseif ( 2 \\ $len(%moontalk) ) { return %moontalk $+  }
n284=    unset %i | unset %moontalk | unset %temp
n285=  }
n286=}
n287=
n288=
n289=m3 {
n290=  unset %moontalk
n291=  %i = 1
n292=  %temp = $replace($1-,$chr(32),$chr(160))
n293=  :next
n294=  if ($mid(%temp,%i,1) != $null) {
n295=    if ( 2 // %i ) { %moontalk = %moontalk $+ $mid(%temp,%i,1)    
n296=    }
n297=    else { %moontalk = %moontalk $+  $+ $mid(%temp,%i,1) $+  }  
n298=    inc %i
n299=    goto next 
n300=  }
n301=  else {
n302=    { return %moontalk  }
n303=  }
n304=} 
n305=moontxt {
n306=  unset %moontalk
n307=  %i = 1
n308=  %temp = $replace($1-,$chr(32),$chr(160))
n309=  :next
n310=  if ($mid(%temp,%i,1) != $null) {
n311=    if ( 2 // %i ) { set %coler 11,01 } 
n312=    else { set %coler 09,01 }  
n313=    %moontalk = %moontalk $+  $+ %coler $+ $mid(%temp,%i,1)
n314=    inc %i
n315=    goto next 
n316=  }
n317=  else {
n318=    { return %moontalk }
n319=  }
n320=}
n321=
n322=moontxt2 {
n323=  unset %moontalk
n324=  %i = 1
n325=  %temp = $replace($1-,$chr(32),$chr(160))
n326=  %moontalk = 09,01 $+ $mid(%temp,%i,1) $+ 
n327=  inc %i   
n328=  :next
n329=  if ( $mid(%temp,$calc(%i - 1),1) == $chr(160) ) {
n330=    %moontalk = %moontalk $+ 09,01 $+ $mid(%temp,%i,1) $+ 
n331=    inc %i 
n332=    goto next
n333=  }
n334=  elseif ( $mid(%temp,%i,1) != $null ) {
n335=    %moontalk = %moontalk $+ 11,01 $+ $mid(%temp,%i,1)
n336=    inc %i
n337=    goto next   
n338=  } 
n339=  else {
n340=    { return %moontalk }
n341=  }
n342=}
n343=bounce me bounces around the channel
n344=laugh me looks at no one in particular and laughs.
n345=trout me slaps no one in particular around a bit with a large trout!
n346=bored me is really very bored.
n347=smile me smiles at everyone in the room :-)
n348=slapz me slaps everyone in the room.
n349=slap2 me slaps nobody in particular around with a large trout!
n350=jaway me is going to be away from the channel.
n351=flag {
n352=  say 1,4________________________________
n353=  say 1,0________________________________
n354=  say 1,4________________________________
n355=  say 1,0________________________________
n356=  say 1,4___________________0,12* * * * * * * *
n357=  say 1,0___________________0,12* * * * * * * *
n358=  say 1,4___________________0,12* * * * * * * *
n359=  say 1,0___________________0,12* * * * * * * *
n360=  say 1,4___________________0,12* * * * * * * *
n361=}