Librería para hacer juegos con Pascal

[[Caral]]

No Ñuño Martínez,
Si somos mas de uno los que hemos picado.
Mi problema es que me gustaria aprender, pero tendria que empezar por conocer que son, como se instalan y para que sirven las bibliotecas.
Osea, casi nada.
Pero ganas tengo.
Saludos

[[seoane]]

Bueno Ñuño, le he echado un vistazo a tu librería. Y se me han presentando un par de problemillas al intentar compilarlos en mi Turbo Delphi. Aquí te dejo una lista con algunos problemas y las soluciones que modestamente utilice, aunque puede que tu encuentres una forma mejor de hacerlo.

[Pascal Error] albase.pas(56): E2003 Undeclared identifier: 'DWORD'
--> Añadí la unit Windows

[Pascal Error] alfixed.pas(216): E2016 Array type required
--> Anadi la siguiente funcion
  function tabla(Base: TBLptr; Offset: Integer): AL_FIXED;
  begin
    inc(Base,Offset);
    Result:= Base^;
  end; 
  
  Y corregí el problema de la siguiente manera:
  al_fixsin := tabla(_cos_tbl,((x - $400000 + $4000) SHR 15) AND $1FF);

  Este problema se repite en varias lineas mas, utilice la misma solución

Incompatible types: 'AL_CHARptr' and 'PAnsiChar'
--> Este error aparece varias veces, un simple Typecast soluciona el problema.

Incompatible types: 'AL_CHARptr' and 'string'  
--> Este error aparece varias veces, un simple Typecast soluciona el problema.

Por cierto el ejemplo expal me gusto, es casi hipnótico

[Ñuño Martínez]

Empezado por seoane

Bueno Ñuño, le he echado un vistazo a tu librería. Y se me han presentando un par de problemillas al intentar compilarlos en mi Turbo Delphi. Aquí te dejo una lista con algunos problemas y las soluciones que modestamente utilice, aunque puede que tu encuentres una forma mejor de hacerlo.

Tendré que echarle un vistazo, aunque no será enseguida . Ya sabía yo que tan bueno no podía ser...

Por cierto el ejemplo expal me gusto, es casi hipnótico

De hecho ayer mismo lo estaba probando en el trabajo (no puedo utilizar internet en casa, todavía) y la jefa casi me pilla. Menos mal que me gritó primero "Guillermo, ¿qué te pasa, que estás embobao?" De otro modo estaría en la calle .

[edit] Aquí hay algo que se me escapa. Acabo de entrar en la página de descargas y resulta que dice que NADIE HA DESCARGADO LA NUEVA VERSIÓN (4.2.1 beta). ¿Cómo es posible, entonces, que tú, seoane, hayas conseguido obtenerla sin que quedara registrado?

[[seoane]]

Empezado por Ñuño Martínez

[edit] Aquí hay algo que se me escapa. Acabo de entrar en la página de descargas y resulta que dice que NADIE HA DESCARGADO LA NUEVA VERSIÓN (4.2.1 beta). ¿Cómo es posible, entonces, que tú, seoane, hayas conseguido obtenerla sin que quedara registrado?

Es extraño, yo acabo de volver a entrar a la pagina y tienes razón que pone 0 descargas, pero yo te puedo asegurar que la baje.

[Onti]

Empezado por seoane

Es extraño, yo acabo de volver a entrar a la pagina y tienes razón que pone 0 descargas, pero yo te puedo asegurar que la baje.

No esta funcionando el contador , porque yo también lo descargue

[Saiyan]

Incompatible types: 'AL_CHARptr' and 'string'
--> Este error aparece varias veces, un simple Typecast soluciona el problema.

Perdon por la ignorancia...
pero me podrias ayudar diciendo como se usa el TypeCast para resolver esos problemas??.. a los demas ya los arreglé y funcionan bien tus mejoras...

Como arreglo con TypeCast?

[[sitrico]]

No he bajado la librería pero me gusta la idea

TypeCast = conversión de tipo y debe ser algo como:

PAnsiChar(AL_CHARptr)

Código Delphi [-]
Var
i : Byte;  
begin
i := 1;
If Boolean(i) Then // esto es un TypeCast

Espero no te salga un Invalid typecast

[Saiyan]

Muchas Gracias.. Ok, lo pruebo y comento que sucedió.
Gracias...

esta tarde lo pruebo...

[Ñuño Martínez]

Lo dicho. He cambiado varias cosas siguiendo para compatibilizar mejor con Delphi. He subido el archivo de forma temporal a esta dirección. Si alguien me hiciera el grandísimo favor de comprobar si funciona con Delphi y/o Turbo Delphi y me informara del resultado, lo agradeceré enormamente.

Recuerdo que deberéis descargar también las versiones precompiladas de Allegro y de Allegro.pas (los enlaces van directos a las descargas). Únicamente son necesarios los archivos DLL.

Gracias adelantadas.

[[seoane]]

Hola Ñuño,

ahora mismo no tengo mucho tiempo para hacer pruebas. Pero te cuento como me fue con un par de ejemplos.

Primero hay que añadir el directorio "lib" al "Search Path" del proyecto (Menú: "Project/Options/Directories Conditionals/Search Path"). Y definir la condición WINDOWS (Menu: "Project/Options/Directories Conditionals/Conditionals defines").

Luego modificamos la clausula uses de varios .pas

albitmap.pas

Código Delphi [-]
  USES
    albase, alcolor, alvtable
{$IFNDEF FPC}
 {$IFDEF WINDOWS}
,Windows
 {$ENDIF}
{$ENDIF}
;

alfile.pas

Código Delphi [-]
{$IFNDEF FPC}
  USES Sysutils, albase;
{$ELSE}
  USES strings, albase;
{$ENDIF}

alKeybrd.pas

Código Delphi [-]
{$IFNDEF FPC}
  USES Sysutils, albase;
{$ELSE}
  USES albase;
{$ENDIF}

exBlend.pas, lineas (142 y 154)

Código Delphi [-]
  
  image1 := al_load_bitmap (filename, AL_RGBptr(@pal));
  image2 := al_load_bitmap (filename, AL_RGBptr(@pal));

Hasta aquí llegue, probé los ejemplos: exblend, excolmap y el hipnótico expal, en cuanto tenga tiempo le hecho un vistazo al resto.

[Ñuño Martínez]

¡Olvidé contestar a Caral! No te enfades, anda

Empezado por Caral

No Ñuño Martínez,
Si somos mas de uno los que hemos picado.
Mi problema es que me gustaria aprender, pero tendria que empezar por conocer que son, como se instalan y para que sirven las bibliotecas.
Osea, casi nada.
Pero ganas tengo.
Saludos

No te preocupes. Lo explico en el archivo "leeme.txt", en castellano como debe ser . Simplemente te bajas la versión precompilada de Allegro, buscar el archivo "alleg42.dll" y copiarlo en tu directorio "Windows/System32". Luego te descargas la versión precompilada de Allegro.pas y haces lo mismo con el archivo "alpas42.dll". Finalmente te descargas la versión "normal" de Allegro.pas, haces los cambios que dice seoane en los archivos fuente que hay en el subdirectorio "lib" y copias estos archivos donde tengas las librerías de Delphi (acabo de instalar Turbo Delphi y me dice que están en C:\Archivos de programa\Borland\BDS\4.0\lib). A partir de aquí ya puedes abrir los ejemplos que están en el directorio "examples". La documentación la puedes consultar "on-line" en http://allegro-pas.sourceforge.net (en inglés por razones de márquetin ).

Y para otras dudas, aquí estamos todos .