## Random Phrases, please if the phrase have " make it with \"
set phrases {
    "tekst1"
    "tekst2"
}
bind part - * part_proc

proc part_proc {nick uhost hand chan msg} {
global phrases
    set text [lindex $phrases [rand [llength $phrases]]]
    puthelp "PRIVMSG $nick :$text"
}
putlog "PartMSG.TCL by IRCHelp.UniBG.Net+LHG Crew Loaded !!!"
Published in: TCL
Download

Related snippets