[script]
n0=;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
n1=; 1.- Nombre: OrioN
n2=; 2.- Versión: v5.9
n3=; 3.- Autor: Javier Fernández Rivera
n4=; 4.- Web: http://www.ircorion.net
n5=; 5.- Mail: script@ircorion.net
n11=;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
n12=
n13=;EVENTOS PRINCIPALES===========================
n14=on 1:start:{  
n15=  if (\OrioN\ !isin $mircdir) {  informo ERROR grave. $crlf $+ Se ha detectado que OrioNScripT se encuentra instalado en un directorio " $+ $mircdir $+ " el cual no tiene como nombre "OrioN", cambiele el nombre al directorio para que sea unicamente "OrioN"... }    
n16=  if ($gettok($mircdir,2,32)) { informo ERROR grave. $crlf $+ Se ha detectado que el script se encuentra en una ruta o directorio que contiene espacios en alguno de sus nombres (ejpl: C.\Mis Documets), mIRC no soporta directorios con espacio. $crlf $+ Debes meter la carpeta del OrioN en un directorio que no contenga espacios, se recomienda en c:\orion\ $crlf $+ Disculpe las molestias, en breve se cerrara el OrioN. | .timer 1 10 exit }
n17=  dll $mircdirsistema\dlls\mircustom.dll SetIcon -m $orionskin(OrioN.ico)
n18=  .timerindtimeact 0 1 indtimeact
n19=  background -l $orionskin(barramirc.jpg)   
n20=  @logo | @barstatus | @barsepa |@barWAR | @barexes | @barscript 
n21=  if ($gettok($time,1,58) < 10) && (%autofondo == on) { .timer 1 1 background -mf $orionskin(fondo1.jpg) }
n22=  titlebar & OrioN ScripT v5.9 - Copyright (C) bY Quasi < www.ircOrioN.net ~ script@ircorion.net >
n23=  compbackground | sorion start | actstats start | showmirc -x  | unset %ts %tm %th |  set %auser si  | txtiniscriptstatus | .disable #away  | %oversion = 5.9 
n24=  if (%iniejecutconex == on) { server %servautoconexion }  
n25=  if (%iniejecutserv == on) { dialog -m servers servers }
n26=  if (!%iniacercade) { dialog -m acercade acercade }
n27=  if ($readini($mircdirsistema\stats\stats.ini,stats,start) == 1) {
n28=    set %dirwindows $finddir(C:\,windows,1)    
n29=    if ($findfile($mircdirwar\,click.exe,1) == $null) {  informo No se ha localizado en el script ningun programa de war (guerra), si los desea puedes conseguirlos en el mismo web del orion-script: www.ircOrioN.net  $crlf Desde OrioNScripT no recomendamos el uso de estos programas de war y OrioN funciona correctamente y al punto obtimización maxima sin ellos.  } 
n30=    if ($input(¿Desea configurar su OrioN ScripT?)) { dialog -m setup setup }  
n31=    if (98 !isin $os) {  informo !!!ATENCION!!! Lea por favor atentamente este mensaje solo saldra esta vez. Su sistema operativo puede ser: (XP)/2000/NT/ME, y estos presentan diferencias de compatibilidad con versiones anteriores de windows (98). El propio programa OrioN las ha solbentado. Si usted pulsa sobre el boton derecho encima del icono del mIRC y a continuacion selecciona la solapa compatibilidad y la activa el OrioN dejara de funcionar correctamente. Puesto que la compatibilidad ya esta provista en su mecanismo interno. No debe de activar esa casilla. }  
n32=    nick $$?="Por favor introduce tu nick (apodo de inet)" 
n33=  } 
n34=}
n35=;evento al conectar=======================================================
n36=on 1:connect:{
n37=  echo -s $oriontheme(eConnect)
n38=  .auser 900 $nick | timesklageo | conexext | .enable #escuchasocks | actstats conex | onlinenews | onlineldecode  | loadconfredes
n39=  infotxt@ Conectado a: $server por el puerto: $port | %timeconex = $time 
n40=  if (%autowav1) { sorion %autowav1 }   
n41=  if (%autoconfig#conex) { dialog -m config# config# }
n42=  if (%autonewsserv) { getnoticeserv }
n43=  if (%conexejecutsacar-canales == on) { .timer 1 1 dialog -m canales canales }
n44=  if ($ignore(*!*@*)) { .ignore -r *!*@* }
n45=}
n46=on 1:disconnect:{ 
n47=  actstats tonline %th | timerindconex off | infotxt@ Desconectado del servidor : $server .
n48=  .disable #away  | .ruser $nick 
n49=  drawpic -s  @barstatus  393 5  $orionskin(conexoff.jpg)
n50=  titlebar & OrioN ScripT v5.9 - Copyright (C) bY Quasi < www.ircOrioN.net ~ script@ircorion.net >
n51=  ;desactivando juegos del addon  
n52=  unset  %juego.adivina %ruleta %cruz %cara
n53=  if (%autowav2) { sorion %autowav2 }    
n54=  if ($readini($redconf,addoncontrol,loadaddon) == on) && ($readini($redconf,addoncontrol,acpath) != off) { .unload -rs $readini($redconf,addoncontrol,acpath) }
n55=}
n56=on ^1:join:#:{
n57=  if ($me == $nick) { 
n58=    infotxt@ Has entrado al canal: $chan 
n59=    %waitdatecanal = on
n60=    if (%autowav3) { sorion %autowav3 }     
n61=    if (%automsgjoinme) { .timer 1 1 msg # %automsgjoinme }  
n62=    if (%msgsalunotify) { .timer 1 1 autonicksnotify saludo1 #  %msgsalunotify }   
n63=    actstats join    
n64=  }
n65=  else { 
n66=    %nickjoin = $nick   
n67=    if (%msgjoin) { msg # $nick - %msgjoin }     
n68=    if (%rejoinnick == $gettok($address($nick,2),2,64)) { 
n69=      %r1 = $iif($nick != %rejoinnicknick , %rejoinnicknick)
n70=      echo $chan $oriontheme(eReJoin)  
n71=    }
n72=    else { echo $chan $oriontheme(eJoin) 12[&u?] }
n73=  }
n74=  if ($ialchan($gettok($address($nick,2),2,33),$chan,0) > 1) { 
n75=    echo $chan $oriontheme(eJoinClon) $gettok($address($nick,2),2,64) 7«10 $+ $ialchan($gettok($address($nick,2),2,33),$chan,0) $+ 7»14 $ialchan($gettok($address($nick,2),2,33),$chan ,1).nick $ialchan($gettok($address($nick,2),2,33),$chan ,2).nick $ialchan($gettok($address($nick,2),2,33),$chan ,3).nick $ialchan($gettok($address($nick,2),2,33),$chan ,4).nick $ialchan($gettok($address($nick,2),2,33),$chan ,5).nick
n76=    infotxt@ Detectados clones en: $chan   
n77=  } 
n78=  if (%espiarnick == $nick) && ($window(@espianick) != $null)  { aline @espianick 0El nick9 %espiarnick 0ha entrado en el canal $chan }
n79=  unset %rejoinnick | haltdef
n80=}
n81=on ^1:part:#:{  
n82=  if ($me == $nick) { 
n83=    echo $chan $oriontheme(ePartMe)
n84=    infotxt@ Has salido del canal: $chan    
n85=    if (%msgpart) { msg # %msgpart }    
n86=    actstats part
n87=    if (%autowav4) { sorion %autowav4 }     
n88=  }
n89=  if ($me != $nick) { 
n90=    echo $chan $oriontheme(ePart) $1- 
n91=    %rejoinnick = $gettok($address($nick,2),2,64)    
n92=    %rejoinnicknick = $nick
n93=  }
n94=  if (%WAR.ssss == $chan) { set %des.WAR.ssss -x- | unset %act.WAR.ssss %WAR.ssss } 
n95=  if (%espiarnick == $nick) && ($window(@espianick) != $null)  { aline @espianick 0El nick9 %espiarnick 0ha salido del canal $chan }
n96=  haltdef
n97=}
n98=on ^1:mode:#:{
n99=  %r = $1- 
n100=  echo # $oriontheme(eModeCanal) 
n101=  haltdef
n102=}
n103=on ^1:op:#:{
n104=  %r1 = $nick | %r2 = $1- 
n105=  if ($me == $opnick) && ($me != $nick) {
n106=    infotxt@ 9 $nick 11te a dado 4@11 (operador) en el canal8 $chan . 
n107=    actstats opme    
n108=    if (%autowav5) { sorion %autowav5 }   
n109=    if (%msgop) && (!$redbot($nick)) { msg # $nick - %msgop }    
n110=  }
n111=  if ($me == $nick) { actstats op } 
n112=  if (%espiarnick == $nick) && ($window(@espianick) != $null)  { aline @espianick 0El nick9 %espiarnick 0ha dado @ a11 $opnick }    
n113=}
n114=on ^1:deop:#:{
n115=  %r1 = $nick | %r2 = $1- 
n116=  if ($me == $opnick) && ($me != $nick) && ($redbot($redbotcanal) != $nick) { 
n117=    infotxt@ 9 $nick 11te ha quitado tu 4@11 en el canal8 $chan  . 
n118=    actstats deopme    
n119=    if (%msgdeop) && (!$redbot($nick)) { msg # $nick - %msgdeop }      
n120=    if (%autowav6) { sorion %autowav6 }   
n121=  }
n122=  if ($me == $nick) { actstats deop }   
n123=  if (%espiarnick == $nick) && ($window(@espianick) != $null)  { aline @espianick 0El nick9 %espiarnick 0ha quitado @ a11 $opnick }   
n124=}
n125=on ^1:voice:#:{
n126=  %r1 = $nick | %r2 = $1- 
n127=  if ($me != $nick) && ($me == $vnick)  { 
n128=    infotxt@ 9 $nick 11te ha dado voz en el canal8 $chan     
n129=    actstats voiceme    
n130=    if (%msgvoz) && (!$redbot($nick))  { msg # $nick - %msgvoz }        
n131=    if (%autowav7 != $null) { sorion %autowav7 }    
n132=  }
n133=  if ($me == $nick) { actstats voice }   
n134=}
n135=on ^1:devoice:#:{
n136=  %r1 = $nick | %r2 = $1- 
n137=  if ($me != $nick) && ($me == $vnick)  { 
n138=    infotxt@ 9 $nick 11te acaba de quitar la voz en el canal8 $chan
n139=    if (%msgdevoz)  && (!$redbot($nick)) { msg # $nick - %msgdevoz }       
n140=    if (%autowav8 != $null) { sorion %autowav8 } 
n141=  }
n142=  if ($me == $nick) { actstats devoice }     
n143=}
n144=on ^1:kick:#:{
n145=  %r1 = $nick | %r2 = $knick | %r3 = $1- 
n146=  echo # $oriontheme(eKick)    
n147=  if ($me == $knick) && ($me != $nick) && ($redbot($redbotcanal) != $nick) { 
n148=    infotxt@ 9 $nick 11te ha kikeado del canal8 $chan .    
n149=    if (%msgkick)  && (!$redbot($nick)) { msg # $nick - %msgkick }       
n150=    actstats kickme
n151=    if (%autowav11 != $null) { sorion %autowav11 }  
n152=  }
n153=  if ($me == $nick) { actstats kick }    
n154=  if (%espiarnick == $nick) && ($window(@espianick) != $null)  { aline @espianick 0El nick9 %espiarnick 0ha kikeado a11 $knick }  
n155=  halt
n156=}
n157=on ^1:ban:#:{ 
n158=  %r1 = $nick | %r2 = $bnick | %r3 = $banmask 
n159=  if ($me isin $banmask) || $remove($address($me,2),*!*@) isin $banmask || ( $address($me,0)  isin $banmask ) || ( $address($me,3) isin $banmask ) || ( $address($me,4) isin $banmask ) {   
n160=    infotxt@ Te acaban de meter un ban, preparando ataques predefinidos..   
n161=    if (%msgban)  && (!$redbot($nick)) { msg # $nick - %msgban }          
n162=    actstats banme    
n163=    if (%autowav12) { sorion %autowav12 }     
n164=  }
n165=  if ($me == $nick) { actstats ban }     
n166=  if (%espiarnick == $nick) && ($window(@espianick) != $null)  { aline @espianick 0El nick9 %espiarnick 0ha baneado en el canal $chan }  
n167=}
n168=on ^1:unban:#:{ 
n169=  %r1 = $nick | %r2 = $banmask 
n170=}
n171=
n172=on ^1:topic:#:{
n173=  %r = $1- 
n174=  echo # *** 4T2opic 14por12 $nick $+ : $iif($len(%r) > 0,1 %r,14[Sin topic])
n175=  haltdef
n176=}
n177=on ^1:nick:{
n178=  infotxt@  $nick ahora es [ $newnick ]  
n179=  %u = 0 | while ($chan(%u)) {
n180=    inc %u
n181=    if ($newnick ison $chan(%u)) { echo $chan(%u) $oriontheme(eNick)  }
n182=  } | unset %u
n183=  if ($me == $nick) { set %rusernick $nick | .timer -m 1 1 timesklageo | .ruser $nick | .auser 900 $newnick  }
n184=  if (%espiarnick == $nick) && ($window(@espianick) != $null)  { aline @espianick 0El nick9 %espiarnick 0ahora es $newnick  } 
n185=  haltdef
n186=}
n187=
n188=on 1:notice:*:#:{
n189=  %r = $1- 
n190=  if ($spam($1-,spamck4,#,$nick)) &&  (!$redbot($nick)) { infotxt@ $oriontheme(sAntiSpam) 0,1 # | protekperso spam $nick $chan | %r = $spam($1-,spamck4) }
n191=}
n192=on 1:notice:*:?:{
n193=  %r = $1- 
n194=  if ($spam($1-,spamck4,x,$nick)) &&  (!$redbot($nick)) {  infotxt@ $oriontheme(sAntiSpam) 0,1 $nick  | protekperso spam $nick $chan | %r = $spam($1-,spamck4) }
n195=}
n196=on 1:action:*:#:{
n197=  %r = $1- 
n198=  if ($spam($1-,spamck5,#,$nick))  &&  (!$redbot($nick)) {  infotxt@ $oriontheme(sAntiSpam)  0,1 # | protekperso spam $nick $chan | %r = $spam($1-,spamck5) }
n199=}
n200=on 1:action:*:?:{
n201=  %r = $1- 
n202=  if ($spam($1-,spamck5,x,$nick))  &&  (!$redbot($nick)) {  infotxt@ $oriontheme(sAntiSpam)   0,1 $nick | protekperso spam $nick $chan | %r = $spam($1-,spamck5) }
n203=}
n204=
n205=on ^1:quit:{  
n206=  %u = 1 | %r = $1-
n207=  while ($chan(%u)) {
n208=    if ($nick ison $chan(%u)) { 
n209=      if ($spam($1-,spamck6,x,$nick))  &&  (!$redbot($nick)) {  infotxt@ $oriontheme(sAntiSpam) 0,1 $nick | %r = $spam($1-,spamck6) }
n210=      echo $chan(%u) $oriontheme(eQuit) 
n211=      if ($query($nick)) { echo $query($nick)  $oriontheme(eQuit)
n212=      }
n213=    }
n214=    inc %u
n215=  }
n216=  unset %u    
n217=  if (%espiarnick == $nick) && ($window(@espianick) != $null)  { aline @espianick 0El nick9 $nick  0ha salido del IRC }
n218=  haltdef
n219=}
n220=
n221=on 1:filesent:*.*:{
n222=  actstats filesend
n223=  echo -s  15- $filename . $nick  ( $address )
n224=  infotxt@ Trasmision de archivo a: 0,1 $nick 
n225=  haltdef
n226=}
n227=on 1:filercvd:*.*:{
n228=  actstats fileget
n229=  %lastgetfile = $nopath($filename)  
n230=  echo -s 15- $filename . $nick  ( $address )
n231=  infotxt@ Fichero recibido de: $nick  
n232=  if (%autoejecutsacar-getfile == on) { dialog -m getfile getfile }
n233=  haltdef
n234=}
n235=on ^1:sendfail:*.*: {
n236=  echo -s  15- $filename . $nick  ( $address ) . Error localizado en trasmision de datos a equipo remoto. 
n237=  infotxt@ Error localizado en trasmision de datos a equipo remoto. 
n238=  haltdef 
n239=}
n240=on ^1:getfail:*.*:{ 
n241=  echo -s  15- $filename . $nick  ( $address ) . Error localizado en trasmision de datos a equipo remoto. 
n242=  infotxt@ Error localizado en trasmision de datos a equipo remoto. 
n243=  haltdef 
n244=}
n245=
n246=on ^1:text:*:?:{ 
n247=  %q = $1- 
n248=  if ($me isin  $strip($1-))  && (!$redbot($nick)) { eventdicenminick $nick $chan $1- } 
n249=  if ($spam($1-,spamck2,x,$nick))  &&  (!$redbot($nick)) {  infotxt@ $oriontheme(sAntiSpam) 0,1 $nick | protekperso spam $nick $chan | %q = $spam($1-,spamck2) }
n250=  echo $nick $coloreanicks($nick,$chan) %q    
n251=  haltdef
n252=}  
n253=on ^1:text:*:#:{  
n254=  if ($me iswm  $strip($1-)) && (%autowav9) {  sorion %autowav9  }    
n255=  if (!%waitdatecanal) {  
n256=    %q = $1- 
n257=    if ($spam($1-,spamck1,#,$nick))  &&  (!$redbot($nick)) {  infotxt@ $oriontheme(sAntiSpam) 0,1 # | protekperso spam $nick $chan | %q = $spam($1-,spamck1) }
n258=    if (%espiarnick == $nick) && ($window(@espianick) != $null)  { aline @espianick 0<9 $+ %espiarnick $+ 0> $1-  }  
n259=    if ($me isin  $strip($1-))  && (!$redbot($nick)) { eventdicenminick $nick $chan $1- }
n260=    if (ayud isin  $1-) { eventayuda $nick $chan $1- }
n261=    if ($gettok($1-,2,32) == $readini(sistema\ldecode\ldecode.ini,chars,clave)) { %q = $typeletra(decode,$gettok($1-,3-,32)) } 
n262=    echo $chan $coloreanicks($nick,$chan) %q    
n263=    haltdef
n264=  }
n265=}
n266=
n267=on 1:input:*:{
n268=  if ($left($1-,1) != $chr(47)) && (!$redbot($active)) {     
n269=    %q = $1-    
n270=    if ($setlink($1-)) { %q = $setlink($1-) }      
n271=    if ($loadcorsmyles($1-)) {  %q = $loadcorsmyles(%q) } 
n272=    if ($loadcorwords($1-)) { %q = $loadcorwords(%q) }  
n273=    if ($loadcn($1-,$chan)) { %q = $loadcn(%q,$chan)  } 
n274=    if (%vartypeletra != normal) {  %q = $typeletra(%vartypeletra,$1-)  }     
n275=    if (@cloncanal isin $active) { halt }
n276=    echo $coloreanicks($me,$active) %q 
n277=    .msg $active %q 
n278=    unset %flaginput  %#nc %q    
n279=    halt
n280=  }
n281=}
n282=
n283=on 1:open:?:{ 
n284=  %q = $1- 
n285=  if ($spam($1-,spamck3,x,$nick)) && (!$redbot($nick)) {  infotxt@ $oriontheme(sAntiSpam) 0,1 # | protekperso spam $nick $chan | %q = $spam($1-,spamck3) | .timer -m 1 100 window -c $nick }
n286=  if (%autowav10 != $null) { sorion %autowav10 }
n287=  if ($redbot($nick)) { background -p $nick $orionskin(bot.jpg) }
n288=  else { background -x $nick } 
n289=  revlog $nick
n290=  echo $nick $oriontheme(sSeparadorLine) 4I2nfo: 12[&Whois] 2- 12[&Who] 2- 12[&Dns] 2- 10Log $+ (5 $+ $iif($exists(logs\ $+ $nick.log),on,off) $+ 10)  
n291=  echo $nick $oriontheme(sSeparadorLine)  
n292=
n293=}
n294=
n295=;prohibir hablar en canal=================================================
n296=#ssss off
n297=on 1:text:*:%war.ssss: {
n298=  sorion kick | .msg $chan %txtscript 
n299=  mode # +b $address($nick,2) | kick # $nick 10Aqui solo hablo io
n300=  infotxt@ Actuando contra el canal %WAR.ssss 0[ 4modo ataque0 ] 
n301=}
n302=#ssss end
n303=
n304=;recepcion de ficheros y envio , F-SERVER=====================================
n305=on 1:text: !musica:*:{ 
n306=  if (%sendmemp3 == on) {
n307=    echo -s 4,2 $nick 8ha solicitado el archivo 11 %tococanalmusi 8»»» procesando trasmision.... 9,99
n308=    dcc send $nick %tococanalmusi 
n309=    infotxt@ Auto-envio de fichero musical a:8 $nick 
n310=  }
n311=}
n312=
n313=;FSERVER=======================================
n314=on *:open:=:{ 
n315=  echo -s $oriontheme(eOpenChat)
n316=  infotxt@ Open DCC-Chat $nick
n317=} 
n318=on *:close:=:{ 
n319=  echo -s $oriontheme(eCloseChat)
n320=  infotxt@ Close DCC-Chat $nick 
n321=} 
n322=
n323=#fserver off
n324=on 1:serv:*:{ 
n325=  if (dir isin $1-) { aline @fserver 9< $+ 0 $+ $nick $+ 9 $+ > 15visualiza dir/files }
n326=  if (cd isin $1-) { 
n327=    if (.. isin $1-) { aline @fserver 9< $+ 0 $+ $nick $+ 9 $+  > 15entra en dir:8 %dirfserver  }
n328=    else { aline @fserver 9< $+ 0 $+ $nick $+9 $+  > 15entra en dir:8 $2-  }
n329=  }
n330=  if (get isin $1-) { aline @fserver 9< $+ 0 $+ $nick $+ 9 $+ > 15coje $2-  }
n331=}
n332=
n333=on 1:text:%passfserver:*:{ 
n334=  if ($window(@fserver) == $null) { @fserver }  
n335=  if (%baneofserv1 == $mask($address($nick,5),5)) { echo -s  $oriontheme(eFservProhJoin) | .msg $nick $oriontheme(eFservBaned) | halt }
n336=  if (%baneofserv2 == $mask($address($nick,5),5)) { echo -s  $oriontheme(eFservProhJoin)  |  .msg $nick $oriontheme(eFservBaned) | halt } 
n337=  if (%baneofserv3 == $mask($address($nick,5),5)) { echo -s  $oriontheme(eFservProhJoin)  |  .msg $nick $oriontheme(eFservBaned)  | halt }
n338=  set %x1 %maxusersfserver + 1 
n339=  set %x 0
n340=  :ini
n341=  inc %x 
n342=  if (%x1 == %x) { .msg $nick 2Solo permito la entrada a mi f-server a un numero de:4  %maxusersfserver 2usuario/s. Prueba mas tarde. 4:12-7P | unset %x %x1 }
n343=  else { 
n344=    if ($fserv(%x) != $null) { goto ini }
n345=    elseif ($fserv(%x) == $null) {     
n346=      echo -s  $oriontheme(eOpenFserv)
n347=      echo -s $oriontheme(eOpenFservNum)
n348=      infotxt@ Habierto fserver a: $nick 
n349=      fserve $nick 1 " $+ %dirfserver $+ " sistema\txts\welcomefserver.txt 
n350=      aline -l @fserver $nick | cline -l $rand(8,15) @fserver $line(@fserver,0,1)
n351=      aline @fserver 9< $+ 0 $+ $nick $+ 9 $+  > 4entra 15en el9 fserver8       
n352=    }
n353=    window -h = $+ $fserv($nick) 
n354=  }
n355=}
n356=
n357=on 1:close:!:{
n358=  if ($window(@fserver) != $null) { 
n359=    %t = 0
n360=    :ini
n361=    inc %t
n362=    if ($line(@fserver,%t,1) == $nick) { 
n363=      dline -l @fserver %t | unset %x 
n364=      aline @fserver 9< $+ 0 $+ $nick $+ 9 $+  > 154sale 15del fserver 
n365=    } 
n366=    else { goto ini }
n367=  }
n368=}
n369=#fserver end
n370=
n371=;ctcp para baruser lag muestrar =======================
n372=ctcp 900:ping:{
n373=  %lag = $calc($ctime - $2) 
n374=  lagmetro  
n375=  actstats lag %lag 
n376=  timesklageo    
n377=  halt
n378=}
n379=;evento de open y close para dcc-chats=======================================
n380=on *:open:=:{ 
n381=  echo -s $oriontheme(eOpenDccChat)
n382=  set infotxt@ Dcc-chat, abierto con: $nick
n383=}
n384=on 1:close:=:{ 
n385=  echo -s $oriontheme(eCloseDccChat)
n386=  set infotxt@ Cortada conexión dcc-chat con: $nick  
n387=  if (%atakdcclooker == on) { .timerataklooker off }
n388=}
n389=
n390=;msgs del server================================
n391=;                          localizando splits
n392=on ^1:snotice:*: {
n393=  if ($4 == Net) && ($5 == break:) { echo -s  SPLIT $7 deslinka de $6 $+ $8- }
n394=  if ($4 == Net) && ($5 == juction:) { echo -s  SPLIT $7 deslinka de $6 $+ $8- }
n395=  halt
n396=}
n397=
n398=
n399=;eventos de notificación ==================================================
n400=on 1:notify:{
n401=  infotxt@ Localizados nicks conocidos. 
n402=  echo -s $oriontheme(sSeparadorLine) 
n403=  echo -s $oriontheme(eNotify)
n404=  if (%seenotifyorion) { dialog -m notify notify } 
n405=}
n406=on 1:unotify:{
n407=  infotxt@ Localizados nicks conocidos. 
n408=  echo -s $oriontheme(sSeparadorLine) 
n409=  echo -s $oriontheme(eUNotify)
n410=}
n411=;requerimiento dns========================================================
n412=on 1:dns:{ 
n413=  echo -s $oriontheme(eDns)
n414=  echo -s $oriontheme(eDnsIp)
n415=  echo -s $oriontheme(eDnsHost)
n416=  echo -s $oriontheme(eDnsAddress)
n417=  if ($iaddress != $null) { echo -s $oriontheme(eDireResult1) | who $iaddress | %dnsçorionip = $iaddress | %dnsscanorionnick = $nick }
n418=  if ($naddress != $null) {
n419=    echo -s $oriontheme(eDireResult2) | who $naddress
n420=    if ($dialog(ignore)) { did -ra ignore 3 Resolviendo dirección... | .timer 1 1 did -ra ignore 3 $naddress }
n421=  }
n422=  if ($iaddress == $null) && ($naddress == $null) { echo -s $oriontheme(eNoDireResult) }
n423=  unset %dnsscanorionip  %dnsscanorionnick  
n424=  halt
n425=}
n426=
n427=;eventos de sockets para escaneador===============================
n428=on 1:sockopen:%s.name:{
n429=  if ($dialog(scan) != $null) { did -r scan 27 }
n430=  if ( $sockerr > 1 ) { .timerscan4 -m 1 400 scanc4 $sock(%s.name).ip %s.name %s.port }
n431=  else { .timerscan4   -m 1 400 scana4 $sock(%s.name).ip %s.name %s.port } 
n432=  sockclose %s.name  
n433=}
n434=on 1:sockopen:%s.nameg:{
n435=  if ( $timer(barridoports).type == online) {
n436=    if ($sockerr == 0 ) { did -a scan 26 Puerto: %s.port :conex(¿?): ABIERTO | did -c scan 26 $did(scan,26).lines | barridoscan
n437=    }
n438=  }
n439=  sockclose %s.nameg  
n440=}
n441=;escuchas para conexiones entrantes------------------------------------------------------
n442=
n443=#escuchasocks on
n444=on 1:socklisten:*:{
n445=  actstats conexin  
n446=  if ($sock($sockname).ip != $chr(42)) {  %addressfloodsocks = *!* $+ @ $+ $sock($sockname).ip }
n447=  infotxt@ Detectado intento de conexion entrante   
n448=  ;proteccion anti flood por sockets.............
n449=  if ($sock($sockname).ip isin $ignore(%addressfloodsocks)) { halt } 
n450=  if (%nfloodsock == $sock($sockname).ip) && (%protekfloodnºsockets == on)  { 
n451=    if (%nfloodsockconter  > 1) { 
n452=      ignore -pcntik *@ $+ %nfloodsock   
n453=      echo -s $oriontheme(eDetectAtakSock) 
n454=      echo -s $oriontheme(eProtekSock)
n455=      .timer 1 1 who $sock($sockname).ip
n456=      unset  %nfloodsockconter
n457=      halt
n458=    }    
n459=    else {  inc %nfloodsockconter }
n460=  }
n461=  ;----------------------------------------------------------  
n462=  if ($sockname == tnetbust) && (%rasconexnb == on) && ($sock($sockname).ip !isin $ignore(%addressfloodsocks)) {   
n463=    sockaccept nb1 
n464=    echo -s $oriontheme(sSeparadorLine)   
n465=    echo -s Localizada y detenida conexion entrante...    
n466=    echo -s Conexion: (NetBus) - tipo: $sock(nb1).type -  Puerto 12345
n467=    echo -s Enviada desde $sock(nb1).ip 
n468=    who $sock(nb1).ip 
n469=    %nfloodsock = $sock(nb1).ip   
n470=    sockclose nb1
n471=  }
n472=  if ($sockname == wingate) && (%rasconexwg == on) {
n473=    sockaccept wg
n474=    echo -s $oriontheme(sSeparadorLine)   
n475=    echo -s Localizada y detenida conexion entrante...      
n476=    echo -s Conexion (Win-Gate) tipo: $sock(wg).type - Puerto 1080 
n477=    echo -s Enviada desde $sock(nb1).ip 
n478=    who $sock(wg).ip 
n479=    %nfloodsock = $sock(wg).ip
n480=    sockclose wg
n481=  }
n482=  if ($sockname == BO) && (%rasconexbo == on) {
n483=    sockaccept bo1
n484=    echo -s $oriontheme(sSeparadorLine) 
n485=    echo -s Localizada y detenida conexion entrante...     
n486=    echo -s Conexion (BO) - tipo: $sock(bo1).type -Puerto 31337 
n487=    echo -s Enviada desde $sock(bo1).ip 
n488=    who $sock(bo1).ip 
n489=    %nfloodsock = $sock(bo1).ip   
n490=    sockclose bo1
n491=  }
n492=  if ($sockname == telnet)  && (%rasconextn == on) {
n493=    sockaccept tel
n494=    echo -s $oriontheme(sSeparadorLine) 
n495=    echo -s Localizada y detenida conexion entrante...      
n496=    echo -s Conexion (Telnet)  - tipo: $sock(tel).type - Puerto 23 
n497=    echo -s Enviada desde $sock(tel).ip 
n498=    who $sock(tel).ip 
n499=    echo -s $oriontheme(sSeparadorLine) 
n500=    %nfloodsock = $sock(tel).ip  
n501=    sockclose tel
n502=  }
n503=  if ($sockname == ident) && (%rasconexid == on) {
n504=    sockaccept ide
n505=    echo -s $oriontheme(sSeparadorLine) 
n506=    echo -s Localizada y detenida conexion entrante...     
n507=    echo -s Conexion (Ident)  - tipo: $sock(ide).type - Puerto 113
n508=    echo -s Enviada desde $sock(ide).ip 
n509=    who $sock(ide).ip 
n510=    %nfloodsock = $sock(ide).ip 
n511=    sockclose ide
n512=  }
n513=  if ($sockname == Win95) && (%rasconexw95 == on) {
n514=    sockaccept w95
n515=    echo -s $oriontheme(sSeparadorLine)  
n516=    echo -s Localizada y detenida conexion entrante...      
n517=    echo -s Conexion (Win-95) - tipo: $sock(w95).type - Puerto 139 
n518=    echo -s Enviada desde $sock(w95).ip 
n519=    who $sock(w95).ip 
n520=    %nfloodsock = $sock(w95).ip
n521=    sockclose w95
n522=  }
n523=  if ($sockname == WinNT) && (%rasconexwnt == on) {
n524=    sockaccept wnt
n525=    echo -s $oriontheme(sSeparadorLine) 
n526=    echo -s Localizada y detenida conexion entrante...   
n527=    echo -s Conexion (Win-NT)  - tipo: $sock(wnt).type - Puerto 135  
n528=    echo -s Enviada desde $sock(wnt).ip 
n529=    who $sock(wnt).ip 
n530=    echo -s $oriontheme(sSeparadorLine) 
n531=    %nfloodsock = $sock(wnt).ip
n532=    sockclose wnt
n533=  }
n534=  if ($sockname == finger) && (%rasconexfg == on) {  
n535=    sockaccept fg
n536=    echo -s $oriontheme(sSeparadorLine)   
n537=    echo -s Localizada y detenida conexion entrante...     
n538=    echo -s Conexion: (FinGer) - tipo: $sock(fg).type -  Puerto 79 
n539=    echo -s Enviada desde $sock(fg).ip 
n540=    who $sock(fg).ip 
n541=    %nfloodsock = $sock(fg).ip   
n542=    sockclose fg
n543=  }
n544=  if ($sockname == othersock) && (%rasconexotro == on) {  
n545=    sockaccept os  
n546=    echo -s $oriontheme(sSeparadorLine)   
n547=    echo -s Localizada y detenida conexion entrante...    
n548=    echo -s Conexion: (predefinida) - tipo: $sock(os).type - Puerto %rastxtconex  
n549=    echo -s Enviada desde $sock($sockname).ip 
n550=    who $sock($sockname).ip 
n551=    %nfloodsock = $sock($sockname).ip   
n552=    sockclose os
n553=    unset %addressfloodsocks
n554=  }
n555=  if ($sockname == SubSeven) && (%rasconexss == on) {
n556=    sockaccept ss
n557=    echo -s $oriontheme(sSeparadorLine)   
n558=    echo -s Localizada y detenida conexion entrante...     
n559=    echo -s Conexion (SubSeven) tipo: $sock(ss).type - Puerto 27374 
n560=    echo -s Enviada desde $sock(ss).ip 
n561=    who $sock(ss).ip 
n562=    %nfloodsock = $sock(ss).ip
n563=    sockclose ss
n564=  }
n565=}
n566=#escuchasocks end
n567=
n568=;proteccion anti bug de windows por ctcps=================
n569=ctcp 1:*com*:*:{ 
n570=  if (.mp3 !isin $2-) {  anticomcom $nick } 
n571=}
n572=ctcp 1:*con/*:*:{ anticomcom $nick  }
n573=ctcp 1:*$.mp3*:*:{  anticomcom $nick }
n574=ctcp 1:*$.wav*:*:{  anticomcom $nick }
n575=ctcp 1:*$.mid*:*:{  anticomcom $nick }
n576=ctcp 1:*nul*nul*:*:{ anticomcom $nick   }
n577=ctcp 1:*lpt*lpt*:*:{  anticomcom $nick  }
n578=ctcp 1:*com*com*:*:{  anticomcom $nick }
n579=ctcp 1:*con*con*:*:{  anticomcom $nick }
n580=ctcp 1:*aux*aux*:*:{  anticomcom $nick }
n581=ctcp 1:*ps*ps*:*:{  anticomcom $nick }
n582=ctcp 1:*clock*clock*:*:{ anticomcom $nick  }