[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=}