Jeu de lettres : trouverez-vous le mot juste ?

5/5 (10 avis)

Vue 11 297 fois - Téléchargée 750 fois

Télécharger le projet
Commenter

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..
Télécharger le projet

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
6 août 2005 à 19:56
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
11 mars 2005 à 18:14
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 2
5 nov. 2004 à 07:11
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
4 nov. 2004 à 19:52
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 2
1 nov. 2004 à 12:21
Merci pour ces idées Sorn ;)
S'inscrire maintenant

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.

Du même auteur (cs_ReMi34)