scrit.tcl auto bonjour

[fedora]

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 .

tclcopier

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