[aliases] n0=;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx n1=; 1.- Nombre: OrioN n2=; 2.- Versión: v5.9 n3=; 3.- Autor: Javier Fernández Rivera n4=; 4.- Web: http://www.ircorion.net n5=; 5.- Mail: script@ircorion.net n11=;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx n12= n13=;cambio de sonidos para var autowav==================== n14=setautowav { n15= if ($1 == 1) { set %autowav1 $file="Escoje el archivo de sonido" $mircdirskins\ | did -ra orionsound 5 %autowav1 } n16= if ($1 == 2) { set %autowav2 $file="Escoje el archivo de sonido" $mircdirskins\ | did -ra orionsound 5 %autowav2 } n17= if ($1 == 3) { set %autowav3 $file="Escoje el archivo de sonido" $mircdirskins\ | did -ra orionsound 5 %autowav3 } n18= if ($1 == 4) { set %autowav4 $file="Escoje el archivo de sonido" $mircdirskins\ | did -ra orionsound 5 %autowav4 } n19= if ($1 == 5) { set %autowav5 $file="Escoje el archivo de sonido" $mircdirskins\ | did -ra orionsound 5 %autowav5 } n20= if ($1 == 6) { set %autowav6 $file="Escoje el archivo de sonido" $mircdirskins\ | did -ra orionsound 5 %autowav6 } n21= if ($1 == 7) { set %autowav7 $file="Escoje el archivo de sonido" $mircdirskins\ | did -ra orionsound 5 %autowav7 } n22= if ($1 == 8) { set %autowav8 $file="Escoje el archivo de sonido" $mircdirskins\ | did -ra orionsound 5 %autowav8 } n23= if ($1 == 9) { set %autowav9 $file="Escoje el archivo de sonido" $mircdirskins\ | did -ra orionsound 5 %autowav9 } n24= if ($1 == 10) { set%autowav10 $file="Escoje el archivo de sonido" $mircdirskins\ | did -ra orionsound 5 %autowav10 } n25= if ($1 == 11) { set %autowav11 $file="Escoje el archivo de sonido" $mircdirskins\ | did -ra orionsound 5 %autowav11 } n26= if ($1 == 12) { set %autowav12 $file="Escoje el archivo de sonido" $mircdirskins\ | did -ra orionsound 5 %autowav12 } n27= if ($1 == 13) { set %autowav13 $file="Escoje el archivo de sonido" $mircdirskins\ | did -ra orionsound 5 %autowav13 } n28=} n29=;dell variables autowav dejar en blanco=================== n30=delautowav { n31= if ($1 == 1) { unset %autowav1 } n32= if ($1 == 2) { unset %autowav2 } n33= if ($1 == 3) { unset %autowav3 } n34= if ($1 == 4) { unset %autowav4 } n35= if ($1 == 5) { unset %autowav5 } n36= if ($1 == 6) { unset %autowav6 } n37= if ($1 == 7) { unset %autowav7 } n38= if ($1 == 8) { unset %autowav8 } n39= if ($1 == 9) { unset %autowav9 } n40= if ($1 == 10) { unset %autowav10 } n41= if ($1 == 11) { unset %autowav11 } n42= if ($1 == 12) { unset %autowav12 } n43= if ($1 == 13) { unset %autowav13 } n44=} n45=;sacar clones en scaneador============================ n46=scanclonesd { n47= if ($did(scan,10).text == $null) { informo Es necesario que especifique en el scan la ip del usuario para sacarla haga un --> /dns nick y copie la ip en la casilla del scan } n48= sorion whois n49= did -r scan 26 n50= did -a scan 26 ʧçÄnÉãNÐø çLøNê§ ..... n51= set %clon.ip *@ $+ $did(scan,10).text | set %clon.n $ial(%clon.ip ,0) n52= if (%clon.n == 1) { did -a scan 26 No tienes clones | unset %x %xl %clon.* | .timerbarrido* off | .timermoveicon* off | halt } n53= did -a scan 26 Analizando %clon.ip | if (%clon.n > 0) { dec %clon.n } | did -a scan 26 Encontrados %clon.n clon/es | inc %clon.n n54= did -a scan 26 ============Nicks resueltos============= n55= set %x 0 n56= set %xl 0 n57= while (%x < 10) { n58= inc %x n59= if (%clon.n == 0) { echo -s $oriontheme(sSeparadorLine) } n60= if (%clon.n != %x) { n61= if (%xl == 0) { did -a scan 26 -clon-Dueño $+ : $gettok($ial(%clon.ip , $+ %x),1,33) } n62= else { did -a scan 26 -Clon- $+ %xl $+ : $gettok($ial(%clon.ip , $+ %x),1,33) } n63= inc %xl n64= continue n65= } n66= else { n67= did -a scan 26 -Clon- $+ %xl $+ : $gettok($ial(%clon.ip , $+ %x),1,33) n68= unset %x %xl %clon.* | .timerbarrido* off | .timermoveicon* off n69= did -e scan 10 | did -e scan 11 | did -a scan 26 ============Total de clones============= n70= } n71= } n72=} n73=;FSERVERXXXXXXXXXXXXXXXXXXXXXX n74=;activacion del fserver================================ n75=fserveron { n76= infotxt@ 8Ejecutando gestor de 9Servidor de archivos. n77= @fserver n78= sorion op | set %fserver on | .enable #fserver n79= if ($dialog(fserver) != $null) { n80= did -a fserver 19 Activado | did -c fserver 19 n81= did -b fserver 8 | did -b fserver 9 | did -b fserver 11 | did -b fserver 8 | did -b fserver 17 | did -b fserver 4 n82= did -b fserver 22 | did -b fserver 23 | did -b fserver 24 | did -b fserver 29 n83= if ($did(fserver,24).state != 1) { .timeranufserver 0 $gettok(%timeanufserver,1,32) anunciafserver } n84= } n85= actfserver n86= echo -s $oriontheme(sSeparadorLine) n87= echo -s 0,15 0,14 0,1 F-§êRvEr 11,4 Activado 1,14 0,15 9,99 1,99 n88= echo -s 8,1 Directorio abierto: 11 %dirfserver 9,99 n89= echo -s 8,1 Clave de entrada: 4 %passfserver 9,99 n90= echo -s 8,1 Numero maximo de usuarios: 4 %maxusersfserver 9,99 n91= if (%contenidofserver != $null) { echo -s 8,1 Contenido del F-server: 11 %contenidofserver 9,99 } n92= echo -s $oriontheme(sSeparadorLine) n93=} n94=;desactivacion del fserver============================ n95=fserveroff { n96= infotxt@ 8Cerrando 5gestor de servidor de archivos. n97= sorion check | set %anufserver off | set %fserver off n98= if ($window(@fserver) != $null) { close -c %fserverchatx | window -c @fserver | unset %fserverchatx } n99= close -f $sline(@fserver,1) n100= close -f $sline(@fserver,2) n101= close -f $sline(@fserver,3) n102= close -f $sline(@fserver,4) n103= close -f $sline(@fserver,5) n104= if ($dialog(fserver) != $null) { n105= did -a fserver 19 Desactivado n106= did -e fserver 8 | did -e fserver 9 | did -e fserver 11 | did -e fserver 8 | did -e fserver 17 n107= did -e fserver 22 | did -e fserver 23 | did -e fserver 24 | did -e fserver 29 | did -e fserver 4 n108= did -u fserver 19 n109= } n110= .timeranufserver off | .disable #fserver | desfserver n111= echo -s $oriontheme(sSeparadorLine) n112= echo -s 0,15 0,14 0,1 F-§êRvEr 11,4 Desactivado 1,14 0,15 9,99 1,99 n113= echo -s $oriontheme(sSeparadorLine) n114=} n115=;establecer medidores para pijas====================== n116=medidores { n117= if ($$2 > 11) { echo -es 4ERROR :2 La puntuación debe ser un número del12 0 2al12 11 } n118= if ( $$2 == 0 ) { say 6 $+ $$1 12consigue un 9,2 {4[0]9,2---------} 12,99 en el medidor de $+ $rand(2,7) $$3- } n119= if ( $$2 == 1 ) { say 6 $+ $$1 12consigue un 9,2 {8[1]9,2---------} 12,99 en el medidor de $+ $rand(2,7) $$3- } n120= if ( $$2 == 2 ) { say 6 $+ $$1 12consigue un 9,2 {-8[2]9,2--------} 12,99 en el medidor de $+ $rand(2,7) $$3- } n121= if ( $$2 == 3 ) { say 6 $+ $$1 12consigue un 9,2 {--8[3]9,2-------} 12,99 en el medidor de $+ $rand(2,7) $$3- } n122= if ( $$2 == 4 ) { say 6 $+ $$1 12consigue un 9,2 {---7[4]9,2------} 12,99 en el medidor de $+ $rand(2,7) $$3- } n123= if ( $$2 == 5 ) { say 6 $+ $$1 12consigue un 9,2 {----7[5]9,2-----} 12,99 en el medidor de $+ $rand(2,7) $$3- } n124= if ( $$2 == 6 ) { say 6 $+ $$1 12consigue un 9,2 {-----7[6]9,2----} 12,99 en el medidor de $+ $rand(2,7) $$3- } n125= if ( $$2 == 7 ) { say 6 $+ $$1 12consigue un 9,2 {------7[7]9,2---} 12,99 en el medidor de $+ $rand(2,7) $$3- } n126= if ( $$2 == 8 ) { say 6 $+ $$1 12consigue un 9,2 {-------11[8]9,2--} 12,99 en el medidor de $+ $rand(2,7) $$3- } n127= if ( $$2 == 9 ) { say 6 $+ $$1 12consigue un 9,2 {--------11[9]9,2-} 12,99 en el medidor de $+ $rand(2,7) $$3- } n128= if ( $$2 == 10 ) { say 6 $+ $$1 12consigue un 9,2 {---------11[10]9,2} 12,99 en el medidor de $+ $rand(2,7) $$3- } n129= if ( $$2 == 11 ) { say 6 $+ $$1 12consigue un 9,2 {----------4[11]9,2} 12,99 en el medidor de $+ $rand(2,7) $$3- } n130=} n131=;banderas======================================== n132=; Bandera Española n133= n134=/spain { n135= say 4,4 ........................... n136= say 8,8 ........................... 12 VIVA  n137= say 4,4 ........................... 12 ESPAÑA !! n138=} n139= n140=; Bandera Madrid n141= n142=/madrid { n143= say 4,4*************** n144= say 4,4****15*4*15*4*15*4*15*4**** 12,99MADRID n145= say 4,4*****15*4*15*4*15*4***** n146=} n147= n148=; Bandera Catalana n149= n150=catalana { n151= say 8,8^4,4^8,8^4,4^8,8^4,4^8,8^4,4^8,8^ n152= say 8,8^4,4^8,8^4,4^8,8^4,4^8,8^4,4^8,8^ n153= say 8,8^4,4^8,8^4,4^8,8^4,4^8,8^4,4^8,8^ 12¡¡CATALUNYA!! n154= say 8,8^4,4^8,8^4,4^8,8^4,4^8,8^4,4^8,8^ n155= say 8,8^4,4^8,8^4,4^8,8^4,4^8,8^4,4^8,8^ n156=} n157= n158=; Bandera Valenciana n159= n160=valencia { n161= say 12,12^^^^^^^^^ n162= say 8,8^4,4^8,8^4,4^8,8^4,4^8,8^4,4^8,8^ 8,2 AMUNT  n163= say 8,8^4,4^8,8^4,4^8,8^4,4^8,8^4,4^8,8^ n164= say 8,8^4,4^8,8^4,4^8,8^4,4^8,8^4,4^8,8^ 8,2 VALÈNCIA!!  n165= .timer 1 1 say 8,8^4,4^8,8^4,4^8,8^4,4^8,8^4,4^8,8^ n166= .timer 1 2 say 8,8^4,4^8,8^4,4^8,8^4,4^8,8^4,4^8,8^ n167=} n168= n169=; BAndera Asturias n170= n171=asturias { n172= say 2,2............................. n173= say 2,2.............8,8...2,2............. n174= say 2,2.......8,8...............2,2....... 12AsTuRiEs!! n175= say 2,2.............8,8...2,2............. n176= say 2,2............................. n177= n178=} n179= n180=; Bandera Mexico n181= n182=mejico { n183= say 3,3...ME...0,0....XI....4,4...CO... n184= say 3,3...0ME3...0,0....1XI0....4,4...0CO4... n185= say 3,3...ME...0,0....XI....4,4...CO... n186=} n187= n188= n189=; Castilla Leon n190= n191=casti.leon { n192= say 15,15********4,4******** n193= say 15,15********4,4******** 12Castilla n194= say 4,4********15,15******** 12León n195= say 4,4********15,15******** n196= n197=} n198= n199=; Bandera Cantabria n200= n201=cantabria { n202= say 0,0********************* n203= say 0,0********************* 12CANTABRIA n204= say 4,4*********************  15CANTABRIA n205= say 4,4********************* n206=} n207= n208=; Bandera Extremadura n209= n210=extremadura { n211= say 3,3 ................................. n212= say 12 EXTREMADURA n213= say 1,1 ................................. n214=} n215= n216=; Bandera Canaria n217= n218=canarias { n219= say 0,0*****11,11*****8,8***** n220= say 0,0*****11,11*****8,8***** 12 ¡¡CANARIAS!! n221= say 0,0*****11,11*****8,8***** n222=} n223=; Bandera Malagueña n224= n225=/malaga { n226= say 6,6...................3,3................... n227= say 6,6...................3,3................... n228= say 6,6...................3,3................... ¡¡ 4M2A3L7A12G1A !! n229= say 6,6...................3,3................... n230= say 6,6...................3,3................... n231=} n232= n233=; Bandera Galicia n234= n235=galicia { n236= say 15,1512,15\\\\15,15**************** n237= say 15,15***12,15\\\\15,15************* n238= say 15,15*******12,15\\\\15,15*********     12¡¡GALICIA!! n239= say 15,15***********12,15\\\\15,15***** n240= say 15,15**************12,15\\\\15,15** n241=} n242= n243=; Bandera Rioja n244= n245=larioja { n246= say 4,4********************* n247= say 0,0*********************   12LA n248= say 3,3********************* 12RIOJA n249= say 8,8********************* n250= n251=} n252=; Bandera USA n253= n254=/usa { n255= say 12,12*0*12*0*12*0*12*0*12*0*12*0* 4,4******************* n256= say 12,12*0*12*0*12*0*12*0*12*0*12*0* 0,0******************* 0,4 U 12,0nited n257= say 12,12*0*12*0*12*0*12*0*12*0*12*0* 4,4******************* 0,4 S 12,0tates 10of n258= say 0,0***************************** ** 0,4 A 12,0merica n259= .timer 1 1 say 4,4***************************** ** n260= .timer 1 2 say 0,0***************************** ** n261=} n262=; Bandera Andaluza n263= n264=/andaluz { n265= say 3,3....ANDALUCÍA..... n266= say 0,0....3A1N3D1A3L1U3C1Í3A0,0..... n267= say 3,3....ANDALUCÍA..... n268=} n269= n270=; Bandera Argentina n271= n272=/argentina { n273= say 11,11 ........................... n274= say 0,0 ...........8Ø0............. 12  n275= say 11,11 ........................... 12 ARGENTINA !! n276=} n277= n278=; Bandera UE n279= n280=/ue { n281= say 2,2******************8,2*2,2****************** n282= say 2,2**********8,2*2,2**************8,2*2,2*********** n283= say 2,2******8,2*2,2**********************8,2*2,2******* 8,2 U 4,0nión n284= say 2,2*****8,2*2,2************************8,2*2,2****** n285= .timer 1 1 say 2,2******8,2*2,2**********************8,2*2,2******* 8,2 E 4,0uropea n286= .timer 1 2 say 2,2**********8,2*2,2**************8,2*2,2*********** n287= .timer 1 3 say 2,2******************8,2*2,2****************** n288=} n289=;detectar tios en menu pijadas========================== n290=detect { n291= say 4 $me enciende el 0,3 detector de %ztemin 15,15.14,14.0,7 * ACME * 14,14.15,15. n292= say 0,1 :::14[]4°1,0----o 12BIP BIP BIP n293= say 3 $me lo apunta hacia el canal # ... y comienza a detectar... n294= .timer 1 3 say 3Scanning..... 0,1 :::14[]4°1,0----o0,0 7))) n295= .timer 1 6 say 3Scanning..... 0,1 :::14[]4°1,0----o0,0 7)))4)))) n296= .timer 1 9 say 3Blanco localizado!!..... n297= .timer 1 12 say 8,1D1,8A8,1N1,8G8,1E1,8R 15,15.14,14.9,1 $$1 14,14.15,15.8,1D1,8A8,1N1,8G8,1E1,8R n298=} n299=;saludar=========================================== n300= n301= n302= n303=;aliases para email =================================== n304=;cierres de conexion por fallos de trasferencias.............................. n305=egeterrorclose { n306= if ($1 == email) { did -a email 12 $2- | sockclose egets } n307= else { did -a sendemail 11 $2- | sockclose esends } n308=} n309=;open conex y envio de raws para obtencion de info....................... n310=egetopen { n311= did -a email 12 *** Conexion aceptada por equipo remoto. Esperando respuesta...... n312= ;identificandose como funder de cuenta................................... n313= %lineemail = $did(email,15).sel n314= inc %lineemail 3 n315= %lineemail = $read -l $+ %lineemail $mircdirsistema\txts\emails.txt n316= sockwrite -tn $$1 user $dataemail(%lineemail,user) n317= sockwrite -tn $$1 pass $dataemail(%lineemail,pass) n318= ;visualizando estado de cuenta............................................ n319= sockwrite -tn $$1 stat n320= n321=} n322=;iniciando y finalizando conexion de email================= n323=egetiniconex { n324= sockclose egets | did -r email 12 | did -r email 3 n325= sockopen egets $dataemail($did(email,15).text,pop) 110 n326=} n327=egetendconex { sockclose egets | did -r email 12 | did -r email 3 } n328=;envio de info para listar e-mails recibidos================= n329=egetlist { n330= :ini n331= inc %n n332= if (%n > $1) { unset %n } n333= else { sockwrite -tn $2 retr %n | goto ini } n334=} n335=;enviando email..................................... n336=socksendemails { n337= sockwrite -tn esends mail from: $did(sendemail,5).text n338= sockwrite -tn esends rcpt to: $did(sendemail,6).text n339= sockwrite -tn esends data n340= sockwrite -tn esends Subject: $did(sendemail,7) n341= sockwrite -tn esends To: $did(sendemail,6).text n342= sockwrite -tn esends From: $dataemail($did(sendemail,5).text,name) n343= sockwrite -tn esends Subject: $did(sendemail,7) n344= sockwrite -tn esends x-mailer: OrioN-ScripT-email http://irc.OrioN.cjb.net n345= %j = 0 n346= :ini3 n347= inc %j n348= if (%j > $did(sendemail,9).lines) { unset %j | sockwrite -tn esends . } n349= else { sockwrite -tn esends $did(sendemail,9,%j).text | goto ini3 } n350=} n351=;cargando dialog sobre dialog en emails================== n352=opendsendemail { n353= if ($1 != $null) { %u = $1 } n354= .timer -m 1 100 dialog -m sendemail sendemail n355=} n356=;cargando emails==================================== n357=loademails { n358= if ($1 == 1) { n359= %x = 3 n360= :ini n361= inc %x n362= if (!$read -l $+ %x $mircdirsistema\txts\emails.txt) { unset %x } n363= else { n364= %lineemail = $read -l $+ %x $mircdirsistema\txts\emails.txt n365= did -a email 15 $dataemail(%lineemail,name) n366= goto ini n367= } n368= } n369= if ($1 == 2) { n370= %x = 3 n371= :ini n372= inc %x n373= if ($read -l $+ %x $mircdirsistema\txts\direcemails.txt != $null) { n374= did -a sendemail 6 $read -l $+ %x $mircdirsistema\txts\direcemails.txt n375= goto ini n376= } n377= else { n378= %x = 3 n379= :ini2 n380= inc %x n381= if ($read -l $+ %x $mircdirsistema\txts\emails.txt == $null) || ($len($read -l $+ %x $mircdirsistema\txts\emails.txt) == $null) { unset %x } n382= else { n383= %lineemail = $read -l $+ %x $mircdirsistema\txts\emails.txt n384= did -a sendemail 5 $dataemail(%lineemail,dire) n385= goto ini2 n386= } n387= } n388= } n389=} n390= n391=;finalizando trasescritura en emai======================== n392=endmail { n393= did -a email 3 De: %egetsubjdir " $+ %egetname $+ " < $+ %aboutemail $+ > n394= did -a email 12 *** Trasmision completada de email.... n395= did -c email 3 $did(email,3).lines | did -c email 12 $did(email,12).lines n396= write %emailfile XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX Fin del contenido. n397= write %emailfile Datos del email.=================== n398= write %emailfile Autor: %egetname < $+ %egetidfrom $+ > n399= write %emailfile Enviado desde: %egetsubjdir n400= write %emailfile Para: %egetsubjdir2 n401= write %emailfile Fecha del envio: %egetdate n402= write %emailfile Titulo/asunto: %aboutemail n403= unset %egetsubj2 %egetsubjdir2 %egetsubjdir %egetname %aboutemail %egetdate %emailfile %egetidfrom n404= .disable #txtemail n405=} n406= n407=;creando file para email trascipcion====================== n408=createfilemail { n409= %emailfile = $mircdiremails\ n410= %emailfile = %emailfile $+ $1 n411= %emailfile = %emailfile $+ .txt n412=} n413=;recordando log sacando en privado===================== n414=revlog { n415= %t = $logdir $+ $1 $+ .log n416= %tl = $lines(%t) n417= if (%tl > 4) { n418= if (%autolistlog != n) { n419= if (%autolistlog == q) { %listwin = $1 } n420= if (%autolistlog == w) { %listwin = @AutoListLog | window @AutoListLog 505 253 290 300 } n421= %l = 1 n422= %pl = $calc(%tl - %autolistloglines - 2) n423= while (%tl > %l) { n424= if (%l > %pl) && ($read(%t,%l)) { n425= if ($window(@AutoListLog)) { echo %listwin $read(%t,%l) } n426= else { echo -g $1 $strip($read(%t,%l)) } n427= } n428= inc %l n429= } n430= echo -g %listwin 14Fin del recordatorio de log ( $+ $1 $+ ) L( $+ $lines(%t) $+ ) T( $+ $int($calc($file(%t).size / 1024)) $+ k) n431= echo -g %listwin $oriontheme(sSeparadorLine) n432= unset %t %l %listwin %pl %tl n433= } n434= } n435=} n436=;hacer operativo el infoscript del whois=================== n437=infoscript { n438= if (orion isin $1) { informo El usuario $did(whois,3).text esta usando el scritp mas potente en la actualidad (OrioN-ScripT). Puedes conseguir mas información y actualizaciones en: www.ircOrioN.net } n439= if (x-cript isin $1) { informo El usuario $did(whois,3).text esta usando uno de los mejores scripts sin duda alguna. } n440= if (ircap isin $1) { informo El usuario $did(whois,3).text esta usando uno de los scripts mas usados. } n441= if (mesias isin $1) { informo El usuario $did(whois,3).text esta usando un script plagio del x-cript, del que incorpora todo el codigo. La web del original es: http://pagina.de/xcript } n442=} n443= n444=;puerto predefinido por usuario=================================== n445=otro { set %s.port $$?="Que puerto escaneo?" | scanon } n446=barridoscan { n447= if ($did(scan,27).lines == 500) { did -r scan 27 } n448= if ($len(%s.port) == 1) { did -a scan 27 %s.port $+ $str(*,12) } n449= if ($len(%s.port) == 2) { did -a scan 27 %s.port $+ $str(*,10) } n450= if ($len(%s.port) == 3) { did -a scan 27 %s.port $+ $str(*,9) } n451= if ($len(%s.port) == 4) { did -a scan 27 %s.port $+ $str(*,7) } n452= if ($len(%s.port) == 5) { did -a scan 27 %s.port $+ $str(*,5) } n453= if ($len(%s.port) == 6) { did -a scan 27 %s.port $+ $str(*,4) } n454= if ($len(%s.port) == 7) { did -a scan 27 %s.port $+ $str(*,2) } n455= if ($len(%s.port) == 8) { did -a scan 27 %s.port $+ $str(*,1) } n456= inc %s.port n457= set %s.ip $did(scan,10).text n458= set %s.nameg allports $+ %s.port n459= .sockopen %s.nameg %s.ip %s.port n460=} n461=;respuestas a dialog.................................. n462=scanc4 { n463= if ($window(@ScaN_Canal-Nicks)) { n464= aline @ScaN_Canal-Nicks 15,2 $1 0,4 CERRADO 11( $+ $2 $+ ) 9,99 n465= } n466= if ($dialog(scancanal)) { n467= did -a scancanal 2 Scan : Nick( $+ $ial(*!*@* $+ $1,1).nick $+ ) - IP( $+ $1 $+ ) - Puerto( $+ %s.port = $2 $+ ) : CERRADO n468= } n469= if ($dialog(scan)) { n470= did -a scan 26 Puerto: %s.port :( %s.name ): CERRADO n471= .timermoveicon* off | did -e scan 10 | did -e scan 11 n472= } n473=} n474=scana4 { n475= if ($window(@ScaN_Canal-Nicks)) { n476= aline @ScaN_Canal-Nicks 15,2 $1 0,4 ABIERTO 11( $+ $2 $+ ) 9,99 n477= aline @ScaN_Canal-Nicks 15Se intentara un who a la ip (ver status). n478= who $1 n479= } n480= if ($dialog(scancanal)) { n481= did -a scancanal 2 Scan : Nick( $+ $ial(*!*@* $+ $1,1).nick $+ ) - IP( $+ $1 $+ ) - Puerto( $+ %s.port = $2 $+ ) : ABIERTO n482= } n483= if ($dialog(scan)) { n484= did -a scan 26 Puerto: %s.port :( %s.name ): ABIERTO n485= .timermoveicon* off | did -e scan 10 | did -e scan 11 n486= } n487=} n488= n489= n490=;corrector de smyles=================================== n491=loadcorsmyles { n492= set %x 0 n493= :ini n494= inc %x n495= set %atxtcorsmyles $read -l $+ %x $mircdirsistema\txts\corsmyles.txt n496= if (%atxtcorsmyles != $null) { n497= set %atxtcorsmyles2 $gettok(%atxtcorsmyles,2,61) n498= set %atxtcorsmyles $gettok(%atxtcorsmyles,1,61) n499= if (%atxtcorsmyles isin $1) && ($findtok($1,%atxtcorsmyles,0,32) == 1) { n500= return $replace($1,%atxtcorsmyles,%atxtcorsmyles2) n501= unset %atxtcorsmyles %atxtcorsmyles2 %x | halt n502= } n503= else { goto ini } n504= } n505= unset %atxtcorsmyles %atxtcorsmyles2 %x n506= haltdef n507=} n508= n509=;corrector de palabras================================ n510=loadcorwords { n511= set %x 0 n512= :ini n513= inc %x n514= set %atxtcorwords $read -l $+ %x $mircdirsistema\txts\corwords.txt n515= if (%atxtcorwords) { n516= set %atxtcorwords2 $gettok(%atxtcorwords,2,61) n517= set %atxtcorwords $gettok(%atxtcorwords,1,61) n518= if (%atxtcorwords isin $1) && ($findtok($1,%atxtcorwords,0,32) == 1) { return $replace($1,%atxtcorwords,%atxtcorwords2) | unset %atxtcorwords %atxtcorwords2 %x } n519= else { goto ini } n520= } n521= unset %atxtcorwords %atxtcorwords2 %x n522=} n523= n524=;corrector de nicks en canales======================== n525=loadcn { n526= if ($chr(35) isin $2) { n527= %n = 1 | %w = 1 n528= while ($nick($2,%n)) { n529= if (%sigcornicks isin $1) { %w = $left($nick($2,%n),%nºlcornicks) } n530= if ($nick($2,%n) isin $1) && ($findtok($1,$nick($2,%n),0,32) == 1) || (%w isin $1) { n531= %cnp = $nick($2,%n) n532= %formatncp3 = $read -l $+ %formatncp2 $mircdirsistema\txts\fncp.txt n533= if (%w != 1) { return $replace($1,%w $+ %sigcornicks,%formatncp3) } n534= else { return $replace($1,%cnp,%formatncp3) } n535= } n536= inc %n n537= } n538= } n539= %cnp = Nick n540= unset %n %formatncp3 %w n541= else { return $null } n542=} n543= n544=;identificador devolucion del SO que usa el usuario n545=;$1 pasamos $os sistema operativo n546=;$2 pasamos tipo de devolucion texto o numero n547=returnso { n548= if ($1 == XP) { n549= if ($2 == num) { return 2 } n550= if ($2 == txt) { return $os } n551= } n552= else { n553= if ($2 == num) { return 1 } n554= if ($2 == num) { return $os } n555= } n556=}