Votre question

Script tcl

Tags :
  • Script
  • Programmation
Dernière réponse : dans Programmation
19 Novembre 2006 16:04:47

Bonjour
voila j'ai fait un script tcl mais j'aimerai l'amelioré :
en effet sous l'action de la commande !admin le bot contact les admin : mais le probleme c'est que actuelement il contact que les admin préenregistré dans le script + qui soit avec sont pseudo habituel !
et j'aimerai que le bot envoit ce msg a tous les @ du channel ( script tcl) comment faire ?
merci :) 
voici le code :
  1. ### Contact_admin.tcl by Cool166
  2.  
  3. # Configuration
  4.  
  5. # Afficher l'information sur le script lors du join (1 => oui ; 0 => non)
  6. set display_info_admin 1
  7. # Afficher les admin
  8. set admin1 Cool166
  9. set admin2 ChRiSs-
  10. set admin3 libre
  11. set admin4 libre
  12. set admin5 libre
  13. set admin6 libre
  14. set admin7 libre
  15. set admin8 libre
  16. set admin9 libre
  17. set admin10 libre
  18. #Ne pas toucher
  19. set ver 1.00
  20. # Binds
  21. bind pub - !admin pub:admin
  22. bind join - * join:admin
  23.  
  24.  
  25. # Procédures
  26.  
  27. proc pub:admin { nick uhost hand channel arg } {
  28. global display_info_admin admin1 admin2 admin3 admin4 admin5 admin6 admin7 admin8 admin9 admin10
  29. if $display_info_admin {
  30. putserv "NOTICE $nick :Un admin va etre contacter, Veuilliez patientez ."
  31. putserv "PRIVMSG $admin1 :[lindex $nick] a besoin d'aide sur [lindex $channel]"
  32. putserv "PRIVMSG $admin2 :[lindex $nick] a besoin d'aide sur [lindex $channel]"
  33. putserv "PRIVMSG $admin3 :[lindex $nick] a besoin d'aide sur [lindex $channel]"
  34. putserv "PRIVMSG $admin4 :[lindex $nick] a besoin d'aide sur [lindex $channel]"
  35. putserv "PRIVMSG $admin5 :[lindex $nick] a besoin d'aide sur [lindex $channel]"
  36. putserv "PRIVMSG $admin6 :[lindex $nick] a besoin d'aide sur [lindex $channel]"
  37. putserv "PRIVMSG $admin7 :[lindex $nick] a besoin d'aide sur [lindex $channel]"
  38. putserv "PRIVMSG $admin8 :[lindex $nick] a besoin d'aide sur [lindex $channel]"
  39. putserv "PRIVMSG $admin9 :[lindex $nick] a besoin d'aide sur [lindex $channel]"
  40. putserv "PRIVMSG $admin10 :[lindex $nick] a besoin d'aide sur [lindex $channel]"
  41. }
  42. }
  43.  
  44. proc join:admin { nick uhost hand chan } {
  45. global display_info_admin
  46. if $display_info_admin {
  47. putserv "NOTICE $nick :Besoin d'un admin ? un renseignement ? taper : !Admin ."
  48. }
  49. }
  50. putlog "Contact_Admin $ver by Cool166"
  51. # Fin du script

Autres pages sur : script tcl

20 Novembre 2006 21:15:35

personne n'a las réponse ?
a c 145 L Programmation
20 Novembre 2006 22:03:21

bon, je t'aurais bien dit d'aller demander sur eggdrop.fr, la solution y est peut-être déja :) 
Contenus similaires
a c 145 L Programmation
21 Novembre 2006 09:35:22

au cas ou, voila la solution:
  1. foreach victim [chanlist $channel] {
  2. if {[isop $victim $channel]} {
  3. putserv "PRIVMSG $victim :[lindex $nick] a besoin d'aide sur [lindex $channel]"
  4. }
  5. }
21 Novembre 2006 20:30:46

merci bocoup mais j'ai un pb sa fonctionne pas :s
voici le code :
  1. ### Contact_admin.tcl by Cool166
  2.  
  3. # Configuration
  4.  
  5. # Afficher l'information sur le script lors du join (1 => oui ; 0 => non)
  6. set display_info_admin 1
  7.  
  8. #Ne pas toucher
  9. set ver 1.10
  10. # Binds
  11. bind pub - !admin pub:admin
  12. bind join - * join:admin
  13.  
  14.  
  15. # Procédures
  16.  
  17. proc pub:admin { nick uhost hand chan } {
  18. foreach victim [chanlist $channel] {
  19. if {[isop $victim $channel]} {
  20. putserv "PRIVMSG $victim :[lindex $nick] a besoin d'aide sur [lindex $channel]"
  21. }
  22. }
  23.  
  24. proc join:admin { nick uhost hand chan } {
  25. global display_info_admin
  26. if $display_info_admin {
  27. putserv "NOTICE $nick :Besoin d'un admin ? un renseignement ? taper : !Admin ."
  28. }
  29. }
  30. putlog "Contact_Admin $ver by Cool166"
  31. # Fin du script


voici l'ereure :

[21:53] Tcl error in file 'egg.conf':
[21:53] missing close-brace
while executing
"proc pub:admin { nick uhost hand chan } {
foreach victim [chanlist $channel] {
if {[isop $victim $channel]} {
putserv "PRIVMSG $victim :[lindex..."
(file "scripts/Contact_admin.tcl" line 27)
invoked from within
"source scripts/Contact_admin.tcl"
(file "egg.conf" line 114)
[21:53] * FICHIER DE CONFIGURATION NON CHARGE (INTROUVABLE OU ERREUR)
23 Novembre 2006 19:58:00

pas de réponse ? c'est assez urgent , svp :'( 
a c 145 L Programmation
23 Novembre 2006 20:31:39

tu as oublié de fermer la procédure pub:admin : il doit y avoir 3 accolades fermantes:
- procédure
- foreach
- if
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS