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