[aliases]
n0=;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
n1=; 1.- Nombre: OrioN
n2=; 2.- Versión: v5.9
n3=; 3.- Autor: Javier Fernández Rivera
n4=; 4.- Web: http://www.ircorion.net
n5=; 5.- Mail: script@ircorion.net
n11=;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
n12=
n13=ponmuestraleter {
n14=  @ncp
n15=  if (%vartypeletra == code) { %formatncp = ¢.7.÷.ÿ.ð.>.8.0.¤.0.>.¢.7.÷.ÿ | goto ini1 }
n16=  if (%vartypeletra == normal) { %formatncp = Texto de muestra }
n17=  else { %formatncp = $typeletra(%vartypeletra,Texto de muestra) } 
n18=  :ini1 
n19=  drawline @ncp 0 50 0 0 150 0 
n20=  drawtext -cp @ncp 5 "Arial" 11 3 1 140 25  %formatncp
n21=  drawsave @ncp $orionskin(ncp.bmp)
n22=  did -g letras 2 $orionskin(ncp.bmp)
n23=  unset %formatncp
n24=}
n25=settypeletras {
n26=  if (normal isin $1-) { set %vartypeletra normal  }
n27=  if (color-opc isin $1-) { set %vartypeletra coloropc  }  
n28=  if (ascii isin $1-)  {  set %vartypeletra ascii   }
n29=  if (alreves isin $1-) {  set %vartypeletra alreves   }
n30=  if (bir mal isin $1-) {  set %vartypeletra mal    }
n31=  if (colorinos isin $1-) {  set %vartypeletra colores   }
n32=  if (relieve isin $1-)  {  set %vartypeletra relieve   }
n33=  if (mayus isin $1-) {  set %vartypeletra size   }
n34=  if (sin tinta isin $1-) {  set %vartypeletra sintinta   }
n35=  if (fuego isin $1-) {  set %vartypeletra fuego   }
n36=  if (agua isin $1-) {  set %vartypeletra agua    }
n37=  if (tierra isin $1-) {  set %vartypeletra tierra   }
n38=  if (esmeralda isin $1-)  {  set %vartypeletra esmeralda   }
n39=  if (grises isin $1-) {  set %vartypeletra grises    }
n40=  if (rgb isin $1-) {  set %vartypeletra rgb  }
n41=  if (barsa isin $1-) {  set %vartypeletra barsa   }
n42=  if (madrid isin $1-) { set %vartypeletra madrid  }
n43=  if (oviedo isin $1-) { set %vartypeletra oviedo   }
n44=  if (gijón isin $1-) {  set %vartypeletra gijon  }
n45=  if (depor isin $1-) {  set %vartypeletra depor   }
n46=  if (caudal isin $1-) {  set %vartypeletra caudal   }
n47=  if (enmarcada isin $1-) { set %vartypeletra marco   }
n48=  if (lacasitos isin $1-)  { set %vartypeletra lacasitos   }
n49=  if (sueño isin $1-)  { set %vartypeletra sueño   }
n50=  if (codificada isin $1-)  { set %vartypeletra code   }  
n51=  if (color-opciones isin $1-) { did -e letras 9 | did -e letras 10 | did -e letras 4 | did -e letras 5 }
n52=  else { did -b letras 9 | did -b letras 10 | did -b letras 4 | did -b letras 5 }
n53=  ponmuestraleter  
n54=}
n55=;============
n56=;tipos de letras
n57=;============
n58=typeletra {
n59=  var %result | var %alllen = $len($2) | var %x = 0 | unset %textencript
n60=  if ($1 == coloropc) { 
n61=    if (%colorleternegrita == on) && (%colorletersubra == on) { return  $+ %letercolorup $+ , $+ %letercolorback  $+ $2 $+  0,99 }  
n62=    if (%colorleternegrita == on) && (%colorletersubra != on) { return  $+ %letercolorup $+ , $+ %letercolorback $2 0,99 }  
n63=    if (%colorleternegrita != on) && (%colorletersubra == on) { return  $+ %letercolorup $+ , $+ %letercolorback  $+ $2 $+  0,99 }  
n64=    if (%colorleternegrita != on) && (%colorletersubra != on) { return  $+ %letercolorup $+ , $+ %letercolorback $2 0,99 }  
n65=  }
n66=  if ($1 == alreves) {
n67=    var %result | inc %alllen
n68=    :ini1
n69=    dec %alllen     
n70=    if (%alllen > 0) { 
n71=      if ($mid($2,%alllen,1) == $chr(32)) { %result = %result $chr(32) | goto ini1 }
n72=      else { %result = %result $+ $mid($2,%alllen,1) | goto ini1  }    
n73=    }    
n74=    else { return %result }
n75=  }
n76=  if ($1 == mal) {
n77=    var %o | %o = 0
n78=    :ini2
n79=    inc %o
n80=    if (%o <= %alllen) { 
n81=      if ($mid($2,%o,1) == $chr(32)) { %result = %result $chr(32) |  goto ini2  }     
n82=      if ($mid($2,%o,1) == c) { %result = %result $+ k |  goto ini2  }
n83=      if ($mid($2,%o,1) == y) { %result = %result  $+ í  | goto ini2 }
n84=      if ($mid($2,%o,1) == h) { %result = %result $+  j  | goto ini2 }
n85=      if ($mid($2,%o,1) == j) { %result = %result  $+ h  | goto ini2 }
n86=      if ($mid($2,%o,1) == g) { %result = %result $+  j  | goto ini2 }
n87=      if ($mid($2,%o,1) == s) { %result = %result  $+ z  | goto ini2 }
n88=      if ($mid($2,%o,1) == q) { %result = %result  $+ k  | goto ini2 }
n89=      else { %result = %result  $+ $mid($2,%o,1)  | goto ini2 }
n90=    }
n91=    else { return %result } 
n92=  }
n93=  if ($1 == colores) {    
n94=    var %le = $len($2) | inc %le | var %color | var %text
n95=    var %x = 0
n96=    :inicio
n97=    inc %x
n98=    if (%le != %x) { 
n99=      if ($mid($2,%x,1) == $chr(32)) {  %text = %text $chr(32) | goto inicio }
n100=      else {      
n101=        set %color  $+ $rand(1,7)
n102=        %text = %text $+ %color $+ $mid($2,%x,1)
n103=      }   
n104=      goto inicio 
n105=    }
n106=    elseif (%le == %x) { return %text | unset %txt %text %le %x %color }
n107=  }
n108=  if ($1 == relieve) {
n109=    :ini
n110=    inc %x
n111=    if (%x <= %alllen) {
n112=      if ($mid($2,%x,1) == $chr(32)) { %result = %result $chr(32) }
n113=      else { %result = %result $+ 1,150(1 $+ $mid($2,%x,1) $+ 14) }
n114=      goto ini
n115=    }
n116=    return %result 
n117=  }
n118=  if ($1 == size) {
n119=    var %size = 1     
n120=    var %nlen = $len($2)    
n121=    :ini
n122=    inc %x
n123=    if (%x <= %nlen) {
n124=      if ($mid($2,%x,1) == $chr(32)) { %result = %result $chr(32) }
n125=      else { 
n126=        if (%size == 1) { %result = %result $+ $upper($mid($2,%x,1)) | %size = 2 }
n127=        else { %result = %result $+ $lower($mid($2,%x,1)) | %size = 1 }
n128=        goto ini
n129=      }
n130=      goto ini   
n131=    }     
n132=    return %result 
n133=  }
n134=  if ($1 == sintinta) {
n135=    var %flag = 1     
n136=    var %nlen = $len($2)    
n137=    :ini
n138=    inc %x
n139=    if (%x <= %nlen) {
n140=      if ($mid($2,%x,1) == $chr(32)) { %result = %result $chr(32) }
n141=      else { 
n142=        if (%flag == 4) { %result = %result $+ 15 $+ $mid($2,%x,1)    }         
n143=        if (%flag == 3) { %result = %result $+ 14 $+ $mid($2,%x,1)  } 
n144=        if (%flag == 2) { %result = %result $+ 1 $+ $mid($2,%x,1)  } 
n145=        if (%flag == 1) { %result = %result $+ 1 $+ $mid($2,%x,1) }
n146=        %flag = $rand(1,4)  
n147=      }
n148=      goto ini   
n149=    }     
n150=    return %result 
n151=  }
n152=  if ($1 == fuego) {
n153=    var %flag = 1     
n154=    var %nlen = $len($2)    
n155=    :ini
n156=    inc %x
n157=    if (%x <= %nlen) {
n158=      if ($mid($2,%x,1) == $chr(32)) { %result = %result $chr(32) }
n159=      else { 
n160=        if (%flag == 4) { %result = %result $+ 8 $+ $mid($2,%x,1)  }         
n161=        if (%flag == 3) { %result = %result $+ 7 $+ $mid($2,%x,1)   } 
n162=        if (%flag == 2) { %result = %result $+ 4 $+ $mid($2,%x,1) } 
n163=        if (%flag == 1) { %result = %result $+ 5 $+ $mid($2,%x,1) | }
n164=        %flag = $rand(1,4)     
n165=      }
n166=      goto ini   
n167=    }     
n168=    return %result 
n169=  }
n170=  if ($1 == agua) {
n171=    var %flag = 1     
n172=    var %nlen = $len($2)    
n173=    :ini
n174=    inc %x
n175=    if (%x <= %nlen) {
n176=      if ($mid($2,%x,1) == $chr(32)) { %result = %result $chr(32) }
n177=      else { 
n178=        if (%flag == 4) { %result = %result $+ 11 $+ $mid($2,%x,1)   }         
n179=        if (%flag == 3) { %result = %result $+ 10 $+ $mid($2,%x,1)   } 
n180=        if (%flag == 2) { %result = %result $+ 12 $+ $mid($2,%x,1) } 
n181=        if (%flag == 1) { %result = %result $+ 2 $+ $mid($2,%x,1) }
n182=        %flag = $rand(1,4)           
n183=      }
n184=      goto ini   
n185=    }     
n186=    return %result 
n187=  }
n188=  if ($1 == tierra) {
n189=    var %flag = 1     
n190=    var %nlen = $len($2)    
n191=    :ini
n192=    inc %x
n193=    if (%x <= %nlen) {
n194=      if ($mid($2,%x,1) == $chr(32)) { %result = %result $chr(32) }
n195=      else { 
n196=        if (%flag == 4) { %result = %result $+ 15 $+ $mid($2,%x,1) }         
n197=        if (%flag == 3) { %result = %result $+ 14 $+ $mid($2,%x,1)    } 
n198=        if (%flag == 2) { %result = %result $+ 7 $+ $mid($2,%x,1)   } 
n199=        if (%flag == 1) { %result = %result $+ 5 $+ $mid($2,%x,1) }
n200=        %flag = $rand(1,4)          
n201=      }
n202=      goto ini   
n203=    }     
n204=    return %result 
n205=  }
n206=  if ($1 == esmeralda) {
n207=    var %flag = 1     
n208=    var %nlen = $len($2)    
n209=    :ini
n210=    inc %x
n211=    if (%x <= %nlen) {
n212=      if ($mid($2,%x,1) == $chr(32)) { %result = %result $chr(32) }
n213=      else { 
n214=        if (%flag == 4) { %result = %result $+ 14 $+ $mid($2,%x,1)  }         
n215=        if (%flag == 3) { %result = %result $+ 9 $+ $mid($2,%x,1)  } 
n216=        if (%flag == 2) { %result = %result $+ 3 $+ $mid($2,%x,1)   } 
n217=        if (%flag == 1) { %result = %result $+ 10 $+ $mid($2,%x,1)  }
n218=        %flag = $rand(1,4)         
n219=      }
n220=      goto ini   
n221=    }     
n222=    return %result 
n223=  }
n224=  if ($1 == grises) {
n225=    var %flag = 1     
n226=    var %nlen = $len($2)    
n227=    :ini
n228=    inc %x
n229=    if (%x <= %nlen) {
n230=      if ($mid($2,%x,1) == $chr(32)) { %result = %result $chr(32) }
n231=      else { 
n232=        if (%flag == 4) { %result = %result $+ 14 $+ $mid($2,%x,1)    }         
n233=        if (%flag == 3) { %result = %result $+ 15 $+ $mid($2,%x,1)    } 
n234=        if (%flag == 2) { %result = %result $+ 14 $+ $mid($2,%x,1)  } 
n235=        if (%flag == 1) { %result = %result $+ 1 $+ $mid($2,%x,1)  }
n236=        %flag = $rand(1,4)          
n237=      }
n238=      goto ini   
n239=    }     
n240=    return %result 
n241=  }
n242=  if ($1 == rgb) {
n243=    var %flag = 1     
n244=    var %nlen = $len($2)    
n245=    :ini
n246=    inc %x
n247=    if (%x <= %nlen) {
n248=      if ($mid($2,%x,1) == $chr(32)) { %result = %result $chr(32) }
n249=      else { 
n250=        if (%flag == 3) { %result = %result $+ 12 $+ $mid($2,%x,1)   } 
n251=        if (%flag == 2) { %result = %result $+ 3 $+ $mid($2,%x,1)  } 
n252=        if (%flag == 1) { %result = %result $+ 4 $+ $mid($2,%x,1) }
n253=        %flag = $rand(1,3)         
n254=      }
n255=      goto ini   
n256=    }     
n257=    return %result 
n258=  }
n259=  if ($1 == barsa) {
n260=    var %flag = 1     
n261=    var %nlen = $len($2)    
n262=    :ini
n263=    inc %x
n264=    if (%x <= %nlen) {
n265=      if ($mid($2,%x,1) == $chr(32)) { %result = %result $chr(32) }
n266=      else { 
n267=        if (%flag == 2) { %result = %result $+ 4 $+ $mid($2,%x,1) |  %flag = 1  } 
n268=        else { %result = %result $+ 2 $+ $mid($2,%x,1) | %flag = 2 }
n269=      }
n270=      goto ini   
n271=    }     
n272=    return %result 
n273=  }
n274=  if ($1 == madrid) {
n275=    var %flag = 1     
n276=    var %nlen = $len($2)    
n277=    :ini  
n278=    inc %x
n279=    if (%x <= %nlen) {
n280=      if ($mid($2,%x,1) == $chr(32)) { %result = %result $chr(32) }
n281=      else { 
n282=        if (%flag == 1) { %result = %result $+ 14 $+ $mid($2,%x,1)  | %flag = 2 } 
n283=        else { %result = %result $+ 13 $+ $mid($2,%x,1) | %flag = 1 }      
n284=      }
n285=      goto ini   
n286=    }     
n287=    return %result 
n288=  }
n289=  if ($1 == depor) {
n290=    var %flag = 1     
n291=    var %nlen = $len($2)    
n292=    :ini
n293=    inc %x
n294=    if (%x <= %nlen) {
n295=      if ($mid($2,%x,1) == $chr(32)) { %result = %result $chr(32) }
n296=      else { 
n297=        if (%flag == 2) { %result = %result $+ 12 $+ $mid($2,%x,1) |  %flag = 1  } 
n298=        else { %result = %result $+ 15 $+ $mid($2,%x,1) | %flag = 2 }
n299=      }
n300=      goto ini   
n301=    }     
n302=    return %result 
n303=  }
n304=  if ($1 == gijon) {
n305=    var %flag = 1     
n306=    var %nlen = $len($2)    
n307=    %result = 0,4 0,99    
n308=    :ini
n309=    inc %x
n310=    if (%x <= %nlen) {
n311=      if ($mid($2,%x,1) == $chr(32)) { %result = %result $chr(32) }
n312=      else { 
n313=        if (%flag == 2) { %result = %result $+ 0,4 $+ $mid($2,%x,1) |  %flag = 1  } 
n314=        else { %result = %result $+ 1,4 $+ $mid($2,%x,1) | %flag = 2 }
n315=      }
n316=      goto ini   
n317=    }     
n318=    %result = %result $+ 0,4 0,99   
n319=    return %result 
n320=  }
n321=  if ($1 == oviedo) {
n322=    var %flag = 1     
n323=    var %nlen = $len($2)    
n324=    %result = 0,12 0,99    
n325=    :ini
n326=    inc %x
n327=    if (%x <= %nlen) {
n328=      if ($mid($2,%x,1) == $chr(32)) { %result = %result $chr(32) }
n329=      else { 
n330=        if (%flag == 2) { %result = %result $+ 11,12 $+ $mid($2,%x,1) |  %flag = 1  } 
n331=        else { %result = %result $+ 0,12 $+ $mid($2,%x,1) | %flag = 2 }
n332=      }
n333=      goto ini   
n334=    }     
n335=    %result = %result $+ 0,12 0,99   
n336=    return %result 
n337=  }
n338=  if ($1 == caudal) {
n339=    var %flag = 1     
n340=    var %nlen = $len($2)    
n341=    %result = 0,15 0,99    
n342=    :ini
n343=    inc %x
n344=    if (%x <= %nlen) {
n345=      if ($mid($2,%x,1) == $chr(32)) { %result = %result $chr(32) }
n346=      else { 
n347=        if (%flag == 2) { %result = %result $+ 0,15 $+ $mid($2,%x,1) |  %flag = 1  } 
n348=        else { %result = %result $+ 0,1 $+ $mid($2,%x,1) | %flag = 2 }
n349=      }
n350=      goto ini   
n351=    }     
n352=    %result = %result $+ 0,15 0,99   
n353=    return %result 
n354=  }
n355=  if ($1 == lacasitos) {
n356=    var %flag = 1    
n357=    var %nlen = $len($2)    
n358=    :ini
n359=    inc %x
n360=    if (%x <= %nlen) {
n361=      if ($mid($2,%x,1) == $chr(32)) { %result = %result $chr(32) }
n362=      else { 
n363=        if (%flag == 10) { %result = %result $+ 1,11 $+ $mid($2,%x,1)   } 
n364=        if (%flag == 9) { %result = %result $+ 2,8 $+ $mid($2,%x,1) } 
n365=        if (%flag == 8) { %result = %result $+ 0,4 $+ $mid($2,%x,1)   } 
n366=        if (%flag == 7) { %result = %result $+ 9,1 $+ $mid($2,%x,1)  } 
n367=        if (%flag == 6) { %result = %result $+ 10,12 $+ $mid($2,%x,1)    } 
n368=        if (%flag == 5) { %result = %result $+ 8,13 $+ $mid($2,%x,1)  } 
n369=        if (%flag == 4) { %result = %result $+ 15,2 $+ $mid($2,%x,1)  } 
n370=        if (%flag == 3) { %result = %result $+ 14,10 $+ $mid($2,%x,1)   } 
n371=        if (%flag == 2) { %result = %result $+ 11,10 $+ $mid($2,%x,1)  } 
n372=        if (%flag == 1) { %result = %result $+ 6,9 $+ $mid($2,%x,1)   } 
n373=        %flag = $rand(1,10)    
n374=      }
n375=      goto ini   
n376=    }     
n377=    return %result 
n378=  }
n379=  if ($1 == code) {
n380=    %a = 1 | %result =  14OrioNC14ode:1 $readini(sistema\ldecode\ldecode.ini,chars,clave) $chr(32) 
n381=    while ($mid($2,%a,1) != $null) {
n382=      if ($mid($2,%a,1) == $chr(32)) { %result = %result $chr(32) | inc %a | continue }
n383=      if ($read(sistema\ldecode\ldecode.ini,nw,$mid($2,%a,1) *=*)) { %result = %result $+  $remove($gettok($read(sistema\ldecode\ldecode.ini,nw,$mid($2,%a,1) *=*),2,61),$chr(32)) | inc %a | continue }
n384=      else { %result = %result $+ $mid($2,%a,1) }     
n385=      inc %a     
n386=    }
n387=    return %result
n388=  }  
n389=  if ($1 == decode) {
n390=    %a = 1 | %result = 14OrioND14ecode:1 $chr(32) 
n391=    while ($mid($2,%a,1) != $null) {
n392=      if ($mid($2,%a,1) == $chr(32)) { %result = %result $chr(32)  }      
n393=      if ($read(sistema\ldecode\ldecode.ini,nw,*= $mid($2,%a,1))) { %result = %result $+ $remove($gettok($read(sistema\ldecode\ldecode.ini,nw,*= $mid($2,%a,1)),1,61),$chr(32)) | inc %a | continue }
n394=      else { %result = %result $+ $mid($2,%a,1) | inc %a | continue }     
n395=      inc %a
n396=    }
n397=    return %result
n398=  }  
n399=
n400=
n401=  if ($1 == sueño) {
n402=    var %l | var %l-encript | var %textencript
n403=    :ini
n404=    inc %l
n405=    var %lenmas = $len($2) | inc %lenmas
n406=    if (%l == %lenmas) { return %textencript  }
n407=    else {
n408=      if ($mid($2,%l,1) == a) { set %l-encript 12a | %textencript = %textencript $+ %l-encript | goto ini }
n409=      if ($mid($2,%l,1) == b) { set %l-encript 6B | %textencript = %textencript  $+ %l-encript | goto ini }
n410=      if ($mid($2,%l,1) == c) { set %l-encript 3c | %textencript = %textencript  $+ %l-encript | goto ini }
n411=      if ($mid($2,%l,1) == d) { set %l-encript 6D | %textencript = %textencript  $+ %l-encript  | goto ini }
n412=      if ($mid($2,%l,1) == e) { set %l-encript 4e | %textencript = %textencript  $+  %l-encript | goto ini }
n413=      if ($mid($2,%l,1) == f) { set %l-encript 1F | %textencript = %textencript  $+ %l-encript  | goto ini }
n414=      if ($mid($2,%l,1) == g) { set %l-encript 7g | %textencript = %textencript  $+  %l-encript | goto ini }
n415=      if ($mid($2,%l,1) == h) { set %l-encript 13H | %textencript = %textencript  $+ %l-encript  | goto ini }
n416=      if ($mid($2,%l,1) == i) { set %l-encript 3i | %textencript = %textencript  $+ %l-encript  | goto ini }
n417=      if ($mid($2,%l,1) == j) { set %l-encript 1J | %textencript = %textencript $+  %l-encript  | goto ini }
n418=      if ($mid($2,%l,1) == k) { set %l-encript 3k | %textencript = %textencript $+  %l-encript  | goto ini }
n419=      if ($mid($2,%l,1) == l) { set %l-encript 7L | %textencript = %textencript $+ %l-encript  | goto ini }
n420=      if ($mid($2,%l,1) == m) { set %l-encript 12m | %textencript = %textencript  $+ %l-encript  | goto ini }
n421=      if ($mid($2,%l,1) == n) { set %l-encript 13N | %textencript = %textencript $+  %l-encript | goto ini }
n422=      if ($mid($2,%l,1) == o) { set %l-encript 14o | %textencript = %textencript  $+ %l-encript | goto ini }
n423=      if ($mid($2,%l,1) == p) { set %l-encript 15P | %textencript = %textencript  $+ %l-encript | goto ini }
n424=      if ($mid($2,%l,1) == q) { set %l-encript 11q | %textencript = %textencript $+  %l-encript  | goto ini }
n425=      if ($mid($2,%l,1) == r) { set %l-encript 5R | %textencript = %textencript  $+ %l-encript  | goto ini }
n426=      if ($mid($2,%l,1) == s) { set %l-encript 7S | %textencript = %textencript $+  %l-encript  | goto ini }
n427=      if ($mid($2,%l,1) == t) { set %l-encript 4t | %textencript = %textencript  $+ %l-encript | goto ini }
n428=      if ($mid($2,%l,1) == u) { set %l-encript 13U | %textencript = %textencript $+  %l-encript  | goto ini }
n429=      if ($mid($2,%l,1) == v) { set %l-encript 2v | %textencript = %textencript  $+ %l-encript | goto ini }
n430=      if ($mid($2,%l,1) == w) { set %l-encript 13W | %textencript = %textencript $+  %l-encript | goto ini }
n431=      if ($mid($2,%l,1) == x) { set %l-encript 5x | %textencript = %textencript  $+  %l-encript | goto ini }
n432=      if ($mid($2,%l,1) == y) { set %l-encript 1y | %textencript = %textencript  $+ %l-encript  | goto ini }
n433=      if ($mid($2,%l,1) == z) { set %l-encript 3Z | %textencript = %textencript  $+ %l-encript  | goto ini }
n434=      if ($mid($2,%l,1) == ñ) { set %l-encript 6ñ | %textencript = %textencript  $+ %l-encript  | goto ini }
n435=      if ($mid($2,%l,1) == ?) { set %l-encript 7? | %textencript = %textencript  $+ %l-encript  | goto ini }
n436=      if ($mid($2,%l,1) == ,) { set %l-encript 3, | %textencript = %textencript  $+ %l-encript  | goto ini }
n437=      if ($mid($2,%l,1) == .) { set %l-encript 12. | %textencript = %textencript  $+ %l-encript  | goto ini }
n438=      if ($mid($2,%l,1) == =) { set %l-encript 4= | %textencript = %textencript  $+ %l-encript  | goto ini }   
n439=      if ($mid($2,%l,1) == $chr(32)) { %textencript = %textencript $chr(32) | goto ini }
n440=    }
n441=  }
n442=  if ($1 == marco) {
n443=    var %c1 |  var %c2 | var %c3 |  var %c4 | var %c5 | var %c6 | var %c7  | var %c15  
n444=    var %c8 | var %c9 | var %c10 | var %c11 | var %c12 | var %c13 | var %c14
n445=    set %c1 $rand(1,15) |  set %c10 $rand(1,15)
n446=    set %c2 $rand(1,15) |  set %c11 $rand(1,15)
n447=    set %c3 $rand(1,15) |  set %c12 $rand(1,15)
n448=    set %c4 $rand(1,15) |  set %c13 $rand(1,15)
n449=    set %c5 $rand(1,15) | set %c14 $rand(1,15)
n450=    set %c6 $rand(1,15) | set %c15 $rand(1,15)
n451=    set %c7 $rand(1,15) |  set %c16 $rand(1,15)
n452=    set %c8 $rand(1,15) |  set %c9 $rand(1,15) | 
n453=    return   $+ %c9 $+ , $+ %c10   $+ %c11 $+ , $+ %c12   $+ %c1 $+ , $+ %c2   $+ %c3 $+ , $+ %c4 11,1  $2   $+ %c5 $+ , $+ %c6  $+ %c7 $+ , $+ %c8  $+ %c13 $+ , $+ %c14  $+ %c7 $+ , $+ %c15 0,99  
n454=  }
n455=  if ($1 == ascii) {
n456=    var %l  | unset %textencript
n457=    :ini
n458=    inc %l
n459=    var %lenmas = $len($2) | inc %lenmas
n460=    if (%l == %lenmas) {  return %textencript  }
n461=    else {
n462=      if ($mid($2,%l,1) == a) { set %l-encript à | %textencript = %textencript $+ %l-encript | goto ini }
n463=      if ($mid($2,%l,1) == b) { set %l-encript ß | %textencript = %textencript  $+ %l-encript | goto ini }
n464=      if ($mid($2,%l,1) == c) { set %l-encript ¢ | %textencript = %textencript  $+ %l-encript | goto ini }
n465=      if ($mid($2,%l,1) == d) { set %l-encript Ð | %textencript = %textencript  $+ %l-encript  | goto ini }
n466=      if ($mid($2,%l,1) == e) { set %l-encript € | %textencript = %textencript  $+  %l-encript | goto ini }
n467=      if ($mid($2,%l,1) == f) { set %l-encript F | %textencript = %textencript  $+ %l-encript  | goto ini }
n468=      if ($mid($2,%l,1) == g) { set %l-encript g | %textencript = %textencript  $+  %l-encript | goto ini }
n469=      if ($mid($2,%l,1) == h) { set %l-encript h  | %textencript = %textencript  $+ %l-encript  | goto ini }
n470=      if ($mid($2,%l,1) == i) { set %l-encript Í | %textencript = %textencript  $+ %l-encript  | goto ini }
n471=      if ($mid($2,%l,1) == j) { set %l-encript J | %textencript = %textencript $+  %l-encript  | goto ini }
n472=      if ($mid($2,%l,1) == k) { set %l-encript k | %textencript = %textencript $+  %l-encript  | goto ini }
n473=      if ($mid($2,%l,1) == l) { set %l-encript L | %textencript = %textencript $+ %l-encript  | goto ini }
n474=      if ($mid($2,%l,1) == m) { set %l-encript m | %textencript = %textencript  $+ %l-encript  | goto ini }
n475=      if ($mid($2,%l,1) == n) { set %l-encript n | %textencript = %textencript $+  %l-encript | goto ini }
n476=      if ($mid($2,%l,1) == o) { set %l-encript Ø | %textencript = %textencript  $+ %l-encript | goto ini }
n477=      if ($mid($2,%l,1) == p) { set %l-encript þ | %textencript = %textencript  $+ %l-encript | goto ini }
n478=      if ($mid($2,%l,1) == q) { set %l-encript Q | %textencript = %textencript $+  %l-encript  | goto ini }
n479=      if ($mid($2,%l,1) == r) { set %l-encript R | %textencript = %textencript  $+ %l-encript  | goto ini }
n480=      if ($mid($2,%l,1) == s) { set %l-encript § | %textencript = %textencript $+  %l-encript  | goto ini }
n481=      if ($mid($2,%l,1) == t) { set %l-encript T | %textencript = %textencript  $+ %l-encript | goto ini }
n482=      if ($mid($2,%l,1) == u) { set %l-encript Ü | %textencript = %textencript $+  %l-encript  | goto ini }
n483=      if ($mid($2,%l,1) == v) { set %l-encript v | %textencript = %textencript  $+ %l-encript | goto ini }
n484=      if ($mid($2,%l,1) == w) { set %l-encript W | %textencript = %textencript $+  %l-encript | goto ini }
n485=      if ($mid($2,%l,1) == x) { set %l-encript x | %textencript = %textencript  $+  %l-encript | goto ini }
n486=      if ($mid($2,%l,1) == y) { set %l-encript  ¥ | %textencript = %textencript  $+ %l-encript  | goto ini }
n487=      if ($mid($2,%l,1) == z) { set %l-encript z | %textencript = %textencript  $+ %l-encript  | goto ini }
n488=      if ($mid($2,%l,1) == ñ) { set %l-encript ñ | %textencript = %textencript  $+ %l-encript  | goto ini }
n489=      if ($mid($2,%l,1) == ,) { set %l-encript , | %textencript = %textencript  $+ %l-encript  | goto ini }
n490=      if ($mid($2,%l,1) == .) { set %l-encript . | %textencript = %textencript  $+ %l-encript  | goto ini }
n491=      if ($mid($2,%l,1) == =) { set %l-encript = | %textencript = %textencript  $+ %l-encript  | goto ini }
n492=      if ($mid($2,%l,1) == ?) { set %l-encript ? | %textencript = %textencript  $+ %l-encript  | goto ini }
n493=      if ($mid($2,%l,1) == $chr(32)) { %textencript = %textencript $chr(32) | goto ini }
n494=    }
n495=  } 
n496=  haltdef
n497=}
n498=;selkick
n499=nkick {
n500=  inc %n.kick
n501=  return Kick - $+ %n.kick $+ -
n502=}
n503=nban {
n504=  inc %n.ban
n505=  return Ban - $+ %n.ban $+ -
n506=}
n507=total-kick {
n508=  inc %total.kick 
n509=}
n510=total-ban {
n511=  inc %total.ban 
n512=}
n513=est-kick {
n514=  echo -s %sepa
n515=  echo -s 15,15.14,14.15,2 Ataque - Kick 14,14.15,15.
n516=  echo -s 0Nick8 %nick.atake-kick
n517=  echo -s  0Canal8 %canal.atake
n518=  echo -s  0Kick´s8 %nºkick
n519=  echo -s 0Razon8 %msg.atake-kick
n520=}
n521=est-ban {
n522=  echo -s %sepa
n523=  echo -s 15,15.14,14.15,2 Ataque - Ban 14,14.15,15.
n524=  echo -s 0Nick8 %nick.atake-ban
n525=  echo -s 0Canal8 %canal.atake
n526=  echo -s 0Ban´s´s8 %nuban
n527=  echo -s 0Razon8 %msg.atake-ban
n528=}
n529=est-abr {
n530=  echo -s %sepa
n531=  echo -s 15,15.14,14.15,2 Habriendo consola de ataque 14,14.15,15.
n532=  echo -s 0Iniciado programa8 %est-abr
n533=  echo -s 0Total Kick´s8 %total.kick
n534=  echo -s 0Total Ban´s8 %total.ban
n535=}
n536=
n537=;proceso de auto identificacion automatizando /nick
n538=nick {
n539=  %n = $read($mircdirsistema\RedesConfig\ $+ $gettok($server,2-,46) $+ .ini, w ,identify· $+ $1 $+ · $+ *) 
n540=  if (%n) {
n541=    %n = $read($mircdirsistema\RedesConfig\ $+ $gettok($server,2-,46) $+ .ini,$readn)
n542=    $gettok(%n,3,183)  
n543=  }
n544=  else {
n545=    nick $1-
n546=  }
n547=  unset %n
n548=}