Communauté sur les Eggdrops - Community about Eggdrops
question debutant - Printable Version

+- Communauté sur les Eggdrops - Community about Eggdrops (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)
+--- Thread: 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 Wrote: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)]"
}
}
}