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