[script]
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=;setup
n14=on 1:dialog:setup:init:*: {
n15=  sorion intro | inicdll 
n16=  dll $dllmdx SetDialog $dname style title border sysmenu minbox
n17=  dll $dllmdx SetControlMDX $dname 4 listview autoarrange labeltip flatsb icon showsel single sortascending > $dllviews
n18=  did -i $dname 4 1 headertext Nombre
n19=  dll $dllmdx SetBorderStyle $dname 4 none    
n20=  did -i $dname 4 1 setbkg color $rgb(62,62,87)
n21=  did -i $dname 4 1 settxt bgcolor $rgb(62,62,87)
n22=  did -i $dname 4 1 settxt color $rgb(255,255,255)
n23=  dll $dllmdx SetBorderStyle $dname 5 none   
n24=  dll $dllmdx SetColor $dname 5 background $rgb(76,76,99)  
n25=  dll $dllmdx SetFont $dname 5 12 700 arial
n26=  dll $dllmdx SetColor $dname 5 textbg $rgb(76,76,99)
n27=  dll $dllmdx SetColor $dname 5 text $rgb(204,204,211)  
n28=  dialog -t setup OrioN Setup [Directorio ( $+ %setup $+ ) $+ ] Configuración...
n29=  setupseeico %setup
n30=}
n31=
n32=on 1:dialog:setup:sclick:4: { 
n33=  if ($did($dname,$did).sel) { did -ra setup 5 $gettok($read(sistema\setup\setup $+ $returnso($os,num) $+ .txt,w,setupinfo $+ %setup $+ $did($dname,$did).sel $+ =*),2,61)  }
n34=}
n35=
n36=on 1:dialog:setup:dclick:4: {
n37=  if (%setup) { $gettok($read(sistema\setup\setup $+ $returnso($os,num) $+ .txt,w,setupcom $+ %setup $+ $did($dname,$did).sel $+ =*),2,61) }
n38=  else { 
n39=    %setup = $gettok($read(sistema\setup\setup $+ $returnso($os,num) $+ .txt,w,setupcom $+ %setup $+ $did($dname,$did).sel $+ =*),2,61)   
n40=    .timer -m 1 100 dialog -x setup 
n41=    .timer -m 1 200 dialog -m setup setup 
n42=  }
n43=}
n44=
n45=on 1:dialog:setup:sclick:10: { unset %setup }
n46=
n47=;anti spam
n48=on 1:dialog:antispam:sclick:7:{ spamactregf add | sorion click } 
n49=on 1:dialog:antispam:sclick:8:{ spamactregf del | sorion cancel }
n50=on 1:dialog:antispam:sclick:9:{ informo Proteccion anti-SpaM $crlf $+ ------------------------------------------------------- $crlf $+ La protección anti SpaM evita la visualizacion de publicidad (spam), también puedes sacarle provecho y evitar cualquier otro tipo de mensaje indeseable, tales como insultos, palabras de mal gusto, marcas, equipos de futbol que no te gustan, etc. $crlf $+ Si lo deseas puedes especificar una mascara para que el chekeo sea mas generalizado.  }
n51=on 1:dialog:antispam:init:*:{ 
n52=  sorion intro | spamopcd 
n53=  inicdll  | dll $dllmdx SetColor $dname 6 background $rgb(62,62,102)   | dll $dllmdx SetFont $dname 6 12 700 arial | dll $dllmdx SetColor $dname 6 textbg $rgb(62,62,102) | dll $dllmdx SetColor $dname 6 text $rgb(204,204,211)  
n54=  if (%verspaminfotxt) { did -c antispam 101 }
n55=} 
n56=on 1:dialog:antispam:sclick:11:{ spamactregd boton $did chekeo spamck1 on } 
n57=on 1:dialog:antispam:sclick:12:{ spamactregd boton $did chekeo spamck2 on } 
n58=on 1:dialog:antispam:sclick:13:{ spamactregd boton $did chekeo spamck3 on } 
n59=on 1:dialog:antispam:sclick:15:{ spamactregd boton $did chekeo spamck4 on } 
n60=on 1:dialog:antispam:sclick:16:{ spamactregd boton $did chekeo spamck5 on } 
n61=on 1:dialog:antispam:sclick:17:{ spamactregd boton $did chekeo spamck6 on }
n62=on 1:dialog:antispam:sclick:19:{ spamactregd boton $did ofensiva spamof1 on } 
n63=on 1:dialog:antispam:sclick:20:{ spamactregd boton $did ofensiva spamof2 on } 
n64=on 1:dialog:antispam:sclick:21:{ spamactregd boton $did ofensiva spamof3 on } 
n65=on 1:dialog:antispam:sclick:22:{ spamactregd boton $did ofensiva spamof4 on } 
n66=on 1:dialog:antispam:edit:23:{ spamactregd edit $did ofensiva spamofe $did(antispam,$did).text } 
n67=on 1:dialog:antispam:sclick:5:{ spamactregd boton $did spam spamed on } 
n68=on 1:dialog:antispam:sclick:27:{ informo Escribe los canales (con #, y separados por comas) en los que deseas que la protección anti-SpaM chekee, procese ataques. Si deseas que lo haga en todos los canales, basta con que escribas solo un caracter (#). } 
n69=on 1:dialog:antispam:edit:25:{
n70=  if ($did(antispam,$did).text) { %spamcanals = $did(antispam,$did).text }
n71=  else { %spamcanals = $chr(35) }
n72=}
n73=on 1:dialog:antispam:sclick:1:{ sorion ok }
n74=on 1:dialog:antispam:sclick:101:{  
n75=  if ($did(antispam,$did).state == 1) { %verspaminfotxt = on }
n76=  else { unset %verspaminfotxt }
n77=}
n78=;colorea nicks
n79=on 1:dialog:coloreanicks:edit:*:{ 
n80=  if ($did(coloreanicks,$did)) { 
n81=    if ($did == 4) { %coloreanicks2d = $did(coloreanicks,$did).text }
n82=    if ($did == 6) { %coloreanicks2i = $did(coloreanicks,$did).text }
n83=    if ($did == 7) { %coloreanicks1d = $did(coloreanicks,$did).text }
n84=    if ($did == 9) { %coloreanicks1i = $did(coloreanicks,$did).text }
n85=  } 
n86=  echo -s Nicks del resto: %coloreanicks1d $+ Nick $+ %coloreanicks1i    -      Mi nick: %coloreanicks2d $+ Nick $+ %coloreanicks2i
n87=} 
n88=
n89=on 1:dialog:coloreanicks:init:*:{
n90=  sorion intro  
n91=  did -a coloreanicks 4 %coloreanicks2d
n92=  did -a coloreanicks 6 %coloreanicks2i
n93=  did -a coloreanicks 7 %coloreanicks1d
n94=  did -a coloreanicks 9 %coloreanicks1i
n95=}
n96=on 1:dialog:coloreanicks:sclick:2:{ informo COLORACIÓN de nicks en: canal y privado $CRLF $+ -------------------------------------------------------------------------------- $CRLF $+ Esta utilidad sirve para formatear o filtrar los nicks cuando son visualizados en las ventanas de canal y privado, dandoles así un toque personal en cuanto a color y caracteres. $crlf $+ No edite estas opciones si no esta familiarizado con los "controles de colores". Si no es así le recominedo que heche un vistazo a algun manual sobre el tema, o puede recurrir al mirc.hlp, alli encotrara información suficiente. $crlf $crlf $+ Breve información $crlf $+ 1.- ctrl + k: Seleccion de color. $crlf $+ 2.- ctrl + b: Establecer Negrita. $crlf $+ 3.- ctrl + u Realizar subrayado.  $crlf $+ Condicion de uso $crlf $+ 1.- Para concluir en el extremo izquierdo debe cerrar los controles de color (ctrl + k1), ademas de quitar el subrayado y la negrita }
n97=on 1:dialog:coloreanicks:sclick:1:{ sorion ok }
n98=
n99=;scancanal
n100=on 1:dialog:scancanal:sclick:5:{ 
n101=  sorion whois  
n102=  if (!$did($dname,3).text) { informo Debes escribir el canal (con #), en el cuadro de edición de la parte inferior. Luego pulsa sobre el link del tema que quieres scanear. }
n103=  else { 
n104=    did -ra scancanal 2 Scan [Usuarios]: $did($dname,3).text (Espere por favor)...
n105=    did -a scancanal 2 -    
n106=    %scancanal = on 
n107=    who $did($dname,3).text 
n108=  }
n109=}
n110=on 1:dialog:scancanal:sclick:6:{
n111=  sorion whois 
n112=  if ($me !ison $did($dname,3).text) { informo Debes escribir el canal (con #). Para poder ver esta información has de estar dentro del canal (debido a IAL lista de actualización interna de mIRC), luego ya puedes procesar el scan. } 
n113=  else {
n114=    did -ra scancanal 2 Scan [Operadores]: $did($dname,3).text ...
n115=    did -a scancanal 2 -        
n116=    %t = 1
n117=    while ($nick($did(scancanal,3).text,%t,o)) {
n118=      did -a scancanal 2 Operador( $+ %t $+ ) : $nick($did($dname,3).text,%t,o)
n119=      inc %t    
n120=    }
n121=    did -a scancanal 2 - | did -a scancanal 2 Total de operadores: $calc(%t - 1)  
n122=    unset %t
n123=  }
n124=}
n125=on 1:dialog:scancanal:sclick:7:{
n126=  sorion whois 
n127=  if ($me !ison $did($dname,3).text) { informo Debes escribir el canal (con #). Para poder ver esta información has de estar dentro del canal (debido a IAL lista de actualización interna de mIRC), luego ya puedes procesar el scan. } 
n128=  else {
n129=    did -ra scancanal 2 Scan [Voices]: $did($dname,3).text ...
n130=    did -a scancanal 2 -        
n131=    %t = 1
n132=    while ($nick($did(scancanal,3).text,%t,v)) {
n133=      did -a scancanal 2 Voice( $+ %t $+ ) : $nick($did($dname,3).text,%t,v)
n134=      inc %t    
n135=    }
n136=    did -a scancanal 2 - | did -a scancanal 2 Total de Voices: $calc(%t - 1)  
n137=    unset %t
n138=  }
n139=}
n140=on 1:dialog:scancanal:sclick:8:{
n141=  sorion whois 
n142=  if ($me !ison $did($dname,3).text) { informo Debes escribir el canal (con #). Para poder ver esta información has de estar dentro del canal (debido a IAL lista de actualización interna de mIRC), luego ya puedes procesar el scan. } 
n143=  else {
n144=    did -ra scancanal 2 Scan [Regulares]: $did($dname,3).text ...
n145=    did -a scancanal 2 -        
n146=    %t = 1
n147=    while ($nick($did(scancanal,3).text,%t,r)) {
n148=      did -a scancanal 2 Regular( $+ %t $+ ) : $nick($did($dname,3).text,%t,r)
n149=      inc %t    
n150=    }
n151=    did -a scancanal 2 - | did -a scancanal 2 Total de Regulares: $calc(%t - 1)  
n152=    unset %t
n153=  }
n154=}
n155=on 1:dialog:scancanal:sclick:9:{
n156=  sorion whois
n157=  if ($me !ison $did($dname,3).text) { informo Debes escribir el canal (con #).Para poder ver esta información has de estar dentro del canal (debido a IAL lista de actualización interna de mIRC), luego ya puedes procesar el scan. } 
n158=  else {
n159=    did -ra scancanal 2 Scan [Porcentajes]: $did($dname,3).text ...
n160=    did -a scancanal 2 -        
n161=    did -a scancanal 2 Operadores( $+ $nick($did($dname,3).text,0,o) $+ ) : $gettok($calc($calc($nick($did($dname,3).text,0,o) * 100 / $nick($did($dname,3).text,0))),1,46) $+ %
n162=    did -a scancanal 2 Voices( $+ $nick($did($dname,3).text,0,v) $+ ) : $gettok($calc($calc($nick($did($dname,3).text,0,v) * 100 / $nick($did($dname,3).text,0))),1,46) $+ %
n163=    did -a scancanal 2 Regulares( $+ $nick($did($dname,3).text,0,r) $+ ) : $gettok($calc($calc($nick($did($dname,3).text,0,r) * 100 / $nick($did($dname,3).text,0))),1,46) $+ %
n164=    did -a scancanal 2 -     
n165=    did -a scancanal 2 Total( $+ $nick($did($dname,3).text,0) $+ ) : $gettok($calc($calc($nick($did($dname,3).text,0) * 100 / $nick($did($dname,3).text,0))),1,46) $+ %
n166=  }
n167=}
n168=on 1:dialog:scancanal:sclick:11:{
n169=  sorion whois 
n170=  if ($me !ison $did($dname,3).text) { informo Debes escribir el canal (con #).Para poder ver esta información has de estar dentro del canal (debido a IAL lista de actualización interna de mIRC), luego ya puedes procesar el scan. } 
n171=  else {
n172=    did -ra scancanal 2 Scan [Clones]: $did($dname,3).text ...
n173=    did -a scancanal 2 -        
n174=    scanclonescanal $did($dname,3).text did -a scancanal 2 
n175=  }
n176=}
n177=on 1:dialog:scancanal:sclick:14:{
n178=  sorion whois
n179=  did -ra scancanal 2 Scan [Puertos]: $did($dname,3).text ... 
n180=  did -a scancanal 2 Scan procesando puertos de usuarios ( $+ $nick($did($dname,3).text,0) $+ ) : $did($dname,3).text  
n181=  did -a scancanal 2 Espere por favor. Tiempo estimado : $calc(110 + %lag) $+ seg  + Lag de cada usuario. 
n182=  did -a scancanal 2 -   
n183=  .timer 1 1 scan#n win-95(netbios) 139 $did($dname,3).text
n184=  .timer 1 10 scan#n win-nt 135 $did($dname,3).text
n185=  .timer 1 20 scan#n win-gate 1080 $did($dname,3).text
n186=  .timer 1 30 scan#n netbus 12345 $did($dname,3).text
n187=  .timer 1 40 scan#n bo 31337 $did($dname,3).text
n188=  .timer 1 50 scan#n finger 79 $did($dname,3).text
n189=  .timer 1 60 scan#n telnet 23 $did($dname,3).text
n190=  .timer 1 70 scan#n ident 113 $did($dname,3).text
n191=  .timer 1 80 scan#n ftp 21 $did($dname,3).text
n192=  .timer 1 90 scan#n http 80 $did($dname,3).text
n193=  .timer 1 100 scan#n dcc 59 $did($dname,3).text
n194=  .timer 1 110 scan#n subseven 27374 $did($dname,3).text
n195=}
n196=
n197=on 1:dialog:scancanal:sclick:10:{
n198=  sorion whois 
n199=  if ($me !ison $did($dname,3).text) { informo Debes escribir el canal (con #).Para poder ver esta información has de estar dentro del canal (debido a IAL lista de actualización interna de mIRC), luego ya puedes procesar el scan. } 
n200=  else {
n201=    did -ra scancanal 2 Scan [IRCops]: $did($dname,3).text ...
n202=    did -a scancanal 2 -        
n203=    %s = 1
n204=    if (!$address($nick($did($dname,3).text,%s),5)) { 
n205=      who $did($dname,3).text 
n206=      did -a scancanal 2 IAL (lista interna de direcciones) no actualizada: $did($dname,3).text
n207=      did -a scancanal 2 Se procesara un who al canal para actualizar IAL (ver status). 
n208=      did -a scancanal 2 Cuando finalice el who, pulse de nuevo el scan de IRCops para ver resultados.
n209=    }
n210=    while ($nick($did($dname,3).text,%s)) {
n211=      if (oper isin $address($nick($did($dname,3).text,%s),4)) { did -a scancanal 2 IRCop( $+ $calc($did(scancanal,2).lines - 1) $+ ) : $gettok($address($nick($did($dname,3).text,%s),5),1,33) = $address($nick($did($dname,3).text,%s),3) }
n212=      inc %s
n213=    }
n214=  }
n215=}
n216=on 1:dialog:scancanal:sclick:2:{ .timer 1 1 did -z scancanal 2 } 
n217=
n218=on 1:dialog:scancanal:sclick:20:{
n219=  sorion espera 
n220=  if (!$did(scancanal,2).sel) { informo Seleccione antes las linéas a mostrar. Es posible que seleccione mas de una línea. Si desea seleccionar líneas salteadas puede usar la tecla ctrl, manteniendola pulsada.  }  
n221=  %s = 1
n222=  while (%s <= $did(scancanal,2,0).sel) {
n223=    if ($len($did(scancanal,2,$did(scancanal,2,%s).sel).text) > 1) { msg %winactive $did(scancanal,2,$did(scancanal,2,%s).sel).text }
n224=    inc %s
n225=  }
n226=}
n227=on 1:dialog:scancanal:sclick:1:{ sorion ok }
n228=on 1:dialog:scancanal:init:*:{ 
n229=  sorion intro 
n230=  inicdll  |  dll $dllmdx SetBorderStyle $dname 2 none | dll $dllmdx SetColor $dname 2 background $rgb(62,62,102)   | dll $dllmdx SetFont $dname 2 12 700 arial | dll $dllmdx SetColor $dname 2 textbg $rgb(62,62,102) | dll $dllmdx SetColor $dname 2 text $rgb(204,204,211)  
n231=}
n232=
n233=;google
n234=on 1:dialog:google:init:*:{ did -t google 10 }
n235=on 1:dialog:google:sclick:10: { 
n236=  echo -s  run http://www.google.com/search?as_q= $+ $replace($did(google,3).text,$chr(32),+) $+ &num= $+ %resultados.buskeda $+ &btnG=B%FAsqueda+en+Google&as_epq=&as_oq=&as_eq=&lr= $+ %idioma.buskeda $+ &as__qdr=all&as_occt=any&as_dt=i&as_sitesearch= 
n237=  run http://www.google.com/search?as_q= $+ $replace($did(google,3).text,$chr(32),+) $+ &num= $+ %resultados.buskeda $+ &btnG=B%FAsqueda+en+Google&as_epq=&as_oq=&as_eq=&lr= $+ %idioma.buskeda $+ &as__qdr=all&as_occt=any&as_dt=i&as_sitesearch= 
n238=  most-busk-stat
n239=  inc %n.buskedas
n240=}
n241=on 1:dialog:google:edit:3: { %palabra.buskeda = $did(3).text }
n242=on 1:dialog:google:sclick:5: { set %mostrar.idioma Todos }
n243=on 1:dialog:google:sclick:6: { 
n244=  set %idioma.buskeda lang_es 
n245=  set %mostrar.idioma Español
n246=}
n247=on 1:dialog:google:edit:8: { %resultados.buskeda = $did(8).text }
n248=on 1:dialog:google:sclick:9: { informo Escribe la palabra a buscar en el mayor buscador del mundo, selecciona el idioma de la busqueda, y por ultimo el numero maximo de resultados. Para proceder a la busqueda, pulse el boton buscar. }
n249=
n250=;acercade
n251=on 1:dialog:acercade:init:*: { 
n252=  sorion intro | inicdll 
n253=  dll $dllmdx SetDialog $dname style border 
n254=  dll $dllmdx SetBorderStyle $dname 16 none | dll $dllmdx SetColor $dname 16 background $rgb(62,62,102)   | dll $dllmdx SetFont $dname 16 12 700 arial | dll $dllmdx SetColor $dname 16 textbg $rgb(62,62,102) | dll $dllmdx SetColor $dname 16 text $rgb(204,204,211)  
n255=  dll $dllmdx SetBorderStyle $dname 6 none | dll $dllmdx SetColor $dname 6 background $rgb(62,62,87)  | dll $dllmdx SetFont $dname 6 13 700 arial | dll $dllmdx SetColor $dname 6 textbg $rgb(62,62,87) | dll $dllmdx SetColor $dname 6 text $rgb(204,204,211)  
n256=  did -a acercade 16 ------------------------[ Creditos o agradecimientos ]-----------------------------
n257=  did -a acercade 16        Solo presentes personas relacionadas con OrioN ScripT.
n258=  did -a acercade 16 ===========================================================
n259=  did -a acercade 16 Han colaborado: 
n260=  did -a acercade 16 MoAsT: Redes/servidores, codigo y colaboración. 
n261=  did -a acercade 16 c0y0t3: Skins, secciones web: www.ircorion.net
n262=  did -a acercade 16 sel: AgendaURL, aplicación google, SelKick, retoque dialogs. 
n263=  did -a acercade 16 The_Evil: Nicks completions y maqueado de theme base.
n264=  did -a acercade 16 Macclaine: Graficos, imagen BOT, publicidad, colaboración.
n265=  did -a acercade 16 EdyDJ: Elaboración informatica de sonidos OrioN5.
n266=  did -a acercade 16 Loco_Bob: Baners, publicidad, colaboración.
n267=  did -a acercade 16 Adaroth: Recopilación de iconos. 
n268=  did -a acercade 16 Texis: Textos varios; piropos, frases, poesias, chistes, etc.
n269=  did -a acercade 16 Minthor: Secciones del web www.ircorion.net, colaboración.
n270=  did -a acercade 16 GreyCloud: Ideas y colaboración.
n271=  did -a acercade 16 Aktinos: Telnet exclusivo para OrioN ScripT. 
n272=  did -a acercade 16 Black_Ice: Setup de instalación.
n273=  did -a acercade 16 ipy: Patrocinio de OrioN ScripT en www.ayuda-internet.net
n274=  did -a acercade 16 Tempest: Marcos y colaboración en AntiPlagios.
n275=  did -a acercade 16 Betatesters: Moast,sel,Greycloud,c0y0t3,Macclaine,The_Evil.
n276=  did -a acercade 16 yolty: Colaboración y testeo.
n277=  did -a acercade 16 ABoR: Mirrors de descarga, y programador en ircorion.net 
n278=  did -a acercade 16 EsSeMaKi: Actualización/testeo addon OrioNHelp,Oper,etc.
n279=  did -a acercade 16 {-GkEx-}: fondos en web y oper de help en #orion_script
n280=  did -a acercade 16 _TeK_: Colaboración, baners, oper help en #orion_script
n281=  did -a acercade 16 ^[Stan]^: Oper help en #orion_script
n282=  did -a acercade 16 {HadocK},yolty,{Durthu}: Mis mejores amigos.
n283=
n284=  did -a acercade 16 Establecimiento: MaciRock-ciber internet (Asturias).
n285=  did -a acercade 16 Patrocinio de web: www.ayuda-internet.net
n286=  did -a acercade 16 Mi madre y hermana mayor.
n287=  did -a acercade 16 A mi abuelo, que me compro el ordenador XD. 
n288=  did -a acercade 16 Edu, Vicente, Silvia, MachineH: De clase.
n289=  did -a acercade 16 Hugo, Edy, Pili, Luis: Profesores de informatica.
n290=  did -a acercade 16 #orion_script: Usuarios por su disposición al OrioN.
n291=  did -a acercade 16 #ayuda_internet: El mejor canal de ayuda en todo el IRC.
n292=  did -a acercade 16 tabo: FTP.
n293=  did -a acercade 16 [\AxMan\]: Calculador LCD.
n294=  did -a acercade 16 WinBNC: Bouncer.
n295=  did -a acercade 16 hpm: SMS.
n296=  did -a acercade 16 TRaFuGa: Por el trafugames.
n297=  did -a acercade 16 Khaled Mardam-Bey: mIRC-Cliente de IRC soporte OrioN.
n298=  did -a acercade 16 Y en especial: A todos los usuarios de OrioN ScripT.
n299=  if (%iniacercade) { did -c acercade 23 }
n300=}
n301=on 1:dialog:acercade:sclick:23: { 
n302=  if (%iniacercade) { unset %iniacercade }
n303=  else { %iniacercade = on  }
n304=}
n305=on 1:dialog:acercade:sclick:10: { sorion espera | runer net www.ircorion.net }
n306=on 1:dialog:acercade:sclick:11: {  sorion espera | runer email script@ircorion.net }
n307=on 1:dialog:acercade:sclick:12: {  sorion espera | runer email quasi@ircorion.net }
n308=on 1:dialog:acercade:sclick:19: {  sorion espera | runer net www.ayuda-internet.net }
n309=on 1:dialog:acercade:sclick:1: { sorion ok }
n310=; orionsound 
n311=on 1:dialog:orionsound:init:*:{
n312=  sorion intro
n313=  if (%nowavsysscript  == on) { did -c orionsound 420 }
n314=  did -a orionsound 6 Al conectar (server) 
n315=  did -a orionsound 6 Al ser desconectado
n316=  did -a orionsound 6 Al entrar a canal (join) 
n317=  did -a orionsound 6 Al salir de canal (part)
n318=  did -a orionsound 6 Al recibir la @ (op)
n319=  did -a orionsound 6 Al perder la @ (deop)
n320=  did -a orionsound 6 Al recibir + (voz)
n321=  did -a orionsound 6 Al perder + (devoz)
n322=  did -a orionsound 6 Al ser nombrado (nick)
n323=  did -a orionsound 6 Al privado (query)
n324=  did -a orionsound 6 Al ser pateado (kick)
n325=  did -a orionsound 6 Al ser baneado (ban)
n326=  did -a orionsound 6 A la peticion (ayuda)
n327=  did -b orionsound 8,10,7,9  
n328=  if (%findmp3dirlocalscript) { did -a orionsound 12 %findmp3dirlocalscript }
n329=  if (%rungetmp3 == on) { did -c orionsound 14 } 
n330=  if (%sendmemp3 == on) { did -c orionsound 16 }
n331=}
n332=on 1:dialog:orionsound:sclick:6:{ 
n333=  sorion whois 
n334=  did -e orionsound 10,8,7,9,12 
n335=  did -r orionsound 5  
n336=  if ($did(orionsound,6).sel == 1) && (%autowav1 != $null) { did -a orionsound 5 %autowav1 }
n337=  if ($did(orionsound,6).sel == 2) && (%autowav2 != $null) { did -a orionsound 5 %autowav2 }
n338=  if ($did(orionsound,6).sel == 3) && (%autowav3 != $null) { did -a orionsound 5 %autowav3 }
n339=  if ($did(orionsound,6).sel == 4) && (%autowav4 != $null) { did -a orionsound 5 %autowav4 }
n340=  if ($did(orionsound,6).sel == 5) && (%autowav5 != $null) { did -a orionsound 5 %autowav5 }
n341=  if ($did(orionsound,6).sel == 6) && (%autowav6 != $null) { did -a orionsound 5 %autowav6 }
n342=  if ($did(orionsound,6).sel == 7) && (%autowav7 != $null) { did -a orionsound 5 %autowav7 }
n343=  if ($did(orionsound,6).sel == 8) && (%autowav8 != $null) { did -a orionsound 5 %autowav8 }
n344=  if ($did(orionsound,6).sel == 9) && (%autowav9 != $null) { did -a orionsound 5 %autowav9   }
n345=  if ($did(orionsound,6).sel == 10) && (%autowav10 != $null) { did -a orionsound 5 %autowav10 }
n346=  if ($did(orionsound,6).sel == 11) && (%autowav11 != $null) { did -a orionsound 5 %autowav11 }
n347=  if ($did(orionsound,6).sel == 12) && (%autowav12 != $null) { did -a orionsound 5 %autowav12 }
n348=  if ($did(orionsound,6).sel == 13) && (%autowav13 != $null) { did -a orionsound 5 %autowav13 }
n349=}  
n350=on 1:dialog:orionsound:sclick:8:{  
n351=
n352=  sorion $did(orionsound,5).text 
n353=} 
n354=on 1:dialog:orionsound:sclick:9:{  .timer -m 1 10 setautowav $did(orionsound,6).sel  } 
n355=on 1:dialog:orionsound:sclick:10:{ did -r orionsound 5 | delautowav $did(orionsound,6).sel | sorion cancel }
n356=on 1:dialog:orionsound:sclick:7:{ informo Esta utilidad hara que el script toque de forma auto-predefinida un sonido ante un evento/suceso, como puede ser el recibir la @ o el ser nombrado en un canal P-)  }
n357=
n358=on 1:dialog:orionsound:sclick:13:{ .timer -m 1 100 setdirlocalmp3  }
n359=on 1:dialog:orionsound:sclick:14:{  
n360=  if ($did(orionsound,$did).state == 1) {  echo -s 8,2 Activada11,4 auto-reproducción de mp3 recibidos y localizados en Dir predefinido 9,99  | %rungetmp3 = on }
n361=  else { echo -s 15,2 Desactivada 0,4 auto-reproducción de mp3  9,99 | unset %rungetmp3 } 
n362=}
n363=on 1:dialog:orionsound:sclick:16:{  
n364=  if ($did(orionsound,$did).state == 1) {  echo -s 8,2 Activada11,4 Opción de envio mp3 pedidos por otros users 9,99  | %sendmemp3 = on }
n365=  else {  echo -s 15,2 Desactivada 0,4 Opción de envio mp3 a peticiones de otros users 9,99 | unset %sendmemp3 } 
n366=}
n367=on 1:dialog:orionsound:sclick:15:{ informo Si activas esta función, se ejecutara de forma automatica los mp3 enviados a canales por otros users y que se encuentran en el directorio especificado ariva por usted.  }
n368=on 1:dialog:orionsound:sclick:17:{ informo Si activas esta opción, el script en caso de no encontrar el mp3 en el directorio predefinido mandara una petición al usuario que lo envio para conseguirlo (via DCC-send).  }
n369=;puertos
n370=on 1:dialog:puertos:init:*:{ 
n371=  sorion intro 
n372=  if (%rasconexnb != $null) { did -c puertos 4 }
n373=  if (%rasconexbo != $null) { did -c puertos 5 }
n374=  if (%rasconextn != $null) { did -c puertos 6 }  
n375=  if (%rasconexfg != $null) { did -c puertos 7 }
n376=  if (%rasconexid != $null) { did -c puertos 8 }
n377=  if (%rasconexwnt != $null) { did -c puertos 9 }
n378=  if (%rasconexw95 != $null) { did -c puertos 10 }
n379=  if (%rasconexwg != $null) { did -c puertos 11 }
n380=  if (%rasconexotro != $null) { did -c puertos 12 }
n381=  did -a puertos 13 %rastxtconex
n382=}
n383=
n384=;reastreando conexiones entrantes..............
n385=on 1:dialog:puertos:sclick:4:{  
n386=  if ($did(puertos,$did).state == 1) {  echo -s 8,2 Activado 0,4  Rastreo de conexion entrante 11( $did($did).text ) 9,99  | %rasconexnb = on }
n387=  else { echo -s 15,2 Desactivado 0,4  Rastreo de conexion entrante 11( $did($did).text ) 9,99 | unset %rasconexnb } 
n388=}
n389=on 1:dialog:puertos:sclick:5:{  
n390=  if ($did(puertos,$did).state == 1) { echo -s 8,2 Activado 0,4  Rastreo de conexion entrante 11( $did($did).text ) 9,99  | %rasconexbo = on }
n391=  else {  echo -s 15,2 Desactivado 0,4  Rastreo de conexion entrante 11( $did($did).text ) 9,99 | unset %rasconexbo } 
n392=}
n393=on 1:dialog:puertos:sclick:6:{  
n394=  if ($did(puertos,$did).state == 1) { echo -s 8,2 Activado 0,4  Rastreo de conexion entrante 11( $did($did).text ) 9,99  | %rasconextn = on }
n395=  else { echo -s 15,2 Desactivado 0,4  Rastreo de conexion entrante 11( $did($did).text ) 9,99 | unset %rasconextn } 
n396=}
n397=on 1:dialog:puertos:sclick:7:{  
n398=  if ($did(puertos,$did).state == 1) { echo -s 8,2 Activado 0,4  Rastreo de conexion entrante 11( $did($did).text ) 9,99  | %rasconexfg = on }
n399=  else {  echo -s 15,2 Desactivado 0,4  Rastreo de conexion entrante 11( $did($did).text ) 9,99 | unset %rasconexfg } 
n400=}
n401=on 1:dialog:puertos:sclick:8:{  
n402=  if ($did(puertos,$did).state == 1) { echo -s 8,2 Activado 0,4  Rastreo de conexion entrante 11( $did($did).text ) 9,99  | %rasconexid = on }
n403=  else { echo -s 15,2 Desactivado 0,4  Rastreo de conexion entrante 11( $did($did).text ) 9,99 | unset %rasconexid } 
n404=}
n405=on 1:dialog:puertos:sclick:9:{  
n406=  if ($did(puertos,$did).state == 1) { echo -s 8,2 Activado 0,4  Rastreo de conexion entrante 11( $did($did).text ) 9,99  | %rasconexwnt = on }
n407=  else { echo -s 15,2 Desactivado 0,4  Rastreo de conexion entrante 11( $did($did).text ) 9,99 | unset %rasconexwnt } 
n408=}
n409=on 1:dialog:puertos:sclick:10:{  
n410=  if ($did(puertos,$did).state == 1) { echo -s 8,2 Activado 0,4  Rastreo de conexion entrante 11( $did($did).text ) 9,99  | %rasconexw95 = on }
n411=  else { echo -s 15,2 Desactivado 0,4  Rastreo de conexion entrante 11( $did($did).text ) 9,99 | unset %rasconexw95 } 
n412=}
n413=on 1:dialog:puertos:sclick:11:{  
n414=  if ($did(puertos,$did).state == 1) { echo -s 8,2 Activado 0,4  Rastreo de conexion entrante 11( $did($did).text ) 9,99  | %rasconexwg = on }
n415=  else { echo -s 15,2 Desactivado 0,4  Rastreo de conexion entrante 11( $did($did).text ) 9,99 | unset %rasconexwg } 
n416=}
n417=on 1:dialog:puertos:sclick:12:{  
n418=  if ($did(puertos,$did).state == 1) { echo -s 8,2 Activado 0,4  Rastreo de conexion entrante 11( $did($did).text ) 9,99  | %rasconexotro = on }
n419=  else { echo -s 15,2 Desactivado 0,4  Rastreo de conexion entrante 11( $did($did).text ) 9,99 | unset %rasconexotro } 
n420=}
n421=on 1:dialog:puertos:edit:13:{ %rastxtconex = $did($did).text } 
n422=on 1:dialog:puertos:sclick:1:{  sorion ok }
n423=on 1:dialog:puertos:sclick:100:{  informo Al activar y poner a la escucha un puerto, no lo estamos abriendo en realidad, con lo que poner a la escucha puertos dentro del protocolo IRC no trae consigo riesgo niguno. El proceso de escucha de un puerto tiene la finalidad meramente informativa, sin peligro alguno. El puerto a la escucha recibe una conexion al estar a la escucha la detecta en caso contrario no seria detectada, una vez procesa esa conexion e informa desde donde viene y da informacion detallada de ella, corta la conexión entrante y abandona la escucha durante unos segundos, para retomar a continuación el proceso. Al recibir información sobre una "conexión entrante" no hay porque preocuparse, como ya mencione es información.  }
n424=;telnet
n425=on *:dialog:telnet:init:0: { did -f telnet 1 }
n426=on *:dialog:telnet:sclick:1: {
n427=  set %telnet.host $did(telnet,4)
n428=  set %telnet.port $did(telnet,5)
n429=  sockclose telnet
n430=  sockopen telnet %telnet.host %telnet.port
n431=}
n432=on *:sockopen:telnet:{
n433=  if ($sockerr == 0) { conecta.telnet }
n434=  else { echo -s »»»4 Error al conectar a 12 [7 $sock(telnet).ip 12] 12 [7 $sock(telnet).port 12] ««« }
n435=}
n436=on *:sockread:telnet:{ 
n437=  sockread %texto.telnet 
n438=  echo @ Telnet 12   «    %texto.telnet
n439=}
n440=on *:sockclose:telnet:{ 
n441=  echo @ Telnet  
n442=  echo @ Telnet 1 »»» 4Conexion Cerrada1 «««
n443=  .timertelnet off
n444=  titlebar @ Telnet » %telnet.host · %telnet.port (---) 
n445=}
n446=on *:INPUT:@ Telnet: { 
n447=  echo @ Telnet 7   »    $1- 
n448=  sockwrite -tn telnet $1- 
n449=  halt 
n450=}
n451=on *:close:@ Telnet: {
n452=  sockclose telnet 
n453=  .timertelnet off
n454=}