[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 $+ $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 (Ejpl: El mejor script para mIRC)" n97= set %k4 $$?="Palabras clave de busqueda (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: [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=}