bind pub - !spam inputspam
set spamonoff 0

proc inputspam { nick host hand chan text } {
    global spamonoff
    if { $text == "on" } {
        set spamonoff 1
        spam_timer
    }
    if { $text == "off" } {
        set spamonoff 0
    }
}

proc spam_timer {  } {
    global spamonoff
    if {[utimerexists spam] == ""} {
        utimer 1 spam
    }
}

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 }
        spam_timer
    }
}