Andorra 2D [Ver. 0.4.5.1, 31.12.08]

[igel457]

Absicht - ich hatte damals das Verhalten von DelphiX neu implementiert, ob das gut oder schlecht war, darüber lässt sich streiten.

Wichtig ist auf jeden Fall: In den Sprites, die eine Kollisionsprüfung benötigen (die des Players, oder andere "Physik-Objekte") die Funktion "Collision" aufrufen. "Collision" Überprüft dann für jedes Sprite in der Umgebung, ob dieses auch tatsächlich mit dem aufrufenden Sprite kollidiert - hierzu fragt es dann die "Level-Sprites", die ja bekanntlich jede beliebige Form haben können.

Dieses Verhalten hat den Vorteil, dass nicht alle Überprüfungen in der Playerklasse liegen sondern im Level selbst. Andere Klassen im Level können somit von den Überprüfungen ebenso partizipieren, wenn sie denn auch mal auf Kollision testen müssen.

Andreas

[Sfaizst]

Hmm, erscheint mir logisch,
so kann man natürlich auch leichter verschiedene "Objekte" im "level" erstellen, welche bei collision explodieren, zerfetzt werden oder sonst was

Edit: Danke nochmal für die Hilfe, ich melde mich wieder fals mir was unklar ist

[Sfaizst]

Hallö,
musste leider feststellen, das der Loop bei der Videowiedergabe nicht funktioniert, habe mir deshalb was ausgedacht, wie er geht, ist nicht ganz die feine englische, aber es funktioniert: (vielleicht brauchts ja jemand, ich brauchte es, da ich eine kurze videosequenz immer wieder wiederholen wollte)

Die Unit AdVideoTexture (Klasse TAdVideoTexture) sieht nun so aus:

Delphi-Quellcode:

...
  TAdVideoTexture = class(TAdCustomVideoTexture)
    private
      FTimeGap: double;
      FFPS: integer;
      FTmpFPS: integer;
      FTmpTime: double;
      FState: TAdVideoPlayerState;
      FLoop: boolean;
      FSpeed: double;
      FFrameTime: double;

      FOnPlay: TAdNotifyEvent;
      FOnStop: TAdNotifyEvent;
      FOnPause: TAdNotifyEvent;
      FOnClose: TAdNotifyEvent;
      FOnNextFrame: TAdNotifyEvent;

      procedure SetSpeed(AValue:double);
    protected
      procedure DoPlay;virtual;
      procedure DoPause;virtual;
      procedure DoStop;virtual;
      procedure DoNextFrame;virtual;
      procedure DoClose;virtual;

      //NEU DAZUGEKOMMEN:
      property TmpTime : Double read FTmpTime write FTmpTime;
      property TmpFPS : Integer read FTmpFPS write FTmpFPS;
      property FrameTime : Double read FFrameTime write FFrameTime;
      //Abgeändert, damit in die var geschrieben werden kann...
      property TimeGap: double read FTimeGap write FTimeGap;
    public
      {Creates an instance of TAdVideoTexture.}
      constructor Create(AParent: TAd2dApplication);

      {Starts to play the video.}
      procedure Play;virtual;
      {Pauses video playback.}
      procedure Pause;virtual;
      {Stops video playback (resets the data source, clears all buffers)}
      procedure Stop;virtual;
      {Destroys all created video playback objects.}
      procedure Close;virtual;
      {Moves the timer of TAdVideoTexture on, so that playback continues.
       @param(ATimeGap specifies the time that has been passed since the
         last call of ATimeGap in seconds)}
      procedure Move(ATimeGap:double);virtual;

      {Texture that can be accessed when you want to draw the film.}
      property Texture;
      {Time information about the current displayed frame.
       @seealso(TAdVideoPosition)}
      property Time;
      {Information about the current video frame.
       @seealso(TAdVideoInformation)}
      property Info;
      {Current state of the player.}
      property State: TAdVideoPlayerState read FState;
      {The FPS the video is currently played with.}
      property CurrentFPS:integer read FFPS write FFPS;  //Abgeändert, damit in die var geschrieben werden kann...
      {Set this property if you want the video to loop.}
      property Loop: boolean read FLoop write FLoop;
      {Use this property to vary playback speed. Default is 1. For example, 0.5
       would mean that the video is played with the half speed.}
      property Speed: double read FSpeed write SetSpeed;

      {Event that is triggered when playback starts.}
      property OnPlay:TAdNotifyEvent read FOnPlay write FOnPlay;
      {Event that is triggered when playback stops.}
      property OnStop:TAdNotifyEvent read FOnStop write FOnStop;
      {Event that is triggered when video playback is pasued.}
      property OnPause:TAdNotifyEvent read FOnPause write FOnPause;
      {Event that is triggered, when a new frame is displayed. This
       event can e.g. be used to synchronize the video to an audio buffer.}
      property OnNextFrame:TAdNotifyEvent read FOnNextFrame write FOnNextFrame;
      {Event that is triggered when the decoder is closed.}
      property OnClose:TAdNotifyEvent read FOnClose write FOnClose;
  end;
...

Neue Unit (Eigene Klasse):

Delphi-Quellcode:

uses ... AdVideo, AdVideoTexture;
...
TNewVideo = class(TAdVideoPlayer)
  private
    //FWidth, FHeight : Integer;
  public
   {procedure SetPropertis(AWidth, AHeight : Integer);
    procedure DoDraw(AdDraw : TAdDraw; TimeGap : Double); Unintressant hier, hab ich aber in meinem Projekt gebraucht }
    procedure Move(ATimeGap:double); override;
    
end;
...
procedure TNewVideo.Move(ATimeGap: Double);
begin
  if GetOpened and (State = vpPlaying) then
  begin
    TmpTime := TmpTime + ATimeGap;
    TimeGap := TimeGap + ATimeGap;
    if (TimeGap > FrameTime) then
      if NextFrame then
      begin
        TmpFPS := TmpFPS + 1;
        TimeGap := TimeGap - FrameTime;
        DoNextFrame;
      end;
    if Pos=Size then
    begin
      if Loop then
         Seek(0) Else
         Stop;
    end;
    if TmpTime > 1 then
    begin
      CurrentFPS := TmpFPS;
      TmpFPS := 0;
      TmpTime := 0;
    end;
  end;
end;

Entschuldigung für den Doppelpost, aber der letzte ist ja schon ne ewigkeit her
Getested mit AdMPEG2Video

P.S.: Meine Pixelkollision funktioniert inzwischen recht gut

[Leanahtan]

Da wir für unser Projekt schon lange überlegen, wie man von DelphiX wegkommen kann, hab ich mich jetzt mal etwas mit Andorra 2D beschäftigt. Soweit ich das sehe, wäre es für unser Projekt ganz gut geeignet. Wir benutzen lediglich zum Rendern einer Kugel mit Erd-Textur 3D - der Rest ist ausschließlich 2D. Die Dokumentation ist gut, man kann problemlos von DirectX zu OpenGl wechseln etc.

Ein Punkt macht mich aber etwas vorsichtig. Soweit ich das sehe, ist an dem Projekt in den letzten Jahren nicht weiterentwickelt worden. Ist der jetzige Stand mehr oder weniger final, oder sind Weiterentwicklungen geplant?

[igel457]

Zitat von Leanahtan:

Wir benutzen lediglich zum Rendern einer Kugel mit Erd-Textur 3D - der Rest ist ausschließlich 2D. Die Dokumentation ist gut, man kann problemlos von DirectX zu OpenGl wechseln etc.

Das ist kein Problem, schau dir dazu die 3D-Demo an.

Zitat:

Ist der jetzige Stand mehr oder weniger final, oder sind Weiterentwicklungen geplant?

Ja, momentan plane ich nicht daran weiter zu entwickeln, über Patches freue ich mich natürlich immer.

[Leanahtan]

Zitat von igel457:

über Patches freue ich mich natürlich immer.

Naja, davon bin ich wohl Meilenweit entfernt ^^ Ich halte es sogar für unwahrscheinlich, dass es mir tatsächlich gelingt, unser gesamtes Projekt umzustellen. Schön wäre es, wenn mir das zumindest für den Mapeditor gelingt. Ist auch nicht ganz trivial, da folgende Komponente ersetzt/umgeschrieben werden müsste:

https://xforceffd.svn.sourceforge.ne...s/IsoKDMap.pas

Momentan probiere ich etwas mit unserem Skripteditor. Dort muss eigentlich nur ein Bild erstellt und angezeigt werden, und selbst dass hat mir ziemlich Probleme gemacht. Letztlich muss ich irgendwo AdDraw.Restore aufrufen (weiß aber nicht warum, oder an welcher Stelle ich das machen soll, damit es nicht öfter als nötig aufgerufen wird) oder AdDraw erst später erzeugen (nicht bei FormCreate). Sonst bleibt mein Fenster nach dem öffnen schwarz.

Delphi-Quellcode:

{$I ..\settings.inc}
unit frmMap;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, frmChild, MapGenerator, ISOMapTypes, ExtCtrls{$IFDEF ANDORRA2D}, AdDraws, AdClasses,AdTypes{$ENDIF};

type
  TShowMapForm = class(TForm)
    MapPreviewImage: TImage;
    AdDrawPanel: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure AdDrawRestore;
    procedure FormResize(Sender: TObject);
  private
    MapBitmap : TBitmap;
    {$IFDEF ANDORRA2D}
    AdImageList:TAdImageList;
    AdDraw :TAdDraw;
    {$ENDIF}
    MapFieldDataArray : Array of Array of TMapFieldData;
    { Private-Deklarationen }
  public
    {$IFDEF ANDORRA2D}
    procedure DrawMapAd(Sender:TObject; var Done:boolean);
    {$ENDIF}
    procedure ShowMap(const Map: TMapGenerator);

    { Public-Deklarationen }
  end;

var
  ShowMapForm: TShowMapForm;

implementation

uses
  Defines, TileSetTypes;
{$R *.DFM}

{ TShowMapForm }

procedure TShowMapForm.FormCreate(Sender: TObject);
var
 i,j : integer;
begin
  AdDraw:=nil;
  MapBitmap:=TBitmap.Create;
end;

procedure TShowMapForm.FormDestroy(Sender: TObject);
begin
  {$IFDEF ANDORRA2D}
  if AdImageList <> nil then AdImageList.Free;
  if AdDraw <>nil then AdDraw.Free;
  {$ENDIF}
  MapBitmap.Free;
end;

procedure TShowMapForm.FormResize(Sender: TObject);
begin
  AdDrawRestore;
end;

{$IFDEF ANDORRA2D}
procedure TShowMapForm.AdDrawRestore;
begin
  if AdDraw = nil then
    AdDraw := TAdDraw.Create(AdDrawPanel);
  AdDraw.DllName := 'AndorraOGL.dll';
  if AdDraw.Initialize then
  begin
    if AdImageList = nil then
    begin
      AdImageList:=TAdImageList.Create(AdDraw);
      AdImageList.Add('Map');
    end;
    AdImageList.Find('Map').Texture.LoadFromGraphic(MapBitmap);
    AdImageList.Restore;
    Application.OnIdle := DrawMapAd;
  end
  else
  begin
    ShowMessage(AdDraw.GetLastError);
    exit;
  end;
  AdDrawPanel.Width:=AdImageList.Find('Map').Width;
  AdDrawPanel.Height:=AdImageList.Find('Map').Height;
end;
{$ENDIF}

procedure TShowMapForm.ShowMap(const Map: TMapGenerator);
begin
  // hier wird MapBitmap aus den Kartendaten + Tilesets zusammengesetzt
  // (später statt Bitmap vielleicht über TAdImageList)
end;

{$IFDEF ANDORRA2D}
procedure TShowMapForm.DrawMapAd(Sender:TObject; var Done:boolean);
begin
  if AdDraw.CanDraw then //Wenn überhaupt auf das AdDraw gezeichnet werden kann dann...
  begin
    AdDraw.ClearSurface(clBlack);
    with AdImageList.Find('Map') do
    begin
      AdDraw.BeginScene;
      AdImageList.Find('Map').Draw(AdDraw,0,0,0);
      AdDraw.EndScene;
    end;
    AdDraw.Flip; //Präsentiert die gezeichneten Dinge auf dem Bildschirm.
  end;
end;
{$ENDIF}

Derzeit benutze ich als Notlösung das Resize-Event, um AdDraw.Initialize aufzurufen, und die Karte zu laden. Ursprünglich wollte ich die Karte direkt nach dem Erstellen von MapBitmap in AdImageList laden, aber wie gesagt, dann bleibt alles schwarz.

Den Umweg über ein Panel brauche ich, um Scrollbars zu bekommen, sobald die Karte größer ist, als das Fenster (gibts dafür eine interne Lösung in Andorra 2D, also Anzeige in vorgegebenen Bereich, aber wenn zu zeichnende Textur größer ist, Scrollbars?)).
Wenn ich die Karte einfach Zoomen will, muss ich wohl auf SpriteEngine ausweichen, oder? Hätte das Auswirkungen auf die Geschwindigkeit?

Gibt es irgendeine Möglichkeit, den Inhalt eines AdImage als bmp zu speichern? Weß sonst nicht, wie ich prüfen kann, ob bei fehlerhaften Draw ein Problem bei AdImageList.Find(...).Draw vorliegt, oder bei AdDraw selbst.

[Codewalker]

Ich hatte auch bei einem MapEditor (zu einem nie fertigen Spiel) das Problem mit dem Scrolling. Ich habe es durch ein Rechtsklickscrolling (wie bei Echtzeitstrategiespielen) gelöst (Code siehe hier: http://www.delphipraxis.net/116300-[andorra]-scrollen-per-mausbewegung-rechtsklick.html)