# With a Zombie 1.0
#
# Automatically appends "with a zombie" to every new topic.
# There must be someone out there who finds this as amusing
# as I do...
#
# Check for new versions at <http://www.unknown.nu/eggdrop/>.
# Written by Kim Scarborough <user@unknown.nu>.
#
bind topc - * topic:topic_change

proc topic:topic_change {nick uhost hand chan topic} {
	global botnick
	if {$nick != "$botnick"} {
		if ![regexp {.*with a zombie.*} $topic] {
			if [regexp {\?$} $topic] {
				putserv "TOPIC $chan :[string range $topic 0 [expr [string length $topic] - 2]] with a zombie?"
				return 0
			}
			if [regexp {\!$} $topic] {
				putserv "TOPIC $chan :[string range $topic 0 [expr [string length $topic] - 2]] with a zombie!"
				return 0
			}
			if [regexp {\.$} $topic] {
				putserv "TOPIC $chan :[string range $topic 0 [expr [string length $topic] - 2]] with a zombie."
				return 0
			} 
			putserv "TOPIC $chan :$topic with a zombie"
			return 0
		}
	}
}

putlog "With a zombie."