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


Erreu avec Apho-greet
#1
bonjour / bonsoir

d'abord je tien a tous vous souhaitez un joyeux noël
#2
bonjour / bonsoir

d'abord je tien a tous vous souhaitez un joyeux noël


alors voila j'ai dl se tcl ici

tcl
#
# Apho-greet v1.0 by Belatucadrus
#
# Attribue au bot un greet aléatoire à chaque join sous la forme de curieux aphorismes.
#
# Exemple : (@Cerbere) [Umbreon] La lumière est à l'amour ce que nos rêves est à l'être
# Vous pouvez également utiliser la commande !aphorisme pour que le bot sorte un aphorisme en public
#
# Le bot utilise deux sets de morceaux d'aphorismes différents, le premier etant tiré du célèbre Pipotron.
#
# Avec quelques notions vous pouvez rajouter vos propres sets.
namespace eval aphogreet {
 
##############################################
##############################################
############## CONFIGURATION #################
##############################################
##############################################
 
#Canaux sur lesquels la commande !aphorisme fonctionnera
variable pub_chans "#Accueil"
 
#Dans le cas où votre bot est groupé avec votre nick, vous pouvez aussi bénificier
#d'un greet aléatoire sur les chans où vore bot est présent en mettant cette valeur
#à 1
variable grouped_bot
 
##############################################
##############################################
######### FIN DE LA CONFIGURATION ############
##############################################
##############################################
 
 
#Première façon de construire un aphorisme
set morceau_1 {
"Avec"
"Considérant"
"Où que nous mène"
"Eu égard à"
"Vu"
"En ce qui concerne"
"Dans le cas particulier de"
"Quelle que soit"
"Du fait de"
"Tant que durera"
"Malgré"
"Par"
"Ayant eu pris connaissance de"
"Puisque ce n'est pas"
"Etant donné que nous suivons"
"Car il ne faut jamais négliger"
"En analysant"
}
 
set morceau_2 {
"la situation"
"la conjoncture"
"la crise"
"l'inertie"
"l'impasse"
"l'éxtrémité"
"l'abstention"
"la sinistrose"
"la dualité de la situation"
"la baisse de confiance"
"la société"
"la connaissance"
"la bêtise"
"la violence et la rancoeur"
"cette folie"
"cette négligence"
"la dépression"
}
 
set morceau_3 {
"présente"
"actuelle"
"qui nous occupe"
"qui est la nôtre"
"induite"
"conjoncturelle"
"contemporaine"
"de cette fin de siècle"
"de la société acutelle"
"de ces derniers temps"
"humaine"
"scientifique"
"économique"
"qui nous entoure"
"désastreuse de la société"
"philosophique"
"mondiale"
}
 
set morceau_4 {
"il convient de"
"il faut"
"on se doit de"
"il est préférable de"
"il serait interessant de"
"on ne peut pas se passer de"
"il est nécessaire de"
"il serait bon de"
"il faut de toute urgence"
"cela ne sert à rien de"
"il vaudrait mieux"
"certains pensent qu'il faut"
"cela changerait le monde de"
"on ne devrait pas"
"on pourrait"
"cela serait bien de"
}
 
set morceau_5 {
"étudier"
"examiner"
"ne pas négliger"
"prendre en considération"
"anticiper"
"imaginer"
"se préoccuper de"
"s'intéresser à"
"avoir à l'esprit"
"se remémorer"
"ne pas oublier"
"noter"
"analyser"
"prendre en compte"
"s'approprier"
"élucider"
"faire face à"
}
 
set morceau_6 {
"toutes les"
"chacunes des"
"la majorité des"
"toutes les"
"l'enseble des"
"la somme des"
"la totalité des"
"la globalité des"
"toutes les"
"certaines"
"la plupart des"
"quelques"
"bon nombre des"
"la quasi-totalité des"
"tout ce qu'on peut penser des"
"une partie des"
}
 
set morceau_7 {
"solutions"
"issues"
"problématiques"
"voies"
"alternatives"
"solutions"
"issues"
"hypothèses"
"questions"
"suites"
"continuités"
"parades"
"sciences"
"fins"
"envergures"
"capacités"
"possibilités"
}
 
set morceau_8 {
"envisageables"
"possibles"
"déja en notre possession"
"s'offrant à nous"
"de bon sens"
"envisageables"
"possibles"
"employées"
"résolues"
"étudiées"
"qu'on doit encore découvrir"
"qu'on ne peut pas exploiter"
"dissimulés"
"complexes"
"pour l'économie"
"pour la société"
}
 
# Deuxième façon de construire un aphorisme
 
set aphorisme {
 
"la mort"  "l'enfance"  "l'amour"  "l'illusion"  "la haine"  "la raison"  "la réalité" "le rêve"  "la conscience"  "l'âme"  "le regard"  "dieu"  "l'enfer"  "l'obstacle"  "la fin"  "la vérité" "le diable"  "la peur"  "l'erreur"  "le plaisir"  "la volonté" "l'être"  "le paraître"  "le jugement"  "la sagesse"  "la vieillesse" "l'espoir" "nos rêves" "le conscient" "le subconscient" "l'enfance" "la lumière" "l'ombre" "la peur" "la joie" "la continuité"
 
}
}
 
 
bind join -|- changegreet
bind pub - !aphorisme generate_aphorism
 
proc changegreet {nick uhost handle chan } {
	if { $nick == $::botnick || $aphogreet::grouped_bot == 1 && $::owner != "" && $handle == $::owner || $::owner == "" && [lsearch -exact [userlist n|] $handle] != -1 } {
		if { [rand 100] < 50 } {
			#Première façon de construire un aphorisme
			set a [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			set b [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			set c [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			set d [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			set e [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			#Si deux mots sonts identiques dans la phrase, on recommence.
			while {($a != $b != $c != $d) != 1} {
				set a [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
				set b [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
				set c [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
				set d [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
				set e [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			}
			set key [rand 13]
			if {$key == 0} { set phrase "$a n'est que $b sans $c. Là est tout le principe de $d" }
			if {$key == 1} { set phrase "$a est à $b ce que $c est à $d" }
			if {$key == 2} { set phrase "derrière $a, il n'y a bien souvent que $d et $d n'est que $e sans $c" }
			if {$key == 3} { set phrase "$a est $b de $c mais $c est $d de $e" }
			if {$key == 4} { set phrase "on parle bien souvent de $a pour ne pas penser à $c. Malheureusement, $c et $a sont liés" }
			if {$key == 5} { set phrase "on ne peut pas dissocier $a et $b. Mais avec de $c et de $d, ce n'est pas impossible." }
			if {$key == 6} { set phrase "en vérité, $a n'est que la prolongation de $b" }
			if {$key == 7} { set phrase "celui qui veut connaitre $a doit pouvoir oublier $b et faire face à $d de $c" }
			if {$key == 8} { set phrase "on renonce plus facilement à $a qu'à $b" }
			if {$key == 9} { set phrase "beaucoup de ceux qui prônent $a n'ont en fait connu que $b et $c" }
			if {$key == 10} { set phrase "on est si seuls en ce monde que $a et $b nous ont confié $c" }
			if {$key == 11} { set phrase "$a est le meilleur usage qu'on puisse faire de $b et de $c" }
			if {$key == 12} { set phrase "$a a dévoré $b dans le coeur des hommes qui ne songent qu'à $c et $d" }
			set phrase [ string map { "de le" "du" "à le" "au" "qu'à le" "qu'au" } $phrase ]
			set phrase [ string totitle $phrase 0 0 ] 
		} else {
			#deuxième façon de construire un aphorisme
			set a [lindex $aphogreet::morceau_1 [rand [llength $aphogreet::morceau_1]]]
			set b [lindex $aphogreet::morceau_2 [rand [llength $aphogreet::morceau_2]]]
			set c [lindex $aphogreet::morceau_3 [rand [llength $aphogreet::morceau_3]]]
			set d [lindex $aphogreet::morceau_4 [rand [llength $aphogreet::morceau_4]]]
			set e [lindex $aphogreet::morceau_5 [rand [llength $aphogreet::morceau_5]]]
			set f [lindex $aphogreet::morceau_6 [rand [llength $aphogreet::morceau_6]]]
			set g [lindex $aphogreet::morceau_7 [rand [llength $aphogreet::morceau_7]]]
			set h [lindex $aphogreet::morceau_8 [rand [llength $aphogreet::morceau_8]]]
			set phrase "$a $b $c, $d $e $f $g $h"
			set phrase [ string map { "de le" "du" "à le" "au" "qu'à le" "au" "à les" "aux" "de a" "d'a" "de e" "d'e" "de i" "d'i" "de o" "d'o" "de é" "d'é" "de u" "d'u" "de ê" "d'ê" } $phrase ]
		}
	puthelp "NS set greet \002$phrase"
}
 
 
 
proc generate_aphorism { nick host hand chan text } {
	if { [lsearch -exact $aphogreet::pub_chans $chan] != -1 } {
		if { [rand 100] < 50 } {
			set a [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			set b [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			set c [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			set d [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			set e [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			while {($a != $b != $c != $d) != 1} {
				set a [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
				set b [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
				set c [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
				set d [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
				set e [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			}
			set key [rand 14]
			if {$key == 0} { set phrase "$a n'est que $b sans $c. Là est tout le principe de $d" }
			if {$key == 1} { set phrase "$a est à $b ce que $c est à $d" }
			if {$key == 2} { set phrase "derrière $a, il n'y a bien souvent que $d et $d n'est que $e sans $c" }
			if {$key == 3} { set phrase "$a est $b de $c mais $c est $d de $e" }
			if {$key == 4} { set phrase "on parle bien souvent de $a pour ne pas penser à $c. Malheureusement, $c et $a sont liés" }
			if {$key == 5} { set phrase "on ne peut pas dissocier $a et $b. Mais avec de $c et de $d, ce n'est pas impossible." }
			if {$key == 6} { set phrase "en vérité, $a n'est que la prolongation de $b" }
			if {$key == 7} { set phrase "celui qui veut connaitre $a doit pouvoir oublier $b et faire face à $d de $c" }
			if {$key == 8} { set phrase "on renonce plus facilement à $a qu'à $b" }
			if {$key == 9} { set phrase "beaucoup de ceux qui prônent $a n'ont en fait connu que $b et $c" }
			if {$key == 10} { set phrase "on est si seuls en ce monde que $a et $b nous ont confié $c" }
			if {$key == 11} { set phrase "$a est le meilleur usage qu'on puisse faire de $b et de $c" }
			if {$key == 12} { set phrase "$a a dévoré $b dans le coeur des hommes qui ne songent qu'à $c et $d" }
			set phrase [ string map { "de le" "du" "à le" "au" "qu'à le" "qu'au" } $phrase ]
			set phrase [ string totitle $phrase 0 0 ] 
		} else {
			set a [lindex $aphogreet::morceau_1 [rand [llength $aphogreet::morceau_1]]]
			set b [lindex $aphogreet::morceau_2 [rand [llength $aphogreet::morceau_2]]]
			set c [lindex $aphogreet::morceau_3 [rand [llength $aphogreet::morceau_3]]]
			set d [lindex $aphogreet::morceau_4 [rand [llength $aphogreet::morceau_4]]]
			set e [lindex $aphogreet::morceau_5 [rand [llength $aphogreet::morceau_5]]]
			set f [lindex $aphogreet::morceau_6 [rand [llength $aphogreet::morceau_6]]]
			set g [lindex $aphogreet::morceau_7 [rand [llength $aphogreet::morceau_7]]]
			set h [lindex $aphogreet::morceau_8 [rand [llength $aphogreet::morceau_8]]]
			set phrase "$a $b $c, $d $e $f $g $h"
			set phrase [ string map { "de le" "du" "à le" "au" "qu'à le" "au" "à les" "aux" "de a" "d'a" "de e" "d'e" "de i" "d'i" "de o" "d'o" "de é" "d'é" "de u" "d'u" "de ê" "d'ê" } $phrase ]
		}
		puthelp "PRIVMSG $chan :$phrase"
	}
}
}
putlog "Apho-greet de Belatucadrus chargé (v1.0)"


mais quand je tape !aphorisme j'ai cette erreur en pl

[22:46] <Animagirl> [22:46:57] Tcl error [generate_aphorism]: invalid command name "generate_aphorism"

merci de votre aide


dsl du double post je me suis emmêler les pinceau :x
#3
C'est normal, il y a une erreur dans les binds, il manque le namespace:

tcl
bind join -|- ::aphogreet::changegreet
bind pub - !aphorisme ::aphogreet::generate_aphorism

irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#4
bon l'un comme l'autre j'ai toujours cette erreur en pl

[20:36] <Animagirl> [20:36:54] Tcl error [::aphogreet::generate_aphorism]: invalid command name "::aphogreet::generate_aphorism"
#5
En effet, Bela semble avoir codé ça avec les pieds, ou du moins en se les prenant dans le tapis des namespaces.
J'essaye de voir ça dans la nuit.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#6
je viens de le faire avec un rehash + restart et toujours c'étais erreur en pl

[20:55] <Animagirl> [20:55:54] Tcl error [::aphogreet::generate_aphorism]: invalid command name "::aphogreet::generate_aphorism"



d'accord merci crazy je reste co tard =)
#7
La déclaration du namespace (namespace eval aphogreet) est fermée avant la déclaration des 2 procédures, qui se retrouvent par conséquent hors namespace.

De plus, il y a un bordel au niveau des { }, ce qui fait que la proc generate_aphorism se retrouve dans la proc changegreet.

Belatucadrus, t'es viré.
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
Il n'y a pas un probleme de namespace, juste un soucis avec les procédures que je viens de corriger.


tcl
#
# Apho-greet v1.1 by Belatucadrus
#
# Attribue au bot un greet aléatoire à chaque join sous la forme de curieux aphorismes.
#
# Exemple : (@Cerbere) [Umbreon] La lumière est à l'amour ce que nos rêves est à l'être
# Vous pouvez également utiliser la commande !aphorisme pour que le bot sorte un aphorisme en public
#
# Le bot utilise deux sets de morceaux d'aphorismes différents, le premier etant tiré du célèbre Pipotron.
#
# Avec quelques notions vous pouvez rajouter vos propres sets.
namespace eval aphogreet {
 
##############################################
##############################################
############## CONFIGURATION #################
##############################################
##############################################
 
#Canaux sur lesquels la commande !aphorisme fonctionnera
variable pub_chans "#chan1 #chan2 #chan3"
 
##############################################
##############################################
######### FIN DE LA CONFIGURATION ############
##############################################
##############################################
 
 
#Première façon de construire un aphorisme
set morceau_1 {
"Avec"
"Considérant"
"Où que nous mène"
"Eu égard à"
"Vu"
"En ce qui concerne"
"Dans le cas particulier de"
"Quelle que soit"
"Du fait de"
"Tant que durera"
"Malgré"
"Par"
"Ayant eu pris connaissance de"
"Puisque ce n'est pas"
"Etant donné que nous suivons"
"Car il ne faut jamais négliger"
"En analysant"
}
 
set morceau_2 {
"la situation"
"la conjoncture"
"la crise"
"l'inertie"
"l'impasse"
"l'éxtrémité"
"l'abstention"
"la sinistrose"
"la dualité de la situation"
"la baisse de confiance"
"la société"
"la connaissance"
"la bêtise"
"la violence et la rancoeur"
"cette folie"
"cette négligence"
"la dépression"
}
 
set morceau_3 {
"présente"
"actuelle"
"qui nous occupe"
"qui est la nôtre"
"induite"
"conjoncturelle"
"contemporaine"
"de cette fin de siècle"
"de la société acutelle"
"de ces derniers temps"
"humaine"
"scientifique"
"économique"
"qui nous entoure"
"désastreuse de la société"
"philosophique"
"mondiale"
}
 
set morceau_4 {
"il convient de"
"il faut"
"on se doit de"
"il est préférable de"
"il serait interessant de"
"on ne peut pas se passer de"
"il est nécessaire de"
"il serait bon de"
"il faut de toute urgence"
"cela ne sert à rien de"
"il vaudrait mieux"
"certains pensent qu'il faut"
"cela changerait le monde de"
"on ne devrait pas"
"on pourrait"
"cela serait bien de"
}
 
set morceau_5 {
"étudier"
"examiner"
"ne pas négliger"
"prendre en considération"
"anticiper"
"imaginer"
"se préoccuper de"
"s'intéresser à"
"avoir à l'esprit"
"se remémorer"
"ne pas oublier"
"noter"
"analyser"
"prendre en compte"
"s'approprier"
"élucider"
"faire face à"
}
 
set morceau_6 {
"toutes les"
"chacunes des"
"la majorité des"
"toutes les"
"l'enseble des"
"la somme des"
"la totalité des"
"la globalité des"
"toutes les"
"certaines"
"la plupart des"
"quelques"
"bon nombre des"
"la quasi-totalité des"
"tout ce qu'on peut penser des"
"une partie des"
}
 
set morceau_7 {
"solutions"
"issues"
"problématiques"
"voies"
"alternatives"
"solutions"
"issues"
"hypothèses"
"questions"
"suites"
"continuités"
"parades"
"sciences"
"fins"
"envergures"
"capacités"
"possibilités"
}
 
set morceau_8 {
"envisageables"
"possibles"
"déja en notre possession"
"s'offrant à nous"
"de bon sens"
"envisageables"
"possibles"
"employées"
"résolues"
"étudiées"
"qu'on doit encore découvrir"
"qu'on ne peut pas exploiter"
"dissimulés"
"complexes"
"pour l'économie"
"pour la société"
}
 
# Deuxième façon de construire un aphorisme
 
set aphorisme {
 
"la mort"  "l'enfance"  "l'amour"  "l'illusion"  "la haine"  "la raison"  "la réalité" "le rêve"  "la conscience"  "l'âme"  "le regard"  "dieu"  "l'enfer"  "l'obstacle"  "la fin"  "la vérité" "le diable"  "la peur"  "l'erreur"  "le plaisir"  "la volonté" "l'être"  "le paraître"  "le jugement"  "la sagesse"  "la vieillesse" "l'espoir" "nos rêves" "le conscient" "le subconscient" "l'enfance" "la lumière" "l'ombre" "la peur" "la joie" "la continuité"
 
}
}
 
 
bind join -|- changegreet
bind pub - !aphorisme generate_aphorism
 
proc changegreet {nick uhost handle chan } {
	if { $nick == $::botnick || $aphogreet::grouped_bot == 1 && $::owner != "" && $handle == $::owner || $::owner == "" && [lsearch -exact [userlist n|] $handle] != -1 } {
		if { [rand 100] < 50 } {
			#Première façon de construire un aphorisme
			set a [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			set b [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			set c [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			set d [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			set e [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			#Si deux mots sonts identiques dans la phrase, on recommence.
			while {($a != $b != $c != $d) != 1} {
				set a [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
				set b [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
				set c [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
				set d [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
				set e [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			}
			set key [rand 13]
			if {$key == 0} { set phrase "$a n'est que $b sans $c. Là est tout le principe de $d" }
			if {$key == 1} { set phrase "$a est à $b ce que $c est à $d" }
			if {$key == 2} { set phrase "derrière $a, il n'y a bien souvent que $d et $d n'est que $e sans $c" }
			if {$key == 3} { set phrase "$a est $b de $c mais $c est $d de $e" }
			if {$key == 4} { set phrase "on parle bien souvent de $a pour ne pas penser à $c. Malheureusement, $c et $a sont liés" }
			if {$key == 5} { set phrase "on ne peut pas dissocier $a et $b. Mais avec de $c et de $d, ce n'est pas impossible." }
			if {$key == 6} { set phrase "en vérité, $a n'est que la prolongation de $b" }
			if {$key == 7} { set phrase "celui qui veut connaitre $a doit pouvoir oublier $b et faire face à $d de $c" }
			if {$key == 8} { set phrase "on renonce plus facilement à $a qu'à $b" }
			if {$key == 9} { set phrase "beaucoup de ceux qui prônent $a n'ont en fait connu que $b et $c" }
			if {$key == 10} { set phrase "on est si seuls en ce monde que $a et $b nous ont confié $c" }
			if {$key == 11} { set phrase "$a est le meilleur usage qu'on puisse faire de $b et de $c" }
			if {$key == 12} { set phrase "$a a dévoré $b dans le coeur des hommes qui ne songent qu'à $c et $d" }
			set phrase [ string map { "de le" "du" "à le" "au" "qu'à le" "qu'au" } $phrase ]
			set phrase [ string totitle $phrase 0 0 ] 
		} else {
			#deuxième façon de construire un aphorisme
			set a [lindex $aphogreet::morceau_1 [rand [llength $aphogreet::morceau_1]]]
			set b [lindex $aphogreet::morceau_2 [rand [llength $aphogreet::morceau_2]]]
			set c [lindex $aphogreet::morceau_3 [rand [llength $aphogreet::morceau_3]]]
			set d [lindex $aphogreet::morceau_4 [rand [llength $aphogreet::morceau_4]]]
			set e [lindex $aphogreet::morceau_5 [rand [llength $aphogreet::morceau_5]]]
			set f [lindex $aphogreet::morceau_6 [rand [llength $aphogreet::morceau_6]]]
			set g [lindex $aphogreet::morceau_7 [rand [llength $aphogreet::morceau_7]]]
			set h [lindex $aphogreet::morceau_8 [rand [llength $aphogreet::morceau_8]]]
			set phrase "$a $b $c, $d $e $f $g $h"
			set phrase [ string map { "de le" "du" "à le" "au" "qu'à le" "au" "à les" "aux" "de a" "d'a" "de e" "d'e" "de i" "d'i" "de o" "d'o" "de é" "d'é" "de u" "d'u" "de ê" "d'ê" } $phrase ]
		}
	puthelp "NS set greet \002$phrase"
}
}
 
 
 
proc generate_aphorism { nick host hand chan text } {
	if { [lsearch -exact $aphogreet::pub_chans $chan] != -1 } {
		if { [rand 100] < 50 } {
			set a [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			set b [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			set c [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			set d [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			set e [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			while {($a != $b != $c != $d) != 1} {
				set a [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
				set b [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
				set c [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
				set d [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
				set e [lindex $aphogreet::aphorisme [rand [llength $aphogreet::aphorisme]]]
			}
			set key [rand 14]
			if {$key == 0} { set phrase "$a n'est que $b sans $c. Là est tout le principe de $d" }
			if {$key == 1} { set phrase "$a est à $b ce que $c est à $d" }
			if {$key == 2} { set phrase "derrière $a, il n'y a bien souvent que $d et $d n'est que $e sans $c" }
			if {$key == 3} { set phrase "$a est $b de $c mais $c est $d de $e" }
			if {$key == 4} { set phrase "on parle bien souvent de $a pour ne pas penser à $c. Malheureusement, $c et $a sont liés" }
			if {$key == 5} { set phrase "on ne peut pas dissocier $a et $b. Mais avec de $c et de $d, ce n'est pas impossible." }
			if {$key == 6} { set phrase "en vérité, $a n'est que la prolongation de $b" }
			if {$key == 7} { set phrase "celui qui veut connaitre $a doit pouvoir oublier $b et faire face à $d de $c" }
			if {$key == 8} { set phrase "on renonce plus facilement à $a qu'à $b" }
			if {$key == 9} { set phrase "beaucoup de ceux qui prônent $a n'ont en fait connu que $b et $c" }
			if {$key == 10} { set phrase "on est si seuls en ce monde que $a et $b nous ont confié $c" }
			if {$key == 11} { set phrase "$a est le meilleur usage qu'on puisse faire de $b et de $c" }
			if {$key == 12} { set phrase "$a a dévoré $b dans le coeur des hommes qui ne songent qu'à $c et $d" }
			set phrase [ string map { "de le" "du" "à le" "au" "qu'à le" "qu'au" } $phrase ]
			set phrase [ string totitle $phrase 0 0 ] 
		} else {
			set a [lindex $aphogreet::morceau_1 [rand [llength $aphogreet::morceau_1]]]
			set b [lindex $aphogreet::morceau_2 [rand [llength $aphogreet::morceau_2]]]
			set c [lindex $aphogreet::morceau_3 [rand [llength $aphogreet::morceau_3]]]
			set d [lindex $aphogreet::morceau_4 [rand [llength $aphogreet::morceau_4]]]
			set e [lindex $aphogreet::morceau_5 [rand [llength $aphogreet::morceau_5]]]
			set f [lindex $aphogreet::morceau_6 [rand [llength $aphogreet::morceau_6]]]
			set g [lindex $aphogreet::morceau_7 [rand [llength $aphogreet::morceau_7]]]
			set h [lindex $aphogreet::morceau_8 [rand [llength $aphogreet::morceau_8]]]
			set phrase "$a $b $c, $d $e $f $g $h"
			set phrase [ string map { "de le" "du" "à le" "au" "qu'à le" "au" "à les" "aux" "de a" "d'a" "de e" "d'e" "de i" "d'i" "de o" "d'o" "de é" "d'é" "de u" "d'u" "de ê" "d'ê" } $phrase ]
		}
		puthelp "PRIVMSG $chan :$phrase"
	}
}
putlog "Apho-greet de Belatucadrus chargé (v1.0)"

Good jokes, bad jokes... it's not a joke if you don't have the...
[Image: http://uppix.net/2/7/1/4b4dfe464fb212453...10f21e.png]

BELATUCADRUS SEAL OF APPROVAL
#9
merci je teste et vous dis ce que ca donne


je viens de teste quand je tape !aphorisme il se passe rien aucune erreur en pl
#10
@ Belatucadrus :
Même dans ta correction, les 2 procs sont toujours en dehors du namespace.

En fait la seule chose que contient ton namespace, ce sont les variables de configuration du script.
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.
#11
Ca n'empêchera pas le fonctionnement du script. Mais maintenant que tu me le dis, je vais faire ça sur mon script RPG
Good jokes, bad jokes... it's not a joke if you don't have the...
[Image: http://uppix.net/2/7/1/4b4dfe464fb212453...10f21e.png]

BELATUCADRUS SEAL OF APPROVAL
#12
bel si ca l'empeche car chez moi ca fonctionne pas j'attend ta relase


amicalement
#13
Ce que je veux dire, c'est que le souci qu'a lesny dans le cas présent ne vient pas du namespace. Le probleme venait de la procédure qui n'existait pas, et non un conflit.

Bien que le namespace soit prévu pour englober la totalité du script, j'ai préféré la fermer après la configuration, ce qui n'aura aucun effet au niveau du fonctionnement du script (Sauf si un script existant utilise la procedure create_aphorism mais j'en doute).

Pour ton probleme lesny , cela venait du fait qu'une accolade a été mal placée, ce qui fait que la proc create_aphorism se retrouve dans changegreet. Le code que j'ai C/C plus haut devrait marcher parfaitement
Good jokes, bad jokes... it's not a joke if you don't have the...
[Image: http://uppix.net/2/7/1/4b4dfe464fb212453...10f21e.png]

BELATUCADRUS SEAL OF APPROVAL
#14
non il marche pas j'ai toujours la même erreur l'ami
#15
En effet ce script à l'air sympa, mais oui, le join ne fonctionne malheureusement pas...


Possibly Related Threads…
Thread Author Replies Views Last Post
  soucis avec un script de greet loulou7593 2 3,918 09/08/2009, 11:02
Last Post: loulou7593

Forum Jump:


Users browsing this thread: 1 Guest(s)