PureBasic

Forums PureBasic
Nous sommes le Mar 10/Déc/2019 9:15

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 7 messages ] 
Auteur Message
 Sujet du message: HexaScrabble 3 - Spanish / English / German / Italian
MessagePosté: Dim 16/Juin/2019 21:05 
Hors ligne
Avatar de l’utilisateur

Inscription: Mer 09/Nov/2005 9:53
Messages: 4071
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

_________________
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Portable LENOVO ideapad 110-17ACL 64 bits
Version de PB : 5.70LTS - 32 bits


Dernière édition par SPH le Mar 18/Juin/2019 11:37, édité 3 fois.

Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: HexaScrabble 3 - ES/UK
MessagePosté: Dim 16/Juin/2019 22:37 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 09/Oct/2005 16:51
Messages: 8785
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 :. Tour + portable W10 x64 PB 5.4x / 5.6x
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
RESIZER GOLD : Mon logiciel de redimensionnement par lot 100% PB


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: HexaScrabble 3 - Spanish / English / German
MessagePosté: Lun 17/Juin/2019 16:24 
Hors ligne
Avatar de l’utilisateur

Inscription: Mer 09/Nov/2005 9:53
Messages: 4071
Version allemande : http://xmas.free.fr/HexaScrabble_3_deutsch.zip :P

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

_________________
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Portable LENOVO ideapad 110-17ACL 64 bits
Version de PB : 5.70LTS - 32 bits


Dernière édition par SPH le Dim 23/Juin/2019 13:58, édité 2 fois.

Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: HexaScrabble 3 - Spanish / English / German
MessagePosté: Lun 17/Juin/2019 21:24 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 09/Oct/2005 16:51
Messages: 8785
Pourquoi ne fais tu pas une version multilangue ?

_________________
~~~~Règles du forum ~~~~
.: Ar-S :. Tour + portable W10 x64 PB 5.4x / 5.6x
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
RESIZER GOLD : Mon logiciel de redimensionnement par lot 100% PB


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: HexaScrabble 3 - Spanish / English / German
MessagePosté: Lun 17/Juin/2019 22:09 
Hors ligne
Avatar de l’utilisateur

Inscription: Mer 09/Nov/2005 9:53
Messages: 4071
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 ////
Portable LENOVO ideapad 110-17ACL 64 bits
Version de PB : 5.70LTS - 32 bits


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: HexaScrabble 3 - Spanish / English / German
MessagePosté: Mar 18/Juin/2019 7:33 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 09/Oct/2005 16:51
Messages: 8785
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 :. Tour + portable W10 x64 PB 5.4x / 5.6x
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
RESIZER GOLD : Mon logiciel de redimensionnement par lot 100% PB


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: HexaScrabble 3 - Spanish / English / German
MessagePosté: Mar 18/Juin/2019 8:51 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 09/Oct/2005 16:51
Messages: 8785
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:
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 :. Tour + portable W10 x64 PB 5.4x / 5.6x
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
RESIZER GOLD : Mon logiciel de redimensionnement par lot 100% PB


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 7 messages ] 

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye