jointalk.tcl

###########################################################################
#
# joinTalk Tcl ( le raspunde userilor la intrare pe canal )
#
#Se activeaza cu .chanset +talk
#
#                                        BLaCkShaDoW ProductionS
###########################################################################

#Aici sunt setate mesajele..poti adauga cate vrei :)

set messages {
{"%nick% where have u been? :P"}
{"%nick% nigga stop stalking me :P"}
{"hello %nick% can u pet me ? :>"}
{"hello %nick% welcome! :>"}
{"hello %nick% you are looking good today :>"}
{"%nick% welcome back nigga ;) "}
{"hello %nick%, who are you stalking? :P"}
{"hello %nick% Will you be here long? :>"}
}


bind join - * joinmessage
setudef flag talk

proc joinmessage {nick host hand chan args} {
global messages
if {[channel get $chan talk]} {
set message [lindex $messages [rand [llength $messages]]]
set replace(%nick%) $nick
foreach mes $message {
set mesr [string map [array get replace] $mes]
utimer 3 [list putquick "PRIVMSG $chan :$mesr"]
}
}
}

putlog "JoinTalk by BLaCkShaDoW Loaded"