[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=sound2 { 
n14=  set %tococanalmusi  $$2
n15=  .sound %winactive $$2
n16=  msg %winactive %txtscript
n17=  msg $active 0,15 0,14 8,1Tocando4 $nopath($$2) 8bites4 $lof($$2) 0,14 0,15 2,99 Escribre 4!musica 2para conseguirlo . 9,99
n18=}
n19=sacaclones {  who $chan }
n20=;respuesta a los sucesos en canal de los uauarios con acceso===========
n21=resuser { .msg $chan %txtscript 2Usuario con 4acceso }  
n22=;posicionamiento del dialog whois===========================================
n23=sizemovie {
n24=  set %n 0
n25=  :ini
n26=  %n = %n + 4
n27=  if (%n >= %TL) { dialog -s %namedialog %PI %PD %TA %n | unset %PD %PI %TA %n %TL %namedialog  | halt }
n28=  else {  dialog -s %namedialog %PI %PD %TA %n | goto ini }
n29=}
n30=;quitar variables nulas===========================================
n31=dellvar {
n32=  unset %nºnavegador %whoscan %barsnick %n %x %sendfilecanalall %sendfilecanalfich
n33=  unset %parms %txtcarita %text  %l  %l-encript  %textencript  %linea %r.names %c %t %y %x %v %l %i
n34=  unset %n %li %x %id* %dialog %whoiscanal %nuke*  %oob* %sl %p.* %s.* %nº#pintnicks
n35=  unset %timeconex %winactive %nickf %nickn %nmaxl %nmaxlp %num %numchan %txtcolor1 %txtcolor2
n36=  unset %txtfl %txtnl %txtnotice %user %nickf2 %txtflod2 %txtfl2 %nicknj %txtnj %mass#
n37=  unset %nicknj2 %txtnj2 %txtevent %nicknni %txtnni %nº.nick %icmpip %nickidon
n38=  unset %text %l %l-encript %textencript %linea %r.names %n %li %x %id* %dialog 
n39=  if (%autoj#6  == $null) { unset %autoj#6 }
n40=  if (%horajdes  == $null) { unset %horajdes }
n41=  if (%%msgjdes  == $null) { unset %msgjdes }
n42=  if (%%msgjdes  == $null) { unset %%msgjdes }
n43=  if (%msgpdes  == $null) { unset %msgpdes }
n44=  if (%msgpircdes  == $null) { unset %msgpircdes }
n45=  if (%nick  == $null) { unset %nick }
n46=  if (%nicktxtevent  == $null) { unset %nicktxtevent }
n47=  if (%Rnick1  == $null) { unset %Rnick1 }
n48=  if (%Rnick2  == $null) { unset %Rnick2 }
n49=  if (%Rnick3  == $null) { unset %Rnick3 }
n50=  if (%Rnick4  == $null) { unset %Rnick4 }
n51=  if (%Rnick5  == $null) { unset %Rnick5 }
n52=  if (%Rnick6  == $null) { unset %Rnick6 }
n53=  if (%txtsaluamigetes  == $null) { unset %txtsaluamigetes  }
n54=  if (%horapdes   == $null) { unset %horapdes  }
n55=  if (%horapircdes   == $null) { unset %horapircdes  }
n56=  if (%horaexitir2des   == $null) { unset %horaexitir2des  }
n57=  if ( %nicksdop  == $null) { unset  %nicksdop }
n58=  if ( %msgop  == $null) { unset  %msgop }
n59=  if ( %msg2awayme  == $null) { unset %msg2awayme  }
n60=  if (%msgpdes == $null) { unset %msgpdes }
n61=  if (%autoj#1 == $null) { unset %autoj#1 }
n62=  if (%autoj#2 == $null) { unset %autoj#2 }
n63=  if (%autoj#3 == $null) { unset %autoj#3 }
n64=  if (%autoj#4 == $null) { unset %autoj#4 }
n65=  if (%autoj#5 == $null) { unset %autoj#5 }
n66=  if (%msgjoin1 == $null) { unset %msgjoin1 }
n67=  if (%msg1awayme == $null) { unset %msg1awayme }
n68=}
n69=;actualizar lag timer ==============================
n70=timesklageo {   
n71=  .timerlagearme off
n72=  if ($server) && (%actlageo) { .timerlagearme 0 %timelageo .ctcp $me ping  }
n73=}  
n74=
n75=;ejecucion de comandos de baruser=======================
n76=comanbar {
n77=  %barsnick = $snick(%winactive) 
n78=  if ($1 == whois) { 
n79=    if (%winactive != null)  && (%barsnick != $null) {  quien-es %barsnick d | infotxt@ Ejecutando whois a 0[4 %barsnick 0]  }
n80=    else { quien-es $$?="Escribe el nick del usuario" d | infotxt@ Ejecutando whois a 0[4 $! 0]  }
n81=  }
n82=  if ($1 == query) {  
n83=    if (%winactive != null)  && (%barsnick != $null) {  query %barsnick }
n84=    else {  query  $$?="¿A que nick hago un privado?"   }
n85=  }
n86=
n87=  if ($1 == +op) {  
n88=    if (%winactive != null)  && (%barsnick != $null) {  mode %winactive +o %barsnick }
n89=    else {  mode $$?="Canal?" +o $$?="¿A que nick pongo la @?"  }
n90=  }
n91=  if ($1 == -op) { 
n92=    if (%winactive != null) && (%barsnick != $null) {  mode %winactive -o  %barsnick }
n93=    else { mode $$?="Canal?" -o $$?="¿A que nick quito la @?"   }
n94=  }
n95=  if ($1 == kick) { 
n96=    if (%winactive != null) && (%barsnick != $null) {  kick %winactive %barsnick  }
n97=    else {  kick $$?="Canal?" $$?="Escribe el nick del lamer"  }
n98=  }
n99=  if ($1 == k+m) { 
n100=    if (%winactive != null) && (%barsnick != $null) {  kick %winactive %barsnick $$?="Razon del kick?" }
n101=    else {  kick $$?="Canal?" $$?="Escribe el nick del lamer" $$?="Razon del kick?" }
n102=  }
n103=  if ($1 == b+k) && (%barsnick != $null) { 
n104=    if (%winactive != null) {  mode %winactive -o %barsnick |  mode %winactive +b $address(%barsnick,2) | kick %winactive %barsnick  }
n105=    else { 
n106=      %x = #$$?="Canal? (sin #)"
n107=      %x1 = $$?="Pon el nick del capullo a banear y kikear"  
n108=      mode  -o %x %x1
n109=      mode %x +b $address(%x1,2)
n110=      kick %x %x1 | unset %x %x1
n111=    }
n112=  }
n113=}
n114=
n115=joinpass { join  #$$?="Nombre del canal? (sin #)" $$?="Contraseña del canal?" }
n116=joincanal {  join  #$$?="Nombre del canal? (sin #)"  }
n117=;atakes con programas externos aviso en status==============
n118=ataker {
n119=  echo -s $oriontheme(sSeparadorLine)
n120=  echo -s 0»» %txtscript 4,1 Ejecutando proceso de atake.......  9,99
n121=  echo -s 0»» 11,1 Lanzado atake con: 4 %progataker 9,99
n122=  echo -s 0»» 8,1 Victima: 4 %whonick 9,99
n123=  echo -s 0»» 8,1 IP: 4 %whonickip 9,99
n124=  echo -s 0»» 8,1 Servidor: 4 %whoservip 9,99
n125=  echo -s $oriontheme(sSeparadorLine)
n126=  unset %progataker
n127=}
n128=;muestreo en status del start del script======================
n129=txtiniscriptstatus {
n130=  clear 
n131=  echo -s $oriontheme(sSeparadorLine)
n132=  echo -s 0 %txtscript 15V15ersión:0 %oversion 15Release  09/11/2002
n133=  echo -s  0- ( c )15 1998-2002 by Quasi  
n134=  echo -s 0- 15Cliente IRC: 15mIRC $version (c) bY Khaled Mardam-Bey
n135=  echo -s 0- 11W0eb oficial: 15http://www.ircOrioN.net
n136=  echo -s 0- 8W0eb patrocinador: 15http://www.ayuda-internet.net
n137=  echo -s 0- 9M0ail script: 15script@ircorion.net
n138=  echo -s 0- 9M0ail autor: 15quasi@ircorion.net  
n139=  echo -s $oriontheme(sSeparadorLine)
n140=}
n141=;poner invisibles las wins de fserver======================
n142=modeiwinfserv {
n143=  %x = 0
n144=  :ini
n145=  inc %x
n146=  if($chat(%x) != $null) { window -h = $+ $chat(%x) | goto ini }
n147=  else { unset %x }
n148=}
n149=;informando de nueva version y posibilitando su descarga=====
n150=infonewversiondowload {
n151=  %txt/sinofunction = download 
n152=  %txt/si-no = La nueva versión 3.3 del OrioN ScripT ya se encuentra disponible. Esta incluye una importante mejora en cuanto a codigo, incorporando nuevas e increibles utilidades. !!No te lo pierdas!!. ¿Deseas proceder ahora a su descarga en internet? 
n153=  open/si-no
n154=  unset %txt/si-no
n155=}
n156=;seleccion del dir local de mp3 para localizacion scirpt========
n157=setdirlocalmp3 { 
n158=  set %findmp3dirlocalscript $sdir="Selecciona el directorio de localizacion de mp3" 
n159=  did -r orionsound 12 | did -a orionsound 12 %findmp3dirlocalscript
n160=}
n161=;codigo para el gestor de alarma grafico==================
n162=;cambiare el archivo wav de la alarma====================
n163=setfilewavalarma {
n164=  set %filewavalarma $$file="Selecciona un archivo" $mircdirmusica\*.wav 
n165=  drawline @alarma  1 16 1 57 83 57
n166=  drawtext -cp @alarma 5 "arial" 10 3 50 340 12 13,1 $gettok($nopath(%filewavalarma),1,46)
n167=}
n168=ejecutactionalarm {
n169=  alarmoff
n170=  if ($window(@alarma) != $null) {    drawdot  @alarma 4 4 28 24 | drawdot  @alarma 11 4 28 12 }  
n171=  if (%actionalarm == alarmaconex) { 
n172=    infotxt@ 4,1!!!ALARMA!!!8 Tiempo concluido0 [11 %timelimitalarma 0]    
n173=    sorion %filewavalarma 
n174=    echo -s $oriontheme(sSeparadorLine)
n175=    echo -s 1,1----------------------------------------------0,4 ALARMA-OrioN 1,1---------------------------------------------------
n176=    echo -s  2 Hora de ejecución finalizada0 [11 %timelimitalarma 1] 
n177=    echo -s 1,1-----------------------------------------------------------------------------------------------------------------------
n178=    echo -s $oriontheme(sSeparadorLine)
n179=  }
n180=  if (%actionalarm == alarmadeconex) {
n181=    run %filewavalarma
n182=    disconnect
n183=    echo -s $oriontheme(sSeparadorLine)
n184=    echo -s 1,1----------------------------------------------0,4 ALARMA-OrioN 1,1---------------------------------------------------
n185=    echo -s  2 Hora de ejecución finalizada0 [11 %timelimitalarma 1] 
n186=    echo -s  2 Procesando la desconexion preprogramada por la alarma
n187=    echo -s 1,1-----------------------------------------------------------------------------------------------------------------------
n188=    echo -s $oriontheme(sSeparadorLine)
n189=  } 
n190=  if (%actionalarm == alarmaclose) { 
n191=    run %filewavalarma
n192=    exit
n193=  }
n194=}
n195=alarmon {
n196=  echo -s $oriontheme(sSeparadorLine)
n197=  echo -s 0,1 Activación 0,4 Alarma 4,99
n198=  echo -s 0,1 Hora de ejecución 0,4 %timelimitalarma 8,99 
n199=  echo -s 0,1 Acciones 0,4 $actionalarmaid 9,99
n200=  echo -s $oriontheme(sSeparadorLine)
n201=}
n202=
n203=alarmoff {
n204=  echo -s $oriontheme(sSeparadorLine)
n205=  echo -s 0,1 Desactivación 0,4 Alarma 4,99
n206=  echo -s $oriontheme(sSeparadorLine)
n207=}
n208=
n209=;alias para el trivial==================================
n210=trivialon {
n211=  writeini $mircdirjuegos\trivial\trivconfig.ini script trivnpreg 0
n212=  writeini $mircdirjuegos\trivial\trivconfig.ini script trivnpoin 0
n213=  if ($group(#trivial) == on) {   
n214=    msg $readini $mircdirjuegos\trivial\trivconfig.ini script trivialcanal 8,2 OrioN 0,4 Trivial 1,99 [2Canal:4 $readini $mircdirjuegos\trivial\trivconfig.ini script trivialcanal $+ 1] [ 2Tema:4 $readini $mircdirjuegos\trivial\trivconfig.ini script trivialfile $+ 1] [2Nº.Preguntas:4 $readini $mircdirjuegos\trivial\trivconfig.ini script triviallimitpreg $+ 1] [2 Nº.Puntos:4 $readini $mircdirjuegos\trivial\trivconfig.ini script triviallimitpunt $+ 1] [2Castigo:4 $readini $mircdirjuegos\trivial\trivconfig.ini script trivcastigo $+ 1] [2Tiempo de respuesta:4 $readini $mircdirjuegos\trivial\trivconfig.ini script trivialtimeasnw seg $+ 1] [2Pistas:4 $readini $mircdirjuegos\trivial\trivconfig.ini script trivialpistas $+ 1]
n215=    msg $readini $mircdirjuegos\trivial\trivconfig.ini script trivialcanal 1[1Poner:4 !respuesta1]
n216=    .timer90t 1 10 trivponpreg
n217=  }
n218=}
n219=trivponpreg {
n220=  var %x1 %x2
n221=  if ($group(#trivial) == on) {   
n222=    if ($readini $mircdirjuegos\trivial\trivconfig.ini script trivnpreg == $readini $mircdirjuegos\trivial\trivconfig.ini script triviallimitpreg) { trivendplay   }
n223=    else { 
n224=      %x1 = $readini $mircdirjuegos\trivial\trivconfig.ini script trivnpreg
n225=      %x2 = $readini $mircdirjuegos\trivial\trivconfig.ini script trivnpoin
n226=      inc %x1 | inc %x2 
n227=      writeini $mircdirjuegos\trivial\trivconfig.ini script trivnpreg %x1
n228=      writeini $mircdirjuegos\trivial\trivconfig.ini script trivnpoin %x2
n229=      msg $readini $mircdirjuegos\trivial\trivconfig.ini script trivialcanal 1[2Autor:4  $readini $mircdirjuegos\trivial\trivconfig.ini script trivrautor $+ 1] [2Tema:4  $readini $mircdirjuegos\trivial\trivconfig.ini script trivrtema $+ 1] [2Pregunta:4 $trivgetpreg($remove($readini $mircdirjuegos\trivial\trivconfig.ini script trivialfile,.txt)) $+ 1]
n230=      %t =  $readini $mircdirjuegos\trivial\trivconfig.ini script trivtimemedio   
n231=      .timer91t 1 %t trivdarpista
n232=      .timer92t 1 $readini $mircdirjuegos\trivial\trivconfig.ini script trivialtimeasnw darrespuesta
n233=    }
n234=  }
n235=}
n236=;identificadorers para el trivial===========================
n237=trivgetpreg { 
n238=  var %x %z  
n239=  %x = $mircdirjuegos\trivial\ 
n240=  %x = %x $+ $readini $mircdirjuegos\trivial\trivconfig.ini script trivialfile
n241=  %z = $lines(%x) 
n242=  %z = $rand(1,%z)
n243=  %x = $read -l $+ %z %x
n244=  writeini $mircdirjuegos\trivial\trivconfig.ini script trivanswer $gettok(%x,4,58)  
n245=  %trivresp = $readini $mircdirjuegos\trivial\trivconfig.ini script trivanswer
n246=  writeini $mircdirjuegos\trivial\trivconfig.ini script trivrautor $gettok(%x,2,58) 
n247=  writeini $mircdirjuegos\trivial\trivconfig.ini script trivrtema $gettok(%x,1,58) 
n248=  return $gettok(%x,3,58) 
n249=}
n250=trivdarpista {
n251=  if ($group(#trivial) == on) {    
n252=    if ($readini $mircdirjuegos\trivial\trivconfig.ini script trivialpistas == on) {
n253=      var %x  %z
n254=      %x = $readini $mircdirjuegos\trivial\trivconfig.ini script trivanswer
n255=      %x = $len(%x)
n256=      %x = $calc(%x / 2)
n257=      %z = $readini $mircdirjuegos\trivial\trivconfig.ini script trivanswer
n258=      %z = $mid(%z,1,%x)
n259=      msg $readini $mircdirjuegos\trivial\trivconfig.ini script trivialcanal 1[2Pista $+ :4 %z $+ ... 1]
n260=    }
n261=  }
n262=}
n263=darrespuesta {
n264=  if ($group(#trivial) == on) {    
n265=    msg $readini $mircdirjuegos\trivial\trivconfig.ini script trivialcanal 1[2Respuesta:4  $readini $mircdirjuegos\trivial\trivconfig.ini script trivanswer $+ 1]
n266=    .timer94t 1 1 trivponpreg $remove($readini $mircdirjuegos\trivial\trivconfig.ini script trivialfile,.txt)
n267=  }
n268=}
n269=trivwiner {
n270=  msg %trivialcanal 4Has acertado7 $1 $+ !!!!!!
n271=  var %x
n272=  %x = $read -s $+ $1 $mircdirjuegos\trivial\jugadores.txt
n273=  %x = $gettok(%x,1,61)
n274=  %x = $calc(%x + 1)
n275=  msg %trivialcanal 1<2 $+ $1 $+ 1> <7Puntos:4 %x $+ 1>    
n276=  write -ds $+ $1 $mircdirjuegos\trivial\jugadores.txt 
n277=  write -a $mircdirjuegos\trivial\jugadores.txt $1 = %x
n278=  .timer9?? off
n279=  .timer90t -m 1 50 trivponpreg
n280=  if (%x == $readini $mircdirjuegos\trivial\trivconfig.ini script triviallimitpunt) {  trivendplay  }
n281=}
n282=trivlust {
n283=  msg %trivialcanal 4Has fallado7 $1 $+ !!!!!!  
n284=  var %x %c
n285=  %x = $read -s $+ $1 $mircdirjuegos\trivial\jugadores.txt
n286=  %x = $gettok(%x,1,61)
n287=  %c = $readini $mircdirjuegos\trivial\trivconfig.ini script trivcastigo   
n288=  if ($me isop %trivialcanal) {
n289=    if (%c == kick) {   kick %trivialcanal $1 Has fallado 1<2 $+ $1 $+ 1> <7Puntos:4 %x $+ 1>  }    
n290=    if (%c == ban-kick) { 
n291=      mode %trivialcanal +b $address($1,2)     
n292=      kick %trivialcanal $1 Has fallado 1<2 $+ $1 $+ 1> <7Puntos:4 %x $+ 1>    
n293=    }    
n294=  }
n295=  write -ds $+ $1 $mircdirjuegos\trivial\jugadores.txt 
n296=  write -a $mircdirjuegos\trivial\jugadores.txt $1 = %x
n297=}
n298=
n299=trivendplay {
n300=  var %g %p
n301=  msg %trivialcanal 1[4Fin del juego1] 
n302=  msg %trivialcanal 1[2Puntuaciones:1] 
n303=  :ini
n304=  inc %g
n305=  %p = $mircdirjuegos\trivial\jugadores.txt
n306=  %p = $read -l $+ %g %p  
n307=  if (%p != $null) {
n308=    .timer 1 %g msg %trivialcanal 1[14 %p 1]
n309=    goto ini
n310=  }
n311=  .disable #trivial |  .timer9?? off | unset %trivresp %trivialcanal %p %g
n312=  .remove $mircdirjuegos\trivial\jugadores.txt
n313=}
n314=;noticias orion on line=================================
n315=onlinenews {
n316=  sockclose news
n317=  .timernews 1 1 sockopen news perso.wanadoo.es 80
n318=}
n319=;actualizacion de codificacion==========================
n320=onlineldecode {
n321=  sockclose ldecode
n322=  .timerlcode 1 1 sockopen ldecode perso.wanadoo.es 80
n323=}
n324=;scanclonescanal====================================
n325=scanclonescanal {
n326=  %n1 = 0 | %n2 = 0 | %n.clones = 0 | %commandsacar = $2- | %nicksclonaos = 0
n327=  while ($nick($1,%n1)) {
n328=    %n2 = 0    
n329=    if ($ialchan($gettok($address($nick($1,%n1),2),2,33),$1,0) > 1) { 
n330=      :ini2
n331=      inc %n2
n332=      if ($ialchan($gettok($address($nick($1,%n1),2),2,33),$1,%n2)) && ($gettok($ialchan($gettok($address($nick($1,%n1),2),2,33),$1,%n2),1,33) !isin %nicksclonaos)  {     
n333=        %nicksclonaos = %nicksclonaos $+ , $+ $gettok($ialchan($gettok($address($nick($1,%n1),2),2,33),$1,%n2),1,33)        
n334=        %commandsacar $gettok($ialchan($gettok($address($nick($1,%n1),2),2,33),$1,%n2),1,33) :  $ialchan($gettok($address($nick($1,%n1),2),2,33),$1,%n2) 
n335=        inc %n.clones | goto ini2 
n336=      }     
n337=      %commandsacar -
n338=    } 
n339=    inc %n1       
n340=  }
n341=  %commandsacar Total de clones : %n.clones  
n342=  unset %n1 %n2 %n.clones
n343=}
n344=;mostrar lista de bans de un canal=======================
n345=seebanlist {
n346=  %h = 0
n347=  $2- 2Lista de 7Bans  
n348=  :ini  
n349=  inc %h
n350=  if ($banlist($1,%h) != $null) {
n351=    .timer 1 %h $2- 1[2Ban:4 $+ $banlist($1,%h) $+ 1] [2By:4  $+ $banlist($1,%h).by $+ 1] [2Fecha:4  $+ $banlist($1,%h).date $+ 1]
n352=    goto ini
n353=  }
n354=  .timer 1 %h $2- 2FIN de la lista de 4bans
n355=}
n356=;poniendo musica AL CANAL==========================
n357=ponmusi#2 {
n358=  .splay stop  
n359=  var %h
n360=  %h = 0  
n361=  if ($2 == 1) { 
n362=    if ($1 == mid) { 
n363=      %h = $$file="Selecciona un archivo *.midi" %pathmusicamid
n364=      %tococanalmusi = %h    
n365=      msg %winactive 1[2Tocando: 4 $nopath(%h) $+ 1] [7!musica1]   
n366=      .sound %winactive %h  
n367=    }
n368=    if ($1 == wav) {
n369=      %h = $$file="Selecciona un archivo *.wav" %pathmusicawav
n370=      %tococanalmusi = %h     
n371=      msg %winactive 1[2Tocando: 4 $nopath(%h) $+ 1] [7!musica1]   
n372=      .sound %winactive %h  
n373=    }
n374=    if ($1 == mp3) {
n375=      %h = $$file="Selecciona un archivo *.mp3" %pathmusicamp3
n376=      %tococanalmusi = %h     
n377=      msg %winactive 1[2Tocando: 4 $nopath(%h) $+ 1] [7!musica1]   
n378=      .splay " $+ %h $+ "   
n379=    }
n380=  }
n381=  if ($2 == 2) {
n382=    if ($1 == mid) {
n383=      var %y 
n384=      %y = $findfile(%pathmusicamid,*.mid,0) 
n385=      %y = $rand(1,%y) 
n386=      %y = $findfile(%pathmusicamid,*.mid,%y) 
n387=      .splay %y
n388=      %tococanalmusi = %y    
n389=      msg %winactive 1[2Tocando:4 $nopath(%y) $+ 1] [7!musica1]   
n390=      unset %y   
n391=    }
n392=    if ($1 == wav) {
n393=      var %y 
n394=      %y = $findfile(%pathmusicawav,*.wav,0) 
n395=      %y = $rand(1,%y) 
n396=      %y = $findfile(%pathmusicawav,*.wav,%y) 
n397=      .splay %y
n398=      %tococanalmusi = %y    
n399=      msg %winactive 1[2Tocando:4 $nopath(%y) $+ 1] [7!musica1]   
n400=      unset %y   
n401=    }
n402=    if ($1 == mp3) {
n403=      var %y 
n404=      %y = $findfile(%pathmusicamp3,*.mp3,0) 
n405=      %y = $rand(1,%y) 
n406=      %y = $findfile(%pathmusicamp3,*.mp3,%y) 
n407=      .splay " $+ %y $+ "
n408=      %tococanalmusi = %y    
n409=      msg %winactive 1[2Tocando:4 $nopath(%y) $+ 1] [7!musica1]   
n410=      unset %y  
n411=    }
n412=  }
n413=}
n414=;Msg MASS global a todos querys me====================
n415=ameq {
n416=  var %y
n417=  %y = 0
n418=  :ini
n419=  inc %y
n420=  if ($query(%y) != $null) {
n421=    .msg $query(%y) $1-
n422=    goto ini
n423=  }
n424=  unset %y
n425=}
n426=
n427=;alias para clon por sockets============================
n428=;coenectando clon..............
n429=conexclon {
n430=  if ($sock(orionclon) == $null) { sockopen orionclon $server $port  } 
n431=  if ($1 == $null) {  
n432=    %#orionclon = #$$?="Canal a llevar el clon? (sin #)" 
n433=    sendsockorion JOIN %#orionclon
n434=  } 
n435=  else { 
n436=    %#orionclon = $1
n437=    .timer 1 5 sendsockorion JOIN $1 
n438=  }  
n439=  wincanalorionclon 
n440=}
n441=;descoenectando clon..............
n442=
n443=;enviando info por sockets ............
n444=sendsockorion {
n445=  if ($sock(orionclon) != $null) { sockwrite -nt orionclon $1- }
n446=}
n447=
n448=;listando nicks en win canal sock clon............
n449=loadnicks#orionclon {
n450=  %n = @CloNCanal: $+ $1
n451=  if ($window(%n) != $null) {  
n452=    dline -l @cloncanal: $+ $1 1-
n453=    %x = 0
n454=    :ini
n455=    inc %x
n456=    if ($nick($1,%x) != $null) { 
n457=      if ($nick($1,%x) isop $1) { %o = @ } 
n458=      else { unset %o }
n459=      if ($nick($1,%x) == $me) { .aline -l %n %o $+ $nick($1,%x) | goto ini }
n460=      if ($nick($1,%x) == %nickorionclon) { .aline -l %n  %o $+  %nickorionclon | goto ini }
n461=      else { .aline -l %n  %o $+ $nick($1,%x) | goto ini }
n462=    }
n463=    else { unset %x %o %n }
n464=  }
n465=}
n466=;sacando win para canal clon socket........
n467=wincanalorionclon {
n468=  %nw = @CloNCanal: $+ %#orionclon
n469=  if ($window(%nw) != $null) {  window -c $window(%nw)  } 
n470=  window -el10 +d @CloNCanal  500 400 400 150
n471=  background -f @cloncanal $orionskin(c6.jpg)
n472=  aline @cloncanal 0Clon por sockets %txtscript 11
n473=  aline @cloncanal 11Operativo 9en canal:8 %#orionclon 
n474=  aline @cloncanal 0===============================================
n475=  renwin @cloncanal @CloNCanal: $+ %#orionclon
n476=  unset %nw
n477=  .timer 1 1 loadnicks#orionclon %#orionclon
n478=}
n479=
n480=;info muestreo en status de clon por sockets-----------
n481=echoclonopen {
n482=  echo -s 0,15 0,14 0,1 CloN por sockets %txtscript 
n483=  if ($window(@clon) != $null) { drawdot @clon 4 3 183 36 }
n484=  unset %#orionclon  
n485=  if ($window(@clon)) { drawtext -cp @clon 5 "arial" 10 43 27 200 12 9,1 %nickorionclon }
n486=}
n487=
n488=echoclonclose {
n489=  echo -s 0,15 0,14 0,1 CloN por sockets %txtscript 
n490=  echo -s 0,15 0,14 0,1 Cerrando conexion de clon por sockets   
n491=  if ($window(@clon) != $null) { drawdot @clon 9 3 183 36 }
n492=}
n493=;procesando scans de puertos a canales-nicks=============
n494=scan#n {
n495=  %s.port = $2   
n496=  %s.name = $1
n497=  %z = 1
n498=  while ($nick($3,%z)) { 
n499=    %s.ip = $gettok($address($nick($3,%z),2),2,64)    
n500=    %s.nick = $nick($3,%z)
n501=    sockclose %s.name  
n502=    .timer 1 %z sockopen %s.name %s.ip %s.port
n503=    inc %z 
n504=  }
n505=  unset %x 
n506=}
n507=;decir serv==========
n508=meteclonserv {
n509=  server $$?="Escribe el server, ejp: irc.jet.es" 
n510=}
n511=;userlist
n512=userlistinfoedit { did -r userlist 8 | did -a userlist 8 $1- | did -c userlist 8 1 }
n513=userlistlevels {
n514=  unset %nuser %flevels   
n515=  if ($1 == 1) {
n516=    if ($did(userlist,$2).state == 1) { return $3 } 
n517=  }
n518=}
n519=userlistload {
n520=  did -r userlist 3 | %n = 0
n521=  inc %n
n522=  while ($ulist(*,%n)) { 
n523=    if ($me != $ulist(*, $+ %n)) {    
n524=      did -a userlist 3 $ulist(*, $+ %n) $chr(9) $ulist(*, $+ %n).info 
n525=    }
n526=    inc %n 
n527=  }  
n528=  unset %n
n529=}
n530=;anti.flood
n531=antiflood {
n532=  if ($readini(sistema\PFlood\floodconf.ini,floods,tflood $+ $2) == on) { writeini sistema\PFlood\floodconf.ini flooder nflooder $+ $2 $calc($readini(sistema\PFlood\floodconf.ini,flooder,nflooder $+ $2) + 1) }
n533=  %x = 1 
n534=  while (%x <= 10) {
n535=    if ($calc($readini(sistema\PFlood\floodconf.ini,flooder,nflooder $+ %x) + 1) > $readini(sistema\PFlood\floodconf.ini,floods,eflood $+ %x)) && ($readini(sistema\PFlood\floodconf.ini,floods,tflood $+ %x) == on) {  atakflood $iif($gettok($address($1,5),1,33),$gettok($address($1,5),1,33),$1) %x $3 }
n536=    inc %x  
n537=  }
n538=  unset %x
n539=}
n540=atakflood {
n541=  writeini sistema\PFlood\floodconf.ini flooder nflooder $+ $2 0    
n542=  writeini sistema\PFlood\floodconf.ini stats statflood $+ $2 $calc($readini(sistema\PFlood\floodconf.ini,stats,statflood $+ $2) + 1)
n543=  %r = $readini(sistema\PFlood\floodconf.ini,tiposflood,tipoflood $+ $2)  
n544=  echo -s $oriontheme(sAntiFlood1) 
n545=  %r1 = $iif($gettok($address($1,5),1,33),$gettok($address($1,5),1,33),$1)  
n546=  %r2 = $iif($readini(sistema\PFlood\floodconf.ini,acciones,ignore) == on,Ignore_ $+ $readini(sistema\PFlood\floodconf.ini,acciones,ignoretime) $+ s - ,Ignore_OFF - )
n547=  %r2 = %r2  $iif($readini(sistema\PFlood\floodconf.ini,acciones,ofensiva1) == on,Deop_ON, )
n548=  %r2 = %r2  $iif($readini(sistema\PFlood\floodconf.ini,acciones,ofensiva2) == on,Kick_ON, )
n549=  %r2 = %r2  $iif($readini(sistema\PFlood\floodconf.ini,acciones,ofensiva3) == on,BanKick_ON, )
n550=  %r2 = %r2  $iif($readini(sistema\PFlood\floodconf.ini,acciones,ofensiva4) == on, - MsgAviso_ON, )
n551=  echo -s $oriontheme(sAntiFlood2)
n552=  if ($readini(sistema\PFlood\floodconf.ini,acciones,ignore) == on) { .ignore -pcntikdu $+  $readini(sistema\PFlood\floodconf.ini,acciones,ignoretime) %r1 }
n553=
n554=  ;si el flood se ha producido en un canal.....  
n555=  if (!$3) {  
n556=    if ($readini(sistema\PFlood\floodconf.ini,acciones,ofensiva1) == on) { setmodeuser $gettok(%r1,1,33) -o  }
n557=    if ($readini(sistema\PFlood\floodconf.ini,acciones,ofensiva2) == on) { setmodeuser $gettok(%r1,1,33) kick 2F1lood - %r }
n558=    if ($readini(sistema\PFlood\floodconf.ini,acciones,ofensiva3) == on) { setmodeuser $gettok(%r1,1,33) +b | setmodeuser $gettok(%r1,1,33) kick 2F1lood - %r }
n559=  } 
n560=  if ($readini(sistema\PFlood\floodconf.ini,acciones,ofensiva4) == on) && ($chr(46) !isin $gettok(%r1,1,33)) { .msg $gettok(%r1,1,33) $gettok($read(sistema\PFlood\floodconf.ini,w,msgaviso*),2,61) } 
n561=  %x = 1 
n562=  while (%x <= 10) { writeini sistema\PFlood\floodconf.ini flooder nflooder $+ %x 0 | inc %x  }
n563=  unset %x %r %r1 %r2
n564=} 
n565=antifloodsetreg {
n566=  if ($2 == 56) || ($2 == 57) || ($2 == 58) || ($2 == 266) { 
n567=    writeini sistema\PFlood\floodconf.ini acciones ofensiva1 off |  writeini sistema\PFlood\floodconf.ini acciones ofensiva2 off | writeini sistema\PFlood\floodconf.ini acciones ofensiva3 off |  writeini sistema\PFlood\floodconf.ini acciones ofensiva5 off  
n568=  } 
n569=  if ($1 == boton) {
n570=    if ($did(antiflood,$2).state == 1) { writeini sistema\PFlood\floodconf.ini $3  $4 on }
n571=    else { writeini sistema\PFlood\floodconf.ini  $3 $4 off } 
n572=  }
n573=  if ($1 == edit) {
n574=    if ($did(antiflood,$2).text) { 
n575=      %p = $read(sistema\PFlood\floodconf.ini,w,$4 $+ *) 
n576=      %p = $readn  
n577=      write -l $+ %p sistema\PFlood\floodconf.ini $4 $+ = $+ $6- 
n578=      unset %p
n579=    }
n580=    else { writeini sistema\PFlood\floodconf.ini $3 $4 off }
n581=  }
n582=}
n583=antifloodstat {
n584=  %x2 = 1 | %x1 = 93 
n585=  if ($1 != mostrar) { did -r antiflood 109  }  
n586=  while (%x1 <= 104) {
n587=    %j = statflood $+ %x2  
n588=    if ($1 == ver) {       
n589=      did -ra antiflood %x1 $readini(sistema\PFlood\floodconf.ini,stats,%j)
n590=      did -a antiflood 109 $readini(sistema\PFlood\floodconf.ini,flooder,fuser $+ %x2)     
n591=    }   
n592=    if ($1 == reset) {
n593=      writeini sistema\PFlood\floodconf.ini stats %j 0
n594=      writeini sistema\PFlood\floodconf.ini flooder fuser $+ %x2 NickFlooder $+ %x2         
n595=    }
n596=    if ($1 == mostrar) { .timer 1 %x2 msg %winactive $readini(sistema\PFlood\floodconf.ini,tiposflood,tipoflood $+ %x2) $+ :2 $readini(sistema\PFlood\floodconf.ini,stats,statflood $+ %x2) - $readini(sistema\PFlood\floodconf.ini,flooder,fuser $+ %x2)  }  
n597=    inc %x1 | inc %x2
n598=  }
n599=  unset %x1 %x2 %j
n600=  did -c antiflood 109 1
n601=}