25/12/2010, 23:47
Pages : 1 2
25/12/2010, 23:48
bonjour / bonsoir
d'abord je tien a tous vous souhaitez un joyeux noël
alors voila j'ai dl se tcl ici
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
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
26/12/2010, 18:59
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
26/12/2010, 21:37
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"
[20:36] <Animagirl> [20:36:54] Tcl error [::aphogreet::generate_aphorism]: invalid command name "::aphogreet::generate_aphorism"
26/12/2010, 21:55
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.
J'essaye de voir ça dans la nuit.
26/12/2010, 21:57
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 =)
[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 =)
26/12/2010, 22:17
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é.
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é.
26/12/2010, 22:28
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)"
26/12/2010, 22:37
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
je viens de teste quand je tape !aphorisme il se passe rien aucune erreur en pl
26/12/2010, 22:40
@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.
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.
26/12/2010, 22:42
Ca n'empêchera pas le fonctionnement du script. Mais maintenant que tu me le dis, je vais faire ça sur mon script RPG
26/12/2010, 22:44
bel si ca l'empeche car chez moi ca fonctionne pas j'attend ta relase
amicalement
amicalement
26/12/2010, 23:57
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
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
27/12/2010, 00:03
non il marche pas j'ai toujours la même erreur l'ami
27/12/2010, 21:27
En effet ce script à l'air sympa, mais oui, le join ne fonctionne malheureusement pas...
Pages : 1 2