Librería para hacer juegos con Pascal

[[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]

Son más errores y problemas de los que esperaba

Lo de poner el path me lo imaginaba. Tendré que añadirlo a la documentación para que la gente lo tenga en cuenta. Estaba pensando en crear un paquete para Lazarus, así que también se podría hacer uno para Delphi, ¿o no?

En cuanto a lo de definir la condición WINDOWS, ¿no tiene Delphi una ya definida? Por ejemplo WIN32 o similar que permita saber que está compilando en él. Dado que existe Kylix supongo que sí habrá una.

El resto de las cosas ya las iré estudiando.

Gracias, y si hay algún detalle más que se necesite cambiar o añadir, decidlo sin miedo.