[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=}