[TCL] Reanimator (version actuelle : 1.2)

[MenzAgitat]

Tu peux t'aider de la commande suivante pour faire des essais :

tclcopier

!reanimator_test {{!randquote} {/tcl ::pubqsys::randquote - - - %chan% ""}}

Et comparer éventuellement avec le résultat de cette commande tapée en partyline :

tclcopier

.tcl ::pubqsys::randquote - - - #quizz-test ""

Tiens-moi au courant de tes découvertes.

[Helias]

Bonjour,

Voici les résultats suite aux commandes proposées.

Sur le salon :
[14:19:47] <Helias> !reanimator_test {{!randquote} {/tcl ::pubqsys::randquote - - - %chan% ""}}
[14:19:53] <Rob0t> !randquote
[14:19:55] <Robot> ::: Erreur : Base de données inexistante pour le chan #quizz-jeux.

Message en Party-Line :
[14:21:03] <Robot> [14:21:08] Tcl error [bl:pub]: unmatched open brace in list

Depuis la Party-Line :
[14:21:50] <Helias> .tcl ::pubqsys::randquote - - - #quizz-jeux ""

Réaction sur le salon :
[14:23:24] <Robot> [286] <PostIt> je lag comme un saucisson à l'ail

Merci

Helias

[MenzAgitat]

[14:21:03] <Robot> [14:21:08] Tcl error [bl:pub]: unmatched open brace in list

Ce bl:pub ne vient pas de Reanimator.
 

[Helias]

Rebonjour,

J'ai refait le test par 3 fois avec

!reanimator_test {{!randquote} {/tcl ::pubqsys::randquote - - - %chan% ""}}

J'ai la même réponse à l'instant T en Party Line avec :

Tcl error [bl:pub]: unmatched open brace in list

Hormis le fait qu'il a réagit par 3 fois à cette ligne d'erreur qui n'appartient pas au Reanimator, je n'ai pas d'autres erreurs.

Merci.

Helias

[MenzAgitat]

Peut-être que cette erreur empêche autre chose de fonctionner dans Reanimator.
J'ai fait une recherche sur Internet (à ta place) et il semble que la proc bl:pub appartient à un script de blacklist.
Essaie de ne pas le charger et refais des tests.

[MenzAgitat]

Nouvelle version disponible : v1.14

Changelog partiel :

v1.14

• Correction : les variables spéciales %randnick%, %randnick<index>%, %tcl_randnick% et %tcl_randnick<index>% ne fonctionnaient pas correctement avec les nicks contenant des accolades.
  
• Quelques optimisations du code.
  

Téléchargement :

Reanimator v1.14


Laissez vos commentaires / suggestions / rapports de bugs.

[MenzAgitat]

 
Ajout de quelques screenshots pour illustrer les possibilités du script :

[Image: http://img824.imageshack.us/img824/4558/813i.png]

[Image: http://img9.imageshack.us/img9/9550/x53s.png]

[Image: http://img404.imageshack.us/img404/3282/mhqo.png]
nécessite le script Oracle

[Image: http://img200.imageshack.us/img200/9864/tgva.png]
interaction avec un bot de BotServ

[MenzAgitat]

Nouvelle version disponible : v1.2

Changelog partiel :

v1.2

• Les interventions ne seront désormais plus répétées tant que toutes les autres n'auront pas été vues une fois.
  

Téléchargement :

Reanimator v1.2

Vous pouvez trouver une liste de mes autres releases ici


Laissez vos commentaires / suggestions / rapports de bugs.

[Barback]

Bonjour, 

je viens d'installer le script mais il me donne une erreur plutôt bizarre :

04[Reanimator - Erreur] La version de votre Eggdrop est 041.8.4 1080404; Reanimator ne fonctionnera correctement que sur les Eggdrops version 1.6.20 ou supérieure.

Actuellement la version de mon eggdrop est la 1.8.4 et non pas le charabia qu'il me dit

Quelqu'un pour m'aider svp ?

Merci d'avance pour votre temps.

[CrazyCat]

C'est un bug connu, facile à corriger (la correction ci-dessous est pour Duck Hunt)

Bonjour LokYnesS,

Le jeu est tout à fait compatible avec les versions récentes d'Eggdrop, c'est juste ma ligne de vérification de version qui merdouille.

Dans le script, remplace la ligne :

tclcopier

if { [regsub -all {\.} [lindex $::version 0] ""] < 1620 } { putloglev o * "\00304\[Duck Hunt - erreur\]\003 La version de votre Eggdrop est\00304 ${::version}\003; Duck Hunt ne fonctionnera correctement que sur les Eggdrops version 1.6.20 ou supérieure." ; return }

par :

tclcopier

if { [package vcompare [regexp -inline {^[[:digit:]\.]+} $::version] 1.6.20] == -1 } { putloglev o * "\00304\[Duck Hunt - erreur\]\003 La version de votre Eggdrop est\00304 ${::version}\003; Duck Hunt ne fonctionnera correctement que sur les Eggdrops version 1.6.20 ou supérieure."; return }

Pour faire plus simple, remplace if { [regsub -all {\.} [lindex $::version 0] ""] < 1620 }
par: if { [package vcompare [regexp -inline {^[[:digit:]\.]+} $::version] 1.6.20] == -1 } et ça devrait aller

[Barback]

ça a fonctionné. C'était pas tout à fait pareil mais la ligne par défaut pour Reanimator c'est :

if { [join [split [::tcl::string::range [lindex $version 0] 0 5] "."] ""] < 1620 }

J'ai remplacé toute la ligne par :

if { [package vcompare [regexp -inline {^[[:digit:]\.]+} $::version] 1.6.20] == -1 }

Quand je lance le bot ça me marque bien : Reanimator a été chargé

Merci encore CrazyCat