Hacer un proyecto mediano o grande siempre implica buscar un modelo de financiación para sufragar los costes corrientes y todos los derivados del desarrollo de un videojuego. Depende de donde vivas hay muchas maneras diferentes de obtener dinero para financiar tu proyecto. Una de ellas consiste en pedir ayudas del sector del videojuego a las administraciones públicas. Si puedes acceder a ello es una buena manera de conseguir la financiación que necesites, pero muchas veces o no se pueden cumplir todos los requisitos necesarios o no los tiempos no se ajustan a tus proyectos. Otra manera de conseguir hacer despegar un juego es buscar un publisher o un inversor que crea en el proyecto, le vea viabilidad económica y apueste con ello. Así mismo el tema de los publishers en concreto daría para un artículo en concreto que abordaré mas adelante. Otro problema añadido a este pequeño mundo de los juegos es la cantidad de recursos y servicios externos que se necesitan para completar un juego y po
Si queremos llegar al máximo número de usuarios en nuestros juegos es importante tener en cuenta de dominar el sistema de multilenguaje. Delphi dispone en las últimas versiones de un sistema de multilenguaje que nos puede resultar muy útil.
Los componentes TLabel, TButton, etc. disponen de una propiedad llamada Autotranslate que si esta activada podemos a través del componente Lang incorporar varios idiomas a la propiedad Text del los componentes.
Yo personalmente prefiero no utilizar la propiedad Autotranslate y tener un procedimiento que traduzca al idioma que el jugador haya seleccionado. Para ello utilizo una función como esta para asignar los Text de todos los controles del juego. Si sitúas esta función en el inicio del juego o cunado el jugador cambia de idioma tendrás un sistema multilenguaje muy funcional.
Función al inicio del programa para suministrar la traducción a todos los controles visuales:
El control Lang1 permite crear cadenas en múltiples idiomas.
function TForm1.sTextManualF(sOrg: string): string;
// translate a text, which is not in the automate translation process of TFmxObjects
begin
// first check, if the selected language has a mapping
if Lang1.Resources.IndexOf(Lang1.Lang)>=0 then begin
// get the resource stringlist of the current language and get the translation
result := Lang1.LangStr[Lang1.Lang].Values[sOrg];
if result='' then begin
// text not found in mapping - keep original text
result := sOrg;
end;
end
else begin
// language not found: must be the default language
result := sOrg;
end;
end;
Función al inicio del programa para suministrar la traducción a todos los controles visuales:
Procedure TForm1.FormCreate(Sender: TObject);
begin
TranslateText;
end;
Procedure TForm1.TranslateText;
begin
//Main
Text1.Text:= sTextManualF('sOpen');
end;
El control Lang1 permite crear cadenas en múltiples idiomas.
Comentarios
Publicar un comentario