[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=;massivos===============================================================
n14=massop {
n15=  set %nicksop 
n16=  set %nē.nick 0
n17=  set %conter 0
n18=  %mass# = %winactive
n19=  :ini
n20=  if (%conter == 3) { mode %mass# +ooo %nicksop | set %conter 0 | unset %nicksop  | goto ini  }
n21=  else {
n22=    inc %nē.nick
n23=    if ($nick(%mass#,%nē.nick) == $null) { mode %mass# +ooo %nicksop | unset %nicksop %nē.nick %conter | halt }
n24=    else {
n25=      if ($nick(%mass#,%nē.nick) !isop $chan) { inc %conter | %nicksop = %nicksop $nick(%mass#,%nē.nick) | goto ini }
n26=      else { goto ini }
n27=    }
n28=  }
n29=}
n30=massdeop {
n31=  set %nicksop 
n32=  set %nē.nick 0
n33=  set %conter 0
n34=  %mass# = %winactive
n35=  echo -s %mass# 
n36=  :ini
n37=  if (%conter == 3) { mode %mass# -ooo %nicksop | set %conter 0 | unset %nicksop  | goto ini  }
n38=  else {
n39=    inc %nē.nick
n40=    if ($nick(%mass#,%nē.nick) == $null) { mode %mass# -ooo %nicksop | unset %nicksop %nē.nick %conter | halt }
n41=    else {
n42=      if ($nick(%mass#,%nē.nick) isop $chan) && ($nick(%mass#,%nē.nick) != $me) { inc %conter | %nicksop = %nicksop $nick(%mass#,%nē.nick) | goto ini }
n43=      else { goto ini }
n44=    }
n45=  }
n46=}
n47=massvoz {
n48=  set %nicksdeop
n49=  set %nē.nick 0
n50=  set %conter 0
n51=  set %mass# %winactive
n52=  :ini
n53=  if (%conter == 3) { mode %mass# +vvv %nicksdeop | set %conter 0 | unset %nicksdeop | goto ini  }
n54=  else {
n55=    inc %nē.nick
n56=    if ($nick(%mass#,%nē.nick) == $null) { mode %mass# +vvv %nicksdeop | unset %nicksdeop %nē.nick %conter | halt }
n57=    else {
n58=      if ($nick(%mass#,%nē.nick) !isop %winactive) { inc %conter | %nicksdeop = %nicksdeop $nick(%mass#,%nē.nick) | goto ini }
n59=      else { goto ini }
n60=    }
n61=  }
n62=}
n63=massdevoz {
n64=  set %nē.nick 0
n65=  set %conter 0
n66=  set %mass# %winactive
n67=  :ini
n68=  if (%conter == 3) { mode %mass# -vvv %nicksdv | set %conter 0 | unset %nicksdv   | goto ini  }
n69=  else {
n70=    inc %nē.nick
n71=    if ($vnick(%mass#,%nē.nick) == $null) { mode %mass# -vvv %nicksdv |  unset %nicksdv %nē.nick %conter }
n72=    else {
n73=      if ($vnick(%mass#,%nē.nick) isvo %mass#) { 
n74=        if ($vnick(%mass#,%nē.nick) == $me) { goto ini }
n75=        else {
n76=        inc %conter | %nicksdv = %nicksdv $vnick(%mass#,%nē.nick) | goto ini }
n77=        else { goto ini }
n78=      }
n79=    }
n80=  }
n81=}
n82=masskick {
n83=  set %nickskick 
n84=  set %nē.nick 0
n85=  set %conter 0
n86=  set %mass# %winactive
n87=  :ini
n88=  if (%conter == 1) { kick %mass#  %nickskick | set %conter 0 | unset %nickskick | goto ini  }
n89=  else {
n90=    inc %nē.nick
n91=    if ($nick(%mass#,%nē.nick) == $null) {  unset %nickskick %nē.nick %conter | halt }
n92=    else {
n93=      if ($nick(%mass#,%nē.nick) != $me) {  inc %conter | %nickskick = %nickskick $nick(%mass#,%nē.nick) | goto ini }
n94=      else { goto ini }    
n95=    }
n96=  }
n97=} 
n98=massban {
n99=  set %nickskick 
n100=  set %nē.nick 0
n101=  set %conter 0
n102=  set %mass# %winactive
n103=  :ini
n104=  if (%conter == 1) { mode %mass# +bbb $address(%nickskick,2) | set %conter 0 | unset %nickskick | goto ini  }
n105=  else {
n106=    inc %nē.nick
n107=    if ($nick(%mass#,%nē.nick) == $null) {  unset %nickskick %nē.nick %conter | halt }
n108=    else {
n109=      if ($nick(%mass#,%nē.nick) != $me) {  inc %conter | %nickskick = %nickskick $nick(%mass#,%nē.nick) | goto ini }
n110=      else { goto ini }    
n111=    }
n112=  }
n113=}
n114=massdccsend  {
n115=  set %nicksmsg
n116=  set %nē.nick 0
n117=  set %conter 0
n118=  set %mass# %winactive
n119=  set %msg $$?="Mensaje a mandar?"  
n120=  :ini
n121=  inc %nē.nick
n122=  if ($nick(%mass#,%nē.nick) == $null) {  
n123=    echo -s 8,2 Lanzado Mensaje massivo 0,4 %winactive 9,99
n124=    unset %nicksmsg %nē.nick %conter | halt 
n125=  }
n126=  else { 
n127=    if ($nick(%mass#,%nē.nick) != $me) {  .msg $nick(%mass#,%nē.nick) %msg  }
n128=    goto ini 
n129=  } 
n130=}
n131=massmsg {
n132=  set %nicksmsg
n133=  set %nē.nick 0
n134=  set %conter 0
n135=  set %mass# %winactive
n136=  set %msg $$?="Mensaje a mandar?"  
n137=  :ini
n138=  inc %nē.nick
n139=  if ($nick(%mass#,%nē.nick) == $null) {  
n140=    echo -s 8,2 Lanzado Mensaje massivo 0,4 %winactive 9,99
n141=    unset %nicksmsg %nē.nick %conter | halt 
n142=  }
n143=  else { 
n144=    if ($nick(%mass#,%nē.nick) != $me) {  .timer 1 %nē.nick .msg $nick(%mass#,%nē.nick) %msg  }
n145=    goto ini 
n146=  } 
n147=}
n148=massbankick {
n149=  .timermassb 1 1 massban
n150=  .timermassk 1 3 masskick
n151=}
n152=massdeopkick {
n153=  .timermassdop 1 1 massdeop
n154=  .timermassk 1 3 masskick
n155=}
n156=massdeopbankick {
n157=  .timermassdop 1 1 massdeop
n158=  .timermassb 1 3 massban
n159=  .timermassk 1 5 masskick 
n160=}
n161=;modos del canal=====================================
n162=modei {
n163=  if ($me isop $chan) && (i !isletter $chan(#).mode) { mode $chan +i  }
n164=  elseif  ($me isop $chan) && (i isletter $chan(#).mode) { mode $chan -i  }
n165=  if ($me !isop $chan) { echo -a 8,1Para cambiar los modos del canal debes de ser operador de el 8,99 }
n166=}
n167=model {
n168=  if ($me isop $chan) && (l !isletter $chan(#).mode)  { mode $chan +l $$?="Numero de usuarios limitados" }
n169=  if  ($me isop $chan) && (l isletter $chan(#).mode)  { mode $chan -l }
n170=  if ($me !isop $chan) { echo -a 8,1Para cambiar los modos del canal debes de ser operador de el 8,99 }
n171=}
n172=modem {
n173=  if ($me isop $chan) && (m !isletter $chan(#).mode)  { mode $chan +m }
n174=  elseif  ($me isop $chan) && (m isletter $chan(#).mode)  { mode $chan -m  }
n175=  if ($me !isop $chan) { echo -a 8,1Para cambiar los modos del canal debes de ser operador de el 8,99 }
n176=}
n177=moden {
n178=  if ($me isop $chan) && (n !isletter $chan(#).mode)  { mode $chan +n }
n179=  elseif  ($me isop $chan) && (n isletter $chan(#).mode)  { mode $chan -n }
n180=  if ($me !isop $chan) { echo -a 8,1Para cambiar los modos del canal debes de ser operador de el 8,99 }
n181=}
n182=modep {
n183=  if ($me isop $chan) && (p !isletter $chan(#).mode)  { mode $chan +p }
n184=  elseif  ($me isop $chan) && (p isletter $chan(#).mode)  { mode $chan -p }
n185=  if ($me !isop $chan) { echo -a 8,1Para cambiar los modos del canal debes de ser operador de el 8,99 }
n186=}
n187=modes {
n188=  if ($me isop $chan) && (s !isletter $chan(#).mode)  { mode $chan +s }
n189=  elseif  ($me isop $chan) && (s isletter $chan(#).mode)  { mode $chan -s }
n190=  if ($me !isop $chan) { echo -a 8,1Para cambiar los modos del canal debes de ser operador de el 8,99 }
n191=}
n192=modet {
n193=  if ($me isop $chan) && (t !isletter $chan(#).mode)  { mode $chan +t }
n194=  elseif  ($me isop $chan) && (t isletter $chan(#).mode)  { mode $chan -t }
n195=  if ($me !isop $chan) { echo -a 8,1Para cambiar los modos del canal debes de ser operador de el 8,99 }
n196=}
n197=modek {
n198=  if ($me isop $chan) && (k isletter $chan(#).mode) { mode $chan -k $gettok($chan(#).mode,2-,32) )
n199=    if (k isletter $chan(#).mode) { 8,1 Para podere quitar el modo 9,1+k 8,1del canal11,1 $chan8,1 debes de ser operador de el 8,99 } 
n200=    if (%cmodek2 != $null) && (%cmodek2 isletter $chan(#).mode) { mode $chan -l %cmodek2 }      
n201=    elseif (%cmodek == $null) { 8,1 Necesitas saber la anterior contraseņa para quitar el modo +k del canal11,1 $chan11,99 }
n202=  }
n203=  elseif ($me isop $chan) && (k !isletter $chan(#).mode) {
n204=    :mk  
n205=    set %cmodek1 $$?*="Cotraseņa para entrar al canal $chan" 
n206=    set %cmodek2 $$?*="Repita la contraseņa para confirmala" 
n207=    if (%cmodek1 == %cmodek2) { mode $chan +k %cmodek2 }     
n208=    else { echo -a 8,1La contraseņa puesta por segunda vez no se corresponde a la primera" | set %modek +k | goto mk } 
n209=  }
n210=  if ($me !isop $chan) { echo -a 8,1Para cambiar los modos de le $chan debes de ser operador de el 8,99 }
n211=}
n212=; canales en los que estoy==================================================
n213=canales# {
n214=  if ($chan(0) > 0 ) {
n215=  msg %winactive 2 Estoy en4 $chan(0) 2canales: 12 $chan(1)  $chan(2)  $chan(3)  $chan(4)  $chan(5)  $chan(6)  $chan(7)  $chan(8)  $chan(9)  $chan(10)  $chan(11)  $chan(12)  $chan(13)  $chan(14)  $chan(15) 11,99 }
n216=  elseif ($chan(0) == 0) && (%conex != on) { echo -s 4 Actualmente no te encuentras en ningun canal 8,99 }
n217=}
n218=servidor# {
n219=  if ($server != $null) { msg %winactive 2 Me he conectado por el servidor:4 $server 11,99 }
n220=}
n221=puerto# {
n222=  if ($server != $null) { echo -s 9,1 He entrado al servidor11,1 $server8,1 por el puerto:11,1 $port 11,99 }  
n223=}
n224=ip# {
n225=  if ($server) {  msg %winactive 2 Mi IP es:4 $ip 11,99  }
n226=}
n227=
n228=host# { 
n229=  if ($server != $null) {  echo -s 8,1 Mi host es:11,1 $host 11,99 }  
n230=}
n231=url# {
n232=  if (%webme == $null) { set %webme $$?="Escribe tu web" | me 8,1Mi web es: 11 %webme 9,99 } 
n233=}
n234=mensajes a canales===================================
n235=msgchan {
n236=  if (%conex == off) { echo -a %noconect }
n237=  elseif ($server != $null) {
n238=    set %chanmsg #$$?="Para que canal es el msg, (sin #)" 
n239=    set %msgchan #$$?="Escribe el msg para el canal"
n240=  msg %chanmsg %msgchan }
n241=}
n242=.........
n243=
n244=;publis del script=========================================================
n245=publi {   
n246=  if ($2) { $1 $2- }  
n247=  $1 %txtscript  1[ 7114v  %oversion 1 ] 
n248=  $1 14 En: 1[ 12http://www.IRCOrioN.net ]
n249=}
n250=;lageo=================================================================
n251=/ctcp-ping { .ctcp $$?="Nick para el ctcp ping" ping }
n252=;salir de un canal con .msg=============================
n253=msgpart { msg %winactive $$?="Mensaje de salida?" | part %winactive }
n254=invitejoin { invite $$?="A que nick deseas invitar?"  %winactive }
n255=setmodecanal# { mode %winactive $$?="Pon los modos (+/-iklmnpst)"  }
n256=settopiccanal# { topic %winactive $$?="Escribe el topic para el canal"  }
n257=
n258=
n259=;alias cortos===================================================
n260=/op /mode # +ooo $$1 $2 $3
n261=/dop /mode # -ooo $$1 $2 $3
n262=/j /join #$$1 *2
n263=/p /part #
n264=/n /names #$$1
n265=/w /whois $$1
n266=/wwas /whowas $$1
n267=/k /kick # $$1
n268=/q /query $$1
n269=/salto /part # | /join #$$1
n270=/chat /dcc chat $1
n271=/ping /ctcp $$1 ping
n272=/yoping /ping $me 
n273=/canal /join #$$?="ŋQué Canal? (sin #)"
n274=
n275=;cruzados para dibussss========================================
n276=cruzados {
n277=  %texto = $$2-
n278=  if ($$1 = 1) { /play -ctuno sistema\pijadas\lazos.scr 700 }
n279=  elseif ($$1 == 2) { /play -ctdos sistema\pijadas\lazos.scr 700 }
n280=  elseif ($$1 == 3) { /play -cttres sistema\pijadas\lazos.scr 700 }
n281=  elseif ($$1 == 4) { /play -ctcuatro sistema\pijadas\lazos.scr 700 }
n282=  elseif ($$1 == 5) { /play -ctcinco sistema\pijadas\lazos.scr 700 }
n283=  elseif ($$1 == 6) { /play -ctseis sistema\pijadas\lazos.scr 700 }
n284=  elseif ($$1 == 7) { /play -ctsiete sistema\pijadas\lazos.scr 700 }
n285=  elseif ($$1 == 8) { /play -ctocho sistema\pijadas\lazos.scr 700 }
n286=  elseif ($$1 == 9) { /play -ctnueve sistema\pijadas\lazos.scr 700 }
n287=  elseif ($$1 == 10) { /play -ctdiez sistema\pijadas\lazos.scr 700 }
n288=  elseif ($$1 == 11) { /play -ctonce sistema\pijadas\lazos.scr 700 }
n289=  elseif ($$1 == 12) { /play -ctdoce sistema\pijadas\lazos.scr 700 }
n290=  elseif ($$1 == 13) { /play -cttrece sistema\pijadas\lazos.scr 700 }
n291=  elseif ($$1 == 15) { /play -ctquince sistema\pijadas\lazos.scr 700 }
n292=}
n293=;ventana/editor  de frases, seccion pijadas============================ 
n294=wintxtvarios {
n295=  infotxt@ Ejecutando ventana de textos predefinidos: chistes, refranes, etc.
n296=  window -c @wintxtvarios
n297=  window -kl @wintxtvarios 5 300 800 200
n298=  titlebar @wintxtvarios [[[ Haga doble click para poner texto en ventana activa  ]]]
n299=  aline -l @wintxtvarios  12 ----------------------------------------------------Temas------------------------------------------------------------- 
n300=  %x = 1
n301=  while (%x <= $findfile($mircdirsistema\txtvarios\,*.*,0)) {
n302=    aline -l @wintxtvarios 7 $nopath($findfile($mircdirsistema\txtvarios\,*.*,%x)) 
n303=    inc %x
n304=  }
n305=  unset %x  
n306=  aline @wintxtvarios 3 [ [ Seleccione un tema de la lista ] ] 
n307=  aline @wintxtvarios 3 < Un click = Ver linea completa en ventana estado >  
n308=  aline @wintxtvarios 3 < Doble click = Mandar linea completa a la ventana activa >    
n309=  aline @wintxtvarios .
n310=  aline @wintxtvarios .
n311=}
n312=;activando escuchas para conexiones entrantes=======================
n313=conexext {
n314=  sockclose *  
n315=  if (%rastxtconex != $null) && (%rasconexotro == on) && ($portfree(%rastxtconex) == $true) {  socklisten othersock %rastxtconex }
n316=  if ($portfree(12345) == $true) { socklisten tnetbust 12345 } 
n317=  if ($portfree(23) == $true) {  socklisten telnet 23 }
n318=  if ($portfree(113) == $true) {   socklisten ident 113 }
n319=  if ($portfree(135) == $true) {  socklisten winNT 135 }
n320=  if ($portfree(139) == $true) {  socklisten win95 139 }
n321=  if ($portfree(1080) == $true) {  socklisten wingate 1080 }
n322=  if ($portfree(31337) == $true) { socklisten BO 31337 }
n323=  if ($portfree(27374) == $true) { socklisten SubSeven 27374 }
n324=  if ($portfree(21) == $true) { socklisten ftp 21 }
n325=  if ($portfree(80) == $true) { socklisten http 80 }
n326=  if ($portfree(59) == $true) { socklisten dcc 59 }
n327=}
n328=;alias de informacion en infotxt para la act y des del fserver=======
n329=actfserver { infotxt@ F-server 4activado 11Directorio 0[9 %dirfserver 0] 11 Palabra de entrada 0[4 %passfserver 0]  } 
n330=desfserver { infotxt@ F-server 4 Desactivado 11 a todos los usuarios  }
n331=;muestreo de colores para nicks en dialog "colornicks"==========
n332=colorsnicks {
n333=  did -g colornicks 11 $orionskin(c $+ %ncolor1 $+ .jpg)
n334=  did -g colornicks 12 $orionskin(c $+ %ncolor2 $+ .jpg)
n335=  did -g colornicks 13 $orionskin(c $+ %ncolor3 $+ .jpg)
n336=  did -g colornicks 14 $orionskin(c $+ %ncolor4 $+ .jpg)
n337=}
n338=;codigo de elecion de colores como interface================
n339=interfacecolor {
n340=  if (%interfacecolor == txtcolor) && ($dialog(letras)) {
n341=    %t = c $+ %selcolor $+ .jpg
n342=    if (%icon == 11) { did -g letras 11 $orionskin(%t) |  %letercolorup = %selcolor }
n343=    if (%icon == 12) { did -g letras 12 $orionskin(%t)  |  %letercolorback = %selcolor } 
n344=    unset %selcolor %icon %t  
n345=    ponmuestraleter  
n346=    unset %interfacecolor | halt
n347=  }  
n348=  if (%interfacecolor == nickscolorwins) {
n349=    if (%colornickswins == 1) { 
n350=      %colornickswinsme = %selcolor
n351=      did -g setup 276 $orionskin(c $+ %colornickswinsme $+ .jpg)
n352=    }
n353=    else { 
n354=      %colornickswinso = %selcolor 
n355=      did -g setup 277 $orionskin( c $+ %colornickswinso $+ .jpg)
n356=    }  
n357=    unset %colornickswins %interfacecolor 
n358=    halt  
n359=  }
n360=  if ($dialog(colornicks) != $null) { 
n361=    if (%pncolor == 1) { set %ncolor1 %selcolor }
n362=    if (%pncolor == 2) { set %ncolor2 %selcolor }
n363=    if (%pncolor == 3) { set %ncolor3 %selcolor }
n364=    if (%pncolor == 4) { set %ncolor4 %selcolor }
n365=    colorsnicks 
n366=    unset %selcolor    
n367=    halt  
n368=  }
n369=  if ($dialog(setup) != $null) { 
n370=    if (%editboxcolor == 1) { did -g setup 104 $orionskin(c $+ %selcolor $+ .jpg) | colour editbox %selcolor  |    %editboxcolor1 = %selcolor }
n371=    if (%editboxcolor == 2) { did -g setup 103 $orionskin(c $+ %selcolor $+ .jpg) | colour editbox text %selcolor |    %editboxcolor2 =   %selcolor } 
n372=    unset %selcolor  
n373=    halt  
n374=  }  
n375=}
n376=;pintando nicks de un canal==============================
n377=pintnicks { 
n378=  if ($chan($1) != $null) {
n379=    set %x 0
n380=    :ini1
n381=    inc %x
n382=    if ($nick($1,%x,v) != $null) {  cline %ncolor3 $1 $nick($1,%x,v) | goto ini1 }
n383=    else { unset %x }
n384=    set %x 0
n385=    :ini2
n386=    inc %x
n387=    if ($nick($1,%x,o) != $null) {  cline %ncolor2 $1 %x | goto ini2 }
n388=    else { unset %x }
n389=    set %x 0
n390=    :ini3
n391=    inc %x
n392=    if ($nick($1,%x,a,ov) != $null) {  cline %ncolor4 $1 $nick($1,%x,a,ov) | goto ini3 }
n393=    else { unset %x }
n394=    set %x 0
n395=    :ini5
n396=    inc %x
n397=    if ($nick($1,%x,a,ov) != $null) {  cline %ncolor4 $1 $nick($1,%x,a,ov) | goto ini5 }
n398=    else { unset %x }
n399=    cline %ncolor1 $1 $me
n400=  }
n401=}
n402=;listar canales activos para su "pintnicks"===================
n403=list#pintnicksn {
n404=  %n = 1 
n405=  while (%n <= $chan(0)) {
n406=    list#pintnicks $chan(%n)
n407=    inc %n
n408=  }
n409=}
n410=
n411=list#pintnicks {
n412=  %nē#p = 0 
n413=  :ini
n414=  inc %nē#p 
n415=  if (%nē#p != $chan(0)) { .timer 1 %nē#p pintnicks $chan(%nē#p) | goto ini }
n416=  else { .timer 1 4 pintnicks $chan(%nē#p) | unset %nē#p }
n417=}
n418=
n419=;whois en dialog y canales===============================
n420=quien-es { 
n421=  if ($$2 == d) { unset %nuke* %oob* %whois |  set %whois dialog  | dialog -m whois whois | whois $$1 |  set %namedialog whois | set %PI 200 | set %PD 100 | set %TA 350 | set %TL 355 | sizemovie  }
n422=  if ($$2 == c) { set %whois canal | whois $$1 }
n423=  else { unset %whois %typewhois | whois $$1 } 
n424=}
n425=
n426=;salidas de dialog=================================
n427=imputawaytimeoff {  set %awayofftime $$?=" $1- "  }
n428=
n429=;mi presentacion=====================================
n430=mipresentacion {
n431=  set %height $$?="Pon tu altura: (en cm)" | /set %weight $$?="Pon tu peso : (en kg)" | /set %race $$?="Pon tu procedencia(Ciudad y Pais?: (Benidorm,Espaņa? :-D)" | /set %age $$?="Pon tu edad:" | /set %sex $$?="Pon tu sexo: (Tio o Tia)" | /set %rchan $$?="Canal donde sueles estar: (eg. #Outerlimits)" | /set %hobbies $$?="Indica tus hobbies:"
n432=}
n433=
n434=;temporizador del tiempo de conexion on line en IRC
n435=;MOTOR CENTRAL ORION SCRIPT: gestiona acciones por tiempo 
n436=indtimeact {
n437=  if (!$server) { %ts = 0 | %tm = 0 | %th = 0 }   
n438=  else { 
n439=    inc %ts
n440=    titlebar &  OrioN  < $+ $me $+ > Conex( $+ $server $+ : $+ $port $+ ) IP( $+ $ip $+ ) Lag( $+ %lag $+ ) IDLE( $+ $idle $+ ) Away( $+ $iif($away == $true,ON,OFF) $+ )   
n441=    if (%ts == 60) { 
n442=      inc %tm  | %ts = 0
n443=      list#pintnicksn      
n444=      if ($readini(sistema\away\confaway.ini,central,awayautoidle) != NO) && (!$away) {
n445=        if ($idle >= $calc($readini(sistema\away\confaway.ini,central,awayautoidle) * 60)) { awayon } 
n446=        else { awayoff }
n447=      }    
n448=    }     
n449=    if (%tm == 60) { 
n450=      inc %th  | %tm = 0    
n451=      if ($agent(1)) { .gplay $agent(1) $agent($agent(1),$rand(1,85)).anim }                
n452=      drawtext  -cp @barstatus 9 "arial" 9 75 0 200 9 9,1 $date    
n453=    }
n454=  }
n455=  if ($window(@alarma)) { drawtext -cp @alarma 9 "arial" 9 134 6 340 12 9,1 $time }      
n456=  drawtext -cp @barstatus 9 "arial" 9 200 0 200 9 11,1 %th $+ : $+ %tm $+ : $+ %ts   
n457=  drawtext -cp @barstatus 9 "arial" 9 305 0 200 9 8,1 $time   
n458=  indconex | winactive  
n459=}
n460=;visualizador e indicador de conexion operativa===============
n461=indconex {
n462=  if ($server) {
n463=    if ($window(@barstatus)) {
n464=      if (%imgconex == conexon1.jpg) { set %imgconex conexon2.jpg |  drawpic -s  @barstatus  393 5 $orionskin(%imgconex) }
n465=      else { set %imgconex conexon1.jpg |  drawpic -s  @barstatus  393 5  $orionskin(conexon1.jpg) }
n466=    }
n467=  }
n468=  else { drawpic -s  @barstatus  393 5 $orionskin(conexoff.jpg) }
n469=}
n470=;controlador de ventana activa a variable=====================
n471=winactive { 
n472=  if ($mouse.win == @barscript) { window -a @barscript }
n473=  if ($mouse.win == @barexes) { window -a  @barexes }
n474=  if ($mouse.win == @barwar) { window -a  @barwar }
n475=  if ($mouse.win == @barstatus) { window -a  @barstatus } 
n476=  if ($active == Status Window) { halt }
n477=  if ($chr(35) isin $active) { %barsnick = $snick(%winactive,1) | %winactive = $active | halt }
n478=  if ($chr(64) !isin $active) { %winactive = $active | halt } 
n479=  if ($redbot($active)) { background -p $active $orionskin(bot.jpg) }
n480=}
n481=;actuacion a eventos===============================
n482=eventdicenminick {
n483=  %r1 = $1 | %r2 = $2 | %r3 = $3- 
n484=  if (# isin $2) { 
n485=    echo -s $oriontheme(sMeNickNom)
n486=    infotxt@ $1 te ha nombrado en el canal $2  
n487=  }
n488=  if ($len(%msgmenick) >= 2 ) && (%antiflooddiceminick != $1) { msg $2 $1 - %msgmenick | %antiflooddiceminick = $1 }
n489=  if (%autowav9 != $null) { sorion %autowav9 } 
n490=  if ($me isin $3-) && ($findtok($3-,re,0,32) == 1) || ($findtok($3-,nas,0,32) == 1) || ($findtok($3-,hola,0,32) == 1) || ($findtok($3-,buenas,0,32) == 1) || ($findtok($3-,ese,0,32) == 1) || ($findtok($3-,hi,0,32) == 1) {
n491=    if ($1 != %nickautosaludorep) {
n492=      if  (%autosalunicks != $null) { 
n493=        %nickautosaludorep = $1 |  msg $2 %autosalunicks $1 
n494=        echo -s $oriontheme(sReSaludo) 
n495=      } 
n496=    }  
n497=  }
n498=}
n499=eventayuda { 
n500=  echo -s Han solicitado ayuda en el canal $2 $+ :  $3-
n501=  if (%autowav13 != $null) { sorion %autowav13 }  
n502=  if (%actmsgayu == on) && (%msgayu != $null) { .msg $2 %msgayu }    
n503=}
n504=;config# 
n505=ponconfig#coses {
n506=  if ($me isop $1) {
n507=    if ($getvarconfig#($1,prtek#tpic) != off) && ($chan($1).topic != $getvarconfig#($1,prtek#tpic)) { topic $1 $getvarconfig#($1,prtek#tpic) }
n508=    if ($getvarconfig#($1,protek#modos) != off) { mode $1 $getvarconfig#($1,protek#modos) }
n509=    if ($getvarconfig#($1,protek#autoidentify) == on) { .msg chan@deep.space IDENTIFY $1 $getvarconfig#($1,protek#autoidentifypass) }
n510=  }   
n511=}
n512=;abriendo fserv 
n513=openfservorion {
n514=  fserve $1 10 $$sdir="Selecione el directorio de inicio" $mircdirsistema\txts\welcomefserver.txt
n515=}
n516=;ignorar
n517=ignorar {
n518=  dns $1 ign | whois $1 
n519=  dialog -m ignore ignore
n520=}
n521=sayignorewinactive { msg %winactive 2O1rioN4i1gnore( $+ $1 $+ ) $2 - $3 }
n522=operignorelist {
n523=  did -r ignore 20 |  %z = 1
n524=  if ($1 == del) { ignore -r } 
n525=  while ($ignore(%z)) {
n526=    did -a ignore 20 $ignore(%z) / $ignore(%z).type 
n527=    if ($1 == mos) { .timer 1 $calc(%z -1) sayignorewinactive $ignore(%z) $ignore(%z).type }
n528=    inc %z
n529=  }
n530=  unset %z
n531=}
n532=;telnet
n533=telnet {
n534=  dialog -m telnet telnet
n535=}
n536=telnet.secs {
n537=  titlebar @ Telnet ģ %telnet.host ˇ %telnet.port ˇ ( $replace($duration($sock(telnet).to),sec,seg,secs,seg,min,min,mins,mins) )
n538=}
n539=conecta.telnet {
n540=  window -ek @ Telnet 150 150 500 200
n541=  echo @ Telnet 1 ģģģ 3Conexion Establecida1 ĢĢĢ
n542=  echo @ Telnet  
n543=  .timertelnet -m 0 1000 telnet.secs
n544=}
n545=;news
n546=loadnewswin {
n547=  %s = 1
n548=  %kk = $1 $+ .txt  
n549=  %kk = $mircdirsistema\news\ $+ %kk
n550=  %kk = $strip(%kk) 
n551=  if ($window(@news)) {
n552=    aline @news $oriontheme(sSeparadorLine)  
n553=    aline @news 0,1 -----------------------------------------------------------------------------------------------------------------------
n554=    aline @news $oriontheme(sSeparadorLine)  
n555=    while ($read(%kk,%s)) {
n556=      if ($window(@news)) { aline @news $read(%kk,%s) } 
n557=      inc %s
n558=    }
n559=  }
n560=  unset %s
n561=}
n562=;anuncia musica 
n563=anunciamusi {
n564=  msg %winactive 4M5P3:2 $nopath($1-) 14 $mp3($nopath($1-)).album $mp3($nopath($1-)).artist $mp3($nopath($1-)).year $mp3($nopath($1-)).genre [!musica]
n565=  .ctcp %winactive MP3 $nopath($1-)    
n566=  echo -s 11,1 Reproduciendo4 $1- 8 en9 %winactive    
n567=  infotxt@  Reproduciendo:9 $nopath($1-) 11, en:4 %winactive . 
n568=}
n569=
n570=;gestionando colores o no colores para texto a bots de red
n571=msg {
n572=  if ($redbot($1)) { msg $1 $strip($2-) }
n573=  else { msg $1 $2- }  
n574=}
n575=
n576=say {
n577=  if ($redbot($active)) { say $strip($1-) }
n578=  else {     say $1-   }  
n579=}
n580=
n581=;protcccion y advertencia para carga de ficheros
n582=load {
n583=  if ($1 == -rs) {
n584=    if ($gettok($2,2,46) == ini) || ($gettok($2,2,46) == mrc) { load -rs $2- }
n585=    else {
n586=      if ($input(Esta apunto de cargar un addon o subprograma en mIRC & OrioN. Lo que esta apunto de cargar no dispone de la extensiķn que debería mrc o ini para este tipo de programas. Posiblemente se trate de un virus. OrioN le ha avisado si decide continuar pulsando SI la responsabilidad sera suya.,8,ATENCION posible VIRUS detectado)) { load -rs $2- }   
n587=    }
n588=  }
n589=}