screen scrolling (jump n run)

[Namenloser]

Für ein einfaches 2D-Spiel muss man nicht unbedingt gleich eine Spiele-Engine auspacken. Für den Anfang reicht auch Canvas. Wenn es flackert, baut man einfach einen Offscreen-Buffer ein.

Im Grunde hat himitsu das Konzept schon erklärt: Statt auf grafische Komponenten zu setzen, die du zur Designzeit in das Formular ziehst, übernimm das Zeichnen selbst.

Objektorientiert kann man das prima umsetzen. Hier ein grobes Gerüst:

Delphi-Quellcode:

type
  TSprite = class
    FPosition: TPoint;
    FBitmap: TBitmap;
    procedure Paint(Canvas: TCanvas; Offset: TPoint);
  end;

var
  Sprites: array of TSprite;
  Camera: TPoint;

implementation

procedure TSprite.Paint(Canvas: TCanvas; Offset: TPoint);
var
  ScreenPosition: TPoint;
begin
  ScreenPosition.X := FPosition.X - Offset.X;
  ScreenPosition.Y := FPosition.Y - Offset.Y;

  Canvas.Draw(FBitmap, ScreenPosition.X, ScreenPosition.Y);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLength(Sprites, 2);
  with Sprites[0] do
  begin
    FPosition := Point(0, 0);
    FBitmap := TBitmap.Create;
    FBitmap.LoadFromFile('player.bmp');
  end;
  with Sprites[1] do
  begin
    FPosition := Point(20, 0);
    FBitmap := TBitmap.Create;
    FBitmap.LoadFromFile('enemy.bmp');
  end;
end;

procedure TForm1.Timer1Time(Sender: TObject);
var
  i: integer;
begin
  for i := low(Sprites) to high(Sprites) do
    Sprites[i].Paint(Canvas, Camera);
end;

Wenn die Kamera nach rechts scrollen soll, dann erhöhst du einfach Camera.X.

Das tolle an obigem Ansatz ist, dass man dank Polymorphie auch die komplette Spiellogik selbst wunderbar in die Sprites stecken kann. Das geht z.B. indem man eine abstrakte Basis-Klasse einführt und dann für verschiedene Objekttypen konkrete Klassen ableitet:

Delphi-Quellcode:

type
  // ist jetzt abstract
  TSprite = class
    procedure Paint(Canvas: TCanvas; Offset: TPoint); virtual; abstract;
    procedure Move; virtual; abstract;
  end;

  TPlayer = class(TSprite)
    { hier Variablen für Position, Bitmap, usw... }

    procedure Paint(Canvas: TCanvas; Offset: TPoint); override;
    procedure Move; override;
  end;

  TEnemy = class(TSprite)
    { hier Variablen für Position, Bitmap, usw... }

    procedure Paint(Canvas: TCanvas; Offset: TPoint); override;
    procedure Move; override;
  end;


implementation


procedure TPlayer.Paint(Canvas: TCanvas; Offset: TPoint);
begin
  { hier Spieler zeichnen }
end;

procedure TPlayer.Move;
begin
  { hier Spieler ein Stück bewegen }
end;

procedure TEnemy.Paint(Canvas: TCanvas; Offset: TPoint);
begin
  { hier Gegner zeichnen }
end;

procedure TEnemy.Move;
begin
  { hier Gegner ein Stück bewegen (KI) }
end;

Einen Leveleditor musst du dir dann allerdings selbst programmieren, wenn du deine Levels grafisch designen willst... ist aber machbar

[superjojo]

Vielen Dank erstmal für die vielen , teils aufwändigen Antworten!

Ich habe mich mal für die billige Variante mit der scrollbox entschieden (da mir einen Einarbeitung in andorra2d nach kurzem Probieren zu schwierig war)

Das läuft auch einigermaßen ruckelfrei mit der scrollbox, nur wie kann ich die Position der scrollbox abfragen?

scrollbox1.VertScrollBar.Position liefert immer 0.

Der Zweck des Ganzen ist, dass der Character nicht links und rechts aus dem Level rauslaufen kann, da die scrollbox ja automatisch weiterscrollt, auch wenn keine objekte mehr kommen.

[himitsu]

Du hast doch sowieso eine Kollisionskontrolle eingebaut ... einfach ringsum um das Level eine Mauer bauen.

Oder du merkst dir in einer Variable wie groß das Level ist ... du weißt jwa, beim Befüllen wo die letzen Elemente im Level liegen.
Man kann auch alle Controls in der ScrollBox durchlaufen und sich die kleinsten und größten Positionen auslesen.