[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 } }