Spiel nachprogrammieren - Gegnerberührung funktioniert nicht

[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

[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? :shock:

[DeddyH]

Klar geht das, man muss nur noch die fehlenden Methoden implementieren und die fehlenden Variablen deklarieren.

[edit]

Zitat:

Zitat von s.h.a.r.k (Beitrag 1180422)

[add]
Wo war die rote Box? :shock:

Das frag ich mich auch. [/edit]

[Jumpy]

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

[Premaider]

Zitat:

Zitat von Sir Rufo (Beitrag 1180421)

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:

Zitat von Jumpy (Beitrag 1180428)

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

Sinn ?

[Jumpy]

Zitat:

Zitat von Premaider (Beitrag 1180435)

Zitat:

Zitat von Jumpy (Beitrag 1180428)

[OT]
Hab das mit der roten Box mal gegoogelt. Scheinbar macht die gerade in Spanien Urlaub. Siehe Foto :-D
[/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:

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.

[Bjoerk]

Ich hab's mir letztens auch mal angeschaut, kapier' das Spiel aber leider nicht. Mir ist auch aufgefallen, daß du von fünf Timer benutzt mit einem Intervall von 1 ms. Der Sinn dieser Timer war mir auch nicht klar.

Auch das könnte weiterhelfen:

http://www.delphi-treff.de/tipps/gra...e-kollidieren/

[Premaider]

Das hat mir sehr geholfen.