[aliases] 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=;cargar radios======================================= n14=cargaradio { n15= set %x 0 n16= :ini n17= inc %x n18= if ($findfile($mircdirradio,*.ram,%x) != $null) { did -a radio 3 $nopath($findfile($mircdirradio,*.ram,%x)) | goto ini } n19= else { unset %x | halt } n20=} n21=;carga files de ficheros================================= n22=;carga files de ficheros================================= n23=cargagetfile { n24= did -r getfile 3 $did(getfile,3).sel n25= %x = 0 n26= while (%x < $findfile($getdir,*.*,0)) { n27= inc %x n28= did -a getfile 3 $nopath($findfile($mircdirficheros,*.*,%x)) n29= if ($nopath($findfile($mircdirficheros,*.*,%x)) == %lastgetfile) { did -c getfile 3 %x } n30= } n31= unset %x n32=} n33= n34=;buscar el programa de radio=========================== n35=buscaradio { n36= sacobusca Buscando reproductor de radio n37= if ($findfile(c:\,Realplay.exe,1) == $null) { informo No se ha podido localizar en su sistema el reproductor necesario para la radio, puede encontrarlo en www.realplayer.com :D } n38= if ($findfile(c:\,Realplay.exe,1) != $null) { did -a radio 10 $findfile(c:\,Realplay.exe,1) } n39=} n40=;abirr un dir concreto================================= n41=opendir { n42= set %dir $$sdir="Elige el directorio para abrir" c:\ n43= run %dir n44=} n45=endtxt,acercad { n46= set %nºle $len(%txt) n47= :ini n48= if (%nºle == %nºl) { unset %nºl %nºle %txt %namet %seg | halt } n49= else { n50= inc %nºl n51= inc %namet n52= inc %seg 500 n53= if ($dialog(acercade) != $null) { n54= .timerend $+ %namet -m 1 %seg did -a acercade 20 $mid(%txt,%nºl,1) n55= goto ini n56= } n57= } n58=} n59= n60=;cargar asciis del directorio ascii del script=================== n61=cargaasciis { n62= set %x 0 n63= :ini n64= inc %x n65= if ($findfile($mircdirascii,*.txt,%x) != $null) { did -a ascii 2 $nopath($findfile($mircdirascii,*.txt,%x)) | goto ini } n66= else { unset %x | halt } n67=} n68=;reproductor de musica================================= n69=cargamusi { n70= if ($dialog(musica)) { n71= did -r musica 2,25 $did(musica,2).sel n72= did -a musica 25 %dirmusi n73= %n = $findfile(%dirmusi,%extmusi,0) | %z = 1 n74= while (%z <= %n) { n75= did -a musica 2 $nopath($findfile(%dirmusi,%extmusi,%z)) n76= inc %z n77= } n78= unset %n %z n79= } n80=} n81=;dir del f server============================================================ n82=dirfserver { n83= set %dirfserver $$sdir="Elige el directorio de inicio para tu f-server" c:\ n84= did -r fserver 8 n85= did -a fserver 8 %dirfserver n86=} n87=;CARGADORES DE USUARIOS REMOTOS================================== n88=caragausersini { n89= unset %txtuser %l n90= set %l 0 n91= :ini n92= inc %l n93= if ($read -l $+ %l $mircdirremote.ini == $null) { unset %txtuser %l } n94= else { n95= if (%leveluser isin $read -l $+ %l $mircdirremote.ini) { n96= set %txtuser $read -l $+ %l $mircdirremote.ini n97= did -a usuarios 2 $gettok(%txtuser,2,$asc(:)) n98= goto ini } n99= else { goto ini } n100= } n101=} n102=;cargador de caritas======================================================= n103=cargacaritas { n104= unset %txtcarita n105= set %x 0 n106= set %dircaritas $mircdirsistema\txts\caritas.txt n107= :ini n108= unset %txtcarita n109= inc %x n110= if ($read -l $+ %x %dircaritas == $null) { unset %x | halt } n111= else { n112= set %txtcarita $read -l $+ %x %dircaritas n113= set %txtcarita $gettok(%txtcarita,2-,32) n114= did -a caritas 2 %txtcarita | goto ini } n115= unset %txtcarita n116=} n117=;cargar lineas para mostrar a algien======================= n118=cargalinescan { n119= :ini n120= inc %x n121= if ($did(scan,26,%x).text != $null) { n122= if (-clon- isin $did(scan,26,%x).text) { n123= if (%scanclones != $null) { %scanclones = %scanclones $+ , $+ $gettok($did(scan,26,%x).text,2,58) } n124= else { set %scanclones $gettok($did(scan,26,%x).text,2,58) } n125= goto ini n126= } n127= if (abierto isin $gettok($did(scan,26,%x).text,4,58)) { n128= if (%portsopen == $null) { set %portsopen $gettok($did(scan,26,%x).text,2,58) } n129= else { %portsopen = %portsopen $+ , $+ $gettok($did(scan,26,%x).text,2,58) } n130= goto ini n131= } n132= if (cerrado isin $gettok($did(scan,26,%x).text,4,58)) { n133= if (%portsclose == $null) { set %portsclose $gettok($did(scan,26,%x).text,2,58) } n134= else { %portsclose = %portsclose $+ , $+ $gettok($did(scan,26,%x).text,2,58) } n135= goto ini n136= } n137= else { goto ini } n138= } n139= else { n140= if (%portsopen != $null) || (%portsclose != $null) || (%scanclones != $null) { .msg %winactive %txtscript 1§çÃn9,99 2sobre 1[ 12nick:4 $did(scan,11).text 1] 4~1 [12 ip:4 $did(scan,10).text 1] } n141= if (%portsopen != $null) { msg %winactive 12 Puertos 2abiertos 1[4 %portsopen 1] } n142= if (%portsclose != $null) { msg %winactive 12 Puertos 2cerrados 1[4 %portsclose 1] } n143= if (%scanclones != $null) { msg %winactive 2 Clones 1[4 %scanclones 1] } n144= unset %x %portsclose %portsopen %scanclones n145= } n146=} n147=;programas de barra script ============================= n148=;sacar dir para los dialogs ============================== n149=rutaemail { set %rutaemail $$dir="Busca tu programa de correo" C:\ } n150=rutanet { set %rutanet $$dir="Busque y seleccione su navegador" C:\ } n151=rutamp3 { set %rutamp3 $$dir="Selecciona su reproductor de mp3" C:\ } n152=rutanot { set %rutanotepad $$dir="Busca el notepad" C:\ } n153=rutaexplo { set %rutaexplorador $$dir="Busca el explorador" C:\ } n154=rutaftp { set %rutaftp $$dir="Encuentra tu programa de FTP" C:\ } n155=rutaprogra1 { set %rutaprogra1 $$dir="Busca el ejecutable para tu programa predefinido 1" C:\ } n156=rutaprogra2 { set %rutaprogra2 $$dir="Busca el ejecutable para tu programa predefinido 2" C:\ } n157=rutafire { set %rutafire $$dir="Busca el cortafuegos" C:\ } n158=rutaget { set %rutagetright $$dir="Encuentra tu programa getright" C:\ } n159=rutavisor { set %rutavisor $$dir="Busca el ejecutable para tu visor de imagenes" C:\ } n160=rutacompr { set %rutacompresor $$dir="Busca el ejecutable para tu programa compresor" C:\ } n161= n162=;autolocalizador de programas externos==================== n163=autolocalizador { n164= if ($did(progext,7).text == Explorer.exe) { did -r progext 5 | did -a progext 5 $findfile(c:\Archivos de programa\,Iexplore.exe,1) | set %rutanavegador $did(progext,5).text } n165= if ($did(progext,7).text == mp3) { n166= did -r progext 5 n167= if ($findfile(c:\Archivos de programa\,djs.exe,1) != $null) { did -r progext 5 | did -a progext 5 $findfile(c:\Archivos de programa\,djs.exe,1) | set %rutamp3 $did(progext,5).text | run %rutamp3 | halt } n168= if ($findfile(c:\Archivos de programa\,djs.exe,1) == $null) && ($findfile(c:\Archivos de programa\,winamp.exe,1) != $null) { did -r progext 5 | did -a progext 5 $findfile(c:\Archivos de programa\,winamp.exe,1) | set %rutamp3 $did(progext,5).text | run %rutamp3 | halt } n169= else { n170= informo Debes de bajarte un reproductor de musica en formato mp3, este puedes conseguirlo en la misma web del orion-script www.ircOrioN.net :)= n171= if (%rutanavegador != $null) { run %rutanavegador www.ircOrioN.net } n172= } n173= } n174= if ($did(progext,7).text == Notepad) { did -r progext 5 | did -a progext 5 $findfile(c:\windows\,notepad.exe,1) | set %rutanotepad $did(progext,5).text } n175= if ($did(progext,7).text == Explorador) { did -r progext 5 | did -a progext 5 $findfile(c:\windows\,Explorer.exe,1) | set %rutaexplorador $did(progext,5).text } n176= if ($did(progext,7).text == Compresor) { did -r progext 5 | did -a progext 5 $findfile(c:\Archivos de programa\,winzip32.exe,1) | set %rutacompr $did(progext,5).text } n177= if ($did(progext,7).text == Getright) { did -r progext 5 | did -a progext 5 $findfile(c:\Archivos de programa\,getright.exe,1) | set %rutaget $did(progext,5).text } n178= if ($did(progext,7).text == Navegador) { did -r progext 5 | did -a progext 5 $findfile(c:\Archivos de programa\,Iexplore.exe,1) | set %rutanet $did(progext,5).text } n179= if ($did(progext,7).text == e-mail) { did -r progext 5 | did -a progext 5 $findfile(c:\Archivos de programa\,msimn.exe,1) | set %rutaemail $did(progext,5).text } n180= if ($did(progext,7).text == FTP) { did -r progext 5 | did -a progext 5 $findfile(c:\Archivos de programa\,Cutftp32.exe,1) | set %rutaftp $did(progext,5).text } n181= if ($did(progext,7).text == Visor) { did -r progext 5 | did -a progext 5 $findfile(c:\Archivos de programa\,ACDSee32.exe,1) | set %rutavisor $did(progext,5).text } n182= n183=} n184=manuallocalizador { n185= if ($did(progext,7).text == Navegador) { did -r progext 5 | .timerdir 1 1 rutanet } n186= if ($did(progext,7).text == mp3) { did -r progext 5 | .timerdir 1 1 rutamp3 } n187= if ($did(progext,7).text == Notepad) { did -r progext 5 | .timerdir 1 1 rutanot } n188= if ($did(progext,7).text == Explorador) { did -r progext 5 | .timerdir 1 1 rutaexplo } n189= if ($did(progext,7).text == e-mail) { did -r progext 5 | .timerdir 1 1 rutaemail } n190= if ($did(progext,7).text == FTP) { did -r progext 5 | .timerdir 1 1 rutaftp } n191= if ($did(progext,7).text == Programa1) { did -r progext 5 | .timerdir 1 1 rutaprogra1 } n192= if ($did(progext,7).text == Programa2) { did -r progext 5 | .timerdir 1 1 rutaprogra2 } n193= if ($did(progext,7).text == Visor) { did -r progext 5 | .timerdir 1 1 rutavisor } n194= if ($did(progext,7).text == Compresor) { did -r progext 5 | .timerdir 1 1 rutacompr } n195= if ($did(progext,7).text == Getright) { did -r progext 5 | .timerdir 1 1 rutaget } n196= if ($did(progext,7).text == Cortafuegos) { did -r progext 5 | .timerdir 1 1 rutafire } n197=} n198=;Listar los txtvarios============================================= n199=listtxtvarios { n200= wintxtvarios n201= %nl = $lines($mircdirsistema\txtvarios\ $+ $1-) n202= %nametxtvarios = $mircdirsistema\txtvarios\ $+ $1- n203= %x = 1 n204= while (%x <= %nl) { n205= aline @wintxtvarios . 10 $read -l $+ %x %nametxtvarios n206= inc %x n207= } n208= unset %nametxtvarios %x %nl n209=} n210=;cargador de canales en dialog canales===================== n211=cargacanales { n212= %l = 1 n213= %n = $lines($mircdirsistema\txts\canales.txt) n214= while (%l <= %n) { n215= if ($chr(35) isin $read -l $+ %l $mircdirsistema\txts\canales.txt) && ($dialog(canales)) { n216= did -a canales 3 $read -l $+ %l $mircdirsistema\txts\canales.txt n217= } n218= inc %l n219= } n220= unset %l n221=} n222= n223=;dialog de carga y descarga de addons "addons"============== n224=opendiraddons { cargaaddons $sdir="Selecciona el directorio del que desas listar los addons" } n225=cargaaddons { n226= var %x n227= did -r addons 3 | did -r addons 10 n228= %diraddonini = $1 n229= %x = 0 n230= :ini1 n231= inc %x n232= if ($findfile($1,*.ini,%x) != $null) { did -a addons 3 $nopath($findfile($1,*.ini,%x)) | goto ini1 } n233= %x = 0 n234= :ini2 n235= inc %x n236= if ($findfile($1,*.mrc,%x) != $null) { did -a addons 3 $nopath($findfile($1,*.mrc,%x)) | goto ini2 } n237= else { unset %x | n238= did -ck addons 3 1 } n239=} n240=;dialog "servers"================================== n241=cargaredesirc { n242= did -r servers 4 | %g = 1 n243= while ($findfile(servers\,*.txt,%g)) { n244= did -a servers 4 $remove($nopath($findfile(servers\,*.txt,%g)),.txt) n245= inc %g n246= } n247= unset %g n248=} n249=cargaservirc { n250= did -r servers 6 | %f = servers\ $+ $did(servers,4,$did(servers,4).sel).text | %f = %f $+ .txt | %g = 2 n251= while ($read(%f,%g)) { n252= did -a servers 6 $gettok($read(%f,%g),1,58) n253= inc %g n254= } n255=} n256=cargainfoserv { n257= %kk = $1 $+ * n258= %l = $read(servers\ $+ $did(servers,4,$did(servers,4).sel).text $+ .txt,w,%kk) n259= did -ra servers 21 $gettok(%l,2,58) n260= did -ra servers 23 $gettok(%l,4,58) n261= ;loadPuertos------------- n262= did -ra servers 8 $mid($gettok(%l,3,58),1,4) n263= did -ra servers 8 $mid($gettok(%l,3,58),6,4) n264= did -ra servers 8 $mid($gettok(%l,3,58),11,4) n265= did -ra servers 8 $mid($gettok(%l,3,58),16,4) n266= did -ra servers 8 $mid($gettok(%l,3,58),21,4) n267= did -ra servers 8 $mid($gettok(%l,3,58),26,4) n268= did -ra servers 8 $mid($gettok(%l,3,58),31,4) n269= did -c servers 8 1 | unset %l %kk | %servautoconexion = $did(servers,21).text n270=} n271=addred { n272= set %addred $$?="Nombre de la red de IRC?, por ejemplo: hispanonet" n273= write servers\ $+ %addred $+ .txt < $+ %addred $+ > n274= cargaredesirc | cargaservirc n275=} n276=addserv { n277= if (!$did(servers,4,$did(servers,4).sel).text) { informo Antes debes seleccionar la red en la que quieres añadir el servidor. | halt } n278= set %addserv1 $$?="¿Server de $did(servers,4,$did(servers,4).sel).text a añadir?. Dirección, ejpl: irc.hispano.org" n279= set %addserv2 $$?="Nombre del servidor, ejpl: IRCnet" n280= set %addserv3 $$?="Puertos operativos, ejpl: 6667,6668" n281= set %addserv4 $$?="Pais o lugar del servidor, ejpl: España,Asturias,Mieres" n282= write servers\ $+ $did(servers,4,$did(servers,4).sel).text $+ .txt %addserv2 $+ : $+ %addserv1 $+ : $+ %addserv3 $+ : $+ %addserv4 n283= unset %addserv1 %addserv2 %addserv3 %addserv4 n284= cargaservirc n285=} n286=delred { n287= if (!$did(servers,4,$did(servers,4).sel).text) { informo Antes debes seleccionar la red que quieres eliminar de la lista de redes. | halt } n288= set %n $$?!="Esta seguro de que quiere eliminar $did(servers,4,$did(servers,4).sel).text ?" n289= if (%n) { remove servers\ $+ $did(servers,4,$did(servers,4).sel).text $+ .txt | cargaservirc | cargaredesirc } n290= unset %n n291=} n292= n293=delserv { n294= if (!$did(servers,6,$did(servers,6).sel).text) { informo Antes debes seleccionar el servidor que quieres eliminar de la lista de servers. | halt } n295= set %n $$?!="Esta seguro de que quiere eliminar $did(servers,6,$did(servers,6).sel).text ?" n296= if (%n) { n297= %l = $read(servers\ $+ $did(servers,4,$did(servers,4).sel).text $+ .txt,w,$did(servers,6,$did(servers,6).sel).text $+ *) n298= write -dl $+ $readn servers\ $+ $did(servers,4,$did(servers,4).sel).text $+ .txt n299= cargaservirc n300= } n301= unset %n %l n302=} n303= n304=;cargando smyles en list de dialog "corsmyles"============== n305=cargacorsmyles { n306= did -r corsmyles 11 n307= set %x 0 n308= :ini n309= inc %x n310= set %csmyle $read -l $+ %x $mircdirsistema\txts\corsmyles.txt n311= set %csmyle $gettok(%csmyle,1,61) n312= if (%csmyle != $null) { did -a corsmyles 11 %csmyle | goto ini } n313= else { unset %x %csmyle } n314=} n315= n316=;cargando words en list de dialog "corwords"============== n317=cargacorwords { n318= did -r corwords 11 n319= set %x 0 n320= :ini n321= inc %x n322= set %cword $read -l $+ %x $mircdirsistema\txts\corwords.txt n323= set %cword $gettok(%cword,1,61) n324= if (%cword != $null) { did -a corwords 11 %cword | goto ini } n325= else { unset %x %cword } n326=} n327=;cargador de formatos de colores del nickcompletion========= n328=loadformatncp { n329= %p = 1 n330= while ($read($mircdirsistema\txts\fncp.txt,%p)) { n331= did -a cornicks 13 Formato %p n332= inc %p n333= } n334= unset %p n335=} n336=;cargador en ejecucion del nick completion y corrector======= n337= n338=;ejecutador runer===================================== n339=runer { n340= if ($1 == email) { n341= if (%rutaemail != $null) { run %rutaemail $2 } n342= else { dialog -m progext progext | did -c progext 7 5 | autolocalizador | sacobusca Localizando ruta del programa | .timerrun 1 8 run %rutaemail $2 | dialog -x progext progext } n343= } n344= if ($1 == net) { n345= if (%rutanet != $null) { run %rutanet $2 } n346= else { dialog -m progext progext | did -c progext 7 1 | autolocalizador | sacobusca Localizando ruta del programa | .timerrun 1 8 run %rutanet $2 | dialog -x progext progext } n347= } n348=} n349=;cargando lineas de log en gestor de logs @log============= n350=loadlinelog { n351= aline @log 1,1 $oriontheme(sSeparadorLine) n352= %x = 1 n353= %lgn = $strip($sline(@log,1) $+ .log) n354= %lgn = $mircdirlogs\ $+ %lgn n355= aline @log 2 Visualizando log:4 %lgn n356= %l = $lines(%lgn) n357= if ($1 == final) && (%l > 200) { n358= unset %x n359= %n = %l - 200 n360= :ini1 n361= inc %x n362= if (%x <= 200) { n363= inc %n n364= if ($read -l $+ %n %lgn != $null) { aline @log $read -l $+ %n %lgn } n365= goto ini1 n366= } n367= else { goto fin } n368= } n369= else { n370= %x = 1 n371= if (%l > 500) { n372= if ($input(El LOG contiene %l lineas esto puede provocar colapso. ¿Desea por seguridad ejecutar por windows este log?,8,Posible colapso del PC)) { n373= run %lgn n374= halt n375= } n376= else { halt } n377= } n378= else { n379= while (%x <= %l) { n380= if ($read(%lgn,t,%x)) { aline $read(%lgn,t,%x) } n381= inc %x n382= } n383= } n384= } n385= :fin n386= aline @log 1,1 $oriontheme(sSeparadorLine) n387= aline @log 12Ruta:4 %lgn n388= aline @log 12Archivo:4 $sline(@log,1) $+ .log n389= %lgn = $mircdirlogs\ $+ %lgn n390= %lgn = $lines(%lgn) | dec %lgn n391= aline @log 12Lineas:4 %l n392= aline @log 1,1 $oriontheme(sSeparadorLine) n393= unset %x %lgn %n %l n394=} n395=;correccion de urls================================= n396=setlink { n397= if (http: isin $1) { return $replace($1-,$matchtok($1-,http:,1,32),12 $+ $matchtok($1-,http:,1,32) $+ 1) } n398= if (www. isin $1) { return $replace($1-,$matchtok($1-,www.,1,32),12 $+ $matchtok($1-,www.,1,32) $+ 1) } n399= if (ftp. isin $1-) { return $replace($1-,$matchtok($1-,ftp.,1,32),12 $+ $matchtok($1-,ftp.,1,32) $+ 1) } n400= if (pop. isin $strip($1-)) { return $replace($1-,$matchtok($1-,pop.,1,32),12 $+ $matchtok($1-,pop.,1,32) $+ 1) } n401= if (smtp. isin $strip($1-)) { return $replace($1-,$matchtok($1-,smtp.,1,32),12 $+ $matchtok($1-,smtp.,1,32) $+ 1) } n402= if (.net isin $strip($1-)) { return $replace($1-,$matchtok($1-,.net,1,32),12 $+ $matchtok($1-,.net,1,32) $+ 1) } n403= if (.com isin $strip($1-)) { return $replace($1-,$matchtok($1-,.com,1,32),12 $+ $matchtok($1-,.com,1,32) $+ 1) } n404= if (.es isin $strip($1-)) { return $replace($1-,$matchtok($1-,.es,1,32),12 $+ $matchtok($1-,.es,1,32) $+ 1) } n405= if (.org isin $strip($1-)) { return $replace($1-,$matchtok($1-,.org,1,32),12 $+ $matchtok($1-,.org,1,32) $+ 1) } n406= if (@ isin $strip($1-)) && ($chr(46) isin $1-) { return $replace($1-,$matchtok($1-,@,1,32),12 $+ $matchtok($1-,@,1,32) $+ 1) } n407= else { return $null } n408=} n409= n410=;auto operaciones a nicks del notify ===================== n411=autonicksnotify { n412= if ($1 == cuenta) { n413= var %x = 0 n414= var %z = 0 n415= :ini n416= inc %x n417= if ($dialog(config#)) { n418= if ($nick($2,%x) != $null) { n419= if ($notify($nick($2,%x)) != $null) { inc %z } n420= if ($ialchan($gettok($address($snick($2),2),2,33),$2 ,%x).nick != $null) { did -a config# 15 $ialchan($gettok($address($snick($2),2),2,33),$2 ,%x).nick $+ $gettok($address($snick($2),2),2,33) } n421= goto ini n422= } n423= ; writeini %pathconfig# variables statusernotify %z n424= } n425= } n426= if ($1 == saludo1) { n427= %z = 1 n428= while ($nick($2,%z)) { n429= if ($notify($nick($2,%z))) { .msg $nick($2,%z) $3- } n430= inc %z n431= } n432= } n433=} n434=;cargador de wins en combos n435=cargacombo { n436= if ($dialog($1) == $null) { halt } n437= did -ra $1 $2 Selección n438= did -c $1 $2 1 n439= var %x n440= if (c isin $3) { n441= %x = 0 n442= did -a $1 $2 [[[Canales]]] n443= :ini1 n444= inc %x n445= if ($chan(%x) != $null) { did -a $1 $2 $chan(%x) | goto ini1 } n446= } n447= if (q isin $3) { n448= %x = 0 n449= did -a $1 $2 [[[Privados]]] n450= :ini2 n451= inc %x n452= if ($query(%x) != $null) { did -a $1 $2 $query(%x) | goto ini2 } n453= } n454= if (d isin $3) { n455= %x = 0 n456= did -a $1 $2 [[[dcc-chat]]] n457= :ini3 n458= inc %x n459= if ($chat(%x) != $null) { did -a $1 $2 $chat(%x) | goto ini3 } n460= } n461=} n462= n463=;mensaje autoidentify ================================ n464=msgautoidentify { n465= if ($1 == %Rnick1) && (%Prnick1 != $null) { .timer 1 1 .msg NiCK@deep.space IDENTIFY %Prnick1 } n466= if ($1 == %Rnick2) && (%Prnick2 != $null) { .timer 1 1 .msg NiCK@deep.space IDENTIFY %Prnick2 } n467= if ($1 == %Rnick3) && (%Prnick3 != $null) { .timer 1 1 .msg NiCK@deep.space IDENTIFY %Prnick3 } n468= if ($1 == %Rnick4) && (%Prnick4 != $null) { .timer 1 1 .msg NiCK@deep.space IDENTIFY %Prnick4 } n469= if ($1 == %Rnick5) && (%Prnick5 != $null) { .timer 1 1 .msg NiCK@deep.space IDENTIFY %Prnick5 } n470= if ($1 == %Rnick6) && (%Prnick6 != $null) { .timer 1 1 .msg NiCK@deep.space IDENTIFY %Prnick6 } n471=} n472= n473=;controlador del theme============================== n474=oriontheme { n475= if ($1 != sSeparadorLine) { n476= return 1[14 $+ $gettok($time,1-2,58) $+ 1] $gettok($read($mircdirthemes\ $+ %oriontheme ,w,$1 $+ ·*),2,183) n477= infotxt@ $gettok($read($mircdirthemes\ $+ %oriontheme ,w,$1 $+ ·*),2,183) n478= } n479= return $gettok($read($mircdirthemes\ $+ %oriontheme ,w,$1 $+ ·*),2,183) n480=} n481= n482=;alias de agendaurl n483=agendaurl { dialog -m agendaurl agendaurl } n484=markselagendaurl { if ($1 == $2) { did -c agendaurl 3 $did(agendaurl,3).lines } } n485=addstatagendaurl { n486= writeini $mircdiragendaurl/agendaurlstats.ini stats numsecciones $findfile($mircdiragendaurl,*.txt,0) n487= %n = $findfile($mircdiragendaurl,*.txt,0) n488= %d = 1 n489= while (%d <= %n) { n490= %result = $calc(%result + $lines($findfile($mircdiragendaurl,*.txt,%d))) n491= inc %d n492= } n493= if (%result) { writeini $mircdiragendaurl\agendaurlstats.ini stats numwebs %result } n494= if ($1 == nummuestreos) { n495= %result = $calc($readini($mircdiragendaurl/agendaurlstats.ini,stats,nummuestreos) + 1) n496= writeini $mircdiragendaurl/agendaurlstats.ini stats nummuestreos %result n497= } n498= if ($1 == numbusquedas) { n499= %result = $calc($readini($mircdiragendaurl/agendaurlstats.ini,stats,numbusquedas) + 1) n500= writeini $mircdiragendaurl/agendaurlstats.ini stats numbusquedas %result n501= } n502= seestatsagendaurl n503= unset %d %n %result n504=} n505=seestatsagendaurl { n506= did -r agendaurl 23,24,25,26,27 n507= did -a agendaurl 23 $readini($mircdiragendaurl/agendaurlstats.ini,stats,numsecciones) n508= did -a agendaurl 24 $readini($mircdiragendaurl/agendaurlstats.ini,stats,numwebs) n509= did -a agendaurl 25 $readini($mircdiragendaurl/agendaurlstats.ini,stats,nummuestreos) n510= did -a agendaurl 26 $readini($mircdiragendaurl/agendaurlstats.ini,stats,numbusquedas) n511= did -a agendaurl 27 $readini($mircdiragendaurl/agendaurlstats.ini,stats,iniestadisticas) n512=} n513= n514=;gestionando el fichero stats.ini para las estadisticas de usuario n515=actstats { n516= %x = $readini($mircdirsistema\stats\stats.ini,STATS,$1) n517= if ($2 != $null) { %x = %x + $2 } n518= else { inc %x } n519= writeini $mircdirsistema\stats\stats.ini STATS $1 %x n520= unset %x n521=} n522=editvarstarts { n523= if ($1 == edit) { run $mircdirsistema\stats\stats.ini } n524= if ($1 == allcero) { n525= writeini $mircdirsistema\stats\stats.ini stats conex 0 n526= writeini $mircdirsistema\stats\stats.ini stats lag 0 n527= writeini $mircdirsistema\stats\stats.ini stats join 0 n528= writeini $mircdirsistema\stats\stats.ini stats part 0 n529= writeini $mircdirsistema\stats\stats.ini stats op 0 n530= writeini $mircdirsistema\stats\stats.ini stats deop 0 n531= writeini $mircdirsistema\stats\stats.ini stats opme 0 n532= writeini $mircdirsistema\stats\stats.ini stats deopme 0 n533= writeini $mircdirsistema\stats\stats.ini stats voice 0 n534= writeini $mircdirsistema\stats\stats.ini stats voiceme 0 n535= writeini $mircdirsistema\stats\stats.ini stats kick 0 n536= writeini $mircdirsistema\stats\stats.ini stats kickme 0 n537= writeini $mircdirsistema\stats\stats.ini stats ban 0 n538= writeini $mircdirsistema\stats\stats.ini stats banme 0 n539= writeini $mircdirsistema\stats\stats.ini stats filesend 0 n540= writeini $mircdirsistema\stats\stats.ini stats fileget 0 n541= writeini $mircdirsistema\stats\stats.ini stats whois 0 n542= writeini $mircdirsistema\stats\stats.ini stats conexin 0 n543= writeini $mircdirsistema\stats\stats.ini stats tonline 0 n544= writeini $mircdirsistema\stats\stats.ini stats start 0 n545= } n546= dialog -x contacc contacc n547= .timer 1 1 dialog -m contacc contacc n548=} n549=seevarstarts { n550= %k = $$?="Escriba el numero de la estadistica ha mostrar (0 = todas)." n551= if (%k == 1) { msg $1 1Total de Conex/Deconex al IRC:4 $readini($mircdirsistema\stats\stats.ini,1,stats,conex) } n552= if (%k == 2) { msg $1 1Total de Lag acumulado:4 $readini($mircdirsistema\stats\stats.ini,1,stats,lag) } n553= if (%k == 3) { msg $1 1Total de Joins:4 $readini($mircdirsistema\stats\stats.ini,1,stats,join) } n554= if (%k == 4) { msg $1 1Total de Parts:4 $readini($mircdirsistema\stats\stats.ini,1,stats,part) } n555= if (%k == 5) { msg $1 1Total de Ops ejecutados:4 $readini($mircdirsistema\stats\stats.ini,1,stats,op) } n556= if (%k == 6) { msg $1 1Total de Deops ejecutados:4 $readini($mircdirsistema\stats\stats.ini,1,stats,deop) } n557= if (%k == 7) { msg $1 1Total de Ops recibidos:4 $readini($mircdirsistema\stats\stats.ini,1,stats,opme) } n558= if (%k == 8) { msg $1 1Total de Deops recibidos:4 $readini($mircdirsistema\stats\stats.ini,1,stats,deopme) } n559= if (%k == 9) { msg $1 1Total de Voices dados:4 $readini($mircdirsistema\stats\stats.ini,1,stats,voice) } n560= if (%k == 10) { msg $1 1Total de Voices recibidos:4 $readini($mircdirsistema\stats\stats.ini,1,stats,voiceme) } n561= if (%k == 11) { msg $1 1Total de Kicks ejecutados:4 $readini($mircdirsistema\stats\stats.ini,1,stats,kick) } n562= if (%k == 12) { msg $1 1Total de Kicks recibidos:4 $readini($mircdirsistema\stats\stats.ini,1,stats,kickme) } n563= if (%k == 13) { msg $1 1Total de Bans ejecutados:4 $readini($mircdirsistema\stats\stats.ini,1,stats,ban) } n564= if (%k == 14) { msg $1 1Total de Bans recibidos:4 $readini($mircdirsistema\stats\stats.ini,1,stats,banme) } n565= if (%k == 15) { msg $1 1Total de Ficheros enviados:4 $readini($mircdirsistema\stats\stats.ini,1,stats,filesend) } n566= if (%k == 16) { msg $1 1Total de Ficheros recibidos:4 $readini($mircdirsistema\stats\stats.ini,1,stats,fileget) } n567= if (%k == 17) { msg $1 1Total de Whois realizados:4 $readini($mircdirsistema\stats\stats.ini,1,stats,whois) } n568= if (%k == 18) { msg $1 1Total de Conexiones entrantes:4 $readini($mircdirsistema\stats\stats.ini,1,stats,conexin) } n569= if (%k == 19) { msg $1 1Total de Koras on-line:4 $readini($mircdirsistema\stats\stats.ini,1,stats,tonline) } n570= if (%k == 20) { msg $1 1Total de Ejecuciones OrioN:4 $readini($mircdirsistema\stats\stats.ini,1,stats,start) } n571= if (%k == 0) { n572= .timer 1 0 msg $1 [Conex: $readini($mircdirsistema\stats\stats.ini,stats,conex) ][ Lag: $readini($mircdirsistema\stats\stats.ini,stats,lag) ] n573= .timer 1 1 msg $1 [Joins: $readini($mircdirsistema\stats\stats.ini,stats,join) ][ Parts: $readini($mircdirsistema\stats\stats.ini,stats,part) ][ Ops: $readini($mircdirsistema\stats\stats.ini,stats,op) ][ Deops: $readini($mircdirsistema\stats\stats.ini,stats,deop) ][ OpsMe: $readini($mircdirsistema\stats\stats.ini,stats,opme) ][ DeopsMe: $readini($mircdirsistema\stats\stats.ini,stats,deopme) ][ Voices: $readini($mircdirsistema\stats\stats.ini,stats,voice) ][ Devoices: $readini($mircdirsistema\stats\stats.ini,stats,devoice) ][ Kicks: $readini($mircdirsistema\stats\stats.ini,stats,kick) ][ KicksMe: $readini($mircdirsistema\stats\stats.ini,stats,kickme) ][ Bans: $readini($mircdirsistema\stats\stats.ini,stats,ban) ][ BansMe: $readini($mircdirsistema\stats\stats.ini,stats,banme) ] n574= .timer 1 2 msg $1 [FilesSend: $readini($mircdirsistema\stats\stats.ini,stats,filesend) ][ FilesGet: $readini($mircdirsistema\stats\stats.ini,stats,fileget) ][ Whois: $readini($mircdirsistema\stats\stats.ini,stats,conex) ][ Conexin: $readini($mircdirsistema\stats\stats.ini,stats,conexin) ][ T_online: $readini($mircdirsistema\stats\stats.ini,stats,tonline) ][ Start: $readini($mircdirsistema\stats\stats.ini,stats,start) ] n575= } n576= unset %k n577=}