nick list
#1
bonjour merci pour pour l aide hier
j aurais bien voulus ameliorer ce code rajouter un fond de couleur et cganger la couleur des nick
plus afficher le status de luser si il est op voice owner ect...
voici le code
TCL
set canal "#bienvenue"
set fichier "/home/mandarin/domains/tchatweb.net/public_html/liste.html"
 
bind join - "$canal *" list:join
bind part - "$canal *" list:part
bind sign - "$canal *" list:quit
 
proc list:join {nick uhost handle chan} { list:log; }
proc list:part {nick uhost handle chan text} {
if {$nick != $::botnick} { list:log; }
}
proc list:quit {nick uhost handle chan text} {
if {$nick != $::botnick} { list:log; }
}
 
proc list:log {} {
set fp [open $::fichier w]
foreach cnick [chanlist $::canal] {
puts $fp "$cnick"
puts $fp "<br>"
 
}
close $fp
}


merci bcp de l aide

Edit: merci d'utiliser les balises [ tcl ]
Répondre Avertir


Messages dans ce sujet
nick list - par T4tou - 04/11/2010, 10:48
RE: nick list - par CrazyCat - 04/11/2010, 12:45
RE: nick list - par T4tou - 04/11/2010, 12:57
RE: nick list - par T4tou - 04/11/2010, 12:59
RE: nick list - par cestlemien - 04/11/2010, 15:06
RE: nick list - par CrazyCat - 04/11/2010, 15:45

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté