[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=sound2 { n14= set %tococanalmusi $$2 n15= .sound %winactive $$2 n16= msg %winactive %txtscript n17= msg $active 0,15 0,14 8,1Tocando4 $nopath($$2) 8bites4 $lof($$2) 0,14 0,15 2,99 Escribre 4!musica 2para conseguirlo . 9,99 n18=} n19=sacaclones { who $chan } n20=;respuesta a los sucesos en canal de los uauarios con acceso=========== n21=resuser { .msg $chan %txtscript 2Usuario con 4acceso } n22=;posicionamiento del dialog whois=========================================== n23=sizemovie { n24= set %n 0 n25= :ini n26= %n = %n + 4 n27= if (%n >= %TL) { dialog -s %namedialog %PI %PD %TA %n | unset %PD %PI %TA %n %TL %namedialog | halt } n28= else { dialog -s %namedialog %PI %PD %TA %n | goto ini } n29=} n30=;quitar variables nulas=========================================== n31=dellvar { n32= unset %nºnavegador %whoscan %barsnick %n %x %sendfilecanalall %sendfilecanalfich n33= unset %parms %txtcarita %text %l %l-encript %textencript %linea %r.names %c %t %y %x %v %l %i n34= unset %n %li %x %id* %dialog %whoiscanal %nuke* %oob* %sl %p.* %s.* %nº#pintnicks n35= unset %timeconex %winactive %nickf %nickn %nmaxl %nmaxlp %num %numchan %txtcolor1 %txtcolor2 n36= unset %txtfl %txtnl %txtnotice %user %nickf2 %txtflod2 %txtfl2 %nicknj %txtnj %mass# n37= unset %nicknj2 %txtnj2 %txtevent %nicknni %txtnni %nº.nick %icmpip %nickidon n38= unset %text %l %l-encript %textencript %linea %r.names %n %li %x %id* %dialog n39= if (%autoj#6 == $null) { unset %autoj#6 } n40= if (%horajdes == $null) { unset %horajdes } n41= if (%%msgjdes == $null) { unset %msgjdes } n42= if (%%msgjdes == $null) { unset %%msgjdes } n43= if (%msgpdes == $null) { unset %msgpdes } n44= if (%msgpircdes == $null) { unset %msgpircdes } n45= if (%nick == $null) { unset %nick } n46= if (%nicktxtevent == $null) { unset %nicktxtevent } n47= if (%Rnick1 == $null) { unset %Rnick1 } n48= if (%Rnick2 == $null) { unset %Rnick2 } n49= if (%Rnick3 == $null) { unset %Rnick3 } n50= if (%Rnick4 == $null) { unset %Rnick4 } n51= if (%Rnick5 == $null) { unset %Rnick5 } n52= if (%Rnick6 == $null) { unset %Rnick6 } n53= if (%txtsaluamigetes == $null) { unset %txtsaluamigetes } n54= if (%horapdes == $null) { unset %horapdes } n55= if (%horapircdes == $null) { unset %horapircdes } n56= if (%horaexitir2des == $null) { unset %horaexitir2des } n57= if ( %nicksdop == $null) { unset %nicksdop } n58= if ( %msgop == $null) { unset %msgop } n59= if ( %msg2awayme == $null) { unset %msg2awayme } n60= if (%msgpdes == $null) { unset %msgpdes } n61= if (%autoj#1 == $null) { unset %autoj#1 } n62= if (%autoj#2 == $null) { unset %autoj#2 } n63= if (%autoj#3 == $null) { unset %autoj#3 } n64= if (%autoj#4 == $null) { unset %autoj#4 } n65= if (%autoj#5 == $null) { unset %autoj#5 } n66= if (%msgjoin1 == $null) { unset %msgjoin1 } n67= if (%msg1awayme == $null) { unset %msg1awayme } n68=} n69=;actualizar lag timer ============================== n70=timesklageo { n71= .timerlagearme off n72= if ($server) && (%actlageo) { .timerlagearme 0 %timelageo .ctcp $me ping } n73=} n74= n75=;ejecucion de comandos de baruser======================= n76=comanbar { n77= %barsnick = $snick(%winactive) n78= if ($1 == whois) { n79= if (%winactive != null) && (%barsnick != $null) { quien-es %barsnick d | infotxt@ Ejecutando whois a 0[4 %barsnick 0] } n80= else { quien-es $$?="Escribe el nick del usuario" d | infotxt@ Ejecutando whois a 0[4 $! 0] } n81= } n82= if ($1 == query) { n83= if (%winactive != null) && (%barsnick != $null) { query %barsnick } n84= else { query $$?="¿A que nick hago un privado?" } n85= } n86= n87= if ($1 == +op) { n88= if (%winactive != null) && (%barsnick != $null) { mode %winactive +o %barsnick } n89= else { mode $$?="Canal?" +o $$?="¿A que nick pongo la @?" } n90= } n91= if ($1 == -op) { n92= if (%winactive != null) && (%barsnick != $null) { mode %winactive -o %barsnick } n93= else { mode $$?="Canal?" -o $$?="¿A que nick quito la @?" } n94= } n95= if ($1 == kick) { n96= if (%winactive != null) && (%barsnick != $null) { kick %winactive %barsnick } n97= else { kick $$?="Canal?" $$?="Escribe el nick del lamer" } n98= } n99= if ($1 == k+m) { n100= if (%winactive != null) && (%barsnick != $null) { kick %winactive %barsnick $$?="Razon del kick?" } n101= else { kick $$?="Canal?" $$?="Escribe el nick del lamer" $$?="Razon del kick?" } n102= } n103= if ($1 == b+k) && (%barsnick != $null) { n104= if (%winactive != null) { mode %winactive -o %barsnick | mode %winactive +b $address(%barsnick,2) | kick %winactive %barsnick } n105= else { n106= %x = #$$?="Canal? (sin #)" n107= %x1 = $$?="Pon el nick del capullo a banear y kikear" n108= mode -o %x %x1 n109= mode %x +b $address(%x1,2) n110= kick %x %x1 | unset %x %x1 n111= } n112= } n113=} n114= n115=joinpass { join #$$?="Nombre del canal? (sin #)" $$?="Contraseña del canal?" } n116=joincanal { join #$$?="Nombre del canal? (sin #)" } n117=;atakes con programas externos aviso en status============== n118=ataker { n119= echo -s $oriontheme(sSeparadorLine) n120= echo -s 0»» %txtscript 4,1 Ejecutando proceso de atake....... 9,99 n121= echo -s 0»» 11,1 Lanzado atake con: 4 %progataker 9,99 n122= echo -s 0»» 8,1 Victima: 4 %whonick 9,99 n123= echo -s 0»» 8,1 IP: 4 %whonickip 9,99 n124= echo -s 0»» 8,1 Servidor: 4 %whoservip 9,99 n125= echo -s $oriontheme(sSeparadorLine) n126= unset %progataker n127=} n128=;muestreo en status del start del script====================== n129=txtiniscriptstatus { n130= clear n131= echo -s $oriontheme(sSeparadorLine) n132= echo -s 0 %txtscript 15V15ersión:0 %oversion 15Release 09/11/2002 n133= echo -s 0- ( c )15 1998-2002 by Quasi n134= echo -s 0- 15Cliente IRC: 15mIRC $version (c) bY Khaled Mardam-Bey n135= echo -s 0- 11W0eb oficial: 15http://www.ircOrioN.net n136= echo -s 0- 8W0eb patrocinador: 15http://www.ayuda-internet.net n137= echo -s 0- 9M0ail script: 15script@ircorion.net n138= echo -s 0- 9M0ail autor: 15quasi@ircorion.net n139= echo -s $oriontheme(sSeparadorLine) n140=} n141=;poner invisibles las wins de fserver====================== n142=modeiwinfserv { n143= %x = 0 n144= :ini n145= inc %x n146= if($chat(%x) != $null) { window -h = $+ $chat(%x) | goto ini } n147= else { unset %x } n148=} n149=;informando de nueva version y posibilitando su descarga===== n150=infonewversiondowload { n151= %txt/sinofunction = download n152= %txt/si-no = La nueva versión 3.3 del OrioN ScripT ya se encuentra disponible. Esta incluye una importante mejora en cuanto a codigo, incorporando nuevas e increibles utilidades. !!No te lo pierdas!!. ¿Deseas proceder ahora a su descarga en internet? n153= open/si-no n154= unset %txt/si-no n155=} n156=;seleccion del dir local de mp3 para localizacion scirpt======== n157=setdirlocalmp3 { n158= set %findmp3dirlocalscript $sdir="Selecciona el directorio de localizacion de mp3" n159= did -r orionsound 12 | did -a orionsound 12 %findmp3dirlocalscript n160=} n161=;codigo para el gestor de alarma grafico================== n162=;cambiare el archivo wav de la alarma==================== n163=setfilewavalarma { n164= set %filewavalarma $$file="Selecciona un archivo" $mircdirmusica\*.wav n165= drawline @alarma 1 16 1 57 83 57 n166= drawtext -cp @alarma 5 "arial" 10 3 50 340 12 13,1 $gettok($nopath(%filewavalarma),1,46) n167=} n168=ejecutactionalarm { n169= alarmoff n170= if ($window(@alarma) != $null) { drawdot @alarma 4 4 28 24 | drawdot @alarma 11 4 28 12 } n171= if (%actionalarm == alarmaconex) { n172= infotxt@ 4,1!!!ALARMA!!!8 Tiempo concluido0 [11 %timelimitalarma 0] n173= sorion %filewavalarma n174= echo -s $oriontheme(sSeparadorLine) n175= echo -s 1,1----------------------------------------------0,4 ALARMA-OrioN 1,1--------------------------------------------------- n176= echo -s 2 Hora de ejecución finalizada0 [11 %timelimitalarma 1] n177= echo -s 1,1----------------------------------------------------------------------------------------------------------------------- n178= echo -s $oriontheme(sSeparadorLine) n179= } n180= if (%actionalarm == alarmadeconex) { n181= run %filewavalarma n182= disconnect n183= echo -s $oriontheme(sSeparadorLine) n184= echo -s 1,1----------------------------------------------0,4 ALARMA-OrioN 1,1--------------------------------------------------- n185= echo -s 2 Hora de ejecución finalizada0 [11 %timelimitalarma 1] n186= echo -s 2 Procesando la desconexion preprogramada por la alarma n187= echo -s 1,1----------------------------------------------------------------------------------------------------------------------- n188= echo -s $oriontheme(sSeparadorLine) n189= } n190= if (%actionalarm == alarmaclose) { n191= run %filewavalarma n192= exit n193= } n194=} n195=alarmon { n196= echo -s $oriontheme(sSeparadorLine) n197= echo -s 0,1 Activación 0,4 Alarma 4,99 n198= echo -s 0,1 Hora de ejecución 0,4 %timelimitalarma 8,99 n199= echo -s 0,1 Acciones 0,4 $actionalarmaid 9,99 n200= echo -s $oriontheme(sSeparadorLine) n201=} n202= n203=alarmoff { n204= echo -s $oriontheme(sSeparadorLine) n205= echo -s 0,1 Desactivación 0,4 Alarma 4,99 n206= echo -s $oriontheme(sSeparadorLine) n207=} n208= n209=;alias para el trivial================================== n210=trivialon { n211= writeini $mircdirjuegos\trivial\trivconfig.ini script trivnpreg 0 n212= writeini $mircdirjuegos\trivial\trivconfig.ini script trivnpoin 0 n213= if ($group(#trivial) == on) { n214= msg $readini $mircdirjuegos\trivial\trivconfig.ini script trivialcanal 8,2 OrioN 0,4 Trivial 1,99 [2Canal:4 $readini $mircdirjuegos\trivial\trivconfig.ini script trivialcanal $+ 1] [ 2Tema:4 $readini $mircdirjuegos\trivial\trivconfig.ini script trivialfile $+ 1] [2Nº.Preguntas:4 $readini $mircdirjuegos\trivial\trivconfig.ini script triviallimitpreg $+ 1] [2 Nº.Puntos:4 $readini $mircdirjuegos\trivial\trivconfig.ini script triviallimitpunt $+ 1] [2Castigo:4 $readini $mircdirjuegos\trivial\trivconfig.ini script trivcastigo $+ 1] [2Tiempo de respuesta:4 $readini $mircdirjuegos\trivial\trivconfig.ini script trivialtimeasnw seg $+ 1] [2Pistas:4 $readini $mircdirjuegos\trivial\trivconfig.ini script trivialpistas $+ 1] n215= msg $readini $mircdirjuegos\trivial\trivconfig.ini script trivialcanal 1[1Poner:4 !respuesta1] n216= .timer90t 1 10 trivponpreg n217= } n218=} n219=trivponpreg { n220= var %x1 %x2 n221= if ($group(#trivial) == on) { n222= if ($readini $mircdirjuegos\trivial\trivconfig.ini script trivnpreg == $readini $mircdirjuegos\trivial\trivconfig.ini script triviallimitpreg) { trivendplay } n223= else { n224= %x1 = $readini $mircdirjuegos\trivial\trivconfig.ini script trivnpreg n225= %x2 = $readini $mircdirjuegos\trivial\trivconfig.ini script trivnpoin n226= inc %x1 | inc %x2 n227= writeini $mircdirjuegos\trivial\trivconfig.ini script trivnpreg %x1 n228= writeini $mircdirjuegos\trivial\trivconfig.ini script trivnpoin %x2 n229= msg $readini $mircdirjuegos\trivial\trivconfig.ini script trivialcanal 1[2Autor:4 $readini $mircdirjuegos\trivial\trivconfig.ini script trivrautor $+ 1] [2Tema:4 $readini $mircdirjuegos\trivial\trivconfig.ini script trivrtema $+ 1] [2Pregunta:4 $trivgetpreg($remove($readini $mircdirjuegos\trivial\trivconfig.ini script trivialfile,.txt)) $+ 1] n230= %t = $readini $mircdirjuegos\trivial\trivconfig.ini script trivtimemedio n231= .timer91t 1 %t trivdarpista n232= .timer92t 1 $readini $mircdirjuegos\trivial\trivconfig.ini script trivialtimeasnw darrespuesta n233= } n234= } n235=} n236=;identificadorers para el trivial=========================== n237=trivgetpreg { n238= var %x %z n239= %x = $mircdirjuegos\trivial\ n240= %x = %x $+ $readini $mircdirjuegos\trivial\trivconfig.ini script trivialfile n241= %z = $lines(%x) n242= %z = $rand(1,%z) n243= %x = $read -l $+ %z %x n244= writeini $mircdirjuegos\trivial\trivconfig.ini script trivanswer $gettok(%x,4,58) n245= %trivresp = $readini $mircdirjuegos\trivial\trivconfig.ini script trivanswer n246= writeini $mircdirjuegos\trivial\trivconfig.ini script trivrautor $gettok(%x,2,58) n247= writeini $mircdirjuegos\trivial\trivconfig.ini script trivrtema $gettok(%x,1,58) n248= return $gettok(%x,3,58) n249=} n250=trivdarpista { n251= if ($group(#trivial) == on) { n252= if ($readini $mircdirjuegos\trivial\trivconfig.ini script trivialpistas == on) { n253= var %x %z n254= %x = $readini $mircdirjuegos\trivial\trivconfig.ini script trivanswer n255= %x = $len(%x) n256= %x = $calc(%x / 2) n257= %z = $readini $mircdirjuegos\trivial\trivconfig.ini script trivanswer n258= %z = $mid(%z,1,%x) n259= msg $readini $mircdirjuegos\trivial\trivconfig.ini script trivialcanal 1[2Pista $+ :4 %z $+ ... 1] n260= } n261= } n262=} n263=darrespuesta { n264= if ($group(#trivial) == on) { n265= msg $readini $mircdirjuegos\trivial\trivconfig.ini script trivialcanal 1[2Respuesta:4 $readini $mircdirjuegos\trivial\trivconfig.ini script trivanswer $+ 1] n266= .timer94t 1 1 trivponpreg $remove($readini $mircdirjuegos\trivial\trivconfig.ini script trivialfile,.txt) n267= } n268=} n269=trivwiner { n270= msg %trivialcanal 4Has acertado7 $1 $+ !!!!!! n271= var %x n272= %x = $read -s $+ $1 $mircdirjuegos\trivial\jugadores.txt n273= %x = $gettok(%x,1,61) n274= %x = $calc(%x + 1) n275= msg %trivialcanal 1<2 $+ $1 $+ 1> <7Puntos:4 %x $+ 1> n276= write -ds $+ $1 $mircdirjuegos\trivial\jugadores.txt n277= write -a $mircdirjuegos\trivial\jugadores.txt $1 = %x n278= .timer9?? off n279= .timer90t -m 1 50 trivponpreg n280= if (%x == $readini $mircdirjuegos\trivial\trivconfig.ini script triviallimitpunt) { trivendplay } n281=} n282=trivlust { n283= msg %trivialcanal 4Has fallado7 $1 $+ !!!!!! n284= var %x %c n285= %x = $read -s $+ $1 $mircdirjuegos\trivial\jugadores.txt n286= %x = $gettok(%x,1,61) n287= %c = $readini $mircdirjuegos\trivial\trivconfig.ini script trivcastigo n288= if ($me isop %trivialcanal) { n289= if (%c == kick) { kick %trivialcanal $1 Has fallado 1<2 $+ $1 $+ 1> <7Puntos:4 %x $+ 1> } n290= if (%c == ban-kick) { n291= mode %trivialcanal +b $address($1,2) n292= kick %trivialcanal $1 Has fallado 1<2 $+ $1 $+ 1> <7Puntos:4 %x $+ 1> n293= } n294= } n295= write -ds $+ $1 $mircdirjuegos\trivial\jugadores.txt n296= write -a $mircdirjuegos\trivial\jugadores.txt $1 = %x n297=} n298= n299=trivendplay { n300= var %g %p n301= msg %trivialcanal 1[4Fin del juego1] n302= msg %trivialcanal 1[2Puntuaciones:1] n303= :ini n304= inc %g n305= %p = $mircdirjuegos\trivial\jugadores.txt n306= %p = $read -l $+ %g %p n307= if (%p != $null) { n308= .timer 1 %g msg %trivialcanal 1[14 %p 1] n309= goto ini n310= } n311= .disable #trivial | .timer9?? off | unset %trivresp %trivialcanal %p %g n312= .remove $mircdirjuegos\trivial\jugadores.txt n313=} n314=;noticias orion on line================================= n315=onlinenews { n316= sockclose news n317= .timernews 1 1 sockopen news perso.wanadoo.es 80 n318=} n319=;actualizacion de codificacion========================== n320=onlineldecode { n321= sockclose ldecode n322= .timerlcode 1 1 sockopen ldecode perso.wanadoo.es 80 n323=} n324=;scanclonescanal==================================== n325=scanclonescanal { n326= %n1 = 0 | %n2 = 0 | %n.clones = 0 | %commandsacar = $2- | %nicksclonaos = 0 n327= while ($nick($1,%n1)) { n328= %n2 = 0 n329= if ($ialchan($gettok($address($nick($1,%n1),2),2,33),$1,0) > 1) { n330= :ini2 n331= inc %n2 n332= if ($ialchan($gettok($address($nick($1,%n1),2),2,33),$1,%n2)) && ($gettok($ialchan($gettok($address($nick($1,%n1),2),2,33),$1,%n2),1,33) !isin %nicksclonaos) { n333= %nicksclonaos = %nicksclonaos $+ , $+ $gettok($ialchan($gettok($address($nick($1,%n1),2),2,33),$1,%n2),1,33) n334= %commandsacar $gettok($ialchan($gettok($address($nick($1,%n1),2),2,33),$1,%n2),1,33) : $ialchan($gettok($address($nick($1,%n1),2),2,33),$1,%n2) n335= inc %n.clones | goto ini2 n336= } n337= %commandsacar - n338= } n339= inc %n1 n340= } n341= %commandsacar Total de clones : %n.clones n342= unset %n1 %n2 %n.clones n343=} n344=;mostrar lista de bans de un canal======================= n345=seebanlist { n346= %h = 0 n347= $2- 2Lista de 7Bans n348= :ini n349= inc %h n350= if ($banlist($1,%h) != $null) { n351= .timer 1 %h $2- 1[2Ban:4 $+ $banlist($1,%h) $+ 1] [2By:4 $+ $banlist($1,%h).by $+ 1] [2Fecha:4 $+ $banlist($1,%h).date $+ 1] n352= goto ini n353= } n354= .timer 1 %h $2- 2FIN de la lista de 4bans n355=} n356=;poniendo musica AL CANAL========================== n357=ponmusi#2 { n358= .splay stop n359= var %h n360= %h = 0 n361= if ($2 == 1) { n362= if ($1 == mid) { n363= %h = $$file="Selecciona un archivo *.midi" %pathmusicamid n364= %tococanalmusi = %h n365= msg %winactive 1[2Tocando: 4 $nopath(%h) $+ 1] [7!musica1] n366= .sound %winactive %h n367= } n368= if ($1 == wav) { n369= %h = $$file="Selecciona un archivo *.wav" %pathmusicawav n370= %tococanalmusi = %h n371= msg %winactive 1[2Tocando: 4 $nopath(%h) $+ 1] [7!musica1] n372= .sound %winactive %h n373= } n374= if ($1 == mp3) { n375= %h = $$file="Selecciona un archivo *.mp3" %pathmusicamp3 n376= %tococanalmusi = %h n377= msg %winactive 1[2Tocando: 4 $nopath(%h) $+ 1] [7!musica1] n378= .splay " $+ %h $+ " n379= } n380= } n381= if ($2 == 2) { n382= if ($1 == mid) { n383= var %y n384= %y = $findfile(%pathmusicamid,*.mid,0) n385= %y = $rand(1,%y) n386= %y = $findfile(%pathmusicamid,*.mid,%y) n387= .splay %y n388= %tococanalmusi = %y n389= msg %winactive 1[2Tocando:4 $nopath(%y) $+ 1] [7!musica1] n390= unset %y n391= } n392= if ($1 == wav) { n393= var %y n394= %y = $findfile(%pathmusicawav,*.wav,0) n395= %y = $rand(1,%y) n396= %y = $findfile(%pathmusicawav,*.wav,%y) n397= .splay %y n398= %tococanalmusi = %y n399= msg %winactive 1[2Tocando:4 $nopath(%y) $+ 1] [7!musica1] n400= unset %y n401= } n402= if ($1 == mp3) { n403= var %y n404= %y = $findfile(%pathmusicamp3,*.mp3,0) n405= %y = $rand(1,%y) n406= %y = $findfile(%pathmusicamp3,*.mp3,%y) n407= .splay " $+ %y $+ " n408= %tococanalmusi = %y n409= msg %winactive 1[2Tocando:4 $nopath(%y) $+ 1] [7!musica1] n410= unset %y n411= } n412= } n413=} n414=;Msg MASS global a todos querys me==================== n415=ameq { n416= var %y n417= %y = 0 n418= :ini n419= inc %y n420= if ($query(%y) != $null) { n421= .msg $query(%y) $1- n422= goto ini n423= } n424= unset %y n425=} n426= n427=;alias para clon por sockets============================ n428=;coenectando clon.............. n429=conexclon { n430= if ($sock(orionclon) == $null) { sockopen orionclon $server $port } n431= if ($1 == $null) { n432= %#orionclon = #$$?="Canal a llevar el clon? (sin #)" n433= sendsockorion JOIN %#orionclon n434= } n435= else { n436= %#orionclon = $1 n437= .timer 1 5 sendsockorion JOIN $1 n438= } n439= wincanalorionclon n440=} n441=;descoenectando clon.............. n442= n443=;enviando info por sockets ............ n444=sendsockorion { n445= if ($sock(orionclon) != $null) { sockwrite -nt orionclon $1- } n446=} n447= n448=;listando nicks en win canal sock clon............ n449=loadnicks#orionclon { n450= %n = @CloNCanal: $+ $1 n451= if ($window(%n) != $null) { n452= dline -l @cloncanal: $+ $1 1- n453= %x = 0 n454= :ini n455= inc %x n456= if ($nick($1,%x) != $null) { n457= if ($nick($1,%x) isop $1) { %o = @ } n458= else { unset %o } n459= if ($nick($1,%x) == $me) { .aline -l %n %o $+ $nick($1,%x) | goto ini } n460= if ($nick($1,%x) == %nickorionclon) { .aline -l %n %o $+ %nickorionclon | goto ini } n461= else { .aline -l %n %o $+ $nick($1,%x) | goto ini } n462= } n463= else { unset %x %o %n } n464= } n465=} n466=;sacando win para canal clon socket........ n467=wincanalorionclon { n468= %nw = @CloNCanal: $+ %#orionclon n469= if ($window(%nw) != $null) { window -c $window(%nw) } n470= window -el10 +d @CloNCanal 500 400 400 150 n471= background -f @cloncanal $orionskin(c6.jpg) n472= aline @cloncanal 0Clon por sockets %txtscript 11 n473= aline @cloncanal 11Operativo 9en canal:8 %#orionclon n474= aline @cloncanal 0=============================================== n475= renwin @cloncanal @CloNCanal: $+ %#orionclon n476= unset %nw n477= .timer 1 1 loadnicks#orionclon %#orionclon n478=} n479= n480=;info muestreo en status de clon por sockets----------- n481=echoclonopen { n482= echo -s 0,15 0,14 0,1 CloN por sockets %txtscript n483= if ($window(@clon) != $null) { drawdot @clon 4 3 183 36 } n484= unset %#orionclon n485= if ($window(@clon)) { drawtext -cp @clon 5 "arial" 10 43 27 200 12 9,1 %nickorionclon } n486=} n487= n488=echoclonclose { n489= echo -s 0,15 0,14 0,1 CloN por sockets %txtscript n490= echo -s 0,15 0,14 0,1 Cerrando conexion de clon por sockets n491= if ($window(@clon) != $null) { drawdot @clon 9 3 183 36 } n492=} n493=;procesando scans de puertos a canales-nicks============= n494=scan#n { n495= %s.port = $2 n496= %s.name = $1 n497= %z = 1 n498= while ($nick($3,%z)) { n499= %s.ip = $gettok($address($nick($3,%z),2),2,64) n500= %s.nick = $nick($3,%z) n501= sockclose %s.name n502= .timer 1 %z sockopen %s.name %s.ip %s.port n503= inc %z n504= } n505= unset %x n506=} n507=;decir serv========== n508=meteclonserv { n509= server $$?="Escribe el server, ejp: irc.jet.es" n510=} n511=;userlist n512=userlistinfoedit { did -r userlist 8 | did -a userlist 8 $1- | did -c userlist 8 1 } n513=userlistlevels { n514= unset %nuser %flevels n515= if ($1 == 1) { n516= if ($did(userlist,$2).state == 1) { return $3 } n517= } n518=} n519=userlistload { n520= did -r userlist 3 | %n = 0 n521= inc %n n522= while ($ulist(*,%n)) { n523= if ($me != $ulist(*, $+ %n)) { n524= did -a userlist 3 $ulist(*, $+ %n) $chr(9) $ulist(*, $+ %n).info n525= } n526= inc %n n527= } n528= unset %n n529=} n530=;anti.flood n531=antiflood { n532= if ($readini(sistema\PFlood\floodconf.ini,floods,tflood $+ $2) == on) { writeini sistema\PFlood\floodconf.ini flooder nflooder $+ $2 $calc($readini(sistema\PFlood\floodconf.ini,flooder,nflooder $+ $2) + 1) } n533= %x = 1 n534= while (%x <= 10) { n535= if ($calc($readini(sistema\PFlood\floodconf.ini,flooder,nflooder $+ %x) + 1) > $readini(sistema\PFlood\floodconf.ini,floods,eflood $+ %x)) && ($readini(sistema\PFlood\floodconf.ini,floods,tflood $+ %x) == on) { atakflood $iif($gettok($address($1,5),1,33),$gettok($address($1,5),1,33),$1) %x $3 } n536= inc %x n537= } n538= unset %x n539=} n540=atakflood { n541= writeini sistema\PFlood\floodconf.ini flooder nflooder $+ $2 0 n542= writeini sistema\PFlood\floodconf.ini stats statflood $+ $2 $calc($readini(sistema\PFlood\floodconf.ini,stats,statflood $+ $2) + 1) n543= %r = $readini(sistema\PFlood\floodconf.ini,tiposflood,tipoflood $+ $2) n544= echo -s $oriontheme(sAntiFlood1) n545= %r1 = $iif($gettok($address($1,5),1,33),$gettok($address($1,5),1,33),$1) n546= %r2 = $iif($readini(sistema\PFlood\floodconf.ini,acciones,ignore) == on,Ignore_ $+ $readini(sistema\PFlood\floodconf.ini,acciones,ignoretime) $+ s - ,Ignore_OFF - ) n547= %r2 = %r2 $iif($readini(sistema\PFlood\floodconf.ini,acciones,ofensiva1) == on,Deop_ON, ) n548= %r2 = %r2 $iif($readini(sistema\PFlood\floodconf.ini,acciones,ofensiva2) == on,Kick_ON, ) n549= %r2 = %r2 $iif($readini(sistema\PFlood\floodconf.ini,acciones,ofensiva3) == on,BanKick_ON, ) n550= %r2 = %r2 $iif($readini(sistema\PFlood\floodconf.ini,acciones,ofensiva4) == on, - MsgAviso_ON, ) n551= echo -s $oriontheme(sAntiFlood2) n552= if ($readini(sistema\PFlood\floodconf.ini,acciones,ignore) == on) { .ignore -pcntikdu $+ $readini(sistema\PFlood\floodconf.ini,acciones,ignoretime) %r1 } n553= n554= ;si el flood se ha producido en un canal..... n555= if (!$3) { n556= if ($readini(sistema\PFlood\floodconf.ini,acciones,ofensiva1) == on) { setmodeuser $gettok(%r1,1,33) -o } n557= if ($readini(sistema\PFlood\floodconf.ini,acciones,ofensiva2) == on) { setmodeuser $gettok(%r1,1,33) kick 2F1lood - %r } n558= if ($readini(sistema\PFlood\floodconf.ini,acciones,ofensiva3) == on) { setmodeuser $gettok(%r1,1,33) +b | setmodeuser $gettok(%r1,1,33) kick 2F1lood - %r } n559= } n560= if ($readini(sistema\PFlood\floodconf.ini,acciones,ofensiva4) == on) && ($chr(46) !isin $gettok(%r1,1,33)) { .msg $gettok(%r1,1,33) $gettok($read(sistema\PFlood\floodconf.ini,w,msgaviso*),2,61) } n561= %x = 1 n562= while (%x <= 10) { writeini sistema\PFlood\floodconf.ini flooder nflooder $+ %x 0 | inc %x } n563= unset %x %r %r1 %r2 n564=} n565=antifloodsetreg { n566= if ($2 == 56) || ($2 == 57) || ($2 == 58) || ($2 == 266) { n567= writeini sistema\PFlood\floodconf.ini acciones ofensiva1 off | writeini sistema\PFlood\floodconf.ini acciones ofensiva2 off | writeini sistema\PFlood\floodconf.ini acciones ofensiva3 off | writeini sistema\PFlood\floodconf.ini acciones ofensiva5 off n568= } n569= if ($1 == boton) { n570= if ($did(antiflood,$2).state == 1) { writeini sistema\PFlood\floodconf.ini $3 $4 on } n571= else { writeini sistema\PFlood\floodconf.ini $3 $4 off } n572= } n573= if ($1 == edit) { n574= if ($did(antiflood,$2).text) { n575= %p = $read(sistema\PFlood\floodconf.ini,w,$4 $+ *) n576= %p = $readn n577= write -l $+ %p sistema\PFlood\floodconf.ini $4 $+ = $+ $6- n578= unset %p n579= } n580= else { writeini sistema\PFlood\floodconf.ini $3 $4 off } n581= } n582=} n583=antifloodstat { n584= %x2 = 1 | %x1 = 93 n585= if ($1 != mostrar) { did -r antiflood 109 } n586= while (%x1 <= 104) { n587= %j = statflood $+ %x2 n588= if ($1 == ver) { n589= did -ra antiflood %x1 $readini(sistema\PFlood\floodconf.ini,stats,%j) n590= did -a antiflood 109 $readini(sistema\PFlood\floodconf.ini,flooder,fuser $+ %x2) n591= } n592= if ($1 == reset) { n593= writeini sistema\PFlood\floodconf.ini stats %j 0 n594= writeini sistema\PFlood\floodconf.ini flooder fuser $+ %x2 NickFlooder $+ %x2 n595= } n596= if ($1 == mostrar) { .timer 1 %x2 msg %winactive $readini(sistema\PFlood\floodconf.ini,tiposflood,tipoflood $+ %x2) $+ :2 $readini(sistema\PFlood\floodconf.ini,stats,statflood $+ %x2) - $readini(sistema\PFlood\floodconf.ini,flooder,fuser $+ %x2) } n597= inc %x1 | inc %x2 n598= } n599= unset %x1 %x2 %j n600= did -c antiflood 109 1 n601=}