13/02/2010, 20:25
tu peut être un truc comme cela .. après je ne garantit qu'il fonctionne je n'est pas tester .Âpres une âme charitable pourra t'aider .
Cordialement DnS
tcl
set MessJoin "#Salon"
bind join - * JoinUser
proc JoinUser {nick host hand chan} {
global botnick
foreach chan [string tolower $::MessJoin ] {
if {$chan != ""} {
utimer 10 [list JoinMess $chan]
return 0
}
}
}
proc JoinMess {chan} {
global botnick
putserv "PRIVMSG $chan :ton Message ... blabla... "
return 0
}
Cordialement DnS
[font=Times New Roman]La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.[/font]