fli.inc

著名的游戏开发库Allegro4.2.0 for DELPHI

{*         ______   ___    ___
 *        /\  _  \ /\_ \  /\_ \
 *        \ \ \L\ \\//\ \ \//\ \      __     __   _ __   ___
 *         \ \  __ \ \ \ \  \ \ \   /'__`\ /'_ `\/\`'__\/ __`\
 *          \ \ \/\ \ \_\ \_ \_\ \_/\  __//\ \L\ \ \ \//\ \L\ \
 *           \ \_\ \_\/\____\/\____\ \____\ \____ \ \_\\ \____/
 *            \/_/\/_/\/____/\/____/\/____/\/___L\ \/_/ \/___/
 *                                           /\____/
 *                                           \_/__/
 *
 *      FLI/FLC routines.
 *
 *      By Shawn Hargreaves.
 *
 *      See readme.txt for copyright information.
 *}
{$IFDEF ALLEGRO_INTERFACE}
const
  FLI_OK         = 0;                // FLI player return values 
  FLI_EOF        = -1;
  FLI_ERROR      = -2;
  FLI_NOT_OPEN   = -3;

type
  playfli_ptr = function: sint32; cdecl;

var
  play_fli: function(const filename: PChar; bmp: P_BITMAP; loop: sint32; callback: playfli_ptr): sint32; cdecl;
  play_memory_fli: function(fli_data: Pointer; bmp: P_BITMAP; loop: sint32; callback: playfli_ptr): sint32; cdecl;

  open_fli: function(const filename: PChar): sint32; cdecl;
  close_fli: procedure; cdecl;
  next_fli_frame: function(loop: sint32): sint32; cdecl;
  reset_fli_variables: procedure; cdecl;

  fli_bitmap: ^P_BITMAP;                // current frame of the FLI
  fli_palette: P_PALETTE;               // current FLI palette

  fli_bmp_dirty_from: p_sint32;         // what part of fli_bitmap is dirty
  fli_bmp_dirty_to: p_sint32;
  fli_pal_dirty_from: p_sint32;         // what part of fli_palette is dirty
  fli_pal_dirty_to: p_sint32;

  fli_frame: p_sint32;                  // current frame number

threadvar
  fli_timer: p_sint32;                  // for timing FLI playback
{$ENDIF ALLEGRO_INTERFACE}
{$IFDEF ALLEGRO_IMPLEMENTATION}
{$ENDIF ALLEGRO_IMPLEMENTATION}
{$IFDEF ALLEGRO_LOADVARIABLE}
  play_fli            := LoadDLL('play_fli');
  play_memory_fli     := LoadDLL('play_memory_fli');
  open_fli            := LoadDLL('open_fli');
  close_fli           := LoadDLL('close_fli');
  next_fli_frame      := LoadDLL('next_fli_frame');
  reset_fli_variables := LoadDLL('reset_fli_variables');
  fli_bitmap          := LoadDLL('fli_bitmap');
  fli_palette         := LoadDLL('fli_palette');
  fli_bmp_dirty_from  := LoadDLL('fli_bmp_dirty_from');
  fli_bmp_dirty_to    := LoadDLL('fli_bmp_dirty_to');
  fli_pal_dirty_from  := LoadDLL('fli_pal_dirty_from');
  fli_pal_dirty_to    := LoadDLL('fli_pal_dirty_to');
  fli_frame           := LoadDLL('fli_frame');
  fli_timer           := LoadDLL('fli_timer'); 
{$ENDIF ALLEGRO_LOADVARIABLE}