Script tcl

cool166

19 Novembre 2006 15: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 :

### Contact_admin.tcl by Cool166

 
# Configuration

 
# Afficher l'information sur le script lors du join (1 => oui ; 0 => non)

set display_info_admin 1

# Afficher les admin

set admin1 Cool166

set admin2 ChRiSs-

set admin3 libre

set admin4 libre

set admin5 libre

set admin6 libre

set admin7 libre

set admin8 libre

set admin9 libre

set admin10 libre

#Ne pas toucher

set ver 1.00

# Binds

bind pub - !admin pub:admin

bind join - * join:admin

 
 
# Procédures

 
proc pub:admin { nick uhost hand channel arg } {

global display_info_admin admin1 admin2 admin3 admin4 admin5 admin6 admin7 admin8 admin9 admin10

if $display_info_admin {

   putserv "NOTICE $nick :Un admin va etre contacter, Veuilliez patientez ."

   putserv "PRIVMSG $admin1 :[lindex $nick] a besoin d'aide sur [lindex $channel]"

   putserv "PRIVMSG $admin2 :[lindex $nick] a besoin d'aide sur [lindex $channel]"

   putserv "PRIVMSG $admin3 :[lindex $nick] a besoin d'aide sur [lindex $channel]"

   putserv "PRIVMSG $admin4 :[lindex $nick] a besoin d'aide sur [lindex $channel]"

   putserv "PRIVMSG $admin5 :[lindex $nick] a besoin d'aide sur [lindex $channel]"

   putserv "PRIVMSG $admin6 :[lindex $nick] a besoin d'aide sur [lindex $channel]"

   putserv "PRIVMSG $admin7 :[lindex $nick] a besoin d'aide sur [lindex $channel]"

   putserv "PRIVMSG $admin8 :[lindex $nick] a besoin d'aide sur [lindex $channel]"

   putserv "PRIVMSG $admin9 :[lindex $nick] a besoin d'aide sur [lindex $channel]"

   putserv "PRIVMSG $admin10 :[lindex $nick] a besoin d'aide sur [lindex $channel]"

}

}

 
proc join:admin { nick uhost hand chan } {

global display_info_admin

if $display_info_admin {

   putserv "NOTICE $nick :Besoin d'un admin ? un renseignement ? taper : !Admin ."

}

}

putlog "Contact_Admin $ver by Cool166"

# Fin du script

Autres pages sur : script tcl

| Etre averti des réponses
| Alerter

Répondre à cool166

cool166

20 Novembre 2006 20:15:35

personne n'a las réponse ?

| Alerter

Répondre à cool166

crazycat@idn

Expert Programmation

20 Novembre 2006 21:03:21

bon, je t'aurais bien dit d'aller demander sur eggdrop.fr, la solution y est peut-être déja

| Alerter

Répondre à crazycat@idn

crazycat@idn

Expert Programmation

21 Novembre 2006 08:35:22

au cas ou, voila la solution:

foreach victim [chanlist $channel] {

   if {[isop $victim $channel]} {

      putserv "PRIVMSG $victim :[lindex $nick] a besoin d'aide sur [lindex $channel]"

   }

}

| Alerter

Répondre à crazycat@idn

cool166

21 Novembre 2006 19:30:46

merci bocoup mais j'ai un pb sa fonctionne pas :s
voici le code :

### Contact_admin.tcl by Cool166

 
# Configuration

 
# Afficher l'information sur le script lors du join (1 => oui ; 0 => non)

set display_info_admin 1

 
#Ne pas toucher

set ver 1.10

# Binds

bind pub - !admin pub:admin

bind join - * join:admin

 
 
# Procédures

 
proc pub:admin { nick uhost hand chan } {

foreach victim [chanlist $channel] {

if {[isop $victim $channel]} {

       putserv "PRIVMSG $victim :[lindex $nick] a besoin d'aide sur [lindex $channel]"

}

}

 
proc join:admin { nick uhost hand chan } {

global display_info_admin

if $display_info_admin {

   putserv "NOTICE $nick :Besoin d'un admin ? un renseignement ? taper : !Admin ."

}

}

putlog "Contact_Admin $ver by Cool166"

# 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)