[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 escaneador de puertos====================================
n14=on 1:dialog:scan:init:*:{  
n15=  inicdll  |  dll $dllmdx SetBorderStyle $dname 26 none | dll $dllmdx SetColor $dname 26 background $rgb(62,62,102)   | dll $dllmdx SetFont $dname 26 12 700 arial | dll $dllmdx SetColor $dname 26 textbg $rgb(62,62,102) | dll $dllmdx SetColor $dname 26 text $rgb(204,204,211)    
n16=  sorion intro 
n17=  infotxt@ Ejecución del ʧçÄnéÀÐøR de puertos y clones.
n18=  did -c scan 21 
n19=  if ($window(@ScaN_Canal-Nicks) != $null) { window -c @ScaN_Canal-Nicks }
n20=} 
n21=on 1:dialog:scan:sclick:28:{
n22=  if ($did(scan,10).text  == $null) || ($did(scan,11).text  == $null) { informo Es necesario que especifiques la ip y el nick del usuario a escanear, puedes obtenerla haciendo un whois al usuario, luego copia  y pega en la casilla correspondiente del scan  :-) $oriontheme(sSeparadorLine) | halt }
n23=  did -b scan 10 | did -b scan 11
n24=  .timerbarrido* off 
n25=  if ($did(scan,12).state != 0) {  set %s.name Telnet |  set %s.ip $did(scan,10).text   |  set %s.port  23 | scanon     }
n26=  if ($did(scan,13).state != 0) {  set %s.name Finger |  set %s.ip $did(scan,10).text   |  set %s.port  79  | scanon  }
n27=  if ($did(scan,14).state != 0) {  set %s.name Ident  |  set %s.ip $did(scan,10).text   |  set %s.port  113  | scanon     }
n28=  if ($did(scan,15).state != 0) {  set %s.name Win-NT |  set %s.ip $did(scan,10).text   |  set %s.port  135 | scanon   }
n29=  if ($did(scan,16).state != 0) {  set %s.name Win-95 |  set %s.ip $did(scan,10).text   |  set %s.port  139  | scanon   }
n30=  if ($did(scan,17).state != 0) {  set %s.name Win-Gate |  set %s.ip $did(scan,10).text   |  set %s.port  1080  | scanon      }
n31=  if ($did(scan,18).state != 0) {  set %s.name NetBus |  set %s.ip $did(scan,10).text   |  set %s.port  12345  | scanon   }
n32=  if ($did(scan,19).state != 0) {   set %s.name BO |  set %s.ip $did(scan,10).text   |  set %s.port  31337 | scanon   }
n33=  if ($did(scan,21).state != 0) { scanong }
n34=}
n35=
n36=on 1:dialog:scan:sclick:30:{  .timerbarrido* off  |  .timermoveicon* off | did -e scan 10 | did -e scan 11 | sorion cancel }
n37=on 1:dialog:scan:sclick:31:{  .timerbarrido* off   | did -r scan 26 | did -r scan 27 | unset %s.* %p.*  |  .timermoveicon* off  | did -e scan 10 | did -e scan 11 | sorion cancel } 
n38=on 1:dialog:scan:sclick:1:{ sorion ok | unset %s.*  |  .timerbarrido* off  |  .timermoveicon* off  |  did -r scan 25   }
n39=on 1:dialog:scan:sclick:25:{ cargalinescan }
n40=on 1:dialog:scan:sclick:32:{  set %s.name ¿? |  set %s.ip $did(scan,10).text |  .timerotro -m 1 10 otro  }
n41=on 1:dialog:scan:sclick:21:{ unset %s.* }
n42=on 1:dialog:scan:sclick:33:{ 
n43=  if ($did(scan,10).text  == $null) || ($did(scan,11).text  == $null) { informo Es necesario que especifiques la ip y el nick del usuario a escanear, puedes obtenerla haciendo un whois al usuario, luego copia  y pega en la casilla correspondiente del scan  :-) $oriontheme(sSeparadorLine) | halt }
n44=  scanclonesd 
n45=}
n46=
n47=on 1:dialog:scan:sclick:*:{ did -e scan 11 |  did -e scan 10 }
n48=on 1:dialog:scan:sclick:1:{ sorion ok }
n49=;dialog de carga y descarga de addons "addons"==============
n50=on 1:dialog:addons:init:*: {     
n51=  inicdll  
n52=  dll $dllmdx SetColor $dname 10 background $rgb(62,62,102)   | dll $dllmdx SetFont $dname 11 12 700 arial | dll $dllmdx SetColor $dname 10 textbg $rgb(62,62,102) | dll $dllmdx SetColor $dname 10 text $rgb(204,204,211)    
n53=  dll $dllmdx SetBorderStyle $dname 10 none | dll $dllmdx SetColor $dname 3 background $rgb(62,62,102)   | dll $dllmdx SetFont $dname 3 12 700 arial | dll $dllmdx SetColor $dname 3 textbg $rgb(62,62,102) | dll $dllmdx SetColor $dname 3 text $rgb(204,204,211)    
n54=  cargaaddons $mircdiraddons | sorion intro 
n55=  infotxt@ 11Ejecutando cargador y descargador de addons 
n56=  did -r addons 10
n57=  .timer -m 1 100 did -a addons 10 $findfile($mircdiraddons,$did(addons,3,$did(addons,3).sel).text,1)
n58=}
n59=on 1:dialog:addons:sclick:7: { sorion espera | .timer -m 1 100 opendiraddons }
n60=on 1:dialog:addons:sclick:4: {  load -rs $did(addons,10).text }
n61=on 1:dialog:addons:sclick:5: {   unload -rs $did(addons,10).text  }
n62=on 1:dialog:addons:sclick:3: {  
n63=  did -r addons 10
n64=  did -a addons 10 $findfile(%diraddonini,$did(addons,3,$did(addons,3).sel).text,1)
n65=}
n66=on 1:dialog:addons:sclick:1: { unset %diraddonini | sorion ok }
n67=;dialog de colores del orion=============================
n68=on 1:dialog:color:init:*: { sorion intro }
n69=on 1:dialog:color:sclick:3: { set %selcolor 0  | dialog -x color color  | interfacecolor  }
n70=on 1:dialog:color:sclick:4: {   set %selcolor 1 | dialog -x color color | interfacecolor  }
n71=on 1:dialog:color:sclick:5: {  set %selcolor 2 | dialog -x color color | interfacecolor  }
n72=on 1:dialog:color:sclick:6: { set %selcolor 3 | dialog -x color color | interfacecolor  }
n73=on 1:dialog:color:sclick:7: {  set %selcolor 4 | dialog -x color color | interfacecolor  }
n74=on 1:dialog:color:sclick:8: {   set %selcolor 5 | dialog -x color color | interfacecolor  }
n75=on 1:dialog:color:sclick:9: {   set %selcolor 6 | dialog -x color color | interfacecolor  }
n76=on 1:dialog:color:sclick:10: {  set %selcolor 7  | dialog -x color color | interfacecolor }
n77=on 1:dialog:color:sclick:11: {  set %selcolor 8 | dialog -x color color | interfacecolor  }
n78=on 1:dialog:color:sclick:12: {  set %selcolor 9 | dialog -x color color | interfacecolor  }
n79=on 1:dialog:color:sclick:13: {  set %selcolor 10 | dialog -x color color | interfacecolor  }
n80=on 1:dialog:color:sclick:14: {  set %selcolor 11 | dialog -x color color | interfacecolor  }
n81=on 1:dialog:color:sclick:15: {   set %selcolor 12 | dialog -x color color | interfacecolor  }
n82=on 1:dialog:color:sclick:16: {   set %selcolor 13 | dialog -x color color | interfacecolor  }
n83=on 1:dialog:color:sclick:17: {  set %selcolor 14 | dialog -x color color | interfacecolor  }
n84=on 1:dialog:color:sclick:18: {  set %selcolor 15 | dialog -x color color | interfacecolor  }
n85=
n86=;eventos para dialogs background=======================
n87=on 1:dialog:background:init:*: {
n88=  sorion intro  
n89=  var %e 
n90=  %e = 0
n91=  :ini
n92=  inc %e
n93=  if ($findfile($mircdirbackground,*.jpg,%e) != $null)  { did -a background  5 $nopath($findfile($mircdirbackground,*.jpg,%e)) | goto ini }
n94=} 
n95=on 1:dialog:background:sclick:5: { did -g background 8 $mircdirbackground\ $+ $did(background,5,$did(background,5).sel) }
n96=on 1:dialog:background:sclick:6: {
n97=  sorion whois   
n98=  %background1 = $mircdirbackground\ $+ $did(background,5,$did(background,5).sel)
n99=  background -mf %background1
n100=}
n101=on 1:dialog:background:sclick:9: {
n102=  sorion espera 
n103=  dialog -m oriongestor oriongestor
n104=}
n105=on 1:dialog:background:sclick:1: { sorion ok }
n106=on 1:dialog:background:sclick:100: { dialog -m skins skins  }
n107=;F-SERVER=============================================================
n108=on 1:dialog:fserver:init:*: {
n109=  sorion intro 
n110=  if (%fserver == on ) { 
n111=    did -b fserver 8 | did -b fserver 9 | did -b fserver 11 | did -b fserver 8 | did -b fserver 17 | did -b fserver 4    
n112=    did -b fserver 22 | did -b fserver 23 | did -b fserver 24 | did -b fserver 29  
n113=  }
n114=  if (%contenidofserver != $null) { did -a fserver 4 %contenidofserver }  
n115=  infotxt@ Estacion de control para el servidor de archivos
n116=  if (%anufserver == on) {  .timeranufserver 0 $gettok(%timeanufserver,1,32) anunciafserver }
n117=  did -b fserver 19 
n118=  did -a fserver 22 5 seg |   did -a fserver 22 10 seg |   did -a fserver 22 20 seg |   did -a fserver 22 30 seg 
n119=  did -a fserver 22 40 seg |   did -a fserver 22 50 seg |   did -a fserver 22 1 min |   did -a fserver 22 15 min 
n120=  did -a fserver 22 30 min |   did -a fserver 22 1 hora
n121=  if ($group(#fserver) == on) { did -a fserver 19 Activado | did -c fserver 19 }
n122=  if ($group(#fserver)  == off) { did -a fserver 19 Desactivado  }
n123=  if (%anufserver == on) {  did -c fserver 23 }
n124=  if (%anufserver == off) {  did -c fserver 24 | did -b fserver 22 }
n125=  if (%dirfserver != $null) { did -a fserver 8 %dirfserver }
n126=  if (%passfserver != $null) { did -a fserver 11 %passfserver }
n127=  if (%maxgetsfserver != $null) { did -a fserver 15 %maxgetsfserver }
n128=  if (%maxusersfserver  != $null) { did -a fserver 17 %maxusersfserver  }
n129=  if (%credfserver != $null) { did -a fserver 13 %credfserver }
n130=  if (%timeanufserver != $null) { 
n131=    if (%timeanufserver == 5) { .timerdidfserver -m 1 100 did -c fserver 22 1 } 
n132=    if (%timeanufserver == 10) { .timerdidfserver -m 1 100 did -c fserver 22 2 } 
n133=    if (%timeanufserver == 20) { .timerdidfserver -m 1 100 did -c fserver 22 3 } 
n134=    if (%timeanufserver == 30) { .timerdidfserver -m 1 100 did -c fserver 22 4 } 
n135=    if (%timeanufserver == 40) { .timerdidfserver -m 1 100 did -c fserver 22 5 } 
n136=    if (%timeanufserver == 50) {  .timerdidfserver -m 1 100 did -c fserver 22 6 } 
n137=    if (%timeanufserver == 60) {  .timerdidfserver -m 1 100 did -c fserver 22 7 } 
n138=    if (%timeanufserver == 900) { .timerdidfserver -m 1 100 did -c fserver 22 8 } 
n139=    if (%timeanufserver == 1800) {  .timerdidfserver -m 1 100 did -c fserver 22 9 } 
n140=    if (%timeanufserver == 3600) { .timerdidfserver -m 1 100 did -c fserver 22 10 } 
n141=  }
n142=}
n143=on 1:dialog:fserver:edit:8: { set %dirfserver $did(fserver,8).text }
n144=on 1:dialog:fserver:sclick:9: { .timerfserver -m 1 100 dirfserver | sorion espera }
n145=on 1:dialog:fserver:edit:11: { set %passfserver $did(fserver,11).text }
n146=on 1:dialog:fserver:edit:13: { set %credfserver $did(fserver,13).text }
n147=on 1:dialog:fserver:edit:15: { set %maxgetsfserver $did(fserver,15).text }
n148=on 1:dialog:fserver:edit:17: {  set %maxusersfserver $did(fserver,17).text }
n149=on 1:dialog:fserver:sclick:22: { set %timeanufserver 
n150=  if ($did(fserver,22).sel == 1) { set %timeanufserver 5 }
n151=  if ($did(fserver,22).sel == 2) { set %timeanufserver 10 }
n152=  if ($did(fserver,22).sel == 3) { set %timeanufserver 20 }
n153=  if ($did(fserver,22).sel == 4) { set %timeanufserver 30 }
n154=  if ($did(fserver,22).sel == 5) { set %timeanufserver 40 }
n155=  if ($did(fserver,22).sel == 6) { set %timeanufserver 50 }
n156=  if ($did(fserver,22).sel == 7) { set %timeanufserver 60 }
n157=  if ($did(fserver,22).sel == 8) { set %timeanufserver 900 }
n158=  if ($did(fserver,22).sel == 9) { set %timeanufserver 1800 }
n159=  if ($did(fserver,22).sel == 10) { set %timeanufserver 3600 }
n160=}
n161=on 1:dialog:fserver:sclick:23: { set %anufserver on | did -e fserver 22  }
n162=on 1:dialog:fserver:sclick:24: {  set %anufserver off | did -b fserver 22 | .timeranufserver off }
n163=on 1:dialog:fserver:sclick:25: { fserveron | sorion conex }
n164=on 1:dialog:fserver:sclick:26: { fserveroff | sorion quit }
n165=on 1:dialog:fserver:sclick:27: { anunciafserver }
n166=on 1:dialog:fserver:sclick:1: { sorion ok 
n167=  if (%anufserver == on) { .timerfserver 0 %timeanufserver anunciafserver }
n168=  if (%anufserver == off) { .timerfserver off }
n169=}
n170=on 1:dialog:fserver:sclick:29: {  run $mircdirsistema\txts\welcomefserver.txt }
n171=on 1:dialog:fserver:edit:4: { set %contenidofserver $did(fserver,4).text } 
n172=;caritas================================================================
n173=on *:dialog:caritas:init:*:{ 
n174=  sorion intro
n175=  infotxt@ 11Ejecutando dibujante de caritas predefinidas 
n176=  cargacaritas 
n177=}
n178=on *:dialog:caritas:sclick:2:{ 
n179=  set %txtcarita $read -l $+ $did(caritas,2).sel $mircdirsistema\txts\caritas.txt
n180=  set %txtcarita $gettok(%txtcarita,1,32)
n181=  did -r caritas 4 | did -a caritas 4 $strip(%txtcarita)
n182=}
n183=on *:dialog:caritas:sclick:1:{ sorion ok }
n184=on *:dialog:caritas:sclick:3:{  msg %winactive  %txtcarita | sorion op }
n185=on *:dialog:caritas:sclick:6:{  run  $mircdir\sistema\txts\caritas.txt | sorion espera } 
n186=on *:dialog:caritas:sclick:7:{ informo Puedes añadir las caritas que tu quieras para ello debes de presionar sobre el boton editar :D $oriontheme(sSeparadorLine)    } 
n187=;USUARIOS CON ACCESO REMOTOS=======================================
n188=on 1:dialog:usuarios:init:*: {
n189=  infotxt@ Panel de configuración para usuarios con acceso   
n190=  .load -rs remote.ini 
n191=  did -a usuarios 9 Usuarios con acceso "amigos" 
n192=  did -a usuarios 9 Usuarios con acceso "amigos de toa la vida"
n193=  did -a usuarios 9 Usuarios con acceso "enemigos"
n194=  did -a usuarios 9 Usuarios con acceso "enemigos a muerte"
n195=  if ($group(#usuarios).status == on) { did -c usuarios 15 }
n196=}
n197=on 1:dialog:usuarios:sclick:1: { sorion ok  }
n198=on 1:dialog:usuarios:sclick:9: { pip
n199=  did -r usuarios 7
n200=  did -r usuarios 14  
n201=  did -r usuarios 2 $did(usuarios,2).sel 
n202=  if ($did(usuarios,9).text == Usuarios con acceso "amigos") {  did -a usuarios 7 300 |   did -a usuarios 14 El script pondra @ a esta clase de usuarios, cuando estos ejecutes un join al  canal donde te encuentras. |  set %leveluser 300 }
n203=  if ($did(usuarios,9).text == Usuarios con acceso "amigos de toa la vida") { did -a usuarios 7 500 |  did -a usuarios 14 El script pondra @ a esta clase de usuarios, ademas de protegerles de posibles ataques por otros usuarios. | set %leveluser 500     }
n204=  if ($did(usuarios,9).text == Usuarios con acceso "enemigos") { did -a usuarios 7 100 |  did -a usuarios 14  Pobrecito nada mas que intente ponerse @ el script se la quitara (en caso de que tu la tengas), tambien ejecutare ofensivas contra el enemigo una vez que este ataque a otro usuario | set %leveluser 100    }
n205=  if ($did(usuarios,9).text == Usuarios con acceso "enemigos a muerte") {  did -a usuarios 7 45 |   did -a usuarios 14 Con este acesso vamos a dejar echo polvo al enemigo, nada mas que ejcute un join le baneare y luego le metere una patada. | set %leveluser 45   }
n206=  caragausersini 
n207=}
n208=on 1:dialog:usuarios:sclick:15: { 
n209=  if ($did(usuarios,15).state == 1) { did -r usuarios 14 | did -a usuarios 14 Has activado las acciones que el script ejecutara de forma automatica sobre los usuarios expuestos en las distintas secciones de clases de acceso remoto. | .enable #usuarios  }
n210=  else { did -a usuarios 14 Has desactivado las acciones sobre usuarios | .disable #usuarios }
n211=}
n212=on 1:dialog:usuarios:sclick:12: { 
n213=  set %user $did(usuarios,11).text 
n214=  if ($did(usuarios,11).text != $null) && ( $did(usuarios,9).text != $null) { 
n215=    if ($did(usuarios,9).text == Usuarios con acceso "amigos") { 
n216=      aauser %leveluser %user 
n217=      echo -s $oriontheme(sSeparadorLine)
n218=      echo -s 4,1[0,1 Añadido usuario con acceso:9 amigo4 ]4[ 8Nick: 11 %user 8Nivel: 11 %leveluser 4 ] 0,99
n219=      echo -s $oriontheme(sSeparadorLine)
n220=    } 
n221=    if ($did(usuarios,9).text == Usuarios con acceso "amigos de toa la vida") { 
n222=      .auser %leveluser  %user  
n223=      echo -s $oriontheme(sSeparadorLine)
n224=      echo -s 4,1[0,1 Añadido usuario con acceso:9 amigo de toa la vida4 ]4[ 8Nick: 11 %user 8Nivel: 11 %leveluser 4 ] 0,99
n225=      echo -s $oriontheme(sSeparadorLine)
n226=    } 
n227=    if ($did(usuarios,9).text == Usuarios con acceso "enemigos") { 
n228=      .auser %leveluser  %user  
n229=      echo -s $oriontheme(sSeparadorLine)
n230=      echo -s 4,1[0,1 Añadido usuario con acceso: 9enemigo 4 ]4[ 8Nick: 11 %user 8Nivel: 11 %leveluser 4 ] 0,99
n231=      echo -s $oriontheme(sSeparadorLine)
n232=    } 
n233=    if ($did(usuarios,9).text == Usuarios con acceso "enemigos a muerte") {
n234=      .auser %leveluser  %user
n235=      echo -s $oriontheme(sSeparadorLine)
n236=      echo -s 4,1[0,1 Añadido usuario con acceso:9 enemigo a muerte4 ]4[ 8Nick: 11 %user 8Nivel: 11 %leveluser 4 ] 0,99
n237=      echo -s $oriontheme(sSeparadorLine)
n238=    } 
n239=    did -a usuarios 2  $did(usuarios,11).text | did -r usuarios 11 
n240=    .load -rs remote.ini 
n241=  }
n242=  else { informo Para insertar un nuevo usuario en la lista de usuarios con acceso, debes de escribirlo en el cuadro de edicción y seleccionar un tipo de acceso en la lista :-) $oriontheme(sSeparadorLine) }
n243=}
n244=on 1:dialog:usuarios:sclick:13: { 
n245=  set %txtuser $did(usuarios,2,$did(usuarios,2).sel).text
n246=  if (%txtuser != $null) { 
n247=    echo -s $oriontheme(sSeparadorLine)
n248=    echo -s  4,1[0,1 Eliminado usuario 4 ]4[ 8Nick: 11 %txtuser 4] 0,99
n249=    echo -s $oriontheme(sSeparadorLine)  
n250=    .ruser %txtuser
n251=    did -d usuarios 2 $did(usuarios,2).sel 
n252=    unset %txtuse* 
n253=    .load -rs remote.ini 
n254=  }
n255=  else {  informo Para eliminar un usuario de la lista de usuarios con acceso, debes de seleccionarlo en la lista :-P $oriontheme(sSeparadorLine) }
n256=}
n257=;dialog "informo"=====================================
n258=on 1:dialog:informo:init:*: { 
n259=  infotxt@ 11Estacion de información ejecutada  
n260=  sorion info 
n261=}
n262=on 1:dialog:informo:sclick:1: { sorion ok }
n263=;dialog de listado de files recibidos=========================
n264=on 1:dialog:getfile:init:*: { 
n265=  inicdll  |  dll $dllmdx SetColor $dname 3 background $rgb(62,62,102)   | dll $dllmdx SetFont $dname 3 12 700 arial | dll $dllmdx SetColor $dname 3 textbg $rgb(62,62,102) | dll $dllmdx SetColor $dname 3 text $rgb(204,204,211)   
n266=  if (%autoejecutsacar-getfile == on) { did -c getfile 7 } 
n267=  infotxt@ 11Panel de archivos recibidos 0[4 $mircdirficheros 1] 
n268=  sorion intro | cargagetfile 
n269=}
n270=on 1:dialog:getfile:sclick:4: { sorion conex | run $mircdirficheros\ $+ $did(getfile,3,$did(getfile,3).sel).text  } 
n271=on 1:dialog:getfile:sclick:6: { sorion cancel | remove $mircdirficheros\ $+ $did(getfile,3,$did(getfile,3).sel).text | .timeractgetfile 1 1 cargagetfile } 
n272=on 1:dialog:getfile:sclick:7: { 
n273=  if ($did(getfile,7).state == 1) {  %autoejecutsacar-getfile = on }
n274=  else {  sorion check | unset %autoejecutsacar-getfile }
n275=}
n276=on 1:dialog:getfile:sclick:3: { sorion info  }
n277=on 1:dialog:getfile:sclick:1: { sorion info }
n278=;dialog de canales===================================
n279=on 1:dialog:canales:init:*: { 
n280=  inicdll | 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)  
n281=  infotxt@ 11Gestor de canales predefinidos ejecutado 
n282=  if (%conexejecutsacar-canales == on) { did -c canales 9 } 
n283=  sorion intro | cargacanales | did -ck canales 3 1
n284=}
n285=
n286=on 1:dialog:canales:sclick:4: { run $mircdirsistema\txts\canales.txt | informo En este archivo puedes escribir y borrar los canales que quieras siguiendo el formato actual. No olvides incluir los signos identificatorios de los canales (#). $oriontheme(sSeparadorLine) | sorion espera  }
n287=on 1:dialog:canales:sclick:10: { 
n288=  sorion whois  
n289=  set %x 0
n290=  :ini
n291=  inc %x
n292=  if ($did(canales,3,%x).sel != $null) { join $did(canales,3,$did(canales,3,%x).sel).text | goto ini }
n293=  else { unset %x }
n294=}
n295=on 1:dialog:canales:sclick:5: { .timerjoin -m 1 100 joincanal  | sorion espera }
n296=on 1:dialog:canales:sclick:6: { .timerjoinpass -m 1 100 joinpass  | sorion espera }
n297=on 1:dialog:canales:sclick:7: { list  | sorion espera }
n298=on 1:dialog:canales:sclick:8: { dialog -m redes redes | did -c redes 4 }
n299=on 1:dialog:canales:sclick:9: { 
n300=  if ($did(canales,9).state == 1) {  %conexejecutsacar-canales = on }
n301=  else {  sorion click | unset %conexejecutsacar-canales }
n302=}
n303=on 1:dialog:canales:dclick:3: { join $did($dname,$did,$did($dname,$did).sel).text | sorion espera } 
n304=on 1:dialog:canales:sclick:1: { sorion ok }
n305=;dialog de colores para nicks "colornicks"===================
n306=on 1:dialog:colornicks:init:*: { sorion intro | colorsnicks }
n307=on 1:dialog:colornicks:sclick:11: { dialog -m color color | set %pncolor 1 }
n308=on 1:dialog:colornicks:sclick:12: {  dialog -m color color | set %pncolor 2 }
n309=on 1:dialog:colornicks:sclick:13: {  dialog -m color color | set %pncolor 3 }
n310=on 1:dialog:colornicks:sclick:14: {  dialog -m color color | set %pncolor 4 }
n311=on 1:dialog:colornicks:sclick:19: { informo Desde esta ventana puedes pintar los tipos de nicks que salen en la lista de nicks de un canal cualquiera. Asi pues puedes pintar tu nick de un color concreto, o los nicks que tienes en la lista de notificacion, o aquellos que tienes con acceso, ya sea enemigo o amigo, etc. Con la unica finalidad de poder distingir visualmente a los tipos de nicks de forma mas rapida. Recuerda que el coloreado de nicks se producira al poco de entrar en un canal, tras unos segundos de espera, para obtimizar mas OrioN. $oriontheme(sSeparadorLine) } 
n312=on 1:dialog:colornicks:sclick:1: { sorion ok }
n313=;eventos para config redes===========================
n314=on 1:dialog:redes:init:*:{ 
n315=  inicdll 
n316=  dll $dllmdx SetColor $dname 9 background $rgb(76,76,99) | dll $dllmdx SetFont $dname 9 12 700 arial | dll $dllmdx SetColor $dname 9 textbg $rgb(76,76,99) | dll $dllmdx SetColor $dname 9 text $rgb(204,204,211)  
n317=  dll $dllmdx SetColor $dname 13 background $rgb(76,76,99) | dll $dllmdx SetFont $dname 1312 700 arial | dll $dllmdx SetColor $dname 13 textbg $rgb(76,76,99) | dll $dllmdx SetColor $dname 13 text $rgb(204,204,211)  
n318=  dll $dllmdx SetColor $dname 18 background $rgb(76,76,99) | dll $dllmdx SetFont $dname 1812 700 arial | dll $dllmdx SetColor $dname 18 textbg $rgb(76,76,99) | dll $dllmdx SetColor $dname 18 text $rgb(204,204,211)  
n319=  dll $dllmdx SetColor $dname 25 background $rgb(76,76,99) | dll $dllmdx SetFont $dname 2512 700 arial | dll $dllmdx SetColor $dname 25 textbg $rgb(76,76,99) | dll $dllmdx SetColor $dname 25 text $rgb(204,204,211)  
n320=  sorion intro 
n321=  verconfredes 
n322=}
n323=on 1:dialog:redes:sclick:9:{ verconfredesreg   }
n324=on 1:dialog:redes:sclick:10:{ creaconfredes }
n325=on 1:dialog:redes:sclick:48:{ 
n326=  sorion espera  
n327=  set %d $$file="Seleccione el fichero (addon) para el control de la red"
n328=  writeini $mircdirsistema\RedesConfig\ $+ $did(redes,9,$did(redes,9).sel).text $+ .ini  addoncontrol acpath %d
n329=  echo -s Addon cargado (Menu control Bots): %d 
n330=  echo -s Habilitado para Red: $did(redes,9,$did(redes,9).sel).text  
n331=  unset %d 
n332=}
n333=on 1:dialog:redes:sclick:11:{ 
n334=  if ($did(redes,9).sel) {  
n335=    %d = $mircdirsistema\RedesConfig\ $+ $did(redes,9,$did(redes,9).sel).text $+ .ini  
n336=    if ($did(redes,9,$did(redes,9).sel).text != REDefault) { .remove %d | echo -s Eliminada configuración de red: %d }
n337=    else { informo Esta red no puede ser eliminada. Configure en ella todas las opciones para que sean usadas en las redes que no añadas a la lista. }  
n338=    unset %d | verconfredes 
n339=    sorion cancel      
n340=  }
n341=}
n342=on 1:dialog:redes:sclick:14:{ addconfredesreg bot | sorion whois }
n343=on 1:dialog:redes:sclick:15:{ delconfredesreg bot $did(redes,13,$did(redes,13).sel)).text  | sorion cancel }
n344=on 1:dialog:redes:sclick:17:{ setconfredesreg 17 opconoff autoidentify on | sorion op  }
n345=on 1:dialog:redes:sclick:29:{ setconfredesreg 29 opconoff autojoin on  | sorion op  }
n346=on 1:dialog:redes:sclick:18:{ 
n347=  %d = identify· $+ $did(redes,18,$did(redes,18).sel).text $+ · $+ *
n348=  %f = $mircdirsistema\RedesConfig\ $+ $did(redes,9,$did(redes,9).sel).text $+ .ini 
n349=  %d = $gettok($read(%f,w,%d),3,183)
n350=  did -r redes 23 | did -a redes 23 %d
n351=  unset %d %f
n352=  sorion whois
n353=}
n354=on 1:dialog:redes:sclick:19:{ addconfredesreg identify |  sorion whois  }
n355=on 1:dialog:redes:sclick:20:{ delconfredesreg identify $did(redes,18,$did(redes,18).sel).text |  sorion cancel }
n356=on 1:dialog:redes:sclick:26:{ addconfredesreg join  | sorion whois }
n357=on 1:dialog:redes:sclick:58:{ setconfredesreg 58 addoncontrol loadaddon on | sorion click }
n358=on 1:dialog:redes:sclick:27:{ delconfredesreg join $did(redes,25,$did(redes,25).sel).text  | sorion cancel }
n359=on 1:dialog:redes:sclick:31:{ setconfredesreg 31 modos usermodi on  | sorion click } 
n360=on 1:dialog:redes:sclick:32:{ setconfredesreg 32 modos usermodw on  | sorion click }
n361=on 1:dialog:redes:sclick:34:{ setconfredesreg 34 modos usermods on  | sorion click }
n362=on 1:dialog:redes:sclick:36:{ setconfredesreg 36 modos usermodr on  | sorion click }
n363=on 1:dialog:redes:edit:37:{ setconfredesreg 37 modos usermod $did(redes,37).text  }
n364=on 1:dialog:redes:edit:40:{ setconfredesreg 40 comandos comando $did(redes,40).text  }
n365=on 1:dialog:redes:edit:43:{ setconfredesreg 43 comandos ircopu $did(redes,43).text  }
n366=on 1:dialog:redes:edit:45:{ setconfredesreg 45 comandos ircopp $did(redes,45).text  }
n367=on 1:dialog:redes:edit:52:{ setconfredesreg 52 comandos nick $did(redes,52).text  }
n368=on 1:dialog:redes:edit:54:{ setconfredesreg 54 comandos uid $did(redes,54).text  }
n369=on 1:dialog:redes:sclick:56:{ setconfredesreg 56 comandos snotice on  | sorion click }
n370=on 1:dialog:redes:sclick:16:{ informo En esta lista debes añadir todos los bots operativos de la red. Puedes hacerlo insertando su nick o mask. $crlf $+ Ejpl 1 (nick): ChaN $crlf $+ Ejpl 2 (mask): *!*@dee.space $crlf $+ Es mas seguro y efectivo insertar el Mask (mascara). $crlf . $crlf $+ ADDON; Si dispones de un addon de control para un mejor uso de los comandos de la red, debes pulsar el boton "addon control" e indicarle la ruta de localización de dicho addon, para que este sea cargado al conectarse a la red. }
n371=on 1:dialog:redes:sclick:21:{ informo Si deseas que el OrioN te auto-identifique tu nick, pulsa sobre "Añadir nick" e inserta tu nick, y a continuación el comando que tiene su red para esta función, si el comando lo precisa debes añadir tu nick, password y todos aquellos datos que necesite. }
n372=on 1:dialog:redes:sclick:24:{ informo Visualización del comando de identificación. $crlf $+ A cada nick le debe corresponder su comando de identificación con su password y demas parametros que precise. Cada RED puede disponer de su propio sistema de identificación por ello debes ser tu quien indique cual es ese sistema (comando). Gracias. ;) }
n373=on 1:dialog:redes:sclick:59:{ informo Esta utilidad solo funcionara si se produce una reconexión (a la misma red), puesto que se activa al conectar y una vez dentro de la red no puedes hacer un cambio del UserIdent, al no estar permitido por IRC.  }
n374=on 1:dialog:redes:sclick:28:{ informo Inserta todos los canales (sin #), en los que quieres entrar de forma automatica al conectar a la red. Acuerdate de activar el auto-join, casilla situada en la parte superior. Puedes tener la lista de canales para auto-join preparada pero sin que se lleve a cabo devido a que esa casilla se encutre desactivada. }
n375=on 1:dialog:redes:sclick:47:{ informo Si la red dispone de unos modos especificos, puedes escribirlos aqui para que se activen, no debes incluir el signo mas "+". Puesto que este ya es sobreentendido por el OrioN. }  
n376=on 1:dialog:redes:sclick:57:{ informo Puedes escribir una linea de comandos para que esta sea ejecutada por el OrioN al conectar a la red. Si deseas especificar mas de un comando puedes separarlos por el signo "|" y un espacio a cada lado de el. }
n377=on 1:dialog:redes:sclick:1:{ sorion ok }
n378=on 1:dialog:redes:sclick:60:{ informo Al incluir todos los bots de una red, el OrioN podra distinguir entre bots y users, haciendo mas efectiva la gestión de procesos: ataques, saludos, defensas, peticiones, automatizaciones, etc.  Como verás algunos bots de las redes mas importantes ya vienen añadidos por defecto. Es mas seguro que añadas direcciones fijas del bot si estas las sabes, si no puedes añadir el nick del bot. }