JEU DE LETTRES : TROUVEREZ-VOUS LE MOT JUSTE ? , Source N°27210

Information sur la source

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

Auteur : ReMi34

Site perso

Ecrire un message privé

Note :

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..

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Aide.txt 1 563 octets

Télécharger le zip

Sources du même auteur

Toutes les sources de ReMi34

Sources de la même categorie

Toutes les sources de la catégorie AddOns

Commentaires

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. :]
Commentaire de tidds le 31/10/2004 21:35:00

(Ps : je noterai l'add-on dans sa version finale)
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 :)
Commentaire de tidds le 31/10/2004 21:42:56

Héhé, j'ai hâte de voir. :]
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 :)
Commentaire de ReMi34 le 01/11/2004 12:21:43

Merci pour ces idées Sorn ;)
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
Commentaire de ReMi34 le 05/11/2004 07:11:53

Lol pas grave :)
Merci.
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 ??
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.