+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : question debutant (/showthread.php?tid=537)
question debutant - marawam - 21/10/2009
je veux créer un script qui me permet de créer un fichier et écrire dedans la liste des utilisateurs qui joindre mon salon j'ai essayer avec ce script mais ca marcha pas
bind join - * join:join
proc join:join {nick uhost handle channel arg} {
set id [open $filejoin "a+"]
puts $id "$nick has joined $channel"
close $id
}
RE: question debutant - CrazyCat - 21/10/2009
Tu ne définis pas $filejoin dans ta procédure.
S'il est défini hors de la procédure, il faut faire:
tcl
set id [open $::filejoin "a+"]
Et merci d'utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces) pour écrire du code, ça le rend plus lisible.
RE: question debutant - marawam - 22/10/2009
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
RE: question debutant - marawam - 22/10/2009
svp puis je savoir si vous avez un lien qui me donne Les format des messages que reçois les serveurs et les clients irc?
merci
RE: question debutant - CrazyCat - 22/10/2009
marawam a écrit :svp puis je savoir si vous avez un lien qui me donne Les format des messages que reçois les serveurs et les clients irc?
merci
Pourrais-tu ne pas poster ta question sur des sujets où elle n'a rien à faire s'il te plait ?
Et pourrais-tu:
1) ouvrir un nouveau sujet
2) être plus clair sur ce que tu demandes
RE: question debutant - marawam - 23/10/2009
comment puis je chercher un élément (un mot) dans un fichier existe déja avec le langage tcl
merci
RE: question debutant - CrazyCat - 25/10/2009
J'imagine que tu parles de ce qui est sur cette page ?
RE: question debutant - marawam - 28/10/2009
bonjour puis je savoir si c possible ,avec tcl, de créer un tableau avec des lignes et des colonnes et de stocker la dedant des variables ensuite de chercher un élémen dans ce tableau en retournant son emplacemen exactement(ligne,colone)
si c possible j'aurais besoin d'un exemple svp
RE: question debutant - marawam - 02/11/2009
tcl:
#avec ce script tcl je veux créer un tableau qui contien 2 colones une pour id et l'autre pour pseudo
#et de remplir les colones id et pseudo à chaq foi que qlq1 tappe !tab (déclancheur) et d'afficher les contenu du tableau dans le canal( en respectant #le test if )
# ca marche pa, svp besoin d'aide
bind pub - !tab pub:testtab
proc pub:testtab { nick uhost handle arg channel } {
set i 1
set id 1
set [array size tabpseudo] 30
set pseudo 20
set pseudoch $arg
for {set i 1} {i<[array size tabpseudo]} {incr i} {
array set tabpseudo(i,1) $id
array set tabpseudo(i,2) $pseudo
set search [array get $tabpseudo (i,2)]
if { [string match $search $pseudoch] } {
array set tabpseudo([exper [array size tabpseudo] + 1],1) $id
array set tabpseudo([exper [array size tabpseudo] + 1],2) $pseudoch
putserv "PRIVMSG $channel : client avec l'id [array get $tabpseudo($i,1)] et de pseudo [array get $tabpseudo($i,2)]"
}
}
}