!planning radio

[MenzAgitat]

tclcopier

bind pub - !planning planrad
 
proc planrad { nick uhost handle channel arg } {
 
   if {[lindex $arg 0]!="radio"} {
putfast "NOTICE $nick :La syntaxe correcte est !planning radio"
	   } else {
...

Je redis ce que j'ai suggéré plus haut :

tclcopier

bind pubm - "* !planning radio" planrad

[BlackNight]

Je ne l'utilise pas à toutes les sauces :p je m'en sert seulement pour des actions que je veux voir se faire rapidement.

[Babytigrou16]

Non mais les mecs pour qui vous me prennais sérieux BlackNight et je te ferais remarquet que la plus part des codes que j'ai fait au début est de moi ! alors stp ne dit pas des choses que tu ne c'est pas et ce qui es des balise TCL non on ma pas aviser ! enfin bon merci de l'aide mais si c'est pour m'insulter devant tout le monde j'aime mieux aller ailleur sérieux !

[heretoc]

Bon je vais essayer de t'aider de la façon que j'ai compris ton truc, et merci de pas t'enerver.
Avec divers bout de tcl j'ai fait un medley si on peut le dire qui permet avec la commande de "Artix" de faire ton "!planning radio" et j'ai continuer ... je te previent je n'est pas essayer, cela est meme brouillon mais bon si sa peut te donner des idées pour continuer tant mieux

tclcopier

set Planning "scripts/radioplanning.txt"
 
bind pub - !addplaning pub:!addplaning
proc pub:!addplaning { nick host hand channel text } {
global Planning
set f [open "$Planning" "a"]
puts $f "$text par $nick"
close $f
putserv "NOTICE $nick OK. Is good."
} 
}
 
bind pubm - "* !planning radio" pubm:planning
proc pubm:planning {nick uhost hand chan text} {
  global Planning
  set RadioP [open $Planning r]
  set ligne "1"
  while { ![eof $RadioP] } {
    gets $RadioP rrabus
set len [string length $rrabus]
putdccraw 0 [expr $len + 1] "$rrabus\n" 
    putquick "NOTICE $nick : $ligne - $rrabus"
    if {$rrabus != ""} { incr ligne }
  }
  if {$ligne == "0"} { putserv "NOTICE $nick : Il n'y a pas de planning." }
  close $RadioP
  return 0
}