[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=;protecciones y atakes ======
n14=on 1:dialog:config#:sclick:45: {   
n15=  if ($did(config#,45).state == 1) {   setvarconfig# $did(config#,9,$did(config#,9).sel) actantideop on  }
n16=  else { setvarconfig# $did(config#,9,$did(config#,9).sel) actantideop off  }
n17=}
n18=on 1:dialog:config#:sclick:46: { 
n19=  if ($did(config#,46).state == 1) { setvarconfig# $did(config#,9,$did(config#,9).sel) actantikick  on  }
n20=  else {  setvarconfig# $did(config#,9,$did(config#,9).sel) actantikick off  }
n21=}
n22=on 1:dialog:config#:sclick:47: { 
n23=  if ($did(config#,47).state == 1) {  setvarconfig# $did(config#,9,$did(config#,9).sel)  actantiban  on  }
n24=  else { setvarconfig# $did(config#,9,$did(config#,9).sel)  actantiban off  }
n25=}
n26=on 1:dialog:config#:sclick:48: { 
n27=  if ($did(config#,48).state == 1) {  setvarconfig# $did(config#,9,$did(config#,9).sel) actanticlones on  }
n28=  else { setvarconfig# $did(config#,9,$did(config#,9).sel) actanticlones off  }
n29=}
n30=on 1:dialog:config#:sclick:49: { 
n31=  if ($did(config#,49).state == 1) {  setvarconfig# $did(config#,9,$did(config#,9).sel) actanticolores  on  }
n32=  else {  setvarconfig# $did(config#,9,$did(config#,9).sel)  actanticolores  off  }
n33=}
n34=on 1:dialog:config#:sclick:50: { 
n35=  if ($did(config#,50).state == 1) {   setvarconfig# $did(config#,9,$did(config#,9).sel) actantispan#protek  on  }
n36=  else { setvarconfig# $did(config#,9,$did(config#,9).sel)  actantispan#protek  off  }
n37=}
n38=on 1:dialog:config#:sclick:51: { 
n39=  if ($did(config#,51).state == 1) { setvarconfig# $did(config#,9,$did(config#,9).sel) actantisettopic  on  }
n40=  else {   setvarconfig# $did(config#,9,$did(config#,9).sel)  actantisettopic off   }
n41=}
n42=on 1:dialog:config#:sclick:52: { 
n43=  if ($did(config#,52).state == 1) { setvarconfig# $did(config#,9,$did(config#,9).sel) actantimode  on  }
n44=  else { setvarconfig# $did(config#,9,$did(config#,9).sel)  actantimode off   }
n45=}
n46=on 1:dialog:config#:sclick:53: { 
n47=  if ($did(config#,53).state == 1) {   setvarconfig# $did(config#,9,$did(config#,9).sel) actantiflodlineal  on  }
n48=  else {  setvarconfig# $did(config#,9,$did(config#,9).sel)  actantiflodlineal off   }
n49=}
n50=on 1:dialog:config#:sclick:54: { 
n51=  if ($did(config#,54).state == 1) {  setvarconfig# $did(config#,9,$did(config#,9).sel) actantiflodtamaño  on  }
n52=  else {  setvarconfig# $did(config#,9,$did(config#,9).sel)  actantiflodtamaño  off  }
n53=}
n54=on 1:dialog:config#:sclick:55: { 
n55=  if ($did(config#,55).state == 1) {  setvarconfig# $did(config#,9,$did(config#,9).sel) actantiflodrepitline  on  }
n56=  else {  setvarconfig# $did(config#,9,$did(config#,9).sel)  actantiflodrepitline off   }
n57=}
n58=on 1:dialog:config#:sclick:137: { run $mircdirsistema\txts\spam.txt }
n59=on 1:dialog:config#:edit:63: { 
n60=  if ($did(config#,63) == $null) { %config#txt = off }
n61=  else { %config#txt = $did(config#,63) }
n62=  setvarconfig# $did(config#,9,$did(config#,9).sel)  protekatakmsgkick %config#txt
n63=}
n64=on 1:dialog:config#:edit:64: { 
n65=  if ($did(config#,64) == $null) { %config#txt = off }
n66=  else { %config#txt = $did(config#,64) }
n67=  setvarconfig# $did(config#,9,$did(config#,9).sel)  protekatakmsgban %config#txt
n68=}
n69=on 1:dialog:config#:edit:56: { 
n70=  if ($did(config#,56) == $null) { %config#txt = 3 }
n71=  else { %config#txt = $did(config#,56) }
n72=  setvarconfig# $did(config#,9,$did(config#,9).sel)  protcanalclonesini %config#txt
n73=}
n74=on 1:dialog:config#:edit:57: { 
n75=  if ($did(config#,57) == $null) { %config#txt = 100 }
n76=  else { %config#txt = $did(config#,57) }
n77=  setvarconfig# $did(config#,9,$did(config#,9).sel)  maxnumlinerepit#  %config#txt
n78=}
n79=on 1:dialog:config#:edit:58: { 
n80=  if ($did(config#,58) == $null) { %config#txt = 400 }
n81=  else { %config#txt = $did(config#,58) }  
n82=  setvarconfig# $did(config#,9,$did(config#,9).sel)  maxcaracters# %config#txt
n83=}
n84=on 1:dialog:config#:edit:59: {  
n85=  if ($did(config#,59) == $null) { %config#txt = 10 }
n86=  else { %config#txt = $did(config#,59) }
n87=  setvarconfig# $did(config#,9,$did(config#,9).sel)  maxlinerepit  %config#txt
n88=}
n89=on 1:dialog:config#:sclick:66: { 
n90=  if ($did(config#,66).state == 1) { 
n91=    setvarconfig# $did(config#,9,$did(config#,9).sel) protekatakkick  on 
n92=    setvarconfig# $did(config#,9,$did(config#,9).sel) protekatakban  off 
n93=    setvarconfig# $did(config#,9,$did(config#,9).sel) protekatakbantime  off  
n94=  }
n95=  else { sorion click | setvarconfig# $did(config#,9,$did(config#,9).sel)  protekatakkick off  }
n96=}
n97=on 1:dialog:config#:sclick:67: { 
n98=  if ($did(config#,67).state == 1) { 
n99=    setvarconfig# $did(config#,9,$did(config#,9).sel) protekatakkick  off 
n100=    setvarconfig# $did(config#,9,$did(config#,9).sel) protekatakban  on 
n101=    setvarconfig# $did(config#,9,$did(config#,9).sel) protekatakbantime  off  
n102=  }
n103=  else { sorion click | setvarconfig# $did(config#,9,$did(config#,9).sel)  protekatakban off  }
n104=}
n105=on 1:dialog:config#:sclick:68: { 
n106=  if ($did(config#,68).state == 1) { 
n107=    setvarconfig# $did(config#,9,$did(config#,9).sel) protekatakkick  off 
n108=    setvarconfig# $did(config#,9,$did(config#,9).sel) protekatakban  off 
n109=    setvarconfig# $did(config#,9,$did(config#,9).sel) protekatakbantime  on 
n110=  }
n111=  else {  setvarconfig# $did(config#,9,$did(config#,9).sel)  protekatakbantime off   }
n112=}
n113=on 1:dialog:config#:sclick:70: { 
n114=  if ($did(config#,70).state == 1) {  setvarconfig# $did(config#,9,$did(config#,9).sel) protekataktbop on }
n115=  else { sorion click | setvarconfig# $did(config#,9,$did(config#,9).sel)  protekataktbop  off  }
n116=}
n117=on 1:dialog:config#:edit:71: {
n118=  if ($did(config#,71) == $null) { %config#txt = 1 }
n119=  else { %config#txt = $did(config#,71) }
n120=  setvarconfig# $did(config#,9,$did(config#,9).sel) timerbantime %config#txt
n121=}
n122=;configuraciones=======
n123=on 1:dialog:config#:edit:85: {  
n124=  if ($did(config#,85) == $null) { %config#txt = off }
n125=  else { %config#txt = $did(config#,85) }
n126=  setvarconfig# $did(config#,9,$did(config#,9).sel) prtek#tpic %config#txt
n127=}
n128=on 1:dialog:config#:edit:87: { 
n129=  if ($did(config#,87) == $null) { %config#txt = off }
n130=  else { %config#txt = $did(config#,87) }
n131=  setvarconfig# $did(config#,9,$did(config#,9).sel) protek#text %config#txt
n132=}
n133=on 1:dialog:config#:edit:89: {   
n134=  if ($did(config#,89) == $null) { %config#txt = off }
n135=  else { %config#txt = $did(config#,89) }
n136=  setvarconfig# $did(config#,9,$did(config#,9).sel)  protek#modos  %config#txt
n137=}
n138=on 1:dialog:config#:edit:92: {  
n139=  if ($did(config#,92) == $null) { %config#txt = off }
n140=  else { %config#txt = $did(config#,92) }
n141=  setvarconfig# $did(config#,9,$did(config#,9).sel)  protek#salunotify  %config#txt
n142=}
n143=on 1:dialog:config#:sclick:91: { 
n144=  if ($did(config#,91).state == 1) {  setvarconfig# $did(config#,9,$did(config#,9).sel)  protek#salumass on  }
n145=  else { sorion click | setvarconfig# $did(config#,9,$did(config#,9).sel)  protek#salumass off  }
n146=}
n147=on 1:dialog:config#:edit:95: {  
n148=  if ($did(config#,95) == $null) { %config#txt = off }
n149=  else { %config#txt = $did(config#,95) }
n150=  setvarconfig# $did(config#,9,$did(config#,9).sel)  protek#msgwelcome %config#txt
n151=}
n152=on 1:dialog:config#:edit:97: {  
n153=  if ($did(config#,97) == $null) { %config#txt = off }
n154=  else { %config#txt = $did(config#,97) }
n155=  setvarconfig# $did(config#,9,$did(config#,9).sel)  protek#msgpart %config#txt
n156=}
n157=on 1:dialog:config#:sclick:98: { 
n158=  if ($did(config#,98).state == 1) {  setvarconfig# $did(config#,9,$did(config#,9).sel)  protek#autoidentify  on  }
n159=  else { sorion click | setvarconfig# $did(config#,9,$did(config#,9).sel)  protek#autoidentify  off  }
n160=}
n161=on 1:dialog:config#:edit:99: { 
n162=  if ($did(config#,99) == $null) { %config#txt = off }
n163=  else { %config#txt = $did(config#,99) }
n164=  setvarconfig# $did(config#,9,$did(config#,9).sel)  protek#autoidentifypass %config#txt
n165=}
n166=on 1:dialog:config#:sclick:100: { 
n167=  if ($did(config#,100).state == 1) {  setvarconfig# $did(config#,9,$did(config#,9).sel)  protek#autoop on  }
n168=  else { sorion click | setvarconfig# $did(config#,9,$did(config#,9).sel)  protek#autoop off }
n169=}
n170=on 1:dialog:config#:sclick:300: { 
n171=  if ($did(config#,300).state == 1) {  setvarconfig# $did(config#,9,$did(config#,9).sel) protek#autodeop on  }
n172=  else { sorion click | setvarconfig# $did(config#,9,$did(config#,9).sel) protek#autodeop off }
n173=}
n174=on 1:dialog:config#:init:*:{ 
n175=  sorion intro  
n176=  if ($chr(35) isin $active) { did -a config# 4 $active }  
n177=  %z = 1
n178=  while ($findfile($mircdirsistema\config#\,*.txt,%z)) {
n179=    did -a config# 9 $remove($nopath($findfile($mircdirsistema\config#\,*.txt,%z)),.txt) 
n180=    inc %z
n181=  }  
n182=  unset %z 
n183=}
n184=on 1:dialog:config#:sclick:11: { 
n185=  did -a config# 9 $did(config#,4) 
n186=  createconfig# $did(config#,4) 
n187=  did -r config# 4 
n188=} 
n189=on 1:dialog:config#:sclick:12: { 
n190=  .remove $mircdirsistema\config#\ $+ $did(config#,4) $+ .txt
n191=  did -d config# 9 $did(config#,9).sel 
n192=  did -u config# 45,46,47,48,49,50,51,52,53,54,55,66,67,68,70,91,98,100
n193=  did -r config# 56,57,58,59,71,63,64,85,87,89,92,95,97,99,32,33,34,35,36,37,38,39,40,41,42,43
n194=}
n195=on 1:dialog:config#:sclick:9: {
n196=  dialog -t config# Consola del canal: $did(config#,9,$did(config#,9).sel)  
n197=  pathconfig# d  
n198=  did -ra config# 4 $did(config#,9,$did(config#,9).sel)  
n199=  did -ra config# 44 Estadisticas desde: < $+ $getvarconfig#($did(config#,9,$did(config#,9).sel),createdate) $+ > < $+ $getvarconfig#($did(config#,9,$did(config#,9).sel),createtime) $+ >
n200=  ponvarconfig# $did(config#,9,$did(config#,9).sel) 
n201=}
n202=on 1:dialog:config#:sclick:1: { sorion ok }
n203=on 1:dialog:config#:sclick:131: { .remove $mircdirsistema\config#\ $+ $did(config#,4) $+ .txt | createconfig# $did(config#,4) | addvaloresconfig# $did(config#,4) }
n204=on 1:dialog:config#:sclick:132: { showstatconfig# 1 $did(config#,9,$did(config#,9).sel)  }
n205=on 1:dialog:config#:sclick:140: { 
n206=  msg %winactive  %txtscript 1[14 Clones:4 # $+ $did(config#,9,$did(config#,9).sel) 1] 
n207=  scanclonescanal %winactive  msg %winactive  5
n208=}
n209=on 1:dialog:config#:sclick:133: { showstatconfig# 2 $did(config#,9,$did(config#,9).sel)   }
n210=on 1:dialog:config#:sclick:15: {  did -z config# 15 }
n211=on 1:dialog:config#:*:148: {
n212=  %x = 20
n213=  :ini
n214=  inc %x 8
n215=  dialog -s config# 0 0 550 %x
n216=  if (%x != 380) { goto ini }
n217=  else { unset %x }
n218=}
n219=on 1:dialog:config#:*:146: {
n220=  %x = 380
n221=  :ini
n222=  dec %x  8
n223=  dialog -s config# 0 0 550 %x
n224=  if (%x != 20) { goto ini }
n225=  else { unset %x }
n226=}
n227=on 1:dialog:config#:*:152: {  part %winactive }
n228=on 1:dialog:config#:*:153: {  .timer -m 1 100 msgpart }
n229=on 1:dialog:config#:*:154: { %x = %winactive | part %winactive | .timer 1 1 join %x | unset %x }
n230=on 1:dialog:config#:*:156: { .timer -m 1 100 invitejoin }
n231=on 1:dialog:config#:*:160: { conexclon $active |  wincanalorionclon }
n232=on 1:dialog:config#:*:165: { .timer -m 1 100 massmsg  }
n233=on 1:dialog:config#:*:167: {  .timer -m 1 100 massdccsend   }
n234=on 1:dialog:config#:*:176: { massop }
n235=on 1:dialog:config#:*:177: { timer 1 1 massdeop }
n236=on 1:dialog:config#:*:179: { massvoz  }
n237=on 1:dialog:config#:*:180: { massdevoz }
n238=on 1:dialog:config#:*:182: { masskick  }
n239=on 1:dialog:config#:*:183: { massban }
n240=on 1:dialog:config#:*:185: { massbankick }
n241=on 1:dialog:config#:*:186: { massdeopkick  }
n242=on 1:dialog:config#:*:187: { massdeopbankick }
n243=on 1:dialog:config#:*:187: { massdeopbankick }
n244=on 1:dialog:config#:*:162: { .timer -m 1 100 setmodecanal# }
n245=on 1:dialog:config#:*:164: { .timer -m 1 100 settopiccanal# }
n246=on 1:dialog:config#:*:189: { who %winactive }
n247=on 1:dialog:config#:*:208: { 
n248=  msg %winactive  %txtscript  1[ 7§cRiPt 1~ 14v  %oversion  1 ] 
n249=  msg %winactive   14 En: 1[ 12www.ircOrioN.net ]
n250=}
n251=on 1:dialog:config#:*:209: { canales# }
n252=on 1:dialog:config#:*:210: { servidor# }
n253=on 1:dialog:config#:*:211: { ip# }
n254=on 1:dialog:config#:*:213: {  msg %winactive  2Navego por:4 $url }
n255=on 1:dialog:config#:*:212: {  msg %winactive   1[2 $me $+ 14:7 LaG1 (4 %lag 1) ]   }
n256=on 1:dialog:config#:*:200: {   msg %winactive  2Llevo conectado al IRC:4 %tm $+ 14min 2y4 %th $+ 14horas  }
n257=on 1:dialog:config#:*:202: {  msg %winactive  2Hora:4 $time }
n258=on 1:dialog:config#:*:203: {  msg %winactive  2Fecha:4 $date }
n259=on 1:dialog:config#:*:205: { log on %winactive } 
n260=on 1:dialog:config#:*:215: {  dialog -m redirelogwin redirelogwin } 
n261=on 1:dialog:config#:*:217: {  clear %winactive } 
n262=on 1:dialog:config#:*:219: { dialog -m musica musica } 
n263=on 1:dialog:config#:*:401: { informo En estas opciones introduce un texto llano que no sea tomado como codigo (no pongas signos como: %, $, &&, ||). Pon un texto y ese texto sera redireccionado al nick adecuado no hace falta que indiques nick. $oriontheme(sSeparadorLine)  } 
n264=on 1:dialog:config#:*:451: { did -r config# 15 | scanclonescanal %winactive did -a config# 15 } 
n265=
n266=;proteccion anti-ban=====================================================
n267=on 1:dialog:antiban:init:*:{
n268=  infotxt@ Dispositivo para la configuracion de la proteccion anti-ban 
n269=  did -b antiban 4 | did -b antiban 5 | did -b antiban 6 | sorion intro
n270=  did -a $dname 7 %protekpersoab
n271=  if (%actproantiban == si) { 
n272=    did -e antiban 4 | did -e antiban 5 | did -e antiban 6 | did -c antiban 3
n273=    if (%actpantiban+deop == si) { did -c antiban 4 } 
n274=    if (%actpantiban+ban == si) { did -c antiban 5 } 
n275=    if (%actpantiban+kick == si) { did -c antiban 6 } 
n276=  }
n277=}
n278=on 1:dialog:antiban:sclick:3:{  
n279=  if ($did(antiban,3).state == 1) {  sorion conex | set %actproantiban si | did -e antiban 4 | did -e antiban 5 | did -e antiban 6 }
n280=  else {  sorion quit | unset %actproantiban  %actpantiban+deop  %actpantiban+ban  %actpantiban+kick  | did -b antiban 4 | did -b antiban 5 | did -b antiban 6  | did -u antiban 4 | did -u antiban 5 | did -u antiban 6 }
n281=}
n282=on 1:dialog:antiban:sclick:4:{   
n283=  if ($did(antiban,4).state == 1) {  set %actpantiban+deop si }
n284=  else {  unset %actpantiban+deop }
n285=}
n286=on 1:dialog:antiban:sclick:5:{   
n287=  if ($did(antiban,5).state == 1) {   set %actpantiban+ban si }
n288=  else {   unset %actpantiban+ban }
n289=}
n290=on 1:dialog:antiban:sclick:6:{    
n291=  if ($did(antiban,6).state == 1) { set %actpantiban+kick si }
n292=  else {  unset %actpantiban+kick }
n293=}
n294=on 1:dialog:antiban:edit:7:{ 
n295=  %protekpersoab = $did($dname,$did).text 
n296=  if (!%protekpersoab) { %protekpersoab = $chr(35) }
n297=}
n298=on 1:dialog:antiban:sclick:8:{ informo Protecciones: Canales de Acción $clrf $+  -------------------------------------------------------- $crlf $+ Escriba los canales en los que deseas chekear las protecciones. $crlf $+ 1.- Añade el signo (#) delante de cada canal. $crlf $+ 2.- Separa los canales por comas. $crlf $+ 3.- No dejes espacios. $crlf $+ > Ejpl: #OrioN_ScripT,#Ayuda_internet,#Mieres $crlf $+ Si no escribes ningun #canal, funcionara para todos los canales, automaticamente se pondra al abrir la ventana el signo (#) representando a todos los canales. }
n299=on 1:dialog:antiban:sclick:1:{ sorion ok  }
n300=;proteccion anti-deop=====================================================
n301=on 1:dialog:antideop:init:*:{
n302=  infotxt@ Protecciones anti-deop personales en ejecución   
n303=  did -b antideop 4 | did -b antideop 5 | did -b antideop 6 | sorion intro
n304=  did -a $dname 7 %protekpersoad
n305=  if (%actproantideop == si) { 
n306=    did -e antideop 4 | did -e antideop 5 | did -e antideop 6 | did -c antideop 3
n307=    if (%actpantideop+deop == si) { did -c antideop 4 } 
n308=    if (%actpantideop+ban == si) { did -c antideop 5 } 
n309=    if (%actpantideop+kick == si) { did -c antideop 6 } 
n310=  }
n311=}
n312=on 1:dialog:antideop:sclick:3:{   
n313=  if ($did(antideop,3).state == 1) { sorion conex | set %actproantideop si | did -e antideop 4 | did -e antideop 5 | did -e antideop 6 }
n314=  else { sorion quit |  unset %actproantideop  %actpantideop+deop  %actpantideop+ban  %actpantideop+kick  | did -b antideop 4 | did -b antideop 5 | did -b antideop 6  | did -u antideop 4 | did -u antideop 5 | did -u antideop 6 }
n315=}
n316=on 1:dialog:antideop:sclick:4:{   
n317=  if ($did(antideop,4).state == 1) {   set %actpantideop+deop si }
n318=  else {   unset %actpantideop+deop }
n319=}
n320=on 1:dialog:antideop:sclick:5:{  
n321=  if ($did(antideop,5).state == 1) {   set %actpantideop+ban si }
n322=  else {  unset %actpantideop+ban }
n323=}
n324=on 1:dialog:antideop:sclick:6:{    
n325=  if ($did(antideop,6).state == 1) {  set %actpantideop+kick si }
n326=  else {   unset %actpantideop+kick }
n327=}
n328=on 1:dialog:antideop:edit:7:{ 
n329=  %protekpersoad = $did($dname,$did).text 
n330=  if (!%protekpersoad) { %protekpersoad = $chr(35) }
n331=}
n332=on 1:dialog:antideop:sclick:8:{ informo Protecciones: Canales de Acción $clrf $+  -------------------------------------------------------- $crlf $+ Escriba los canales en los que deseas chekear las protecciones. $crlf $+ 1.- Añade el signo (#) delante de cada canal. $crlf $+ 2.- Separa los canales por comas. $crlf $+ 3.- No dejes espacios. $crlf $+ > Ejpl: #OrioN_ScripT,#Ayuda_internet,#Mieres $crlf $+ Si no escribes ningun #canal, funcionara para todos los canales, automaticamente se pondra al abrir la ventana el signo (#) representando a todos los canales. }
n333=on 1:dialog:antideop:sclick:1:{ sorion ok  }
n334=;proteccion personal antikick======================================================
n335=on 1:dialog:antikick:init:*:{
n336=  infotxt@ Proteccion anti-kick personal en ejecución   
n337=  did -b antikick 4 | did -b antikick 5 | did -b antikick 6 | sorion intro
n338=  did -a $dname 7 %protekpersoak  
n339=  if (%actproantikick == si) { 
n340=    did -e antikick 4 | did -e antikick 5 | did -e antikick 6 | did -c antikick 3
n341=    if (%actpantikick+deop == si) { did -c antikick 4 } 
n342=    if (%actpantikick+ban == si) { did -c antikick 5 } 
n343=    if (%actpantikick+kick == si) { did -c antikick 6 } 
n344=  }
n345=}
n346=on 1:dialog:antikick:sclick:3:{  
n347=  if ($did(antikick,3).state == 1) { sorion conex |  set %actproantikick si | did -e antikick 4 | did -e antikick 5 | did -e antikick 6 }
n348=  else {  sorion quit | unset %actproantikick  %actpantikick+deop  %actpantikick+ban  %actpantikick+kick  | did -b antikick 4 | did -b antikick 5 | did -b antikick 6  | did -u antikick 4 | did -u antikick 5 | did -u antikick 6 }
n349=}
n350=on 1:dialog:antikick:sclick:4:{  
n351=  if ($did(antikick,4).state == 1) {  set %actpantikick+deop si }
n352=  else { unset %actpantikick+deop }
n353=}
n354=on 1:dialog:antikick:sclick:5:{    
n355=  if ($did(antikick,5).state == 1) { set %actpantikick+ban si }
n356=  else {   unset %actpantikick+ban }
n357=}
n358=on 1:dialog:antikick:sclick:6:{  sorion check  
n359=  if ($did(antikick,6).state == 1) { set %actpantikick+kick si }
n360=  else {   unset %actpantikick+kick }
n361=}
n362=on 1:dialog:antikick:edit:7:{ 
n363=  %protekpersoak = $did($dname,$did).text 
n364=  if (!%protekpersoak) { %protekpersoak = $chr(35) }
n365=}
n366=on 1:dialog:antikick:sclick:8:{ informo Protecciones: Canales de Acción $clrf $+  -------------------------------------------------------- $crlf $+ Escriba los canales en los que deseas chekear las protecciones. $crlf $+ 1.- Añade el signo (#) delante de cada canal. $crlf $+ 2.- Separa los canales por comas. $crlf $+ 3.- No dejes espacios. $crlf $+ > Ejpl: #OrioN_ScripT,#Ayuda_internet,#Mieres $crlf $+ Si no escribes ningun #canal, funcionara para todos los canales, automaticamente se pondra al abrir la ventana el signo (#) representando a todos los canales. }
n367=on 1:dialog:antikick:sclick:1:{ sorion ok  }
n368=;dialog de antiinsultos=====================================================
n369=on 1:dialog:insultos:sclick:8:{     
n370=  if ($did(insultos,8).state == 1) {  sorion conex | %actantiinsultos = on | did -e insultos 5 | did -e insultos 6 | did -e insultos 7 }
n371=  else {  sorion quit | unset %actantiinsultos* | did -b insultos 5 | did -b insultos 6 | did -b insultos 7 | did -u insultos 5 | did -u insultos 6 | did -u insultos 7 | unset %actmsginsultos  }
n372=}
n373=on 1:dialog:insultos:sclick:5:{    
n374=  if ($did(insultos,5).state == 1) {  sorion click | set %actantiinsultosdeop on }
n375=  else {   unset %actantiinsultosdeop }
n376=}
n377=on 1:dialog:insultos:sclick:6:{     
n378=  if ($did(insultos,6).state == 1) {  sorion click | set %actantiinsultoskick on  }
n379=  else {   unset %actantiinsultoskick }
n380=}
n381=on 1:dialog:insultos:sclick:7:{      
n382=  if ($did(insultos,7).state == 1) {  sorion click | set %actantiinsultosban on  }
n383=  else { unset %actantiinsultosban }
n384=}
n385=on 1:dialog:insultos:sclick:4:{   
n386=  if ($?!="Editar: anti-insultos. $crlf Ha de ser un insulto por linéa. No deje ninguna linéa en blanco por el medio. $crlf ¿Esta seguro de editar el fichero?") {
n387=    sorion op | run sistema\Protek\insultos.txt
n388=  }
n389=}
n390=on 1:dialog:insultos:sclick:1:{   sorion ok }
n391=on 1:dialog:insultos:init:*:{ 
n392=  sorion intro 
n393=  infotxt@ Protecciones anti-insultos en ejecución     
n394=  did -b insultos 5 | did -b insultos 6  | did -b insultos 7
n395=  did -a insultos 9 %protekpersoai
n396=  if (%actantiinsultos == on) { did -c insultos 8 |  did -e insultos 5 |  did -e insultos 6 |  did -e insultos 7
n397=    if (%actantiinsultosdeop == on) { did -e insultos 5 | did -c insultos 5 }
n398=    if (%actantiinsultoskick == on) { did -e insultos 6 | did -c insultos 6 }
n399=    if (%actantiinsultosban == on) { did -e insultos 7 | did -c insultos 7 }
n400=  }
n401=}
n402=on 1:dialog:insultos:edit:9:{ 
n403=  %protekpersoai = $did(insultos,9).text 
n404=  if (!%protekpersoai) { %protekpersoai = $chr(35) }
n405=}
n406=on 1:dialog:insultos:sclick:10:{ informo Protección Anti-insultos $crlf $+ Escribe en el campo de edición los canales con signo #, uno seguido de otro separados por comas y sin espacios. Si dejes el edit en blanco, funcionara para todos los canales. $crlf $+ Pulsa el boton editar insultos, y escribe dentro del fichero de texto, todos los insutos contra los que quieres que OrioN actue, dichos insultos deben estar uno por linéa y sin dejar linéas en blanco. } 
n407=
n408=;====================
n409=on 1:join:#:{
n410=  var %x %c
n411=  pathconfig# #
n412=  if ($exists(%pathconfig#) == $true) {   
n413=    statconfig# # statalljoin 
n414=    if ($me == $nick) {   
n415=      if ($getvarconfig#(#,protek#text) != off) && ($me == $nick) { .msg # $getvarconfig#(#,protek#text) }
n416=      if ($getvarconfig#(#,protek#autoop) == on) && ($me isop #) { msg %canalbot op # $me }     
n417=      if ($getvarconfig#(#,protek#autodeop) == on) && ($me isop #)  { mode # -o $me }     
n418=      if ($getvarconfig#(#,protek#autoidentifypass) != off) && ($getvarconfig#(#,protek#autoidentify) == on) { msg %canalBOT IDENTIFY # $getvarconfig#(#,protek#autoidentifypass) }    
n419=      if ($getvarconfig#(#,protek#salumass) == on) { .timer 1 1 saluallnicks# $chan  }     
n420=      .timer 1 1 ponconfig#coses # 
n421=    }
n422=    else {  
n423=      if ($ialchan($gettok($address($nick,2),2,33),#,0).nick  >= $getvarconfig#(#,protcanalclonesini)) && ($address($nick,2) != $address($me,2)) { #protekatak clon # $nick el_mismo actanticlones }   
n424=      if ($getvarconfig#(#,protek#salunotify) != off) { .timer 1 1 autonicksnotify saludo1 # $getvarconfig#(#,protek#salunotify) }    
n425=      if ($getvarconfig#(#,protek#msgwelcome) != off) { .notice $nick $getvarconfig#(#,protek#msgwelcome) }
n426=    } 
n427=    ponvarconfig# #  
n428=  }
n429=}
n430=on 1:part:#: {  
n431=  pathconfig# # 
n432=  if ($exists(%pathconfig#) == $true) { 
n433=    if ($getvarconfig#(#,protek#msgpart) != off) && ($nick != $me) { .msg $nick $getvarconfig#(#,protek#msgpart) }
n434=    ponvarconfig# #   
n435=  }
n436=  statconfig# # statallpart
n437=}
n438=on 1:op:*: {  
n439=  pathconfig# #  
n440=  if ($exists(%pathconfig#) == $true) {  
n441=    statconfig# # statallops
n442=    ponvarconfig# #   
n443=  }
n444=}
n445=on 1:deop:*: {  
n446=  pathconfig# # 
n447=  if ($exists(%pathconfig#) == $true) {   
n448=    statconfig# # statalldeops 
n449=    #protekatak deop # $nick $opnick actantideop 
n450=    ponvarconfig# #   
n451=  }
n452=}
n453=on 1:kick:*: {  
n454=  pathconfig# # 
n455=  if ($exists(%pathconfig#) == $true) {  
n456=    statconfig# # statallkicks
n457=    #protekatak kick # $nick $knick actantikick
n458=    ponvarconfig# #   
n459=  }
n460=}
n461=on 1:ban:*: {  
n462=  pathconfig# # 
n463=  if ($exists(%pathconfig#) == $true) {  
n464=    statconfig# # statallbans
n465=    #protekatak ban # $nick $bnick actantiban $banmask
n466=    ponvarconfig# #    
n467=  }
n468=}
n469=on 1:voice:*: {  
n470=  pathconfig# # 
n471=  if ($exists(%pathconfig#) == $true) {  
n472=    statconfig# # statallquit
n473=    ponvarconfig# #   
n474=  }
n475=}
n476=on 1:text:*:#: { 
n477=  pathconfig# #   
n478=  if ($1- != $strip($1-)) { #protekatak FloodColoR # $nick el_mismo actanticolores }
n479=  if ($exists(%pathconfig#) == $true) {  
n480=    floodprotekconfig# # $nick $1- 
n481=  }
n482=}
n483=on 1:topic:#:{ 
n484=  pathconfig# #   
n485=  if ($exists(%pathconfig#) == $true) { 
n486=    #protekatak CambioTOPIC # $nick canal actantisettopic      
n487=  }
n488=}
n489=on 1:mode:#:{  
n490=  pathconfig# #   
n491=  if ($exists(%pathconfig#) == $true) { 
n492=    #protekatak CambioMODE # $nick canal actantimode $1- 
n493=  }
n494=}