[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=;corrector de smyles en dialog "dorsmyles"=================
n14=on 1:dialog:corsmyles:init:*:{
n15=  infotxt@ 11Ejecutado controlador de correctores de smyles
n16=  cargacorsmyles 
n17=}
n18=on 1:dialog:corsmyles:sclick:9:{ 
n19=  write $mircdirsistema\txts\corsmyles.txt  $did(corsmyles,5).text  =  $did(corsmyles,7).text 
n20=  cargacorsmyles 
n21=}
n22=on 1:dialog:corsmyles:sclick:12:{ 
n23=  set %delsmylecor $did(corsmyles,11,$did(corsmyles,11).sel).text 
n24=  write -ds $+ %delsmylecor  $mircdirsistema\txts\corsmyles.txt
n25=  unset %delsmylecor
n26=  cargacorsmyles 
n27=}
n28=on 1:dialog:corsmyles:sclick:11:{ 
n29=  sorion click | did -r corsmyles 17  
n30=  set %x $read -s $+ $did(corsmyles,11,$did(corsmyles,11).sel).text $mircdirsistema\txts\corsmyles.txt
n31=  did -a corsmyles 17 $gettok(%x,1,61) 
n32=  echo -s $gettok(%x,1,61) 
n33=  unset %x 
n34=}
n35=on 1:dialog:corsmyles:sclick:13:{   sorion op | run $mircdirsistema\txts\corsmyles.txt }
n36=on 1:dialog:corsmyles:sclick:14:{    dialog -m caritas caritas }
n37=on 1:dialog:corsmyles:sclick:16:{   informo En caso de que utilices los controles de negrita subrayado o colores (Ctrl + k,b,u) es necesario que te acuerdes de especificar un cierre a ellos con otro ctrl + "k","b" o "u".   $oriontheme(sSeparadorLine) }
n38=
n39=;corrector de palabros en dialog "corwords"================
n40=on 1:dialog:corwords:init:*:{ 
n41=  infotxt@ 11Ejecutado controlador de correctores y completadores de palabras 
n42=  cargacorwords 
n43=}
n44=on 1:dialog:corwords:sclick:9:{ 
n45=  write $mircdirsistema\txts\corwords.txt  $did(corwords,5).text  =  $did(corwords,7).text 
n46=  cargacorwords 
n47=}
n48=on 1:dialog:corwords:sclick:12:{ 
n49=  set %delsmylecor $did(corwords,11,$did(corwords,11).sel).text 
n50=  write -ds $+ %delsmylecor  $mircdirsistema\txts\corwords.txt
n51=  unset %delsmylecor
n52=  cargacorwords 
n53=}
n54=on 1:dialog:corwords:sclick:11:{ 
n55=  sorion click | did -r corwords 17  
n56=  set %x $read -s $+ $did(corwords,11,$did(corwords,11).sel).text $mircdirsistema\txts\corwords.txt
n57=  did -a corwords 17 $gettok(%x,1,61) 
n58=  unset %x 
n59=}
n60=on 1:dialog:corwords:sclick:13:{   sorion op | run $mircdirsistema\txts\corwords.txt }
n61=on 1:dialog:corwords:sclick:14:{   sorion check | dialog -m caritas caritas }
n62=on 1:dialog:corwords:sclick:16:{   sorion check | informo En caso de que utilices los controles de negrita subrayado o colores (Ctrl + k,b,u) es necesario que te acuerdes de especificar un cierre a ellos con otro ctrl + "k","b" o "u".   $oriontheme(sSeparadorLine) }
n63=;correcotor de nicks==================================
n64=on 1:dialog:cornicks:init:*:{  
n65=  sorion intro | .timer -m 1 100 loadformatncp 
n66=  did -a cornicks 25 %nºlcornicks
n67=  did -a cornicks 26 %sigcornicks
n68=  infotxt@ 11Ejecutado controlador de correctores de 4nicks 
n69=}
n70=on 1:dialog:cornicks:sclick:13:{ 
n71=  @ncp  
n72=  %cnp = Nick  
n73=  set %formatncp $did(cornicks,13,$did(cornicks,13).sel).text
n74=  %formatncp = $gettok(%formatncp,2,32)  
n75=  %formatncp2 = %formatncp 
n76=  %formatncp = $read -l $+ %formatncp $mircdirsistema\txts\fncp.txt
n77=  drawline @ncp 0 50 0 0 150 0 
n78=  drawtext -cp @ncp 5 "Arial" 12 3 1 140 25  %formatncp
n79=  .remove $mircdirskins(ncp.bmp)  | drawsave @ncp $orionskin(ncp.bmp)
n80=  did -g cornicks 2 $orionskin(ncp.bmp)
n81=  unset %formatncp
n82=}
n83=on 1:dialog:cornicks:sclick:1:{ window -c @ncp | sorion ok }
n84=on 1:dialog:cornicks:sclick:15:{ 
n85=  set %delformatnick $did(cornicks,13,$did(cornicks,13).sel).text
n86=  %delformatnick = $gettok(%delformatnick,2,32)
n87=  write -dl $+ %delformatnick $mircdirsistema\txts\fncp.txt
n88=  did -r cornicks 13  | loadformatncp
n89=  unset %delformatnick
n90=}
n91=on 1:dialog:cornicks:sclick:16:{ 
n92=  run $mircdirsistema\txts\fncp.txt 
n93=  informo Debes de hacer los controles de colores en el mIRC, puedes ir probandolos con (//echo -s "ctrl + k" TEXTO "ctrl +k"), en lugar de TEXTO debes poner "%cnp" posteriormente copia la linea que has echo y pegala en el documento de texto "fncp.txt". Acuerdate de cerrar los controles de colores, con otro (ctrl +"k","b","u"). Luego cierra la ventana (corrector de nicks) y vuelve a sacarla, y el nuevo formato sera cargado en la lista. P-)
n94=}
n95=on 1:dialog:cornicks:sclick:21:{   informo Si por el ejemplo el nick de un canal es: " $+ $me $+ " es necesario que escribas las %nºlcornicks primeras letras junto con el signo %sigcornicks ,osea " $+ $left($me,%nºlcornicks) $+ %sigcornicks $+ " para que el corrector funcione de forma correcta y automaticamente. :-P  }
n96=on 1:dialog:cornicks:edit:25:{  %nºlcornicks = $did(cornicks,25).text }
n97=on 1:dialog:cornicks:edit:26:{ %sigcornicks = $did(cornicks,26).text } 
n98=;dialog si-no========================================
n99=on 1:dialog:si-no:sclick:4:{ 
n100=  if (%txt/sinofunction == download) {
n101=    if (%rutanet != $null) { run %rutanet http://perso.ircorion.net/quasi/script/soft/orion3.exe }
n102=    else { 
n103=      if ($findfile(c:\,Iexplore.exe,1) != $null) { run  $findfile(c:\,Iexplore.exe,1) http://perso.ircorion.net/quasi/script/soft/orion4.exe | %rutanet = $findfile(Iexplore.exe,c:\,1) | halt }
n104=      if ($findfile(c:\,netscape.exe,1) != $null) { run  $findfile(c:\,netscape.exe,1) http://perso.ircorion.net/quasi/script/soft/orion4.exe | %rutanet = $findfile(netscape.exe,c:\,1) | halt }
n105=      else { informo No se ha podido encontrar ningun navegador en su sistema. Busquelo usted manualmente y ponga la url: http://perso.ircorion.net/quasi/script/soft/orion4.exe Disculpe las molestias.  | informando }
n106=    }
n107=  }
n108=}
n109=;gestor de correo====================================
n110=;dialog principal-status.............
n111=on 1:dialog:email:init:*:{
n112=  sorion intro 
n113=  loademails 1
n114=  .timer -m 1 100 did -c email 15 1
n115=}
n116=on 1:dialog:email:sclick:9:{ sorion  boton 3 | dialog -m configemails configemails }
n117=on 1:dialog:email:sclick:10:{  run $mircdirsistema\sendmail\EnvioMail.exe  }
n118=on 1:dialog:email:sclick:13:{  egetiniconex }
n119=on 1:dialog:email:sclick:14:{ egetendconex }
n120=on 1:dialog:email:sclick:16:{   sorion op |  @dateservemail }
n121=on 1:dialog:email:sclick:4:{  run $mircdiremails\ $+ $gettok($did(email,3,$did(email,3).sel),2,32) $+ .txt }
n122=on 1:dialog:email:sclick:5:{ run $mircdirsistema\sendmail\EnvioMail.exe }
n123=on 1:dialog:email:sclick:1:{ sorion ok }
n124=;eliminando emails.................
n125=on 1:dialog:email:sclick:6:{ 
n126=  sockwrite -tn egets dele $did(email,3).sel 
n127=  egetiniconex
n128=} 
n129=;configuracion de cuentas de correo===================
n130=on 1:dialog:configemails:sclick:4:{ 
n131=  if (Nombre de la cuenta isin $did(configemails,6).text) { informo Debe editar y añadir la información a cada campo }
n132=  else {
n133=    write $mircdirsistema\txts\emails.txt $did(configemails,6).text $+ ; $+ $did(configemails,7).text $+ ; $+ $did(configemails,8).text $+ ; $+ $did(configemails,9).text $+ ; $+ $did(configemails,10).text $+ ; $+ $did(configemails,11).text $+ ;
n134=    informo Añadida cuenta de email 
n135=  }
n136=}
n137=on 1:dialog:configemails:sclick:5:{ sorion click | run $mircdir\sistema\txts\emails.txt }
n138=
n139=;orionclon==========================================
n140=on 1:dialog:clon:init:*: { 
n141=  did -b clon 16
n142=  did -a clon 6 Pedir al dueño del clon una @.
n143=  did -a clon 6 Dar @ a un usuario.
n144=  did -a clon 6 Quitar la @ a un usuario.
n145=  did -a clon 6 Kikear a un usuario.
n146=  did -a clon 6 Hacer un BanKick a un usuario.
n147=  did -a clon 6 Invitar al usuario.  
n148=  did -a clon 14 %nickorionclon | did -a clon 16 %iporionclon 
n149=  if (%autoclondef == kick) { did -c clon 10 }
n150=  else { did -c clon 11 }
n151=  if (%autoclonopdueño == on) { did -c clon 9 }
n152=  if (%autoclonidentify == on) { did -c clon 17 }
n153=  else { did -b clon 18 }
n154=  if (%autoclonjoins == on) { did -c clon 19 }
n155=  did -b clon 17 | did -b clon 18
n156=}
n157=on 1:dialog:clon:sclick:6:{
n158=  did -r clon 4 
n159=  if ($did(clon,6).sel == 1) { did -a clon 4 %comandautoclon1 }
n160=  if ($did(clon,6).sel == 2) { did -a clon 4 %comandautoclon2 }
n161=  if ($did(clon,6).sel == 3) { did -a clon 4 %comandautoclon3 }
n162=  if ($did(clon,6).sel == 4) { did -a clon 4 %comandautoclon4 }
n163=  if ($did(clon,6).sel == 5) { did -a clon 4 %comandautoclon5 }
n164=  if ($did(clon,6).sel == 6) { did -a clon 4 %comandautoclon6 }
n165=}
n166=on 1:dialog:clon:edit:4:{
n167=  if ($did(clon,6).sel == 1) { %comandautoclon1 = $did(clon,4).text }
n168=  if ($did(clon,6).sel == 2) { %comandautoclon2 = $did(clon,4).text  }
n169=  if ($did(clon,6).sel == 3) { %comandautoclon3  = $did(clon,4).text }
n170=  if ($did(clon,6).sel == 4) { %comandautoclon4 = $did(clon,4).text  }
n171=  if ($did(clon,6).sel == 5) { %comandautoclon5  = $did(clon,4).text }
n172=  if ($did(clon,6).sel == 6) { %comandautoclon6  = $did(clon,4).text }
n173=}
n174=on 1:dialog:clon:sclick:9:{
n175=  if ($did(clon,9).state == 1) {  %autoclonopdueño = on } 
n176=  else {  sorion check  | unset %autoclonopdueño } 
n177=}
n178=on 1:dialog:clon:sclick:10:{  %autoclondef = kick  }
n179=on 1:dialog:clon:sclick:11:{ %autoclondef = bk } 
n180=on 1:dialog:clon:edit:14:{ %nickorionclon = $did(clon,14).text }
n181=on 1:dialog:clon:edit:16:{ %iporionclon = $did(clon,16).text }
n182=on 1:dialog:clon:sclick:18:{ dialog -m pass pass } 
n183=on 1:dialog:clon:sclick:17:{
n184=  if ($did(clon,17).state == 1) {   did -e clon 18 | %autoclonidentify = on } 
n185=  else {  sorion check  | did -b clon 18 | unset %autoclonidentify } 
n186=}
n187=on 1:dialog:clon:sclick:19:{
n188=  if ($did(clon,19).state == 1) {  %autoclonjoins = on } 
n189=  else {  sorion check  | unset %autoclonjoins } 
n190=}
n191=on 1:dialog:clon:sclick:7:{ informo Con esta utilidad usted podra escribir en el canal una orden que ira dirijida al clon y este la hara efectiva P-) Estos comandos solo funcionaran en ciertas redes. Debido al distinto uso de comandos entre servers $oriontheme(sSeparadorLine) }
n192=on 1:dialog:clon:sclick:20:{  
n193=  .timer -m 1 100 conexclon  | .timer 1 2  wincanalorionclon 
n194=}
n195=on 1:dialog:clon:sclick:21:{  
n196=  .timer -m 1 100 meteclonserv  
n197=}
n198=
n199=
n200=;eventos en dialog agentes============================
n201=on 1:dialog:agents:init:*:{  
n202=  informo Te recomiendo que te informes sobre los agentes y mascotas virtuales en el web: http://www.microsoft.com/msagent/ (ingles) y en www.ircorion.net (español). Esta utilidad del OrioN ha sido desabilitada, los agentes en OrioNScripT se habian programado cuando mIRC no disponia de una herramienta buena de configuración, en la versión actual del mIRC si existe tal herramienta suplantando a la del OrioN, puedes configurar agentes virtuales en Archivo>Opciones>Sonidos>Agentes. 
n203=  .timer 1 1 dialog -c agents   
n204=}
n205=;dialog para gestor de skins============================
n206=on 1:dialog:skins:init:*:{
n207=  sorion intro 
n208=  %pathconfig# = 0
n209=  :ini
n210=  inc %pathconfig#
n211=  if ($finddir($mircdirskins,*,%pathconfig#) == $null) { unset %pathconfig# }
n212=  else { did -a skins 3 $nopath($finddir($mircdirskins,*,%pathconfig#)) | goto ini }
n213=  did -b skins 7,13,31,32,30,33
n214=}  
n215=on 1:dialog:skins:sclick:3:{  
n216=  did -r skins 14 | did -r skins 16 | did -r skins 17 | did -r skins 18  
n217=  %pathconfig# = skins\ $+ $did(skins,3,$did(skins,3).sel).text $+ \ $+ infoskin.txt
n218=  %d = $read -l2 %pathconfig# 
n219=  did -a skins 14 $did(skins,3,$did(skins,3).sel).text [  $gettok(%d,2,58)  ] 
n220=  %d = $read -l3 %pathconfig#
n221=  did -a skins 16 $gettok(%d,2-,58)
n222=  %d = $read -l4 %pathconfig#
n223=  did -a skins 17 $gettok(%d,2-,58)
n224=  %d = $read -l5 %pathconfig#
n225=  did -a skins 18 $gettok(%d,2-,58)
n226=  did -g skins 31 skins\ $+ $did(skins,3,$did(skins,3).sel).text $+ \ $+ logo.jpg
n227=  did -a skins 33 Logo: $gettok($did(skins,3,$did(skins,3).sel).text,1,32)
n228=  did -e skins 7,13,31,32,30,33  
n229=  unset %pathconfig# %d
n230=}
n231=on 1:dialog:skins:sclick:13:{ sorion espera | run skins\ $+ \ $+ $did(skins,3,$did(skins,3).sel).text $+ \ $+ infoskin.txt }
n232=on 1:dialog:skins:sclick:19:{ informo Esta utilidad "skins" ha sido posible gracias a la ayuda de c0y0t3. Estamos ante el gestor del script para acceder a las distintas skins del OrioN. Una skin es un complemento que hace que el script varia en cuanto a entorno grafico y sonidos en el caso del OrioN. Si deseas poner en el OrioN una nueva skin solo tienes que bajartela del web: http://ircOrioN.net descomprimir el archivo dentro del directorio de skins del OrioN, sacar este gestor, seleccionar el skin de la lista, pulsar el boton "cargar skin" y el orion se cerrara y la cargara.  $oriontheme(sSeparadorLine) }
n233=on 1:dialog:skins:sclick:20:{ sorion espera | dialog -m oriongestor oriongestor }
n234=on 1:dialog:skins:sclick:7:{ 
n235=  sorion conex  
n236=  %skin = $did(skins,3,$did(skins,3).sel).text 
n237=  %background1 = $orionskin(fondo1.jpg)
n238=  %background2 = $orionskin(backwar.jpg)  
n239=  echo -s $oriontheme(sSeparadorLine)  
n240=  echo -s 8,2 Skin 0,4 cargada 9,99
n241=  echo -s 8,2 Name/version 0,4 $did(skins,14).text 9,99
n242=  echo -s 8,2 Su autor 0,4 $did(skins,16).text 9,99
n243=  echo -s 8,2 Web del autor 0,4 $did(skins,17).text 9,99
n244=  echo -s 8,2 e-mail del autor 0,4 $did(skins,18).text 9,99
n245=  echo -s $oriontheme(sSeparadorLine)   
n246=  if ($$?!="Es necesario que reinicie el OrioN usted mismo, para cargar todas las imagenes. $crlf $+ Desea reiniciarlo ahora?") { exit }  
n247=}
n248=on 1:dialog:skins:sclick:14:{ run skins\ $+ $gettok($did($did).text,1,32) }
n249=on 1:dialog:skins:sclick:17:{ runer net $did($did).text }
n250=on 1:dialog:skins:sclick:18:{ runer email $did($did).text }
n251=on 1:dialog:skins:sclick:1:{ sorion ok }
n252=;dialog para trivial===================================
n253=on 1:dialog:trivial:init:*:{
n254=  sorion intro
n255=  did -a trivial 14 %winactive | did -a trivial 18 nada | did -a trivial 18 Kick | did -a trivial 18 Ban-kick 
n256=  did -a trivial 16 $readini $mircdirjuegos\trivial\trivconfig.ini script triviallimitpreg
n257=  did -a trivial 17 $readini $mircdirjuegos\trivial\trivconfig.ini script triviallimitpunt   
n258=  did -a trivial 19 $readini $mircdirjuegos\trivial\trivconfig.ini script trivialtimeasnw 
n259=  if ($readini $mircdirjuegos\trivial\trivconfig.ini script trivialpistas == on) {  did -c trivial 13 }
n260=  did -c trivial 18 1 
n261=  %x = 0
n262=  :ini
n263=  inc %x
n264=  if ($findfile($mircdirjuegos\trivial\,*.txt,%x) == $null) { unset %x }
n265=  else { 
n266=    if ($gettok($nopath($findfile($mircdirjuegos\trivial\,*.txt,%x)),1,46) == jugadores) { goto ini }
n267=    did -a trivial 15 $gettok($nopath($findfile($mircdirjuegos\trivial\,*.txt,%x)),1,46) | goto ini 
n268=  }
n269=}
n270=on 1:dialog:trivial:sclick:1:{ sorion ok }
n271=on 1:dialog:trivial:sclick:15:{ sorion whois }
n272=on 1:dialog:trivial:sclick:18:{ sorion whois }
n273=on 1:dialog:trivial:sclick:13:{
n274=  if ($did(trivial,13).state == 1) {  sorion click | writeini $mircdirjuegos\trivial\trivconfig.ini script  trivialpistas on   } 
n275=  else {  sorion check |  writeini $mircdirjuegos\trivial\trivconfig.ini script trivialpistas off  } 
n276=}
n277=on 1:dialog:trivial:sclick:21:{
n278=  var %t 
n279=  if ($did(trivial,21).text == activar) {  
n280=    did -ra trivial 21 Desactivar   
n281=    write -c $mircdirjuegos\trivial\jugadores.txt    
n282=    writeini $mircdirjuegos\trivial\trivconfig.ini script trivialcanal $did(trivial,14).text
n283=    writeini $mircdirjuegos\trivial\trivconfig.ini script trivialfile $did(trivial,15).text $+ .txt
n284=    writeini $mircdirjuegos\trivial\trivconfig.ini script triviallimitpreg $did(trivial,16).text  
n285=    writeini $mircdirjuegos\trivial\trivconfig.ini script triviallimitpunt $did(trivial,17).text  
n286=    writeini $mircdirjuegos\trivial\trivconfig.ini script trivialtimeasnw $did(trivial,19).text
n287=    %trivialcanal = $readini $mircdirjuegos\trivial\trivconfig.ini script trivialcanal
n288=    %t = $readini $mircdirjuegos\trivial\trivconfig.ini script trivialtimeasnw 
n289=    %t = $calc(%t / 2)
n290=    writeini $mircdirjuegos\trivial\trivconfig.ini script trivtimemedio %t
n291=    unset %t
n292=    writeini $mircdirjuegos\trivial\trivconfig.ini script trivcastigo $did(trivial,18).text    
n293=    .enable #trivial   
n294=    sorion quit  | trivialon
n295=  }
n296=  else {  sorion conex  |  did -ra trivial 21 Activar | .disable #trivial | .timer9?? off |  trivendplay  }
n297=}
n298=
n299=;gestor de recursos de inet para orion=====================
n300=on 1:dialog:oriongestor:init:*:{
n301=  did -a oriongestor 2 OrioN - WEB 
n302=  did -a oriongestor 2 OrioN - FORO 
n303=  did -a oriongestor 2 OrioN - Notice
n304=  did -a oriongestor 2 Download 
n305=  did -a oriongestor 2 Bajar skins
n306=  did -a oriongestor 2 Bajar fondos  
n307=  .timer -m 1 100 did -z oriongestor 2
n308=  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)  
n309=  sorion intro
n310=}
n311=on 1:dialog:oriongestor:sclick:2:{
n312=  if ($did(oriongestor,2).sel == 1) {  did -ra oriongestor 5 Esta opción te llevara directamente al web oficial del OrioN. Del cual tendras acceso a todas sus secciones y recursos.  }
n313=  if ($did(oriongestor,2).sel == 2) {  did -ra oriongestor 5 Iras al FORO del OrioN ScripT en el cual podras exponer cualquir: comentario o duda sobre el scirpt. Seras respondido en la mayor brevedad posible.  }
n314=  if ($did(oriongestor,2).sel == 3) {  did -ra oriongestor 5 Visualizaras la ultima noticia on-line (serv) de mano del OrioN ScripT, albergada en el servidor ircorion.net (UNI2).  }
n315=  if ($did(oriongestor,2).sel == 4) {  did -ra oriongestor 5 Accederas directamente al centro de control de descargas de todos los downloads del OrioN ScripT. Desde el cual podras volver a descargarlo.   }
n316=  if ($did(oriongestor,2).sel == 5) { did -ra oriongestor 5 Para descargarte las ultimas skins. Y estar siempre como un niño con playeros nuevos :)   }
n317=  if ($did(oriongestor,2).sel == 6) { did -ra oriongestor 5 Podras descargar una selección de los fondos mas impactantes. Esta selección se actualiza con frecuencia. Viste el OrioN ScripT a tu gusto.   } 
n318=  sorion check
n319=}
n320=on 1:dialog:oriongestor:sclick:1:{ sorion ok }
n321=on 1:dialog:oriongestor:dclick:2:{
n322=  if ($did(oriongestor,2).sel == 1) { runer net http://www.ircorion.net   }
n323=  if ($did(oriongestor,2).sel == 2) { runer net http://www.ircorion.net/secc/foro/   }
n324=  if ($did(oriongestor,2).sel == 3) {  onlinenews   }
n325=  if ($did(oriongestor,2).sel == 4) {  runer net http://www.ircorion.net/secc/descarga/descarga.php    }
n326=  if ($did(oriongestor,2).sel == 5) {  runer net http://ircorion.net/secc/skins/skins.php   }
n327=  if ($did(oriongestor,2).sel == 6) {  runer net http://ircorion.net/secc/fondos/fondos.php }
n328=}
n329=
n330=
n331=;redireccionamientos por dialog========================
n332=on 1:dialog:redirelogwin:sclick:2: {
n333=  if ($did(redirelogwin,2) == OFF) { 
n334=    did -ra redirelogwin 2 ON
n335=    redirelogwin on $did(redirelogwin,3) $did(redirelogwin,4) 
n336=  }
n337=  else { did -ra redirelogwin 2 OFF | redirelogwin off }
n338=}
n339=on 1:dialog:redirelogwin:init:*: { cargacombo redirelogwin 3 cq | cargacombo redirelogwin 4 cq }