Notes
#1
Bonjour je travaille sur un nouveau projet Smile ! 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 Smile !

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"
Le meuilleur du Web www.zet-land.org
Répondre Avertir
#2
tu à une accolade en trop tu à ouvert 3 accolade donc tu doit en refermé 3 Smile
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
[font=Times New Roman]La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.[/font]
Répondre Avertir
#3
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"
Le meuilleur du Web www.zet-land.org
Répondre Avertir
#4
Il suffiser de remplacer

TCL
proc msg_message { nick host hand channel text } {



par

TCL
proc msg_message { nick host hand text } {


Le meuilleur du Web www.zet-land.org
Répondre Avertir
#5
ok j'ai encore probleme et j'ignore par ou commencer p-e que vous allez pouvoir encore m'aider Smile ! 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 Mad 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
		}
	}
}


Le meuilleur du Web www.zet-land.org
Répondre Avertir
#6
........
Le meuilleur du Web www.zet-land.org
Répondre Avertir


Atteindre :


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