eGuard.tcl

Sentencia TCL
PeLL
Mensajes: 3
Registrado: 16 Oct 2019, 23:43

eGuard.tcl

Mensaje por PeLL »

eGuard
Esta tcl está 100% diseñada por el maestro Sentencia .

Control de canales a base de setings personalizados.

Código: Seleccionar todo

#_______________________________________________________.
#                       _                           	|
#                      | |                          	|
#   ___  __ _  __ _  __| |_ __ ___  _ __   ___  ___ 	|
#  / _ \/ _` |/ _` |/ _` | '__/ _ \| '_ \ / _ \/ __|	|
# |  __/ (_| | (_| | (_| | | | (_) | |_) |  __/\__ \	|
#  \___|\__, |\__, |\__,_|_|  \___/| .__(_)___||___/	|
#        __/ | __/ |               | |              	|
#       |___/ |___/                |_|              	|
#														|
# Autor,												|
# Sentencia, #eggdrop @ irc.chathispano.com 			|
#							  Agosto de 2014			|
# ______________________________________________________|
# Este script está hecho enteramente (lo que es humanamente editable) en Español
# para eggdrop.es y el buen uso que le puedas dar en tu canal de tu red. 
# Recuerda que la única descarga válida es desde http://eggdrop.es, así evitarás
# que una copia de este script con el código modificado pueda vulnerar la
# estabilidad de tu eggdrop.
#
# Este script se distribuye "así como es", sin garantía de ningún tipo. Utiliza
# este software bajo tu riesgo.
#

namespace eval eGuard {

	variable settings
	variable Events
	array set Events {
		JOIN {reban akick maxclone flood-join}
		PART {spam}
		NEWNICK {reban flood-nick}
		PRIVMSG {cap colors cervantes spam helper repeat flood-msg}
		CTCP {flood-ctcp}
	}
	# Setting --
	# 	Una manera fresca de guardar la scripturación del script sin tener
	#	que escribir un fichero con los datos.
	#	Se crea un setudef str llamado script_script y ahí se guarda la
	#	scripturación global, y después se va modificando
	#	La límitación está en la longitud del contenido que sólo es 493 caracteres
	#	$subCmd puede ser: script settings
	#	$target puede ser: nombre de canal o default
	#	$key 	puede ser: nombre de settingsuración
	proc Setting {subCmd target chan {arguments ""}} {
		variable settings

		if {$chan eq {*}} {
			set chan {default}
		}
		if {$target eq "config"} {
			set protection [lindex [split $arguments " "] 0]
			set option [lindex [split $arguments " "] 1]
			if {$protection ni [dict keys [dict get $eGuard::settings config default]]} {
				return 0
			}	
			if {![dict exists $settings $target $chan $protection]} {
				foreach {defaultKey defaultVal} [dict get $settings $target default $protection] {
					dict set settings $target $chan $protection $defaultKey $defaultVal
				}
			}
		}
		switch -- $subCmd {
			get {
				if {![dict exists $settings $target $chan {*}$arguments]} {
					return 
				}
				
				return [dict get $settings $target $chan {*}$arguments]
			} 
			set - unset {
				catch {dict $subCmd settings $target $chan {*}$arguments; Save}
			}
			unset {

			}
			incr {
				if {![dict exists $settings $target $chan {*}[lrange $arguments 0 end-1]]} {
					set incr 0 
				} else {
					set incr [dict get $settings $target $chan {*}[lrange $arguments 0 end-1]]
				}
				set new [lindex $arguments end]
				set total [incr incr $new]
				dict set settings $target $chan {*}[lrange $arguments 0 end-1] $total
				return $total
			}
			valid {
				return [dict exists $settings $target $chan {*}$arguments]
			}
		}
	}
	proc Msg {target text} {
		putserv "PRIVMSG $target :$text"
	}
	proc StripCodes {text} {
		return [regsub -all -- {\017|\002|\037|\026|\003(\d{1,2})?(,\d{1,2})?} $text ""]
	}
	proc Config {chan key} {
		return [Setting get config $chan $key]
	}
	proc Script {key} {
		return [Setting get script default $key]
	}
	proc History {chan protection nick} {
		return [Setting get history $chan "$protection $nick"]
	}
	proc Purge {chan protection nick} {
		Setting unset history $chan "$protection $nick"
	}

	if {![info exists settings]} {
		set state {recargado}
	} else {
		set state {iniciado}
	}
	proc Save {} {
		variable settings
		set file [Script dataFile]
		if {![file isdirectory [file dirname $file]]} {
			if {[catch {file mkdir [file dirname $file]} errMsg]} {
				putlog "eGuard error creando [file dirname $file]: $errMsg"
				return
			}
		}
		if {[catch {set fs [open $file "w"]} errMsg]} {
			putlog "eGuard: error guardando fichero de configuración- $errMsg"
			return
		}
		puts $fs $settings
		close $fs
	}
	proc Load {} {
		variable settings
		set file [Script dataFile]
		if {[catch {set fs [open $file "r"]} errMsg]} {
			return false
		}
		set storedData [read $fs]
		close $fs
		set origVersion [dict get $storedData script default version]
		set currentVersion [dict get $settings script default version]
		if {$currentVersion > $origVersion} {
			putlog "Se ha detectado una versión del fichero de configuración anticuada. Actualizando datos..."
			file copy -force $file $file.backup
			set settings [Merge $storedData $settings]
		} else {
			set settings $storedData
		}
		
		
	}
	# merge --
	#	Mezcla la configuración actual con la nueva.
	#	La configuración actual es origData y es el contenido del fichero
	#	eguard.dict dentro del directorio de configuración.
	# 	newData contiene la configuración por defecto de la versión que ahora
	#	mismo se está se está arrancando.
	proc Merge {a b} {
		dict for { k v } $b {
        # key exists in a and b?  let's see if both values are dicts
        	if {[dict exists $a $k]} {
            	# both are dicts, so merge the dicts
            	if {([isDict [dict get $a $k]]) && ([isDict $v])} {
                	dict set a $k [Merge [dict get $a $k] $v]
            	} else {
                	dict set a $k $v
            	}
        	} else {
            	dict set a $k $v
        	}
    	}
		return $a
	}
	proc isDict {d} {
    	return [expr {[llength $d] % 2 == 0 ? 1 : 0}]
	}
	# Protecciones


	proc Doflood-join {chan nick setup string} {
		array set settings $setup
		set total [Setting incr flood-join $chan "$nick 1"]
		if {$total >= $settings(events)} {
			return $total
		}
		if {[utimerexists [list [namespace current]::Setting unset flood-join $chan $nick]] eq ""} {
			utimer $settings(seconds) [list [namespace current]::Setting unset flood-join $chan $nick]
		}
		return "false"
	}

	proc Doflood-msg {chan nick setup string} {
		array set settings $setup
		set total [Setting incr flood-msg $chan "$nick 1"]
		if {$total >= $settings(events)} {
			return $total
		}
		if {[utimerexists [list [namespace current]::Setting unset flood-msg $chan $nick]] eq ""} {
			utimer $settings(seconds) [list [namespace current]::Setting unset flood-msg $chan $nick]
		}
		return "false"
	}
	proc Doflood-nick {chan nick setup string} {
		array set settings $setup
		set total [Setting incr flood-nick $chan "$nick 1"]
		if {$total >= $settings(events)} {
			return $total
		}
		if {[utimerexists [list [namespace current]::Setting unset flood-nick $chan $nick]] eq ""} {
			utimer $settings(seconds) [list [namespace current]::Setting unset flood-nick $chan $nick]
		}
		return "false"
	}
	proc Doflood-ctcp {chan nick setup string} {
		array set settings $setup
		set total [Setting incr flood-ctcp $chan "$nick 1"]
		if {$total >= $settings(events)} {
			return $total
		}
		if {[utimerexists [list [namespace current]::Setting unset flood-ctcp $chan $nick]] eq ""} {
			utimer $settings(seconds) [list [namespace current]::Setting unset flood-ctcp $chan $nick]
		}
		return "false"
	}

	proc Domaxclone {chan nick setup args} {
		array set settings $setup
		lassign [split $nick {!@}] nick ident host
		set clone 0
		foreach user [chanlist $chan] {
			set chanhost [lindex [split [getchanhost $user $chan] {@}] 1]
			if {[string match -nocase $host $chanhost]} {
				incr clone
			}
			if {$clone >= $settings(max)} {
				return $host
			}
		}
		return "false"
	}
	proc Dorepeat {chan nick setup string} {
		array set settings $setup
		regsub -all {\"|\{|\}\|[]\|\]|\s|[[:digit:]]} $string "" string
		set string [string tolower $string]
		set total [Setting incr repeat $chan "$string$nick 1"]
		if {$total >= $settings(repeats)} {
			return $total
		}
		if {[utimerexists [list [namespace current]::Setting unset repeat $chan "$string$nick"]] eq ""} {
			utimer $settings(seconds) [list [namespace current]::Setting unset repeat $chan "$string$nick"]
		}
		return "false"
	}
	proc Docap {chan nick setup string} {
		array set settings $setup

		set string [StripCodes $string]
		regsub -all {(D)\1+} $string {\1} string
		if {[string length $string] <= $settings(minLength)} {
			return "false"
		}
		set upcase 0
		set lowcase 0
		foreach word [split $string " "] {
			if {![onchan $word $chan]} {
				append parsedString "$word "
			} else {
				append parsedString "[string tolower $word] "
			}
		}
		set upcase [regexp -all {[[:upper:]]} $parsedString]
		if {$upcase == 0} {
			return "false"
		}
		set lowcase [regexp -all {[[:lower:]]} $parsedString]
		if {[expr {$upcase + $lowcase}] <= $settings(minLength)} {
			return "false"
		}
		set stringLength [expr {$upcase + $lowcase}]
		set percent [format %.2f [expr {($upcase / $stringLength) * 100.0}]]
		if {$percent >= $settings(percent)} {
			return $percent
		}
		return "false"
	}

	proc Doreban {chan uhost setup args} {
		array set settings $setup
		set nick [lindex [split $uhost {!}] 0]
		set banmask [Setting get reban $chan $nick]
		if {$banmask ne ""} {
			if {[ischanban $banmask $chan]} {
				return $nick
			} else {
				Setting unset reban $chan $banmask
			}
		} else {
			set inAlias [inAlias $nick]
			if {$inAlias ne ""} {
				set banmask [Setting get reban $chan $inAlias]
				if {$banmask ne ""} {
					if {[ischanban $banmask $chan]} {
						return "$nick o más bien $inAlias"
					} else {
						Setting unset reban $chan $banmask
					}
				}
			}
			if {[string length $nick] < $settings(minLength)} {
				return "false"
			}
			set banList [Setting get reban $chan]
			foreach {bannedNick bannedMask} $banList {
				if {![ischanban $bannedMask $chan]} {
					Setting unset reban $chan $bannedMask
					continue
				}
				set similar [Similar $bannedNick $nick]
				if {$similar <= $settings(predictive)} {
					return "$nick o quizás $bannedNick"
				}
			}

		}
		return "false"
	}

	proc Docervantes {chan uhost setup string} {
		array set settings $setup
		set nick [lindex [split $uhost {!}] 0]
		if {[string length $string] >= $settings(length)} {
			set chanjoin [getchanjoin $nick $chan]
			set now [clock seconds]
			set onjoin [expr {$now - $chanjoin}]
			if {$onjoin <= $settings(onjoin)} {
				return true
			}
		}
		return "false"
	}
	proc Docolors {chan uhost setup string} {
		array set settings $setup
		set nickOnChan 0
		set checkNick [StripCodes [lindex [split $string " "] 0]]
		foreach nickInList [chanlist $chan] {
			set nickInListpattern [string trim $nickInList "\{\}\[\]:.;,^"]
			set nickInListpattern [t2p $nickInList]
			if {[regexp -nocase $nickInListpattern [string trim $checkNick "\{\}\[\]:.;,^"]]} {
				set nickCodes [regexp -all -- {\002|\037|\026|\003([02-9]|,\d|1\d|1,\d)} [lindex [split $string " "] 0]]
				if {$nickCodes >= $settings(maxNickColors)} {
					return "Nick Completion"
				} else {
					set string [join [lrange [split $string " "] 1 end] " "]
				}
				break
			}
		}
		if {$settings(strict) == 1} {
			regsub -all -- {\003(\d{1,2})http} $string "http" string
			regsub -all -- {\003(\d{1,2})www\.} $string "www." string
			regsub -all -- {\003(\d{1,2})xD\.} $string "xD" string
		}
set codes [string map [list "\002" {negritas} "\037" {subrayado} "\003" {colores}] $string]
		set textCodes [regexp -all -inline -- {\002|\037|\026|\003([02-9]|,\d|1\d|1,\d)} $string]
		set textTotalCodes [llength $textCodes]
		if {$textTotalCodes >= $settings(maxTextColors)} {
			regsub -all {[[:digit:]]} $textCodes "" textCodes
			set text [string map [list "\002" {negritas} "\037" {subrayado} "\003" {colores}] $textCodes]
			set text [lsort -unique $text]
			set text [lsearch -all -inline -not $text {}]
			return [join $text {, }]
		}
		return "false"
	}

	proc Dohelper {chan uhost setup string} {
		array set settings $setup
		foreach {mask reason} [Config $chan "helper list"] {
			if {[regexp -nocase $mask $string]} {
				set noRepeat [Setting get helper $chan $mask]
				if {$noRepeat eq ""} {
					Setting set helper $chan "$mask [clock seconds]"
				} else {
					set timeNoRepeat [expr {[clock seconds] - $noRepeat}]
					if {$timeNoRepeat >= $settings(noRepeat)} {
						Setting unset helper $chan $mask
					} else {
						return "false"
					}
				}
				return $reason
			}
		}
		return "false"
	}
	proc Doakick {chan uhost setup args} {
		array set settings $setup
		foreach {banmask reason} [Config $chan "akick except"] {
			if {[string match -nocase $banmask $uhost]} {
				return "false"
			}
		}
		foreach {banmask reason} [Config $chan "akick list"] {
			if {[string match -nocase $banmask $uhost]} {
				return $reason
			}
		}
		return "false"
	}
	proc Dospam {chan nick setup string} {
		array set settings $setup
		foreach exceptSpam [Config $chan "spam except"] {
			if {[regexp -nocase -- $exceptSpam $string]} {
				return "false"
			}
		}
		foreach {banmask reason} [Config $chan "spam list"] {
			if {[regexp -nocase $banmask $string]} {
				return $reason
			}
		}
		return "false"
	}

	proc Banrotate {args} {
		foreach chanName [channels] {
			if {[channel get $chanName eguard-banrotate]} {
				set banTime [Config $chanName "banrotate banTime"]
				set banTime [expr {$banTime * 60}]
				foreach line [chanbans $chanName] {
					lassign [split $line " "] banmask operator timeago
					if {![string is digit -strict $timeago]} {
						set timeago 0
					}
					if {$timeago >= $banTime} {
						set report [Config $chanName "banrotate report"]
						set action [string map [list {%banmask} $banmask {%details} [duration $timeago]] $report]
						putserv $action
						pushmode $chanName -b $banmask

					} 
				}
			}
		}
	}

	# Eventos
	proc EventBan {nick uhost hand chan mode target} {
		if {![channel get $chan eguard-reban]} {
			return
		}
		set bannedList [list]
		if {$mode eq {+b}} {
			foreach user [chanlist $chan] {
				set chanhost [getchanhost $user $chan]
				if {[string match -nocase $target $user!$chanhost]} {
					Setting set reban $chan "$user $target"
					putlog "eGuard::Reban- ban \[(${chan}/${user}) $target\]"
				}
			}
		} elseif {$mode eq {-b}} {
			foreach {bannedNick banmaskBanned} [Setting get reban $chan] {
				if {$banmaskBanned eq $target} {
					putlog "eGuard::Reban- purgado $bannedNick (unban $target)"
					Setting unset reban $chan $bannedNick
				}
			}
		}
	}

	proc EventPub {nick uhost hand chan text} {
		Control {PRIVMSG} $nick!$uhost $hand $chan $text
	}
	proc EventNotc {nick uhost hand chan text} {
		if {![validchan $chan]} {
			return
		}
		Control {PRIVMSG} $nick!$uhost $hand $chan $text
	}
	proc EventCTCP {nick uhost hand chan key text} {
		if {![validchan $chan]} {
			return
		}
		Control {PRIVMSG} $nick!$uhost $hand $chan $text
	}
	proc EventJoin {nick uhost hand chan} {
		Control {JOIN} $nick!$uhost $hand $chan
	}
	proc EventPart {nick uhost hand chan text} {
		Control {PART} $nick!$uhost $hand $chan $text
	}
	proc EventNick {nick uhost hand chan newNick} {
		Control {NEWNICK} $newNick!$uhost $hand $chan
	}
	proc EventDcc {hand idx text} {
		Admin putdcc $idx "" $hand $text
	}
	proc EventAdminMsg {nick uhost hand text} {
		Admin Msg $nick $uhost $hand $text
	}
	proc Admin {send idx uhost hand text} {
		set command [lindex [split $text " "] 0]
		set udeflags [Script udeflags]
		set commands [list about stats info chan logo alias]
		set protection [lsearch -inline -nocase $udeflags $command]
		set defaultChan [lindex [split [getuser $hand console] ] 0]
		if {$send eq "putdcc"} {
			array set color {
				black "\033\[30m"
				red "\033\[31m"
				green "\033\[32m"
				yellow "\033\[33m"
				blue "\033\[34m"
				magenta "\033\[35m"
				cyan "\033\[36m"
				white "\033\[37m"
				creset "\033\[39m"
				bold "\033\[1m"
				breset "\033\[0m"
			}
		} else {
			array set color {
				black "\0031"
				red "\0034"
				green "\0033"
				yellow "\0038"
				blue "\00312"
				magenta "\0036"
				cyan "\00311"
				white "\0030"
				creset "\003"
				bold "\002"
				breset "\002"
			}
		}
		array set verify {
			safeMode boolean
			memory digit
			report wordchar
			ignoreop boolean
			ignorevoice boolean
			ignorefriend boolean
			action list
			minLength digit
			percent digit
			banTime digit
			strict boolean
			maxTextColors digit
			maxNickColors digit
			noRepeat digit
		}
# USO:  .eguard <protección> [canal] 	<opción> <parámetro>=<valor>
# 		.eguard spam 		 #eggdrop 	add 	 (*http*)	=kickban %chan %nick a mamarla
# 		.eguard spam 		 #eggdrop 	set 	 safemode	=1

		if {$text eq ""} {
			$send $idx "Comandos disponibles: \'[join $commands {, }], [join $udeflags {, }], <+|->protección\' - usa .eguard <comando>"
			return
		}

		switch -nocase -glob $command {
			{about} {
				$send $idx "[Script name] [Script version] \[(c) [Script hosting] - [Script author]\]"
				return
			}
			{stats} {
				# .eguard stats #eggdrop reban 2014-12-01
				set chan [lindex [split $text " "] 1]
				if {![validchan $chan]} {
					set chan $defaultChan
					if {![validchan $chan]} {
						$send $idx "Canales disponibles: [join [channels] {, }] -- usa .eguard stats \[#canal\] \[${protection}\] \[YYYY-mm-dd\]"
						return
					}
					set text [join [lrange [split $text " "] 1 end] " "]
				} else {
					set text [join [lrange [split $text " "] 2 end] " "]
					set udeflag [lindex [split $text " "] 2]
					set date [lindex [split $text " "] 3]
				}
				set udeflag [lindex [split $text " "] 0]
				if {$udeflag ne ""} {
					if {$udeflag ni $udeflags} {
						foreach defaultUdeflag $udeflags {
							if {[Similar $defaultUdeflag $udeflag] < 3} {
								$send $idx "¿Quizás quisiste decir... ${defaultUdeflag}?"
								set udeflag $defaultUdeflag
								break
							}
						}
						if {$udeflag ni $udeflags} {
							$send $idx "protección no válida. Usa una de estas: [join $udeflags {, }]"
							return
						}
					}
					set text [join [lrange [split $text " "] 1 end] " "]
				} else {
					set udeflag $udeflags
				}
				set date [lindex [split $text " "] 0]
				if {$date eq ""} {
					set date [clock format [clock seconds] -format "%Y-%m-%d"]
				}
				foreach u $udeflag {
					$send $idx "\[(stats/${chan}) $date\]: $u - usos: [Stats $chan $date $u]"
				}
				return
			}
			{alias} {
				set subAliasCmd [lindex [split $text " "] 1]
				set aliasArguments [join [lrange [split $text " "] 2 end] " "]
				set parameter [lindex [split $aliasArguments {=}] 0]
				set value [join [lrange [split $aliasArguments {=}] 1 end] {=}]
				switch -nocase $subAliasCmd {
					{add} {	
						if {$parameter eq ""} {
							$send $idx "Indica el nick principal del usuario y después su alias -- .eguard alias add nick=segundoNick"
							return
						}
						if {$value eq ""} {
							$send $idx "Indica un segundo nick como alias de $parameter"
							return
						}
						set aliasList [Config default [list alias list $parameter]]
						if {$aliasList eq ""} {
							Setting set config default [list alias list $parameter $value]
						} else {
							lappend aliasList $value
							set aliasList [lsort -unique $aliasList]
							Setting set config default [list alias list $parameter "$aliasList"]
						}
						set result [Setting get config default [list alias list $parameter]]
					}
					{del} - {delete} {
						set exists [Config default [list alias list $parameter]]
						if {$exists eq ""} {
							$send $idx "$parameter no tiene ningún alias."
							return
						}
						Setting unset config default [list alias list $parameter]
						set result {alias eliminado.}
					}
					{list} {
						if {$parameter ne ""} {
							set list [Config default [list alias list $parameter]]	
						} else {
							set list [Config default [list alias list]]
						}
						
						if {$list eq ""} {
							$send $idx {No hay entradas.}
							return
						}
						set i 0
						foreach {key val} $list {
							$send $idx "alias [incr i]: $key = $val"
						}
						return
					}
					default {
						$send $idx "Comandos disponibles add, list, del"
						return
					}
				}
				$send $idx "${color(green)}OK: \[(alias/${color(bold)}${parameter}${color(breset)})\]: $result $color(creset)"
				return
			}
			{chan} {
				set newChan [lindex [split $text " "] 1]
				set adminChanlist [AdminChanlist $hand]
				if {$newChan ni $adminChanlist} {
					$send $idx "Indica qué canal quieres configurar por defecto: [join  $adminChanlist {, }]."
					return
				} else {
					setuser $hand console $newChan
					$send $idx "Canal por defecto: [lindex [split [getuser $hand console] ] 0]"
					return
				}
			}
			{+*} - {-*} {
				set chan [lindex [split $text " "] 1]
				if {(![validchan $chan]) && ($chan ne {*})} {
					set chan $defaultChan
					if {![validchan $chan]} {
						$send $idx "Canales disponibles: [join [channels] {, }] -- usa .eguard <${protection}> \[#canal\]"
						return
					}
				}
				set udeflag [string range $command 1 end]
				set flagMode [string index $command 0]
				if {$udeflag ni $udeflags} {
					foreach defaultUdeflag $udeflags {
						if {[Similar $defaultUdeflag $udeflag] < 3} {
							$send $idx "¿Quizás quisiste decir... ${defaultUdeflag}?"
							set udeflag $defaultUdeflag
							break
						}
					}
					if {$udeflag ni $udeflags} {
						$send $idx "protección desconocida. Usa una de estas: [join $udeflags {, }]."
						return
					}
				}
				channel set $chan ${flagMode}eguard-${udeflag}
				$send $idx "OK $udeflag [expr {$flagMode == {+} ? "activado" : "desactivado"}] en $chan."
				return
			}
			{logo} {
				set newLogo [lindex [split $text " "] 1]
				Setting set script default "logo $newLogo"
				$send $idx "OK: nuevo logo: $newLogo"
				return
			}
			{info} {
				set chan [lindex [split $text " "] 1]
				if {![validchan $chan]} {
					set chan $defaultChan
					if {![validchan $chan]} {
						$send $idx "Canales disponibles: [join [channels] {, }] -- usa .eguard info <${protection}> \[#canal\]"
						return
					}
					set protection [lindex [split $text " "] 1]
				} else {
					set protection [lindex [split $text " "] 2]
				}
				set protection [lsearch -inline -nocase $udeflags $protection]
				if {$protection eq ""} {
					$send $idx "eGuard info de $chan"
					$send $idx "[format "| %10s : %-11s : %-14s" {Protección} {Estado} {Modo seguro}]"
					foreach udeflag $udeflags {
						set chanState [channel get $chan eguard-${udeflag}]
						unset -nocomplain state
						array set chanSetup [Config $chan $udeflag]
						if {[bool $chanState]} {
							append state "activado"
						} else {
							append state "desactivado"
						}
						if {[bool $chanSetup(safeMode)]} {
							set safeMode {(en pruebas)}
						} else {
							set safeMode {(en producción)}
						}
						$send $idx "[format "| %10s : %-11s : %-14s" ${udeflag} $state $safeMode]"
					}
				} else {
					array set translation [Script translation]
					array set chanSetup [Config $chan $protection]
					$send $idx "---\neGuard info de $protection en ${chan}:"
					$send $idx "[format "| %15s : %11s : %-48s" {set} {Detalle} {Valor actual}]"	
					$send $idx "[format "|${color(bold)} %15s ${color(breset)}: %11s : %-48s" {safeMode} {Modo seguro} [expr {[bool $chanSetup(safeMode)] == 1 ? "Sí" : "no"}]]"
					$send $idx "[format "|${color(bold)} %15s ${color(breset)}: %11s : %-48s" {memory} {Memoria} "$chanSetup(memory) minutos"]"
					$send $idx "[format "|${color(bold)} %15s ${color(breset)}: %11s : %-48s" {report} {Reporte} "$chanSetup(report)"]"
#					$send $idx "+----------------------------------------------------------------------------------+"
					$send $idx "[format "|${color(bold)} %15s ${color(breset)}: %11s : %-48s" {ignoreop} {@ inmunes} [expr {[bool $chanSetup(ignoreop)] == 1 ? "Sí" : "no"}]]"
					$send $idx "[format "|${color(bold)} %15s ${color(breset)}: %11s : %-48s" {ignorevoice} {+v inmunes} [expr {[bool $chanSetup(ignoreop)] == 1 ? "Sí" : "no"}]]"
					$send $idx "[format "|${color(bold)} %15s ${color(breset)}: %11s : %-48s" {ignorefriend} {+f inmunes} [expr {[bool $chanSetup(ignoreop)] == 1 ? "Sí" : "no"}]]"
#					$send $idx "+==================================================================================+"
					$send $idx "[format "| %15s : %11s : %-48s" {set} {Acciones} {castigos correspondientes a cada ofensa}]"
#					$send $idx "+==================================================================================+"
					foreach {key val} [Config $chan "$protection action"] {
						$send $idx "[format "|${color(bold)} %15s ${color(breset)}: %11s : %-48s" "action $key" "Castigo $key" $val]"
					}
#					$send $idx "+==================================================================================+"
					$send $idx "[format "| %15s : %11s : %-48s" {set} {Detalle} "opciones específicas para esta protección. Usa .help eguard opción para más información"]"
					
#					$send $idx "+==================================================================================+"
					#report ignorefriend safeMode percent memory action minLength ignorevoice ignoreop
					set skipOptions [list {list} {ignorefriend} {ignoreop} {ignorevoice} {safeMode} {memory} {action} {report}]
					foreach {key val} [array get chanSetup] {
						if {$key ni $skipOptions} {
							if {[info exists translation($key)]} {
								set translate $translation($key)
							} else {
								set translate $key
							}
							$send $idx "[format "|${color(bold)} %15s ${color(breset)}: %11s : %-48s" $key $translate "$val"]"
						}
						if {$key eq {list}} {
							$send $idx "[format "| %30s  %-48s" {Listado} {}]"
							$send $idx "[format "| %29s : %-48s" {patrón} {detalles}]"
							foreach {listKey listVal} $val {
								$send $idx "[format "|${color(bold)} %28s ${color(breset)} : %-48s" $listKey $listVal]"
							}
						}
					}
#					$send $idx "+----------------------------------------------------------------------------------+"
				}
				return
			}
			default {}

		}
		if {$protection ne ""} {
			set chan [lindex [split $text " "] 1]
			if {![validchan $chan]} {
				set chan $defaultChan
				if {![validchan $chan]} {
					$send $idx "Canales disponibles: [join [channels] {, }] -- usa .eguard <${protection}> \[#canal\]"
					return
				}
				set option [lindex [split $text " "] 1]
				set arguments [join [lrange [split $text " "] 2 end] " "]
			} else {
				set option [lindex [split $text " "] 2]
				set arguments [join [lrange [split $text " "] 3 end] " "]
			}
			if {[regexp {^(\+|\-)} $protection "" flagMode]} {
				set enableFlag [string trim [string range $protection 1 end]]
				set enableFlag [lsearch -inline -nocase $udeflags $enableFlag]
				if {$enableFlag eq ""} {
					$send $idx "No es una protección válida. Las protecciones válidas son: [join $udeflags {, }]."
					return
				} else {
					channel set $chan ${flagMode}eguard-${enableFlag}
					$send $idx "OK. ${enableFlag} [expr {$flagMode == {+} ? "activado" : "desactivado"}] en ${chan}"
					return 
				}
			}
			set parameter [lindex [split $arguments {=}] 0]
			set value [join [lrange [split $arguments {=}] 1 end] {=}]
			array set options {
				helper {exceptadd exceptlist exceptdel add list del set}
				akick {aliasadd aliaslist aliasdel exceptadd exceptlist exceptdel add list del set}
				spam {exceptadd exceptlist exceptdel add list del set}
				alias {add list del}
				flood-msg {set}
				flood-ctcp {set}
				flood-join {set}
				flood-nick {set}
				cervantes {set}
				maxclone {set}
				cap {set}
				reban {set}
				colors {set}
				banrotate {set}
				troll {set}
				repeat {set}
			}
			set option [lsearch -inline -nocase $options($protection) $option]
			if {$option eq ""} {
				$send $idx "Opciones disponibles: [join $options($protection) {|}]. -- usa .eguard $protection \[#canal\] <opción>"
				return
			}
			set parameters [dict keys [Setting get config default $protection]]
			if {($option eq {set}) && ($parameter eq "")} {
					$send $idx "Parámetros disponibles: [join $parameters {, }]. -- usa .eguard $protection \[#canal\] <opción> <parámetro>=<valor>"
					return
			}
			switch -nocase -glob $option {
				
				{exceptadd} {
					if {$parameter eq ""} {
						$send $idx "Indica el nuevo parámetro para añadir como excepción."
						return
					}
					Setting set config $chan [list $protection except $parameter "1"]
					set result {añadido como excepción.}
				}
				{exceptdel} {
					array set protectionList [Config $chan [list $protection except]]
					if {[array names protectionList] eq ""} {
						$send $idx "La lista de $protection está vacía."
						return
					}
					if {![string is digit -strict $parameter]} {
						$send $idx "Indica el número ID que aparece en .eguard $protection list para eliminar el parámetro."
						return
					}
					incr $parameter -1
					set index [lindex [array names protectionList] $parameter]
					array unset protectionList $index
					Setting set config $chan [list $protection except [array get protectionList]]
					set result "$index eliminado."
				}
				{exceptlist} {
					set list [Config $chan "$protection except"]
					if {$list eq ""} {
						$send $idx {No hay entradas.}
						return
					}
					set i 0
					foreach {key val} $list {
						$send $idx "$protection list [incr i]: $key"
					}
					return
				}
				{add} {
					if {$value eq ""} {
						$send $idx "Añade el nuevo valor para el parámetro $parameter"
						return
					}
					Setting set config $chan [list $protection list $parameter $value]
					set result [Setting get config $chan [list $protection list $parameter]]
				}
				{del} {
					set protectionList [lsort [dict keys [Config $chan "$protection list"]]]
					if {$protectionList eq ""} {
						$send $idx "La lista de $protection está vacía."
						return
					}
					if {![string is digit -strict $parameter]} {
						$send $idx "Indica el número ID que aparece en .eguard $protection list para eliminar el parámetro."
						return
					}
					set i -1
					foreach key $protectionList {
						putlog "[incr i] ($parameter)> $key = [Config $chan [list $protection list $key]]"
					}
					set index [lindex $protectionList [expr {$parameter -1}]]
					Setting unset config $chan [list $protection list $index]
					set result "$index eliminado."
				}
				{list} {
					set list [lsort [dict keys [Config $chan "$protection list"]]]
					if {$list eq ""} {
						$send $idx "No hay entradas."
						return
					}
					set i 0
					foreach key $list {
						$send $idx "$protection list [incr i]: $key = [Config $chan [list $protection list $key]]"
					}
					return
				}
				{set} {
					if {$parameter ne ""} {
						if {[string match -nocase {action*} $parameter]} {
							set actionNumber [lindex [split $parameter " "] 1]
							if {![string is digit -strict $actionNumber]} {
								$send $idx "Indica la posición de esta acción -- usa .eguard $protection \[#canal\] <opción> action <número>=<valor>"
								return
							}
							set parameter "action $actionNumber"
						} else {
							set parameter [lsearch -inline -nocase $parameters $parameter]
						}
					}
					if {$parameter eq ""} {
						$send $idx "Parámetros disponibles: [join $parameters {, }]. -- usa .eguard $protection \[#canal\] <opción> <parámetro>=<valor>"
						return
					}
					if {$value eq ""} {
						$send $idx "Añade el nuevo valor para el parámetro $parameter"
						return
					}
					Setting set config $chan [list $protection {*}$parameter $value]
					Save
					set result [Setting get config $chan [list $protection {*}$parameter]]
				}
				default {
					$send $idx "Opciones disponibles: [join $options($protection) {|}]. -- usa .eguard $protection \[#canal\] <opción>"
					return
				}
			}
			$send $idx "${color(green)}OK: \[(${chan}/${color(bold)}${protection}${color(breset)})\]: $parameter = $result $color(creset)"
			return
		} else {
			$send $idx "Comandos disponibles: \'[join $commands {, }], [join $udeflags {, }], <+|->protección\' - usa .eguard <comando>"
			return
		}

	}
	# 
	proc Control {eventName user hand args} {
		variable Events
		lassign [split $user {!@}] nick ident host
		switch $eventName {
			{PRIVMSG} {
				set chan [lindex $args 0]
				set text [join [lrange $args 1 end]]
			}
			{JOIN} - {NEWNICK} - {PART} {
				set chan [lindex $args 0]
				set text {}
			}
		}
		if {[isbotnick $nick]} {
			return
		}
		if {![validchan $chan]} {
			return
		}
		set options $Events($eventName)
		set troll [Config $chan "troll offenses"]
		set offenses($nick) [list]
		foreach protection $options {
			set udeflag eguard-${protection}
			if {![channel get $chan $udeflag]} {
				continue
			}
			array set setup [Config $chan $protection]

			if {[bool $setup(ignoreop)]} {
				if {([isop $nick $chan]) || ([matchattr $hand o $chan])} {
					continue
				}
			}
			if {[bool $setup(ignorevoice)]} {
				if {([isvoice $nick $chan]) || ([matchattr $hand v $chan])} {
					continue
				}
			}
			if {([matchattr $hand f $chan]) && ([bool $setup(ignorefriend)])} {
				continue
			}
			set result [Do$protection $chan $user [array get setup] $text]
			array set translation [Script translation]
			if {$result ne "false"} {
					lappend offenses($nick) [list $protection $result]
					lappend trollDetails $translation($protection)
			}
		}

		if {[llength [lsearch -all -not $offenses($nick) {helper*}]] >= $troll} {
			Offense troll $chan $nick [join $trollDetails {, }]
		} else {
			foreach offense $offenses($nick) {
				Offense [lindex $offense 0] $chan $nick [lindex $offense 1]
			}
		}
		return
	}

	#  Procs

	proc Stats {chan date protection {target ""}} {
		if {[string is digit $date]} {
			set date [clock format $date -format "%Y-%m-%d"]
		}
		set stats [Setting get stats $chan [list $date $protection]]
		set total 0
		dict for {key val} $stats {
			incr total $val
		}
		return $total
	}
	proc inAlias {target} {
		set aliasList [Config default [list alias list]]
		foreach {key val} $aliasList {
			if {[lsearch -nocase $val $target] != -1} {
				return $key
			}
		}
		return
	}
	proc t2p {string} {
		return [regsub -all -- {(\[|\]|\\|\{|\})} $string {\\\1}]
	}
	proc utimerexists {command} {
 		foreach i [utimers] {
    		if {![string compare $command [lindex $i 1]]} then {
      			return [lindex $i 2]
    		}
  		}
  		return
	}
	proc bool {string} {
	    return [string is true -strict [lindex [split $string] 0]]
	}
	proc tempkickban {minutes chan target {message {}}} {
	    set banmask [kickban $chan $target $message]
	    timer $minutes [list pushmode $chan -b $banmask]
	}
	proc kickban {chan target {message {}}} {
	    global defaults
	    if {[isop $target $chan]} {
	        set params(-o) $target
	    }
	    if {[isvoice $target $chan]} {
	         set params(-v) $target
	    }

	    set banType [channel get $chan {ban-type}]
	    set targethost [getchanhost $target]
	    if {$targethost ne {}} {
	        set banhost [maskhost $targethost $banType]
	    } else {
	        set banhost $target!*@*
	    }
	    set params(+b) $banhost
	    foreach {key value} [array get params] {
	        lappend newmode $key
	        lappend newtarget $value
	    }
	    set newmode [join $newmode ""]
	    putquick "MODE $chan $newmode [join $newtarget " "]"

	    if {$message eq {}} {
	        set message [channel get $chan {kick-message}]
	    }
	    if {$message eq {}} {
	        set message $defaults(kick-message)
	    }
	    kick $chan $target $message
	    return $banhost
	}
	proc ipkickban {chan target {message {}}} {
	    global defaults
	    if {[isop $target $chan]} {
	        set params(-o) $target
	    }
	    if {[isvoice $target $chan]} {
	         set params(-v) $target
	    }

	    set banType [channel get $chan {ban-type}]
	    set targethost [getchanhost $target]
	    if {$targethost ne {}} {
	        set banhost [maskhost $targethost $banType]
	    } else {
	        set banhost $target!*@*
	    }
	    set params(+b) $banhost
	    foreach {key value} [array get params] {
	        lappend newmode $key
	        lappend newtarget $value
	    }
	    set newmode [join $newmode ""]
	    putquick "MODE $chan $newmode [join $newtarget " "]"

	    if {$message eq {}} {
	        set message [channel get $chan {kick-message}]
	    }
	    if {$message eq {}} {
	        set message $defaults(kick-message)
	    }
	    kick $chan $target $message
	    return $banhost
	}
	proc unban {chan target} {
	    global defaults

	    if {![regexp (\\*|\\?) $target]} {

	        if {[isop $target $chan]} {
	            set params(-o) $target
	        }
	        if {[isvoice $target $chan]} {
	             set params(-v) $target
	        }
	        set banType [channel get $chan {ban-type}]
	        set targethost [getchanhost $target]
	        if {$targethost ne {}} {
	            set banhost [maskhost $targethost $banType]
	        } else {
	            set banhost $target!*@*
	        }
	    } else {
	        set banhost $target
	    }
	    set params(-b) $banhost
	    foreach {key value} [array get params] {
	        lappend newmode $key
	        lappend newtarget $value
	    }
	    set newmode [join $newmode ""]
	    putquick "MODE $chan $newmode [join $newtarget " "]"
	}

	proc ban {chan target} {
	    global defaults

	    if {![regexp (\\*|\\?) $target]} {

	        if {[isop $target $chan]} {
	            set params(-o) $target
	        }
	        if {[isvoice $target $chan]} {
	             set params(-v) $target
	        }
	        set banType [channel get $chan {ban-type}]
	        set targethost [getchanhost $target]
	        if {$targethost ne {}} {
	            set banhost [maskhost $targethost $banType]
	        } else {
	            set banhost $target!*@*
	        }
	    } else {
	        set banhost $target
	    }
	    set params(+b) $banhost
	    foreach {key value} [array get params] {
	        lappend newmode $key
	        lappend newtarget $value
	    }
	    set newmode [join $newmode ""]
	    putquick "MODE $chan $newmode [join $newtarget " "]"
	    return $banhost
	}
	proc tempban {chan target time} {
	    global defaults

	    if {![regexp (\\*|\\?) $target]} {

	        if {[isop $target $chan]} {
	            set params(-o) $target
	        }
	        if {[isvoice $target $chan]} {
	             set params(-v) $target
	        }
	        set banType [channel get $chan {ban-type}]
	        set targethost [getchanhost $target]
	        if {$targethost ne {}} {
	            set banhost [maskhost $targethost $banType]
	        } else {
	            set banhost $target!*@*
	        }
	    } else {
	        set banhost $target
	    }
	    set params(+b) $banhost
	    foreach {key value} [array get params] {
	        lappend newmode $key
	        lappend newtarget $value
	    }
	    set newmode [join $newmode ""]
	    putquick "MODE $chan $newmode [join $newtarget " "]"
	    timer $time [list pushmode $chan -b $banhost]
	}
	proc kick {chan target {message {}}} {

	    global defaults
	    if {$message eq {}} {
	        set message [channel get $chan {kick-message}]
	    }
	    if {$message eq {}} {
	        set message $defaults(kick-message)
	    }

	    putquick "KICK $chan $target :[Script logo]: $message"
	}
	proc Similar {string text} {
		# Edge cases
		set s [string tolower $string]
		set t [string tolower $text]
		if {![set n [string length $t]]} {
		    return [string length $s]
		} elseif {![set m [string length $s]]} {
		    return $n
		}
		# Fastest way to initialize
		for {set i 0} {$i <= $m} {incr i} {
		    lappend d 0
		    lappend p $i
		}
		# Loop, computing the distance table (well, a moving section)
		for {set j 0} {$j < $n} {} {
		    set tj [string index $t $j]
		    lset d 0 [incr j]
		    for {set i 0} {$i < $m} {} {
		        set a [expr {[lindex $d $i]+1}]
		        set b [expr {[lindex $p $i]+([string index $s $i] ne $tj)}]
		        set c [expr {[lindex $p [incr i]]+1}]
		        # Faster than min($a,$b,$c)
		        lset d $i [expr {$a<$b ? $c<$a ? $c : $a : $c<$b ? $c : $b}]
		    }
		    # Swap
		    set nd $p; set p $d; set d $nd
		}
		# The score is at the end of the last-computed row
		return [lindex $p end]
	}
	proc AdminChanlist {hand} {
		set chanlist [list]
		foreach c [channels] {
			if {[matchattr $hand m|m $c]} {
				lappend chanlist $c
			}
		}
		return $chanlist
	}
	proc Offense {protection chan uhost {details ""}} {
		lassign [split $uhost {!@}] nick user host
		set total [History $chan $protection $nick]
		set report [Config $chan "$protection report"]
		set memory [Config $chan "$protection memory"]
		set stats [Config $chan "$protection stats"]
		set safeMode [Config $chan "$protection safeMode"]
		if {![string is digit -strict $total]} {
			set total 1
			Setting set history $chan "$protection $nick $total"
		} else {
			set next [expr {$total + 1}]
			if {[Config $chan "$protection action $next"] ne ""} { 
				Setting set history $chan "$protection $nick [incr total]"
			}
		}
		if {[bool $stats]} {
			Setting incr stats $chan "[clock format [clock seconds] -format "%Y-%m-%d"] $protection $nick 1"
		}
		set action [Config $chan "$protection action $total"]
		set actionCmd [lindex [split $action " "] 0]
		set action [string map [list {%chan} $chan\
		{%nick} $nick\
		{%details} $details\
		{%offenseNumber} $total\
		{%action} $actionCmd\
		{%protection} $protection] $action]
		if  {[string match {*%stats*} $action]} {
			set stats [Stats $chan [clock seconds] $protection]
			set action [string map [list {%stats} $stats] $action]
		}
		putlog "\[(${chan}/${nick}) $total $protection\]: ${actionCmd}..."

		DoOffense $safeMode $action
		set report [Config $chan "$protection report"]
		set report [string map [list {%chan} $chan\
		{%nick} $nick\
		{%details} $details\
		{%offenseNumber} $total\
		{%action} $actionCmd\
		{%protection} $protection] $report]
		if  {[string match {*%stats*} $report]} {
			if {![info exists stats]} {
				set stats [Stats $chan [clock seconds] $protection]
			}
			set report [string map [list {%stats} $stats] $report]
		}
		DoOffense 0 $report
		Setting set purge $chan "$protection [clock seconds] $nick"
		if {[timerexists [list [namespace current]::Purge $chan $protection $nick]] eq ""} {
			timer $memory [list [namespace current]::Purge $chan $protection $nick]
		}
		return
	}
	proc DoOffense {safeMode action} {
		set action [split $action " "]
		set actionCmd [lindex $action 0]
		if {[bool $safeMode]} {
			set actionCmd {safeMode}
		}
		switch -nocase $actionCmd {
			{notice} - {privmsg} {
				set actionTarget [lindex $action 1]
				set actionArguments [join [lrange $action 2 end]]
				putserv "$actionCmd $actionTarget :$actionArguments"
			}
			{msg} {
				set actionTarget [lindex $action 1]
				set actionArguments [join [lrange $action 2 end]]
				putserv "privmsg $actionTarget :$actionArguments"
			}
			{none} - {nothing} {
				return
			}
			{kick} - {kickban} - {ipkickban} {
				set chanTarget [lindex $action 1]
				set userTarget [lindex $action 2]
				set actionArguments [join [lrange $action 3 end]]
				$actionCmd $chanTarget $userTarget $actionArguments
			}
			{ban} - {unban} {
				set chanTarget [lindex $action 1]
				set userTarget [lindex $action 2]
				$actionCmd $chanTarget $userTarget
			}
			{tempban} {
				set chanTarget [lindex $action 1]
				set userTarget [lindex $action 2]
				set time [lindex $action 3]
				$actionCmd $chanTarget $userTarget $time
			}
			{tempkickban} {
				set chanTarget [lindex $action 1]
				set userTarget [lindex $action 2]
				set time [lindex $action 3]
				set actionArguments [join [lrange $action 4 end]]
				$actionCmd $time $chanTarget $userTarget $actionArguments
			}
			{safeMode} {
				putlog "eGuard: safemode: $action"
				return
			}
		}
	}
	dict set settings script default udeflags [list helper akick spam cervantes cap\
	reban colors banrotate troll repeat maxclone flood-msg flood-ctcp flood-nick flood-join]
	dict set settings script default translation [list list lista akick autokick spam spam length\
		Longitud cervantes cervantes onjoin {Desde entrada} offenses ofensas banTime {ban tiempo}\
	 	strict estricto maxNickColors ColoresNick maxTextColors ColoresTexto ignoreNicks ignorarNicks\
	  	predictive predicción cap mayúsculas colors colores banrotate banrotación percent porcentaje\
	  	minLength Longitud helper ayudante repeat repeticiones reban reban repeats repeticiones\
	  	seconds segundos set set except excepción noRepeat {no repetir} max máximo maxclone {clones máx}\
	  	flood-join flood-join flood-msg flood-msg flood-ctcp flood-ctcp flood-ctcp flood-ctcp\
	  	flood-nick flood-nick]
	dict set settings script default version {2.0.1}
	dict set settings script default name {eGuard}
	dict set settings script default logo "\002e\037G\037\002uard"
	dict set settings script default author {Sentencia}
	dict set settings script default hosting {http://eggdrop.es}
	dict set settings script default contact {http://eggdrop.es/profile/Sentencia/}
	dict set settings script default dataFile "[file join eGuard $::nick "eguard.dict"]"
	# Config

	dict set settings config default reban safeMode 1
	dict set settings config default reban memory 15
	dict set settings config default reban ignoreop 1
	dict set settings config default reban ignorevoice 1
	dict set settings config default reban ignorefriend 1
	dict set settings config default reban report {notice @%chan %nick (%details) se saltó el ban, ejecutando %action...}
	dict set settings config default reban predictive 1
	dict set settings config default reban minLength 3
	dict set settings config default reban stats 1
	dict set settings config default reban action 1 {kickban %chan %nick %details, aún estás baneado/a. Por favor, habla con un OPerador para que eliminen tu ban.}

	dict set settings config default cap safeMode 1
	dict set settings config default cap memory 15
	dict set settings config default cap ignoreop 1
	dict set settings config default cap ignorevoice 1
	dict set settings config default cap ignorefriend 1
	dict set settings config default cap stats 1
	dict set settings config default cap minLength 20
	dict set settings config default cap percent 90
	dict set settings config default cap report {notice @%chan %offenseNumber ofensa de %protection (%details%) de %nick, ejecutando %action...}
	dict set settings config default cap action 1 {notice %nick Por favor las mayúsculas se usan para gritar, no las uses.}
	dict set settings config default cap action 2 {msg %chan %nick: por favor escribe en minúsculas. Las mayúsculas se usan para gritar.}
	dict set settings config default cap action 3 {kick %chan %nick Escribe en minúsculas.}
	dict set settings config default cap action 4 {tempkickban 5 %chan %nick Expulsión durante 5 minutos. (%details% mayúsculas)}
	dict set settings config default cap action 5 {kickban %chan %nick Expulsión indefinida (%details% mayúsculas)}

	dict set settings config default colors safeMode 1
	dict set settings config default colors memory 15
	dict set settings config default colors ignoreop 1
	dict set settings config default colors ignorevoice 1
	dict set settings config default colors ignorefriend 1
	dict set settings config default colors stats 1
	dict set settings config default colors maxNickColors 10
	dict set settings config default colors maxTextColors 1
	dict set settings config default colors strict 0
	dict set settings config default colors report {notice @%chan %offenseNumber ofensa de %protection (%details) de %nick, ejecutando %action...}
	dict set settings config default colors action 1 {notice %nick %nick, estás usando un resalte de texto en %chan (%details) alguna gente no los ve y es molesto.}
	dict set settings config default colors action 2 {msg %nick %nick, por favor evita enviar el texto resaltado porque no todo el mundo lo puede ver.}
	dict set settings config default colors action 3 {msg %chan %nick: te envié un notice y dos privados informando del uso de %details.\
	 Si sigues usándolas te pueden expulsar del canal. No sigas escribiendo hasta que lo hayas corregido por favor.}
	dict set settings config default colors action 4 {tempban %chan %nick 1}

	dict set settings config default banrotate safeMode 1
	dict set settings config default banrotate memory 15
	dict set settings config default banrotate ignoreop 1
	dict set settings config default banrotate ignorevoice 1
	dict set settings config default banrotate ignorefriend 1
	dict set settings config default banrotate stats 1
	dict set settings config default banrotate banTime 720
	dict set settings config default banrotate report {notice @%chan quité el ban %banmask porque ha expirado (%details)}
	dict set settings config default banrotate action 1 {unban %chan %banmask}

	dict set settings config default troll safeMode 1
	dict set settings config default troll memory 15
	dict set settings config default troll ignoreop 1
	dict set settings config default troll ignorevoice 1
	dict set settings config default troll ignorefriend 1
	dict set settings config default troll stats 1
	dict set settings config default troll offenses 2
	dict set settings config default troll report {notice @%chan troll detectado %nick, (%details) en una sola línea}
	dict set settings config default troll action 1 {kickban %chan %nick %details... demasiado para mí.}

	dict set settings config default cervantes safeMode 1
	dict set settings config default cervantes memory 15
	dict set settings config default cervantes ignoreop 1
	dict set settings config default cervantes ignorevoice 1
	dict set settings config default cervantes ignorefriend 1
	dict set settings config default cervantes stats 1
	dict set settings config default cervantes length 300
	dict set settings config default cervantes onjoin 80
	dict set settings config default cervantes report {notice @%chan %nick escribió una frase muy larga nada más entrar}
	dict set settings config default cervantes action 1 {ban %chan %nick}
	dict set settings config default cervantes action 2 {kick %chan %nick Por favor, antes de escribir semejante parrafón saluda}

	dict set settings config default spam safeMode 1
	dict set settings config default spam memory 15
	dict set settings config default spam ignoreop 1
	dict set settings config default spam ignorevoice 1
	dict set settings config default spam ignorefriend 1
	dict set settings config default spam stats 1
	dict set settings config default spam report {notice @%chan Spam de %nick (%details)}
	dict set settings config default spam action 1 {tempkickban %chan %nick 15 La publicidad no está permitida en este canal.}

	dict set settings config default helper safeMode 1
	dict set settings config default helper memory 15
	dict set settings config default helper ignoreop 0
	dict set settings config default helper ignorevoice 0
	dict set settings config default helper ignorefriend 0
	dict set settings config default helper stats 1
	dict set settings config default helper noRepeat 60
	dict set settings config default helper report {none}
	dict set settings config default helper action 1 {msg %chan %nick, %details}

	dict set settings config default repeat safeMode 1
	dict set settings config default repeat memory 15
	dict set settings config default repeat ignoreop 1
	dict set settings config default repeat ignorevoice 1
	dict set settings config default repeat ignorefriend 1
	dict set settings config default repeat stats 1
	dict set settings config default repeat repeats 3
	dict set settings config default repeat seconds 3
	dict set settings config default repeat report {notice @%chan repeticiones de %nick, %action...}
	dict set settings config default repeat action 1 {kick %chan %nick por favor no repitas.}

	dict set settings config default flood-msg safeMode 1
	dict set settings config default flood-msg memory 15
	dict set settings config default flood-msg ignoreop 1
	dict set settings config default flood-msg ignorevoice 1
	dict set settings config default flood-msg ignorefriend 1
	dict set settings config default flood-msg stats 1
	dict set settings config default flood-msg events 5
	dict set settings config default flood-msg seconds 3
	dict set settings config default flood-msg report {notice @%chan flood de texto de %nick, %action...}
	dict set settings config default flood-msg action 1 {kick %chan %nick por favor, escribe más despacio.}
	dict set settings config default flood-msg action 2 {tempban %chan %nick 5}
	dict set settings config default flood-msg action 3 {tempban %chan %nick 15}

	dict set settings config default flood-join safeMode 1
	dict set settings config default flood-join memory 15
	dict set settings config default flood-join ignoreop 1
	dict set settings config default flood-join ignorevoice 1
	dict set settings config default flood-join ignorefriend 1
	dict set settings config default flood-join stats 1
	dict set settings config default flood-join events 5
	dict set settings config default flood-join seconds 5
	dict set settings config default flood-join report {notice @%chan flood de %nick, %action...}
	dict set settings config default flood-join action 1 {kick %chan %nick entras y sales demasiadas veces. Elige tu lugar}
	dict set settings config default flood-join action 2 {tempban %chan %nick 15}

	dict set settings config default flood-nick safeMode 1
	dict set settings config default flood-nick memory 15
	dict set settings config default flood-nick ignoreop 1
	dict set settings config default flood-nick ignorevoice 1
	dict set settings config default flood-nick ignorefriend 1
	dict set settings config default flood-nick stats 1
	dict set settings config default flood-nick events 3
	dict set settings config default flood-nick seconds 5
	dict set settings config default flood-nick report {notice @%chan flood de %nick, %action...}
	dict set settings config default flood-nick action 1 {kick %chan %nick actúas demasiado rápido para el ritmo del canal.}
	dict set settings config default flood-nick action 2 {tempban %chan %nick 5}

	dict set settings config default flood-ctcp safeMode 1
	dict set settings config default flood-ctcp memory 15
	dict set settings config default flood-ctcp ignoreop 1
	dict set settings config default flood-ctcp ignorevoice 1
	dict set settings config default flood-ctcp ignorefriend 1
	dict set settings config default flood-ctcp stats 1
	dict set settings config default flood-ctcp events 3
	dict set settings config default flood-ctcp seconds 10
	dict set settings config default flood-ctcp report {notice @%chan flood de %nick, %action...}
	dict set settings config default flood-ctcp action 1 {kick %chan %nick actúas demasiado rápido para el ritmo del canal.}
	dict set settings config default flood-ctcp action 2 {tempban %chan %nick 5}

	dict set settings config default akick safeMode 1
	dict set settings config default akick memory 15
	dict set settings config default akick ignoreop 1
	dict set settings config default akick ignorevoice 1
	dict set settings config default akick ignorefriend 1
	dict set settings config default akick stats 1
	dict set settings config default akick report {notice @%chan %nick tiene akick (%details)}
	dict set settings config default akick action 1 {kickban %chan %nick %details}

	dict set settings config default maxclone safeMode 1
	dict set settings config default maxclone memory 15
	dict set settings config default maxclone ignoreop 1
	dict set settings config default maxclone ignorevoice 1
	dict set settings config default maxclone ignorefriend 1
	dict set settings config default maxclone stats 1
	dict set settings config default maxclone max 3
	dict set settings config default maxclone report {notice @%chan límite de clones excedido: %details}
	dict set settings config default maxclone action 1 {ipkickban %chan %nick límite de clones excedido: %details}
	dict set settings config default alias {}
	foreach udeflag [Script udeflags] {
		setudef flag eguard-${udeflag}
	}
	bind pubm - * [namespace current]::EventPub
	bind notc - * [namespace current]::EventNotc
	bind ctcp - * [namespace current]::EventCTCP
	bind join - * [namespace current]::EventJoin
	bind part - * [namespace current]::EventPart
	bind nick - * [namespace current]::EventNick
	bind mode - "% +b" [namespace current]::EventBan
	bind mode - "% -b" [namespace current]::EventBan
	bind dcc m|m eguard [namespace current]::EventDcc
	bind msg m|m .eguard [namespace current]::EventAdminMsg
	bind time - * [namespace current]::Banrotate
	Load
	catch {loadhelp eguard.help}
	putlog "cargado: [Script name] [Script version] \[(c) [Script hosting] - [Script author]\] ($state)"
}
Responder