14/02/2010, 12:14
bonjour,
j'ai tester le code et il fonctionne :)
Cordialement DnS
tcl
set MessJoin "#Eggdrop"
bind join - * JoinUser
proc JoinUser {nick host hand chan} {
global botnick
foreach chan [string tolower $::MessJoin ] {
if {$chan != ""} {
utimer 10 [list JoinMess $chan $nick]
return 0
}
}
}
proc JoinMess {chan nick} {
global botnick
putserv "PRIVMSG $chan :ton Message ... blabla... "
return 0
}
j'ai tester le code et il fonctionne :)
Cordialement DnS