[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=;ventanas personalizadasa y picture windows================
n14=
n15=;wins principales..........................
n16=@barsepa {
n17=  window -khp +bd @barsepa 0 55 797 10
n18=  window -kap +bd @barsepa 0  55 797 10 
n19=  drawpic  -c @barsepa 0 0 $orionskin(barsepa.jpg) 
n20=}
n21=@bardel {
n22=  ;window -phBi +bd @bardel 0 51 800 5
n23=  ;window -kap +bd @bardel 0  51 800 5 
n24=}
n25=
n26=@barstatus {
n27=window -khp +bd @barstatus 380 0 418 55
n28=  window -kap +dL @barstatus 380  0 418 55
n29=  drawpic  -c @barstatus 0 0 $orionskin(barstatus.jpg)  | drawtext  -cp @barstatus 9 "arial" 9 75 0 200 9 9,1 $date 
n30=}
n31=@barscript {
n32=  window -khp +bd @barscript 0 0 380 55
n33=  window -kap +bd @barscript 0  0 380 55 
n34=  drawpic  -c @barscript 0 0 $orionskin(barscript.jpg)
n35=  infotxt@  Acceso a utilidades del script 
n36=  if ($exists(%background1)) { background -mf %background1 }
n37=}
n38=@barwar {
n39=  window -khp +bd @barwar 0 0 380 55
n40=  window -kap +bd @barwar  0  0 380 55 | drawpic  -c @barwar 0 0 $orionskin(barwar.jpg)
n41=  infotxt@  Acceso a programas de gerra 
n42=  if ($exists(%background2)) { background -mf %background2 }
n43=}
n44=@barexes {
n45=  window -khp +bd @barexes 0 0 380 55
n46=  window -kap +bd @barexes 0  0 380 55 | drawpic  -c @barexes 0 0 $orionskin(barexes.jpg)
n47=  infotxt@  Acceso a programas externos ejecutables 
n48=  if ($exists(%background1)) { background -mf %background1 }
n49=}
n50=
n51=;ventana invisible modify format nicks=====================
n52=@ncp { window -ph +d @ncp 700 500 150 20 }
n53=
n54=;visor de dirs y files del fserver==========================
n55=@visorfserver {
n56=  window -kl +del @Navegador 503 225 170 255
n57=  aline @Navegador $oriontheme(sSeparadorLine)
n58=  aline @Navegador 11F-§êRvËr de:8 %fserverchatx
n59=  aline @Navegador $oriontheme(sSeparadorLine)
n60=}
n61=;Gestionador de Fserver===============================
n62=@fserver {
n63=  window -ekl7 @fserver 505 323 290 250
n64=  aline @fserver $oriontheme(sSeparadorLine)  
n65=  aline @fserver 0,15 0,14 0,1 F-§êRvEr 11,4 Activado 1,14 0,15 9,99 1,99
n66=  aline @fserver 8,1 Directorio: 11 %dirfserver 9,99 
n67=  aline @fserver 8,1 Clave: 4 %passfserver 9,99
n68=  aline @fserver 8,1 Max user: 4 %maxusersfserver 9,99 
n69=  if (%contenidofserver != $null) {   aline @fserver 8,1 Contenido: 11 %contenidofserver 9,99  }
n70=  aline @fserver $oriontheme(sSeparadorLine)  
n71=}
n72=@logo {
n73=  window -kp +b @logo 50 90 200 75
n74=  drawpic -cs @logo 0 0 $orionskin(logo.jpg)
n75=  .timercloselogo 1 2 close -@ @logo 
n76=}
n77=;gestor de alarma====================================
n78=@alarma { 
n79=  infotxt@ Ejecutando gestor de alarma grafica 
n80=  window -kp +b @alarma 584 55 212 87 
n81=  drawpic -cs @alarma 0 0 $orionskin(alarma.jpg)  
n82=  drawdot  @alarma 4 4 28 24 
n83=  drawtext -cp @alarma 5 "arial" 10 142 29 340 12 9,1 %timelimitalarma
n84=  drawdot  @alarma 1 4 205 58 | drawdot  @alarma 1 4 205 69 |  drawdot  @alarma 1 4 205 80
n85=  drawtext -cp @alarma 5 "arial" 10 3 50 340 12 13,1 $gettok($nopath(%filewavalarma),1,46)
n86=  if (%actionalarm == alarmaconex) { drawdot  @alarma 8 4 205 58 }
n87=  if (%actionalarm == alarmadeconex) { drawdot  @alarma 8 4 205 69 }
n88=  if (%actionalarm == alarmaclose) { drawdot  @alarma 8 4 205 80 }
n89=}
n90=
n91=
n92=;txts de ini al start del script=============================
n93=txtini1 {   infotxt@ Inicializando script por4 %iniscript 11vece/s. }
n94=txtini3 { infotxt@ Preparando todos los componentes... }
n95=txtini2 { infotxt@ Ejecución de opciones predeterminadas }
n96=txtini4 { 
n97=  set %inimenick $me
n98=  infotxt@ Script preparado. Bienvenido9 %inimenick .  
n99=  unset %inimenick
n100=}
n101=txtiniscript {  infotxt@  0,15 0,14 0,1 ««4 Ø11r8ï11ø4N0 »» 0,14 0,15 8,1 §crípt0 ~ 8ver:11 %oversion 0~ 4 Copyright 11 © $+8 1998-20020 ~ 8bY 9Quasi   }
n102=
n103=;carga de texto en la @barstatus en capsula de info al usuario==============
n104=infotxt@ { 
n105=  if ($len($1-) < 55) { drawline @barstatus 1 15 28 27 350 27 | drawtext -cp @barstatus 11 "arial" 10 24 19 340 12 0,1 $1- } 
n106=}
n107=
n108=
n109=;win de logs @log===================================
n110=@log {
n111=  if ($window(@log) != $null) { window -c @log } 
n112=  window -l10 @log   
n113=  if ($1 != $null) { aline -l @log $gettok($nopath($1),1,46) }
n114=  else { 
n115=    %x = 0
n116=    :ini 
n117=    inc %x
n118=    if ($findfile($mircdirlogs,*.log,%x) != $null) { aline -l @log $gettok($nopath($findfile($mircdirlogs,*.log,%x)),1,46) | goto ini }
n119=    else { unset %x }
n120=  }
n121=}
n122=;win de logs @news===================================
n123=@news {
n124=  window -l20 @news   
n125=  aline @news Gestor para la visualización de OrioN News.
n126=  aline @news Doble click sobre news o selección y derecho > ver.
n127=  %q = 1
n128=  while ($findfile(sistema\news\,*.txt,%q)) { 
n129=    aline -l @news $gettok($nopath($findfile(sistema\news\,*.txt,%q)),1,46) 
n130=    inc %q
n131=  }
n132=  unset %q
n133=}
n134=;estadisticas de canal=================================
n135=
n136=;limpiar el medidor de lag==============================
n137=lagmetro {
n138=  if (%moslageog) {
n139=    ;texto----------  
n140=    if (%lag > 99) { drawtext -cp @barstatus 9 "arial"  9 367 35 200 9  8,1 ? }
n141=    else { drawtext -cp @barstatus 9 "arial" 9 367 35 200 9 9,1 $iif(%lag > 9,%lag,0 $+ %lag) } 
n142=    ;grafi---------- 
n143=    drawline @barstatus 1 2 308 44 315 44 | drawline @barstatus 1 2 323 44 330 44 | drawline @barstatus 1 2 338 44 345 44 | drawline @barstatus 1 2 353 44 360 44
n144=    if (%lag <= 2) && (%lag > 0) { drawline @barstatus 4 2 308 44 315 44 }  
n145=    if (%lag <= 6) && (%lag > 2) { drawline @barstatus 4 2 308 44 315 44 | drawline @barstatus 4 2 323 44 330 44 }
n146=    if (%lag <= 12) && (%lag > 6) { drawline @barstatus 4 2 308 44 315 44 | drawline @barstatus 4 2 323 44 330 44 | drawline @barstatus 4 2 338 44 345 44 }
n147=    if (%lag <= 20) && (%lag > 12) { drawline @barstatus 4 2 308 44 315 44 | drawline @barstatus 4 2 323 44 330 44 | drawline @barstatus 4 2 338 44 345 44 | drawline @barstatus 4 2 353 44 360 44 }
n148=  }
n149=  if (%moslageos) { echo -s $oriontheme(sMostrarLag) } 
n150=  if (%moslageoa) { echo %winactive $oriontheme(sMostrarLag)  } 
n151=  if (%lag > %exceslag) {
n152=    if (%avilag) { .timer 1 1 moslagsacarsr } 
n153=    if (%sacalagsr) { dialog -m servers servers } 
n154=  }
n155=}
n156=;win receptora de datos del server en email================
n157=@dateservemail {
n158=  window @DateServEmail 0 55 800 165
n159=  aline @dateservemail $oriontheme(sSeparadorLine)
n160=  aline @dateservemail 8,1 Datos recibidos del server en conexiones raws, para gestionar trasferencias de emails.
n161=  aline @dateservemail $oriontheme(sSeparadorLine)  
n162=}
n163=;espiar nick========================================
n164=espianick {
n165=  %espiarnick = $1
n166=  window @espianick 505 253 290 225
n167=  aline @espianick 0Control de espionaje a nick en ejecución 
n168=  aline @espianick 8=========================================
n169=  aline @espianick 0Espiando al nick:9 %espiarnick
n170=  aline @espianick 0Procesando whois en status cada 30seg
n171=  echo -s  0,15 0,14 0,4 Preparado 0,2 Espiador de nicks 9,99
n172=  .timerespianick 0 30 whois %espiarnick
n173=}
n174=;alias teclas========================================
n175=aliasteclas {
n176=  window @Alias-Teclas 505 193 290 360
n177=  aline @Alias-Teclas 0Control de teclas de acceso rapido
n178=  aline @Alias-Teclas 8=========================================
n179=  aline @Alias-Teclas 11 F1 9>>>> 15Archivo de ayuda OrioN
n180=  aline @Alias-Teclas 11 F2 9>>>> 15Reconexión automatica al server
n181=  aline @Alias-Teclas 11 F3 9>>>> 15Ejecución rapida del SETUP-OrioN
n182=  aline @Alias-Teclas 11 F4 9>>>> 15Salida de publicida OrioNScripT
n183=  aline @Alias-Teclas 8=========================================
n184=  aline @Alias-Teclas 11 F5 9>>>> 15Peticion de archivos mp3
n185=  aline @Alias-Teclas 11 F6 9>>>> 15Activación/Desactivación de AwaY
n186=  aline @Alias-Teclas 11 F7 9>>>> 15Activación/Desactivación de F-Server 
n187=  aline @Alias-Teclas 11 F8 9>>>> 15Para cualquier sonido.
n188=  aline @Alias-Teclas 8=========================================
n189=  aline @Alias-Teclas 11 F9 9>>>> 15Mandar .msg predefinido a win-activa.
n190=  aline @Alias-Teclas 11 F10 9>>>> 15Entrada a los 3 ultimos canales.
n191=  aline @Alias-Teclas 11 F11 9>>>> 15Auto ejecutar el ultimo dcc get.
n192=  aline @Alias-Teclas 11 F12 9>>>> 15B+k al nick marcado en win-activa.
n193=  aline @Alias-Teclas 8=========================================
n194=  aline @Alias-Teclas 11 Control+Tab 9>>>> 15Intercambia las ventanas.
n195=  aline @Alias-Teclas 11 Control+F 9>>>> 15Busqueda rapida de palabras.
n196=  aline @Alias-Teclas 11 Control+enter 9>>>> 15"/comandos" como texto .
n197=  aline @Alias-Teclas 11 Control+kbu 9>>>> 15Controles de colores.
n198=  aline @Alias-Teclas 8=========================================
n199=}
n200=;win de orion clon por sockets===========================
n201=@clon {
n202=  window -kp +bd @clon 0 55 200 50
n203=  drawpic  -c @clon 0 0 $orionskin(orionclon.jpg)
n204=  if ($sock(orionclon)) { 
n205=    drawdot @clon 4 3 183 36 
n206=    drawtext -cp @clon 5 "arial" 10 70 8 200 11 9,1 $sock(orionclon).ip 
n207=    drawtext -cp @clon 5 "arial" 10 43 27 200 12 9,1 %nickorionclon
n208=  }
n209=  else { 
n210=    drawdot @clon 9 3 183 36  
n211=    drawtext -cp @clon 5 "arial" 10 43 27 200 12 9,1 %nickorionclon
n212=  }
n213=}
n214=;escan de puertos a canals-nicks========================
n215=@scan#n {
n216=  window @ScaN_Canal-Nicks 505 253 290 225
n217=  aline @ScaN_Canal-Nicks 0 Resultados ScanS %txtscript 
n218=  aline @ScaN_Canal-Nicks $oriontheme(sSeparadorLine)
n219=  aline @ScaN_Canal-Nicks 1,8 ScaneR 0,12 %winactive 9,99  
n220=  aline @ScaN_Canal-Nicks $oriontheme(sSeparadorLine) 
n221=  if ($dialog(scan) != $null) { dialog -x scan }
n222=}
n223=;win para recibir notices serever=========================
n224=getnoticeserv {
n225=  window @getnoticeserv 505 353 290 125
n226=  aline @getnoticeserv 0Ventana para recibir noticias del server
n227=  aline @getnoticeserv 8=========================================
n228=  aline @getnoticeserv  0,15 0,14 0,4 Preparado 0,1 Gestor de mensajes SerV 9,99
n229=}
n230=;win de noticias on line orion===========================
n231=orionnewsstat {
n232=  if (DOCTYPE isin $read(sistema/news/tn $+ $remove($date,/) $+ .txt,1)) {  
n233=    echo -s $oriontheme(sSeparadorLine)
n234=    echo -s $oriontheme(eNewsOut)
n235=    .remove sistema/news/tn $+ $remove($date,/) $+ .txt
n236=  }
n237=  else {
n238=    echo -s $oriontheme(sSeparadorLine)
n239=    echo -s $oriontheme(eNewsIn)
n240=    .rename sistema/news/tn $+ $remove($date,/) $+ .txt sistema/news/n $+ $remove($date,/) $+ .txt
n241=    orionnewswin sistema/news/n $+ $remove($date,/) $+ .txt
n242=  }
n243=}
n244=orionnewswin {
n245=  window @orionnews 505 355 290 125
n246=  aline @orionnews 8=====================  
n247=  aline @orionnews 0,15 0,14 0,4 NewS 0,1 OrioN ScripT 9,99
n248=  aline @orionnews 8=====================
n249=  %l = 1
n250=  while ($read($1,%l)) {
n251=    aline @orionnews 0 $read($1,%l) 
n252=    inc %l
n253=  }
n254=  sline @orionnews 7
n255=}
n256=f1 { run $mircdirhelp\index.htm }
n257=f2 { echo -s 4,1 Reconex 11 $server 9 $port  11,99 | server $server $port }
n258=f3 { dialog -m setup setup }
n259=f4 { publi say }
n260=f5 { ctcp %ctcpnick get %ctcpfile }
n261=f6 { 
n262=  if ($away == $false) { awayon }
n263=  else {  awayoff }
n264=
n265=}
n266=f7 { 
n267=  if (%fserver == on) { amsg 0,15 0,14 0,1 F-§êRvEr 11,4 OFF 1,14 0,15 9,99 | fserveroff }
n268=  else { anunciafserver  | fserveron }
n269=}
n270=f8 { .splay stop }
n271=f9 { msg %winactive %msgpuchf9 }
n272=f10 { 
n273=  if (%last#1 != $null) {  join %last#1 }
n274=  if (%last#2 != $null) { join %last#2 }
n275=  if (%last#3 != $null) { join %last#3 }
n276=  if (%last#4 != $null) { join %last#4 }
n277=  if (%last#5 != $null) { join %last#5 }
n278=  if (%last#6 != $null) { join %last#6 }
n279=  if (%last#7 != $null) { join %last#7 }
n280=  if (%last#8 != $null) { join %last#8 }
n281=  if (%last#9 != $null) {  join %last#9 }
n282=  if (%last#10 != $null) {  join %last#10 }
n283=  unset %last#*
n284=}
n285=f11 { run %lastdccget }
n286=f12 { mode %winactive +b $address(%barsnick,2) | kick %winactive %barsnick }
n287=
n288=
n289=;proteccion flood =====================================
n290=apf {
n291=  if (%pflood != (-si-)) {
n292=    echo -s 0,15 0,14 8,1 Has activado la proteccion anti flood 0,14 0,15 0,99   
n293=    set %pflood (-si-)  
n294=  flood on }
n295=  elseif (%pflood == (-si-)) {
n296=  echo -s 0,15 0,14 8,1 La proteccion anti flood ya se encuentra activada 0,14 0,15 0,99 }
n297=}
n298=.......
n299=dpf {
n300=  if (%pflood == (-si-)) {
n301=    echo -s 0,15 0,14 8,1 Has desactivado la proteccion anti flood 0,14 0,15 0,99    
n302=    set %pflood (-no-)  
n303=  flood off }
n304=  elseif (%pflood == (-no-)) {
n305=  echo -s 0,15 0,14 8,1 La proteccion anti flood ya se encuentra desactivada 0,14 0,15 0,99 }
n306=}
n307=;......
n308=chb { 
n309=  if (%pflood == (-si-)) {
n310=    :f1
n311=    set %chcb $$?="¿Cada cuantos bytes activo cheqeo?"
n312=    if (%chcb >= 100 ) && (%chcb <= 500) { echo -s 0,1 En la proteccion8,1 anti flood0,1, esta activado el chequeo a4,1 %chcb 0,1bytes 0,99 | flood %chcb }
n313=    else { echo -s %error 0,2 Debes de especificar solo el numero de bytes, este no debe de ser menor de8,2 100 0,2 ni mayor a8,2 500 8,99 | goto f1 }
n314=  }
n315=  elseif (%pflood !== (-si-)) {
n316=  echo -s %error 0,2 Para activar estas opciones debes de tener la proteccion 8,2anti flood0,2 activada (-si-) 0,99 }  
n317=}
n318=............
n319=maxl { 
n320=  if (%pflood == (-si-)) {
n321=    :f2
n322=    set %nmaxl $$?="¿Numero max de lineas en memoria?"
n323=    if (%nmaxl >= 5) && (%nmaxl <= 30) { echo -s 0,1 En la proteccion8,1 anti flood0,1, el numero max de lineas en memoria es 4,1 %nmaxl 0,1lineas 0,99 | flood %chcb %nmaxl }
n324=    else { echo -s %error 0,2 Debes de especificar solo el numero de lineas en memoria, este no debe de ser menor de8,2 5 0,2 ni mayor a8,2 30 8,99 | goto f2 }
n325=  }
n326=  elseif (%pflood !== (-si-)) {
n327=  echo -s %error 0,2 Para activar estas opciones debes de tener la proteccion 8,2anti flood0,2 activada (-si-) 0,99 }  
n328=}
n329=;..............
n330=maxlp { 
n331=  if (%pflood == (-si-)) {
n332=    :f3
n333=    set %nmaxlp $$?="¿Numero max de lineas por persona?"
n334=    if (%nmaxlp >= 2) && (%nmaxlp <= 10) { echo -s 0,1 En la proteccion8,1 anti flood0,1, el numero max de lineas por persona es 4,1 %nmaxlp 0,99 | flood %chcb %nmaxl %nmaxlp }
n335=    else { echo -s %error 0,2 Debes de especificar solo el numero de lineas por persona, este no debe de ser menor de8,2 2 0,2 ni mayor a8,2 10 8,99 | goto f3 }
n336=  }
n337=  elseif (%pflood !== (-si-)) {
n338=  echo -s %error 0,2 Para activar estas opciones debes de tener la proteccion 8,2anti flood0,2 activada (-si-) 0,99 }  
n339=}
n340=..............
n341=igu {
n342=  if (%pflood == (-si-)) {
n343=    :f4
n344=    set %ignoud $$?="¿Por cuantos seg deseas ignorar al usuario?"
n345=    if (%ignoud >= 5) && (%ignoud <= 500 ) { echo -s 0,1 En la proteccion8,1 anti flood0,1, el numero de seg para ignorar al usuario es de 4,1 %ignoud 0,1lineas 0,99 | flood %chcb %nmaxl %nmaxlp %ignoud }
n346=    else { echo -s %error 0,2 Debes de especificar solo el numero de seg para ignorar al usuario, este no debe de ser menor de8,2 5 0,2 ni mayor a8,2 500 8,99 | goto f4 }
n347=  }
n348=  elseif (%pflood !== (-si-)) {
n349=  echo -s %error 0,2 Para activar estas opciones debes de tener la proteccion 8,2anti flood0,2 activada (-si-) 0,99 }  
n350=}
n351=;........
n352=sflood {
n353=  if (%pflood == (-si-)) {
n354=    echo -s $oriontheme(sSeparadorLine)
n355=    echo -s 8,1 La proteccion 4,1antiflood8,1 se encuentra 4,1 activa 4,99
n356=    echo -s 0,2 Activar chequeo cada :0,4 %chcb bytes0,99
n357=    echo -s 0,2 Maximo de lineas en memoria :0,4 %nmaxl lineas0,99
n358=    echo -s 0,2 Maximo de lineas por persona :0,4 %nmaxlp lineas0,99
n359=    echo -s 0,2 Ignorar al usuaior durante :0,4 %ignoud seg0,99 
n360=  echo -s $oriontheme(sSeparadorLine) }
n361=  else {  
n362=    echo -s $oriontheme(sSeparadorLine)
n363=    echo -s 8,1 La proteccion 4,1antiflood8,1 se encuentra 4,1 Desactiva 4,99 
n364=    echo -s $oriontheme(sSeparadorLine)
n365=  }
n366=}
n367=;comando ignorar====================================
n368=;lita de ignorados............
n369=listignores { 
n370=  echo -s $oriontheme(sSeparadorLine)
n371=  echo -s 15,2 Total de ignores 0,4 $ignore(0) 9,99
n372=  %x = 0
n373=  :ini
n374=  inc %x
n375=  if ($ignore(%x) != $null) { echo -s 15,2 Ignore %x 0,4 $ignore(%x) 11 $ignore(%x).type 9,99 | goto ini }
n376=  else { unset %x | echo  -s $oriontheme(sSeparadorLine) }
n377=}
n378=;ignorar---------------------------
n379=listaig { echo 12 -s %txtscript Entradas en la lista de Ignore | set %iv 0 
n380=  :VV
n381=  inc %iv | if (%iv > $ignore(0) ) {
n382=    if ( $1 != delete) { echo 11,1 -s Total:1 $ignore(0) entradas | unset %iv | halt }
n383=  else { echo 11,1 -s Todas las entradas 4,1borradas | unset %iv | halt } }
n384=  echo 3 -s  %iv - 11,1 $ignore(%iv) 4,1 $ignore(%iv).type
n385=  if ( $1 == delete ) { ignore -r $ignore(%iv) | set %iv 0 }
n386=}
n387=
n388=;ataques war para canales================================================
n389=war.baneo# {
n390=  %x = 0 
n391=  :ini
n392=  inc %x 
n393=  if (%x != 6) {  
n394=    .timer 1 %x mode # +b %x $+ #@(/!=&"º%?<$#@(/!=&"º%?<$#@(/!=&"º%?<$#@(/!=&"º%?<1
n395=    goto ini 
n396=  }
n397=  else { unset %x }
n398=}
n399=war.modos# { 
n400=  mode # +ipsmns 
n401=  topic # %txtscript
n402=  mode # +k orionmaligno
n403=  mode # l 1 
n404=}
n405=war.kick# {
n406=  .msg $chan 2Se esta rifando un 4kick
n407=  :ini
n408=  set %war.kick# $rand(1,$nick(#,0)) 
n409=  if ($nick(#,%war.kick#) == $me) { goto ini }
n410=  else {
n411=    .timerw.k1 1 1 .msg $chan 12El numero premiado es el4 %war.kick# 
n412=    .timerw.k2 1 3 kick  # $nick(#,%war.kick#) 7Te ha tocado, pequeño
n413=    unset %war.kick#
n414=  }
n415=}
n416=war.bankick# {
n417=  .msg $chan 2Se esta rifando un 4ban-kick
n418=  :ini
n419=  set %war.kick# $rand(1,$nick(#,0)) 
n420=  if ($nick(#,%war.kick#) == $me) { goto ini }
n421=  else {
n422=    .timerw.k1 1 1 .msg $chan 12El numero premiado es el4 %war.kick# 
n423=    .timerw.k3 1 2 mode # +b $address($nick(#,%war.kick#),2) 7Te ha tocado, pequeño
n424=    .timerw.k2 1 3 kick  # $nick(#,%war.kick#) 7Te ha tocado, pequeño
n425=    unset %war.kick#
n426=  }
n427=}
n428=takeover {
n429=  .timertakeover 1 2  takeover2 
n430=  massdeop
n431=}
n432=takeover2 {  
n433=  topic %takeover# %txtscript
n434=  mode %takeover# +mntps
n435=  unset %takeover#
n436=}
n437=;ban temporal===========================================================
n438=bantime {
n439=  if (%timeb != $null) {  
n440=    %timeb = $calc(60 * %timeb) 
n441=    mode %#timeb -o %nicktimeb
n442=    mode %#timeb +b $address(%nicktimeb,2)
n443=    kick %#timeb %nicktimeb 2ban temporal: 4 %timeb 14seg  
n444=    .timerbantime 1 %timeb bantimer
n445=  }
n446=}
n447=bantimer {
n448=  if ($me isop %#timeb) {
n449=    mode %#timeb -b $address(%nicktimeb,2)
n450=    msg %nicktimeb %txtscript 2Has sido desbaneado, ban temporal 4finalizado. 
n451=    unset %#timeb %nicktimeb %timeb  
n452=  }
n453=}
n454=;kick mas mensaje=======================================================
n455=kick+msg {
n456=  set %kick+msg $$?="¿Razon del kick?"
n457=  kick $chan $* 15 «14«12 %kick+msg 14 »15» 11,99
n458=  unset %kick+msg 
n459=}
n460=;ataque con icmp ========================================================
n461=icmp {
n462=  echo -s $oriontheme(sSeparadorLine)   
n463=  echo -s 1,0 8,1 1,8 8,1 1,8 8,1 1,8 8,1 Iniciando ataque 4 ICMP 8contra 9 %atak.nick 0paquetes a enviar:4 64000 8,1 1,8 8,1 1,8 8,1 1,8 8,1 9,99
n464=  echo -s $oriontheme(sSeparadorLine)  
n465=  sorion ban
n466=  run $mircdirwar\jav\VTJBomber.exe %icmpip
n467=}
n468=
n469=;comprobacion de existencia de fondo
n470=compbackground { 
n471=  if ($exists(%background1) == $false) { 
n472=    %skin = base
n473=    %background1 = $orionskin(fondo1.jpg)
n474=    %background2 = $orionskin(backwar.jpg)  
n475=  }
n476=}
n477=
n478=;saludo a todos los nicks de un canal======================
n479=saluallnicks# {
n480=  echo -a > Ejecutado saludo global a nicks $1    
n481=  unset %allnicks#  
n482=  :ini
n483=  inc %nº 
n484=  if ($nick($1,%nº) == $null) { unset %cº %nº 
n485=    if (%allnicks# != $null) { 
n486=      if ($2 != $null) { .msg $1 $2 %allnicks# } 
n487=      else {  .msg $1 %saluglobalcanal %allnicks# }   
n488=    } 
n489=  }  
n490=  else {   
n491=    if ($nick($1,%nº) == $me) { goto ini } 
n492=    %cº =  $+ $rand(1,15)
n493=    if (%allnicks# != $null) { %allnicks# = %allnicks# $+ , %cº $+ $nick($1,%nº)  }
n494=    else { %allnicks# = %cº $+ $nick($1,%nº)  }     
n495=    goto ini  
n496=  }
n497=  halt
n498=}
n499=
n500=;avisar de lag excesivo para reconex====================
n501=moslagsacarsr {
n502=  infotxt@ LAG excesivo: %lag seg de retardo ( $+ $server $+ ) 
n503=  set %r $$?!="Tu lag es excesivo: %lag seg $crlf $+ Deseas reconectar con?: $server "
n504=  if (%r) { 
n505=    %mn = $me    
n506=    server $server  4L2ag excesivo:4 %lag 2[Proceso de Reconexión automática]
n507=    .timer 1 5 nick %mn  
n508=  }
n509=  unset %r
n510=}
n511=;userlist
n512=userlistinfoedit did -r userlist 8
n513=
n514=;away
n515=@winreadmsgaway {
n516=  if ($window(@grabadora)) { window -c @grabadora }  
n517=  window -m @readmsgaway 0 2 488 249 
n518=  renwin @readmsgaway @Grabadora  <  Lector de mensajes grabados durante tus ausencias  >
n519=  aline @Grabadora 8,2 Grabadora de mensajes durante estancia away 0,4 Cargada... 9,99
n520=  %t = 1
n521=  while ($read($mircdirsistema\away\away.log,%t) ) {
n522=    aline @Grabadora $read($mircdirsistema\away\away.log,%t)  
n523=    inc %t 
n524=  }
n525=  aline @Grabadora 8,2 Fin del log Away 9,99
n526=  unset %t
n527=}
n528=
n529=;selkick
n530=selkick { dialog -m atake-sel atake-sel | dialog -t atake-sel OrioN - SelKick : %canal.atake   | set %canal.atake $chan }
n531=
n532=;devolcucion de datos para gestion de email
n533=dataemail {  
n534=  %x = 3
n535=  %p = $1
n536=  %lineemail = $read -l $+ %x $mircdirsistema\txts\emails.txt  
n537=  while (%lineemail) {
n538=    inc %x  
n539=    %lineemail = $read -l $+ %x $mircdirsistema\txts\emails.txt
n540=    if (%p isin %lineemail) || (%p == %lineemail) { 
n541=      if ($2 == name) { return $gettok(%lineemail,1,59) }
n542=      if ($2 == dire) { return $gettok(%lineemail,2,59) }
n543=      if ($2 == user) { return $gettok(%lineemail,3,59) }
n544=      if ($2 == pass) { return $gettok(%lineemail,4,59) }
n545=      if ($2 == pop) { return $gettok(%lineemail,5,59) }
n546=      if ($2 == smtp) { return $gettok(%lineemail,6,59) }
n547=      break 
n548=    }
n549=  }
n550=}