Spark Game Library™ is a slim version of the Piro Game Toolkit, a 2D indie game library that allows you to do game development in Delphi for desktop PC's running Microsoft Windows® and uses OpenGL® for hardware accelerated rendering.

With Spark, you can get your feet wet, making games and doing it in your favorite programming language, Delphi. You only need to include the Spark unit in your project and override a few methods from the TGame class. That is it! Everything will be included and compiled into your project.

Its robust, designed for easy use and suitable for making all types of 2D games and other graphic simulations, You access the features from a simple and intuitive API, to allow you to rapidly and efficiently develop your projects. There is support for bitmaps, audio samples, streaming music, video playback, loading resources directly from a compressed zip archive, collision detection and much more. Spark, simple and elegant game programming in Delphi.

Development - This build represents the most recent development state an as such may or may not be as stable as the official release versions. If you like living on the bleeding edge, it's updated frequently (often daily) and will contain bug fixes and new features.

Releases - These are the official release versions and deemed to be the most stable.

• Free for commercial use. See License agreement.
• Written in Object Pascal with full sources.
• Support Windows 64 bit platform ONLY!
• Hardware accelerated with OpenGL
• You interact with the library via an ease to use API.
• Archive (standard zip format)
• Window (OpenGL, anti-aliasing, vsync, viewports, primitives, blending)
• Input (keyboard, mouse and joystick)
• Bitmap (color key transparency, scaling, rotation, flipped, titled, BMP, DDS, PCX, TGA, JPEG, PNG)
• Video (play, pause, rewind, OGV format)
• Audio (samples, streams, WAV, OGG/Vorbis, FLAC formats)
• Font (true type, scale, rotate)
• Timing (time-based, frame elapsed, frame speed)
• Misc (collision, easing, screenshake, screenshot, starfield, colors, INI based config files)

• Delphi Community Edition
• Microsoft Windows 10, 64 bits
• OpenGL 3

• Unzip the archive to a desired location.
• Add installdir\sources, folder to Delphi's library path so Spark source files can be found for any project or for a specific project add to its search path.
• See examples in the installdir\examples for more information about usage.
• Compile and the SparkArc utility for making .ARC files (standard compressed zip format). Running the makearc.bat in installdir\bin will build Data.arc that is used by the examples.
• Build and run the examples to showcase many of the features and capabilities of the library.
• There are no other dependencies required other than what is used by your own projects such an .ARC file.

• This project is in active development so changes will be frequent, but should be very stable.
• More examples will continually be added over time

You just have to derive a new class from the TGame base class and override a few callback methods. You access the library functionality from the TGame methods.

uses
  Spark;
  
const
  cArchiveFilename   = 'Data.arc';

  cDisplayTitle      = 'MyGame';
  cDisplayWidth      = 800;
  cDisplayHeight     = 480;
  cDisplayFullscreen = False;

type
  { TMyGame }
  TMyGame = class(TGame)
  protected
    FFont: Int64;
  public
    procedure OnStartup; override;
    procedure OnShutdown; override;
    procedure OnUpdateFrame(aDeltaTime: Double); override;
    procedure OnClearFrame; override;
    procedure OnShowFrame; override;
    procedure OnRenderFrame; override;
    procedure OnRenderHUD; override;
  end;

A minimal implementation example:

uses
  System.SysUtils;

{ TMyGame }
procedure TMyGame.OnStartup;
begin
  // mount an archive file
  Mount(cArchiveFilename, '', True);  
  
  // open window
  OpenWindow(cDisplayWidth, cDisplayHeight,  cDisplayFullscreen, cDisplayTitle);

  // use default mono spaced font
  FFont := LoadFont(16)
end;

procedure TMyGame.OnShutdown;
begin
  // unload font
  UnloadFont(FFont);

  // close window
  CloseWindow;
  
  // Unmount archive
  Unmount(cArchiveFilename);  
end;

procedure TMyGame.OnUpdateFrame(aDeltaTime: Double);
begin
  // process input
  if KeyboardPressed(KEY_ESCAPE) then
    SetTerminate(True);
end;

procedure TMyGame.OnClearFrame;
begin
  // clear window
  ClearWindow(BLACK);
end;

procedure TMyGame.OnShowFrame;
begin
  // show display
  ShowWindow;
end;

procedure TMyGame.OnRenderFrame;
begin
  // render any graphics here
end;

procedure TMyGame.OnRenderHUD;
var
  Pos: TVector;
begin
  // assign hud start pos
  Pos.Assign(3, 3, 0);

  // display hud text
  PrintText(FFont, Pos.X, Pos.Y, Pos.Z, WHITE, alLeft, 'fps %d', [GetFrameRate]);
  PrintText(FFont, Pos.X, Pos.Y, 0, GREEN, alLeft, 'Esc - Quit', []);
end;

To run your game, call

RunGame(TMyGame);

NOTE: For Spark to work properly, execution MUST start with RunGame(...). This call will property setup/shutdown the library and log and handle errors. Only one Spark app instance is allowed to run and will safely terminated if more than one is detected.

See the examples for more information on usage.

Built with Delphi 11