HexaScrabble 3 - Spanish / English / German / Italian

[SPH]

iHola, te estoy mostrando mi juego de scrabble en español. ¿Puedes probarlo?
http://xmas.free.fr/HexaScrabble_3_spanish.zip
Aquí hay una clave que permanecerá válida por varias semanas: abcdefghijkl
Dime si encuentras algún error o anomalía.
Disfrutar.

THX

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Hi, I'm showing you my English scrabble game. Can you test it?
http://xmas.free.fr/HexaScrabble_3_english.zip
Here is a key that will remain valid for several weeks: abcdefghijkl
Tell me if you encounter any bugs or anomalies.
Enjoy.

THX

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Salut, je vous presente mon jeu de scrabble espagnol. Pouvez vous le tester ?
http://xmas.free.fr/HexaScrabble_3_spanish.zip version ES
http://xmas.free.fr/HexaScrabble_3_english.zip version UK
Voici une clé qui restera valide plusieurs semaines : abcdefghijkl
Dites moi si vous rencontrez des bugs ou des anomalies.
Enjoy.

THX

[Ar-S]

Message édité pour ajouter le lien anglais et espagnol ensemble.
Tu ne vas pas nous faire un poste pour chaque langue non plus hein ..

[SPH]

Version allemande : http://xmas.free.fr/HexaScrabble_3_deutsch.zip

Version italienne : http://xmas.free.fr/HexaScrabble_3_italian.zip

[Ar-S]

Pourquoi ne fais tu pas une version multilangue ?

[SPH]

Pourquoi ne fais tu pas une version multilangue ?

Les dico sont assez "lourds"
Pi, j'ai un EXE par langue...

Et je compte faire une version italienne (j'ai deja le dico)
Et je verrais pour faire encore d'autres langues...

[Ar-S]

Tu mets les dico genre FR.dic EN.dic etc dans un dossier DICO et voilà...
Je crois que tu peux te le permettre en 2019 Certains jeux font 80go et + je crois que tu as de la marge..
Un exe par langue ?? Tu te prends le choux pour rien.
Fais du propre : 1 exe qui propose le choix de la langue au démarrage. Tu enregistres ce choix dans un petit fichier pref qui doit déjà exister je suppose (pour enregistrer les scores etc..).
ça fait plus pro.
Bon après tu fais comme tu veux mais une fois que tu as fait ton système de langue, tu en ajoutes d'autres beaucoup plus facilement et sans avoir à recompiler ton exe.
Et si vraiment tu veux gagner de la place, tu zip tes dico, ça devrait gagner gras de place vu que c'est du texte.

[Ar-S]

Petit exemple tout simple.
1 - fais un dossier "dico" dans le dossier du code
2 - fais un fichier fr.txt avec des mots les uns sous les autres.
3 - pareil avec un fichier en.txt
4 - lance le prog.
(si tu ne vois pas l'imputrequester, bouge ta fenetre de debug)

Code : Tout sélectionner

Global DicoPath$ = GetCurrentDirectory()+"dico"
Global NewList Langue.s()
Global NewList Dico.s()


#FR = 0
#EN = 1

Procedure CheckDicoZ()
  If ExamineDirectory(0, DicoPath$, "*.*")  
    While NextDirectoryEntry(0)
      If DirectoryEntryType(0) = #PB_DirectoryEntry_File And DirectoryEntryName(0) <> "." And DirectoryEntryName(0) <> ".."
        AddElement(Langue())
        Langue() = GetFilePart(DirectoryEntryName(0),#PB_FileSystem_NoExtension)
        Debug "Langue detectée : " + Langue()
        Debug "Fichier dico : " + DirectoryEntryName(0)
        
      EndIf
    Wend
    FinishDirectory(0)
  EndIf
EndProcedure


Procedure ChoixLangue()
  Shared LNG
  
  LNG$ = InputRequester("Langue/Language","FR = 0 | EN = 1","0",0)
  If LNG$ = "1" Or LNG$ = "0"
    ProcedureReturn Val(LNG$)
  Else
    ProcedureReturn 0
  EndIf  
EndProcedure


Procedure LitDico(Langue)
  Select langue 
    Case #FR
      Dico$ = "dico/fr.txt"
      
    Case #EN
      Dico$ = "dico/en.txt"
  EndSelect
  
  If ReadFile(1,Dico$)
  While Eof(1) = 0      
    AddElement( Dico() )
    dico() = ReadString(1)
  Wend
  CloseFile(1)
  EndIf
  
  Debug "Lecture du dico OK"
  
EndProcedure


; ---- PROG -----

CheckDicoZ()
Langue = ChoixLangue()
LitDico(Langue)

Debug " Vérifions le dico"
Debug ""
Debug "  il y a " + Str(ListSize( Dico() )) + " éléments dans le dico"
ForEach Dico()
Debug Dico()  
Next
  

On peut simplifier encore en ajoutant la detection de la langue du systeme etc... mais bon, c'est déjà pas bien long comme ça