Page 1 sur 1
HexaScrabble 3 - Spanish / English / German / Italian
Publié : dim. 16/juin/2019 21:05
par 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
Re: HexaScrabble 3 - ES/UK
Publié : dim. 16/juin/2019 22:37
par 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 ..
Re: HexaScrabble 3 - Spanish / English / German
Publié : lun. 17/juin/2019 16:24
par SPH
Re: HexaScrabble 3 - Spanish / English / German
Publié : lun. 17/juin/2019 21:24
par Ar-S
Pourquoi ne fais tu pas une version multilangue ?
Re: HexaScrabble 3 - Spanish / English / German
Publié : lun. 17/juin/2019 22:09
par SPH
Ar-S a écrit :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...
Re: HexaScrabble 3 - Spanish / English / German
Publié : mar. 18/juin/2019 7:33
par 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.
Re: HexaScrabble 3 - Spanish / English / German
Publié : mar. 18/juin/2019 8:51
par 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