begin process at 2010 03 12 00:10:34
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

AddOns

 > JEU DE LETTRES : TROUVEREZ-VOUS LE MOT JUSTE ?

JEU DE LETTRES : TROUVEREZ-VOUS LE MOT JUSTE ?


 Information sur la source

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :AddOns Niveau :Débutant Date de création :31/10/2004 Vu / téléchargé :8 446 / 651

Auteur : ReMi34

Ecrire un message privé
Site perso
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

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture MULTISOCK V2.0
Source avec Zip [TUTORIEL] SOCKETS TCP - LES BASES
Source avec Zip LES BOUCLES WHILE
TESTER SA BANDE PASSANTE
Source avec Zip MIRCPAD V.1

 Sources de la même categorie

TCL - AJOUT SUPPRESSION DE LOGS par Atok
BLACKLIST PSEUDOS/MASKS par usurpateur
Source avec une capture [XCHAT] ANTI KICK / AWAY C++ par GeroXXXX
JEU DU CODE par alanpersonproject
SERVEUR FTP par hisoka2501

Commentaires et avis

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.

 Ajouter un commentaire




Nos sponsors


Appels d'offres

Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,546 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales