proc inputspam { nick host hand chan text } {
if { $text == "on" } {
set spamonoff on
}
if { $text == "off" } {
set spamonoff off
}
}
if { $spamonoff == "on" } {
utimer 1 spam
}
proc spam { nick host hand chan text } {
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]]]"
}