[aliases]
n0=;=============================FKeys======================================
n1=F1 /sound $hfile="Choose a Wav" c:\mirc\sounds\*.wav
n2=/k /kick $chan *1 Not Following Channel Rules 
n3=/kb /ban $chan *1 2 | /kick $chan *1 Not following channel rules
n4=/hop /part # | /join #$$1
n5=;================================Pretty words Banner=================================
n6=/d { set %d d [ $+ [ $r(1,11) ] ] | %d $parms }
n7=/d1 /say 0,0 0,09,0`%0,9%¸9,93,9`%9,3%¸3,33,31,3`%3,1%¸1,1 0,1    $$1-  1,1 3,1`%1,3%¸3,39,3`%3,9%¸9,90,9`%9,0%¸0,00
n8=/d2 /say 0,0 0,09,0`%0,9%¸9,93,9`%9,3%¸3,33,31,3`%3,1%¸1,1 0,1    $$1-  1,1 5,1`%1,5%¸5,54,5`%5,4%¸4,40,4`%4,0%¸0,00
n9=/d3 /say 0,0 0,04,0`%0,4%¸4,45,4`%4,5%¸5,55,51,5`%5,1%¸1,1 0,1    $$1-  1,1 3,1`%1,3%¸3,39,3`%3,9%¸9,90,9`%9,0%¸0,00
n10=/d4 /say 0,0 0,04,0`%0,4%¸4,45,4`%4,5%¸5,55,51,5`%5,1%¸1,1 0,1    $$1-  1,1 2,1`%1,2%¸2,212,2`%2,12%¸12,120,12`%12,0%¸0,00
n11=/d5 /say 0,0 0,04,0`%0,4%¸4,45,4`%4,5%¸5,55,51,5`%5,1%¸1,1 0,1    $$1-  1,1 5,1`%1,5%¸5,54,5`%5,4%¸4,40,4`%4,0%¸0,00
n12=/d6 /say 0,0 0,012,0`%0,12%¸12,122,12`%12,2%¸2,22,21,2`%2,1%¸1,1 0,1    $$1-  1,1 2,1`%1,2%¸2,212,2`%2,12%¸12,120,12`%12,0%¸0,00
n13=/d7 /say 0,0 0,08,0`%0,8%¸8,87,8`%8,7%¸7,77,71,7`%7,1%¸1,1 0,1    $$1-  1,1 7,1`%1,7%¸7,78,7`%7,8%¸8,80,8`%8,0%¸0,00
n14=/d8 /say 0,0 0,015,0`%0,15%¸15,1514,15`%15,14%¸14,1414,141,14`%14,1%¸1,1 0,1    $$1-  1,1 14,1`%1,14%¸14,1415,14`%14,15%¸15,150,15`%15,0%¸0,00
n15=/d9 /say 0,0 0,013,0`%0,13%¸13,136,13`%13,6%¸6,66,61,6`%6,1%¸1,1 0,1    $$1-  1,1 6,1`%1,6%¸6,613,6`%6,13%¸13,130,13`%13,0%¸0,00
n16=/d10 /say 0,0 0,012,0`%0,12%¸12,122,12`%12,2%¸2,22,21,2`%2,1%¸1,1 0,1    $$1-  1,1 6,1`%1,6%¸6,613,6`%6,13%¸13,130,13`%13,0%¸0,00
n17=/d11 /say 0,0 0,011,0`%0,11%¸11,1110,11`%11,10%¸10,1010,1011,10`%10,1%¸1,1 0,1    $$1-  1,1 10,1`%1,10%¸10,1011,10`%10,11%¸11,110,11`%11,0%¸0,00
n18=;=================================Patterned Words=================================
n19=/p1 pat 21.22.18.10.19.23 *1
n20=/smoke pat 0,17.15,14.14,15.1,16.14,15.15,14 *1
n21=/p3 pat 5,17.4,17.7,17.8,17.7,17.4,17 *1
n22=/p4 pat 1,24.8,17 *1
n23=/p5 pat 8,21.8,22.8,18.8,10.8,19.8,23 *1
n24=/p6 pat ... *1
n25=/irish pat 18.10.19.25.15.25.19.10 *1
n26=/p8 pat 1... *1
n27=/p9 pat 8/17.7/17.4/17.5/17.4/17.7/17 *1
n28=/kilt pat 0,2-.0,12-.0,10-.0,11-.0,10-.0,12- *1
n29=pat {
n30=  set %n $count($1,.) | inc %n | set %i 1 | set %p 1 | set %l $len(*2) | set %tc $replace(*2,$chr(32),¶) | set %ec  | :loop | set %ec %ec $+ $gettok($1,%i,46) $+ $mid(%p,1,%tc) | inc %i | inc %p | if (%i <= %n) goto part2 | set %i 1 | :part2 | if (%p <= %l) goto loop | say $replace(%ec,¶,$chr(32))
n31=}
n32=/ice { %num = 1 | unset %msg  | %msg =  | %color = p | :start | if %color == p { %num2 = 12 | %num3 = 13 | %color = y | goto add } | if %color == y  { %num2 = 13 | %num3 = 12 | %color = p | goto add } | :add | if $mid(%num,1, *1) != $null { | %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+    | inc %num  | goto start  } | say %msg
n33=}
n34=/Pink /say 15,131481211109478121110948 *1   15,13148121110947812111094
n35=/Cyan /say 15,11141312810947131281094 *1  15,11141312810947131281094
n36=/Blue /say 15,121413811109471381110948 *1  15,12141381110947138111094
n37=;=========================Boxes================================
n38=/b1 /say 2,2  *1 $+ ! | /say 0,2  *1  1,1!  | /say 2,2  *1  1,1! | /say 0,0 1,1 *1 $+ !
n39=/b2 /say 3,3  *1 $+ ! | /say 8,3  *1  1,1!  | /say 3,3  *1  1,1! | /say 0,0 1,1 *1 $+ !
n40=/b3 /say 4,4  *1 $+ ! | /say 0,4  *1  1,1!  | /say 4,4  *1  1,1! | /say 0,0 1,1 *1 $+ !
n41=/b4 /say 8,8  *1 $+ ! | /say 3,8  *1  1,1!  | /say 8,8  *1  1,1! | /say 0,0 1,1 *1 $+ !
n42=/b5 /say 9,9  *1 $+ ! | /say 12,9  *1  1,1!  | /say 9,9  *1  1,1! | /say 0,0 1,1 *1 $+ !
n43=/b6 /say 11,11  *1 $+ ! | /say 2,11  *1  1,1!  | /say 11,11  *1  1,1! | /say 0,0 1,1 *1 $+ !
n44=/b7 /say 12,12  *1 $+ ! | /say 0,12  *1  1,1!  | /say 12,12  *1  1,1! | /say 0,0 1,1 *1 $+ !
n45=/b8 /say 13,13  *1 $+ ! | /say 1,13  *1  1,1!  | /say 13,13  *1  1,1! | /say 0,0 1,1 *1 $+ !
n46=/b9 /say 2,2  *1 $+ ! | /say 2,0  *1  1,1!  | /say 4,4  *1  1,1! | /say 0,0 1,1 *1 $+ !
n47=/b10 /say 2,2 *1 $+ ! | /say 8,3  *1   1,1! | /say 2,2  *1  1,1! | /say 0,0 1,1 *1 $+ !
n48=/b11 /say 4,4 *1 $+ ! | /say 3,8  *1   1,1! | /say 4,4  *1  1,1! | /say 0,0 1,1 *1 $+ !
n49=/b12 /say 4,4 *1 $+ ! | /say 4,0  *1   1,1! | /say 12,12 *1  1,1! | /say 0,0 1,1  *1 $+ !
n50=;=========================Valwrite================================
n51=VAL {
n52=  %c = *1
n53=  set %c $replace(%c,a,4a)
n54=  set %c $replace(%c,b,13B)
n55=  set %c $replace(%c,c,12C) 
n56=  set %c $replace(%c,d,10D) 
n57=  set %c $replace(%c,e,4e) 
n58=  set %c $replace(%c,f,13F) 
n59=  set %c $replace(%c,g,4G) 
n60=  set %c $replace(%c,h,10H) 
n61=  set %c $replace(%c,i,1i) 
n62=  set %c $replace(%c,j,2J) 
n63=  set %c $replace(%c,k,4K) 
n64=  set %c $replace(%c,l,10L) 
n65=  set %c $replace(%c,m,1M) 
n66=  set %c $replace(%c,n,12N)
n67=  set %c $replace(%c,o,1o) 
n68=  set %c $replace(%c,p,12P) 
n69=  set %c $replace(%c,q,13Q) 
n70=  set %c $replace(%c,r,13R) 
n71=  set %c $replace(%c,s,12S) 
n72=  set %c $replace(%c,t,13T) 
n73=  set %c $replace(%c,u,10u) 
n74=  set %c $replace(%c,v,12V) 
n75=  set %c $replace(%c,w,13W) 
n76=  set %c $replace(%c,x,1X) 
n77=  set %c $replace(%c,y,2Y) 
n78=  set %c $replace(%c,z,10z) 
n79=  set %c $replace(%c,?,13¿12?) 
n80=  say %c
n81=  unset %c
n82=}
n83=;===================Crazy Patterns=================================
n84=/cl /say 0,1 1 0,2 2 0,3 3 0,4 4 0,5 5 0,6 6 0,7 7 0,8 8 0,9 9 0,10 10 1,11 11 0,12 12 0,13 13 0,14 14 0,15 15
n85=/c {
n86=  if ($1 == /me) { %cmd = me | %txt = *2 }
n87=  elseif ($1 == /echo) { %cmd = echo | %txt = *2 }
n88=  elseif ($1 == /sound) { %cmd = sound $2 | %txt = *3 }
n89=  elseif ($1 == /onotice) { %cmd = onotice # Ops: | %txt = *2 }
n90=  elseif ($1 == /msg) { %cmd = msg $2 | %txt = *3 }
n91=  elseif ($1 == /notice) { %cmd = notice $2 | %txt = *3 }
n92=  else { %cmd = say | %txt = *1 } 
n93=  %i = 1 | %ctxt = $chr(3)
n94=  :nxtc
n95=  %rnd = $rand(1,15)
n96=  if ( %rnd == 8 || %rnd == 9 || %rnd == 11 || %rnd == 15 ) { goto nxtc } 
n97=  if ( $mid( %i, 1, %txt ) == $chr(32) ) { %ctxt = %ctxt $+ $chr(32) $+ $chr(3) }
n98=  elseif ( $mid( %i, 1,%txt ) >= $chr(48) && $mid( %i, 1, %txt ) <= $chr(57) ) { 
n99=    if ( %rnd < 10 ) { %ctxt = %ctxt $+ 0 $+ %rnd $+ $mid( %i, 1, %txt ) $+ $chr(3) }
n100=    else { %ctxt = %ctxt $+ %rnd $+ $mid( %i, 1, %txt ) $+ $chr(3) }
n101=  }
n102=  else { %ctxt = %ctxt $+ %rnd $+ $mid( %i, 1, %txt ) $+ $chr(3) }
n103=  if ( %i < $len( %txt ) ) { inc %i | goto nxtc }  
n104=  else { %cmd %ctxt }
n105=  unset %cmd %txt %i %ctxt %rnd
n106=}
n107=/wc {
n108=  if ($1 == /me) { %cmd = me | %txt = *2 }
n109=  elseif ($1 == /echo) { %cmd = echo | %txt = *2 }
n110=  elseif ($1 == /sound) { %cmd = sound $2 | %txt = *3 }
n111=  elseif ($1 == /onotice) { %cmd = onotice # Ops: | %txt = *2 }
n112=  elseif ($1 == /msg) { %cmd = msg $2 | %txt = *3 }
n113=  elseif ($1 == /notice) { %cmd = notice $2 | %txt = *3 }
n114=  else { %cmd = say | %txt = *1 } 
n115=  %i = 1 | %ctxt = $chr(3)
n116=  :nxtc
n117=  %rnd = $rand(1,15)
n118=  if ( %rnd == 8 || %rnd == 9 || %rnd == 11 || %rnd == 15 ) { goto nxtc } 
n119=  if ( %rnd < 10 ) { %ctxt = %ctxt $+ 0 $+ %rnd }
n120=  else { %ctxt = %ctxt $+ %rnd }
n121=  :nxtchr
n122=  if ( $mid( %i, 1, %txt ) != $chr(32) ) { 
n123=    %ctxt = %ctxt $+ $mid( %i, 1, %txt ) 
n124=    if ( %i < $len( %txt ) ) { inc %i | goto nxtchr }
n125=    else { %cmd %ctxt }
n126=  }
n127=  else { 
n128=    if ( %i < $len( %txt ) ) { %ctxt = %ctxt $+ $chr(32) $+ $chr(3) | inc %i | goto nxtc }
n129=    else { %cmd %ctxt }
n130=  }
n131=  unset %cmd %txt %i %ctxt %rnd
n132=}
n133=/rc {
n134=  if ($1 == /me) { %cmd = me | %txt = *2 }
n135=  elseif ($1 == /echo) { %cmd = echo | %txt = *2 }
n136=  elseif ($1 == /sound) { %cmd = sound $2 | %txt = *3 }
n137=  elseif ($1 == /onotice) { %cmd = onotice # Ops: | %txt = *2 }
n138=  elseif ($1 == /msg) { %cmd = msg $2 | %txt = *3 }
n139=  elseif ($1 == /notice) { %cmd = notice $2 | %txt = *3 }
n140=  else { %cmd = say | %txt = *1 } 
n141=  %i = 1 | %ctxt = $chr(3)
n142=  :nxtfc
n143=  %frnd = $rand(1,16)
n144=  if ( %frnd == 1 || %frnd == 2 || %frnd == 3 || %frnd == 5 || %frnd == 6 || %frnd == 7 || %frnd == 10 || %frnd == 14 ) { goto nxtfc } 
n145=  if ( $mid( %i, 1, %txt ) == $chr(32) ) { %ctxt = %ctxt $+ %frnd $+ ,01 $+ $chr(32) $+ $chr(3) }
n146=  else {
n147=    if ( %i == 1 ) { %ctxt = %ctxt $+ 1,01 $+ $chr(32) $+ $chr(3) $+ $+ %frnd $+ ,01 $+ $mid( %i, 1, %txt ) }
n148=    else { %ctxt = %ctxt $+ %frnd $+ ,01 $+ $mid( %i, 1, %txt ) }
n149=  } 
n150=  if ( %i < $len( %txt ) ) { inc %i | %ctxt = %ctxt $+ $chr(3) | goto nxtfc }   
n151=  else { %cmd %ctxt $+ $chr(32) $+ $chr(3) }
n152=  unset %cmd %txt %i %ctxt %frnd
n153=}
n154=/bc {
n155=  if ($1 == /me) { %cmd = me | %txt = *2 }
n156=  elseif ($1 == /echo) { %cmd = echo | %txt = *2 }
n157=  elseif ($1 == /sound) { %cmd = sound $2 | %txt = *3 }
n158=  elseif ($1 == /onotice) { %cmd = onotice # Ops: | %txt = *2 }
n159=  elseif ($1 == /msg) { %cmd = msg $2 | %txt = *3 }
n160=  elseif ($1 == /notice) { %cmd = notice $2 | %txt = *3 }
n161=  else { %cmd = say | %txt = *1 } 
n162=  %bc = $rand(1,15)
n163=  if (%bc < 10 ) { %tbc = 0 $+ %bc | %bc = %tbc | unset %tbc }
n164=  if ( %bc == 01 ) { %fstr = 0408091112131516 }
n165=  elseif ( %bc == 02 ) { %fstr = 030408091112131516 }
n166=  elseif ( %bc == 03 ) { %fstr = 010204050608091112131516 }
n167=  elseif ( %bc == 04 ) { %fstr = 010203050608091011121516 }
n168=  elseif ( %bc == 05 ) { %fstr = 030408091112131516 }
n169=  elseif ( %bc == 06 ) { %fstr = 01030408091012131516 }
n170=  elseif ( %bc == 07 ) { %fstr = 01020506080912131516 }
n171=  elseif ( %bc == 08 ) { %fstr = 0102030405060710121314 }
n172=  elseif ( %bc == 09 ) { %fstr = 0102030405060710121314 }
n173=  elseif ( %bc == 10 ) { %fstr = 0102040506080911131516 }
n174=  elseif ( %bc == 11 ) { %fstr = 0102030405060710121314 }
n175=  elseif ( %bc == 12 ) { %fstr = 010405060809111316 }
n176=  elseif ( %bc == 13 ) { %fstr = 010203040506080910111216 }
n177=  elseif ( %bc == 14 ) { %fstr = 01020405060809111316 }
n178=  else { %fstr = 010203040506070809101112131416 }
n179=  %i = 1 | %ctxt = $chr(3) | %nclrs = $len(%fstr) | %nclrs = %nclrs / 2
n180=  :nxtfc
n181=  %fcn = $rand(1,%nclrs) | %fcp = %fcn * 2 | dec %fcp | %fc = $mid(%fcp,2,%fstr)
n182=  if ( $mid( %i, 1, %txt ) == $chr(32) ) { %ctxt = %ctxt $+ %fc $+ , $+ %bc $+ $chr(32) $+ $chr(3) }
n183=  else {
n184=    if ( %i == 1 ) { %ctxt = %ctxt $+ %fc $+ , $+ %bc $+ $chr(32) $+ $chr(3) $+ $+ %fc $+ , $+ %bc $+ $mid( %i, 1, %txt ) }
n185=    else { %ctxt = %ctxt $+ %fc $+ , $+ %bc $+ $mid( %i, 1, %txt ) }
n186=  } 
n187=  if ( %i < $len( %txt ) ) { inc %i | %ctxt = %ctxt $+ $chr(3) | goto nxtfc }   
n188=  else { %cmd %ctxt $+ $chr(32) $+ $chr(3) }
n189=  unset %cmd %txt %i %ctxt %bc %fstr %nclrs %fcn %fcp %fc 
n190=}
n191=/bcr {
n192=  if ($1 == /me) { %cmd = me | %txt = *2 }
n193=  elseif ($1 == /echo) { %cmd = echo | %txt = *2 }
n194=  elseif ($1 == /sound) { %cmd = sound $2 | %txt = *3 }
n195=  elseif ($1 == /onotice) { %cmd = onotice # Ops: | %txt = *2 }
n196=  elseif ($1 == /msg) { %cmd = msg $2 | %txt = *3 }
n197=  elseif ($1 == /notice) { %cmd = notice $2 | %txt = *3 }
n198=  else { %cmd = say | %txt = *1 } 
n199=  %i = 1 | %ctxt = $chr(3)
n200=  :nxtfc
n201=  %bc = $rand(1,15)
n202=  if (%bc < 10 ) { %tbc = 0 $+ %bc | %bc = %tbc | unset %tbc }
n203=  if ( %bc == 01 ) { %fstr = 0408091112131516 }
n204=  elseif ( %bc == 02 ) { %fstr = 030408091112131516 }
n205=  elseif ( %bc == 03 ) { %fstr = 010204050608091112131516 }
n206=  elseif ( %bc == 04 ) { %fstr = 010203050608091011121516 }
n207=  elseif ( %bc == 05 ) { %fstr = 030408091112131516 }
n208=  elseif ( %bc == 06 ) { %fstr = 01030408091012131516 }
n209=  elseif ( %bc == 07 ) { %fstr = 01020506080912131516 }
n210=  elseif ( %bc == 08 ) { %fstr = 0102030405060710121314 }
n211=  elseif ( %bc == 09 ) { %fstr = 0102030405060710121314 }
n212=  elseif ( %bc == 10 ) { %fstr = 0102040506080911131516 }
n213=  elseif ( %bc == 11 ) { %fstr = 0102030405060710121314 }
n214=  elseif ( %bc == 12 ) { %fstr = 010405060809111316 }
n215=  elseif ( %bc == 13 ) { %fstr = 010203040506080910111216 }
n216=  elseif ( %bc == 14 ) { %fstr = 01020405060809111316 }
n217=  else { %fstr = 010203040506070809101112131416 }
n218=  %nclrs = $len(%fstr) | %nclrs = %nclrs / 2
n219=  %fcn = $rand(1,%nclrs) | %fcp = %fcn * 2 | dec %fcp | %fc = $mid(%fcp,2,%fstr)
n220=  if ( $mid( %i, 1, %txt ) == $chr(32) ) { %ctxt = %ctxt $+ %fc $+ , $+ %bc $+ $chr(32) $+ $chr(3) }
n221=  else {
n222=    if ( %i == 1 ) { %ctxt = %ctxt $+ %fc $+ , $+ %bc $+ $chr(32) $+ $chr(3) $+ $+ %fc $+ , $+ %bc $+ $mid( %i, 1, %txt ) }
n223=    else { %ctxt = %ctxt $+ %fc $+ , $+ %bc $+ $mid( %i, 1, %txt ) }
n224=  } 
n225=  if ( %i < $len( %txt ) ) { inc %i | %ctxt = %ctxt $+ $chr(3) | goto nxtfc }   
n226=  else { %cmd %ctxt $+ $chr(32) $+ $chr(3) }
n227=  unset %cmd %txt %i %ctxt %bc %fstr %nclrs %fcn %fcp %fc 
n228=}
n229=/ct {
n230=  %colortext = *1
n231=  %colortext = $lower(%colortext)
n232=  %colortext = $replace(%colortext,a,12a)
n233=  %colortext = $replace(%colortext,b,13b)
n234=  %colortext = $replace(%colortext,c,4c)
n235=  %colortext = $replace(%colortext,d,11d)
n236=  %colortext = $replace(%colortext,e,13e)
n237=  %colortext = $replace(%colortext,f,12f)
n238=  %colortext = $replace(%colortext,g,4g)
n239=  %colortext = $replace(%colortext,h,9h)
n240=  %colortext = $replace(%colortext,i,11i)
n241=  %colortext = $replace(%colortext,j,6j)
n242=  %colortext = $replace(%colortext,k,12k)
n243=  %colortext = $replace(%colortext,l,13l)
n244=  %colortext = $replace(%colortext,m,12m)
n245=  %colortext = $replace(%colortext,n,12n)
n246=  %colortext = $replace(%colortext,o,13o)
n247=  %colortext = $replace(%colortext,p,2p)
n248=  %colortext = $replace(%colortext,q,13q)
n249=  %colortext = $replace(%colortext,r,4r)
n250=  %colortext = $replace(%colortext,s,12s)
n251=  %colortext = $replace(%colortext,t,6t)
n252=  %colortext = $replace(%colortext,u,8u)
n253=  %colortext = $replace(%colortext,v,4v)
n254=  %colortext = $replace(%colortext,w,9w)
n255=  %colortext = $replace(%colortext,x,13x)
n256=  %colortext = $replace(%colortext,y,12y)
n257=  %colortext = $replace(%colortext,z,12z)
n258=  say %colortext
n259=  unset %colortext
n260=}
n261=/e {  
n262=  %text = $replace(*1,a,â)
n263=  %text = $replace(%text,A,Ã)
n264=  %text = $replace(%text,b,ß)
n265=  %text = $replace(%text,ae,æ)
n266=  %text = $replace(%text,c,¢)
n267=  %text = $replace(%text,d,Ð)
n268=  %text = $replace(%text,e, ë)
n269=  %text = $replace(%text,E, ë)
n270=  %text = $replace(%text,i,¦)
n271=  %text = $replace(%text,l,£)
n272=  %text = $replace(%text,m,/|\)
n273=  %text = $replace(%text,n, ñ)
n274=  %text = $replace(%text,o,ø)
n275=  %text = $replace(%text,O,ö)
n276=  %text = $replace(%text,P,þ)
n277=  %text = $replace(%text,w,\\')
n278=  %text = $replace(%text,W,\\')
n279=  %text = $replace(%text,f,f)
n280=  %text = $replace(%text,F,f)
n281=  %text = $replace(%text,cks,X)
n282=  %text = $replace(%text,r,®)
n283=  %text = $replace(%text,s,§ )
n284=  %text = $replace(%text,t,t)
n285=  %text = $replace(%text,T,t)
n286=  %text = $replace(%text,u,û)
n287=  %text = $replace(%text,y,ÿ)
n288=  %text = $replace(%text,?,¿)
n289=  %text = $replace(%text,z,°z°)
n290=  %text = $replace(%text,!,¡)
n291=  /msg $Active %text 
n292=}
n293=/rainbow {
n294=  unset %textfinal
n295=  set %rainbow *1
n296=  set %text.change 0
n297=  :beginning
n298=  inc %text.change
n299=  if %text.change > $len(%rainbow) goto end
n300=  set %rand1 $rand(1,15)
n301=  set %text2add  $+ %rand1 $+ $mid(%text.change,1,%rainbow) $+ 
n302=  if (%text.change == 1) { set %textfinal %text2add }
n303=  else set %textfinal %textfinal $+ %text2add
n304=  goto beginning
n305=  :end
n306=  msg $chan %textfinal
n307=}
n308=/bgr {
n309=  unset %textfinal
n310=  set %rainbow *1
n311=  set %text.change 0
n312=  :beginning
n313=  inc %text.change
n314=  if %text.change > $len(%rainbow) goto end
n315=  :randomize
n316=  set %rand1 $rand(1,15)
n317=  set %rand2 $rand(1,15)
n318=  if %rand1 == %rand2 goto randomize
n319=  set %text2add  $+ %rand1 $+ , $+ %rand2 $+ $mid(%text.change,1,%rainbow) $+ 
n320=  if (%text.change == 1) { set %textfinal %text2add }
n321=  else set %textfinal %textfinal $+ %text2add
n322=  goto beginning
n323=  :end
n324=  msg $chan %textfinal
n325=}
n326=/brick { %num = 1 | unset %msg  | %msg =  | %color = p
n327=  :start
n328=  if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add }
n329=  if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
n330=  :add
n331=  if $mid(%num,1, *1) != $null {
n332=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
n333=    inc %num 
n334=  goto start  }
n335=  say %msg
n336=}
n337=/xmas { %num = 1 | unset %msg  | %msg =  | %color = p
n338=  :start
n339=  if %color == p { %num2 = 3 | %num3 = 4 | %color = y | goto add }
n340=  if %color == y  { %num2 = 4 | %num3 = 3 | %color = p | goto add }
n341=  :add
n342=  if $mid(%num,1, *1) != $null {
n343=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
n344=    inc %num 
n345=  goto start  }
n346=  say %msg
n347=}
n348=/coke { %num = 1 | unset %msg  | %msg =  | %color = p
n349=  :start
n350=  if %color == p { %num2 = 0 | %num3 = 4 | %color = y | goto add }
n351=  if %color == y  { %num2 = 4 | %num3 = 0 | %color = p | goto add }
n352=  :add
n353=  if $mid(%num,1, *1) != $null {
n354=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
n355=    inc %num 
n356=  goto start  }
n357=  say %msg
n358=}
n359=/rain { set %i $replace(*1,$chr(32), ) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1 
n360=  :loop
n361=  set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
n362=  inc %p 
n363=  if ( $mid(%p,1,%i) !=  ) { inc %c } 
n364=  if ( %c > 6 ) { set %c 1 } 
n365=  if ( $mid(%p,1,%i) != $null ) { goto loop }  
n366=  say %o 
n367=  unset %o %i %p %c
n368=}