[jeux] taboo

[djkenny]

le taboo est un petit quizz reprenant le style du jeux du même nom.

important: le tcl nécessite tcllib (html.tcl)
Installation:
- décompressez l'archive dans le dossier script de votre eggdrop.
- le contenu du dossier html (taboo.js et taboo.css) doivent être déplacé dans le dossier qui contiendra la page html.
- pour charger le tcl ajoutez "source scripts/taboo/taboo.tcl" dans la configuration de votre eggdrop.
- éditez le fichier taboo.conf

les questions comprennent 3 parties:
1- la question en elle même, qui donne le type de réponse possible
2- les indices (généralement 5)
3- la réponse

création de questions:
- par commande sur le bot:
Syntaxe: /msg votre_bot addquestion {votre question:} {indice1 indice2 {indice composé} ...} {votre réponse}

- par ajout direct dans le fichier question:
chaque ligne contient ça:
{votre question:} {indice1 indice2 {indice composé} ...} {votre réponse}

attention a bien lister les différentes parties de la question ainsi que les indices et la réponse


téléchargement
taboo v0.3

[fedora]

Excellent TCL que j'utilise :) merci Dj_KennY

[lesny]

très beau travail dj_kenny =) bonne continuation

[pchevee]

Bonjour DJ_Kenny,

j'ai essayé ton jeu en ligne; il fait partie des petits jeux dont je suis très friand car ils sont faciles d'utilisation. J'ai deux nouvelles à ce propos: la bonne nouvelle c'est qu'a priori il tourne! La moins bonne c'est que j'ai 2 erreurs (dont une qui n'est pas directement liée au jeu):

1) IL me dit que je n'ai pas le package html 1.4. Qu'est-ce que c'est que ce truc? Si je me souviens bien, j'ai le package html tout court.... Faut-il charger un package plus récent? A cause de cette erreur, je ne peux pas générer de page web de scores.

2) J'ai eu assez brutalement une erreur provenant du motus 3.12, lequel jeu est installé sur le même eggdrop. Cette erreur s'est répétée plusieurs fois à quelques minutes d'intervalles pour plusieurs timers différents. Je reproduis le message ici:

[23:30] <MaDalton> [23:30:07] Tcl error in script for 'timer150884':
[23:30] <MaDalton> [23:30:07] invalid bareword "score"
[23:30] <MaDalton> in expression "score+n'a+été+enregis...";
[23:30] <MaDalton> should be "$score" or "{score}" or "score(...)" or ...

Cette erreur n'a finalement disparu qu'à partir du moment où j'ai redémarré l'eggdrop en mettant le source/taboo.tcl en commentaire dans son .conf. C'est frustrant... Y-a-t'il une explication?

Merci de tes réponses, et bonne soirée,

PC

[djkenny]

salut,

pour la première erreur il suffi d'installer tcllib

important: le tcl nécessite tcllib (html.tcl)

si le package que tu as est trop ancien il suffi de le mettre à jour.

pour la seconde erreur,je ne sais pas, j ai testé le taboo pendant plusieurs mois (avec entre autres le motus sur le bot) et je n'ai jamais rencontrer aucune erreurs.
Peux tu me donner plus d informations sur l'erreur?

[pchevee]

Merci de tes réponses.. malheureusement je ne sais pas te donner plus d'info sur l'erreur motus, sinon que j'essaierai de la reproduire dès que je peux (à condition qu'elle soit reproductible). Peut-être y a t il une corrélation entre cette erreur et la vétusté (ou l'absence) du tcllib?

Bonne journée,

PC

[djkenny]

quand tu verras l erreur tapes ça en pl

Code:

.tcl set errorInfo

sinon je crois qu'il existe une commande sur le motus pour generer un rapport d'erreur, ça pourrait être utile

[lesny]

bonjour / bonsoir

pour généré le rapport d'erreur en salon taper !motus report

[djkenny]

salut,

Certaines personnes rencontrant des problèmes avec leur script (1ere lettre de couleur différente), il semblerait que la proc stripcodes de eggdrop soit bogué, elle ne supprime pas le char \015 ou \017 (ctrl + o)
voici donc la solution:

Code:

proc ::taboo::debug arg {
#    set arg [stripcodes abcru $arg]
    regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\007|\015} $arg {} arg
    while {[string is space [string index $arg 0]]} {set arg [string replace $arg 0 0]}
    while {[string is space [string index $arg end]]} {set arg [string replace $arg end end]}
    string map {
        \346 "\157\145" \
        \347 \143 \307 \143 \
        \361 \156 \321 \156 \
        \375 \171 \377 \171 \355 \171 \
        \354 \151 \355 \151 \356 \151 \357 \151 \314 \151 \315 \151 \316 \151 \317 \151 \
        \350 \145 \351 \145 \352 \145 \353 \145 \310 \145 \311 \145 \312 \145 \313 \145 \
        \371 \165 \372 \165 \373 \165 \374 \165 \331 \165 \332 \165 \333 \165 \334 \165 \
        \362 \157 \363 \157 \364 \157 \365 \157 \366 \157 \322 \157 \323 \157 \324 \157 \325 \157 \326 \157 \
        \300 \141 \301 \141 \302 \141 \303 \141 \304 \141 \305 \141 \340 \141 \341 \141 \342 \141 \343 \141 \344 \141 \345 \141 \
        "'" " " "_" "" "\-" " " "\\" "" "\[" "" "\]" "" \
    } $arg
}

[djkenny]

pour ceux que ça intéresserai voila la proc stripcodes de tcldrop (que j'ai corrigé) qui fonctionne parfaitement

Code:

# tcldrop stripcodes procedure
proc ::stripcodes {strip-flags string} {
    foreach o [split ${strip-flags} {}] {
        switch -- $o {
            A { return [regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\015|\037|\002|\026|\007|\033\[.*m} $string {}] }
            b { lappend strip "\002" }
            r { lappend strip "\026" }
            u { lappend strip "\037" }
            g { lappend strip "\007" }
            p { lappend strip "\017|\015" }
            c { lappend strip "\003\[0-9\]{0,2}(,\[0-9\]{0,2})?" }
            a { lappend strip "\033\\\[.*m" }
            {-} - {+} - { } - {    } {}
            default { return -code error "Unknown strip option: $o" }
        }
    }
    if {[info exists strip]} {
        regsub -all -- [join $strip {|}] $string {}
    } elseif {![info exists o]} {
        regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\015|\037|\002|\026|\007|\033\[.*m} $string {}
    } else {
        set string
    }
}