set ::blocker 1

proc find { nick } {
	set chans ""
	foreach c [channels] {
		foreach user [users $c] {
			set ulist [split $user]
			if { $nick == [lindex $ulist 0] } {
				lappend chans $c
			}
		}
	}
	return $chans
}

alias to {
	set nick [string trimleft [string trimright [lindex $_rest 0]]]
	set msg [string trimleft [string trimright [lindex $_rest 1]]]
	set chans [find $nick]
	foreach c $chans {
		command $c "say $msg $nick"
	}
	complete
}

alias find {
	set nick [string trimleft [string trimright $_rest]]
	foreach chan [find $nick] {
		print "Chan: $chan"
	}
	complete
}

alias allow {
	/ignore $_rest!*@* PRIV UNIGNORE
	complete
}
alias ig {
	set nick [string trimleft [string trimright $_rest]]
	/ignore $nick!*@* ALL
	/me setzt $nick auf Ignore
	complete
}
alias ignores {
	set ignorelist [ignores]
	foreach entry $ignorelist {
#	  print "Ignoring:"
#	  print "[lindex $entry 0]: [lindex $entry 1]"
		if { [string first [string tolower $_rest] [string tolower [lindex $entry 0]]] != -1 } {
			print "found"
		}
	}
	complete
}
alias block {
	if { $_rest == "on" } {
		set ::blocker 1
		print "Blocker aktiviert"
	}
	if { $_rest == "off" } {
		set ::blocker 0
		print "Blocker deaktiviert"
	}
	complete
}

on PRIVMSG anti {
	splitsrc
	set found 1
	if { $_private == 1 && $::blocker == 1 } {
		set ignorelist [ignores]
		foreach entry $ignorelist {
			if { [string first [string tolower $_nick] [string tolower [lindex $entry 0]]] != -1 } {
				set found 0
			}
		}
	} else {
		set found 0
	}
	if { $found == 1 } {
		set clist [find $_nick]
		foreach c $clist {
			command $c "say <$_nick> $_rest"
		}
		/msg $_nick "\002\00304Dies ist der automatische Anschreib-Rueckschreiber von Schurke, ich habe grad keine Lust mit dir privat zu schreiben."
		/msg $_nick "\002\00304Wenn du mir eine Nachricht hinterlassen willst tippe /quit NACHRICHT"
		complete
	}
}