[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=;dialog de radio========================================================== n14=on 1:dialog:radio:init:*:{ n15= sorion intro n16= inicdll n17= dll $dllmdx SetColor $dname 3 background $rgb(76,76,99) | dll $dllmdx SetFont $dname 3 12 700 arial | dll $dllmdx SetColor $dname 3 textbg $rgb(76,76,99) | dll $dllmdx SetColor $dname 3 text $rgb(204,204,211) n18= infotxt@ 11Ejecutando aparato radiofonico del script n19= cargaradio n20=} n21=on 1:dialog:radio:sclick:6:{ sorion op | timerdir 1 10 set %dirradio $dir="Seleciona el archivo del programa" c:\ } n22=on 1:dialog:radio:sclick:11:{ run $mircdirradio\ $+ $did(radio,3,$did(radio,3).sel).text } n23=on 1:dialog:radio:sclick:1:{ sorion ok } n24=on 1:dialog:radio:sclick:12:{ informo Para oir una sintonia debes tener instalado en tu PC el programa RealPlayer, a continuación, seleccionas una sintonia desde esta ventana del OrioN y pulsas el boton "sintonizar" y pasará a sonar, esa emisora. Puedes añadir todas las emisoras de radio que quieras, pero estas debes de meterlas siempre en el directorio orion\radio\ $ctrl Puede ser que muchas de las sintonias no funcionen. En un principio si lo hacian, puede ser por razones de actualizacion de los responsable de las sintonias, consige el fichero con la sintonia e instalo para oirla. } n25=on 1:dialog:radio:sclick:7:{ buscaradio } n26=;dialog de barra========================================================= n27=on 1:dialog:progext:init:*:{ n28= sorion intro n29= did -a progext 7 Navegador | did -a progext 7 Explorador | did -a progext 7 Notepad | did -a progext 7 mp3 | did -a progext 7 e-mail | did -a progext 7 FTP | did -a progext 7 Visor | did -a progext 7 Programa1 | did -a progext 7 Programa2 | did -a progext 7 Compresor | did -a progext 7 Cortafuegos n30= infotxt@ 11Ejecutando configurador de programas externos n31=} n32= n33=on 1:dialog:progext:sclick:8:{ sorion espera | sacobusca | autolocalizador } n34=on 1:dialog:progext:sclick:7:{ n35= did -r progext 5 n36= sorion check n37= if ($did(progext,7).text == e-mile) { did -b progext 5 } n38= else { did -e progext 5 } n39= if ($did(progext,7).text == Navegador) { did -a progext 5 %rutanet } n40= if ($did(progext,7).text == Notepad) { did -a progext 5 %rutanotepad } n41= if ($did(progext,7).text == Explorador) { did -a progext 5 %rutaexplorador } n42= if ($did(progext,7).text == e-mail) { did -a progext 5 %rutaemail } n43= if ($did(progext,7).text == mp3) { did -a progext 5 %rutamp3 } n44= if ($did(progext,7).text == FTP) { did -a progext 5 %rutaftp } n45= if ($did(progext,7).text == Programa1) { did -b progext 5 | did -a progext 5 %rutaprogra1 } n46= if ($did(progext,7).text == Programa2) { did -b progext 5 | did -a progext 5 %rutaprogra2 } n47= if ($did(progext,7).text == Visor) { did -a progext 5 %rutavisor } n48= if ($did(progext,7).text == Compresor) { did -a progext 5 %rutacompr } n49= if ($did(progext,7).text == Cortafuegos) { did -b progext 5 | did -a progext 5 %rutafire } n50=} n51=on 1:dialog:progext:sclick:1:{ sorion ok } n52=on 1:dialog:progext:sclick:9:{ sorion espera | manuallocalizador } n53=;lageo de dialog========================================================== n54=on 1:dialog:lageo:init:*:{ n55= sorion intro n56= did -a lageo 6 3 | did -a lageo 6 5 | did -a lageo 6 10 | did -a lageo 6 20 | did -a lageo 6 30 | did -a lageo 6 40 | did -a lageo 6 50 | did -a lageo 6 60 | did -a lageo 6 120 n57= did -c lageo 6 $didwm(lageo,6,%timelageo) n58= did -a lageo 13 3 | did -a lageo 13 5 | did -a lageo 13 10 | did -a lageo 13 20 | did -a lageo 13 30 | did -a lageo 13 40 | did -a lageo 13 50 | did -a lageo 13 60 | did -a lageo 13 120 n59= did -c lageo 13 $didwm(lageo,13,%exceslag) n60= if (%actlageo == on) { did -c lageo 2 } n61= infotxt@ 11Ejecutando controlador del medidor de 4LAG n62= if (%moslageos == on) { did -c lageo 9 } n63= if (%moslageoa == on) { did -c lageo 10 } n64= if (%moslageog == on) { did -c lageo 11 } n65= if (%avilag == on) { did -c lageo 14 } n66= if (%sacalagsr == on) { did -c lageo 15 } n67=} n68=on 1:dialog:lageo:sclick:6:{ sorion info | %timelageo = $did(lageo,6).text | timesklageo } n69=on 1:dialog:lageo:sclick:13:{ sorion info | %exceslag = $did(lageo,13).text } n70=on 1:dialog:lageo:sclick:2:{ n71= if ($did(lageo,2).state == 1) { %actlageo = on | timesklageo | echo -s Lag - ON _ En %timelageo seg se activara su lag... | drawtext -cp @barstatus 9 "arial" 9 367 35 200 9 8,1 00 | sorion click } n72= else { unset %actlageo | .timerlagearme off | echo -s Lag - OFF | drawtext -cp @barstatus 9 "arial" 9 367 35 200 9 8,1 - - | sorion check } n73=} n74=on 1:dialog:lageo:sclick:9:{ n75= if ($did(lageo,$did).state == 1) { %moslageos = on } n76= else { unset %moslageos } n77=} n78=on 1:dialog:lageo:sclick:10:{ n79= if ($did(lageo,$did).state == 1) { %moslageoa = on } n80= else { unset %moslageoa } n81=} n82=on 1:dialog:lageo:sclick:11:{ n83= if ($did(lageo,$did).state == 1) { %moslageog = on } n84= else { unset %moslageog } n85=} n86=on 1:dialog:lageo:sclick:14:{ n87= if ($did(lageo,$did).state == 1) { %avilag = on } n88= else { unset %avilag } n89=} n90=on 1:dialog:lageo:sclick:15:{ n91= if ($did(lageo,$did).state == 1) { %sacalagsr = on } n92= else { unset %sacalagsr } n93=} n94=on 1:dialog:lageo:sclick:1:{ sorion ok } n95=;dialog de conexion info==================================================== n96=on 1:dialog:infomeconex:init:*:{ n97= inicdll n98= dll $dllmdx SetColor $dname 3 background $rgb(76,76,99) | dll $dllmdx SetFont $dname 3 12 700 arial | dll $dllmdx SetColor $dname 3 textbg $rgb(76,76,99) | dll $dllmdx SetColor $dname 3 text $rgb(204,204,211) n99= dll $dllmdx SetColor $dname 7 background $rgb(76,76,99) | dll $dllmdx SetFont $dname 7 13 700 arial | dll $dllmdx SetColor $dname 7 textbg $rgb(76,76,99) | dll $dllmdx SetColor $dname 7 text $rgb(204,204,211) n100= dll $dllmdx SetColor $dname 9 background $rgb(76,76,99) | dll $dllmdx SetFont $dname 9 11 700 arial | dll $dllmdx SetColor $dname 9 textbg $rgb(76,76,99) | dll $dllmdx SetColor $dname 9 text $rgb(204,204,211) n101= did -a infomeconex 3 %timeconex n102= did -a infomeconex 7 $server n103= did -a infomeconex 9 $port n104= sorion intro n105= infotxt@ 11Información de conexion ejecutada n106=} n107= n108=on 1:dialog:infomeconex:sclick:1:{ sorion ok } n109=on 1:dialog:infomeconex:sclick:10:{ n110= sorion whois n111= if ($active != Status Window) { msg %winactive %txtscript 0,15 0,14 8,2 Estoy conectado al servidor11 $server 8por el puerto4 $port 0,14 0,15 0,99 } n112=} n113=;dialog no conex========================================================= n114=on 1:dialog:noconex:init:*:{ n115= infotxt@ 4ERROR 8 no se ha podido detectar conexion alguna. n116= sorion deop n117=} n118=on 1:dialog:noconex:sclick:1:{ sorion ok } n119=;dialog para mostrar y mandar asciis=========================================== n120=on 1:dialog:ascii:init:*:{ n121= sorion intro n122= infotxt@ 11Cargador/editor de4 ASCII n123= cargaasciis n124=} n125=on 1:dialog:ascii:sclick:1:{ sorion ok } n126=on 1:dialog:ascii:sclick:4:{ sorion espera | run $mircdirascii\ $+ $did(ascii,2,$did(ascii,2).sel).text } n127=on 1:dialog:ascii:sclick:5:{ sorion whois | play %winactive $mircdirascii\ $+ $did(ascii,2,$did(ascii,2).sel).text } n128=;auto-mensajes en dialog: automsg========================================= n129=on 1:dialog:automsg:sclick:1: { sorion ok } n130=on 1:dialog:automsg:init:*:{ n131= did -a automsg 6 Cuando tu entras a un canal n132= did -a automsg 6 Cuando tu sales de un canal n133= did -a automsg 6 Cuando te dan @ n134= did -a automsg 6 Cuando te quitan la @ n135= did -a automsg 6 Cuando te dan voz n136= did -a automsg 6 Cuando te quitan la voz n137= did -a automsg 6 Cuando eres kikeado n138= did -a automsg 6 Cuando te banean n139= did -a automsg 6 Cuando eres nombrado n140= did -a automsg 6 Cuando otro usuario entra al canal n141= did -a automsg 6 Al pulsar la tecla F9 n142= did -a automsg 6 Cuando te saludan n143= did -a automsg 6 Al join saludar nicks del notify n144= infotxt@ 11Controlador de msgs automaticos y predefinidos n145=} n146=on 1:dialog:automsg:edit:5:{ n147= if ($did(automsg,6).sel == 1) { set %automsgjoinme $did(automsg,5).text } n148= if ($did(automsg,6).sel == 2) { set %msgpart $did(automsg,5).text } n149= if ($did(automsg,6).sel == 3) { set %msgop $did(automsg,5).text } n150= if ($did(automsg,6).sel == 4) { set %msgdeop $did(automsg,5).text } n151= if ($did(automsg,6).sel == 5) { set %msgvoz $did(automsg,5).text } n152= if ($did(automsg,6).sel == 6) { set %msgdevoz $did(automsg,5).text } n153= if ($did(automsg,6).sel == 7) { set %msgkick $did(automsg,5).text } n154= if ($did(automsg,6).sel == 8) { set %msgban $did(automsg,5).text } n155= if ($did(automsg,6).sel == 9) { set %msgmenick $did(automsg,5).text } n156= if ($did(automsg,6).sel == 10) { set %msgjoin $did(automsg,5).text } n157= if ($did(automsg,6).sel == 11) { set %msgpuchf9 $did(automsg,5).text } n158= if ($did(automsg,6).sel == 12) { set %msgsalume $did(automsg,5).text } n159= if ($did(automsg,6).sel == 13) { set %msgsalunotify $did(automsg,5).text } n160=} n161=on 1:dialog:automsg:sclick:6:{ n162= if ($did(automsg,6).sel == 1) { did -r automsg 5 | did -a automsg 5 %automsgjoinme | did -b automsg 8 } n163= if ($did(automsg,6).sel == 2) { did -r automsg 5 | did -a automsg 5 %msgpart | did -b automsg 8 } n164= if ($did(automsg,6).sel == 3) { did -r automsg 5 | did -a automsg 5 %msgop | did -e automsg 8 } n165= if ($did(automsg,6).sel == 4) { did -r automsg 5 | did -a automsg 5 %msgdeop | did -e automsg 8 } n166= if ($did(automsg,6).sel == 5) { did -r automsg 5 | did -a automsg 5 %msgvoz | did -e automsg 8 } n167= if ($did(automsg,6).sel == 6) { did -r automsg 5 | did -a automsg 5 %msgdevoz | did -e automsg 8 } n168= if ($did(automsg,6).sel == 7) { did -r automsg 5 | did -a automsg 5 %msgkick | did -e automsg 8 } n169= if ($did(automsg,6).sel == 8) { did -r automsg 5 | did -a automsg 5 %msgban | did -e automsg 8 } n170= if ($did(automsg,6).sel == 9) { did -r automsg 5 | did -a automsg 5 %msgmenick | did -e automsg 8 } n171= if ($did(automsg,6).sel == 10) { did -r automsg 5 | did -a automsg 5 %msgjoin | did -e automsg 8 } n172= if ($did(automsg,6).sel == 11) { did -r automsg 5 | did -a automsg 5 %msgpuchf9 | did -e automsg 8 } n173= if ($did(automsg,6).sel == 12) { did -r automsg 5 | did -a automsg 5 %msgsalume | did -e automsg 8 } n174= if ($did(automsg,6).sel == 13) { did -r automsg 5 | did -a automsg 5 %msgsalunotify | did -e automsg 8 } n175=} n176=on 1:dialog:automsg:sclick:8:{ n177= informo Cuando salte un suceso al que tengas predefinido un mensaje automatico, este sera inprimido y al final de la cadena se situara el nick del provocante del suceso :P $oriontheme(sSeparadorLine) n178=} n179=;reproductor de musica del script============================================= n180=on 1:dialog:musica:init:*: { n181= inicdll | dll $dllmdx SetColor $dname 2 background $rgb(76,76,99) | dll $dllmdx SetFont $dname 2 12 700 arial | dll $dllmdx SetColor $dname 2 textbg $rgb(76,76,99) | dll $dllmdx SetColor $dname 2 text $rgb(204,204,211) n182= infotxt@ Ejecucion del reproductor de musica: 0[9wav, mid, "mp3"0]. n183= sorion intro n184= if (wav isin %extmusi) { did -c musica 19 } n185= if (mid isin %extmusi) { did -c musica 18 } n186= if (mp3 isin %extmusi) { did -c musica 20 } n187= if (%actpropimusi == shuffle) { did -c musica 15 } n188= if (%actpropimusi == repetir) { did -c musica 16 } n189= .timermusi 1 1 cargamusi n190= echo -s $oriontheme(sSeparadorLine) n191= echo -s 8,2 Reproductor de musica (jukebox) OrioN ScripT 9,99 n192= echo -s $oriontheme(sSeparadorLine) n193=} n194=on 1:dialog:musica:sclick:14: { .timermusi -m 1 100 dirmusi } n195=on 1:dialog:musica:sclick:18: { sorion op | set %extmusi *.mid | did -e musica 15 | did -e musica 16 | did -e musica 21 | did -e musica 13 | cargamusi } n196=on 1:dialog:musica:sclick:19: { sorion op | set %extmusi *.wav | did -e musica 15 | did -e musica 16 | did -e musica 21 | did -e musica 13 | cargamusi } n197=on 1:dialog:musica:sclick:20: { sorion op | set %extmusi *.mp3 | cargamusi } n198=on 1:dialog:musica:sclick:100: { n199= if (98 isin $os) { .run %dirwindows $+ \Cdplayer.exe } n200= else { informo Usted no lleva windows 98, este es el SO que tenia el CDPlayer, su versión de windows ya no lleva tal programa, puede recurrir al WindowsMediaPlayer, u otros reproductores especificos para CDA . } n201=} n202=on 1:dialog:musica:sclick:2: { n203= .timer -m 1 10 did -z musica 2 n204= did -r musica 6 | did -r musica 8 n205= did -a musica 6 $findfile(%dirmusi,$did(musica,2,$did(musica,2).sel).text,1) n206= did -a musica 8 $round($calc($file($did(musica,6).text).size / 1064),0) MB n207=} n208=on 1:dialog:musica:sclick:1: { sorion ok } n209=on 1:dialog:musica:sclick:12: { playmusi } n210=on 1:dialog:musica:sclick:15: { n211= set %actpropimusi shuffle | did -u musica 16 n212= if ($did(musica,15).state == 0) { unset %actpropimusi } n213=} n214=on 1:dialog:musica:sclick:16: { n215= set %actpropimusi repetir | did -u musica 15 n216= if ($did(musica,16).state == 1) { .timermusi -m 1 100 nºrepetirmusi } n217= else { unset %actpropimusi } n218=} n219=on 1:dialog:musica:sclick:13: { .splay -wm stop | .splay stop } n220=on 1:dialog:musica:sclick:21: { n221= if (mp3 !isin $did(musica,6).text ) { sound2 %winactive $did(musica,6).text } n222= else { n223= %tococanalmusi = $did(musica,6) n224= .splay " $+ $did(musica,6) $+ " n225= anunciamusi $did(musica,6) n226= } n227=} n228=on 1:dialog:musica:sclick:1: { sorion ok | .splay -wm stop } n229=on 1:dialog:musica:sclick:26: { n230= if (!%sndvol) { %sndvol = $findfile(c:\windows,Sndvol32.exe,1) } n231= .timer 1 1 run %sndvol n232=} n233= n234=;servers============================================ n235=on 1:dialog:servers:init:*: { n236= cargaredesirc n237= if ($server == $null) { did -b servers 29 } n238= did -r servers 13 | did -a servers 13 Opciones avanzadas de configuración « 0 » n239= did -a servers 8 6667 | did -a servers 8 6667 | did -a servers 8 6664 | did -a servers 8 6665 n240= did -a servers 8 6666 | did -a servers 8 6668 | did -a servers 8 6669 n241= did -a servers 8 7000 | did -a servers 8 8888 | did -a servers 8 4444 | did -c servers 8 1 n242= did -a servers 21 %servautoconexion n243= if (%iniejecutconex == on ) { did -c servers 28 } n244= if (%iniejecutserv == on) { did -c servers 30 } n245= infotxt@ Ejecutando panel de redes y servidores n246= inicdll n247= dll $dllmdx SetColor $dname 4 background $rgb(76,76,99) | dll $dllmdx SetFont $dname 4 12 700 arial | dll $dllmdx SetColor $dname 4 textbg $rgb(76,76,99) | dll $dllmdx SetColor $dname 4 text $rgb(204,204,211) n248= dll $dllmdx SetColor $dname 6 background $rgb(76,76,99) | dll $dllmdx SetFont $dname 6 13 700 arial | dll $dllmdx SetColor $dname 6 textbg $rgb(76,76,99) | dll $dllmdx SetColor $dname 6 text $rgb(226,226,231) n249= dll $dllmdx SetColor $dname 21 background $rgb(62,62,87) | dll $dllmdx SetFont $dname 21 14 700 arial | dll $dllmdx SetColor $dname 21 textbg $rgb(62,62,87) | dll $dllmdx SetColor $dname 21 text $rgb(226,226,231) n250= dll $dllmdx SetColor $dname 23 background $rgb(62,62,87) | dll $dllmdx SetFont $dname 23 11 700 arial | dll $dllmdx SetColor $dname 23 textbg $rgb(62,62,87) | dll $dllmdx SetColor $dname 23 text $rgb(226,226,231) n251= dll $dllmdx SetColor $dname 8 background $rgb(62,62,87) | dll $dllmdx SetColor $dname 8 textbg $rgb(62,62,87) | dll $dllmdx SetColor $dname 8 text $rgb(226,226,231) n252= .timer -m 1 100 selredservservers n253=} n254=alias selredservservers { n255= did -c servers 4 $didwm(servers,4,%redselservers) n256= cargaservirc $did(servers,4,$did(servers,4).sel).text n257= %jodete = $didwm(servers,6,%servselservers) n258= did -c servers 6 %jodete n259= cargainfoserv $did(servers,6,$did(servers,6).sel).text n260= unset %jodete n261=} n262=on 1:dialog:servers:sclick:29: { disconnect } n263=on 1:dialog:servers:sclick:13: { n264= if (0 isin $did(servers,13).text) { did -r servers 13 | did -a servers 13 Opciones avanzadas de configuración « X » n265= set %x 278 n266= :ini n267= inc %x n268= if (%x != 410) { dialog -s servers $dialog(servers).x $dialog(servers).y 300 %x | goto ini } n269= else { dialog -s servers $dialog(servers).x $dialog(servers).y 300 %x | unset %x } n270= } n271= else { n272= did -r servers 13 | did -a servers 13 Opciones avanzadas de configuración « 0 » n273= set %x 395 n274= :ini n275= dec %x 5 n276= if (%x != 280) { dialog -s servers $dialog(servers).x $dialog(servers).y 300 %x | goto ini } n277= else { dialog -s servers $dialog(servers).x $dialog(servers).y 300 %x | unset %x } n278= } n279=} n280=on 1:dialog:servers:sclick:4: { %redselservers = $did(servers,4,$did(servers,4).sel).text | did -r servers 6 | sorion click | did -z servers 4 | did -z servers 6 | cargaservirc $did(servers,4,$did(servers,4).sel).text } n281=on 1:dialog:servers:sclick:6: { %servselservers = $did(servers,6,$did(servers,6).sel).text | did -z servers 4 | did -z servers 6 | sorion click | did -r servers 8 | did -r servers 21 | did -r servers 23 | cargainfoserv $did(servers,6,$did(servers,6).sel).text } n282=on 1:dialog:servers:sclick:10: { server $did(servers,21).text $did(servers,8).text } n283=on 1:dialog:servers:sclick:200: { server -m $did(servers,21).text $did(servers,8).text } n284=on 1:dialog:servers:sclick:28: { n285= if ($did(servers,28).state == 1) { %iniejecutconex = on } n286= else { unset %iniejecutconex } n287=} n288=on 1:dialog:servers:sclick:30: { n289= if ($did(servers,30).state == 1) { %iniejecutserv = on } n290= else { unset %iniejecutserv } n291=} n292=on 1:dialog:servers:sclick:31: { addred } n293=on 1:dialog:servers:sclick:32: { addserv } n294=on 1:dialog:servers:sclick:33: { delred } n295=on 1:dialog:servers:sclick:34: { delserv } n296= n297= n298=;cambio de letra en dialog letra=============================================== n299=on 1:dialog:letras:init:*:{ n300= sorion intro n301= did -a letras 8 Tipo letra n302= did -a letras 8 Letra normal n303= did -a letras 8 Color-opciones n304= did -a letras 8 Letra Codificada n305= did -a letras 8 Letra ASCII n306= did -a letras 8 Escribir alreves n307= did -a letras 8 Escribir mal n308= did -a letras 8 A colorinos n309= did -a letras 8 En relieve n310= did -a letras 8 Mayus y Minus n311= did -a letras 8 Letra sin tinta n312= did -a letras 8 Letra fuego n313= did -a letras 8 Letra de agua n314= did -a letras 8 Letra de tierra n315= did -a letras 8 Letra esmeralda n316= did -a letras 8 Formato RGB n317= did -a letras 8 Letra Barsa n318= did -a letras 8 Letra Madrid n319= did -a letras 8 Letra Oviedo n320= did -a letras 8 Letra Gijón n321= did -a letras 8 Letra Caudal n322= did -a letras 8 Letra Depor n323= did -a letras 8 Enmarcada n324= did -a letras 8 Letra lacasitos n325= did -c letras 8 1 | did -b letras 9 | did -b letras 10 n326= if (%typeleteralways == on) { did -c letras 6 } n327= if (%colorleternegrita == on) { did -c letras 4 } n328= if (%colorletersubra == on) { did -c letras 5 } n329=} n330=on 1:dialog:letras:sclick:1:{ sorion ok } n331=on 1:dialog:letras:sclick:7:{ dialog -m color color } n332=on 1:dialog:letras:sclick:8:{ settypeletras $did(letras,8) | sorion ring } n333=on 1:dialog:letras:sclick:11:{ n334= if ($did(letras,8) == Color-opciones) { %interfacecolor = txtcolor | dialog -m color color | %icon = 11 } n335= else { informo Estas opciones solo son operativas en el modo de "Color-opciones". Asi que si quieres usarlas seleccione de la lista el modo de "Color-opciones" :-) $oriontheme(sSeparadorLine) } n336=} n337=on 1:dialog:letras:sclick:12:{ n338= if ($did(letras,8) == Color-opciones) { %interfacecolor = txtcolor | dialog -m color color | %icon = 12 } n339= else { informo Estas opciones solo son operativas en el modo de "Color-opciones". Asi que si quieres usarlas seleccione de la lista el modo de "Color-opciones" :-) $oriontheme(sSeparadorLine) } n340=} n341=on 1:dialog:letras:sclick:4:{ n342= if ($did(letras,4).state == 1) { %colorleternegrita = on } n343= else { sorion check | unset %colorleternegrita } n344= ponmuestraleter n345=} n346=on 1:dialog:letras:sclick:5:{ n347= if ($did(letras,5).state == 1) { %colorletersubra = on } n348= else { sorion check | unset %colorletersubra } n349= ponmuestraleter n350=} n351=on 1:dialog:letras:sclick:6:{ n352= if ($did(letras,6).state == 1) { %typeleteralways = on } n353= else { sorion check | unset %typeleteralways } n354=} n355= n356=;dialog whois =========================================================== n357=on 1:dialog:whois:sclick:30:{ infoscript $did(whois,23).text } n358=on 1:dialog:whois:sclick:28:{ sorion op | query $did(whois,3).text } n359=on 1:dialog:whois:sclick:26:{ joinwcanal } n360=on 1:dialog:whois:sclick:27:{ joinwcanales } n361=on 1:dialog:whois:sclick:1:{ sorion ok } n362=on 1:dialog:whois:init:*:{ sorion intro | did -a whois 32 No | did -a whois 34 No | did -b whois 30 n363= infotxt@ 11Procesando información para el whois n364=} n365=on 1:dialog:whois:sclick:29:{ sorion op | quien-es $did(whois,3).text c } n366=on 1:dialog:whois:sclick:37:{ n367= infotxt@ Procesando información de whois a grabar... n368= echo -s $oriontheme(sSeparadorLine) n369= echo -s 8,1 Whois11 $did(whois,3).text 8grabado en txt dentro del directorio: 9 $mircdirusers\ 9,99 n370= echo -s $oriontheme(sSeparadorLine) n371= sorion boton 2 n372= %filewritewhois = $did(whois,3).text $+ .txt n373= write users\ $+ %filewritewhois Grabación del whois a usernick: $did(whois,3).text n374= write users\ $+ %filewritewhois ======================================= n375= write users\ $+ %filewritewhois Nick: $did(whois,3).text n376= write users\ $+ %filewritewhois User-ID: $did(whois,5).text n377= write users\ $+ %filewritewhois Conex-ID: $did(whois,7).text n378= write users\ $+ %filewritewhois Dirrección: $did(whois,9).text n379= write users\ $+ %filewritewhois Mascara: $did(whois,11).text n380= write users\ $+ %filewritewhois Host/IP: $did(whois,13).text n381= write users\ $+ %filewritewhois Name/Pijada: $did(whois,15).text n382= write users\ $+ %filewritewhois Server: $did(whois,17).text n383= write users\ $+ %filewritewhois infoServer: $did(whois,19).text n384= write users\ $+ %filewritewhois Time-inactivo: $did(whois,21).text n385= write users\ $+ %filewritewhois Script: $did(whois,23).text n386= write users\ $+ %filewritewhois Ircop: $did(whois,32).text n387= write users\ $+ %filewritewhois Estado away: $did(whois,34).text n388= write users\ $+ %filewritewhois msgAWAY: $did(whois,36).text n389= %x = 0 n390= :ini n391= inc %x n392= if ($did(whois,24,%x).text != $null) { %writecanaleswhois = %writecanaleswhois $+, $+ $did(whois,24,%x).text | goto ini } n393= else { write users\ $+ %filewritewhois Canales: %writecanaleswhois } n394= write users\ $+ %filewritewhois ======================================= n395= unset %writecanaleswhois %filewritewhois n396=} n397=;dialog de notificación====================================================== n398=on 1:dialog:notify:sclick:19: { n399= if ($did(notify,19).state == 0) { unset %seenotifyorion } n400= else { %seenotifyorion = on } n401=} n402=on 1:dialog:notify:sclick:20: { informo Si quieres añadir y configurar los nicks de la lista de notificaciones pulse el boton agenda, o bien (alt + b). O acude a herramientas >> direcciones. $oriontheme(sSeparadorLine) } n403=on 1:dialog:notify:sclick:18: { sorion espera n404= if (!$did(notify,12,$did(notify,12).sel).text) { abook } n405= else { abook $did(notify,12,$did(notify,12).sel).text } n406=} n407=on 1:dialog:notify:sclick:16: { sorion espera n408= if ($did(notify,12,$did(notify,12).sel).text) { query $did(notify,12,$did(notify,12).sel).text } n409=} n410=on 1:dialog:notify:sclick:17: { sorion espera n411= if ($did(notify,12,$did(notify,12).sel).text) { whois $did(notify,12,$did(notify,12).sel).text } n412=} n413=on 1:dialog:notify:init:*: { n414= %s = 1 | sorion intro n415= inicdll | dll $dllmdx SetColor $dname 12 background $rgb(76,76,99) | dll $dllmdx SetFont $dname 12 12 700 arial | dll $dllmdx SetColor $dname 12 textbg $rgb(76,76,99) | dll $dllmdx SetColor $dname 12 text $rgb(204,204,211) n416= if (%seenotifyorion == on) { did -c notify 19 } n417= while ($notify(%s)) { n418= if ($notify(%s).ison) { did -a notify 12 $notify(%s) } n419= inc %s n420= } n421= unset %s n422=} n423= n424=;sendfilec======================================== n425=on 1:dialog:sendfilec:init:*:{ n426= sorion intro n427= if ($group(#sendfilec) == 1) { did -a sendfilec 23 Activado | did -c sendfilec 23 } n428= else { did -a sendfilec 23 Desactivado } n429= %n = 1 n430= while ($chan(%n)) { n431= did -a sendfilec 9 $chan(%n) n432= inc %n n433= } n434= unset %n n435= did -a sendfilec 4 %sendfilecfil n436= did -a sendfilec 8 %sendfilectxt n437= did -a sendfilec 14 %sendfilecget n438= did -a sendfilec 16 %sendfilecsee n439= did -a sendfilec 19 %sendfilecusr n440= did -a sendfilec 21 %sendfilecend n441=} n442= n443=on 1:dialog:sendfilec:sclick:5:{ n444= sorion espera n445= set %sendfilecfil $$file="Seleccione el fichero a enviar _canal/s" C:\ n446= did -a sendfilec 4 %sendfilecfil n447=} n448=on 1:dialog:sendfilec:edit:4:{ %sendfilecfil = $did(sendfilec,4).text } n449=on 1:dialog:sendfilec:edit:8:{ %sendfilectxt = $did(sendfilec,8).text } n450=on 1:dialog:sendfilec:edit:14:{ %sendfilecget = $did(sendfilec,14).text } n451=on 1:dialog:sendfilec:edit:16:{ %sendfilecsee = $did(sendfilec,16).text } n452=on 1:dialog:sendfilec:edit:19:{ %sendfilecusr = $did(sendfilec,19).text } n453=on 1:dialog:sendfilec:edit:21:{ %sendfilecend = $did(sendfilec,21).text } n454=on 1:dialog:sendfilec:sclick:24:{ seesendfilec | sorion click } n455=on 1:dialog:sendfilec:sclick:23:{ n456= if ($did(sendfilec,23).state == 1) { sendfilec on | sorion conex } n457= else { sendfilec off | sorion quit } n458=} n459=on 1:dialog:sendfilec:sclick:25:{ informo Envio automatico de Ficheros (canales) $crlf $+ ----------------------------------------------------------------------- $crlf $+ 1.- Seleccione el canal donde deseas enviar el fichero. $crlf $+ 2.- Escribe el contenido del fichero. $crlf $+ 3.- Seleccione el fichero a enviar. $crlf $+ Pulsa el boton para enviar. $crlf $+ $crlf $+ Puedes configurar opciones avanzadas en la solapa (opciones), tales como: comando para enviar, retardo de muestreo, limite de envios, auto finalización. } n460=on 1:dialog:sendfilec:sclick:50:{ sendfilec off } n461=on 1:dialog:sendfilec:sclick:1:{ sendfilec off | sorion ok }