/ScriptServ

[aliases]
n0=;<----------------------=º<×>קuþêr§çriþt§× PRO ßy  Hell`Fire '98 © <×>º=--------------------->
n1=;  -(!)- -(!)- ! DO NOT EDIT ANYTHING HERE OR THE SCRIPT WILL NOT WORK ANYMORE ! -(!)- -(!)-
n2=
n3=ct {
n4=  %c = *1
n5=  set %c $replace(%c,a,4a)
n6=  set %c $replace(%c,b,3b)
n7=  set %c $replace(%c,c,6c) 
n8=  set %c $replace(%c,d,7d) 
n9=  set %c $replace(%c,e,4e) 
n10=  set %c $replace(%c,f,12f) 
n11=  set %c $replace(%c,g,13g) 
n12=  set %c $replace(%c,h,6h) 
n13=  set %c $replace(%c,i,4i) 
n14=  set %c $replace(%c,j,j) 
n15=  set %c $replace(%c,k,3k) 
n16=  set %c $replace(%c,l,l) 
n17=  set %c $replace(%c,m,4m) 
n18=  set %c $replace(%c,n,6n)
n19=  set %c $replace(%c,o,4o) 
n20=  set %c $replace(%c,p,12p) 
n21=  set %c $replace(%c,q,q) 
n22=  set %c $replace(%c,r,13r) 
n23=  set %c $replace(%c,s,7s) 
n24=  set %c $replace(%c,t,t) 
n25=  set %c $replace(%c,u,4u) 
n26=  set %c $replace(%c,v,v) 
n27=  set %c $replace(%c,w,12w) 
n28=  set %c $replace(%c,x,7x) 
n29=  set %c $replace(%c,y,y) 
n30=  set %c $replace(%c,z,6z) 
n31=  set %c $replace(%c,?,12¿15?) 
n32=  say %c %c
n33=  unset %c
n34=}
n35=c  {
n36=  %elite = $replace(*1,a,â)
n37=  %elite = $replace(%elite,A,Ã)
n38=  %elite = $replace(%elite,q,¶)
n39=  %elite = $replace(%elite,b,ß)
n40=  %elite = $replace(%elite,ae,æ)
n41=  %elite = $replace(%elite,c,ç)
n42=  %elite = $replace(%elite,C,Ç)
n43=  %elite = $replace(%elite,d,Ð)
n44=  %elite = $replace(%elite,e,è)
n45=  %elite = $replace(%elite,E,é)
n46=  %elite = $replace(%elite,i,í)
n47=  %elite = $replace(%elite,l,£)
n48=  %elite = $replace(%elite,n,Ñ)
n49=  %elite = $replace(%elite,N,Ñ)
n50=  %elite = $replace(%elite,x,×)
n51=  %elite = $replace(%elite,o,ð)
n52=  %elite = $replace(%elite,O,ð)
n53=  %elite = $replace(%elite,F,f)
n54=  %elite = $replace(%elite,r,®)
n55=  %elite = $replace(%elite,s,§ )
n56=  %elite = $replace(%elite,t,t)
n57=  %elite = $replace(%elite,T,t)
n58=  %elite = $replace(%elite,u,µ)
n59=  %elite = $replace(%elite,y,¥)
n60=  %elite = $replace(%elite,0,º)
n61=  %elite = $replace(%elite,?,¿)
n62=  %elite = $replace(%elite,1,¹)
n63=  %elite = $replace(%elite,2,²)
n64=  %elite = $replace(%elite,3,³)
n65=  %elite = $replace(%elite,z,°z°)
n66=  %elite = $replace(%elite,!,¡)
n67=  %elite = $replace(%elite,p,þ)
n68=  set %c %elite
n69=  set %notok $len(%c)
n70=  set %tok 3
n71=  set %c 1 $+ %c
n72=  set %color 2
n73=  :nexttok
n74=  set %nlef %tok
n75=  set %notok $len(%c)
n76=  set %nrig %notok - %nlef
n77=  set %c $left(%nlef,%c) $+  $+ %color $+ $right(%nrig,%c)
n78=  inc %tok 3
n79=  if %tok >= %notok goto fini
n80=  inc %color
n81=  if %color > 15 set %color 2
n82=  if %color == 8 set %color 10
n83=  goto nexttok
n84=  :fini
n85=  say %c
n86=}
n87=e {  
n88=  %text = $replace(*1,a,â) | %text = $replace(%text,A,Ã)
n89=  %text = $replace(%text,b,ß) | %text = $replace(%text,ae,æ)
n90=  %text = $replace(%text,c,¢) | %text = $replace(%text,d,Ð)
n91=  %text = $replace(%text,e, ë) | %text = $replace(%text,E, ë)
n92=  %text = $replace(%text,i,¦) | %text = $replace(%text,l,£)
n93=  %text = $replace(%text,m,/|\) | %text = $replace(%text,n, ñ)
n94=  %text = $replace(%text,o,ø) | %text = $replace(%text,O,ö)
n95=  %text = $replace(%text,P,þ) | %text = $replace(%text,w,\\')
n96=  %text = $replace(%text,W,\\') | %text = $replace(%text,f,f)
n97=  %text = $replace(%text,F,f) | %text = $replace(%text,cks,X)
n98=  %text = $replace(%text,r,®) | %text = $replace(%text,s,§ )
n99=  %text = $replace(%text,t,t) | %text = $replace(%text,T,t)
n100=  %text = $replace(%text,u,û) | %text = $replace(%text,y,ÿ)
n101=  %text = $replace(%text,?,¿) | %text = $replace(%text,z,°z°)
n102=  %text = $replace(%text,!,¡) | /msg $Active %text 
n103=}
n104=re { 
n105=  set %i $replace(*1,$chr(32), )  | set %i $left(200,%i) 
n106=  set %o $chr(3) $+ 4,1 
n107=  set %p 1 | set %c 1 |   :loop |   set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i)  
n108=  inc %p |   if ( $mid(%p,1,%i) !=  ) { inc %c } 
n109=  if ( %c > 6 ) { set %c 1 } |   if ( $mid(%p,1,%i) != $null ) { goto loop } 
n110=  /e %o 
n111=  unset %o %i %p %c 
n112=}
n113=cs2 { 
n114=  %words = $$1  | %d = 2 
n115=  :lop
n116=  %c = [ $ [ $+ [ %d ] ] ] 
n117=  if %c != $null { %words = %words %c | /inc %d | goto lop } 
n118=  %r = 1  | %filled = ""  | %le = $len(%words) 
n119=  :insert
n120=  if %r > %le goto stop 
n121=  :nc
n122=  %c1 = $rand(8,9)  | %c2 = $rand(2,4) 
n123=  if %c1 = %c2 goto nc 
n124=  %filltext =  $+ %c1 $+ , $+ %c2   | %n = $mid(%r,1,%words) 
n125=  if %n = $chr(32) { /inc %r  | %filled = %filled $+  $+ $chr(0160)  | goto insert } 
n126=  %filled = %filled $+ %filltext $+ %n  | /inc %r  | goto insert 
n127=  :stop
n128=  /msg $active %filled 
n129=  /halt
n130=}
n131=coloralt { 
n132=  %words = $$1  | %d = 2 
n133=  :lop
n134=  %c = [ $ [ $+ [ %d ] ] ] 
n135=  if %c != $null { %words = %words %c | /inc %d | goto lop } 
n136=  %r = 1  | %filled = ""  | %le = $len(%words) 
n137=  :insert
n138=  if %r > %le goto stop 
n139=  :nc
n140=  %c1 =  $+ $rand(10,14)   | %c2 =  $+  $rand(2,7)
n141=  if %c1 = %c2 goto nc 
n142=  %filltext =  $+  %c1 $+   $+ %c2   | %n = $mid(%r,1,%words) 
n143=  if %n = $chr(32) { /inc %r  | %filled = %filled $+  $+ $chr(0160)  | goto insert } 
n144=  %filled = %filled $+ %filltext $+ %n  | /inc %r  | goto insert 
n145=  :stop
n146=  /msg $active %filled 
n147=  /halt
n148=}
n149=cs3 { 
n150=  %words = $$1  | %d = 2 
n151=  :lop
n152=  %c = [ $ [ $+ [ %d ] ] ] 
n153=  if %c != $null { %words = %words %c | /inc %d | goto lop } 
n154=  %r = 1  | %filled = ""  | %le = $len(%words) 
n155=  :insert
n156=  if %r > %le goto stop 
n157=  :nc
n158=  %c1 =  $+ %altcolor   | %c2 =   $+ %altcolor1 
n159=  if %c1 = %c2 goto nc 
n160=  %filltext =   $+ %c1  $+ %c2   | %n =  $mid(%r,1,%words) 
n161=  if %n = $chr(32) { /inc %r  | %filled = %filled $+  $+ $chr(0160)  | goto insert } 
n162=  %filled = %filled $+ %filltext $+ %n  | /inc %r  | goto insert 
n163=  :stop
n164=  /msg $active %filled 
n165=  /halt
n166=}
n167=
n168=altbc {
n169=  set %rainbow *1
n170=  set %text.change 0
n171=  :beginning
n172=  inc %text.change
n173=  if %text.change > $len(%rainbow) goto end
n174=  set %rand1 $rand(1,14)
n175=  set %text2add  $+ %rand1 $+ $mid(%text.change,1,%rainbow) $+ 
n176=  if (%text.change == 1) { set %textfinal %text2add }
n177=  else set %textfinal %textfinal $+ %text2add
n178=  goto beginning
n179=  :end
n180=  .say %textfinal
n181=  unset %textfinal
n182=}
n183=bgr {
n184=  unset %textfinal
n185=  set %rainbow *1
n186=  set %text.change 0
n187=  :beginning
n188=  inc %text.change
n189=  if %text.change > $len(%rainbow) goto end
n190=  :randomize
n191=  set %rand1 $rand(1,15)
n192=  set %rand2 $rand(1,15)
n193=  if %rand1 == %rand2 goto randomize
n194=  set %text2add  $+ %rand1 $+ , $+ %rand2 $+ $mid(%text.change,1,%rainbow) $+ 
n195=  if (%text.change == 1) { set %textfinal %text2add }
n196=  else set %textfinal %textfinal $+ %text2add
n197=  goto beginning
n198=  :end
n199=  msg $chan %textfinal
n200=}
n201=;***** smileys ******
n202=s say 1,8:) 1,8:) 1,8:) 1,8:) 1,8:)
n203=ss say 1,8:) 1,8:) 1,8:) 1,8:) 1,8:) *1
n204=smile say 1,8:)
n205=face {
n206=  /say 0_______1o( Õ¿Õ )o 
n207=  /say  ===oOO========OOo====
n208=}
n209=glasses /say 13Ò¿Ò¬
n210=rsmile /msg $chan  4=8-Þ
n211=tongue /say :Þ
n212=dribble /say :P~~~~~~~~~
n213=laugh /say :-D
n214=wink /say ;-)
n215=unhappy /say :(
n216=farmer /say ¶:)
n217=cross /say >:(
n218=angel /say  O:->
n219=bowler /say q:)
n220=many /say  (ê¿ê) *¿* ()¿()  {Ö¿Ö} ô¿ô «©¿©» õ¿õ) {Ö¿Ö} ô¿ô  «©¿©» õ¿õ(ê¿ê) *¿* ()¿() {Ö¿Ö} ô¿ô «©¿©» õ¿õ
n221=wavesa /me  12(¯`'·.¸(¯`'·.¸ 3 $$1 12¸.·'´¯)¸.·'´¯)
n222=mice {
n223=  /say  .................... ~~( ,,°°> .................... ~~( ,,°°> .................... ~~( ,,°°> .................... ~~( ,,°°>
n224=  /say eeeeeeeeeeek... MiCe !!
n225=}
n226=colors /say these are the colors   0,15 0=white1,0   1=black  2 2=blue 3 3=green4  4=red5  5=brown 6  6=purple 7 7=orange8  8=yellow 9 9=bt.green 10 10=cyan 11 11=lt.blue12 12=bt.blue13  13=magenta14  14=gray15  15=lt.gray 
n227=expcolors /say 6,8To type in color, press Ctrl-K then any number from 0-15, then your text. To use a background color use two numbers like 13,1 13,1like this :)  6,0 The first number is the font color and the second the background color. Also, Ctrl-U will underline and Ctrl-B will make it bold. :)
n228=sss /say 7 %color
n229=addstartprogram /return 12You are Using 2קuþêr§çriþt§× 7PRO 12ßy  Hell`Fire