TCL Part MSG
Part MSG
## 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 !!!"