22/10/2009, 11:56
voila c bon
bind join - * pub:join
tcl
proc pub:join { nick uhost handle channel } {
putserv "PRIVMSG $channel :$nick joindre votre canal"
set fichier "scripts/listejoin.txt"
set id [open $fichier a+]
set ch "$nick joindre la canal $channel"
puts $id $ch
close $id
}
putlog "le fichier join est téléchargé avec succés"
/tcl
bind join - * pub:join
tcl
proc pub:join { nick uhost handle channel } {
putserv "PRIVMSG $channel :$nick joindre votre canal"
set fichier "scripts/listejoin.txt"
set id [open $fichier a+]
set ch "$nick joindre la canal $channel"
puts $id $ch
close $id
}
putlog "le fichier join est téléchargé avec succés"
/tcl