Andorra 2D [Ver. 0.4.5.1, 31.12.08]

[xZise]

Hi igel,

Zitat:

Zitat von igel457

an die Größe eines Stückes kommst du über auslesen der "GridSize" property der Spriteengine. Dieser Wert steht normalerweise auf "128px". Du solltest diesen an die Größe der verwendeten Kacheln anpassen, bevor du diese erzeugt hast.

Allerdings muss ich um die Größe einer Kachel zu ändern (vergrößern/kleinern) ".zoom" benutzen ;)

Zitat:

Zitat von igel457

Mit der Kollision kann das so ja nicht funktionieren ;-):
Du brichst die Kollisionsüberprüfung ab, wenn du nicht gegen ein btWall stößt. Es müsste gerade anders herum sein.

Mist :) Genau andersherum :)
Und was ist, wenn der Spieler nur oben gegen die Wand stößt, man aber nach links/rechts/unten drückt und der weg frei ist?

MfG
xZise

[igel457]

Diese Fälle musst du bei der Kollisionsürpfung eben alle abfangen - da kann dir Andorra 2D nicht helfen. In meinen Spielen habe ich das folgendermaßen gemacht:

Delphi-Quellcode:

TCollisionEdge = (ceLeft, ceTop, ceRight, ceBottom);
TCollisionEdges = set of TCollisionEdge;

procedure DoMove(timegap:double);
begin
  CollisionEdges := [];

  Collision;

  if ceTop in CollisionEdges then ...
end;

procedure DoCollision(Sprite:TSprite; var Done:boolean);
begin
  wenn kollision dann
    wenn oben then CollisionEdges := CollisionEdges + [ceTop];
    wenn unten then CollisionEdges := CollisionEdges + [ceBottom];
    .
    .
    .
end;

[Lareyne]

Ein weiteres Problem. Ich frage ungern, denn ich weiß dass es nervig ist, wenn Neueinsteiger meist offensichtliche Fragen stellen, deren Antwort man mit wenigen Klicks haben könnte. Dennoch komme ich trotz Suche nicht weiter.

Sobald ich von einem Programm (unabhängig von Vollbildmodus oder nicht) in ein anderes Programm wechsle (Alt+Tab), wird die Kollisionsabfrage ignoriert und mein Männchen fällt (im Hintergrund, hinter dem Programm, zu welchem man gewechselt ist), einfach durch den Boden hindurch. Weiterhin haben andere Personen Probleme, das Programm im Vollbildmodus zu öffnen. Entweder erhalten sie einen grauen Bildschirm oder das Männchen fällt einfach durch den Boden. Den Vollbildmodus aktiviere ich in der FormCreate-Prozedur wie folgt:

Delphi-Quellcode:

  Draw.Options := Draw.Options+[doFullscreen];
  Draw.Display.Width := 1024;
  Draw.Display.Height := 768;
  Draw.Display.BitCount := 32;

Ich sowie alle Testkandidaten haben eine höhere Auflösung als die Angegebene und ausschließlich bei mir funktioniert es (auch wenn ich die exe in dem Ordner aufrufe, dem ich den Personen gegeben hatte).

Die Kollision wird wie folgt abgehandelt: In der DoMove-Prozedur wird die Figur in jede der vier Richtungen bewegt und dann jeweils mit Collision die DoCollision-Prozedur aufgerufen. Falls die neue Position mit einem anderen Sprite kollidiert, wird die getane Bewegung rückgängig gemacht. Dies funktioniert einwandfrei.

Gibt es diesbezüglich einen bekannten Bug oder ein Tutorial (o.ä.), welches dieses Problem abhandelt?

[igel457]

Hallo,

deine Fragen sind nicht nervig (die hatten wir nämlich noch nicht ;-)) - im Gegenteil, ich bin froh wenn jemand meine Bibliothek verwendet und mich dazu etwas fragt.

Das mit dem Männchen liegt an dem PerformanceCounter - sobald die Anwendung minimiert wird, wird OnIdle eine weile nicht ausgeführt, wodurch ein großes "TimeGap" entsteht. Am Besten machst du so etwas wie: (Achtung, ungetestet)

Delphi-Quellcode:

PerformanceCounter.Calculate;
if PerformanceCounter.TimeGap > 200 then
begin 
  PerformanceCounter.Calculate;
end;

Ich werde mich aber darum kümmern, das so etwas später von alleine geschieht.

Das mit dem Vollbildmodus sollte eigentlich funktionieren - da bin ich jetzt auch ein wenig überfragt. Du kannst ja den Vollbildmodus Simulieren, indem du das Fenster einfach Maximierst und Borderstyle auf "bsNone" setzt (Wie im 2. Tutorial beschrieben). Allerdings hat der Vollbildmodus den Vorteil, das das Zeichnen schneller von statten geht.

Hoffe das hat geholfen,
Andreas

[xZise]

Zitat:

Zitat von igel457

Diese Fälle musst du bei der Kollisionsürpfung eben alle abfangen - da kann dir Andorra 2D nicht helfen. In meinen Spielen habe ich das folgendermaßen gemacht:

Delphi-Quellcode:

TCollisionEdge = (ceLeft, ceTop, ceRight, ceBottom);
TCollisionEdges = set of TCollisionEdge;

procedure DoMove(timegap:double);
begin
  CollisionEdges := [];

  Collision;

  if ceTop in CollisionEdges then ...
end;

procedure DoCollision(Sprite:TSprite; var Done:boolean);
begin
  wenn kollision dann
    wenn oben then CollisionEdges := CollisionEdges + [ceTop];
    wenn unten then CollisionEdges := CollisionEdges + [ceBottom];
    .
    .
    .
end;

Wird denn "DoCollision" mit allen Sprites gemacht?
Also wenn wir um das Männchen 8 Felder haben, wird dann DoCollision 9x aufgerufen?

Und wann wird eigentlich DoMove aufgerufen?
Bestimmt, wenn man .Move aufruft, aber was bewirkt das? Bisher habe ich das (glaub ich :oops: ) nur bei Animationen gesehen?

Ich verstehe das irgendwie nicht so richtig :)
Der Spieler bewegt sich (DoMove) wird aufgerufen.
Es werden die CollisionEdges resetet.
Dann wird Collision; aufgerufen.
Und in DoCollision wird geguckt ob Kollision mit dem Sprite.
Aber wie komme ich jetzt auf "oben"? Oder "unten"?

[igel457]

Ich verweise dich auch auf die entsprechenden Tutorials (siehe oben) oder das Buch "3D Programmierung mit Delphi for Kids", darin wird das nämlich erklärt.

[xZise]

Zitat:

Zitat von igel457

Ich verweise dich auch auf die entsprechenden Tutorials (siehe oben)

? Wie weit oben?

Zitat:

Zitat von igel457

oder das Buch "3D Programmierung mit Delphi for Kids", darin wird das nämlich erklärt.

Sry, aber ich habe nicht mit dem Buch gearbeitet.

[igel457]

Beitrag 298 ;-)

Zitat:

Zitat von ich

Die Spriteengine Implementierung orientiert sich an der von DelphiX. Deshalb kannst du diese Informationen aus den Tutorials zu DelphiX entnehmen. Zum Beispiel gibt es auf dieser Seite http://www.micrel.cz/Dx/ unten ein Tutorial (auf Englisch) mit dem Dateinamen "SpritesX.rar". Hier könntest du auch mal schauen: http://www.delphipraxis.net/internal...hlight=delphix

[xZise]

ARGH :)
Kann den Andorra nicht überprüfen, ob es zur einer Kollision kommt, wenn das Sprite bewegt?
Also statt das:

Delphi-Quellcode:

inc(x);
collision;
dec(x);
if coll then inc(x);

einfach nur:

Delphi-Quellcode:

testcollision(Succ(x), y);
if coll then inc(x);

Oder so ähnlich?

[Lareyne]

(Das im Folgenden Geschriebene sind nur meine persönliche Vermutungen *grinst*)

In der Idle-Prozedur, die ja vom Programm ganz oft aufgerufen wird, befindet sich folgende Zeile:

Delphi-Quellcode:

SpriteEngine.Move(PerCounter.TimeGap / 1000);

Wenn man dieser Prozedur nun folgt, gelangt man in AdSprites zum zugehörigen Quelltext:

Delphi-Quellcode:

procedure TSprite.Move(TimeGap: double);
var
  i: Integer;
begin
  if CanDoMoving then
  begin
    for i := 0 to FList.Count - 1 do
    begin
      FList[i].Move(TimeGap);
    end;
    [color=#ff0000]DoMove(TimeGap);[/color]
  end;
end;

Durch die DoMove werden sämtliche von selbst deklarierten Ableitungen von TSprite überschriebene DoMove-Prozeduren aufgerufen. Bei der sich bewegenden Figur hast du ja schließlich "procedure DoMove(TimeGap: double); override;" geschrieben. D.h. unser Programm besucht regelmäßig DoMove. Natürlich darfst du dann in der DoMove nicht "grundlos" das Objekt bewegen, da es sich sonst dauerhaft bewegt.. oder so. Nunja, du kannst ja über einen Tastendruck die Richtung in eine String-Variable schreiben und in der DoMove-Prozedur dann überprüfen, wenn die Bewegung rechts ist, dann laufe rechts.

Delphi-Quellcode:

X := X + (XSpeed * 1.4) * TimeGap;
Collisions;

Durch Collisions werden nun alle Kollisionen abgeklappert, d.h. sollte sich durch die X-Bewegung das Sprite, dass sich bewegt, auf ein anderes Sprite gelegt haben, was a) nicht tot und b) kollidieren kann (CanDoCollisions true), dann wird die DoCollision von dem sich bewegenden Sprite aufgerufen (nicht von dem, das berührt wurde!).

Die DoCollision-Prozedur wird damit eingeleitet, dass zuerst unterschieden wird, um welches Sprite sich es handelt, das mit der neuen Bewegung getroffen wurde.

Delphi-Quellcode:

if Sprite is TDeinAnderesSprite then ...

Also du weißt, dass alles hinter diesem "then" aufgerufen wird, sobald sich deine Figur (oder was auch immer) auf dein TDeinAnderesSprite bewegt. Der Rest ist dann nur noch etwas knobeln. Ich habe z.B. vor der Überprüfung, ob sich die Figur nach rechts bewegt, eine Variable mit der Richtung zurückgelegt. So weiß ich in der DoCollision-Prozedur, ob die Kollision durch die Bewegung nach rechts aufgerufen wurde. Dann kannst du ja das Vorgeschlagene

Delphi-Quellcode:

procedure DoCollision(Sprite:TSprite; var Done:boolean);
begin
  wenn kollision dann
    wenn oben then CollisionEdges := CollisionEdges + [ceTop];
    wenn unten then CollisionEdges := CollisionEdges + [ceBottom];
    .
    .
    .
end;

schreiben.

Falls es kollidierte, kannst du ja in der DoMove Prozedur die Bewegung rückgängig machen.

Delphi-Quellcode:

procedure DoMove;
begin
  Menge CollisionEdges zurücksetzen
  Bewegung nach rechts merken
  Nach Rechts bewegen
  Collisions;
  if Rechts in Menge, dann Bewegung rückgängig
  Bewegung nach links merken
  Nach Links bewegen
  Collisions;
  usw.
end;

procedure DoCollision;
begin
  if Sprite is TAnderesSprite then
    begin
      if Bewegung gerade rechts, dann das Entsprechende der Menge hinzufügen
      usw.
    end;
end;

Stimmt das im großen Ganzen? Funktionieren tuts ^^.