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