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