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
#1
Bonjour j'essai de faire une commande de !planning radio mais cela ne fonctionne le but de cette commande c'est de faire !planning radio pas !planning_radio mais j'ai essayer mais cela ne fonctionne ou es l'erreur ?

bind pub - !planning_radio planning
proc planning {nick uhost handle chan args} {
putquick "NOTICE $nick :Voici le planning de la radio"

}


Merci car la je suis a bout :S:S
#2
Je n'est pas tout compris ...
Mais j'ai une idée (je sais pas si cela pourais marcher car je n'est jamais essayer de faire comme cela)

tcl
bind msg - "!planning" radio_planning
proc radio_planning {nick host hand arg} {
putquick "NOTICE $nick :Voici le planning de la radio" 
}


#3
et non sa marche pas ...
#4
Je pense que faut effectivement utiliser un bind pubm

tcl
bind pubm - !planning pubm:planning
 
proc pubm:planning {nick uhost hand chan text} {
if {$text ne "radio"} { return }
putquick "NOTICE $nick :Voici le planning de la radio :"
}


#5
eee bon sa marche pas mais il a pas de message d'erreur malheuresement ):(
#6
tcl
bind pub - !planning planning
 
proc planning { nick uhost hand chan text } {
	if {[string tolower [lindex $text 0]]=="radio"} {
		putquick "NOTICE $nick :Voici le planning de la radio :"	
	} else {	
		putquick "NOTICE $nick :Syntaxe de la commande: !planning radio"
	} 
}



J'ai pas testé mais ça devrait t'aider.
#7
Artix Wrote:
tcl
bind pubm - !planning pubm:planning
 
proc pubm:planning {nick uhost hand chan text} {
if {$text ne "radio"} { return }
putquick "NOTICE $nick :Voici le planning de la radio :"
}

La solution est bien un bind pubm, mais la syntaxe est la suivante :
tcl
bind pubm flags cmd/mask procname


où cmd/mask doit matcher le chan + la commande, soit par exemple :
tcl
bind pubm - "* !planning radio" pubm:planning


ou
tcl
bind pubm - "#monchan !planning radio" pubm:planning



Petits rappels utiles concernant les binds :
  • il est possible d'utiliser des jokers dans un bind pubm/msgm mais pas dans un bind pub/msg
  • Il est possible de spécifier un chan dans un bind pubm mais pas dans un bind pub (qui lui est actif sur tous les chans)
  • Il est possible de cumuler plusieurs bind pubm/msgm ayant un déclencheur identique et un appel de procédure différent; cela est impossible avec un bind pub/msg : définir un autre bind pub/msg avec un déclencheur identique écrasera le précédent. On dit que les bind pubm/msgm sont "stackables" (empilables) tandis que les bind pub/msg ne le sont pas.
  • pour des informations détaillées sur les binds et leur syntaxe, voir ici : http://www.eggheads.org/support/egghtml/....html#bind
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.
#8
Salut
Pour les binds ,vois aussi ici les 3/4 a ete traduite en français.

Bon week-end
#9
mais je tien quand meme a souligné que sa ne fonctionne toujour pas en tk pas celon mon idée a moi mdrrr
#10
essaye peut être cela:

tcl
#//-//-//-//-//-//-//-//-//-//-#
#-//-//- Configuration -//-//-#
#//-//-//-//-//-//-//-//-//-//-#
 
#ici le(s) nom(s) de vos salon(s):
set salon_planning "#Salon"
 
bind pub - !planning_radio  pub:planning 
proc pub:planning { nick uhost handle channel arg } {
	global salon_planning
	foreach a $salon_planning {
		if {[string equal -nocase $channel $a]} {
	        	putquick "NOTICE $nick :Voici le planning de la radio :" 
        		putserv "NOTICE $nick :blablabla"
		}
	}
}



je n'est pas testé (je le signale)

cordialement
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.
#11
Babytigrou16 Wrote:mais je tien quand meme a souligné que sa ne fonctionne toujour pas en tk pas celon mon idée a moi mdrrr

Peut être qu'on a pas compris ton idée a toi ...
#12
Bon je vous met sur la voix...

"switch" ??

serait nettement plus simple.

Pardon mais je ne te cracherais pas le morceau va donc recherché cet fonction et essaye de faire un petit bou de code et nous montrais t'es erreurs :)

Good luck.
#13
switch ? y'a pas besoin de switch la - meme pas besoin de filtrer les chans
Pas besoin de foreach ou quoi que ce soit, un bind pubm peut marcher

tcl
bind pubm - "* !planning radio" pubm:planning
 
proc pubm:planning {nick uhost hand chan text} {
putquick "NOTICE $nick :Voici le planning de la radio :"
return }


#14
Je ne me permettrai pas de jour le role de modérateur, mais je tiens a te signaler babytigrou:

1- Utilise les balises [ tcl] [ /tcl] quand tu poste du code, ca a dû t'être répété une bonne dizaine de fois ... gare à toi, notre admin préféré risque de prendre des sanctions.

2- notre admin préféré (encore lui), demande cordialement de ne PAS utiliser de langage SMS, hors mon très cher bébé tigre, tes post en son remplis.

Ensuite pour ton code.
Déjà, si tu veux deux arguments à ta commande, utiliser un truc genre "!commande_blabla" dans le bind ça ne marchera JAMAIS.
Le code qu'a posté BdS me parais très bien approprié.

Voici ce que moi j'aurai fait.

tcl
proc putfast {arg} {
append arg "\n"
putdccraw 0 [string length $arg] $arg
}
#merci à Heretoc pour le putfast que je reprends toujours dans mes 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 {
putfast "NOTICE $nick :Le planning radio se trouve sur h ttp://tonsite.tld"
 
		}
	}



ici en pièce jointe (pour éviter la surcharge) je te le donne à titre d'indications et d'aide un de mes tcl pour la radio.
Je précise que, ce tcl n'est pas fini, et que certains morceaux ne fonctionnent pas.
Et si je vois que tu l'approprie ce tcl ou des morceaux comme le tien, je demanderai à un modérateur ou admin de prendre des mesures. vu que tu en as la fâcheuse habitude ...

ps: si tu souhaite poster des morceaux de code du animradio.tcl n'oublie pas d'enlever les couleurs. et d'utiliser la balise tcl.
#15
faut eviter de coller des putfast a toutes les sauces ...
Un eggdrop n'est pas fait pour aller ci rapidement ...


Possibly Related Threads…
Thread Author Replies Views Last Post
  Demande script Planning deejay-wilo 18 5,205 Yesterday, 14:31
Last Post: CrazyCat
  Radio.tcl b2b 6 605 07/05/2021, 13:59
Last Post: aliasangelius
  [Demande] Planning radio nydalimar 8 5,726 08/10/2016, 17:52
Last Post: CrazyCat
  [Bug] TCL Radio par Blacknight ShowDowN 0 3,628 27/04/2016, 09:06
Last Post: ShowDowN
  Tcl gestion de news / Programme Radio KeeViiNou 5 6,173 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)