[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=;espia de nicks en win personalizada===================== n14=on *:close:@espianick:{ n15= echo -s 0,15 0,14 0,4 Cerrando 0,2 Espiador de nicks 9,99 n16= .timerespianick off n17=} n18=;win del clon por sockets [personalizada]................ n19= n20=menu @cloncanal* { n21= $strip($sline($active,1)):/ n22= .op: sendsockorion MODE $gettok($active,2,58) +o $remove($strip($sline($active,1)),@) | .timer 1 1 loadnicks#orionclon $gettok($active,2,58) n23= .deop: sendsockorion MODE $gettok($active,2,58) -o $remove($strip($sline($active,1)),@) | .timer 1 1 loadnicks#orionclon $gettok($active,2,58) n24= .kick: sendsockorion KICK $gettok($active,2,58) $remove($strip($sline($active,1)),@) | .timer 1 1 loadnicks#orionclon $gettok($active,2,58) n25= .b+k: { n26= sendsockorion MODE $gettok($active,2,58) +b $address($remove($strip($sline($active,1)),@),2) n27= sendsockorion KICK $gettok($active,2,58) $remove($strip($sline($active,1)),@) n28= .timer 1 1 loadnicks#orionclon $gettok($active,2,58) n29= } n30= - n31= conex n32= .Desconectar: sockclose orionclon n33= .Reconectar: sockopen orionclon $server $port n34= .- n35= .salir con msg: { n36= sendsockorion quit $gettok($active,2,58) $$?="Mensaje de salida" n37= echo -s CLON saliendo... $gettok($target,2,58) n38= } n39= - n40= $gettok($active,2,58) n41= .recargar nicks: who $gettok($active,2,58) | loadnicks#orionclon $gettok($active,2,58) n42= .- n43= .salir del canal: { n44= sendsockorion PART $gettok($active,2,58) n45= window -c @cloncanal: $+ $gettok($active,2,58) n46= } n47= - n48= ventana n49= .limpiar: dline @cloncanal: $+ $gettok($active,2,58) 1- n50= .- n51= .ocultar: window -h @cloncanal: $+ $gettok($active,2,58) n52= - n53= OrioN: { n54= .msg $gettok($active,2,58) %txtscript 1[ 7§cRiPt 1~ 14v_3.11 ] n55= .msg $gettok($active,2,58) 14 En: 1[ 12www.ircOrioN.net ] n56= } n57= - n58= setup: dialog -m clon clon n59= - n60= newnick: sendsockorion NICK $$?="Nuevo nick para CloN?" | .timer 1 1 loadnicks#orionclon $gettok($active,2,58) n61=} n62= n63=;win del clon por sockets [grafica]................ n64=menu @clon { n65= sclick { n66= if ($mouse.x > 125) && ($mouse.x < 158) && ($mouse.y > 28) && ($mouse.y < 38) { n67= dialog -m clon clon n68= } n69= if ($mouse.x > 192) && ($mouse.x < 199) && ($mouse.y > 1) && ($mouse.y < 7) { n70= window -c @clon n71= } n72= if ($mouse.x > 171) && ($mouse.x < 192) && ($mouse.y > 27) && ($mouse.y < 41) { n73= if ($sock(orionclon)) { n74= echo -s $oriontheme(sSeparadorLine) n75= echo -s Conexión finalizada por usuario n76= echo -s NickClon:9 %nickorionclon n77= echo -s Cerrando sockets (conexiones abiertas) n78= sockclose orionclon n79= if ($window(@clon) != $null) { drawdot @clon 9 3 183 36 } n80= } n81= else { conexclon } n82= } n83= } n84=} n85= n86=MENU @log { n87= dclick: loadlinelog final n88= $strip($sline(@log,1)) n89= .ver entero: loadlinelog entero n90= .ver final: loadlinelog final n91= .- n92= .ejecutar:{ n93= %lgn = $strip($sline(@log,1) $+ .log) n94= %lgn = $mircdirlogs\ $+ %lgn n95= run %lgn n96= } n97= .borrar:{ n98= %lgn = $strip($sline(@log,1) $+ .log) n99= %lgn = $mircdirlogs\ $+ %lgn n100= .remove %lgn n101= echo -s 11,4 Eliminando 15,2 %lgn 9,99 | unset %lgn n102= window -c @log | @log n103= } n104= .editar:{ n105= %lgn = $strip($sline(@log,1) $+ .log) n106= %lgn = $mircdirlogs\ $+ %lgn n107= run %lgn n108= aline @log 0,4 Ejecutando 15,2 %lgn 9,99 | unset %lgn n109= } n110= .renombrar:{ n111= %lgn = $strip($sline(@log,1) $+ .log) n112= rename $mircdirlogs\ $+ %lgn $mircdirlogs\ $+ $$?="Nuevo nombre?" $+ .log n113= echo -s 0,4 Ejecutando 15,2 %lgn 9,99 | unset %lgn n114= window -c @log | @log n115= } n116= .info:{ n117= %lgn = $strip($sline(@log,1) $+ .log) n118= aline @log 1,1 $oriontheme(sSeparadorLine) n119= aline @log 12Ruta:4 $mircdirlogs\ $+ %lgn n120= aline @log 12Archivo:4 %lgn n121= %lgn = $mircdirlogs\ $+ %lgn n122= %lgn = $lines(%lgn) | dec %lgn n123= aline @log 12Lineas:4 %lgn n124= aline @log 1,1 $oriontheme(sSeparadorLine) n125= unset %x %lgn n126= } n127= limpiar ventana:/ clear $active n128= recargar logs:/ window -c @log | @log n129= cerrar gestor de logs:/ window -c @log n130=} n131=MENU @news { n132= dclick: loadnewswin $sline(@news,1) n133= Noticia: $mid($strip($sline(@news,1)),2,2) $+ / $+ $mid($strip($sline(@news,1)),4,2) $+ / $+ $mid($strip($sline(@news,1)),6,4) n134= .ver: loadnewswin $strip($sline(@news,1)) n135= limpiar ventana:/ clear $active n136= recargar news:/ window -c @news | @news n137= cerrar gestor de news:/ window -c @news n138=} n139= n140=;gestor de alarma grafico============================== n141=menu @alarma { n142= sclick { n143= if ($mouse.x > 2) && ($mouse.x < 31) && ($mouse.y > 4) && ($mouse.y < 13) { n144= drawdot @alarma 4 4 28 12 | drawdot @alarma 11 4 28 24 n145= alarmon n146= .timeralarma %timelimitalarma 1 1 ejecutactionalarm n147= } n148= if ($mouse.x > 2) && ($mouse.x < 31) && ($mouse.y > 17) && ($mouse.y < 26) { n149= drawdot @alarma 4 4 28 24 | drawdot @alarma 11 4 28 12 n150= alarmoff n151= .timeralarma off n152= } n153= if ($mouse.x > 195) && ($mouse.x < 205) && ($mouse.y > 29) && ($mouse.y < 41) { n154= set %timelimitalarma $$?="¿A que hora saltara la alarma? (hh:mm:ss)" n155= drawtext -cp @alarma 5 "arial" 10 142 29 340 12 9,1 %timelimitalarma n156= } n157= if ($mouse.x > 197) && ($mouse.x < 209) && ($mouse.y > 0) && ($mouse.y < 13) { n158= window -c @alarma n159= } n160= if ($mouse.x > 114) && ($mouse.x < 208) && ($mouse.y > 50) && ($mouse.y < 61) { n161= drawdot @alarma 8 4 205 58 | drawdot @alarma 1 4 205 69 | drawdot @alarma 1 4 205 80 n162= %actionalarm = alarmaconex n163= } n164= if ($mouse.x > 114) && ($mouse.x < 208) && ($mouse.y > 62) && ($mouse.y < 73) { n165= drawdot @alarma 1 4 205 58 | drawdot @alarma 8 4 205 69 | drawdot @alarma 1 4 205 80 n166= %actionalarm = alarmadeconex n167= } n168= if ($mouse.x > 114) && ($mouse.x < 208) && ($mouse.y > 74) && ($mouse.y < 85) { n169= drawdot @alarma 1 4 205 58 | drawdot @alarma 1 4 205 69 | drawdot @alarma 8 4 205 80 n170= %actionalarm = alarmaclose n171= } n172= if ($mouse.x > 89) && ($mouse.x < 102) && ($mouse.y > 70) && ($mouse.y < 83) { setfilewavalarma } n173= if ($mouse.x > 0) && ($mouse.x < 95) && ($mouse.y > 44) && ($mouse.y < 67) { n174= .splay %filewavalarma n175= } n176= } n177=} n178=;ventana de codificaicon y decodificion su menu ============ n179=menu @codedecode { n180= Auto-descodificación n181= .Activar: %autodecode = on n182= .Desactivar: unset %autodecode | echo -s 4>>0Recuerda posteriormente activar esta opcion en el setup del script (seccion: varios-1) para poder ver los mensajes descodificados. n183=}