Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- bind pub - !spam inputspam
- set spamonoff 0
- 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 { } {
- 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]]]"
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement