Sprite Engine (Asphyre eXtreme v3.x)

DraculaLin

Asphyre Sprite Engine for eXtreme version.

The Sprite Engine is the drawing and rendering component of 2D games.
Examples of this kind of game are Civilization, Donkey Kong (classic arcade), Pharaoh, Zeus, Warcraft, Diablo, Frogger, and Pirates!, among many others.
It is so called because the "characters" or "little men" are referred to as "sprites".
It is fully featured, supporting top-down, side, and isometric rendering.
It supports the 'Sprite' as its basic type, but also supports Tiles and user-drawn Canvases.

Features:

Simple and Easy to Use:
It has a clean and simple function,property.
Only a simple code to finish a game.
Or at least as simple as an engine can be.

Full support for sprites:
-Unlimited number of fully dynamic rendering layers
-Inter- and Intra-layer z-ordering
-rotation,zoom(scaling),horizontal and vertical flipping,transform,stretching, and hidden histories
-various blending modes,alpha blending,specified ARGB color,4 vertex color change, lightness, darker....

Sprite based animations:
A very advance sprite animations control class.
Animated a sprite and can be stopped and restarted or to loop the animationas as necessary.
Sets sprite animation sequence,Sets frame play speed, starting from start frame and ended at finish frame.
3 type of play mode can be play forward,play backward and play pingpong.

Collision:
-Supports 3 type of collision mode for different purpose.
-Individually disable or enable collision causation and response per-object
-Efficient detection handles hundreds of objects in a scene at once.

Particle:
A particle class allowing to create particle effects like smoke, explosions, magic etc.

Performances:
All I can tell you is that it's pretty fast!

There is 8 sample show how to use it.
Enjoy !

huasoft

great!thank you

mmzmagic

Thank your very much , I like This Vh

bigsofty

Most excellent news!

huasoft

Code:

procedure TSprite.SetDrawMode(const Value: Integer);
begin
     Self.FDrawMode := Value;
     if FDrawMode > 3 then FDrawMode := 0;
end;

should be

Code:

procedure TSprite.SetDrawMode(const Value: Integer);
begin
     Self.FDrawMode := Value;
     if FDrawMode > 4 then FDrawMode := 0;
end;

otherwise,we will meet abnormal thing when recomplie the sample of 'ColorEffect'!

DraculaLin

Thanks for the finding the bug...

huasoft

Code:

procedure TParticleSprite.Move(const MoveCount: Single);
begin
     X := X + FAccelX;
     Y := Y + FAccelY;
     FVelocityX := FVelocityX + FAccelX;
     FVelocityY := FVelocityY + FAccelY;
...
end;

Should be

Code:

procedure TParticleSprite.Move(const MoveCount: Single);
begin
     FVelocityX := FVelocityX + FAccelX;
     FVelocityY := FVelocityY + FAccelY;
     X := X + FVelocityX;
     Y := Y + FVelocityY;
 ...
end;

DraculaLin

I check...
Yes, you are right.
Thanks.

The complete TParticleSprite class should be like this:

Code:

 TParticleSprite = class(TAnimSprite)
 private
          FAccelX: Real;
          FAccelY: Real;
          FVelocityX: Real;
          FVelocityY: Real;
          FUpdateSpeed : Single;
          FDecay: Real;
          FLifeTime: Real;
 public
          constructor Create(const AParent: TSpriteEngine); override;
          procedure Move(const MoveCount: Single); override;
          property AccelX: Real read FAccelX write FAccelX;
          property AccelY: Real read FAccelY write FAccelY;
          property VelocityX: Real read FVelocityX write FVelocityX;
          property VelocityY: Real read FVelocityY write FVelocityY;
          property UpdateSpeed : Single read FUpdateSpeed write  FUpdateSpeed;     
          property Decay: Real read FDecay write FDecay;
          property LifeTime: Real read FLifeTime write FLifeTime;
 end;


constructor TParticleSprite.Create(const AParent: TSpriteEngine);
begin
     inherited;
     FAccelX := 0;
     FAccelY := 0;
     FVelocityX := 0;
     FVelocityY := 0;
     FUpdateSpeed :=0;
     FDecay := 0;
     FLifeTime := 1;
end;

procedure TParticleSprite.Move(const MoveCount: Single);
begin
     inherited;
     X:= X + FVelocityX * UpdateSpeed;
     Y:= Y + FVelocityY * UpdateSpeed;
     FVelocityX := FVelocityX + FAccelX * UpdateSpeed;
     FVelocityY := FVelocityY + FAccelY * UpdateSpeed;
     FLifeTime := FLifeTime - FDecay;
     if FLifeTime <= 0 then Dead;
end;

I'm release this version of sprite engine in a hurry, so...

lepidosteus

Excuse me, but can you tell ma what's the point of a sprite engine ? I mean, from the basis, i'm still learning

Thanks in advance

lifepower

Quote:

Originally Posted by lepidosteus

Excuse me, but can you tell ma what's the point of a sprite engine ? I mean, from the basis, i'm still learning

I asked DraculaLin for a small description page about SpriteEngine some time ago, but got no reply on my PM.