home *** CD-ROM | disk | FTP | other *** search
/ napalm.napnet.hu / 2015-02-12.napalm.napnet.hu.tar / napalm.napnet.hu / programok / kommunikacio / mpp700.exe / beeker.mrc < prev    next >
Text File  |  2003-05-01  |  16KB  |  427 lines
  1. /clr {
  2.   set %ctxt *1
  3.   %ctxt = $replace(%ctxt,a,2a)
  4.   %ctxt = $replace(%ctxt,b,3b)
  5.   %ctxt = $replace(%ctxt,c,4c)
  6.   %ctxt = $replace(%ctxt,d,5d)
  7.   %ctxt = $replace(%ctxt,e,6e)
  8.   %ctxt = $replace(%ctxt,f,7f)
  9.   %ctxt = $replace(%ctxt,g,8g)
  10.   %ctxt = $replace(%ctxt,h,9h)
  11.   %ctxt = $replace(%ctxt,i,10i)
  12.   %ctxt = $replace(%ctxt,j,11j)
  13.   %ctxt = $replace(%ctxt,k,12k)
  14.   %ctxt = $replace(%ctxt,l,13l)
  15.   %ctxt = $replace(%ctxt,m,14m)
  16.   %ctxt = $replace(%ctxt,n,15n)
  17.   %ctxt = $replace(%ctxt,o,2o)
  18.   %ctxt = $replace(%ctxt,p,3p)
  19.   %ctxt = $replace(%ctxt,q,4q)
  20.   %ctxt = $replace(%ctxt,r,5r)
  21.   %ctxt = $replace(%ctxt,s,6s)
  22.   %ctxt = $replace(%ctxt,t,7t)
  23.   %ctxt = $replace(%ctxt,u,8u)
  24.   %ctxt = $replace(%ctxt,v,9v)
  25.   %ctxt = $replace(%ctxt,w,10w)
  26.   %ctxt = $replace(%ctxt,x,11x)
  27.   %ctxt = $replace(%ctxt,y,12y)
  28.   %ctxt = $replace(%ctxt,z,13z)
  29.   %ctxt = $replace(%ctxt,!,14!)
  30.   %ctxt = $replace(%ctxt,?,15?)
  31.   %ctxt = $replace(%ctxt,*,2*)
  32.   %ctxt = $replace(%ctxt,^,3^)
  33.   %ctxt = $replace(%ctxt,$,4$)
  34.   %ctxt = $replace(%ctxt,@,5@)
  35.   %ctxt = $replace(%ctxt,&,6&)
  36.   %ctxt = $replace(%ctxt,",7")
  37.   %ctxt = $replace(%ctxt,<,8<)
  38.   %ctxt = $replace(%ctxt,>,9>)
  39.   say %ctxt
  40. }
  41. /rclr {
  42.   set %rclr *1
  43.   %rclr = $replace(%rclr,a,6a)
  44.   %rclr = $replace(%rclr,b,2b)
  45.   %rclr = $replace(%rclr,c,3c)
  46.   %rclr = $replace(%rclr,d,4d)
  47.   %rclr = $replace(%rclr,e,5e)
  48.   %rclr = $replace(%rclr,f,6f)
  49.   %rclr = $replace(%rclr,g,7g)
  50.   %rclr = $replace(%rclr,h,14h)
  51.   %rclr = $replace(%rclr,i,9i)
  52.   %rclr = $replace(%rclr,j,10j)
  53.   %rclr = $replace(%rclr,k,11k)
  54.   %rclr = $replace(%rclr,l,12l)
  55.   %rclr = $replace(%rclr,m,13m)
  56.   %rclr = $replace(%rclr,n,14n)
  57.   %rclr = $replace(%rclr,o,15o)
  58.   %rclr = $replace(%rclr,p,1p)
  59.   %rclr = $replace(%rclr,q,2q)
  60.   %rclr = $replace(%rclr,r,3r)
  61.   %rclr = $replace(%rclr,s,4s)
  62.   %rclr = $replace(%rclr,t,5t)
  63.   %rclr = $replace(%rclr,u,6u)
  64.   %rclr = $replace(%rclr,v,7v)
  65.   %rclr = $replace(%rclr,w,9w)
  66.   %rclr = $replace(%rclr,x,9╫)
  67.   %rclr = $replace(%rclr,y,10y)
  68.   %rclr = $replace(%rclr,z,11z)
  69.   %rclr = $replace(%rclr,!,14!)
  70.   %rclr = $replace(%rclr,?,15?)
  71.   %rclr = $replace(%rclr,*,2*)
  72.   %rclr = $replace(%rclr,^,3^)
  73.   %rclr = $replace(%rclr,$,4$)
  74.   %rclr = $replace(%rclr,@,5@)
  75.   %rclr = $replace(%rclr,&,6&)
  76.   %rclr = $replace(%rclr,",7")
  77.   %rclr = $replace(%rclr,<,8<)
  78.   %rclr = $replace(%rclr,>,9>)
  79.   say  15,15 14,14 8,1 %rclr 14,14 15,15 0,0   
  80.   unset %rclr
  81. }
  82. /ht {
  83.   set %rk *1
  84.   %rk = $replace(%rk,a,6σ)
  85.   %rk = $replace(%rk,b,2▀)
  86.   %rk = $replace(%rk,c,3⌐)
  87.   %rk = $replace(%rk,d,4╨)
  88.   %rk = $replace(%rk,e,5Ω)
  89.   %rk = $replace(%rk,f,6f)
  90.   %rk = $replace(%rk,g,7g)
  91.   %rk = $replace(%rk,h,14h)
  92.   %rk = $replace(%rk,i,9∩)
  93.   %rk = $replace(%rk,j,10j)
  94.   %rk = $replace(%rk,k,11K)
  95.   %rk = $replace(%rk,l,12ú)
  96.   %rk = $replace(%rk,m,13m)
  97.   %rk = $replace(%rk,n,14±)
  98.   %rk = $replace(%rk,o,15≡)
  99.   %rk = $replace(%rk,p,1■)
  100.   %rk = $replace(%rk,q,2q)
  101.   %rk = $replace(%rk,r,3«)
  102.   %rk = $replace(%rk,s,4º)
  103.   %rk = $replace(%rk,t,5t)
  104.   %rk = $replace(%rk,u,6ⁿ)
  105.   %rk = $replace(%rk,v,7v)
  106.   %rk = $replace(%rk,w,9W)
  107.   %rk = $replace(%rk,x,9╫)
  108.   %rk = $replace(%rk,y,10Ñ)
  109.   %rk = $replace(%rk,z,11Z)
  110.   %rk = $replace(%rk,!,í)
  111.   %rk = $replace(%rk,?,┐)
  112.   say  %rk  
  113.   unset %rk
  114. }
  115. /sub {
  116.   set %rk *1
  117.   %rk = $replace(%rk,a,σ)
  118.   %rk = $replace(%rk,b,▀)
  119.   %rk = $replace(%rk,c,⌐)
  120.   %rk = $replace(%rk,d,╨)
  121.   %rk = $replace(%rk,e,Ω)
  122.   %rk = $replace(%rk,f,f)
  123.   %rk = $replace(%rk,g,g)
  124.   %rk = $replace(%rk,h,h)
  125.   %rk = $replace(%rk,i,∩)
  126.   %rk = $replace(%rk,j,j)
  127.   %rk = $replace(%rk,k,K)
  128.   %rk = $replace(%rk,l,ú)
  129.   %rk = $replace(%rk,m,m)
  130.   %rk = $replace(%rk,n,±)
  131.   %rk = $replace(%rk,o,≡)
  132.   %rk = $replace(%rk,p,■)
  133.   %rk = $replace(%rk,q,q)
  134.   %rk = $replace(%rk,r,«)
  135.   %rk = $replace(%rk,s,º)
  136.   %rk = $replace(%rk,t,t)
  137.   %rk = $replace(%rk,u,ⁿ)
  138.   %rk = $replace(%rk,v,v)
  139.   %rk = $replace(%rk,w,W)
  140.   %rk = $replace(%rk,x,╫)
  141.   %rk = $replace(%rk,y,Ñ)
  142.   %rk = $replace(%rk,z,Z)
  143.   %rk = $replace(%rk,!,í)
  144.   %rk = $replace(%rk,?,┐)
  145.   say  %rk  
  146.   unset %rk
  147. }
  148. /back {
  149.   %backtext = "" | if ($1 = -d) { %text = *2 } | else { %text = *1 } | %i = $len(%text) + 1 | :next | dec %i 1
  150.   if (%i = 0) { 
  151.     if ($1 = -d) { say º %backtext | halt } 
  152.     else { say %backtext | halt } 
  153.   }
  154.   if ($asc($mid(%i,1,%text)) = 32) { %backtext = %backtext $+ á | goto next }
  155.   %backtext = %backtext $+ $mid(%i,1,%text) | goto next
  156. } rem This is from God_Knows
  157. /colors /say 0,1 0 1 12 23 34 45 56 67 78 89 910 1011 1112 1213 1314 1415 15 
  158. /c {
  159.   set %cool *1 
  160.   say  8,1|4,1ñºñ8,1|0,0   15,15 14,14 8,1 %Cool 14,14 15,15 0,0    8,1|4,1ñºñ8,1| 
  161. }
  162. /r {
  163.   set %i $replace(*1,$chr(32),á) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  164.   :loop
  165.   set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  166.   inc %p
  167.   if ( $mid(%p,1,%i) != á) { inc %c }
  168.   if ( %c > 6 ) { set %c 1 }
  169.   if ( $mid(%p,1,%i) != $null ) { goto loop }
  170.   say %o
  171.   unset %o %i %p %c
  172. }
  173. /bp { %num = 1 | unset %msg  | %msg =  | %color = p
  174.   :start
  175.   if %color == p { %num2 = 1 | %num3 = 13 | %color = y | goto add }
  176.   if %color == y  { %num2 = 13 | %num3 = 1 | %color = p | goto add }
  177.   :add
  178.   if $mid(%num,1, *1) != $null {
  179.     %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  180.     inc %num 
  181.   goto start  }
  182.   say %msg
  183. }
  184. /blb { %num = 1 | unset %msg  | %msg =  | %color = p
  185.   :start
  186.   if %color == p { %num2 = 1 | %num3 = 11 | %color = y | goto add }
  187.   if %color == y  { %num2 = 11 | %num3 = 1 | %color = p | goto add }
  188.   :add
  189.   if $mid(%num,1, *1) != $null {
  190.     %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  191.     inc %num 
  192.   goto start  }
  193.   say %msg
  194. }
  195. /ry { %num = 1 | unset %msg  | %msg =  | %color = p
  196.   :start
  197.   if %color == p { %num2 = 4 | %num3 = 8 | %color = y | goto add }
  198.   if %color == y  { %num2 = 8 | %num3 = 4 | %color = p | goto add }
  199.   :add
  200.   if $mid(%num,1, *1) != $null {
  201.     %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  202.     inc %num 
  203.   goto start  }
  204.   say %msg
  205. }
  206. /rb { %num = 1 | unset %msg  | %msg =  | %color = p
  207.   :start
  208.   if %color == p { %num2 = 4 | %num3 = 12 | %color = y | goto add }
  209.   if %color == y  { %num2 = 12 | %num3 = 4 | %color = p | goto add }
  210.   :add
  211.   if $mid(%num,1, *1) != $null {
  212.     %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  213.     inc %num 
  214.   goto start  }
  215.   say %msg
  216. }
  217. /bg { %num = 1 | unset %msg  | %msg =  | %color = p
  218.   :start
  219.   if %color == p { %num2 = 1 | %num3 = 9 | %color = y | goto add }
  220.   if %color == y  { %num2 = 9 | %num3 = 1 | %color = p | goto add }
  221.   :add
  222.   if $mid(%num,1, *1) != $null {
  223.     %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  224.     inc %num 
  225.   goto start  }
  226.   say %msg
  227. }
  228. /bb { %num = 1 | unset %msg  | %msg =  | %color = p
  229.   :start
  230.   if %color == p { %num2 = 1 | %num3 = 12 | %color = y | goto add }
  231.   if %color == y  { %num2 = 12 | %num3 = 1 | %color = p | goto add }
  232.   :add
  233.   if $mid(%num,1, *1) != $null {
  234.     %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  235.     inc %num 
  236.   goto start  }
  237.   say %msg
  238. }
  239. /by { %num = 1 | unset %msg  | %msg =  | %color = p
  240.   :start
  241.   if %color == p { %num2 = 1 | %num3 = 8 | %color = y | goto add }
  242.   if %color == y  { %num2 = 8 | %num3 = 1 | %color = p | goto add }
  243.   :add
  244.   if $mid(%num,1, *1) != $null {
  245.     %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  246.     inc %num 
  247.   goto start  }
  248.   say %msg
  249. }
  250. /ran { %num = 2 | unset %msg  | %msg =   $upper( $mid(1, 1,*1) ) $+ 
  251.   :start
  252.   %U = $rand(1,2) | %B = $rand(1,2) | %R = $rand(1,2) | %up = $rand(1,2) 
  253.   %DaMan =  
  254.   if %u == 1 { %DaMan = $remove(%daMan,) }
  255.   if %b == 1 { %DaMan = $remove(%DaMan,) }
  256.   if %R == 1 { %DaMan = $remove(%DaMan,) }
  257.   if $mid(%num,1, *1) != $null {
  258.     if %up == 1 && $mid(%num, 1,*1) != $chr(32)  { %msg = %msg $+ %DaMan $+ $upper( [ $mid(%num, 1,*1) ] ) $+ %DaMan }
  259.     if %up == 2 || $mid(%num, 1,*1) == $chr(32) { %msg = %msg $+ %DaMan $+ $mid(%num, 1,*1) $+ %DaMan }
  260.     inc %num 
  261.   goto start  }
  262.   say %msg
  263. }
  264. rem the following 162 line script courtesy of GrnEyeMan who lurks on #ircaddicts, FEFnet, Long Island... Thanx GrnEyeMan!!
  265. /clrz {
  266.   if ($1 == /me) { %cmd = me | %txt = *2 }
  267.   elseif ($1 == /echo) { %cmd = echo | %txt = *2 }
  268.   elseif ($1 == /sound) { %cmd = sound $2 | %txt = *3 }
  269.   elseif ($1 == /onotice) { %cmd = onotice # Ops: | %txt = *2 }
  270.   elseif ($1 == /msg) { %cmd = msg $2 | %txt = *3 }
  271.   elseif ($1 == /notice) { %cmd = notice $2 | %txt = *3 }
  272.   else { %cmd = say | %txt = *1 } 
  273.   %i = 1 | %ctxt = $chr(3)
  274.   :nxtc
  275.   %rnd = $rand(1,15)
  276.   if ( %rnd == 8 || %rnd == 9 || %rnd == 11 || %rnd == 15 ) { goto nxtc } 
  277.   if ( $mid( %i, 1, %txt ) == $chr(32) ) { %ctxt = %ctxt $+ $chr(32) $+ $chr(3) }
  278.   elseif ( $mid( %i, 1,%txt ) >= $chr(48) && $mid( %i, 1, %txt ) <= $chr(57) ) { 
  279.     if ( %rnd < 10 ) { %ctxt = %ctxt $+ 0 $+ %rnd $+ $mid( %i, 1, %txt ) $+ $chr(3) }
  280.     else { %ctxt = %ctxt $+ %rnd $+ $mid( %i, 1, %txt ) $+ $chr(3) }
  281.   }
  282.   else { %ctxt = %ctxt $+ %rnd $+ $mid( %i, 1, %txt ) $+ $chr(3) }
  283.   if ( %i < $len( %txt ) ) { inc %i | goto nxtc }  
  284.   else { %cmd %ctxt }
  285.   unset %cmd %txt %i %ctxt %rnd
  286. }
  287. /wc {
  288.   if ($1 == /me) { %cmd = me | %txt = *2 }
  289.   elseif ($1 == /echo) { %cmd = echo | %txt = *2 }
  290.   elseif ($1 == /sound) { %cmd = sound $2 | %txt = *3 }
  291.   elseif ($1 == /onotice) { %cmd = onotice # Ops: | %txt = *2 }
  292.   elseif ($1 == /msg) { %cmd = msg $2 | %txt = *3 }
  293.   elseif ($1 == /notice) { %cmd = notice $2 | %txt = *3 }
  294.   else { %cmd = say | %txt = *1 } 
  295.   %i = 1 | %ctxt = $chr(3)
  296.   :nxtc
  297.   %rnd = $rand(1,15)
  298.   if ( %rnd == 8 || %rnd == 9 || %rnd == 11 || %rnd == 15 ) { goto nxtc } 
  299.   if ( %rnd < 10 ) { %ctxt = %ctxt $+ 0 $+ %rnd }
  300.   else { %ctxt = %ctxt $+ %rnd }
  301.   :nxtchr
  302.   if ( $mid( %i, 1, %txt ) != $chr(32) ) { 
  303.     %ctxt = %ctxt $+ $mid( %i, 1, %txt ) 
  304.     if ( %i < $len( %txt ) ) { inc %i | goto nxtchr }
  305.     else { %cmd %ctxt }
  306.   }
  307.   else { 
  308.     if ( %i < $len( %txt ) ) { %ctxt = %ctxt $+ $chr(32) $+ $chr(3) | inc %i | goto nxtc }
  309.     else { %cmd %ctxt }
  310.   }
  311.   unset %cmd %txt %i %ctxt %rnd
  312. }
  313. /rc {
  314.   if ($1 == /me) { %cmd = me | %txt = *2 }
  315.   elseif ($1 == /echo) { %cmd = echo | %txt = *2 }
  316.   elseif ($1 == /sound) { %cmd = sound $2 | %txt = *3 }
  317.   elseif ($1 == /onotice) { %cmd = onotice # Ops: | %txt = *2 }
  318.   elseif ($1 == /msg) { %cmd = msg $2 | %txt = *3 }
  319.   elseif ($1 == /notice) { %cmd = notice $2 | %txt = *3 }
  320.   else { %cmd = say | %txt = *1 } 
  321.   %i = 1 | %ctxt = $chr(3)
  322.   :nxtfc
  323.   %frnd = $rand(1,16)
  324.   if ( %frnd == 1 || %frnd == 2 || %frnd == 3 || %frnd == 5 || %frnd == 6 || %frnd == 7 || %frnd == 10 || %frnd == 14 ) { goto nxtfc } 
  325.   if ( $mid( %i, 1, %txt ) == $chr(32) ) { %ctxt = %ctxt $+ %frnd $+ ,01 $+ $chr(32) $+ $chr(3) }
  326.   else {
  327.     if ( %i == 1 ) { %ctxt = %ctxt $+ 1,01 $+ $chr(32) $+ $chr(3) $+ $+ %frnd $+ ,01 $+ $mid( %i, 1, %txt ) }
  328.     else { %ctxt = %ctxt $+ %frnd $+ ,01 $+ $mid( %i, 1, %txt ) }
  329.   } 
  330.   if ( %i < $len( %txt ) ) { inc %i | %ctxt = %ctxt $+ $chr(3) | goto nxtfc }   
  331.   else { %cmd %ctxt $+ $chr(32) $+ $chr(3) }
  332.   unset %cmd %txt %i %ctxt %frnd
  333. }
  334. /bc {
  335.   if ($1 == /me) { %cmd = me | %txt = *2 }
  336.   elseif ($1 == /echo) { %cmd = echo | %txt = *2 }
  337.   elseif ($1 == /sound) { %cmd = sound $2 | %txt = *3 }
  338.   elseif ($1 == /onotice) { %cmd = onotice # Ops: | %txt = *2 }
  339.   elseif ($1 == /msg) { %cmd = msg $2 | %txt = *3 }
  340.   elseif ($1 == /notice) { %cmd = notice $2 | %txt = *3 }
  341.   else { %cmd = say | %txt = *1 } 
  342.   %bc = $rand(1,15)
  343.   if (%bc < 10 ) { %tbc = 0 $+ %bc | %bc = %tbc | unset %tbc }
  344.   if ( %bc == 01 ) { %fstr = 0408091112131516 }
  345.   elseif ( %bc == 02 ) { %fstr = 030408091112131516 }
  346.   elseif ( %bc == 03 ) { %fstr = 010204050608091112131516 }
  347.   elseif ( %bc == 04 ) { %fstr = 010203050608091011121516 }
  348.   elseif ( %bc == 05 ) { %fstr = 030408091112131516 }
  349.   elseif ( %bc == 06 ) { %fstr = 01030408091012131516 }
  350.   elseif ( %bc == 07 ) { %fstr = 01020506080912131516 }
  351.   elseif ( %bc == 08 ) { %fstr = 0102030405060710121314 }
  352.   elseif ( %bc == 09 ) { %fstr = 0102030405060710121314 }
  353.   elseif ( %bc == 10 ) { %fstr = 0102040506080911131516 }
  354.   elseif ( %bc == 11 ) { %fstr = 0102030405060710121314 }
  355.   elseif ( %bc == 12 ) { %fstr = 010405060809111316 }
  356.   elseif ( %bc == 13 ) { %fstr = 010203040506080910111216 }
  357.   elseif ( %bc == 14 ) { %fstr = 01020405060809111316 }
  358.   else { %fstr = 010203040506070809101112131416 }
  359.   %i = 1 | %ctxt = $chr(3) | %nclrs = $len(%fstr) | %nclrs = %nclrs / 2
  360.   :nxtfc
  361.   %fcn = $rand(1,%nclrs) | %fcp = %fcn * 2 | dec %fcp | %fc = $mid(%fcp,2,%fstr)
  362.   if ( $mid( %i, 1, %txt ) == $chr(32) ) { %ctxt = %ctxt $+ %fc $+ , $+ %bc $+ $chr(32) $+ $chr(3) }
  363.   else {
  364.     if ( %i == 1 ) { %ctxt = %ctxt $+ %fc $+ , $+ %bc $+ $chr(32) $+ $chr(3) $+ $+ %fc $+ , $+ %bc $+ $mid( %i, 1, %txt ) }
  365.     else { %ctxt = %ctxt $+ %fc $+ , $+ %bc $+ $mid( %i, 1, %txt ) }
  366.   } 
  367.   if ( %i < $len( %txt ) ) { inc %i | %ctxt = %ctxt $+ $chr(3) | goto nxtfc }   
  368.   else { %cmd %ctxt $+ $chr(32) $+ $chr(3) }
  369.   unset %cmd %txt %i %ctxt %bc %fstr %nclrs %fcn %fcp %fc 
  370. }
  371. /bcr {
  372.   if ($1 == /me) { %cmd = me | %txt = *2 }
  373.   elseif ($1 == /echo) { %cmd = echo | %txt = *2 }
  374.   elseif ($1 == /sound) { %cmd = sound $2 | %txt = *3 }
  375.   elseif ($1 == /onotice) { %cmd = onotice # Ops: | %txt = *2 }
  376.   elseif ($1 == /msg) { %cmd = msg $2 | %txt = *3 }
  377.   elseif ($1 == /notice) { %cmd = notice $2 | %txt = *3 }
  378.   else { %cmd = say | %txt = *1 } 
  379.   %i = 1 | %ctxt = $chr(3)
  380.   :nxtfc
  381.   %bc = $rand(1,15)
  382.   if (%bc < 10 ) { %tbc = 0 $+ %bc | %bc = %tbc | unset %tbc }
  383.   if ( %bc == 01 ) { %fstr = 0408091112131516 }
  384.   elseif ( %bc == 02 ) { %fstr = 030408091112131516 }
  385.   elseif ( %bc == 03 ) { %fstr = 010204050608091112131516 }
  386.   elseif ( %bc == 04 ) { %fstr = 010203050608091011121516 }
  387.   elseif ( %bc == 05 ) { %fstr = 030408091112131516 }
  388.   elseif ( %bc == 06 ) { %fstr = 01030408091012131516 }
  389.   elseif ( %bc == 07 ) { %fstr = 01020506080912131516 }
  390.   elseif ( %bc == 08 ) { %fstr = 0102030405060710121314 }
  391.   elseif ( %bc == 09 ) { %fstr = 0102030405060710121314 }
  392.   elseif ( %bc == 10 ) { %fstr = 0102040506080911131516 }
  393.   elseif ( %bc == 11 ) { %fstr = 0102030405060710121314 }
  394.   elseif ( %bc == 12 ) { %fstr = 010405060809111316 }
  395.   elseif ( %bc == 13 ) { %fstr = 010203040506080910111216 }
  396.   elseif ( %bc == 14 ) { %fstr = 01020405060809111316 }
  397.   else { %fstr = 010203040506070809101112131416 }
  398.   %nclrs = $len(%fstr) | %nclrs = %nclrs / 2
  399.   %fcn = $rand(1,%nclrs) | %fcp = %fcn * 2 | dec %fcp | %fc = $mid(%fcp,2,%fstr)
  400.   if ( $mid( %i, 1, %txt ) == $chr(32) ) { %ctxt = %ctxt $+ %fc $+ , $+ %bc $+ $chr(32) $+ $chr(3) }
  401.   else {
  402.     if ( %i == 1 ) { %ctxt = %ctxt $+ %fc $+ , $+ %bc $+ $chr(32) $+ $chr(3) $+ $+ %fc $+ , $+ %bc $+ $mid( %i, 1, %txt ) }
  403.     else { %ctxt = %ctxt $+ %fc $+ , $+ %bc $+ $mid( %i, 1, %txt ) }
  404.   } 
  405.   if ( %i < $len( %txt ) ) { inc %i | %ctxt = %ctxt $+ $chr(3) | goto nxtfc }   
  406.   else { %cmd %ctxt $+ $chr(32) $+ $chr(3) }
  407.   unset %cmd %txt %i %ctxt %bc %fstr %nclrs %fcn %fcp %fc 
  408. }
  409. /xc {
  410.   if ($1 == /me) { %cmd = me | %txt = *2 }
  411.   elseif ($1 == /echo) { %cmd = echo | %txt = *2 }
  412.   elseif ($1 == /sound) { %cmd = sound $2 | %txt = *3 }
  413.   elseif ($1 == /onotice) { %cmd = onotice # Ops: | %txt = *2 }
  414.   elseif ($1 == /msg) { %cmd = msg $2 | %txt = *3 }
  415.   elseif ($1 == /notice) { %cmd = notice $2 | %txt = *3 }
  416.   else { %cmd = say | %txt = *1 } 
  417.   %i = 1 | %bc = 03 | %ctxt = $chr(3)
  418.   :nxtc
  419.   if ( $mid( %i, 1, %txt ) == $chr(32) ) { %ctxt = %ctxt $+ 16, $+ %bc $+ $chr(32) $+ $chr(3) }
  420.   else { %ctxt = %ctxt $+ 16, $+ %bc $+ $mid( %i, 1, %txt ) }
  421.   if ( %bc = 03 ) { %bc = 04 }
  422.   else { %bc = 03 }
  423.   if ( %i < $len( %txt ) ) { inc %i | %ctxt = %ctxt $+ $chr(3) | goto nxtc }   
  424.   else { %cmd %ctxt }
  425.   unset %cmd %i %bc %txt %ctxt
  426. }
  427.