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