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


msg.tcl , il fonctionne mais dans un seul chan
#1
Bonjour a tous,
bon en theorie cela ne se fait pas de débarquer dans un forum ,sans presentation, et de poser une question , mais il me faut de l'aide rapidement.

Donc je m'explique, j'ai louer un eggdrop pour faire de la pub, je l'install, je configure egg.conf, j'ajoute le script tcl dans egg.conf.
Le tcl en question est celui-ci :http://www.shell-fr.net/TCL/msg.tcl

Donc je le modifie , ce qui nous donne ceci(la partie modifiée , le reste est tel quel)

Quote:## Set your channel for Advertize your text messeges ..
## If you want to Advertize in all channel where is your bot parking then use "*"
## other "#channel"

set speaks_chans "*"


# Set you want in XXX minute you bot always talk on minute
set speaks_time 5

## ----------------------------------------------------------------
## --- Don't change anything below here if you don't know how ! ---
## ----------------------------------------------------------------

### Advertizing Messeges are Here ###
# Set the next lines as the random speaks msgs you want to say

set speaks_msg {
"0,1Perf 11#cdf-lan.fr 4|| 0www.cdf-lan.fr || 2 SERVERS COD4 OFFERTS PAR APISERV EN REPONDANT A LA QUESTION SUIVANTE --> http://www.cdf-lan.fr/index.php"
"0,1Perf 11#cdf-lan.fr 4|| 0www.cdf-lan.fr ; www.forum.cdf-lan.fr 4|| 0Coupe de france 2008 sur COD4 !!! "
}

Le soucis , c'est que le script marche parfaitement , mais seulement dans le premier chan qu'a rejoint mon eggdrop.
Dans les autres, rien du tout.

Donc si quelqu'un a une idée? merci d'avance :)
#2
Bon alors très franchement, à première vue, ton script ne m'a pas plus du tout, c'est pourquoi j'ai décider d'en coder un similaire, qui lui fonctionne (je viens de le faire à l'instant et de le tester. Si vous trouvez des bugs, merci de les repportez).

Voici la source :

tcl
#############################################################
#   ____        _     _ _      _ _              _       _   #
#  |  _ \ _   _| |__ | (_) ___(_) |_ ___       | |_ ___| |  #
#  | |_) | | | | '_ \| | |/ __| | __/ _ \      | __/ __| |  #
#  |  __/| |_| | |_) | | | (__| | ||  __/  _   | || (__| |  #
#  |_|    \__,_|_.__/|_|_|\___|_|\__\___| (_)   \__\___|_|  #									
#############################################################
 
#################
# Configuration #
#################
 
# -> Voulez vous ou non activer la publicité ? (1 = OUI | 0 = NON)
set pub_a 1
 
# -> Tout les combiens de minutes voulez vous que la publicité soit envoyé ?
set pub_d 2
 
# -> Liste des chans dans lesquels il faut faire de la pub (mettez * pour faire de la pub dans tout les salons)
set pub_c "#salon1 #salon2 #salon3 #salon4 #salon5 #salon6"
 
# -> Message à envoyer sur tout les salons
#> Un seul méssage sera tirer au sort et sera envoyer sur tout les salons
#> Vous pouvez mettre qu'un seul méssage et se sera dans tout les cas lui qui sera tirer au sort.
set pub_m {
	"Message .... 1"
	"Message .... 2"
	"Message .... 3"
	"Message .... 4"
}
 
###################
# Debut du script #
###################
 
# Vérifications
 
if {![info exist pub_c]} {
	set pub_c "*"
}
if {![info exist pub_d]} {
	set pub_d 1
}
if {![info exist pub_m]} {
	set pub_m "Vous devez définir un méssage qui sera envoyé toute les $pub_d minutes."
}
 
# Envoie de la publicité
proc pub_s {} {
 
	# On tire aléatoirement la phrase qui va être dite
	set msg_s [lindex $::pub_m [expr {int(rand() * [llength $::pub_m])}]]
 
	if {$::pub_c eq "*"} {
		foreach a [channels] {
			puthelp "PRIVMSG $a :$msg_s"
		}
	} else {
		foreach a $::pub_c {
			if {[string index $a 0] ne "#"} { continue }
			if {![botonchan $a]} { continue }
			puthelp "PRIVMSG $a :$msg_s"
		}
	}
 
	timer $::pub_d pub_s
 
}
 
# Initialisation
 
if {$pub_a} {
 
	pub_s
 
}
 
putlog "Publicite.tcl by DaV34"


Le script sera disponible demain en téléchargement sur ce site même.

Sur ceux, il est tard, donc je vous laisse, et à demain.
#3
Un grand merci a DAV34 , mon problème est résolu , le script est impeccable.
Si tu es sur paris, du 12 au 13 juillet nous organisons la coupe de france de Callofduty 4, n'hésite pas a passer:)
#4
Bon code Wink
#5
kanotix Wrote:Un grand merci a DAV34 , mon problème est résolu , le script est impeccable.
Si tu es sur paris, du 12 au 13 juillet nous organisons la coupe de france de Callofduty 4, n'hésite pas a passer:)

Heu, ça risque très certainement pas que je monte à Paris (beaucoup trop loin pour moi, je suis de Beziers (34), mais ça aurait été avec plaisir).


Si non, pour le script, c'est avec plaisir que j'ai fais ça, ça ne m'a pris que très peu de temps et si ça peut rendre service ...

Merwin Wrote:Bon code Wink

Merci poulet :)
#6
sympa je prend :p


Possibly Related Threads…
Thread Author Replies Views Last Post
  [Résolu] Youtube tcl (Zurl.tcl) ne fonctionne plus Krypte 23 14,411 28/04/2017, 18:22
Last Post: Alucard`68
  TCL Auto-sajoin fonctionne partiellement. Aristide 24 15,399 24/02/2017, 17:36
Last Post: cestlemien
Sad [Résolu] Aucune commande ne fonctionne Alucard`68 4 3,951 25/08/2016, 18:28
Last Post: Alucard`68
  Commande valable sur un seul salon. Alucard`68 3 3,547 22/04/2012, 07:07
Last Post: djkenny

Forum Jump:


Users browsing this thread: 1 Guest(s)