HexaScrabble 3 - Spanish / English / German / Italian

Programmation avancée de jeux en PureBasic
Avatar de l’utilisateur
SPH
Messages : 4721
Inscription : mer. 09/nov./2005 9:53

HexaScrabble 3 - Spanish / English / German / Italian

Message 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



Image

Image

Image

Image

Image

Image

Image

Image
Dernière modification par SPH le mar. 18/juin/2019 11:37, modifié 3 fois.
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
Avatar de l’utilisateur
Ar-S
Messages : 9472
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: HexaScrabble 3 - ES/UK

Message 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 .. :?
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
SPH
Messages : 4721
Inscription : mer. 09/nov./2005 9:53

Re: HexaScrabble 3 - Spanish / English / German

Message par SPH »

Dernière modification par SPH le dim. 23/juin/2019 13:58, modifié 2 fois.
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
Avatar de l’utilisateur
Ar-S
Messages : 9472
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: HexaScrabble 3 - Spanish / English / German

Message par Ar-S »

Pourquoi ne fais tu pas une version multilangue ?
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
SPH
Messages : 4721
Inscription : mer. 09/nov./2005 9:53

Re: HexaScrabble 3 - Spanish / English / German

Message par SPH »

Ar-S a écrit :Pourquoi ne fais tu pas une version multilangue ?
Les dico sont assez "lourds" :idea:
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... :!:
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
Avatar de l’utilisateur
Ar-S
Messages : 9472
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: HexaScrabble 3 - Spanish / English / German

Message 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.
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
Ar-S
Messages : 9472
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: HexaScrabble 3 - Spanish / English / German

Message 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
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Répondre