Andorra 2D Bewegung von Figuren

[DeddyH]

Ich nehme an, X und Y sind Eigenschaften der Elternklasse TImageSprite?

[garfield.92]

jop, müsste so sein.

[Coffeecoder]

Zitat von DeddyH:

Ich nehme an, X und Y sind Eigenschaften der Elternklasse TImageSprite?

Zitat von garfield.92:

jop, müsste so sein.

Wenn das so wäre, muss man nicht noch in deinem Konstruktor auch den Konstruktor deiner Elternklasse TImageSprite aufrufen?

[DeddyH]

Das stimmt zwar, dürfte aber mit den X- und Y-Eigenschaften nichts zu tun haben (es sei denn, das wären Objekte, was ich aber nicht glauben mag).

[Coffeecoder]

Vielleicht hast du dieses Tutorial gesehen, aber das hier kannst du dir auch mal angucken.

[garfield.92]

Nach diesem Tutorial bin ich ja vorgegangen und habe den Konstruktor auch daraus.
Durch das inherited rufe ich doch die Elternklasse auf oder?

[DeddyH]

inherited ruft die Implementation der Vorfahrklasse auf.

[garfield.92]

Okay

[Blup]

Ein Unterschied zum Tutorial ist mir sofort ins Auge gefallen:

Delphi-Quellcode:

Figur := TFigur.Create(AdSpriteEngine);
...

Delphi-Quellcode:

croco:=Tcroco.Create(nil);
...

Das Croco darf vermutlich erst nach der SpriteEngine erzeugt werden und muss mit dieser bekannt gemacht werden.

[IceBube]

Die Sprite in der Engine erzeugen ist schon oke, wird auch in den Tutorial's so gemacht!

Muss schon sagen dass dein Source sehr komisch ausschaut, entweder du erstellst ein Sprite (TImageSprite/EX) oder du zeichnest die Figur!

Ein Sprite erzeugst du am Anfang (Form.Create) bzw. einmal:

Delphi-Quellcode:

procedure TForm.onCreate...
begin
 //Erstellen deines Sprites
 Croco := TimageSprite.Create(DeineSpriteEngine);
 with Croco do
 begin
  X      := 0;
  Y      := 0;
  xSpeed := 1;
  Image := AdImageList1.Find('croco');
  AnimActive := FALSE; 
 end;
end;

Wenn du deine Figur in jede beliebige Richtung bewegen möchtest mittel's WASD:
Du musst die Procedure mit der Form verbinden, sonst passiert nichts!

Delphi-Quellcode:

procedure TForm.onKeyPress(var Key...);
begin
 case Key do
 begin
  'a': 
  begin
   Croco.X := Croco.X + xSpeed; 
   iF (Croco.AnimPos = Croco.AnimCount) Then 
    Croco.AnimPos := Croco.AnimStart
   ELSE
    Croco.AnimPos := Croco.AnimPos + 1;
  end;
  'd':
  begin 
   ... 
  end;
 end;
end;

Hoffe das ist verständlich, aber ist schon lange her..dass ich Andorra verwendet habe :/

lg