bind pub - !spam inputspam
set id 0
set spamonoff 0
proc inputspam { nick host hand chan text } {
    global spamonoff id
    if { $text == "on" } {
        set spamonoff 1
        spam
    }
    if { $text == "off" } {
        set spamonoff 0
    }
}
proc spam {  } {
    global spamonoff
    set spamtxt "scripts/spam.txt"
    set spamfile [open $spamtxt r]
    set spamread [split [read $spamfile] \n]
    close $spamfile
    putquick "PRIVMSG #YourMomsHouse :[lindex $spamread [rand [llength $spamread]]]"
    if {$spamonoff == 1} {
        utimer 1 spam
    }

}