[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=;AgendaUrl=========================================
n14=on 1:dialog:agendaurl:init:*:{ 
n15=  inicdll | sorion intro 
n16=  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)  
n17=  did -b agendaurl 30 | did -t agendaurl 4 
n18=}
n19=on 1:dialog:agendaurl:sclick:65:{ did -r agendaurl 2 }
n20=on 1:dialog:agendaurl:sclick:66:{
n21=  set %d $$file="Seleccione fichero (sección) que desea eliminar" $mircdiragendaurl\*.txt 
n22=  if (%d) {  if ($$?!="Esta seguro de eliminar la sección") { remove %d  } }
n23=  unset %d
n24=}
n25=on 1:dialog:agendaurl:sclick:1:{ sorion ok }
n26=on 1:dialog:agendaurl:sclick:8:{
n27=  sorion intro 
n28=  %x = $dialog(agendaurl).ch  
n29=  if (%x < 385) { 
n30=    while (%x < 385) {
n31=      inc %x 5  
n32=      dialog -s agendaurl 315 5 315 %x
n33=    }
n34=    did -a agendaurl 8 = 
n35=  }    
n36=  else { 
n37=    while (%x > 150) {
n38=      dec %x 5   
n39=      dialog -s agendaurl 315 5 315 %x
n40=    }
n41=    did -a agendaurl 8 _  
n42=  }   
n43=  unset %x
n44=}
n45=on 1:dialog:agendaurl:sclick:4:{  
n46=  sorion ok  
n47=  did -b agendaurl 3 | .timer 1 1 did -e agendaurl 3   
n48=  did -b agendaurl 4 | .timer 1 1 did -e agendaurl 4
n49=  did -r agendaurl 3  
n50=  %nsecc = $mircdirAgendaURL/ $+  $gettok($did(agendaurl,2),1,32) $+ .txt 
n51=  if (!$exists(%nsecc)) { 
n52=    did -a agendaurl 3 ----> ERROR: en la busqueda.
n53=    did -a agendaurl 3 La sección especificada no se ha encontrado.
n54=    did -a agendaurl 3 Pulse sobre el boton "?" para mas información.
n55=    did -a agendaurl 3 También puede acudir al fichero help.doc
n56=    unset %x | halt 
n57=  }
n58=  %keyw1 =  $gettok($did(agendaurl,2),2,32)
n59=  %keyw2 =  $gettok($did(agendaurl,2),3,32)
n60=  %keyw3 =  $gettok($did(agendaurl,2),4,32)
n61=  %keyw4 =  $gettok($did(agendaurl,2),5,32)
n62=  %z = 0
n63=  while (%z <= $lines(%nsecc)) {  
n64=    inc %z   
n65=    if (!%keyw1) && ($len($read(%nsecc,%z)) > 0) { did -a agendaurl 3 $gettok($read(%nsecc,%z),1-3,183) $+ · $+ $gettok($nopath(%nsecc),1,46) $+ ·Line: $+ %z  | continue  }
n66=    if (%keyw4 isin $gettok($read(%nsecc,%z),4,183)) { did -a agendaurl 3 $gettok($read(%nsecc,%z),1-4,183) $+ · $+ $gettok($nopath(%nsecc),1,46) $+ · $+ %z | markselagendaurl %keyw1 $gettok($gettok($read(%nsecc,%z),4,183),1,32) | continue }     
n67=    if (%keyw3 isin $gettok($read(%nsecc,%z),4,183)) { did -a agendaurl 3 $gettok($read(%nsecc,%z),1-4,183) $+ · $+ $gettok($nopath(%nsecc),1,46) $+ · $+ %z |  markselagendaurl %keyw1 $gettok($gettok($read(%nsecc,%z),4,183),1,32) | continue } 
n68=    if (%keyw2 isin $gettok($read(%nsecc,%z),4,183)) { did -a agendaurl 3 $gettok($read(%nsecc,%z),1-4,183) $+ · $+ $gettok($nopath(%nsecc),1,46) $+ · $+ %z | markselagendaurl %keyw1 $gettok($gettok($read(%nsecc,%z),4,183),1,32) |  continue }
n69=    if (%keyw1 isin $gettok($read(%nsecc,%z),4,183)) { did -a agendaurl 3 $gettok($read(%nsecc,%z),1-4,183) $+ · $+ $gettok($nopath(%nsecc),1,46) $+ · $+ %z |  markselagendaurl %keyw1 $gettok($gettok($read(%nsecc,%z),4,183),1,32) | continue }
n70=  }
n71=  if ($did(agendaurl,3).lines == 0) { 
n72=    did -a agendaurl 3 ----> WEB/S: no encontradas
n73=    did -a agendaurl 3 Sección de busqueda: %nsecc
n74=    did -a agendaurl 3 Palabras clave: %keyw1 %keyw2 %keyw3 %keyw4
n75=    did -a agendaurl 3 Por favor pulse el boton "?" para mas información.  
n76=  } 
n77=  addstatagendaurl numbusquedas 
n78=  unset %z %keyw*
n79=}
n80=on 1:dialog:agendaurl:sclick:5:{ if ($did(agendaurl,3).sel) { sorion check | msg %winactive 2 $gettok($did(agendaurl,3,$did(agendaurl,3).sel),1,183) $+ 1:12  $+ $gettok($did(agendaurl,3,$did(agendaurl,3).sel),2,183) | addstatagendaurl nummuestreos } }
n81=on 1:dialog:agendaurl:dclick:3:{
n82=  %d = $mircdirAgendaurl\ $+ $gettok($did(agendaurl,3,$did(agendaurl,3).sel).text ,5,183) $+ .txt
n83=  informo  WEB: $gettok($did(agendaurl,3,$did(agendaurl,3).sel).text ,1,183) $crlf $+ URL: $gettok($did(agendaurl,3,$did(agendaurl,3).sel).text ,2,183) $crlf $+ Descripción: $gettok($did(agendaurl,3,$did(agendaurl,3).sel).text ,3,183) $crlf $+ Sección: $gettok($did(agendaurl,3,$did(agendaurl,3).sel).text ,5,183) $crlf $+ Palabras clave: $gettok($did(agendaurl,3,$did(agendaurl,3).sel).text ,4,183) $crlf $+ Fichero: %d  $+  $crlf $+ Línea: $gettok($did(agendaurl,3,$did(agendaurl,3).sel).text ,6,183) $crlf $+ Nº webs en %d $+ : $lines(%d) $crlf $+ <Propiedades: %d $+ > $crlf $+ . Tamaño: $file(%d).size $crlf $+ . Modificado: $asctime($file(%d).mtime) $crlf $+ . Ultimo acceso: $asctime($file(%d).atime) 
n84=  unset %d 
n85=} 
n86=on 1:dialog:agendaurl:sclick:6:{ 
n87=  if ($gettok($did(agendaurl,3,$did(agendaurl,3).sel),2,183)) {
n88=    runer net $gettok($did(agendaurl,3,$did(agendaurl,3).sel),2,183)
n89=  }
n90=}
n91=on 1:dialog:agendaurl:sclick:12:{ set %x $$?="Introduce el nombre de la sección que agrupara al conjunto de webs (Ejp: IRC)." | write $mircdiragendaurl/ $+ %x $+ .txt | echo -s 15,1 Seccion añadida: 0 $mircdirAgendaURL/ $+ %x $+ .txt 9,99 | unset %x }
n92=on 1:dialog:agendaurl:sclick:13:{ 
n93=  set %d $$file="Seleccione fichero (sección) donde desea añadir el web." $mircdiragendaurl\*.txt 
n94=  set %k1 $$?="Nombre/title del web (Ejpl: OrioN ScripT)"
n95=  set %k2 $$?="Dirección URL del web (Ejpl: www.ircOrioN.net)"
n96=  set %k3 $$?="Descripción de la web <max 10 palabras> (Ejpl: El mejor script para mIRC)"
n97=  set %k4 $$?="Palabras clave de busqueda <separadas por espacios> <max 4 palabras> (Ejpl: orion mirc scripts irc)"
n98=  write %d %k1 $+ · $+ %k2 $+ · $+ %k3 $+ · $+ %k4 
n99=  echo %sepa  
n100=  echo -s 15,1 Añadida web:11 %k1 9,99 
n101=  echo -s 15,1 Sección:0 %d 9,99 
n102=  echo -s 15,1 URL:0 %k2 9,99 
n103=  echo -s 15,1 Descripción:0 %k3 9,99 
n104=  echo -s 15,1 Palabras clave:0 %k4 9,99 
n105=  echo %sepa  
n106=  unset %k1 %k2 %k3 %k4 %d
n107=}
n108=on 1:dialog:agendaurl:sclick:5:{ addstatagendaurl  }
n109=on 1:dialog:agendaurl:sclick:10:{  addstatagendaurl | seestatsagendaurl }
n110=on 1:dialog:agendaurl:sclick:28:{ 
n111=  writeini $mircdiragendaurl/agendaurlstats.ini stats numsecciones 0
n112=  writeini $mircdiragendaurl/agendaurlstats.ini stats numwebs 0
n113=  writeini $mircdiragendaurl/agendaurlstats.ini stats nummuestreos 0
n114=  writeini $mircdiragendaurl/agendaurlstats.ini stats numbusquedas 0
n115=  writeini $mircdiragendaurl/agendaurlstats.ini stats iniestadisticas $date
n116=  echo -s %sepa
n117=  echo -s 15,1 Re/iniciadas estadisticas [AgendaURL`s]:11 $date 9,99 
n118=  seestatsagendaurl
n119=}
n120=on 1:dialog:agendaurl:sclick:7:{ 
n121=  sorion info  
n122=  informo  Para el buen funcionamiento del motor de busqueda debes seguir la siguiente sintaxis: <Sección> [PalabraClave1] [PalabraClave2] [PalabraClave3] [PalabraClave4]. Donde, sección es el nombre del fichero txt donde tiene agrupadas todas las webs relacionadas con ese tema/sección, por ejemplo si tuviera el fichero irc.txt (en orion\agendaurl\) y dentro de el todas las webs relacionadas con el IRC, debería especificar en seccion la palabra IRC. A continuación en PalabraClave1 se recomienda poner el nombre esacto del programa a buscar (ejp: OrioN),solo se permite un maximo de 4 palabras clave. Se han de poner espacios en blanco para separar las partes. Un ejemplo final sería: irc orion mirc scripts. Al pulsar el boton buscar, el motor de busqueda cojeria del fichero irc.txt aquellas webs que por prioridad de final a inicio tienen las palabras claves especificadas.
n123=}
n124=on 1:dialog:agendaurl:sclick:9:{ sorion click }
n125=on 1:dialog:agendaurl:sclick:29:{ 
n126=  addstatagendaurl 
n127=  msg %winactive %txtscript  1[10 Estadisticas Agenda4URL1 ]
n128=  msg %winactive 2S1ecciones4_ $+ $did(agendaurl,23) 2, W1ebs4_ $+ $did(agendaurl,24) 2, M1uestreos4_ $+ $did(agendaurl,25) 2, B1usquedas4_ $+ $did(agendaurl,26) 2,5 < $+ $did(agendaurl,27) $+ >.  
n129=}
n130=on 1:dialog:agendaurl:sclick:32:{ 
n131=  %z = $gettok($did(agendaurl,3,$did(agendaurl,3).sel),6,183)
n132=  %d = $mircdiragendaurl\ $+ $gettok($did(agendaurl,3,$did(agendaurl,3).sel),5,183) $+ .txt
n133=  if (%z > 0) {  
n134=    if ($?!="Eliminar?") { 
n135=      write -dl $+ %z %d
n136=      did -d agendaurl 3 $did(agendaurl,3).sel  
n137=      unset %d %z
n138=      addstatagendaurl 
n139=    }
n140=  }
n141=}
n142=on 1:dialog:agendaurl:sclick:34:{  run $mircdiragendaurl/help.doc }
n143=on 1:dialog:agendaurl:sclick:61:{ runer net www.ircorion.net/addons.htm }
n144=on 1:dialog:agendaurl:sclick:62:{ runer email mailto: addons@ircorion.net   }
n145=on 1:dialog:agendaurl:sclick:63:{ runer email sel@ircorion.net   }
n146=on 1:dialog:agendaurl:sclick:3:{ did -z agendaurl 3 } 
n147=on 1:dialog:agendaurl:sclick:200:{ google }
n148=;AWAY
n149=on 1:dialog:away:init:*: {
n150=  sorion intro 
n151=  if ($away) { did -a away 6 Estado Away (ON) | did -c away 6 | awayonoffcontrols -b }
n152=  else { did -a away 6 Estado Away (OFF) | awayonoffcontrols -e }
n153=  loadawaycontrol 
n154=}
n155=on 1:dialog:away:sclick:6: {
n156=  did -r away 6   
n157=  if ($did(away,$did).state == 0) { 
n158=    did -a away 6 Estado Away (OFF)  
n159=    awayonoffcontrols -e   
n160=    awayoff | sorion quit
n161=  }
n162=  else { 
n163=    did -a away 6 Estado Away (ON)  
n164=    awayonoffcontrols -b   
n165=    awayon | sorion conex
n166=  }
n167=}
n168=on 1:dialog:away:sclick:11: {
n169=  if ($did(away,$did).state == 0) { did -b away 10 }
n170=  else { did -e away 10 }
n171=  setawayreg boton 11 central awaynick on  
n172=}
n173=on 1:dialog:away:sclick:61: setawayreg edit $did central awayautoidle $did(away,$did).text | sorion whois 
n174=on 1:dialog:away:sclick:70: setawayreg edit 70 pager awaytimemode $$?="Especifique el numero de retardo en segundos para ejecutar el cambio de modos. $crlf $+ Recomiendo: 7 (seg). " | loadawaycontrol 
n175=on 1:dialog:away:sclick:17: {
n176=  if ($did(away,$did).state == 0) { did -b away 48 }
n177=  else { did -e away 48 }
n178=  setawayreg boton $did anunciar awayanuncio $did
n179=}
n180=on 1:dialog:away:edit:72: setawayreg edit $did pager awaysiquery $did(away,$did).text 
n181=on 1:dialog:away:sclick:73: informo Si deseas estar Away pero atender en todo momento a ciertos nicks o no estar "aparentemente" away para ellos. $crlf $+ Puedes especificar dichos nicks separados por comas y sin espacios en el campo de edición.
n182=on 1:dialog:away:sclick:18: setawayreg boton $did anunciar awayanuncio $did | did -b away 48
n183=on 1:dialog:away:sclick:19: setawayreg boton $did anunciar awayanuncio $did | did -b away 48
n184=on 1:dialog:away:sclick:48: setawayreg edit $did anunciar awayanunciotime $did(away,$did).text
n185=on 1:dialog:away:sclick:21: setawayreg boton $did anunciar awayestilo $did 
n186=on 1:dialog:away:sclick:22: setawayreg boton $did anunciar awayestilo $did 
n187=on 1:dialog:away:sclick:29: setawayreg boton $did pager awaynoquery on 
n188=on 1:dialog:away:sclick:39: setawayreg boton $did log awaylogquery on 
n189=on 1:dialog:away:sclick:40: setawayreg boton $did log awaylognotice on 
n190=on 1:dialog:away:sclick:41: setawayreg boton $did log awaylogctcp on 
n191=on 1:dialog:away:sclick:42: setawayreg boton $did log awaylognombrarme on 
n192=on 1:dialog:away:sclick:43: setawayreg boton $did log awaylogopdeop on 
n193=on 1:dialog:away:sclick:44: setawayreg boton $did log awaylogvozdevoz on 
n194=on 1:dialog:away:sclick:45: setawayreg boton $did log awaylogkicks on 
n195=on 1:dialog:away:sclick:46: setawayreg boton $did log awaylogbans on 
n196=on 1:dialog:away:sclick:47: @winreadmsgaway
n197=on 1:dialog:away:sclick:26: {
n198=  if ($did(away,$did).state == 0) { did -b away 27 }
n199=  else { did -e away 27 }
n200=  setawayreg boton $did pager awaysound on  
n201=}
n202=on 1:dialog:away:sclick:28: {
n203=  setawayreg edit $did pager awaysoundpath $$file="Seleccione el sonido para aviso mientras estado Away" c:\ |  did -r away 27  
n204=  did -a away 27 $readini(sistema\away\confaway.ini,pager,awaysoundpath)
n205=}
n206=on 1:dialog:away:sclick:34: {
n207=  setawayreg boton $did pager awaymodev on 
n208=  sorion click
n209=}
n210=on 1:dialog:away:sclick:35: {
n211=  did -u away 34  
n212=  if ($did(away,$did).state == 0) { did -b away 34 |  setawayreg boton 34 pager awaymodev  }
n213=  else { did -e away 34 }
n214=  setawayreg boton $did pager awaymodedeo on 
n215=}
n216=
n217=on 1:dialog:away:sclick:36: {
n218=  setawayreg boton $did pager awaymodeo on 
n219=}
n220=on 1:dialog:away:edit:10: {
n221=  if ($did(away,$did).sel) { %k = $did(away,$did).sel }
n222=  setawayreg edit $did central awaynick $+ %k $did(away,$did).text 
n223=}
n224=on 1:dialog:away:edit:13:{
n225=  if ($did(away,$did).sel) { %k = $did(away,$did).sel }
n226=  setawayreg edit $did central awaymsgon $+ %k $did(away,$did).text 
n227=}
n228=on 1:dialog:away:edit:15: {
n229=  if ($did(away,$did).sel) { %k = $did(away,$did).sel }
n230=  setawayreg edit $did central awaymsgoff $+ %k $did(away,$did).text 
n231=}
n232=
n233=on 1:dialog:away:edit:25: {
n234=  if ($did(away,$did).sel) { %k = $did(away,$did).sel }
n235=  setawayreg edit $did pager awaypagermsg $+ %k $did(away,$did).text 
n236=}
n237=
n238=on 1:dialog:away:sclick:65: {
n239=  informo Editar Sintaxis/Estilo (Away) $crlf $+ ----------------------------------------------- $crlf $+ Si desea editar la sintaxis prederterminada del away. $crlf $+ > Por favor: Lea estas líneas con el fin de saber editarla de forma correcta para evitar posibles errores. $crlf $+ En breve se le ejecutara el fichero de configuración del sistema Away, en el se encuentran reunidas todas las variables para la gestión de este sistema. $crlf $+ La sintaxis general del sistema es: variable=valor $crlf $+ Donde podra modificar el valor (a partir del "="). $crlf $+ Usted debe acudir a la variable "awaysintaxis" dentro del topico [Away] casi al principio del fichero. $crlf $+ A continuación, puede modificar el "valor" de esa variable, no modifique el nombre de la variable (awaysintaxis) solo su valor. 
n240=  did -a informo 3 Usted puede modificar los controles de colores, el texto a mostrar, asi como también el posicionamiento de las variables: "%r1,%r2,%r3,%r4" (no eliminarlas), también es posible incluir identificadores. $crlf $+ Por ultimo decirle, que el sistema de gestión es líneal, lo que quiere decir que no debe insertar un intro o un salto de linea en el valor. Con lo que todo lo que deba incluir a de estar en la misma línea. $crlf $+ Gracias    ;)
n241=  did -c informo 3 1 
n242=  set %p $?!="Ejecutar fichero para editar AwaySintaxis"
n243=  if (%p) run sistema\away\confaway.ini 
n244=  unset %p
n245=  sorion espera
n246=}
n247=on 1:dialog:away:sclick:66: {
n248=  set %p $?!="Reiniciar a la configuración predeterminada?"
n249=  if (%p) {
n250=    dialog -c away 
n251=    .remove sistema\away\confaway.ini
n252=    .copy sistema\away\confaway.ini2 sistema\away\confaway.ini
n253=    echo -s En 5 segundos saldra el away con las opciones predeterminadas.   
n254=    .timer 1 5 dialog -m away away
n255=  }
n256=  sorion espera
n257=}
n258=on 1:dialog:away:sclick:1: { sorion ok }
n259=;ventana lector de msgs de away ========================
n260=MENU @Grabadora {
n261=  buscar texto: findtext  -n $$?="Que palabra/s busco?" 
n262=  Borra mensajes: write -c $mircdirsistema\away\away.log | @winreadmsgaway 
n263=  cerrar lector: window -c @readmsgaway
n264=}
n265=
n266=;eventos para away==================================
n267=#away off
n268=on 1:open:?:{ awaypager $nick $1- }
n269=on 1:open:=:{ awaypager $nick $1- }
n270=on 1:text:*:?:{
n271=  if ($readini(sistema\away\confaway.ini,log,awaylogquery) == on) { write sistema\away\away.log 15[14 $+ $gettok($time,1-2,58) $+ 15]1-15[14PRIV15]1: < $+ $nick $+ > $1-  }
n272=}
n273=on 1:notice:*:*:{
n274=  if ($readini(sistema\away\confaway.ini,log,awaylognotice) == on) { write sistema\away\away.log 15[14 $+ $gettok($time,1-2,58) $+ 15]1-15[14NOTICE15]1: < $+ $nick $+ > $1-  }
n275=}
n276=ctcp 1:*:*:{
n277=  if ($readini(sistema\away\confaway.ini,log,awaylogctcp) == on) && ($me != $nick) { write sistema\away\away.log 15[14 $+ $gettok($time,1-2,58) $+ 15]1-15[14CTCP15]1: < $+ $nick $+ > $1-  }
n278=}
n279=on 1:text:*:#:{
n280=  if ($readini(sistema\away\confaway.ini,log,awaylognombrarme) == on) && ($me isin $strip($1-)) { 
n281=    write sistema\away\away.log 15[14 $+ $gettok($time,1-2,58) $+ 15]1-15[14Nombrado15]1: $chan < $+ $nick $+ > $1-
n282=    if ($nick != %nombradoawaynick)  && (!$redbot($nick)) { 
n283=      notice $nick AWAY $readini(sistema\away\confaway.ini,away,awaymsgon)
n284=      %nombradoawaynick = $nick 
n285=    }
n286=  }
n287=}
n288=on 1:op:#:{
n289=  if ($me == $opnick) { 
n290=    if ($readini(sistema\away\confaway.ini,log,awaylogopdeop) == on) { write sistema\away\away.log 15[14 $+ $gettok($time,1-2,58) $+ 15]1-15[14OP15]1: $chan < $+ $nick $+ > $1- }
n291=  } 
n292=}
n293=on 1:deop:#:{
n294=  if ($me == $opnick) { 
n295=    if ($readini(sistema\away\confaway.ini,log,awaylogopdeop) == on) { write sistema\away\away.log 15[14 $+ $gettok($time,1-2,58) $+ 15]1-15[14DEOP15]1: $chan < $+ $nick $+ > $1- }
n296=  } 
n297=}
n298=on 1:voice:#:{
n299=  if ($me == $vnick) { 
n300=    if ($readini(sistema\away\confaway.ini,log,awaylogvozdevoz) == on) { write sistema\away\away.log 15[14 $+ $gettok($time,1-2,58) $+ 15]1-15[14VOZ15]1: $chan < $+ $nick $+ > $1- }
n301=  } 
n302=}
n303=on 1:devoice:#:{
n304=  if ($me == $vnick) { 
n305=    if ($readini(sistema\away\confaway.ini,log,awaylogvozdevoz) == on) { write sistema\away\away.log 15[14 $+ $gettok($time,1-2,58) $+ 15]1-15[14DEVOZ15]1: $chan < $+ $nick $+ > $1- }
n306=  } 
n307=}
n308=on 1:kick:#:{
n309=  if ($me == $knick) { 
n310=    if ($readini(sistema\away\confaway.ini,log,awaylogkicks) == on) { write sistema\away\away.log 15[14 $+ $gettok($time,1-2,58) $+ 15]1-15[14KICK15]1: $chan < $+ $nick $+ > $1- }
n311=  } 
n312=}
n313=on 1:ban:#:{
n314=  if ( $me isin $banmask ) || $remove($address($me,2),*!*@) isin $banmask || ( $address($me,0)  isin $banmask ) || ( $address($me,3) isin $banmask ) || ( $address($me,4) isin $banmask ) {   
n315=    if ($readini(sistema\away\confaway.ini,log,awaylogbans) == on) { write sistema\away\away.log 15[14 $+ $gettok($time,1-2,58) $+ 15]1-15[14BAN15]1: $chan < $+ $nick $+ > $1- }
n316=  } 
n317=}
n318=#away end
n319=
n320=;ignorar
n321=on 1:dialog:ignore:init:*:{ did -c ignore 10,11,12,13,14,15 } 
n322=on 1:dialog:ignore:sclick:7:{
n323=  if ($did(ignore,3).text) {
n324=    %t = $calc($did(ignore,18).text * 60)
n325=    if ($did(ignore,10).state == 1) { %d = %d $+ c }
n326=    if ($did(ignore,11).state == 1) { %d = %d $+ p }
n327=    if ($did(ignore,12).state == 1) { %d = %d $+ d }
n328=    if ($did(ignore,13).state == 1) { %d = %d $+ t  }
n329=    if ($did(ignore,14).state == 1) { %d = %d $+ n }
n330=    if ($did(ignore,15).state == 1) { %d = %d $+ i  }
n331=    if ($did(ignore,18).text) { %d = %d $+ u $+ %t  }
n332=    if ($ignore($did(ignore,3).text)) { ignore -r  $ignore($did(ignore,3).text) }
n333=    if (%d) { ignore - $+ %d $did(ignore,3).text }   
n334=    else { ignore $did(ignore,3).text }
n335=    unset %d %t 
n336=    operignorelist did
n337=  }
n338=}
n339=on 1:dialog:ignore:sclick:19:{ 
n340=  if ($ignore($did(ignore,3).text).type) { sayignorewinactive $did(ignore,3).text $ignore($did(ignore,3).text).type $did(ignore,16).text  }
n341=}
n342=on 1:dialog:ignore:sclick:5:{ operignorelist did }
n343=on 1:dialog:ignore:sclick:23:{
n344=  if ($did(ignore,20).sel) { 
n345=    %d1 = $gettok($did(ignore,20,$did(ignore,20).sel).text,1,47)
n346=    %d2 = $gettok($did(ignore,20,$did(ignore,20).sel).text,2,47)
n347=    sayignorewinactive %d1 %d2  
n348=  }
n349=  else { operignorelist mos }
n350=  unset %d1 %d2
n351=}
n352=on 1:dialog:ignore:sclick:22:{ operignorelist mos }
n353=on 1:dialog:ignore:sclick:25:{ 
n354=  ignore -r $gettok($did(ignore,20,$did(ignore,20).sel).text,1,47)
n355=  operignorelist did
n356=}
n357=on 1:dialog:ignore:sclick:26:{ operignorelist del }
n358=on 1:dialog:ignore:sclick:20:{ did -z ignore 20 | did -r ignore 3 | did -a ignore 3  $gettok($did(ignore,20,$did(ignore,20).sel).text,1,47) }
n359=;themes
n360=;dialog para gestor de themes============================
n361=on 1:dialog:themes:init:*:{
n362=  sorion intro  
n363=  %pathconfig# = 1
n364=  while ($finddir($mircdirthemes,*,%pathconfig#)) { 
n365=    did -a themes 3 $nopath($finddir($mircdirthemes\,*,%pathconfig#))
n366=    inc %pathconfig#
n367=  }
n368=  did -b themes 7,13,31,32,30
n369=}  
n370=on 1:dialog:themes:sclick:3:{  
n371=  did -r themes 14 | did -r themes 16 | did -r themes 17 | did -r themes 18  
n372=  %pathconfig# = themes\ $+ $did(themes,3,$did(themes,3).sel).text $+ \ $+ infotheme.txt
n373=  %d = $read -l2 %pathconfig# 
n374=  did -a themes 14 $did(themes,3,$did(themes,3).sel).text [  $gettok(%d,2,58)  ] 
n375=  %d = $read -l3 %pathconfig#
n376=  did -a themes 16 $gettok(%d,2-,58)
n377=  %d = $read -l4 %pathconfig#
n378=  did -a themes 17 $gettok(%d,2-,58)
n379=  %d = $read -l5 %pathconfig#
n380=  did -a themes 18 $gettok(%d,2-,58)
n381=  did -g themes 31 themes\ $+ $did(themes,3,$did(themes,3).sel).text $+ \ $+ imgtheme.jpg
n382=  did -e themes 7,13,31,32,30 
n383=  unset %pathconfig# %d
n384=}
n385=on 1:dialog:themes:sclick:13:{ sorion espera | run themes\ $+ \ $+ $did(themes,3,$did(themes,3).sel).text $+ \ $+ infotheme.txt }
n386=on 1:dialog:themes:sclick:19:{ informo Esta utilidad permite cambiar el aspecto de la ventana de estado y de aquellos mensajes dados por el OrioN al usuario en el canal u otras ventanas, puedes descargar mas tehemes o temas del web: www.ircorion.net ;) }
n387=on 1:dialog:themes:sclick:20:{ sorion espera | dialog -m oriongestor oriongestor }
n388=on 1:dialog:themes:sclick:7:{ 
n389=  sorion conex  
n390=  %oriontheme = $did(themes,3,$did(themes,3).sel).text $+ \ $+ $did(themes,3,$did(themes,3).sel).text $+ .ini
n391=  echo -s $oriontheme(sSeparadorLine)  
n392=  echo -s 8,2 Theme/Tema 0,4 cargada 9,99
n393=  echo -s 8,2 Name/version 0,4 $did(themes,14).text 9,99
n394=  echo -s 8,2 Su autor 0,4 $did(themes,16).text 9,99
n395=  echo -s 8,2 Web 0,4 $did(themes,17).text 9,99
n396=  echo -s 8,2 e-mail 0,4 $did(themes,18).text 9,99
n397=  echo -s $oriontheme(sSeparadorLine)   
n398=  if ($$?!="Es necesario que reinicie el OrioN usted mismo, para cargar el theme/tema. $crlf $+ Desea reiniciarlo ahora?") { exit }  
n399=}
n400=on 1:dialog:themes:sclick:14:{ run themes\ $+ $gettok($did($did).text,1,32) }
n401=on 1:dialog:themes:sclick:17:{ runer net $did($did).text }
n402=on 1:dialog:themes:sclick:18:{ runer email $did($did).text }
n403=on 1:dialog:themes:sclick:1:{ sorion ok }
n404=
n405=;selkick
n406=on 1:dialog:atake-sel:init:0: {
n407=  did -b atake-sel 10,11,15,21,22,26
n408=  did -a atake-sel 6 %nick.atake-kick
n409=  did -a atake-sel 13 %msg.atake-kick
n410=  did -c atake-sel 8,19
n411=  did -a atake-sel 17 %nick.atake-ban
n412=  did -a atake-sel 24 %msg.atake-ban
n413=  inc %est-abr
n414=  if (%est-abr == 1) { set %fecha.est $date }
n415=  did -o atake-sel 33 1 %est-abr
n416=  did -o atake-sel 34 1 %total.kick
n417=  did -o atake-sel 35 1 %total.ban
n418=  did -o atake-sel 36 1 %fecha.est
n419=  set %nºkick Indefinido
n420=  set %tipo.ban Indefinido
n421=  est-abr
n422=  inicdll 
n423=  dll $dllmdx SetColor $dname 6 background $rgb(29,29,32) | dll $dllmdx SetFont $dname 6 12 700 arial | dll $dllmdx SetColor $dname 6 textbg $rgb(29,29,32) | dll $dllmdx SetColor $dname 6 text $rgb(253,25,30)  
n424=  dll $dllmdx SetColor $dname 17 background $rgb(29,29,32) | dll $dllmdx SetFont $dname 17 13 700 arial | dll $dllmdx SetColor $dname 17 textbg $rgb(29,29,32) | dll $dllmdx SetColor $dname 17 text $rgb(253,25,30)  
n425=}
n426=on 1:dialog:atake-sel:sclick:19: {
n427=  did -b atake-sel 21
n428=  did -br atake-sel 22
n429=  set %nuban Indefinido
n430=}
n431=on 1:dialog:atake-sel:sclick:20: {
n432=  did -ef atake-sel 21
n433=  did -ef atake-sel 22
n434=  unset %nuban
n435=}
n436=on 1:dialog:atake-sel:sclick:14: {
n437=  %nick.atake-kick = $did(atake-sel,6).text  
n438=  %nick.atake-ban = $did(atake-sel,6).text    
n439=  if ($me !isop %canal.atake) {  
n440=    echo -s >> 0El atake no se pudo realizar no tienes OP en el canal
n441=    did -b atake-sel 15
n442=    did -e atake-sel 14
n443=  }
n444=  if ($me isop %canal.atake) {
n445=    did -b atake-sel 14
n446=    did -e atake-sel 15
n447=    .enable #atake-kick
n448=    kick %canal.atake %nick.atake-kick 1[14 %msg.atake-kick 1] $nkick $total-kick
n449=    did -o atake-sel 34 1 %total.kick
n450=    est-kick
n451=  }
n452=}
n453=on 1:dialog:atake-sel:sclick:15: {
n454=  did -b atake-sel 15
n455=  did -e atake-sel 14
n456=  .disable #atake-kick
n457=  echo -s %sepa
n458=  echo -s >> 0Desactivado ataque KICK contra 12(8 $+ %nick.atake-kick $+ 12)0 - kick´s %n.kick 
n459=  unset %n.kick
n460=}
n461=on 1:dialog:atake-sel:sclick:8: {
n462=  did -b atake-sel 10
n463=  did -br atake-sel 11
n464=  set %nºkick Indefinido
n465=}
n466=on 1:dialog:atake-sel:sclick:9: {
n467=  did -ef atake-sel 11
n468=  did -e atake-sel 10
n469=  unset  %nºkick
n470=}
n471=on 1:dialog:atake-sel:sclick:25: {
n472=  %nick.atake-kick = $did(atake-sel,6).text  
n473=  %nick.atake-ban = $did(atake-sel,6).text    
n474=  if ($me !isop %canal.atake) {  
n475=    echo -s >> 0El atake no se pudo realizar no tienes OP en el canal
n476=    did -b atake-sel 26
n477=    did -e atake-sel 25
n478=  }
n479=  if ($me isop %canal.atake) {
n480=    did -b atake-sel 25
n481=    did -e atake-sel 26
n482=    .enable #atake-ban
n483=    mode %canal.atake -o %nick.atake-ban
n484=    mode %canal.atake +b $address(%nick.atake-ban,2)
n485=    kick %canal.atake %nick.atake-ban 1[14 %msg.atake-ban 1] $nban $total-kick $total-ban
n486=    did -o atake-sel 34 1 %total.kick
n487=    did -o atake-sel 35 1 %total.ban
n488=    est-ban
n489=  }
n490=}
n491=on 1:dialog:atake-sel:sclick:26: {
n492=  did -b atake-sel 26
n493=  did -e atake-sel 25
n494=  .disable #atake-ban
n495=  echo -s %sepa
n496=  echo -s >> 0Desactivado ataque BAN contra 12(8 $+ %nick.atake-ban $+ 12)0 - Ban´s %n.ban
n497=  unset %n.ban
n498=}
n499=on 1:dialog:atake-sel:edit:6: { %nick.atake-kick = $did(6).text }
n500=on 1:dialog:atake-sel:edit:13: { %msg.atake-kick = $did(13).text }
n501=on 1:dialog:atake-sel:edit:11: { %nºkick = $did(11).text }
n502=on 1:dialog:atake-sel:edit:17: { %nick.atake-ban = $did(17).text }
n503=on 1:dialog:atake-sel:edit:24: { %msg.atake-ban = $did(24).text }
n504=on 1:dialog:atake-sel:edit:22: { %nuban = $did(22).text }
n505=on 1:dialog:atake-sel:sclick:27:{ 
n506=  %x = $dialog(atake-sel).ch  
n507=  if (%x < 340) { 
n508=    while (%x < 340) {
n509=      inc %x 5  
n510=      dialog -s atake-sel -1 -1 272 %x
n511=    }
n512=    did -a atake-sel 27 <|- 
n513=  }    
n514=  else { 
n515=    while (%x > 233) {
n516=      dec %x 5   
n517=      dialog -s atake-sel -1 -1 272 %x
n518=    }
n519=    did -a atake-sel 27 -|>  
n520=  }   
n521=  unset %x
n522=}
n523=on 1:dialog:atake-sel:sclick:37: { 
n524=  unset %est-abr %total.ban %total.kick %fecha.est 
n525=  echo -s >> 0Reseteadas estadisticas
n526=}
n527=on 1:dialog:atake-sel:sclick:38: { 
n528=  msg %winactive %txtscript [ 10Estadisticas Ataque -4 Kick10 - 4Ban 1]
n529=  msg %winactive 2Iniciado4 %est-abr 1veces2, T1otal kicks4 %total.kick 2, T1otal bans4 %total.ban 2, D1esde el4 %fecha.est
n530=}