# 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 .
# Written by Kim Scarborough .
#
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."