Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


!planning radio
#16
BlackNight Wrote:
tcl
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 :
tcl
bind pubm - "* !planning radio" planrad


Toute l'actualité de mes scripts ici     (dernière mise à jour le 22/04/2020)

Tout programme comporte au moins un bug et pourrait être raccourci d'au moins une instruction, de quoi l'on peut déduire que tout programme peut être réduit à une seule instruction qui ne fonctionne pas.
#17
Je ne l'utilise pas à toutes les sauces :p je m'en sert seulement pour des actions que je veux voir se faire rapidement.
#18
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 !
#19
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

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




Possibly Related Threads…
Thread Author Replies Views Last Post
  Demande script Planning deejay-wilo 18 5,205 11 hours ago
Last Post: CrazyCat
  Radio.tcl b2b 6 603 07/05/2021, 13:59
Last Post: aliasangelius
  [Demande] Planning radio nydalimar 8 5,725 08/10/2016, 17:52
Last Post: CrazyCat
  [Bug] TCL Radio par Blacknight ShowDowN 0 3,626 27/04/2016, 09:06
Last Post: ShowDowN
  Tcl gestion de news / Programme Radio KeeViiNou 5 6,171 29/12/2012, 13:27
Last Post: CrazyCat
  Planning Ryan 2 4,342 01/10/2011, 13:25
Last Post: CrazyCat

Forum Jump:


Users browsing this thread: 1 Guest(s)