+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : Notes (/showthread.php?tid=503)
Notes - Babytigrou16 - 29/08/2009
Bonjour je travaille sur un nouveau projet :) ! et la je suis bloquet !! je comprend pas ce que sa veux dire mon erreur alors p-e m'aider d'ou sa vien merci :) !
tcl
bind msg -|- message msg_message
proc msg_message { nick host hand channel text } {
global vhostanim
foreach vhost $vhostanim {
if [string match -nocase $vhost $host] {
set f [open "./logs/note.db" "a"]
puts $f "$text"
close $f
putquick "NOTICE $nick \00303OK\00301.\00301La \00303notes \00301 à bien étais \00304ajouter"
}
}
}
}
Voici l'erreur
-16:59:12- <Zitho> [22:58] Tcl error [msg_message]: wrong # args: should be "msg_message nick host hand channel text"
RE: Notes - fedora - 29/08/2009
tu à une accolade en trop tu à ouvert 3 accolade donc tu doit en refermé 3 :)
tcl
bind msg -|- message msg_message
proc msg_message { nick host hand channel text } {
global vhostanim
foreach vhost $vhostanim {
if [string match -nocase $vhost $host] {
set f [open "./logs/note.db" "a"]
puts $f "$text"
close $f
putquick "NOTICE $nick \00303OK\00301.\00301La \00303notes \00301 à bien étais \00304ajouter"
}
}
}
essaye comme ça pour voir
RE: Notes - Babytigrou16 - 29/08/2009
non, sa fonctionne mais j'ai encore la meme erreur mais cela se passe simplement quand je tape /zi message monmessage
-17:27:36- <Zitho> [23:27] Tcl error [msg_message]: wrong # args: should be "msg_message nick host hand channel text"
RE: Notes - Babytigrou16 - 30/08/2009
Il suffiser de remplacer
tcl
proc msg_message { nick host hand channel text } {
par
tcl
proc msg_message { nick host hand text } {
RE: Notes - Babytigrou16 - 30/08/2009
ok j'ai encore probleme et j'ignore par ou commencer p-e que vous allez pouvoir encore m'aider :) ! J'aimerais que quand je tape /zi note 1
Sa me donne la note numéro 1 pas tous les notes !
un autre exemple que je veux qui me donne la note numéro 2 ben je tape /zi note 2
et sa me donne la note numéro 2, merci :x voila le tcl que jai
tcl
bind msg -|- note msg_note
proc msg_note {nick host hand arg} {
global vhostanim
foreach vhost $vhostanim {
if [string match -nocase $vhost $host] {
set logcomfile [open "./logs/note.db" "r"]
set ligne "0"
while { ![eof $logcomfile] } {
gets $logcomfile rrabus
set len [string length $rrabus]
putdccraw 0 [expr $len + 1] "$rrabus\n"
putfast "NOTICE $nick :\00312 N\00304°\00302$ligne \00301- \00306$rrabus"
if {$rrabus != ""} { incr ligne }
}
if {$ligne == "0"} { putfast "NOTICE $nick :\00314Il n'y as pas encore de notes." }
close $logcomfile
return 0
}
}
}
RE: Notes - Babytigrou16 - 30/08/2009
........