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