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;

ICEBUG

可以留中文.....
呵呵太好了～～看到你的那个大波罗游戏demo我就知道你了！：）