begin process at 2008 07 20 23:04:36
1 213 505 membres
406 nouveaux aujourd'hui
14 167 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

JEU DE LETTRES : TROUVEREZ-VOUS LE MOT JUSTE ?


Information sur la source

Catégorie :AddOns Niveau : Débutant Date de création : 31/10/2004 Vu / téléchargé: 7 267 / 626

Note :
1 / 10 - par 1 personne
1,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (10)
Ajouter un commentaire et/ou une note

Description

Il s'agit ici d'un jeu de lettres, le premier que je vois sur ce site.
Je mets le code ici mais il vous faut aussi télécharger l'aide, qui est trés importante.

Source

  • dialog mw {
  • title "Jeu de lettres"
  • size -1 -1 115 90
  • option dbu
  • icon 1, 0 1 112 13
  • text "_____________________________________", 2, 0 17 112 8, disable
  • edit "", 3, 4 27 103 10, return
  • button "Proposer", 4, 1 41 37 11
  • button "Effacer", 5, 75 41 37 11
  • box "Scores", 6, 1 54 113 35
  • text "Coups :", 7, 5 64 21 8, center
  • text "", 8, 29 64 20 8, center
  • text "Points :", 9, 65 64 19 8, center
  • text "", 10, 88 64 20 8, center
  • text "% :", 11, 40 75 10 8, center
  • text "", 12, 52 75 20 8, center
  • menu "Jeu", 13
  • item "Nouvelle partie", 14, 13
  • item break, 15, 13
  • item "Quitter", 16, 13, ok
  • }
  • on *:dialog:mw:*:*: {
  • if $devent == menu { if $did == 14 { ht | start } }
  • elseif $devent == init { ht | start }
  • elseif $devent == sclick {
  • if $did == 5 { did -r mw 3 }
  • elseif $did == 4 {
  • if $did(3) {
  • if $did(3) == $hget(jeu,tirage) {
  • var %a = $input(Bien joué ! Vous gagnez 2 points !,o,Jeu de Lettres)
  • hinc jeu pts 2
  • hinc jeu ptss 1
  • hinc jeu cps 1
  • hadd jeu % $round($calc($hget(jeu,ptss) * 100 / $hget(jeu,cps)),2)
  • re
  • }
  • elseif $readini(ods4.ini,Liste,$did(3)) == 1 {
  • var %a = $input(Bien joué ! Vous gagnez 1 point !,o,Jeu de Lettres)
  • hinc jeu pts 0.5
  • hinc jeu ptss 1
  • hinc jeu cps 1
  • hadd jeu % $round($calc($hget(jeu,ptss) * 100 / $hget(jeu,cps)),2)
  • re
  • }
  • else {
  • var %a = $input(Mauvaise réponse ! Il fallait répondre $hget(jeu,tirage) !,o,Jeu de Lettres)
  • hinc jeu cps 1
  • hadd jeu % $round($calc($hget(jeu,ptss) * 100 / $hget(jeu,cps)),2)
  • re
  • }
  • }
  • else { var %a = $input(Précisez un mot,o,Jeu de Lettres) }
  • }
  • }
  • }
  • alias ht {
  • if $hget(jeu) { hfree jeu }
  • hmake jeu 50
  • hadd jeu cps 0
  • hadd jeu ptss 0
  • hadd jeu pts 0
  • hadd jeu % 0
  • }
  • alias re { did -ra mw 8 $hget(jeu,cps) | did -ra mw 10 $hget(jeu,pts) | did -ra mw 12 $hget(jeu,%) | did -r mw 3 | start }
  • alias start {
  • :bleh
  • hadd jeu tirage $remove($read(ods4.ini),=1)
  • if ($len($hget(jeu,tirage)) > 7) goto bleh else goto fin
  • :fin
  • tw $scr($hget(jeu,tirage))
  • }
  • alias tw {
  • window -ph +d @* 0 0 $calc($len($1) * 16) 27
  • drawfill @* 1 0 0 1
  • drawtext -pb @* 0 0 Arial 19 5 3 $+($chr(02),$chr(03),1,$1)
  • drawsave @* top.bmp
  • close -@ @*
  • did -g mw 1 top.bmp
  • }
  • alias scr {
  • var %a = 1,%d = $len($upper($1)),%r = $1
  • while %d > 0 {
  • var %f = $r(1,%d),%o = %o $+ $right($left(%r,%f),1),%r = $left(%r,$calc(%f - 1)) $+ $right(%r,$calc(%f - $calc(%f * 2)))
  • dec %d
  • }
  • return %o
  • }
  • menu * {
  • Jeu de Lettres:dialog -m mw mw
  • }
dialog mw {
  title "Jeu de lettres"
  size -1 -1 115 90
  option dbu
  icon 1, 0 1 112 13
  text "_____________________________________", 2, 0 17 112 8, disable
  edit "", 3, 4 27 103 10, return
  button "Proposer", 4, 1 41 37 11
  button "Effacer", 5, 75 41 37 11
  box "Scores", 6, 1 54 113 35
  text "Coups :", 7, 5 64 21 8, center
  text "", 8, 29 64 20 8, center
  text "Points :", 9, 65 64 19 8, center
  text "", 10, 88 64 20 8, center
  text "% :", 11, 40 75 10 8, center
  text "", 12, 52 75 20 8, center
  menu "Jeu", 13
  item "Nouvelle partie", 14, 13
  item break, 15, 13
  item "Quitter", 16, 13, ok
}
on *:dialog:mw:*:*: {
  if $devent == menu { if $did == 14 { ht | start } }
  elseif $devent == init { ht | start }
  elseif $devent == sclick {
    if $did == 5 { did -r mw 3 }
    elseif $did == 4 { 
      if $did(3) {
        if $did(3) == $hget(jeu,tirage) { 
          var %a = $input(Bien joué ! Vous gagnez 2 points !,o,Jeu de Lettres) 
          hinc jeu pts 2 
          hinc jeu ptss 1
          hinc jeu cps 1
          hadd jeu % $round($calc($hget(jeu,ptss) * 100 / $hget(jeu,cps)),2)
          re
        }
        elseif $readini(ods4.ini,Liste,$did(3)) == 1 {
          var %a = $input(Bien joué ! Vous gagnez 1 point !,o,Jeu de Lettres) 
          hinc jeu pts 0.5
          hinc jeu ptss 1
          hinc jeu cps 1
          hadd jeu % $round($calc($hget(jeu,ptss) * 100 / $hget(jeu,cps)),2)
          re
        }
        else { 
          var %a = $input(Mauvaise réponse ! Il fallait répondre $hget(jeu,tirage) !,o,Jeu de Lettres) 
          hinc jeu cps 1 
          hadd jeu % $round($calc($hget(jeu,ptss) * 100 / $hget(jeu,cps)),2)
          re
        }
      }
      else { var %a = $input(Précisez un mot,o,Jeu de Lettres) }
    }
  }
}
alias ht {
  if $hget(jeu) { hfree jeu }
  hmake jeu 50
  hadd jeu cps 0
  hadd jeu ptss 0
  hadd jeu pts 0
  hadd jeu % 0 
}
alias re { did -ra mw 8 $hget(jeu,cps) | did -ra mw 10 $hget(jeu,pts) | did -ra mw 12 $hget(jeu,%) | did -r mw 3 | start }
alias start {
  :bleh
  hadd jeu tirage $remove($read(ods4.ini),=1)
  if ($len($hget(jeu,tirage)) > 7) goto bleh else goto fin
  :fin
  tw $scr($hget(jeu,tirage))
}

alias tw {
  window -ph +d @* 0 0 $calc($len($1) * 16) 27
  drawfill @* 1 0 0 1
  drawtext -pb @* 0 0 Arial 19 5 3 $+($chr(02),$chr(03),1,$1)
  drawsave @* top.bmp
  close -@ @*
  did -g mw 1 top.bmp
}
alias scr {
  var %a = 1,%d = $len($upper($1)),%r = $1
  while %d > 0 {
    var %f = $r(1,%d),%o = %o $+ $right($left(%r,%f),1),%r = $left(%r,$calc(%f - 1)) $+ $right(%r,$calc(%f - $calc(%f * 2)))
    dec %d
  }
  return %o
}
menu * {
  Jeu de Lettres:dialog -m mw mw
}

Conclusion

Je le répète, téléchargez l'aide car dedans se trouve l'adresse pour télécharger la database.
Merci à Sorn_Drixer.

Voilà, dites moi ce que vous en pensez, les choses à améliorer etc..
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

  • signaler à un administrateur
    Commentaire de tidds le 31/10/2004 21:34:10

    Le concept est original. :]

    Au niveau du code, j'ai rien à redire (quoi que l'utilisation de while() serait préférable à goto).

    Par contre, le nombre de point n'est pas incrémenté lors d'une bonne réponse donnée.

    Au lieu de "%" j'aurai plutôt mis : "% de bonnes réponses" qui est, je pense plus explicite.

    Ce que j'attends de la prochaine version :

    - Le fichier JL.txt dans le zip =P
    - Un système d'auto-update de la bdd (héhé)
    - Un design retravaillé (utilisation de PicWin)
    - Un temps limite pour répondre

    Bonne continuation en tout cas ReMi34. :]

  • signaler à un administrateur
    Commentaire de tidds le 31/10/2004 21:35:00

    (Ps : je noterai l'add-on dans sa version finale)

  • signaler à un administrateur
    Commentaire de ReMi34 le 31/10/2004 21:37:24

    Je note tout ça ;)
    Je prevois une prochaine version demain ou plus tard, mais bientôt :)

  • signaler à un administrateur
    Commentaire de tidds le 31/10/2004 21:42:56

    Héhé, j'ai hâte de voir. :]

  • signaler à un administrateur
    Commentaire de SornDrixer le 01/11/2004 10:09:43 administrateur CS

    Bon Boulot.

    Tiens quelques idées pour la suite :
    - incorporer une option bot (afin de pouvoir faire jouer les gens sur IRC également)
    - un système de niveau, à partir de 10 mots trouvés par exemple, on réduit le temps que l'on a pour trouver les prochains mots.
    - un nombre de partie limité, au bout de X erreurs, c'est perdu
    - une toplist de nos meilleurs scores (un peu comme le Pinball de windows)

    Impatient de voir la prochaine version :)

  • signaler à un administrateur
    Commentaire de ReMi34 le 01/11/2004 12:21:43

    Merci pour ces idées Sorn ;)

  • signaler à un administrateur
    Commentaire de Asthar le 04/11/2004 19:52:22

    Comme d'hab, c'est nickel =)
    Good job, par contre j'ai pas d'idée :p

  • signaler à un administrateur
    Commentaire de ReMi34 le 05/11/2004 07:11:53

    Lol pas grave :)
    Merci.

  • signaler à un administrateur
    Commentaire de clem54 le 11/03/2005 18:14:55

    g un truk a demender ... le truk o debu  :

    dialog mw {
        title "Jeu de lettres"
        size -1 -1 115 90
        option dbu
        icon 1, 0 1 112 13
        text "_____________________________________", 2, 0 17 112 8, disable
        edit "", 3, 4 27 103 10, return
        button "Proposer", 4, 1 41 37 11
        button "Effacer", 5, 75 41 37 11
        box "Scores", 6, 1 54 113 35
        text "Coups :", 7, 5 64 21 8, center
        text "", 8, 29 64 20 8, center
        text "Points :", 9, 65 64 19 8, center
        text "", 10, 88 64 20 8, center
        text "% :", 11, 40 75 10 8, center
        text "", 12, 52 75 20 8, center
        menu "Jeu", 13
        item "Nouvelle partie", 14, 13
        item break, 15, 13
        item "Quitter", 16, 13, ok
    }


    fo le metre ??

  • signaler à un administrateur
    Commentaire de infosactualite le 06/08/2005 19:56:05

    Moi le jeu ne marche tout simplement pas. Je m'explique.Je mets dans le fichier JL.txt le code source sans rien d'autres, c'est a dire sans les numéros de lignes etc.Je mets l'ods4.ini dans mon répertoire ou y'a JL.txt . Je fais /load -rs JL.txt ca me dit Script loaded pis plus rien, aucun signe.

Ajouter un commentaire

Pub



Appels d'offres

Dessins techniques
Budget : 60€
Animation Flash - Doma...
Budget : 370€
Application flash medi...
Budget : 1 000€

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Boutique

Boutique de goodies CodeS-SourceS