Jeu de lettres : trouverez-vous le mot juste ?

Soyez le premier à donner votre avis sur cette source.

Vue 10 750 fois - Téléchargée 717 fois

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 / Exemple :


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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

infosactualite
Messages postés
7
Date d'inscription
samedi 8 mai 2004
Statut
Membre
Dernière intervention
7 août 2005
-
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.
cs_clem54
Messages postés
253
Date d'inscription
jeudi 10 mars 2005
Statut
Membre
Dernière intervention
16 octobre 2005
-
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 ??
cs_ReMi34
Messages postés
1025
Date d'inscription
vendredi 29 août 2003
Statut
Membre
Dernière intervention
28 mars 2005
-
Lol pas grave :)
Merci.
cs_Asthar
Messages postés
208
Date d'inscription
dimanche 18 avril 2004
Statut
Membre
Dernière intervention
6 septembre 2005
-
Comme d'hab, c'est nickel =)
Good job, par contre j'ai pas d'idée :p
cs_ReMi34
Messages postés
1025
Date d'inscription
vendredi 29 août 2003
Statut
Membre
Dernière intervention
28 mars 2005
-
Merci pour ces idées Sorn ;)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.