[jeux] taboo
#1
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
C'est en reconnaissant ses erreurs que l'on progresse Wink
Répondre Avertir
#2
Excellent TCL que j'utilise Smile merci Dj_KennY
[font=Times New Roman]La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.[/font]
Répondre Avertir
#3
très beau travail dj_kenny =) bonne continuation
Répondre Avertir
#4
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
Répondre Avertir
#5
salut,

pour la première erreur il suffi d'installer tcllib
djkenny a écrit :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?
C'est en reconnaissant ses erreurs que l'on progresse Wink
Répondre Avertir
#6
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
Répondre Avertir
#7
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
C'est en reconnaissant ses erreurs que l'on progresse Wink
Répondre Avertir
#8
bonjour / bonsoir

pour généré le rapport d'erreur en salon taper !motus report
Répondre Avertir
#9
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
}
C'est en reconnaissant ses erreurs que l'on progresse Wink
Répondre Avertir
#10
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
    }
}
C'est en reconnaissant ses erreurs que l'on progresse Wink
Répondre Avertir


Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté