XParticles engine for Asphyre eXtreme 3.1

[2morrowMan]

Originally Posted by wagenheimer

I hava a particle explosion effect (2 seconds long), what is the best way to spawn (random amount) explosions at same time (some little time differenct between it)? How to do to the "explosions already played" to die?

At first dowload new versions of XParticles
Use

TXParticleSystem.Stop(KillParticles: boolean = false);

procedure to stop emission of a particles and leave already emissed particles or to stop and remove all Sytems particles.

Originally Posted by wagenheimer

If i need to play another kind of "particles" at the same time, a need to create a TXParticleSystem to every kind of particle animation that i did use?

Use ParticleManager and you need to have ParticleSystemSetting to every kind of your particle animation.
For example:

XParticleManager.SpawnPS(Pss_Explode1, Images[0], X, Y);
XParticleManager.SpawnPS(Pss_Explode2, Images[0], X2, Y2);

...

[wagenheimer]

That was exactally what i was needing! Thanks a Lot!

This XParticles Engine is the Best Thing that happend, only after Asphyre Engine itself! Ah, SprinteEngine for Asphyre is one of the best thing also.

I will creditate you, LifePower, DraculaLin, and everyone else that did help me in making my first Indie Game. I Will be always gratifull for everyone that did help me here!

Thanks a lot everybody!

[wagenheimer]

I´m have some Access Violations problems, in

if (FParticlesAlive <= 0) then
Exit;

of the procedure TXParticleSystem.Render(Canvas: TAsphyreCanvas);

When i have "a lot" o explosions on my screen, this access violation happens!

Thanks.

[2morrowMan]

Originally Posted by wagenheimer

I´m have some Access Violations problems, in

of the procedure TXParticleSystem.Render(Canvas: TAsphyreCanvas);

When i have "a lot" o explosions on my screen, this access violation happens!

Thanks.

I think it's happens because application trys to render not existing ParticleSystem... More about I'll write tomorrow!

[2morrowMan]

Can you post the code part where you use Particle system?

[wagenheimer]

Hi...

I did create a class to do multiple explosions, which is working fine to me!

        TParticleExplosions = class
        private
          FExplosionsList: TObjectList;
        public
          constructor create;
          destructor destroy;
          procedure Add(Tipo, X, Y: Integer);
          procedure draw;
          procedure update;
          class function GetInstance: TParticleExplosions;
          class var
             FInstance: TParticleExplosions;
          end;

{ TParticleExplosions }

constructor TParticleExplosions.create;
begin
  FExplosionsList := TObjectList.Create;
  FExplosionsList.OwnsObjects := True;
end;

destructor TParticleExplosions.destroy;
begin
  FExplosionsList.Free;
  FExplosionsList := nil;
  FInstance := nil;
end;

procedure TParticleExplosions.Add(Tipo, X, Y: Integer);
var
  temp: TXParticleSystem;
  PSS: TXParticleSystemSettings;
  Stream: TFileStream;
begin
  try
    temp := TXParticleSystem.Create(PSS);

    case Tipo of
      1: Stream := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'Images\gota-spark.pss', fmOpenRead);
      2: Stream := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'Images\book-spark.pss', fmOpenRead);
      3: Stream := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'Images\fire-spark.pss', fmOpenRead);
      4: Stream := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'Images\green-spark.pss', fmOpenRead);
      5: Stream := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'Images\red-spark.pss', fmOpenRead);
      6: Stream := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'Images\black-spark.pss', fmOpenRead);
      7: Stream := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'Images\pearl-spark.pss', fmOpenRead);
      8: Stream := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'Images\cristal-spark.pss', fmOpenRead);
      9: Stream := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'Images\spawn.pss', fmOpenRead);
      10: Stream := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'Images\mapexplosion.pss', fmOpenRead);
      11: Stream := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'Images\forcefield-orange.pss', fmOpenRead);
      12: Stream := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'Images\forcefield-blue.pss', fmOpenRead);
    end;

    if (not temp.SettingsLoadFromStream(Stream)) then ShowMessage('Unable to load ParticleSystem settings');
    Stream.Free();
    temp.Texture := Main.Images[2];
    temp.AddEmitters([point(0, 0)]);
    temp.StartAt(x, y);
    FExplosionsList.Add(temp);
  except
    Temp.Free();
  end;
end;

procedure TParticleExplosions.draw;
var i: integer;
  temp: TXParticleSystem;
begin
  for i := 0 to FExplosionsList.count - 1 do
  begin
    temp := (FExplosionsList.items[i] as TXParticleSystem);
    if temp.ParticlesAlive > 0 then
      temp.Render(Main.Canvas);
  end;
end;

class function TParticleExplosions.GetInstance: TParticleExplosions;
begin
  if FInstance = nil then
  begin
    FInstance := TParticleExplosions.Create;
  end;
  Result := FInstance;
end;

procedure TParticleExplosions.update;
var i: integer;
  temp: TXParticleSystem;
  FDeadList: TObjectList;
begin
  try
    FDeadList := TObjectList.Create;
    FDeadList.OwnsObjects := False;

    for i := 0 to FExplosionsList.count - 1 do
    begin
      temp := (FExplosionsList.items[i] as TXParticleSystem);
      temp.Update(Ceil(1000 / Main.Timer.Speed));

      if (temp.ParticlesAlive <= 0) and (temp.age < 1.9) then
      begin
        FDeadList.Add(temp);
      end;
    end;

    for i := 0 to FDeadList.count - 1 do
    begin
      temp := (FDeadList.items[i] as TXParticleSystem);
      FExplosionsList.Remove(FDeadList.items[i]);
    end;
  finally
    FDeadList.Free;
  end;
end;

Here is my old code that was with randoms "access violations"....

  
GameParticleManager: TXParticleManager;
GameParticleSystem: TXParticleSystem;
FGotaExplosion: TXParticleSystemSettings;

GameParticleManager := TXParticleManager.Create;
GameParticleManager.Canvas := Canvas;
FGotaExplosion := LoadParticleFromASDB('gota-explosion.pss');

GameParticleManager.Update(FDelta); //In TimerProcess

GameParticleManager.Render; //In AsphyreRender

GameParticleSystem := GameParticleManager.SpawnPS(Main.FGotaExplosion, Main.Images[2], X, Y); //To Spawn a new Explosion

Using this way, it was happenings random access violatios in XParticles code.

[2morrowMan]

XParticles and XParticleEditor updated.
Attached in the first post.

[Cervajz]

Hi 2morrowMan,

I have small suggestion to your XParticles editor. Please, might have been in new version make it, that if I minimize editor, stop "render timer".
I often works with yours editor and at the same time with some project (e.g. when I fine-tuning some effects), but editor " take down " considerable achievement of processor and that is why project starts/compiles slower. And shut off editor every time is impractical.

Cervajz

P.S: GuiDesigner this "function" supports.

[2morrowMan]

Originally Posted by Cervajz

Hi 2morrowMan,

I have small suggestion to your XParticles editor. Please, might have been in new version make it, that if I minimize editor, stop "render timer".
I often works with yours editor and at the same time with some project (e.g. when I fine-tuning some effects), but editor " take down " considerable achievement of processor and that is why project starts/compiles slower. And shut off editor every time is impractical.

Cervajz

P.S: GuiDesigner this "function" supports.

Done!
You can download a new version of XParticle Editor from first post!

[huasoft]

suggestion:can you set Vsybc=true in xpEditor,because it took much CPU time and look tremble