bind pub - !spamon seton
bind pub - !spamoff setoff
set spamonoff 0
proc setoff { nick host hand chan text } {
set spamonoff off
}
proc seton { nick host hand chan text } {
set spamonoff on
while { $spamonoff == "on" } {
utimer 1 spam
if { $spamonoff == "off" } {
return 1
}
}
}

proc spam { } {
set spamtxt "scripts/spam.txt"
set spamfile [open $spamtxt r]
set spamread [split [read $spamfile] \n]
close $spamfile
putquick "PRIVMSG $chan :[lindex $spamread [rand [llength $spamread]]]"
}