Notes

[Babytigrou16]

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 voila le tcl que jai

tclcopier

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
		}
	}
}