[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=;creando el fichero ini con la config de la red
n14=creaconfredes {
n15=  if ($1 != REDefault) {   
n16=    %k = $$?="Introduce el nombre de la RED. $crlf $+ Debes poner el dominio identificativo de la red para un perfecto funcionamiento.  $crlf $+ Ejp1: dal.net $crlf $+ Ejp2: irc-hispano.org $crlf $+ > No DEBES incluir aquellos caracteres que windows no permite para el nombre de ficheros. Puesto que la gestión de la red la controlara un fichero." 
n17=    %d =  $mircdirsistema\RedesConfig\ $+ %k $+ .ini 
n18=  }
n19=  else { %d = $mircdirsistema\RedesConfig\REDefault.ini  | %k = REDefault } 
n20=  set %h $$?!="La red ( %k ): $crlf $+ acepta modo +r (nose = no). $crlf $+ Ejpl: irc-hispano.org tiene modo +r. $crlf $+ Este modo incrementa la seguridad del nick y proporciona nuevas utilidades."  
n21=  write %d [addoncontrol] 
n22=  writeini %d addoncontrol acpath off  
n23=  writeini %d addoncontrol loadaddon off  
n24=  write %d [opconoff]
n25=  writeini %d opconoff autojoin off
n26=  writeini %d opconoff autoidentify off
n27=  write %d [modos]
n28=  if (%h) { writeini %d modos modenickr on }
n29=  else { writeini %d modos modenickr off }  
n30=  writeini %d modos usermodi off
n31=  writeini %d modos usermodw off
n32=  writeini %d modos usermods off
n33=  writeini %d modos usermodr off
n34=  writeini %d modos usermod off 
n35=  write %d [comandos]
n36=  writeini %d comandos comando off 
n37=  writeini %d comandos ircopu off
n38=  writeini %d comandos ircopp off
n39=  writeini %d comandos nick off
n40=  writeini %d comandos uid off
n41=  writeini %d comandos snotice off
n42=  write %d [regvarios]
n43=  echo -s Añadida nueva red (configuración): %d |  unset %d %k | verconfredes 
n44=}
n45=
n46=;ver las redes (*.ini) que hay en el dir sistema\RedesConfig\
n47=verconfredes {
n48=  if (!$findfile($mircdirsistema\RedesConfig\,REDefault.ini,1)) { creaconfredes REDefault  }  
n49=  secureconfredesopc -b 
n50=  did -r redes 9 | %n = 1
n51=  while ($findfile($mircdirsistema\RedesConfig\,*.ini,%n)) {
n52=    did -a redes 9 $remove($nopath($findfile($mircdirsistema\RedesConfig\,*.ini,%n)),.ini)
n53=    inc %n 
n54=  }
n55=  unset %n
n56=}
n57=
n58=;configuracion del addon de control para popup
n59=addconfredesreg {
n60=  unset %h  
n61=  if ($1 == bot) { 
n62=    set %d $$?="Introduce nick o mask (sin espacios) del bot. $crlf $+ 1.- Nick: (Ejpl: ChaN) $crlf $+ 2.- MasK: (Ejpl: *!*@direcciónMask)."  
n63=    if (!$read(%f,w,*bcanal)) { set %h $$?!"El bot: %d  $crlf $+ Es el bot administrador de canales (BotCanal)?"  }
n64=    if (%h) { %h = · $+ bcanal }
n65=    else { %h = $null }  
n66=  } 
n67=  if ($1 == identify) {
n68=    set %d $$?="Introduce el nick para auto-identificación"
n69=    %d = %d $+ · $+ $$?="Introduce el comando de auto-identificacion. $crlf $+ Debes incluir el nick, password o aquellos datos que precise. $crlf $+ Ejpl1: /msg nick identify MiPass $crlf $+ Ejpl2: /nick MiNick:MiPass"
n70=  } 
n71=  if ($1 == join) { set %d #$$?="Nombre del canal (sin #)" } 
n72=  %k = $1 $+ · $+ %d $+ %h 
n73=  write $mircdirsistema\RedesConfig\ $+ $did(redes,9,$did(redes,9).sel).text $+ .ini %k 
n74=  unset %d %f %k 
n75=  verconfredesreg $1
n76=}
n77=
n78=
n79=;eliminando registro del file
n80=delconfredesreg {
n81=  %l = 1 | %f = $mircdirsistema\RedesConfig\ $+ $did(redes,9,$did(redes,9).sel).text $+ .ini 
n82=  if ($1) && ($2) {    
n83=    while ($read(%f,%l)) {
n84=      if ($1 == bot) && ($gettok($read(%f,%l),2,183) == $2) { write -dl $+ %l %f }
n85=      if ($1 == identify) && ($gettok($read(%f,%l),2,183) == $2) { write -dl $+ %l %f }
n86=      if ($1 == join) && ($gettok($read(%f,%l),2,183) == $2) {  write -dl $+ %l %f  }
n87=      inc %l     
n88=    }  
n89=  }
n90=  unset %l %f | verconfredesreg $1
n91=}
n92=
n93=;algoritmo para gestionar el cambio de datos
n94=setconfredesreg {
n95=  if ($did(redes,9).sel) {  
n96=    %d = $mircdirsistema\RedesConfig\ $+ $did(redes,9,$did(redes,9).sel).text $+ .ini  
n97=    if ($4- == on) { 
n98=      if ($did(redes,$1).state == 1) { writeini %d $2 $3 $4- }
n99=      else { writeini %d $2 $3 off  }
n100=    }
n101=    else {
n102=      if ($did(redes,$1).text) { writeini %d $2 $3 $4- } 
n103=      else { writeini %d $2 $3 off }    
n104=    }
n105=  }
n106=  unset %d
n107=}
n108=
n109=;sacando en dialog la config
n110=verconfredesreg {
n111=  did -r redes 13,18,25,37,40,43,45,52,54 | did -u redes 17,29,31,32,34,36,56,58 | did -z redes 9,13,18,25 | secureconfredesopc -e
n112=  %l = 1 | %f = $mircdirsistema\RedesConfig\ $+ $did(redes,9,$did(redes,9).sel).text $+ .ini 
n113=  if ($readini(%f,opconoff,autoidentify) == on) { did -c redes 17 }
n114=  if ($readini(%f,opconoff,autojoin) == on) { did -c redes 29 }
n115=  if ($readini(%f,addoncontrol,loadaddon) == on) { did -c redes 58 }  
n116=  if ($readini(%f,modos,usermodi) == on) { did -c redes 31 }
n117=  if ($readini(%f,modos,usermodw) == on) { did -c redes 32 }
n118=  if ($readini(%f,modos,usermods) == on) { did -c redes 34 }
n119=  if ($readini(%f,modos,usermodr) == on) { did -c redes 36 }
n120=  if ($readini(%f,modos,usermod) != off) { did -a redes 37 $readini(%f,modos,usermod) }  
n121=  if ($readini(%f,comandos,snotice) == on) { did -c redes 56 } 
n122=  if ($readini(%f,comandos,comando) != off) { did -a redes 40 $readini(%f,n,comandos,comando) } 
n123=  if ($readini(%f,comandos,ircopu) != off) { did -a redes 43 $readini(%f,comandos,ircopu) } 
n124=  if ($readini(%f,comandos,ircopp) != off) { did -a redes 45 $readini(%f,comandos,ircopp) } 
n125=  if ($readini(%f,comandos,nick) != off) { did -a redes 52 $readini(%f,comandos,nick) } 
n126=  if ($readini(%f,comandos,uid) != off) { did -a redes 54 $readini(%f,comandos,uid) } 
n127=  while ($read(%f,%l)) {
n128=    if ($gettok($read(%f,%l),1,183) == bot)  { did -a redes 13 $gettok($read(%f,%l),2,183) }
n129=    if ($gettok($read(%f,%l),1,183) == identify)  { did -a redes 18 $gettok($read(%f,%l),2,183) }
n130=    if ($gettok($read(%f,%l),1,183) == join) { did -a redes 25 $gettok($read(%f,%l),2,183) }
n131=    inc %l  
n132=  }  
n133=}
n134=
n135=;secure opcs conf redes
n136=secureconfredesopc { did $1 redes 13,14,15,48,17,18,19,20,23,25,26,27,29,31,32,34,36,37,40,43,45,52,54,56,58 }
n137=
n138=;cargando conf de red
n139=loadconfredes {
n140=  %f = $redconf
n141=  ;comandos   
n142=  if ($readini(%f,comandos,comando) != off) { $readini(%f,comandos,comando) }
n143=  if ($readini(%f,comandos,nick) != off) { nick  $readini(%f,comandos,nick) } 
n144=  if ($readini(%f,comandos,uid) != off) { identd on $readini(%f,comandos,uid)  }
n145=  if ($readini(%f,comandos,snotice) == on) { getnoticeserv } 
n146=  ;modos   
n147=  if ($readini(%f,modos,usermodi) != off) {  mode $me +i } 
n148=  if ($readini(%f,modos,usermodw) != off) { mode $me +w  } 
n149=  if ($readini(%f,modos,usermods) != off) { mode $me +s } 
n150=  if ($readini(%f,modos,usermodr) != off) { mode $me +r } 
n151=  if ($readini(%f,modos,usermod) != off) { mode $me + $+ $readini(%f,modos,usermod) } 
n152=  ;join
n153=  if ($readini(%f,opconoff,autojoin) == on) { 
n154=    %n = 1 | %t = 1
n155=    while ($read(%f,%n)) {
n156=      if ($gettok($read(%f,%n),1,183) == join) { .timer 1 %t join $gettok($read(%f,%n),2,183) |  inc %t }
n157=      inc %n
n158=    }
n159=    unset %n %t 
n160=  }
n161=  ;identifys
n162=  autoidentifysred
n163=
n164=  ;addon de control
n165=  if ($readini(%f,addoncontrol,loadaddon) == on) && ($readini(%f,addoncontrol,acpath) != off) { .load -rs $readini(%f,addoncontrol,acpath) }
n166=}
n167=
n168=autoidentifysred {
n169=  if ($1) {
n170=    if ($readini($redconf,opconoff,autoidentify) == on) { 
n171=      %n = identify· $+ $1 $+ *
n172=      %n = $read($redconf,w,%n)
n173=      if (%n) { 
n174=        $gettok(%n,3,183) 
n175=        if (/nick isin $gettok(%n,3,183)) && (: isin $gettok(%n,3,183)) { .quote $replace($remove($gettok($read($redconf,w,%n),3,183),/),:,$chr(32)) }    
n176=      }
n177=      unset %n
n178=    }
n179=    else { nick $1 }    
n180=  }
n181=  if (!$1) {
n182=    if ($readini($redconf,opconoff,autoidentify) == on) { 
n183=      %n = identify· $+ $me $+ *
n184=      %n = $read($redconf,w,%n)
n185=      if (%n) {  $gettok(%n,3,183) }
n186=      unset %n
n187=    }
n188=    else { nick $me }  
n189=  }
n190=}
n191=
n192=;detectando server y auto identificacion por IP
n193=server {
n194=  %rutared = $redconf($1) | unset %n
n195=  if ($readini(%rutared,opconoff,autoidentify) == on) && ($readini(%rutared,modos,modenickr) == on)  {  
n196=    %n = $read(%rutared,w,identify· $+ $me $+ *)
n197=    if (%n) { %n = $gettok($gettok(%n,3,183),2,58) }
n198=    server $1 $me %n   
n199=  }
n200=  else {  server $1- }
n201=  unset %n %rutared
n202=}
n203=
n204=;verificando si es un bot de red
n205=redbot {
n206=  %f = $redconf | %n = 1
n207=  while ($read(%f,%n)) {
n208=    if ($gettok($read(%f,%n),1,183) == bot) { 
n209=      if ($gettok($read(%f,%n),2,183) == $1) { return $gettok($read(%f,%n),2,183) }
n210=    }
n211=    inc %n
n212=  }
n213=  unset %n %f 
n214=  return $false
n215=}
n216=
n217=;devolviendo el bot operativo del canal
n218=redbotcanal {
n219=  %f = $redconf
n220=  if ($read(%f,w,*·bcanal)) { return $gettok($read(%f,w,*·bcanal),2,183) }
n221=  else {  informo ERROR CanalBot: NO configurado. $crlf $+ ----------------------------------------------------------------------- $crlf $+ Muchas de las opciones del script necesitan hacer una llamada al bot operador de canales. $crlf $+ Debes configurar en el OrioN esta red e indicar cual es el bot para canales. $crlf $+ Gracias ;)  }  
n222=}
n223=
n224=redconf {  
n225=  %conter = 1 | %file = $null
n226=  while ($findfile($mircdirsistema\RedesConfig\,*.ini,%conter)) {
n227=    %file = $remove($nopath($findfile($mircdirsistema\RedesConfig\,*.ini,%conter)),.ini)   
n228=    if (%file isin $server) || (%file isin $1) { return $findfile($mircdirsistema\RedesConfig\,*.ini,%conter)  }
n229=    inc %conter 
n230=  }
n231=  return sistema\RedesConfig\REDefault.ini   
n232=}
n233=
n234=;sendfilec========================
n235=sendfilec {
n236=  if ($1 == on) {
n237=    if ($did(sendfilec,9).sel) { 
n238=      %t = 1 | unset %sendfilecsel
n239=      while ($did(sendfilec,9,$did(sendfilec,9,%t).sel).text) {
n240=        if (%sendfilecsel) {  %sendfilecsel = %sendfilecsel $+ , $+ $did(sendfilec,9,$did(sendfilec,9,%t).sel).text }
n241=        else {  %sendfilecsel = %sendfilecsel $+  $did(sendfilec,9,$did(sendfilec,9,%t).sel).text }
n242=        inc %t
n243=      }    
n244=      unset %t
n245=      if (%sendfilecsee > 0) { .timersendfilec 0 $calc(%sendfilecsee * 60) seesendfilec }
n246=      else { seesendfilec }
n247=      if (%sendfilecend > 0) { .timersendfilecoff 1 $calc(%sendfilecend  * 60) sendfilec off  }
n248=      did -a sendfilec 23 Activado 
n249=      .enable #sendfilec    
n250=      echo -s SendFileCanal (ON): File[ $+ $nopath(%sendfilecfil) $+ / $+ $round($file(%sendfilecfil).size,1) $+ k $+ ] Get[ $+ %sendfilecget $+ ] #c[ $+ %sendfilecsel $+ ] [ %sendfilectxt ]      
n251=    }
n252=    else {
n253=      informo Debes seleccionar algun canal al que desees ofrecer el fichero
n254=      did -u sendfilec 23
n255=    }  
n256=  }
n257=  else {
n258=    .disable #sendfilec      
n259=    unset %sendfilecsel  
n260=    .timersendfilec off
n261=    .timersendfilecoff off     
n262=    did -a sendfilec 23 Desactivado
n263=    did -u sendfilec 23      
n264=    echo -s SendFileCanal (OFF)  
n265=  }
n266=}
n267=seesendfilec {
n268=  %p = 1  
n269=  if (%sendfilecsel) {  
n270=    while ($gettok(%sendfilecsel,%p,44)) { 
n271=      msg $gettok(%sendfilecsel,%p,44) $oriontheme(sMarkOrion) 2(SendFileCanal) 1File[ $+ $nopath(%sendfilecfil) $+ / $+ $round($file(%sendfilecfil).size,1) $+ k $+ ] 1Get[ $+ %sendfilecget $+ ] #c[ $+ %sendfilecsel $+ ] 14[1 $+ %sendfilectxt $+ 14]
n272=      inc %p
n273=    }
n274=  }
n275=  unset %p
n276=}
n277=
n278=;identificando floods==================================
n279=flooduser {
n280=  if ($1 == $2) { return $true }
n281=}
n282=
n283=;algoritmo que establece modo de usuario en todos los canales en los que io estoy
n284=;sintaxis: setmodeuser <nick> <modo> [razonKick]
n285=setmodeuser {
n286=  %y = 1 
n287=  while ($chan(%y)) {  
n288=    if ($1 ison $chan(%y)) {
n289=      if (+ isin $2) {
n290=        if ($2 == +o) && ($me !isop $chan(%y)) {  .msg $redbotcanal op $chan(%y) $1 }
n291=        if ($2 == +b) && ($me isop $chan(%y)) { mode $chan(%y) +b $address($1,2) }
n292=        if ($2 == +v) && ($me isop $chan(%y)) { mode $chan(%y) +v $1 }
n293=      }   
n294=      if (- isin $2)  { 
n295=        if ($2 == -v) && ($me isop $chan(%y)) { mode $chan(%y) -v $1 }      
n296=        if ($2 == -o) && ($me isop $chan(%y)) { mode $chan(%y) -o $1 }
n297=        if ($2 == -b) && ($me isop $chan(%y)) { mode $chan(%y) -b $address($1,2) }
n298=      }
n299=      else {
n300=        if (kick == $2) && ($me isop $chan(%y)) { kick $chan(%y) $1 $3- } 
n301=      }      
n302=    }
n303=    inc %y  
n304=  }
n305=  unset %y
n306=}
n307=;Gestion DLLS=====================================
n308=inicdll {
n309=  dll sistema\dlls\mdx.dll SetMircVersion $version
n310=  dll sistema\dlls\mdx.dll MarkDialog $dname  
n311=}
n312=
n313=dllmdx return sistema\dlls\mdx.dll
n314=dllviews return sistema\dlls\views.mdx
n315=dllgen return sistema\dlls\ctl_gen.mdx
n316=
n317=;SKINS==========================================
n318=orionskin { 
n319=  ; echo -s $1- 
n320=  if ($exists($mircdirskins\ $+ %skin $+ \ $+ $1)) { return $mircdirskins\ $+ %skin $+ \ $+ $1 }
n321=  if ($findfile($mircdirskins\ $+ %skin $+ \,$gettok($1,1,46) $+ .*,1)) { return  $findfile($mircdirskins\base\,$gettok($1,1,46)  $+ .*,1) }
n322=  if ($exists($mircdirskins\base\ $+ $1)) {  return $mircdirskins\base\ $+ $1 }
n323=}
n324=
n325=;proteccion de atakes comcom==========================
n326=anticomcom {
n327=  %r = $1
n328=  .notice $1 $oriontheme(eBugWindowMsg)
n329=  echo -s $oriontheme(sSeparadorLine)
n330=  echo -s $oriontheme(eBugWindow)
n331=  echo -s $oriontheme(eBugWindowNick)
n332=  echo -s $oriontheme(eBugWindowRecha)
n333=  echo -s $oriontheme(sSeparadorLine)  
n334=  if ($readini(sistema\PFlood\floodconf.ini,floods,tflood12) == on) { 
n335=    writeini sistema\PFlood\floodconf.ini flooder fuser12 $nick
n336=    atakflood $nick 12 
n337=  } 
n338=  halt
n339=}
n340=
n341=;PROTECCIONES PERSONALES======================
n342=protekperso {
n343=  if ($me isop $3) {  
n344=    if ($1 == deop) && (%actproantideop == si) {          
n345=      if (%actpantideop+deop == si) { mode $3 -o $2 }    
n346=      if (%actpantideop+ban == si) { mode $3 +b $2 }
n347=      if (%actpantideop+kick == si) { kick $3 $2 4P2roteccion $1 } 
n348=      return 
n349=    }
n350=    if ($1 == kick) && (%actproantikick == si) {        
n351=      if (%actpantikick+deop == si) {
n352=        if ($redbotcanal) { .msg $redbotcanal deop $3 $2 }
n353=        else { mode $3 -o $2  }
n354=      }
n355=      if (%actpantikick+ban == si) {  mode $3 +b $2 }
n356=      if (%actpantikick+kick == si) { kick $3 $2 4P2roteccion $1 }   
n357=      return     
n358=    }
n359=    if ($1 == ban) && (%actproantiban == si) {        
n360=      if (%actpantiban+deop == si) {
n361=        if ($redbotcanal) { .msg $redbotcanal deop $3 $2 }
n362=        else { mode $3 -o $2  }
n363=      }
n364=      if ($me isin $4) {  .msg $redbotcanal unban $3 }
n365=      else {  mode $3 -b $4  } 
n366=      if (%actpantiban+ban == si) { mode $3 +b $2 }
n367=      if (%actpantiban+kick == si) { kick $3 $2 4P2roteccion $1 }  
n368=      return  
n369=    }    
n370=    if ($1 == insultos) && (%actantiinsultos == on) {        
n371=      if (%actantiinsultosdeop == on) { mode $3 -o $2  }
n372=      if (%actantiinsultosban == on) {  mode $3 +b $2 }
n373=      if (%actantiinsultoskick == on) {   kick $3 $2 4P2roteccion $1 }
n374=      return    
n375=    }    
n376=    if ($1 == spam) { 
n377=      if ($readini(sistema\SpaM\spamconf.ini,ofensiva,spamof1) == on) { .ignore -pcntikdu $+ $readini(sistema\SpaM\spamconf.ini,ofensiva,spamofe) $2 }
n378=      if ($readini(sistema\SpaM\spamconf.ini,ofensiva,spamof2) == on) { setmodeuser $2 -o }
n379=      if ($readini(sistema\SpaM\spamconf.ini,ofensiva,spamof4) == on) { setmodeuser $2 +b  }
n380=      if ($readini(sistema\SpaM\spamconf.ini,ofensiva,spamof3) == on) { setmodeuser $2 kick 4B2loqueoSpaM }
n381=      return    
n382=    }  
n383=  } 
n384=}
n385=
n386=;comandos
n387=kick {
n388=  if ($me !isop $1) { informo No eres operador del canal $1. $crlf No puedes realizar un kick o patada al usuario $2 | return }
n389=  if  (290 isin $level($address($2,5))) { informo El usuario $2 esta con nivel de inmunidad si deseas kikearlo, quitalo antes de tu Userlist. f3>usuario>userlist. | return } 
n390=  if ($snick($1,0) == 1) && ($3) {  kick $1 $2 $strip(1[7kicks4 $readini($mircdirsistema\stats\stats.ini,stats,kick) $+ 1]) $3- | return }
n391=  if ($snick($1,0) == 1) && ($3 == $null) {  kick $1 $2 1[7kicks4 $readini($mircdirsistema\stats\stats.ini,stats,kick) $+ 1] | return }
n392=  if ($snick($1,0) > 1) { 
n393=    %n = 1
n394=    while (%n <=  $snick($1,0)) {
n395=      kick $1 $snick($1,%n) %txtscript 1[7kicks4 $readini($mircdirsistema\stats\stats.ini,stats,kick) $+ 1] 1[7kick Masivo4 %n - $snick($1,0) 1] 
n396=      inc %n  
n397=    }
n398=  } 
n399=  else { kick $1 $2 1[7kicks4 $readini($mircdirsistema\stats\stats.ini,stats,kick) $+ 1] $3- } 
n400=}
n401=mode {
n402=  if (+b isin $2) {  
n403=    if ($me !isop $1) { informo No eres operador del canal $1. $crlf No puedes realizar un kick o patada al usuario $2 | return }
n404=    if (290 isin $level($address($2,5))) { informo El usuario $2 esta con nivel de inmunidad si deseas kikearlo quitalo antes de tu Userlist. f3>usuario>userlist. | halt }  
n405=  }
n406=  mode $1- 
n407=}
n408=
n409=;evitar error de recarga dialogs ========================
n410=dialog {
n411=  if ($1 == -m) && ($1 != -s) { 
n412=    if ($dialog($2)) { .dialog -x $2 | .dialog -m $2 $3 }
n413=    else { .dialog -m $2 $3 }
n414=  }
n415=  else { .dialog $$1 $2 $3 $4 $5 $6 $7 }
n416=}
n417=;antispam
n418=spamopcd {
n419=  if ($readini(sistema\SpaM\spamconf.ini,spam,spamed) == on) { did -c antispam 5 }
n420=  if ($readini(sistema\SpaM\spamconf.ini,chekeo,spamck1) == on) { did -c antispam 11 }
n421=  if ($readini(sistema\SpaM\spamconf.ini,chekeo,spamck2) == on) { did -c antispam 12 }
n422=  if ($readini(sistema\SpaM\spamconf.ini,chekeo,spamck3) == on) { did -c antispam 13 }
n423=  if ($readini(sistema\SpaM\spamconf.ini,chekeo,spamck4) == on) { did -c antispam 15 }
n424=  if ($readini(sistema\SpaM\spamconf.ini,chekeo,spamck5) == on) { did -c antispam 16 }
n425=  if ($readini(sistema\SpaM\spamconf.ini,chekeo,spamck6) == on) { did -c antispam 17 }
n426=  if ($readini(sistema\SpaM\spamconf.ini,ofensiva,spamof1) == on) { did -c antispam 19 }
n427=  if ($readini(sistema\SpaM\spamconf.ini,ofensiva,spamof2) == on) { did -c antispam 20 }
n428=  if ($readini(sistema\SpaM\spamconf.ini,ofensiva,spamof3) == on) { did -c antispam 21 }
n429=  if ($readini(sistema\SpaM\spamconf.ini,ofensiva,spamof4) == on) { did -c antispam 22 }
n430=  if ($readini(sistema\SpaM\spamconf.ini,ofensiva,spamofe) != off) { did -a antispam 23 $readini(sistema\SpaM\spamconf.ini,ofensiva,spamofe) }
n431=  did -a antispam 25 %spamcanals  
n432=  spamactregf see
n433=}
n434=spamactregf {
n435=  if ($1 == see) {
n436=    %k = 1 | did -r antispam 6
n437=    while ($read(sistema\SpaM\spam.txt,%k)) {
n438=      did -a antispam 6 $read(sistema\SpaM\spam.txt,%k)
n439=      inc %k
n440=    }
n441=    unset %k
n442=  }
n443=  if ($1 == add) {
n444=    %k = $$?="Añadir SpaM $crlf $+ --------------------------------------- $crlf $+ Añadir SpaM (publicidad), tambien puedes añadir una palabra que no quieras ver (un insulto, obscenidades, etc). $crlf $+ Ejpls1: cocacola, www, madrid, barcelona... $crlf $+ Ejpls2: *caco*, *drid, barce*, *www* $crlf $+ Como puedes ver puedes incluir mascaras."    
n445=    if (%k) { write sistema\SpaM\spam.txt %k }
n446=    unset %k | .timer -m 1 100 spamactregf see  
n447=  }
n448=  if ($1 == del) {
n449=    if ($did(antispam,6).sel) {
n450=      %k = $read(sistema\SpaM\spam.txt,w,$did(antispam,6,$did(antispam,6).sel).text)
n451=      if (%k) { write -dl $+ $readn sistema\SpaM\spam.txt }
n452=      unset %k | .timer -m 1 100 spamactregf see  
n453=    }
n454=  }
n455=}
n456=spamactregd {
n457=  if ($1 == boton) {
n458=    if ($did(antispam,$2).state == 1) { 
n459=      writeini sistema\spam\spamconf.ini $3 $4 on 
n460=      if ($2 == 13) { 
n461=        if ($input(Al activar esta opción se cerrara la ventana de privado automaticamente al abrirse con SpaM,8)) { writeini sistema\spam\spamconf.ini $3 $4 on }
n462=        else { writeini sistema\spam\spamconf.ini $3 $4 off 
n463=          did -u antispam $2 
n464=        } 
n465=      }
n466=    }
n467=    else { writeini sistema\spam\spamconf.ini $3 $4 off } 
n468=  }
n469=  if ($1 == edit) {
n470=    if ($did(antispam,$2).text) {  writeini sistema\spam\spamconf.ini $3 $4 $5 }
n471=    else { writeini sistema\spam\spamconf.ini $3 $4 off }
n472=  }
n473=}
n474=spam {
n475=  if ($readini(sistema\SpaM\spamconf.ini,spam,spamed) == on) && ($readini(sistema\SpaM\spamconf.ini,chekeo,$2) == on) {
n476=    if ($3) { 
n477=      if ($len(%spamcanals) == 1) { goto ini }
n478=      elseif ($len(%spamcanals) != 1) && ($3 isin %spamcanals) { goto ini }   
n479=      else { return $null }
n480=    }
n481=    :ini    
n482=    %k = 1 
n483=    while ($read(sistema\SpaM\spam.txt,%k)) {
n484=      if ($wildtok($strip($1),$read(sistema\SpaM\spam.txt,%k),1,32)) && (ircorion.net !isin $strip($1)) {          
n485=        if (%verspaminfotxt) { infotxt@ $strip((12S2paM1) $4 $3 $1)) }
n486=        return (12S2paM1)
n487=      }
n488=      inc %k
n489=    } | unset %k
n490=  }
n491=  return $null
n492=}
n493=;colorea nicks 
n494=coloreanicks { 
n495=  if (!%coloreanicks1d) || (!%coloreanicks1i) || (!%coloreanicks2d) || (!%coloreanicks2i) { %coloreanicks1d = < | %coloreanicks1i = > ||  %coloreanicks2d = < | %coloreanicks2i = >  } 
n496=  if ($1 != $me) { 
n497=    if ($1 isop $2) {  return %coloreanicks2d $+ $chr(64) $+ $1 $+ %coloreanicks2i }
n498=    if ($1 isvo $2) {  return %coloreanicks2d $+ $chr(43) $+ $1 $+ %coloreanicks2i }
n499=    if ($1 ishelp $2) {  return %coloreanicks2d $+ $chr(63) $1 $+ %coloreanicks2i }
n500=    else { return %coloreanicks2d $+ $1 $+ %coloreanicks2i }
n501=  }
n502=  else {
n503=    if ($1 isop $2) {  return %coloreanicks1d $+ $chr(64) $+ $1 $+ %coloreanicks1i }
n504=    if ($1 isvo $2) {  return %coloreanicks1d $+ $chr(43) $+ $1 $+ %coloreanicks1i }
n505=    if ($1 ishelp $2) {  return %coloreanicks1d $+ $chr(63) $1 $+ %coloreanicks1i }
n506=    else { return %coloreanicks1d $+ $1 $+ %coloreanicks1i }
n507=  }
n508=}
n509=
n510=;google
n511=google { dialog -m google google | inc %habierto.google | startgoogle }
n512=
n513=most-busk-stat {
n514=  echo -s %sepa
n515=  echo -s 15,15.14,14.15,2 Busqueda 12G4o8o12G3l4e 14,14.15,15.
n516=  echo -s 0Palabra8 %palabra.buskeda
n517=  echo -s 0Idioma8 %mostrar.idioma
n518=  echo -s 0Resultados en pagina8 %resultados.buskeda
n519=  echo -s 15,15.14,14.15,2 Fin Busqueda 14,14.15,15.
n520=}
n521=startgoogle {
n522=  echo -s %sepa
n523=  echo -s 15,15.14,14.15,2 Abriendo Buscador 12G4o8o12G3l4e 14,14.15,15.
n524=  echo -s 0Iniciado buscador8 %habierto.google
n525=  echo -s 0Busquedas realizadas8 %n.buskedas
n526=}
n527=;setup visualizar iconos para el setup
n528=setupseeico {
n529=  %x = 1
n530=  %f = $read(sistema\setup\setup $+ $returnso($os,num) $+ .txt,w,setupico $+ %setup $+ %x $+ *)   
n531=  while (%f) {
n532=    %i1 = $gettok($read(sistema\setup\setup $+ $returnso($os,num) $+ .txt,w,setupico  $+ %setup $+ %x $+ *),2,32)  
n533=    %i2 = $gettok($read(sistema\setup\setup $+ $returnso($os,num) $+ .txt,w,setuptxt  $+ %setup $+ %x $+ *),2,61)       
n534=    did -i $dname 4 1 seticon 0, $+ %i1 | did -i $dname 4 2 %x %i2
n535=    inc %x | %f = $read(sistema\setup\setup $+ $returnso($os,num) $+ .txt,w,setupico $+ %setup $+ %x $+ *)   
n536=  }
n537=  unset %x %f %i1 %i2
n538=}
n539=
n540=;away 
n541=setawayreg { 
n542=  if ($1 == boton) { 
n543=    if ($did(away,$2).state == 1) { writeini sistema\away\confaway.ini $3 $4 $5 }
n544=    else { writeini sistema\away\confaway.ini $3 $4 off }
n545=  }
n546=  if ($1 == edit) { 
n547=    if ($did(away,$2).text) { 
n548=      %p = $read(sistema\away\confaway.ini,w,$4 $+ *) 
n549=      %p = $readn  
n550=      write -l $+ %p sistema\away\confaway.ini $4 $+ = $+ $5-
n551=      unset %p
n552=    }
n553=    else { writeini sistema\away\confaway.ini $3 $4 off }
n554=  }
n555=}
n556=
n557=loadawaycontrol {
n558=  did -r away 10,13,15,48,25,27,61
n559=  ;usar otro nick----------------------------------------
n560=  if ($readini(sistema\away\confaway.ini,central,awaynick) == on) { did -c away 11 }
n561=  else { did -b away 10 } 
n562=  did -a away 10 $readini(sistema\away\confaway.ini,central,awaynick1)
n563=  did -a away 10 $readini(sistema\away\confaway.ini,central,awaynick2)
n564=  did -a away 10 $readini(sistema\away\confaway.ini,central,awaynick3)
n565=  did -c away 10 1 
n566=  ;away por inactivo-----------------------------------
n567=  did -a away 61 NO | did -a away 61 1 | did -a away 61 3 | did -a away 61 5 | did -a away 61 10 | did -a away 61 15 | did -a away 61 20 | did -a away 61 30 | did -a away 61 45 | did -a away 61 60 | did -a away 61 120 
n568=  did -c away 61 $didwm(away,61,$readini(sistema\away\confaway.ini,central,awayautoidle))
n569=  ;msgs para away on/off----------------------------
n570=  did -a away 13 $gettok($read(sistema\away\confaway.ini,w,awaymsgon1*),2,61)
n571=  did -a away 13 $gettok($read(sistema\away\confaway.ini,w,awaymsgon2*),2,61)
n572=  did -a away 13 $gettok($read(sistema\away\confaway.ini,w,awaymsgon3*),2,61)
n573=  did -c away 13 1 
n574=  did -a away 15 $gettok($read(sistema\away\confaway.ini,w,awaymsgoff1*),2,61)
n575=  did -a away 15 $gettok($read(sistema\away\confaway.ini,w,awaymsgoff2*),2,61)
n576=  did -a away 15 $gettok($read(sistema\away\confaway.ini,w,awaymsgoff3*),2,61)
n577=  did -c away 15 1 
n578=  ;anunciar
n579=  did -a away 48 1 | did -a away 48 3 | did -a away 48 5 | did -a away 48 10 | did -a away 48 15 | did -a away 48 20 | did -a away 48 30 | did -a away 48 45 | did -a away 48 60 | did -a away 48 120
n580=  did -c away $readini(sistema\away\confaway.ini,anunciar,awayanuncio)
n581=  did -c away 48 $didwm(away,48,$readini(sistema\away\confaway.ini,anunciar,awayanunciotime))
n582=  if ($readini(sistema\away\confaway.ini,anunciar,awayanuncio) != 17) { did -b away 48 }
n583=  did -c away $readini(sistema\away\confaway.ini,anunciar,awayestilo) 
n584=  ;pager mode
n585=  did -a away 25 $gettok($read(sistema\away\confaway.ini,w,awaypagermsg1*),2,61)
n586=  did -a away 25 $gettok($read(sistema\away\confaway.ini,w,awaypagermsg2*),2,61)
n587=  did -a away 25 $gettok($read(sistema\away\confaway.ini,w,awaypagermsg3*),2,61)
n588=  did -c away 25 1 
n589=  if ($readini(sistema\away\confaway.ini,pager,awaysound) == on) { did -c away 26 | did -c away 27 }
n590=  else { did -b away 27 } 
n591=  did -a away 27 $readini(sistema\away\confaway.ini,pager,awaysoundpath)
n592=  did -a away 70 Retardo: $readini(sistema\away\confaway.ini,pager,awaytimemode) $+ s
n593=  did -a away 72 $readini(sistema\away\confaway.ini,pager,awaysiquery)
n594=  if ($readini(sistema\away\confaway.ini,pager,awaynoquery) == on) { did -c away 29 }
n595=  if ($readini(sistema\away\confaway.ini,pager,awaymodev) == on) { did -c away 34 }
n596=  if ($readini(sistema\away\confaway.ini,pager,awaymodedeo) == on) { did -c away 35 }
n597=  else { did -b away 34 }
n598=  if ($readini(sistema\away\confaway.ini,pager,awaymodeo) == on) { did -c away 36 }
n599=  ;log
n600=  if ($readini(sistema\away\confaway.ini,log,awaylogquery) == on) { did -c away 39 }
n601=  if ($readini(sistema\away\confaway.ini,log,awaylognotice) == on) { did -c away 40 }
n602=  if ($readini(sistema\away\confaway.ini,log,awaylogctcp) == on) { did -c away 41 }
n603=  if ($readini(sistema\away\confaway.ini,log,awaylognombrarme) == on) { did -c away 42 }
n604=  if ($readini(sistema\away\confaway.ini,log,awaylogopdeop) == on) { did -c away 43 }
n605=  if ($readini(sistema\away\confaway.ini,log,awaylogvozdevoz) == on) { did -c away 44 }
n606=  if ($readini(sistema\away\confaway.ini,log,awaylogkicks) == on) { did -c away 45 }
n607=  if ($readini(sistema\away\confaway.ini,log,awaylogbans) == on) { did -c away 46 }
n608=  ;cargando configuracion para establecer away final
n609=  writeini sistema\away\confaway.ini away awaytime $time
n610=  writeini sistema\away\confaway.ini away awaydate $date
n611=  writeini sistema\away\confaway.ini away awaynickoff $me
n612=  writeini sistema\away\confaway.ini away awaynickon $did(away,10).text
n613=  writeini sistema\away\confaway.ini away awaypagermsg $did(away,25).text
n614=  setawayreg edit 13 x awaymsgon $did(away,13).text 
n615=  setawayreg edit 15 x awaymsgoff $did(away,15).text 
n616=}
n617=;enable disable away
n618=awayonoffcontrols { did $1 away 7,8,10,11,12,13,14,15,16,17,48,49,18,19,20,21,22,23,24,25,26,27,28,29,30,32,33,35,36,38,39,40,41,42,43,44,45,46,60,61,62,65,66 }
n619=awayseemsg {
n620=  %r1 = $2
n621=  %r2 = $readini(sistema\away\confaway.ini,away,awaytime)
n622=  %r3 = $readini(sistema\away\confaway.ini,away,awaydate) 
n623=  %r4 = $gettok($read(sistema\away\confaway.ini,w,awaymsg $+ $2 $+ *),2,61)  
n624=  %p = $gettok($read(sistema\away\confaway.ini,w,awaysintaxis*),2,61)
n625=  if ($readini(sistema\away\confaway.ini,anunciar,awayestilo) == 22) { %p = $strip(%p) }
n626=  if ($1 == canal) && ($chan(0) > 0) { amsg %p | goto end }
n627=  if ($1 == logginawaygraba) { write sistema\away\away.log 2*** Away - Opciones: %p | goto end }
n628=  else { if ($1 != canal) { msg $1 %p } }
n629=  :end
n630=  unset %p
n631=}
n632=awayon {
n633=  .timerawayon* off | .timerawayoff* off |  .timerlagearme off | timesklageo
n634=  if ($dialog(away)) {  did -a away 6 Estado Away (ON) | did -c away 6 }
n635=  if (!$server) { dialog -m noconex noconex | halt }  
n636=  writeini sistema\away\confaway.ini away away on  
n637=  writeini sistema\away\confaway.ini away awaymsgon $did(away,13)
n638=  writeini sistema\away\confaway.ini away awaymsgoff $did(away,15)
n639=  writeini sistema\away\confaway.ini away awaypagermsg $did(away,25)
n640=  away $readini(sistema\away\confaway.ini,away,awaymsgon) 
n641=  .enable #away
n642=  if ($readini(sistema\away\confaway.ini,central,awaynick) == on) { 
n643=    nick $readini(sistema\away\confaway.ini,away,awaynickon) 
n644=    if ($readini(sistema\away\confaway.ini,pager,awaymodev) == on) { .timerawayon1 1 $readini(sistema\away\confaway.ini,pager,awaytimemode) setmodeuser $readini(sistema\away\confaway.ini,away,awaynickon)  +v }
n645=    if ($readini(sistema\away\confaway.ini,pager,awaymodedeo) == on) { .timerawayon2 1 $calc($readini(sistema\away\confaway.ini,pager,awaytimemode) + 1) setmodeuser $readini(sistema\away\confaway.ini,away,awaynickon)   -o  }
n646=  }  
n647=  else {
n648=    if ($readini(sistema\away\confaway.ini,pager,awaymodev) == on) { .timer 1awayon3 $readini(sistema\away\confaway.ini,pager,awaytimemode)  setmodeuser $me  +v }
n649=    if ($readini(sistema\away\confaway.ini,pager,awaymodedeo) == on) { .timerawayon4 1 $calc($readini(sistema\away\confaway.ini,pager,awaytimemode) + 1) setmodeuser $me  -o  }  
n650=  }
n651=  if ($readini(sistema\away\confaway.ini,anunciar,awayanuncio) != 19) { awayseemsg canal ON }  
n652=  if ($readini(sistema\away\confaway.ini,anunciar,awayanuncio) == 17) { .timerawayanuncio 0 $calc($readini(sistema\away\confaway.ini,anunciar,awayanunciotime) * 60) awayseemsg canal ON } 
n653=  write sistema\away\away.log 2*** Away - Iniciada sesión de inactividad 
n654=  awayseemsg logginawaygraba ON
n655=}
n656=awayoff {
n657=  .timerawayon* off | .timerawayoff* off |  .timerlagearme off | timesklageo
n658=  if (!$server) { dialog -m noconex noconex | halt }    
n659=  away | .disable #away
n660=  writeini sistema\away\confaway.ini away awaytime $time
n661=  writeini sistema\away\confaway.ini away awaydate $date
n662=  if ($readini(sistema\away\confaway.ini,central,awaynick) == on) { 
n663=    .timer 1 1 autoidentifysred $readini(sistema\away\confaway.ini,away,awaynick)
n664=    if ($readini(sistema\away\confaway.ini,pager,awaymodedeo) == on) {  .timerawayoff1  1 $readini(sistema\away\confaway.ini,pager,awaytimemode)  setmodeuser $readini(sistema\away\confaway.ini,away,awaynickoff) +o }    
n665=    if ($readini(sistema\away\confaway.ini,pager,awaymodev) == on)  {  .timerawayoff2  1 $calc($readini(sistema\away\confaway.ini,pager,awaytimemode) + 1)  setmodeuser $readini(sistema\away\confaway.ini,away,awaynickoff) -v  }   
n666=  }
n667=  else {
n668=    if ($readini(sistema\away\confaway.ini,pager,awaymodedeo) == on) { .timerawayoff3  1 $readini(sistema\away\confaway.ini,pager,awaytimemode)  setmodeuser $me  +o }     
n669=    if ($readini(sistema\away\confaway.ini,pager,awaymodev) == on)  {  .timerawayoff4  1 $calc($readini(sistema\away\confaway.ini,pager,awaytimemode) + 1)  setmodeuser $me -v  }     
n670=  }  
n671=  if ($readini(sistema\away\confaway.ini,anunciar,awayanuncio) != 19) { awayseemsg canal OFF  }
n672=  if ($readini(sistema\away\confaway.ini,anunciar,awayanuncio) == 17) { .timerawayanuncio off } 
n673=  write sistema\away\away.log 2*** Away - Finalizada sesión de inactividad 
n674=  awayseemsg logginawaygraba OFF
n675=}
n676=awaypager {
n677=  if ($readini(sistema\away\confaway.ini,pager,awaynoquery) == on) && ($nick !isin $readini(sistema\away\confaway.ini,pager,awaysiquery)) { timer 1 1 .close -m $1 } 
n678=  infotxt@ 11 $1 8te ha solicitado durante tu estado 9away. 
n679=  if ($flooduser($1,%flooduseraway)) { halt }  
n680=  %flooduseraway = $1 
n681=  awayseemsg $1 ON 
n682=  if (!$redbot($1)) { .msg $1 $readini(sistema\away\confaway.ini,away,awaypagermsg)  }
n683=  if ($readini(sistema\away\confaway.ini,pager,awaysound) == on) { .splay $readini(sistema\away\confaway.ini,pager,awaysoundpath) } 
n684=}