[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=;cambio de sonidos para var autowav====================
n14=setautowav {
n15=  if ($1 == 1) { set %autowav1 $file="Escoje el archivo de sonido" $mircdirskins\ | did -ra orionsound 5 %autowav1  }
n16=  if ($1 == 2) { set %autowav2  $file="Escoje el archivo de sonido" $mircdirskins\  | did -ra orionsound 5 %autowav2 }
n17=  if ($1 == 3) { set %autowav3  $file="Escoje el archivo de sonido" $mircdirskins\  | did -ra orionsound 5 %autowav3 }
n18=  if ($1 == 4) { set %autowav4  $file="Escoje el archivo de sonido" $mircdirskins\  | did -ra orionsound 5 %autowav4 }
n19=  if ($1 == 5) { set %autowav5  $file="Escoje el archivo de sonido" $mircdirskins\  | did -ra orionsound 5 %autowav5 }
n20=  if ($1 == 6) { set %autowav6  $file="Escoje el archivo de sonido" $mircdirskins\  | did -ra orionsound 5 %autowav6 }
n21=  if ($1 == 7) { set %autowav7  $file="Escoje el archivo de sonido" $mircdirskins\  | did -ra orionsound 5 %autowav7 }
n22=  if ($1 == 8) { set %autowav8  $file="Escoje el archivo de sonido" $mircdirskins\  | did -ra orionsound 5 %autowav8 }
n23=  if ($1 == 9) { set %autowav9  $file="Escoje el archivo de sonido" $mircdirskins\  | did -ra orionsound 5 %autowav9 }
n24=  if ($1 == 10) { set%autowav10  $file="Escoje el archivo de sonido" $mircdirskins\  | did -ra orionsound 5 %autowav10 }
n25=  if ($1 == 11) { set %autowav11  $file="Escoje el archivo de sonido" $mircdirskins\  | did -ra orionsound 5 %autowav11 }
n26=  if ($1 == 12) { set %autowav12  $file="Escoje el archivo de sonido" $mircdirskins\  | did -ra orionsound 5 %autowav12 }
n27=  if ($1 == 13) { set %autowav13  $file="Escoje el archivo de sonido" $mircdirskins\  | did -ra orionsound 5 %autowav13 }
n28=}
n29=;dell variables autowav dejar en blanco===================
n30=delautowav {
n31=  if ($1 == 1) { unset %autowav1 }
n32=  if ($1 == 2) { unset %autowav2 }
n33=  if ($1 == 3) { unset %autowav3 }
n34=  if ($1 == 4) { unset %autowav4 }
n35=  if ($1 == 5) { unset %autowav5 }
n36=  if ($1 == 6) { unset %autowav6 }
n37=  if ($1 == 7) { unset %autowav7 }
n38=  if ($1 == 8) { unset %autowav8 }
n39=  if ($1 == 9) { unset %autowav9 }
n40=  if ($1 == 10) { unset %autowav10 }
n41=  if ($1 == 11) { unset %autowav11 }
n42=  if ($1 == 12) { unset %autowav12 }
n43=  if ($1 == 13) { unset %autowav13 }
n44=}
n45=;sacar clones en scaneador============================
n46=scanclonesd {
n47=  if ($did(scan,10).text == $null) { informo  Es necesario que especifique en el scan la ip del usuario para sacarla haga un --> /dns nick y copie la ip en la casilla del scan  }
n48=  sorion whois
n49=  did -r scan 26 
n50=  did -a scan 26 ʧçÄnÉãNÐø çLøNê§ ..... 
n51=  set %clon.ip *@ $+ $did(scan,10).text | set %clon.n $ial(%clon.ip ,0)
n52=  if (%clon.n == 1) { did -a scan 26 No tienes clones | unset %x %xl %clon.* | .timerbarrido* off  |  .timermoveicon* off  | halt }
n53=  did -a scan 26 Analizando %clon.ip | if (%clon.n > 0) { dec %clon.n } | did -a scan 26 Encontrados %clon.n clon/es | inc %clon.n
n54=  did -a scan 26 ============Nicks resueltos============= 
n55=  set %x 0
n56=  set %xl 0
n57=  while (%x < 10) {
n58=    inc %x
n59=    if (%clon.n == 0) { echo -s  $oriontheme(sSeparadorLine) }  
n60=    if (%clon.n != %x) {   
n61=      if (%xl == 0) { did -a scan 26 -clon-Dueño $+ : $gettok($ial(%clon.ip , $+ %x),1,33)  }
n62=      else { did -a scan 26 -Clon- $+ %xl $+ : $gettok($ial(%clon.ip , $+ %x),1,33) }
n63=      inc %xl    
n64=      continue
n65=    }
n66=    else { 
n67=      did -a scan 26 -Clon- $+ %xl $+ : $gettok($ial(%clon.ip , $+ %x),1,33)  
n68=      unset %x %xl %clon.* | .timerbarrido* off  |  .timermoveicon* off 
n69=      did -e scan 10 | did -e scan 11 | did -a scan 26 ============Total de clones============= 
n70=    }
n71=  }
n72=}
n73=;FSERVERXXXXXXXXXXXXXXXXXXXXXX
n74=;activacion del fserver================================
n75=fserveron {
n76=  infotxt@ 8Ejecutando gestor de 9Servidor de archivos. 
n77=  @fserver 
n78=  sorion op | set %fserver on  | .enable #fserver 
n79=  if ($dialog(fserver) != $null) {
n80=    did -a fserver 19 Activado | did -c fserver 19
n81=    did -b fserver 8 | did -b fserver 9 | did -b fserver 11 | did -b fserver 8 | did -b fserver 17 | did -b fserver 4    
n82=    did -b fserver 22 | did -b fserver 23 | did -b fserver 24 | did -b fserver 29  
n83=    if ($did(fserver,24).state != 1) { .timeranufserver 0 $gettok(%timeanufserver,1,32) anunciafserver }
n84=  }  
n85=  actfserver
n86=  echo -s $oriontheme(sSeparadorLine)  
n87=  echo -s 0,15 0,14 0,1 F-§êRvEr 11,4 Activado 1,14 0,15 9,99 1,99
n88=  echo -s 8,1 Directorio abierto: 11 %dirfserver 9,99 
n89=  echo -s 8,1 Clave de entrada: 4 %passfserver 9,99
n90=  echo -s 8,1 Numero maximo de usuarios: 4 %maxusersfserver 9,99 
n91=  if (%contenidofserver != $null) {   echo -s 8,1 Contenido del F-server: 11 %contenidofserver 9,99  }
n92=  echo -s $oriontheme(sSeparadorLine)  
n93=}
n94=;desactivacion del fserver============================
n95=fserveroff { 
n96=  infotxt@ 8Cerrando 5gestor de servidor de archivos.  
n97=  sorion check | set %anufserver off | set %fserver off
n98=  if ($window(@fserver) != $null) { close -c %fserverchatx | window -c @fserver | unset %fserverchatx }  
n99=  close -f $sline(@fserver,1)
n100=  close -f $sline(@fserver,2)
n101=  close -f $sline(@fserver,3)
n102=  close -f $sline(@fserver,4)
n103=  close -f $sline(@fserver,5)
n104=  if ($dialog(fserver) != $null) { 
n105=    did -a fserver 19 Desactivado 
n106=    did -e fserver 8 | did -e fserver 9 | did -e fserver 11 | did -e fserver 8 | did -e fserver 17 
n107=    did -e fserver 22 | did -e fserver 23 | did -e fserver 24 | did -e fserver 29 | did -e fserver 4   
n108=    did -u fserver 19
n109=  }
n110=  .timeranufserver off | .disable #fserver  | desfserver 
n111=  echo -s $oriontheme(sSeparadorLine)   
n112=  echo -s 0,15 0,14 0,1 F-§êRvEr 11,4 Desactivado 1,14 0,15 9,99 1,99
n113=  echo -s $oriontheme(sSeparadorLine)  
n114=}
n115=;establecer medidores para pijas======================
n116=medidores {
n117=  if ($$2 > 11) { echo -es 4ERROR :2 La puntuación debe ser un número del12 0 2al12 11 }
n118=  if ( $$2 == 0 ) { say 6 $+ $$1  12consigue un 9,2 {4[0]9,2---------} 12,99 en el medidor de $+ $rand(2,7) $$3- }
n119=  if ( $$2 == 1 ) { say 6 $+ $$1 12consigue un 9,2 {8[1]9,2---------} 12,99 en el medidor de $+ $rand(2,7) $$3- }
n120=  if ( $$2 == 2 ) { say 6 $+ $$1 12consigue un 9,2 {-8[2]9,2--------} 12,99 en el medidor de $+ $rand(2,7) $$3- }
n121=  if ( $$2 == 3 ) { say 6 $+ $$1 12consigue un 9,2 {--8[3]9,2-------} 12,99 en el medidor de $+ $rand(2,7) $$3- }
n122=  if ( $$2 == 4 ) { say 6 $+ $$1 12consigue un 9,2 {---7[4]9,2------} 12,99 en el medidor de $+ $rand(2,7) $$3- }
n123=  if ( $$2 == 5 ) { say 6 $+ $$1 12consigue un 9,2 {----7[5]9,2-----} 12,99 en el medidor de $+ $rand(2,7) $$3- }
n124=  if ( $$2 == 6 ) { say 6 $+ $$1 12consigue un 9,2 {-----7[6]9,2----} 12,99 en el medidor de $+ $rand(2,7) $$3- }
n125=  if ( $$2 == 7 ) { say 6 $+ $$1 12consigue un 9,2 {------7[7]9,2---} 12,99 en el medidor de $+ $rand(2,7) $$3- }
n126=  if ( $$2 == 8 ) { say 6 $+ $$1 12consigue un 9,2 {-------11[8]9,2--} 12,99 en el medidor de $+ $rand(2,7) $$3- }
n127=  if ( $$2 == 9 ) { say 6 $+ $$1 12consigue un 9,2 {--------11[9]9,2-} 12,99 en el medidor de $+ $rand(2,7) $$3- }
n128=  if ( $$2 == 10 ) { say 6 $+ $$1 12consigue un 9,2 {---------11[10]9,2} 12,99 en el medidor de $+ $rand(2,7) $$3- }
n129=  if ( $$2 == 11 ) { say 6 $+ $$1 12consigue un 9,2 {----------4[11]9,2} 12,99 en el medidor de $+ $rand(2,7) $$3- }
n130=}
n131=;banderas========================================
n132=;  Bandera Española
n133=
n134=/spain {
n135=  say 4,4 ...........................  
n136=  say 8,8 ...........................   12  VIVA  
n137=  say 4,4 ...........................   12 ESPAÑA !!
n138=}
n139=
n140=; Bandera Madrid
n141=
n142=/madrid {
n143=  say 4,4***************
n144=  say 4,4****15*4*15*4*15*4*15*4****   12,99MADRID
n145=  say 4,4*****15*4*15*4*15*4*****
n146=}
n147=
n148=; Bandera Catalana
n149=
n150=catalana {
n151=  say 8,8^4,4^8,8^4,4^8,8^4,4^8,8^4,4^8,8^
n152=  say 8,8^4,4^8,8^4,4^8,8^4,4^8,8^4,4^8,8^
n153=  say 8,8^4,4^8,8^4,4^8,8^4,4^8,8^4,4^8,8^  12¡¡CATALUNYA!!
n154=  say 8,8^4,4^8,8^4,4^8,8^4,4^8,8^4,4^8,8^
n155=  say 8,8^4,4^8,8^4,4^8,8^4,4^8,8^4,4^8,8^
n156=}
n157=
n158=; Bandera Valenciana
n159=
n160=valencia {
n161=  say 12,12^^^^^^^^^
n162=  say 8,8^4,4^8,8^4,4^8,8^4,4^8,8^4,4^8,8^    8,2 AMUNT 
n163=  say 8,8^4,4^8,8^4,4^8,8^4,4^8,8^4,4^8,8^   
n164=  say 8,8^4,4^8,8^4,4^8,8^4,4^8,8^4,4^8,8^    8,2 VALÈNCIA!! 
n165=  .timer 1 1 say 8,8^4,4^8,8^4,4^8,8^4,4^8,8^4,4^8,8^  
n166=  .timer 1 2 say 8,8^4,4^8,8^4,4^8,8^4,4^8,8^4,4^8,8^
n167=}
n168=
n169=; BAndera Asturias
n170=
n171=asturias {
n172=  say 2,2.............................
n173=  say 2,2.............8,8...2,2.............
n174=  say 2,2.......8,8...............2,2....... 12AsTuRiEs!!
n175=  say 2,2.............8,8...2,2.............
n176=  say 2,2.............................
n177=
n178=}
n179=
n180=; Bandera Mexico
n181=
n182=mejico {
n183=  say 3,3...ME...0,0....XI....4,4...CO...
n184=  say 3,3...0ME3...0,0....1XI0....4,4...0CO4...
n185=  say 3,3...ME...0,0....XI....4,4...CO...
n186=}
n187=
n188=
n189=; Castilla Leon
n190=
n191=casti.leon {
n192=  say 15,15********4,4********
n193=  say 15,15********4,4********   12Castilla
n194=  say 4,4********15,15********   12León
n195=  say 4,4********15,15********  
n196=
n197=}
n198=
n199=; Bandera Cantabria
n200=
n201=cantabria {
n202=  say 0,0*********************
n203=  say 0,0*********************  12CANTABRIA
n204=  say 4,4*********************   15CANTABRIA
n205=  say 4,4*********************  
n206=}
n207=
n208=; Bandera Extremadura
n209=
n210=extremadura {
n211=  say 3,3 .................................  
n212=  say    12 EXTREMADURA
n213=  say 1,1 .................................  
n214=}
n215=
n216=; Bandera Canaria
n217=
n218=canarias {
n219=  say 0,0*****11,11*****8,8*****
n220=  say 0,0*****11,11*****8,8***** 12 ¡¡CANARIAS!!
n221=  say 0,0*****11,11*****8,8*****
n222=}
n223=; Bandera Malagueña
n224=
n225=/malaga {
n226=  say 6,6...................3,3...................
n227=  say 6,6...................3,3...................
n228=  say 6,6...................3,3...................   ¡¡ 4M2A3L7A12G1A !!
n229=  say 6,6...................3,3...................
n230=  say 6,6...................3,3...................
n231=}
n232=
n233=; Bandera Galicia 
n234=
n235=galicia {
n236=  say 15,1512,15\\\\15,15****************
n237=  say 15,15***12,15\\\\15,15*************
n238=  say 15,15*******12,15\\\\15,15*********      12¡¡GALICIA!!
n239=  say 15,15***********12,15\\\\15,15*****
n240=  say 15,15**************12,15\\\\15,15**
n241=}
n242=
n243=; Bandera Rioja
n244=
n245=larioja {
n246=  say 4,4*********************
n247=  say 0,0*********************   12LA
n248=  say 3,3********************* 12RIOJA
n249=  say 8,8*********************
n250=
n251=}
n252=; Bandera USA
n253=
n254=/usa {
n255=  say 12,12*0*12*0*12*0*12*0*12*0*12*0* 4,4*******************
n256=  say 12,12*0*12*0*12*0*12*0*12*0*12*0* 0,0*******************  0,4 U 12,0nited
n257=  say 12,12*0*12*0*12*0*12*0*12*0*12*0* 4,4*******************       0,4 S 12,0tates  10of
n258=  say 0,0***************************** **     0,4 A 12,0merica
n259=  .timer 1 1 say 4,4***************************** **
n260=  .timer 1 2 say 0,0***************************** **
n261=}
n262=; Bandera Andaluza
n263=
n264=/andaluz {
n265=  say 3,3....ANDALUCÍA.....
n266=  say 0,0....3A1N3D1A3L1U3C1Í3A0,0.....
n267=  say 3,3....ANDALUCÍA.....
n268=}
n269=
n270=; Bandera Argentina
n271=
n272=/argentina {
n273=  say 11,11 ...........................  
n274=  say 0,0 ...........8Ø0.............   12    
n275=  say 11,11 ...........................   12 ARGENTINA !!
n276=}
n277=
n278=; Bandera UE
n279=
n280=/ue {
n281=  say 2,2******************8,2*2,2******************
n282=  say 2,2**********8,2*2,2**************8,2*2,2***********
n283=  say 2,2******8,2*2,2**********************8,2*2,2*******  8,2 U 4,0nión
n284=  say 2,2*****8,2*2,2************************8,2*2,2******
n285=  .timer 1 1 say 2,2******8,2*2,2**********************8,2*2,2*******   8,2 E 4,0uropea
n286=  .timer 1 2 say 2,2**********8,2*2,2**************8,2*2,2***********
n287=  .timer 1 3 say 2,2******************8,2*2,2******************
n288=}
n289=;detectar tios en menu pijadas==========================
n290=detect {
n291=  say 4  $me enciende el 0,3 detector de %ztemin  15,15.14,14.0,7 * ACME * 14,14.15,15.
n292=  say 0,1 :::14[]4°1,0----o  12BIP BIP BIP 
n293=  say 3 $me lo apunta hacia el canal # ... y comienza a detectar... 
n294=  .timer 1 3 say 3Scanning..... 0,1 :::14[]4°1,0----o0,0 7)))
n295=  .timer 1 6 say 3Scanning..... 0,1 :::14[]4°1,0----o0,0 7)))4))))
n296=  .timer 1 9 say 3Blanco localizado!!..... 
n297=  .timer 1 12 say 8,1D1,8A8,1N1,8G8,1E1,8R 15,15.14,14.9,1 $$1 14,14.15,15.8,1D1,8A8,1N1,8G8,1E1,8R  
n298=}
n299=;saludar===========================================
n300=
n301=
n302=
n303=;aliases para email ===================================
n304=;cierres de conexion por fallos de trasferencias..............................
n305=egeterrorclose {
n306=  if ($1 == email) { did -a email 12 $2- | sockclose egets }
n307=  else { did -a sendemail 11 $2- | sockclose esends } 
n308=}
n309=;open conex y envio de raws para obtencion de info.......................
n310=egetopen {
n311=  did -a email 12 *** Conexion aceptada por equipo remoto. Esperando respuesta......
n312=  ;identificandose como funder de cuenta...................................   
n313=  %lineemail = $did(email,15).sel
n314=  inc %lineemail 3  
n315=  %lineemail = $read -l $+ %lineemail $mircdirsistema\txts\emails.txt
n316=  sockwrite -tn $$1 user $dataemail(%lineemail,user) 
n317=  sockwrite -tn $$1 pass $dataemail(%lineemail,pass)  
n318=  ;visualizando estado de cuenta............................................ 
n319=  sockwrite -tn $$1 stat
n320=
n321=}
n322=;iniciando y finalizando conexion de email=================
n323=egetiniconex {
n324=  sockclose egets | did -r email 12 | did -r email 3 
n325=  sockopen egets $dataemail($did(email,15).text,pop) 110
n326=}
n327=egetendconex { sockclose egets | did -r email 12 |  did -r email 3 }
n328=;envio de info para listar e-mails recibidos=================
n329=egetlist {
n330=  :ini
n331=  inc %n 
n332=  if (%n > $1) { unset %n }
n333=  else { sockwrite -tn $2 retr %n | goto ini }  
n334=}
n335=;enviando email.....................................
n336=socksendemails {
n337=  sockwrite -tn esends mail from: $did(sendemail,5).text
n338=  sockwrite -tn esends rcpt to: $did(sendemail,6).text
n339=  sockwrite -tn esends data  
n340=  sockwrite -tn esends Subject: $did(sendemail,7)
n341=  sockwrite -tn esends To: $did(sendemail,6).text
n342=  sockwrite -tn esends From: $dataemail($did(sendemail,5).text,name)
n343=  sockwrite -tn esends Subject: $did(sendemail,7)
n344=  sockwrite -tn esends x-mailer: OrioN-ScripT-email http://irc.OrioN.cjb.net  
n345=  %j = 0
n346=  :ini3
n347=  inc %j
n348=  if (%j > $did(sendemail,9).lines) { unset %j | sockwrite -tn esends . }
n349=  else { sockwrite -tn esends $did(sendemail,9,%j).text | goto ini3 }
n350=}
n351=;cargando dialog sobre dialog en emails==================
n352=opendsendemail { 
n353=  if ($1 != $null) { %u = $1 }
n354=  .timer -m 1 100 dialog -m sendemail sendemail 
n355=}
n356=;cargando emails====================================
n357=loademails {
n358=  if ($1 == 1) {
n359=    %x = 3 
n360=    :ini 
n361=    inc %x
n362=    if (!$read -l $+ %x $mircdirsistema\txts\emails.txt) { unset %x }
n363=    else { 
n364=      %lineemail = $read -l $+ %x $mircdirsistema\txts\emails.txt
n365=      did -a email 15 $dataemail(%lineemail,name) 
n366=      goto ini 
n367=    }  
n368=  }
n369=  if ($1 == 2) {
n370=    %x = 3
n371=    :ini
n372=    inc %x
n373=    if ($read -l $+ %x $mircdirsistema\txts\direcemails.txt != $null) { 
n374=      did -a sendemail 6 $read -l $+ %x $mircdirsistema\txts\direcemails.txt
n375=      goto ini   
n376=    }
n377=    else {
n378=      %x = 3 
n379=      :ini2 
n380=      inc %x
n381=      if ($read -l $+ %x $mircdirsistema\txts\emails.txt == $null) || ($len($read -l $+ %x $mircdirsistema\txts\emails.txt) == $null) { unset %x }
n382=      else { 
n383=        %lineemail = $read -l $+ %x $mircdirsistema\txts\emails.txt
n384=        did -a sendemail 5 $dataemail(%lineemail,dire) 
n385=        goto ini2 
n386=      }  
n387=    }  
n388=  }  
n389=}
n390=
n391=;finalizando trasescritura en emai========================
n392=endmail {
n393=  did -a email 3  De: %egetsubjdir " $+ %egetname $+ " < $+ %aboutemail $+ >
n394=  did -a email 12 *** Trasmision completada de email....   
n395=  did -c email 3 $did(email,3).lines | did -c email 12 $did(email,12).lines
n396=  write %emailfile XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX Fin del contenido.
n397=  write %emailfile Datos del email.===================
n398=  write %emailfile Autor: %egetname  < $+ %egetidfrom $+ >
n399=  write %emailfile Enviado desde: %egetsubjdir    
n400=  write %emailfile Para: %egetsubjdir2  
n401=  write %emailfile Fecha del envio: %egetdate  
n402=  write %emailfile Titulo/asunto: %aboutemail
n403=  unset %egetsubj2  %egetsubjdir2  %egetsubjdir %egetname %aboutemail %egetdate %emailfile %egetidfrom
n404=  .disable #txtemail 
n405=}
n406=
n407=;creando file para email trascipcion======================
n408=createfilemail {
n409=  %emailfile = $mircdiremails\ 
n410=  %emailfile = %emailfile $+ $1
n411=  %emailfile = %emailfile $+ .txt
n412=}
n413=;recordando log sacando en privado=====================
n414=revlog {  
n415=  %t = $logdir $+ $1 $+ .log  
n416=  %tl = $lines(%t) 
n417=  if (%tl > 4) {   
n418=    if (%autolistlog != n) {
n419=      if (%autolistlog == q) { %listwin = $1 }
n420=      if (%autolistlog == w) { %listwin = @AutoListLog |  window @AutoListLog 505 253 290 300 }
n421=      %l = 1  
n422=      %pl = $calc(%tl - %autolistloglines - 2) 
n423=      while (%tl > %l) {  
n424=        if (%l > %pl) && ($read(%t,%l)) {     
n425=          if ($window(@AutoListLog)) { echo %listwin $read(%t,%l) } 
n426=          else { echo -g $1 $strip($read(%t,%l)) } 
n427=        } 
n428=        inc %l     
n429=      }
n430=      echo -g %listwin 14Fin del recordatorio de log ( $+ $1 $+ ) L( $+ $lines(%t) $+ ) T( $+ $int($calc($file(%t).size / 1024)) $+ k)
n431=      echo -g %listwin $oriontheme(sSeparadorLine)            
n432=      unset %t %l %listwin %pl %tl  
n433=    }
n434=  }
n435=}
n436=;hacer operativo el infoscript del whois===================
n437=infoscript {
n438=  if (orion isin $1) { informo El usuario $did(whois,3).text esta usando el scritp mas potente en la actualidad (OrioN-ScripT). Puedes conseguir mas información y actualizaciones en: www.ircOrioN.net   }
n439=  if (x-cript isin $1) { informo El usuario $did(whois,3).text esta usando uno de los mejores scripts sin duda alguna.  }
n440=  if (ircap isin $1) { informo El usuario $did(whois,3).text esta usando uno de los scripts mas usados.   }
n441=  if (mesias isin $1) { informo El usuario $did(whois,3).text esta usando un script plagio del x-cript, del que incorpora todo el codigo. La web del original es: http://pagina.de/xcript  }
n442=}
n443=
n444=;puerto predefinido por usuario===================================
n445=otro { set %s.port  $$?="Que puerto escaneo?" | scanon }
n446=barridoscan {
n447=  if ($did(scan,27).lines == 500) { did -r scan 27 }
n448=  if ($len(%s.port) == 1) { did -a scan 27 %s.port $+ $str(*,12) }
n449=  if ($len(%s.port) == 2) { did -a scan 27 %s.port $+ $str(*,10) }
n450=  if ($len(%s.port) == 3) { did -a scan 27 %s.port $+ $str(*,9) }
n451=  if ($len(%s.port) == 4) { did -a scan 27 %s.port $+ $str(*,7) }
n452=  if ($len(%s.port) == 5) { did -a scan 27 %s.port $+ $str(*,5) }
n453=  if ($len(%s.port) == 6) { did -a scan 27 %s.port $+ $str(*,4) }
n454=  if ($len(%s.port) == 7) { did -a scan 27 %s.port $+ $str(*,2) }
n455=  if ($len(%s.port) == 8) { did -a scan 27 %s.port $+ $str(*,1) }
n456=  inc %s.port  
n457=  set %s.ip $did(scan,10).text
n458=  set %s.nameg allports $+ %s.port
n459=  .sockopen %s.nameg %s.ip %s.port 
n460=}
n461=;respuestas a dialog..................................
n462=scanc4 { 
n463=  if ($window(@ScaN_Canal-Nicks)) {
n464=    aline @ScaN_Canal-Nicks 15,2 $1 0,4 CERRADO 11( $+ $2 $+ ) 9,99 
n465=  }
n466=  if ($dialog(scancanal)) {
n467=    did -a scancanal 2 Scan : Nick( $+ $ial(*!*@* $+ $1,1).nick $+ ) - IP( $+ $1 $+ ) - Puerto( $+ %s.port = $2 $+ ) : CERRADO  
n468=  } 
n469=  if ($dialog(scan)) { 
n470=    did -a scan 26 Puerto: %s.port :( %s.name ): CERRADO 
n471=    .timermoveicon* off | did -e scan 10 | did -e scan 11 
n472=  }
n473=}
n474=scana4 { 
n475=  if ($window(@ScaN_Canal-Nicks)) {
n476=    aline @ScaN_Canal-Nicks 15,2 $1 0,4 ABIERTO 11( $+ $2 $+ ) 9,99 
n477=    aline @ScaN_Canal-Nicks 15Se intentara un who a la ip (ver status).
n478=    who $1  
n479=  }
n480=  if ($dialog(scancanal)) {
n481=    did -a scancanal 2 Scan : Nick( $+ $ial(*!*@* $+ $1,1).nick $+ ) - IP( $+ $1 $+ ) - Puerto( $+ %s.port = $2 $+ ) : ABIERTO  
n482=  } 
n483=  if ($dialog(scan)) { 
n484=    did -a scan 26 Puerto: %s.port :( %s.name ): ABIERTO 
n485=    .timermoveicon* off  | did -e scan 10 | did -e scan 11 
n486=  }
n487=}
n488=
n489=
n490=;corrector de smyles===================================
n491=loadcorsmyles { 
n492=  set %x 0
n493=  :ini 
n494=  inc %x 
n495=  set %atxtcorsmyles $read -l $+ %x $mircdirsistema\txts\corsmyles.txt
n496=  if (%atxtcorsmyles != $null) {
n497=    set %atxtcorsmyles2 $gettok(%atxtcorsmyles,2,61)
n498=    set %atxtcorsmyles $gettok(%atxtcorsmyles,1,61)
n499=    if (%atxtcorsmyles isin $1) && ($findtok($1,%atxtcorsmyles,0,32) == 1) { 
n500=      return $replace($1,%atxtcorsmyles,%atxtcorsmyles2) 
n501=      unset %atxtcorsmyles %atxtcorsmyles2 %x | halt 
n502=    }
n503=    else { goto ini }
n504=  }
n505=  unset %atxtcorsmyles %atxtcorsmyles2 %x 
n506=  haltdef
n507=}
n508=
n509=;corrector de palabras================================
n510=loadcorwords { 
n511=  set %x 0
n512=  :ini 
n513=  inc %x 
n514=  set %atxtcorwords $read -l $+ %x $mircdirsistema\txts\corwords.txt
n515=  if (%atxtcorwords) {
n516=    set %atxtcorwords2 $gettok(%atxtcorwords,2,61)
n517=    set %atxtcorwords $gettok(%atxtcorwords,1,61)
n518=    if (%atxtcorwords isin $1) && ($findtok($1,%atxtcorwords,0,32) == 1) { return $replace($1,%atxtcorwords,%atxtcorwords2) | unset %atxtcorwords %atxtcorwords2 %x  }
n519=    else { goto ini }
n520=  }
n521=  unset %atxtcorwords %atxtcorwords2  %x 
n522=}
n523=
n524=;corrector de nicks en canales========================
n525=loadcn {
n526=  if ($chr(35) isin $2) {   
n527=    %n = 1 | %w = 1
n528=    while ($nick($2,%n)) {
n529=      if (%sigcornicks isin $1) { %w = $left($nick($2,%n),%nºlcornicks) }   
n530=      if ($nick($2,%n) isin $1) && ($findtok($1,$nick($2,%n),0,32) == 1) || (%w isin $1) {
n531=        %cnp =  $nick($2,%n)    
n532=        %formatncp3 = $read -l $+ %formatncp2 $mircdirsistema\txts\fncp.txt 
n533=        if (%w != 1) { return $replace($1,%w $+ %sigcornicks,%formatncp3)  }
n534=        else { return $replace($1,%cnp,%formatncp3)  }  
n535=      }
n536=      inc %n
n537=    }
n538=  }
n539=  %cnp = Nick
n540=  unset %n %formatncp3 %w
n541=  else { return $null }
n542=}
n543=
n544=;identificador devolucion del SO que usa el usuario
n545=;$1 pasamos $os sistema operativo
n546=;$2 pasamos tipo de devolucion texto o numero 
n547=returnso {
n548=  if ($1 == XP) { 
n549=    if ($2 == num) { return 2 }
n550=    if ($2 == txt) { return $os }
n551=  }
n552=  else {
n553=    if ($2 == num) { return 1 }
n554=    if ($2 == num) { return $os }
n555=  }
n556=}