Spiel nachprogrammieren - Gegnerberührung funktioniert nicht

**Premaider**

Ohne Fehlerbeschreibung weiß ich nichtmal wonach ich suchen soll.

Tipp: Es haben hier schon ein/zwei Andere versucht dieses Spiel nachzuprogrammieren ... da darf man gerne abgucken, wie die es gemacht haben und auch das lesen was dort geantwortet wurde.

Naja möchte es auf meine Weise machen. Der Fehler ist, dass es nicht funktioniert..

Achso, ja dann schau doch mal bei der Zeile da, da rechts musst du was anderes schreiben, dann sollte es funktionieren.

Hast du schon mal versucht, das mit der Kollision auf einem Blatt Papier aufzumalen und dann überlegt, wie man rechnerisch die Kollision erkennen kann?
Nein -> warum fängst du an zu programmieren, wenn du nicht weißt was?
Ja -> wo kommst du nicht weiter? Lad mal die Zeichnung hoch und die Berechnung, dann schauen wir mal

ja habe ich. Für Spieler und Ziel funktionierts ja auch. Nur für die Gegner krieg ichs nicht hin, da es ja theoretisch unendlich viele sein können und dadurch alles womit ich das Berechne ein dynamischer Array sein muss, oder nicht ? Also sonst war mein Prinzip so:
Ankatete:= Ziel.left - Spieler.left
Gegenkatete:= Ziel.top - Spieler.top
HypotenuseHoch2:=(Ankatete*Ankatete)+(Gegenkatete* Gegenkatete)
Hypotenuse:=sqrt(HypotenuseHoch2)

sqrt mit Hilfe der Math-unit

Zitat von s.h.a.r.k:

Um was genau gehts bei dem Spiel eigentlich? Wenn ich einen Gegner berühre kommt ein weiterer hinzu? Ist das der Trick des Spiels? Sorry, aber von dem Spiel habe ich wahrlich noch nie was gehört

Man geht mit seinem Spieler zum ziel möglichst ohne von den Gegnern getroffen zu werden. Wenn man das Ziel erreicht hat spawnt es woanders/"ein neues"

**Sir Rufo**

Nur mal so für Spaß eine vereinfachte Betrachtungsweise:

zusammenfalten · markieren

Delphi-Quellcode:

			type

  TFigur = class

    Top, Left : Integer;

    function AbstandZu( aFigur : TFigur ) : Extended;

  end;

  TSpieler = class( TFigur )

  end;

  TZiel = class( TFigur )

  end;

  TGegner = class( TFigur )

  end;

function TFigur.AbstandZu( aFigur : TFigur ) : Extended;

begin

  Result := Sqrt( Sqr( Self.Left - aFigur.Left ) + Sqr( Self.Top - aFigur.Top ) );

end;

Und im Code dann:

zusammenfalten · markieren

Delphi-Quellcode:

			var

  Spieler : TSpieler;

  Ziele : TList;

  Gegner : TList;

begin

  // Gegner berührt?

  for idx := 0 to Pred( Gegner.Count ) do

    if Spieler.AbstandZu( TFigur( Gegner[idx] ) ) < 10 then // 10 ist jetzt einfach nur als Beispiel genommen

      GegnerKollision( TGegner( Gegner[idx] ) ); // Behandlung der Kollision mit einem Gegner

  // Ziel berührt?

  for idx := 0 to Pred( Ziele.Count ) do

    if Spieler.AbstandZu( TFigur( Ziele[idx] ) ) < 10 then // 10 ist jetzt einfach nur als Beispiel genommen

      ZielEingefangen( TZiel( Ziele[idx] ) ); // Behandlung der Kollision mit einem Ziel

end;

BTW: Für die Kollisionsbehandlung würde sich hier das Visitor-Pattern anbieten, das habe ich aber bewusst herausgelassen um nicht mehr zu verwirren. Obschon es sehr viel Charme hätte und den Code insgesamt nochmals verkürzen würde.

**Premaider**

Zitat von Sir Rufo:

Nur mal so für Spaß eine vereinfachte Betrachtungsweise:

zusammenfalten · markieren

Delphi-Quellcode:

			type

  TFigur = class

    Top, Left : Integer;

    function AbstandZu( aFigur : TFigur ) : Extended;

  end;

  TSpieler = class( TFigur )

  end;

  TZiel = class( TFigur )

  end;

  TGegner = class( TFigur )

  end;

function TFigur.AbstandZu( aFigur : TFigur ) : Extended;

begin

  Result := Sqrt( Sqr( Self.Left - aFigur.Left ) + Sqr( Self.Top - aFigur.Top ) );

end;

Und im Code dann:

zusammenfalten · markieren

Delphi-Quellcode:

			var

  Spieler : TSpieler;

  Ziele : TList;

  Gegner : TList;

begin

  // Gegner berührt?

  for idx := 0 to Pred( Gegner.Count ) do

    if Spieler.AbstandZu( TFigur( Gegner[idx] ) ) < 10 then // 10 ist jetzt einfach nur als Beispiel genommen

      GegnerKollision( TGegner( Gegner[idx] ) ); // Behandlung der Kollision mit einem Gegner

  // Ziel berührt?

  for idx := 0 to Pred( Ziele.Count ) do

    if Spieler.AbstandZu( TFigur( Ziele[idx] ) ) < 10 then // 10 ist jetzt einfach nur als Beispiel genommen

      ZielEingefangen( TZiel( Ziele[idx] ) ); // Behandlung der Kollision mit einem Ziel

end;

BTW: Für die Kollisionsbehandlung würde sich hier das Visitor-Pattern anbieten, das habe ich aber bewusst herausgelassen um nicht mehr zu verwirren. Obschon es sehr viel Charme hätte und den Code insgesamt nochmals verkürzen würde.

Wenn ich deinen Code einbaue bekomme ich ein paar Fehlermeldungen:

markieren

Delphi-Quellcode:

			[Fehler] Unit1.pas(51): Bezeichner redefiniert: 'TFigur.AbstandZu'

[Fehler] Unit1.pas(52): Undefinierter Bezeichner: 'Result'

[Fehler] Unit1.pas(52): Undefinierter Bezeichner: 'Self'

[Fehler] Unit1.pas(52): Undefinierter Bezeichner: 'aFigur'

[Fehler] Unit1.pas(52): 'END' erwartet, aber ')' gefunden

[Fehler] Unit1.pas(100): Undefinierter Bezeichner: 'idx'

[Fehler] Unit1.pas(102): Undefinierter Bezeichner: 'GegnerKollision'

[Fehler] Unit1.pas(107): Undefinierter Bezeichner: 'ZielEingefangen'

[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Geht das denn so überhaupt für Delphi7 ?

**Sir Rufo**

Das war eine vereinfachte Betrachtungsweise, wo es nur darum ging, wie man die Kollisionsüberwachung der Figuren vereinfachen kann. Du musst das Konzept in deine Klassen einbauen.

Was damit gezeigt werden sollte, wie man mit Vererbung den Code einfacher hält.

CopyPaste funktioniert da nicht

**Premaider**

Zitat von Sir Rufo:

Das war eine vereinfachte Betrachtungsweise, wo es nur darum ging, wie man die Kollisionsüberwachung der Figuren vereinfachen kann. Du musst das Konzept in deine Klassen einbauen.

Was damit gezeigt werden sollte, wie man mit Vererbung den Code einfacher hält.

CopyPaste funktioniert da nicht

Ach so hast du das gemeint xDD
Ja dann ist das klar ^^
Ich werds versuchen wenn ich wieder von der Schule da bin, muss jetzt wieder weg

Zitat von Jumpy:

[OT]
Hab das mit der roten Box mal gegoogelt. Scheinbar macht die gerade in Spanien Urlaub. Siehe Foto

[/OT]

Sinn ?

**Jumpy**

Zitat von Premaider:

Zitat von Jumpy:

[OT]
Hab das mit der roten Box mal gegoogelt. Scheinbar macht die gerade in Spanien Urlaub. Siehe Foto

[/OT]

Sinn ?

Un-Sinn
Sollte ein Insider-Witz bzgl. der Bemerkungen zur roten Box in den vorhergegangenen Posts sein. Daher auch mit Pseudo-Off-Topic-Tags gekennzeichnet. Sorry, wenn ich dich damit irritiert haben sollte.
Nur falls nicht bekannt: Die rote (Warn-)Box sollte immer dann kommen, wenn du einen Post abschickst aber es bereits neue Posts gab, während du noch geschrieben hast.

**Premaider**

Habe mich jetzt erstmal an die Bewegung und das abprallen der Gegner gesetzt:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Timer2Timer(Sender: TObject);

var

m,l,k,links,rechts,oben,unten,Geschwindigkeit:Integer;

begin

    //Gegner bewegen

    If length(Gegner)>=1 Then

      begin

        For l:= 0 to length(gegner)-1 do

          begin

            If Gegner[l].width > Gegner[l].height Then

              begin

                //Wenn Gegner waagrecht ist

                Gegner[l].Left:=Gegner[l].left + Gegner[l].speed;

                for k := 0 to high(Gegner) do

                  begin

                    links := Gegner[k].left;

                      if links <= 0 then

                        begin

                          Gegner[k].speed := Gegner[k].speed * -1;

                        end;

                      if Links + Gegner[k].Width >= Form1.clientwidth + Gegner[k].left then

                        begin

                         Gegner[k].speed := Gegner[k].speed * -1;

                        end;

                  end;

              end;

            If Gegner[l].width < Gegner[l].height Then

              begin

             //Wenn Gegner senkrecht ist

                Gegner[l].top:=Gegner[l].top + Gegner[l].speed;

                for m := 0 to high(Gegner) do

                  begin

                    oben := Gegner[m].top;

                      if oben <= 0 then

                        begin

                          Gegner[m].speed := Gegner[m].speed * -1;

                        end;

                      if oben + Gegner[m].Height >= Form1.clientheight then

                        begin

                          Gegner[m].speed := Gegner[m].speed * -1;

                        end;

                  end;

              end;

        end;

   end;

end;

Leider funktioniert das nicht ganz. Die Gegner prallen manchmal ab und manchmal nicht und ich
verstehe nicht warum. Kann mir jemand sagen, was ich falsch mache ?
Ich kann euch auch nochmal das Projekt hochladen, damit ihr es euch mal anschauen könnt.

**s.h.a.r.k**

Ohoh... Lege dir doch bitte erst mal die Grundlagen zu. Ich glaube, du hast da einige Defizite udn es ist schwer dir dann richtig zu helfen.

Der Code von Sir Rufo funktioniert und das auch mit Delphi 7. Die Typdeklarationen kommen in den Type-Deklaration über den implementation-Teil. Und der Code gehört in den implementation-Teil, also darunter.

Aber nur Copy&Paste ist halt nicht, es gehört auch dazu den Code zu verstehen, denn du musst schon noch ein wenig drum herum programmieren, sodass der Code von Sir Rufo komplett funktioniert.

[add]
Wo war die rote Box?