[script] 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=;picture windows ============================================== n14= n15=;wins principales............................ n16=menu @barscript { n17= sclick { n18= ;superposicion de wins (barras) principales n19= if ($mouse.x > 2) && ($mouse.x < 49) && ($mouse.y > 37) && ($mouse.y < 49) { @barscript } n20= if ($mouse.x > 54) && ($mouse.x < 100) && ($mouse.y > 37) && ($mouse.y < 49) { @barexes } n21= if ($mouse.x > 105) && ($mouse.x < 151) && ($mouse.y > 37) && ($mouse.y < 49) { @barwar } n22= if ($mouse.x > 22) && ($mouse.x < 45) && ($mouse.y > 10) && ($mouse.y < 32) { dialog -m fserver fserver } n23= if ($mouse.x > 57) && ($mouse.x < 79) && ($mouse.y > 10) && ($mouse.y < 32) { dialog -m away away } n24= if ($mouse.x > 105) && ($mouse.x < 133) && ($mouse.y > 10) && ($mouse.y < 32) { dialog -m setup setup } n25= if ($mouse.x > 142) && ($mouse.x < 165) && ($mouse.y > 11) && ($mouse.y < 32) { runer net http://www.ircorion.net/secc/ayuda/ayuda.htm } n26= if ($mouse.x > 193) && ($mouse.x < 214) && ($mouse.y > 11) && ($mouse.y < 32) { dialog -m letras letras } n27= if ($mouse.x > 223) && ($mouse.x < 251) && ($mouse.y > 11) && ($mouse.y < 32) { @alarma } n28= if ($mouse.x > 263) && ($mouse.x < 289) && ($mouse.y > 11) && ($mouse.y < 32) { n29= if ( $window( @calc ).status ) window -a @calc n30= else calc.load n31= } n32= if ($mouse.x > 301) && ($mouse.x < 325) && ($mouse.y > 11) && ($mouse.y < 32) { dialog -md musica musica } n33= if ($mouse.x > 332) && ($mouse.x < 357) && ($mouse.y > 11) && ($mouse.y < 32) { run $mircdirsistema\sendmail\EnvioMail.exe } n34= if ($mouse.x > 250) && ($mouse.x < 275) && ($mouse.y > 39) && ($mouse.y < 32) { nick $$?="Escribe tu nuevo nick" } n35= if ($mouse.x > 283) && ($mouse.x < 328) && ($mouse.y > 39) && ($mouse.y < 32) { dialog -m canales canales } n36= if ($mouse.x > 336) && ($mouse.x < 368) && ($mouse.y > 39) && ($mouse.y < 32) { comanbar query } n37= } n38= mouse { n39= if ($mouse.x > 22) && ($mouse.x < 45) && ($mouse.y > 10) && ($mouse.y < 32) { drawline @barscript 1 4 1 3 400 3 | drawpic -c @barscript 30 0 $orionskin(x.jpg) | infotxt@ 9Servidor de ficheros (F-Server) } n40= if ($mouse.x > 57) && ($mouse.x < 79) && ($mouse.y > 10) && ($mouse.y < 32) { drawline @barscript 1 4 1 3 400 3 | drawpic -c @barscript 65 0 $orionskin(x.jpg) | infotxt@ 9Gestor de ausencía (AwaY) } n41= if ($mouse.x > 111) && ($mouse.x < 128) && ($mouse.y > 10) && ($mouse.y < 32) { drawline @barscript 1 4 1 3 400 3 | drawpic -c @barscript 115 0 $orionskin(x.jpg) | infotxt@ 9Configurador general del script (SETUP) } n42= if ($mouse.x > 142) && ($mouse.x < 165) && ($mouse.y > 11) && ($mouse.y < 32) { drawline @barscript 1 4 1 3 400 3 | drawpic -c @barscript 150 0 $orionskin(x.jpg) | infotxt@ 9Archivo de ayuda al script (hlp) } n43= if ($mouse.x > 193) && ($mouse.x < 214) && ($mouse.y > 11) && ($mouse.y < 32) { drawline @barscript 1 4 1 3 400 3 | drawpic -c @barscript 200 0 $orionskin(x.jpg) | infotxt@ 9Configurador de letras } n44= if ($mouse.x > 223) && ($mouse.x < 251) && ($mouse.y > 11) && ($mouse.y < 32) { drawline @barscript 1 4 1 3 400 3 | drawpic -c @barscript 234 0 $orionskin(x.jpg) | infotxt@ 9Consola de alarma y avisos } n45= if ($mouse.x > 263) && ($mouse.x < 289) && ($mouse.y > 11) && ($mouse.y < 32) { drawline @barscript 1 4 1 3 400 3 | drawpic -c @barscript 272 0 $orionskin(x.jpg) | infotxt@ 9Calculadora, pantalla LCD } n46= if ($mouse.x > 301) && ($mouse.x < 325) && ($mouse.y > 11) && ($mouse.y < 32) { drawline @barscript 1 4 1 3 400 3 | drawpic -c @barscript 307 0 $orionskin(x.jpg) | infotxt@ 9Reproductor de musica del script mp3 wav midi } n47= if ($mouse.x > 332) && ($mouse.x < 357) && ($mouse.y > 11) && ($mouse.y < 32) { drawline @barscript 1 4 1 3 400 3 | drawpic -c @barscript 340 0 $orionskin(x.jpg) | infotxt@ 9Gestor de correo (e-mail) } n48= } n49= f-server:/dialog -m fserver fserver n50= away n51= .gestor de away:/ dialog -m away away n52= .grabadora de msgs:/@winreadmsgaway n53= SETUP:/dialog -m setup setup n54= ayuda:/ n55= letra:/dialog -m letras letras n56= alarma:/ n57= calculadora:{ n58= if ( $window( @calc ).status ) window -a @calc n59= else calc.load n60= } n61= R-musica ScripT:/dialog -m musica musica n62= gestor de correo:/dialog m email email n63= visor de logs:/@log n64= gestor de canales:/dialog -m canales canales n65=} n66= n67=MENU @barexes { n68= sclick { n69= ;superposicion de wins (barras) principales n70= if ($mouse.x > 2) && ($mouse.x < 49) && ($mouse.y > 37) && ($mouse.y < 49) { @barscript } n71= if ($mouse.x > 54) && ($mouse.x < 100) && ($mouse.y > 37) && ($mouse.y < 49) { @barexes } n72= if ($mouse.x > 105) && ($mouse.x < 151) && ($mouse.y > 37) && ($mouse.y < 49) { @barwar } n73= n74= if ($mouse.x > 349) && ($mouse.x < 372) && ($mouse.y > 37) && ($mouse.y < 49) { ftp } n75= if ($mouse.x > 8) && ($mouse.x < 28) && ($mouse.y > 11) && ($mouse.y < 29) { n76= if (%rutaexplorador == $null) { dialog -m progext progext | did -c progext 7 2 | autolocalizador | sacobusca Localizando ruta del programa ... | .timerrun 1 8 run %rutaexplorador | dialog -x progext progext } n77= else { run %rutaexplorador } n78= } n79= if ($mouse.x > 38) && ($mouse.x < 59) && ($mouse.y > 12) && ($mouse.y < 30) { n80= if (%rutanotepad == $null) { dialog -m progext progext | did -c progext 7 3 | autolocalizador | sacobusca Localizando ruta del programa ... | .timerrun 1 8 run %rutanotepad | dialog -x progext progext } n81= else { run %rutanotepad } n82= } n83= if ($mouse.x > 68) && ($mouse.x < 89) && ($mouse.y > 12) && ($mouse.y < 30) { n84= if (%rutamusiwin == $null) { set %rutamusiwin $findfile(c:\,Cdplayer.exe,1) | run %rutamusiwin } n85= else { run %rutamusiwin } n86= } n87= if ($mouse.x > 112) && ($mouse.x < 134) && ($mouse.y > 13) && ($mouse.y < 32) { n88= if (%rutanet == $null) { dialog -m progext progext | did -c progext 7 1 | manuallocalizador | dialog -x progext progext } n89= else { run %rutanet } n90= } n91= if ($mouse.x > 175) && ($mouse.x < 197) && ($mouse.y > 10) && ($mouse.y < 34) { n92= if (%rutaemail == $null) { dialog -m progext progext | did -c progext 7 5 | manuallocalizador | dialog -x progext progext } n93= else { run %rutaemail } n94= } n95= if ($mouse.x > 142) && ($mouse.x < 167) && ($mouse.y > 13) && ($mouse.y < 30) { n96= if (%rutaftp == $null) { dialog -m progext progext | did -c progext 7 6 | manuallocalizador | dialog -x progext progext } n97= else { run %rutaftp } n98= } n99= if ($mouse.x > 223) && ($mouse.x < 245) && ($mouse.y > 11) && ($mouse.y < 32) { n100= if (%rutamp3 == $null) { dialog -m progext progext | did -c progext 7 4 | manuallocalizador | dialog -x progext progext } n101= else { run %rutamp3 } n102= } n103= if ($mouse.x > 255) && ($mouse.x < 276) && ($mouse.y > 14) && ($mouse.y < 32) { n104= if (%rutavisor == $null) { dialog -m progext progext | did -c progext 7 7 | manuallocalizador | dialog -x progext progext } n105= else { run %rutavisor } n106= } n107= if ($mouse.x > 286) && ($mouse.x < 305) && ($mouse.y > 13) && ($mouse.y < 34) { n108= if (%rutacompr == $null) { dialog -m progext progext | did -c progext 7 10 | manuallocalizador | dialog -x progext progext } n109= else { run %rutacompr } n110= } n111= if ($mouse.x > 316) && ($mouse.x < 335) && ($mouse.y > 12) && ($mouse.y < 37) { n112= if (%rutafire == $null) { dialog -m progext progext | did -c progext 7 11 | manuallocalizador | dialog -x progext progext } n113= else { run %rutafire } n114= } n115= if ($mouse.x > 346) && ($mouse.x < 356) && ($mouse.y > 17) && ($mouse.y < 32) { n116= if (%rutaprogra1 == $null) { dialog -m progext progext | did -c progext 7 8 | manuallocalizador | dialog -x progext progext } n117= else { run %rutaprogra1 } n118= } n119= if ($mouse.x > 364) && ($mouse.x < 375) && ($mouse.y > 17) && ($mouse.y < 32) { n120= if (%rutaprogra2 == $null) { dialog -m progext progext | did -c progext 7 9 | manuallocalizador | dialog -x progext progext } n121= else { run %rutaprogra2 } n122= } n123= } n124= mouse { n125= if ($mouse.x > 8) && ($mouse.x < 28) && ($mouse.y > 11) && ($mouse.y < 29) { drawline @barexes 1 4 1 3 400 3 | drawpic -c @barexes 13 0 $orionskin(x.jpg) | infotxt@ 11Explorador de windows } n126= if ($mouse.x > 38) && ($mouse.x < 59) && ($mouse.y > 12) && ($mouse.y < 30) { drawline @barexes 1 4 1 3 400 3 | drawpic -c @barexes 45 0 $orionskin(x.jpg) | infotxt@ 11Libreta de notas (notepad) } n127= if ($mouse.x > 68) && ($mouse.x < 89) && ($mouse.y > 12) && ($mouse.y < 30) { drawline @barexes 1 4 1 3 400 3 | drawpic -c @barexes 72 0 $orionskin(x.jpg) | infotxt@ 11Reproductor CDs de windows } n128= if ($mouse.x > 112) && ($mouse.x < 134) && ($mouse.y > 13) && ($mouse.y < 32) { drawline @barexes 1 4 1 3 400 3 | drawpic -c @barexes 118 0 $orionskin(x.jpg) | infotxt@ 11Navegador de internet } n129= if ($mouse.x > 142) && ($mouse.x < 167) && ($mouse.y > 13) && ($mouse.y < 30) { drawline @barexes 1 4 1 3 400 3 | drawpic -c @barexes 150 0 $orionskin(x.jpg) | infotxt@ 11Operador de FTP 8(traferencia de files al serv) } n130= if ($mouse.x > 175) && ($mouse.x < 197) && ($mouse.y > 13) && ($mouse.y < 30) { drawline @barexes 1 4 1 3 400 3 | drawpic -c @barexes 183 0 $orionskin(x.jpg) | infotxt@ 11Gestor de correo (e-mail) } n131= if ($mouse.x > 223) && ($mouse.x < 245) && ($mouse.y > 11) && ($mouse.y < 32) { drawline @barexes 1 4 1 3 400 3 | drawpic -c @barexes 232 0 $orionskin(x.jpg) | infotxt@ 11Reproductor de archivos mp3 } n132= if ($mouse.x > 255) && ($mouse.x < 276) && ($mouse.y > 14) && ($mouse.y < 32) { drawline @barexes 1 4 1 3 400 3 | drawpic -c @barexes 262 0 $orionskin(x.jpg) | infotxt@ 11Visor de imagenes } n133= if ($mouse.x > 286) && ($mouse.x < 305) && ($mouse.y > 13) && ($mouse.y < 34) { drawline @barexes 1 4 1 3 400 3 | drawpic -c @barexes 292 0 $orionskin(x.jpg) | infotxt@ 11Compresor de archivos } n134= if ($mouse.x > 316) && ($mouse.x < 335) && ($mouse.y > 12) && ($mouse.y < 37) { drawline @barexes 1 4 1 3 400 3 | drawpic -c @barexes 320 0 $orionskin(x.jpg) | infotxt@ 11Cortafuegos } n135= if ($mouse.x > 346) && ($mouse.x < 356) && ($mouse.y > 17) && ($mouse.y < 32) { drawline @barexes 1 4 1 3 400 3 | drawpic -c @barexes 347 0 $orionskin(x.jpg) | infotxt@ 11Programa predefinido 1 } n136= if ($mouse.x > 364) && ($mouse.x < 375) && ($mouse.y > 17) && ($mouse.y < 32) { drawline @barexes 1 4 1 3 400 3 | drawpic -c @barexes 365 0 $orionskin(x.jpg) | infotxt@ 11Programa predefinido 2 } n137= } n138= barras graficas n139= .script: @barscript n140= .programas externos: @barexes n141= .guerra: @barWAR n142= config ejecutables: dialog -m progext progext n143=} n144= n145= n146=MENU @barWAR { n147= sclick { n148= ;superposicion de wins (barras) principales n149= if ($mouse.x > 2) && ($mouse.x < 49) && ($mouse.y > 37) && ($mouse.y < 49) { @barscript } n150= if ($mouse.x > 54) && ($mouse.x < 100) && ($mouse.y > 37) && ($mouse.y < 49) { @barexes } n151= if ($mouse.x > 105) && ($mouse.x < 151) && ($mouse.y > 37) && ($mouse.y < 49) { @barwar } n152= if ($mouse.x > 12) && ($mouse.x < 36) && ($mouse.y > 11) && ($mouse.y < 33) { n153= if (%barsnick != $null) { set %ataker on | set %progataker click | who %barsnick | sorion ban } n154= else { informo Para utilizar este progama de atake es necesario que estes conectado y que marques sobre un nick (victima) de la lista de nicks de un canal cualquiera :-P $oriontheme(sSeparadorLine) } n155= } n156= if ($mouse.x > 49) && ($mouse.x < 71) && ($mouse.y > 11) && ($mouse.y < 33) { %ataker.port = 6667 | %ataker = on | %progataker = winnuke | who %BARSNICK | sorion part } n157= if ($mouse.x > 87) && ($mouse.x < 104) && ($mouse.y > 11) && ($mouse.y < 31) { n158= if (%barsnick != $null) { set %ataker on | set %progataker VTJNuker | who %barsnick | .splay $mircdirmusica\wav\metra.wav } n159= else { informo Para utilizar este progama de atake es necesario que estes conectado y que marques sobre un nick (victima) de la lista de nicks de un canal cualquiera :-P $oriontheme(sSeparadorLine) } n160= } n161= if ($mouse.x > 121) && ($mouse.x < 141) && ($mouse.y > 12) && ($mouse.y < 32) { n162= if (%exewar1 == $null) { %exewar1 = $dir="Seleccione su programa de war predefinido." C:\ } n163= else { run %exewar1 } n164= } n165= if ($mouse.x > 161) && ($mouse.x < 182) && ($mouse.y > 10) && ($mouse.y < 33) { run $mircdirWAR\jav\VTJBomber.exe } n166= if ($mouse.x > 260) && ($mouse.x < 284) && ($mouse.y > 13) && ($mouse.y < 32) { run $mircdirWAR\divint\Divint3.exe } n167= if ($mouse.x > 193) && ($mouse.x < 235) && ($mouse.y > 11) && ($mouse.y < 26) { n168= if (%barsnick != $null) { set %ataker on | set %progataker Wsping32 | who %barsnick } n169= else { informo Para utilizar este progama de atake es necesario que estes conectado y que marques sobre un nick (victima) de la lista de nicks de un canal cualquiera :-P $oriontheme(sSeparadorLine) } n170= } n171= if ($mouse.x > 313) && ($mouse.x < 337) && ($mouse.y > 11) && ($mouse.y < 34) { run $mircdirWAR\jav\JAV.exe | sorion ban } n172= if ($mouse.x > 350) && ($mouse.x < 371) && ($mouse.y > 11) && ($mouse.y < 33) { run $mircdirWAR\nukenabber\nukenabber.exe } n173= } n174= mouse { n175= if ($mouse.x > 12) && ($mouse.x < 36) && ($mouse.y > 11) && ($mouse.y < 33) { drawline @barwar 1 4 0 3 400 3 | drawpic -c @barwar 20 1 $orionskin(x.jpg) | infotxt@ 11Atakar con nuke-click al usuario4 %barsnick } n176= if ($mouse.x > 49) && ($mouse.x < 71) && ($mouse.y > 11) && ($mouse.y < 33) { drawline @barwar 1 4 0 3 400 3 | drawpic -c @barwar 55 1 $orionskin(x.jpg) | infotxt@ 11Ejecutar Win-Nuke 4 } n177= if ($mouse.x > 87) && ($mouse.x < 104) && ($mouse.y > 11) && ($mouse.y < 31) { drawline @barwar 1 4 0 3 400 3 | drawpic -c @barwar 93 1 $orionskin(x.jpg) | infotxt@ 11Lanzar Vai-Te-Ja nuker contra el usuario4 %barsnick } n178= if ($mouse.x > 121) && ($mouse.x < 141) && ($mouse.y > 12) && ($mouse.y < 32) { drawline @barwar 1 4 0 3 400 3 | drawpic -c @barwar 129 1 $orionskin(x.jpg) | infotxt@ 11Programa de war predefinido por usuario. } n179= if ($mouse.x > 161) && ($mouse.x < 182) && ($mouse.y > 10) && ($mouse.y < 33) { drawline @barwar 1 4 0 3 400 3 | drawpic -c @barwar 167 1 $orionskin(x.jpg) | infotxt@ 11Ejecutar el 4ICMP-Bomber4 } n180= if ($mouse.x > 193) && ($mouse.x < 235) && ($mouse.y > 11) && ($mouse.y < 26) { drawline @barwar 1 4 0 3 400 3 | drawpic -c @barwar 210 1 $orionskin(x.jpg) | infotxt@ 11Atakar con flood mediante pings a4 %barsnick } n181= if ($mouse.x > 260) && ($mouse.x < 284) && ($mouse.y > 13) && ($mouse.y < 32) { drawline @barwar 1 4 0 3 400 3 | drawpic -c @barwar 268 1 $orionskin(x.jpg) | infotxt@ 11Ejecutar programa-consola de war 4DivinT } n182= if ($mouse.x > 313) && ($mouse.x < 337) && ($mouse.y > 11) && ($mouse.y < 34) { drawline @barwar 1 4 0 3 400 3 | drawpic -c @barwar 320 1 $orionskin(x.jpg) | infotxt@ 11Sacar el detector de 4nukes 11(atakes) } n183= if ($mouse.x > 350) && ($mouse.x < 371) && ($mouse.y > 11) && ($mouse.y < 33) { drawline @barwar 1 4 0 3 400 3 | drawpic -c @barwar 355 1 $orionskin(x.jpg) | infotxt@ 11Ejecutar la salida del 4nukennaber 11(proteccion anti-nukes) } n184= } n185=} n186= n187=menu @barstatus { n188= sclick { n189= if ($mouse.x > 309) && ($mouse.x < 402) && ($mouse.y > 36) && ($mouse.y < 49) { msg %winactive 1[2 $me $+ 14:7 LaG1 (4 %lag 1) ] } n190= if ($mouse.x > 281) && ($mouse.x < 306) && ($mouse.y > 36) && ($mouse.y < 49) { dialog -m lageo lageo } n191= if ($mouse.x > 43) && ($mouse.x < 119) && ($mouse.y > 0) && ($mouse.y < 10) { msg %winactive 2Fecha:4 $date } n192= if ($mouse.x > 161) && ($mouse.x < 234) && ($mouse.y > 0) && ($mouse.y < 10) { msg %winactive 2Llevo conectado al IRC:4 %th $+ 14hora/s 2y4 %tm $+ 14min/s } n193= if ($mouse.x > 280) && ($mouse.x < 343) && ($mouse.y > 0) && ($mouse.y < 10) { msg %winactive 2Hora:4 $time } n194= if ($mouse.x > 0) && ($mouse.x < 20) && ($mouse.y > 36) && ($mouse.y < 47) { comanbar whois } n195= if ($mouse.x > 29) && ($mouse.x < 56) && ($mouse.y > 36) && ($mouse.y < 49) { nick $$?="Nuevo nick?" } n196= if ($mouse.x > 62) && ($mouse.x < 84) && ($mouse.y > 36) && ($mouse.y < 49) { dialog -m canales canales } n197= if ($mouse.x > 91) && ($mouse.x < 115) && ($mouse.y > 36) && ($mouse.y < 49) { comanbar query } n198= if ($mouse.x > 126) && ($mouse.x < 141) && ($mouse.y > 39) && ($mouse.y < 49) { comanbar +op } n199= if ($mouse.x > 147) && ($mouse.x < 177) && ($mouse.y > 38) && ($mouse.y < 48) { comanbar -op } n200= if ($mouse.x > 184) && ($mouse.x < 209) && ($mouse.y > 36) && ($mouse.y < 47) { comanbar kick } n201= if ($mouse.x > 216) && ($mouse.x < 240) && ($mouse.y > 36) && ($mouse.y < 47) { comanbar k+m } n202= if ($mouse.x > 249) && ($mouse.x < 270) && ($mouse.y > 36) && ($mouse.y < 47) { comanbar b+k } n203= if ($mouse.x > 387) && ($mouse.x < 418) && ($mouse.y > 0) && ($mouse.y < 27) { dialog -m servers servers } n204= } n205= mouse { n206= if ($mouse.x > 29) && ($mouse.x < 56) && ($mouse.y > 36) && ($mouse.y < 49) { infotxt@ Cambio de nick [ $me ] } n207= if ($mouse.x > 62) && ($mouse.x < 84) && ($mouse.y > 36) && ($mouse.y < 49) { infotxt@ Ejecutar gestor de canales. } n208= if ($mouse.x > 91) && ($mouse.x < 115) && ($mouse.y > 36) && ($mouse.y < 49) { infotxt@ Hacer privado [ %barsnick ] } n209= if ($mouse.x > 281) && ($mouse.x < 404) && ($mouse.y > 36) && ($mouse.y < 49) { infotxt@ Tu retardo con el server es de: %lag seg } n210= if ($mouse.x > 43) && ($mouse.x < 119) && ($mouse.y > 0) && ($mouse.y < 10) { infotxt@ La fecha de hoy es: $date } n211= if ($mouse.x > 161) && ($mouse.x < 234) && ($mouse.y > 0) && ($mouse.y < 10) { infotxt@ Llevas conectado al IRC: %tm $+ min y %th $+ horas } n212= if ($mouse.x > 280) && ($mouse.x < 343) && ($mouse.y > 0) && ($mouse.y < 10) { infotxt@ Ahora son las: $time } n213= if ($mouse.x > 0) && ($mouse.x < 20) && ($mouse.y > 39) && ($mouse.y < 49) { infotxt@ Sacar la información (whois) del usuario [ %barsnick ] } n214= if ($mouse.x > 126) && ($mouse.x < 141) && ($mouse.y > 39) && ($mouse.y < 49) { infotxt@ Dar @ estatus de operador al usuario [ %barsnick ] } n215= if ($mouse.x > 147) && ($mouse.x < 177) && ($mouse.y > 38) && ($mouse.y < 48) { infotxt@ Quitar @ (estatus de usuarios) al usuario [ %barsnick ] } n216= if ($mouse.x > 184) && ($mouse.x < 209) && ($mouse.y > 36) && ($mouse.y < 47) { infotxt@ kikear (echar del canal) al usuario [ %barsnick ] } n217= if ($mouse.x > 216) && ($mouse.x < 240) && ($mouse.y > 36) && ($mouse.y < 47) { infotxt@ kikear con mensaje a [ %barsnick ] | } n218= if ($mouse.x > 249) && ($mouse.x < 270) && ($mouse.y > 36) && ($mouse.y < 47) { infotxt@ Hacer ban mas kick a [ %barsnick ] | } n219= if ($mouse.x > 387) && ($mouse.x < 418) && ($mouse.y > 0) && ($mouse.y < 27) { infotxt@ [ Conexion: $iif($server != $null,ON-line,4OFF-line) ] $server } n220= } n221=} n222= n223=;ventana de f-server================================== n224=;FSERVER======================================== n225=MENU @fserver { n226= config: dialog -m fserver fserver n227= - n228= $sline(@fserver,1) n229= .whois: quien-es $sline(@fserver,1) d n230= .- n231= .expulsar: { aline @fserver 9< $+ 0 $+ $sline(@fserver,1) $+ 9 $+ > 4 expulsado del fserver | close -f $sline(@fserver,1) | dline -l @fserver $line(@fserver,0,1) } n232= .banear: { n233= set %baneofserv $mask($address($sline(@fserver,1),5),5) n234= aline @fserver 9< $+ 0 $+ $sline(@fserver,1) $+ 9 $+ > 4 expulsado del fserver | close -f $sline(@fserver,1) | dline -l @fserver $line(@fserver,0,1) n235= echo -s Activado un ban para F-server sobre: %baneofserv n236= if (%baneofserv1 == $null) { %baneofserv1 = %baneofserv | unset %baneofserv | halt } n237= if (%baneofserv2 == $null) { %baneofserv2 = %baneofserv | unset %baneofserv | halt } n238= if (%baneofserv3 == $null) { %baneofserv3 = %baneofserv | unset %baneofserv | halt } n239= n240= } n241= - n242= quitar ban n243= .ban1- %baneofserv1: echo -s Has retirado el ban de f-server: %baneofserv1 | unset %baneofserv1 n244= .ban2- %baneofserv2: echo -s Has retirado el ban de f-server: %baneofserv2 | unset %baneofserv2 n245= .ban3- %baneofserv3: echo -s Has retirado el ban de f-server: %baneofserv3 | unset %baneofserv3 n246= - n247= cerrar fserver: { n248= close -f $sline(@fserver,1) n249= close -f $sline(@fserver,2) n250= close -f $sline(@fserver,3) n251= close -f $sline(@fserver,4) n252= close -f $sline(@fserver,5) n253= window -c @fserver n254= sorion check | set %anufserver off | set %fserver off n255= .disable #fserver | desfserver | .timeranufserver off n256= .timeranufserver off n257= echo -s $oriontheme(sSeparadorLine) n258= echo -s $oriontheme(sFserverOff) n259= } n260=} n261= n262=MENU @Navegador { n263= dclick { n264= set %dirfserverlist $sline(@Navegador,1) n265= if ($isupper(%dirfserverlist ) == $true) { n266= clear $active n267= aline @Navegador $oriontheme(sSeparadorLine) n268= aline @Navegador F-§êRvËr de:8 %fserverchatxx n269= aline @Navegador $oriontheme(sSeparadorLine) n270= .msg = $+ $chat(%fserverchatxx) cd %dirfserverlist | .msg = $+ $chat(%fserverchatxx) dir } n271= else { n272= aline @Navegador $oriontheme(sSeparadorLine) n273= aline @Navegador F-§êRvËr de:8 %fserverchatx n274= aline @Navegador $oriontheme(sSeparadorLine) n275= .msg = $+ $chat(%fserverchatxx) get $gettok(%dirfserverlist,1,32) } n276= } n277= información: informo Para navegador por los directorios solo tienes que hacer boble-click sobre el directorio, al igual que para bajarte algun archivo. :-D n278= - n279= $sline(@navegador,1): { n280= sorion click n281= if ($isupper($sline(@navegador,1) ) == $true) { .msg = $+ $chat(1) cd $sline(@navegador,1) | clear $active | .msg = $+ $chat(%fserverchatxx) dir } n282= else { .msg = = $+ $chat(%fserverchatxx) get $gettok($sline(@navegador,1),1,32) } n283= } n284= - n285= salir del fserver: { close -c %fserverchatxx | window -c @navegador | unset %fserverchatxx } n286=} n287=;entrada de texto userme a dccchat fserver en @fserver======= n288=on 1:input:@fserver: { n289= aline @fserver 8< $+ $me $+ 8>15 $1- n290= %x = 0 n291= :ini n292= inc %x n293= if ($line(@fserver,0,1) == %x) { n294= .msg $line(@fserver,%x,1) $1- n295= unset %x | aline @fserver 0 "msg enviado a todos los users" n296= } n297= else { n298= .msg $line(@fserver,%x,1) $1- n299= goto ini n300= } n301=} n302=;ventana de texto varios para pijadas================================ n303=MENU @wintxtvarios { n304= [?]Ayuda: informo Seleccione el tema.txt que desee (doble click), se cargaran los textos, seleccione la linea que desee y muestrela con otro dobleclick. $crlf $+ Si deseas añadir nuevos temas, puedes meter los ficheros en el directorio "OrioN\sistema\txtvarios\", a poder ser con extensión txt y sin lineas en blanco. Puedes bajar temas de: www.ircorion.net. Para mas información consulta el fichero "OrioN\sistema\txtvarios\PersonalizaHelp.txt" n305=} n306=MENU @wintxtvarios { n307= dclick { n308= if (.txt isin $sline(@wintxtvarios,1)) { listtxtvarios $strip($sline(@wintxtvarios,1)) } n309= else { msg %winactive %txtscript / $sline(@wintxtvarios,1) } n310= } n311=}