Librería para hacer juegos con Pascal

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

[[seoane]]

Empezado por Ñuño Martínez

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.

Estoy cansado de verla y no me di cuenta hasta que lo preguntaste. La que tiene definida delphi por defecto es MSWINDOWS.

Por lo tanto:

Código Delphi [-]
{$IFDEF MSWINDOWS}
,Windows
{$ENDIF}