[script] n0=; ****************************************************** n1=; cplag.ini n2=; n3=; (c) 2001 TeMpEsT/Quasi. Prohibida la copia total o n4=; parcial de este archivo. n5=; n6=; X-CRiPt y OrioN contra los plagios n7=; ****************************************************** n8= n9=;================================= n10=;tabla n11=;================================= n12= n13=dialog cplag { n14= size -1 -1 550 340 n15= title "OrioN & X-CRiPt contra plagios. By TeMpEsT & Quasi." n16= box "Lista de plagios",2,10 45 115 230 n17= edit "",3,130 280 210 25,read,autohs n18= icon $orionskin(escudo.ico) n19= box "Datos del plagio",4,130 45 210 230 n20= list 5,20 65 95 210 n21= button "Actualizar lista",6,10 280 115 25,default n22= text "Autor:",8,140 70 35 20 n23= edit "",9,220 65 110 25,read,autohs n24= text "Plagio de:",10,140 95 85 20 n25= edit "",11,220 90 110 25,read,autohs n26= text "Comentario:",12,140 120 150 20 n27= edit "",13,137 140 195 120,multi,vsbar,read n28= box "Protección anti-plagios",14,350 45 190 260 n29= box "Al entrar al canal",15,360 65 170 100 n30= check "Kick-ban",16,370 80 150 20 n31= check "Kick",17,370 100 150 20 n32= check "Mensaje (privado)",18,370 120 150 20 n33= check "Mensaje (notice)",19,370 140 150 20 n34= box "Ignorar al usuario",20,360 170 170 125 n35= check "En el canal",21,370 192 150 20 n36= check "Privados",22,370 212 150 20 n37= check "CTCPs",23,370 232 150 20 n38= check "Notices",24,370 252 150 20 n39= check "Invites",25,370 272 150 20 n40= text "Lista de plagios conocidos de OrioN y X-CRiPt. Si encuentras uno que no esté en esta lista, háznoslo saber.",30,10 10 530 30 n41= ; text "Estas opciones saltaran cuando detecten la entrada al canal de un usuario con plagio.",31,365 10 230 30 n42= link "http://www.ircorion.net",40,10 315 150 20 n43= link "http://www.relativo.com",41,200 315 150 20 n44= button "Cerrar",1,460 310 80 25,ok n45= n46=} n47= n48=;================================== n49=;eventos del dialog n50=;================================== n51=on 1:dialog:cplag:init:*:{ n52= ; did -r cplag 7 | did -a cplag 7 Configuración >>> n53= ; set %x 585 n54= ; :ini n55= ; dec %x 2 n56= ; if (%x != 355) { dialog -s cplag $dialog(cplag).x $dialog(cplag).y %x 305 | goto ini } n57= ; else { dialog -s cplag $dialog(cplag).x $dialog(cplag).y %x 305 | unset %x } n58= ;halt n59= set %msgcplag2 2O12rioN 7& 2X12-CripT14 contra plagios n60= set %msgcplag1 2O12rioN 7& 2X12-CripT14 contra plagios n61= set %msgcplag3 2O2rioN ScripT1 en: 12http://www.ircorion.net n62= set %msgcplag4 2X2-CripT en: 12http://www.relativo.com n63= loadplagios n64= if (%accpkb == on) { did -c cplag 16 } n65= if (%accpk == on) { did -c cplag 17 } n66= if (%accpq == on) { did -c cplag 18 } n67= if (%accpn == on) { did -c cplag 19 } n68= if (%accpignc == on) { did -c cplag 21 } n69= if (%accpignq == on) { did -c cplag 22 } n70= if (%accpignct == on) { did -c cplag 23 } n71= if (%accpignn == on) { did -c cplag 24 } n72= if (%accpigni = on) { did -c cplag 25 } n73= did -f $dname 1 n74=} n75=on 1:dialog:cplag:sclick:40:{ run http://www.ircorion.net } n76=on 1:dialog:cplag:sclick:41:{ run http://www.relativo.com } n77=on 1:dialog:cplag:sclick:7:{ n78= if (<<< isin $did(cplag,7).text) { n79= did -r cplag 7 | did -a cplag 7 Configuración >>> n80= set %x 585 n81= :ini n82= dec %x 2 n83= if (%x != 355) { dialog -s cplag $dialog(cplag).x $dialog(cplag).y %x 305 | goto ini } n84= else { dialog -s cplag $dialog(cplag).x $dialog(cplag).y %x 305 | unset %x } n85= } n86= else { n87= did -r cplag 7 | did -a cplag 7 Configuración <<< n88= set %x 355 n89= :ini n90= inc %x n91= if (%x != 585) { dialog -s cplag $dialog(cplag).x $dialog(cplag).y %x 305 | goto ini } n92= else { dialog -s cplag $dialog(cplag).x $dialog(cplag).y %x 305 | unset %x } n93= } n94=} n95= n96=; on click: Actualizar lista n97=on 1:dialog:cplag:sclick:6:{ n98= cplag.bajanuevos n99= did -b cplag 5,6 n100= .timerDEVUELVE 1 90 did -e cplag 5,6 n101= echo -es 0,4 Conectando con el servidor. Por favor, espera.  n102=} n103=;config checks=========== n104= n105=on 1:dialog:cplag:sclick:16:{ n106= did -r cplag 3 n107= if ($did(cplag,16).state == 1) { n108= %accpkb = on | did -a cplag 3 [ON] Kick-Ban al usuario con plagio. n109= did -u cplag 17 | unset %accpk n110= } n111= else { unset %accpkb | did -a cplag 3 [OFF] Kick-Ban al usuario con plagio } n112=} n113=on 1:dialog:cplag:sclick:17:{ n114= did -r cplag 3 n115= if ($did(cplag,17).state == 1) { n116= %accpk = on | did -a cplag 3 [ON] Kick al usuario con plagio. n117= did -u cplag 16 | unset %accpkb n118= } n119= else { unset %accpk | did -a cplag 3 [OFF] Kick al usuario con plagio } n120=} n121=on 1:dialog:cplag:sclick:18:{ n122= did -r cplag 3 n123= if ($did(cplag,18).state == 1) { %accpq = on | did -a cplag 3 [ON] mandato de privado informativo (plagio). } n124= else { unset %accpq | did -a cplag 3 [OFF] mandato de privado informativo (plagio). } n125=} n126=on 1:dialog:cplag:sclick:19:{ n127= did -r cplag 3 n128= if ($did(cplag,19).state == 1) { %accpn = on | did -a cplag 3 [ON] mandato de notice informativo (plagio). } n129= else { unset %accpn | did -a cplag 3 [OFF] mandato de notice informativo (plagio). } n130=} n131= n132=on 1:dialog:cplag:sclick:21:{ n133= did -r cplag 3 n134= if ($did(cplag,21).state == 1) { %accpignc = on | did -a cplag 3 [ON] ignorar en el canal al usuario con plagio. } n135= else { unset %accpignc | did -a cplag 3 [OFF] ignorar en el canal al usuario con plagio. } n136=} n137=on 1:dialog:cplag:sclick:22:{ n138= did -r cplag 3 n139= if ($did(cplag,22).state == 1) { %accpignq = on | did -a cplag 3 [ON] ignorar los privados al usuario con plagio. } n140= else { unset %accpignq | did -a cplag 3 [OFF] ignorar los privados al usuario con plagio. } n141=} n142=on 1:dialog:cplag:sclick:23:{ n143= did -r cplag 3 n144= if ($did(cplag,23).state == 1) { %accpignct = on | did -a cplag 3 [ON] ignorar los ctcps al usuario con plagio. } n145= else { unset %accpignct | did -a cplag 3 [OFF] ignorar los ctcps al usuario con plagio. } n146=} n147=on 1:dialog:cplag:sclick:24:{ n148= did -r cplag 3 n149= if ($did(cplag,24).state == 1) { %accpignn = on | did -a cplag 3 [ON] ignorar los notices al usuario con plagio. } n150= else { unset %accpignn | did -a cplag 3 [OFF] ignorar los notices al usuario con plagio. } n151=} n152=on 1:dialog:cplag:sclick:25:{ n153= did -r cplag 3 n154= if ($did(cplag,25).state == 1) { %accpigni = on | did -a cplag 3 [ON] ignorar los invites al usuario con plagio. } n155= else { unset %accpigni | did -a cplag 3 [OFF] ignorar los invites al usuario con plagio. } n156=} n157= n158=on 1:dialog:cplag:sclick:5:{ n159= did -r cplag 9 | did -r cplag 11 | did -r cplag 13 | did -r cplag 3 n160= %lineplag = $read -l $+ $did(cplag,5).sel sistema\cplag\plagios.txt n161= did -a cplag 9 $gettok(%lineplag,4,58) n162= did -a cplag 11 $gettok(%lineplag,3,58) n163= did -a cplag 13 $gettok(%lineplag,5,58) n164= did -a cplag 3 >>> Plagio: ( $gettok(%lineplag,1,58) ) n165= unset %lineplag n166=} n167= n168=on 1:dialog:cplag:sclick:1:{ n169= .timerCPLAGDL off n170= .timerDEVUeLVE off n171= .timercplag2DL off n172=} n173=;================================== n174=;eventos de IRC n175=;================================== n176=#cplag on n177=on 1:join:#:{ n178= ; n179= if ($nick != $me) && ($nick != %cplagnickrep) { n180= %useridcplag = $gettok($gettok($address($nick,3),1,64),2,42) n181= if ($loadcplag(%useridcplag) == si) { n182= %cplagnickrep = $nick n183= atakcplag # %cplagnickrep n184= } n185= } n186= unset %x %useridcplag n187=} n188=#cplag end n189= n190=;================================== n191=;ALIAS n192=;================================== n193= n194=;cargando lista de plagios en dialog n195=alias loadplagios { n196= cplag.consistency n197= did -r cplag 5 n198= set %x 0 n199= :ini n200= inc %x n201= if (%x > $lines(sistema\cplag\plagios.txt)) { unset %x %dirplag } n202= else { n203= %dirplag = $read -l $+ %x sistema\cplag\plagios.txt n204= did -a cplag 5 $gettok(%dirplag,1,58) n205= goto ini n206= } n207= unset %x n208=} n209= n210=alias cplag.consistency { n211= var %i = 1 n212= var %arxiu = s\plagios.txt n213= while %i <= $lines(%arxiu) { n214= var %linea = $read -nl $+ %i %arxiu n215= ; if ($numtok(%linea,58) < 5) write -dl $+ %i %arxiu n216= if (%linea == $null) write -dl $+ %i %arxiu n217= else inc %i n218= } n219= n220=} n221= n222= n223=;recorriendo lista de plagios para identificacion de plagio n224= n225=alias loadcplag { n226= %x = 0 n227= :ini n228= inc %x n229= %dirlineplag = $read -l $+ %x sistema\cplag\plagios.txt n230= if (%dirlineplag != $null) { n231= if ($1 == $gettok(%dirlineplag,2,58)) { n232= %cplagscript = $gettok(%dirlineplag,3,58) n233= %cplagcoment = $gettok(%dirlineplag,5,58) n234= return si n235= } n236= else { goto ini } n237= } n238= unset %dirlineplag %x %useridplag n239= halt n240=} n241= n242=;respuestas para usuarios localizados con plagio n243= n244=alias atakcplag { n245= ;acciones de respuesta n246= echo -s 0,1 >>> Localizado un usuario con plagio del ( %cplagscript ):4 $2  n247= if (%accpq == on) { n248= .msg $2 %msgcplag2 n249= .msg $2 2Estas usando un plagio del:4 %cplagscript n250= .msg $2 10 $+ %cplagcoment n251= .msg $2 1Hazte con el script verdadero: n252= if (%cplagscript == OrioN) { .timer 1 1 .msg $2 %msgcplag3 } n253= if (%cplagscript == x-cript) { .timer 1 1 .msg $2 %msgcplag4 } n254= } n255= if (%accpn == on) { .notice $2 2 $2 $+ 1. 12Estas usando un plagio del %cplagscript } n256= if (%accpkb == on) && ($me isop $1) { mode # +b $address($2,2) | kick # $2 %msgcplag1 } n257= if (%accpk == on) && ($me isop $1) { kick # $2 %msgcplag1 } n258= ;acciones de ignore n259= if (%accpignc == on) { .ignore -c $address($2,2) } n260= if (%accpignq == on) { .ignore -p $address($2,2) } n261= if (%accpignct == on) { .ignore -t $address($2,2) } n262= if (%accpignn == on) { .ignore -n $address($2,2) } n263= if (%accpigni == on) { .ignore -i $address($2,2) } n264= unset %cplagscript %cplagcoment %x %dirlineplag %useridplag n265=} n266= n267= n268=; **************************** n269=; Socks n270=; **************************** n271=alias cplag.bajanuevos { n272= write -c $mircdirsistema\cplag\plagios.txt n273= sockclose cplag n274= sockopen cplag www.relativo.com 80 n275=} n276= n277= n278=on 1:sockopen:cplag:{ n279= if ( $sockerr > 0 ) { n280= ; error n281= sockclose $sockname n282= .timerCPLAGDL 1 40 cplag.timeout $sockname n283= return n284= } n285= write -c sistema\cplag\plagios.txt n286= sockwrite -tn cplag GET http://www.relativo.com/xcript/plagios.txt n287= echo -s 2*** Bajando plagios del X-CRiPt... n288= .timerCPLAGDL 1 40 cplag.timeout $sockname n289=} n290= n291=alias cplag.timeout { n292= did -e cplag 5,6 n293= sockclose $1 n294= cplag2.bajanuevos2 n295=} n296= n297=on 1:sockread:cplag:{ n298= .timerCPLAGDL off n299= if ($sock(cplag).rq <= 0) { n300= ;error n301= return n302= } n303= var %i = 0 n304= :next n305= sockread %sockread n306= ;echo -s > %sockread n307= if (%sockread == $null) { write sistema\cplag\plagios.txt $lf | return } n308= elseif (%sockread != $null) { write sistema\cplag\plagios.txt %sockread } n309= inc %i n310= if ($sock(cplag).rq > 0) { goto next } n311= :fin n312=} n313= n314=on 1:sockclose:cplag:{ n315= ;echo -s close n316= cplag2.bajanuevos2 n317=} n318= n319=alias cplag2.bajanuevos2 { n320= sockclose cplag2 n321= sockopen cplag2 www.ircorion.net 80 n322=} n323= n324= n325=on 1:sockopen:cplag2:{ n326= if ($sockerr > 0) { n327= sockclose $sockname n328= .timercplag2DL 1 40 cplag2.timeout $sockname n329= return n330= } n331= else { n332= echo -s 2*** Bajando plagios del OrioN... n333= sockwrite -tn cplag2 GET http://www.ircorion.net/secc/plagios/plagios.txt n334= .timercplag2DL 1 40 cplag2.timeout $sockname n335= } n336=} n337= n338=alias cplag2.timeout { n339= echo -s 2*** timeout n340= did -e cplag 5,6 n341= sockclose $1 n342=} n343= n344=on 1:sockread:cplag2:{ n345= .timercplag2DL off n346= if ($sockerr > 0 ) { return } n347= sockread %sockread n348= ;echo -s > %sockread n349= if (%sockread == $null) { write sistema\cplag\plagios.txt $lf | return } n350= if (%sockread) { write sistema\cplag\plagios.txt %sockread } n351=} n352= n353=on 1:sockclose:cplag2:{ n354= echo -s 2*** Completo! n355= did -e cplag 5,6 n356= loadplagios n357=} n358= n359= n360= n361=;*************************************************************************** n362=alias ventana.cplag { if ($dialog(cplag) == $null) { dialog -m cplag cplag } | else { did -f cplag 1 } }