home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / L2C / adenozin / SimpleScript.exe / Main / px-talkerv1.mrc < prev    next >
Encoding:
Text File  |  2000-05-25  |  4.3 KB  |  173 lines
  1. Alias Elite {
  2.   set %text $$?1="Enter Text" *2
  3.   %text = $replace(%text,a,σ)
  4.   %text = $replace(%text,b,▀)
  5.   %text = $replace(%text,c,⌐)
  6.   %text = $replace(%text,d,╨)
  7.   %text = $replace(%text,e,Ω)
  8.   %text = $replace(%text,f,F)
  9.   %text = $replace(%text,g,G)
  10.   %text = $replace(%text,h,|-|)
  11.   %text = $replace(%text,i,ε)
  12.   %text = $replace(%text,j,J)
  13.   %text = $replace(%text,k,<K>)
  14.   %text = $replace(%text,l,ú)
  15.   %text = $replace(%text,m,/\/\)
  16.   %text = $replace(%text,n,±)
  17.   %text = $replace(%text,o,°)
  18.   %text = $replace(%text,p,╢)
  19.   %text = $replace(%text,q,/Q\)
  20.   %text = $replace(%text,r,«)
  21.   %text = $replace(%text,s,º)
  22.   %text = $replace(%text,t,-|-)
  23.   %text = $replace(%text,u,╡)
  24.   %text = $replace(%text,v,*V*)
  25.   %text = $replace(%text,w,\/\/)
  26.   %text = $replace(%text,x,╫)
  27.   %text = $replace(%text,y,Ñ)
  28.   %text = $replace(%text,z,<Z>)
  29.   say %text
  30.   unset %text
  31. }
  32.  
  33. Alias BOX {
  34.   set %box $1-
  35.   %box = $replace(%box,a,[A])
  36.   %box = $replace(%box,b,[B])
  37.   %box = $replace(%box,c,[C])
  38.   %box = $replace(%box,d,[D])
  39.   %box = $replace(%Box,e,[E])
  40.   %box = $replace(%box,f,[F])
  41.   %box = $replace(%box,g,[G])
  42.   %box = $Replace(%box,h,[H])
  43.   %box = $replace(%box,i,[I])
  44.   %box = $replace(%box,j,[J])
  45.   %box = $replace(%box,k,[K])
  46.   %box = $replace(%box,l,[L])
  47.   %box = $replace(%box,m,[M])
  48.   %box = $replace(%box,n,[N])
  49.   %box = $replace(%box,o,[O])
  50.   %box = $replace(%box,p,[P])
  51.   %box = $replace(%box,q,[Q])
  52.   %box = $replace(%box,r,[R])
  53.   %box = $replace(%box,s,[S])
  54.   %box = $replace(%box,t,[T])
  55.   %box = $replace(%box,u,[U])
  56.   %box = $replace(%box,v,[V])
  57.   %box = $replace(%box,w,[W])
  58.   %box = $replace(%box,x,[X])
  59.   %box = $replace(%box,y,[Y])
  60.   %box = $replace(%box,z,[Z])
  61.   say %box
  62.   unset %box
  63. }
  64.  
  65. Alias ULB {
  66.   set %ulb $1-
  67.   %ulb = $replace(%ulb,a,a)
  68.   %ulb = $replace(%ulb,b,B)
  69.   %ulb = $replace(%ulb,c,C)
  70.   %ulb = $replace(%ulb,d,d)
  71.   %ulb = $replace(%ulb,e,E)
  72.   %ulb = $replace(%ulb,f,f)
  73.   %ulb = $replace(%ulb,g,G)
  74.   %ulb = $replace(%ulb,h,H^)
  75.   %ulb = $replace(%ulb,i,i)
  76.   %ulb = $replace(%ulb,j,J)
  77.   %ulb = $replace(%ulb,k,k)
  78.   %ulb = $replace(%ulb,l,L)
  79.   %ulb = $replace(%ulb,m,m)
  80.   %ulb = $replace(%ulb,n,N)
  81.   %ulb = $replace(%ulb,o,o)
  82.   %ulb = $replace(%ulb,p,P)
  83.   %ulb = $replace(%ulb,q,Q)
  84.   %ulb = $replace(%ulb,r,r)
  85.   %ulb = $replace(%ulb,s,S)
  86.   %ulb = $replace(%ulb,t,t)
  87.   %ulb = $replace(%ulb,u,U)
  88.   %ulb = $replace(%ulb,v,V)
  89.   %ulb = $replace(%ulb,w,W)
  90.   %ulb = $replace(%ulb,x,x)
  91.   %ulb = $replace(%ulb,y,y)
  92.   %ulb = $replace(%ulb,z,Z)
  93.   say %ulb
  94.   unset %ulb
  95. }
  96.  
  97. Alias RainBow {
  98.   set %r $1- 
  99.   %r = $replace(%r,a,4a)
  100.   %r = $replace(%r,b,2b)
  101.   %r = $replace(%r,c,3c)
  102.   %r = $replace(%r,d,5d)
  103.   %r = $replace(%r,e,6e)
  104.   %r = $replace(%r,f,7f)
  105.   %r = $replace(%r,g,8g)
  106.   %r = $replace(%r,h,9h)
  107.   %r = $replace(%r,i,10i)
  108.   %r = $replace(%r,j,11j)
  109.   %r = $replace(%r,k,12k)
  110.   %r = $replace(%r,l,13l)
  111.   %r = $replace(%r,m,14m)
  112.   %r = $replace(%r,n,15n)
  113.   %r = $replace(%r,o,1o)
  114.   %r = $replace(%r,p,2p)
  115.   %r = $replace(%r,q,3q)
  116.   %r = $replace(%r,r,4r)
  117.   %r = $replace(%r,s,5s)
  118.   %r = $replace(%r,t,6t)
  119.   %r = $replace(%r,u,7u)
  120.   %r = $replace(%r,v,8v)
  121.   %r = $replace(%r,w,9w)
  122.   %r = $replace(%r,x,10x)
  123.   %r = $replace(%r,y,11y)
  124.   %r = $replace(%r,z,12z)
  125.   say %r
  126.   unset %r
  127. }
  128.  
  129.  
  130. Alias Encode {
  131.   set %temp
  132.   set %e $1- 
  133.   %e = $replace(%e,a,Ñ)
  134.   %e = $replace(%e,b,÷)
  135.   %e = $replace(%e,c,°)
  136.   %e = $replace(%e,c,ú)
  137.   %e = $replace(%e,d,6)
  138.   %e = $replace(%e,e,σ)
  139.   %e = $replace(%e,f,σx)
  140.   %e = $replace(%e,g,7)
  141.   %e = $replace(%e,h,╝)
  142.   %e = $replace(%e,i,j>)
  143.   %e = $replace(%e,j,««)
  144.   %e = $replace(%e,k,l*)
  145.   %e = $replace(%e,l,-|->)
  146.   %e = $replace(%e,m,°°)
  147.   %e = $replace(%e,n,╜)
  148.   %e = $replace(%e,o,≥)
  149.   %e = $replace(%e,p,≤**%)
  150.   %e = $replace(%e,q,ΣII)
  151.   %e = $replace(%e,r,∩)
  152.   %e = $replace(%e,s,∙)
  153.   %e = $replace(%e,t,φi``)
  154.   %e = $replace(%e,u,ε@@)
  155.   %e = $replace(%e,v,{})
  156.   %e = $replace(%e,w,·u)
  157.   %e = $replace(%e,x,⌠)
  158.   %e = $replace(%e,z,zC&)
  159.   %e = $replace(%e,¬,0)
  160.   %e = $replace(%e,Γ,1)
  161.   %e = $replace(%e,√,2)
  162.   %e = $replace(%e,╫,3)
  163.   %e = $replace(%e,║,4)
  164.   %e = $replace(%e,╡,5)
  165.   %e = $replace(%e,▓,6)
  166.   %e = $replace(%e,│,7)
  167.   %e = $replace(%e,▒,8)
  168.   %e = $replace(%e,░,9)
  169.   say %e
  170.   unset %e
  171.   unset %temp
  172. }
  173.