DGL • Thema anzeigen - Kollision im Pong Spiel

Kollision im Pong Spiel

Moderator: DGL-Team

Seite 1 von 1

[ 1 Beitrag ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Raxor

Betreff des Beitrags: Kollision im Pong Spiel

Verfasst: Do Jun 01, 2006 20:48

DGL Member

Registriert: So Mai 28, 2006 03:15
Beiträge: 18

Aloha,
tut mir Leid das ich euch schon wieder frage, ich hoffe es ist nicht wieder so eine dumme wie letztes mal, doch an diesem Problem sitze ich schon länger und verstehe einfach nicht, warum es bei mir nicht funktioniert.

Ich hoffe auch das ihr das Thema Kollisionen nicht schon zu leid seid, aber nun zum eigentlichen Punkt.
Ich wollte eigentlich zuerst einmal ein ganz einfaches Grundprogramm Pong schreiben und dieses später eventuell ein wenig aufpeppen.
Schläger lassen sich bewegen, Ball bewegt sich und prallt an den Rändern ab, nur will er nicht vom Schläger abprallen.

Ich habe es mir so gedacht:
Ich reduziere den Ball auf vier Punkte, ungefähr so:

Code:

 
___1___
_/___\_
2_____3
_\___/_
___4___
 

Die Zahlen markieren dabei die Punkte des Balls.
Jetzt kommt das rechnintensive, wo ich dachte, dass es zwar nicht elegant, aber so gelöst ist, dass es auf jednfall klappt (was ja leider ein Irrtum ist).
Ich lasse eine Schleife durchlaufen, in der ich jeden Punkt des Quadrats mit meinetwegen zuerst den Punkt 1 vergleiche.
Ist dies der Fall, so bekommt die Variable BallBewegung ein neues Vorzeichen (BallBewegung wird jedesmal zu der aktuellen BallPosition addiert, so kommt die Bewegung zustande).
Nun scheitert mein Code leider schon sehr früh, denn laut Debugger kommt es nie vor, dass die Punkte identisch sind.
Die Kollsionsfunktion sieht bei mir so aus:

Code:

 
function KollisionSchlaegerBall
  (SX, SY, SHoehe, SBreite, BallX, BallY, BallRadius : Integer) : integer;  
//SX, SY sind die Koordinaten für den unteren linken Punkt des Viereckes
var Hoehe, Breite : integer;
begin
  result := 0;
  Hoehe := 0;
  repeat
    Breite := 0;
    repeat
{Hier wird überprüft ob die Koordinaten gleich sind
Wenn die rechte oder linkte Kordinaten des Balls mit der des Viereckes übereinstimmt gebe 1 zurück
Wenn die obere oder untere, dann gib 2 zurück
Breite und Hoehe werden immer erhoeht und zu der Position des unteren
linken Punktes des viereckes dazuaddiert
somit sollen (wenn nötig) alle Punkte des Viereckes abgearbeitet werden}
      if ((SX + Breite = BallX) and (SY + Hoehe = BallY + BallRadius)) then  
        result := 1;                                                                                    
      if ((SX + Breite = BallX + BallRadius) and (SY + Hoehe = BallY)) then  
        result := 2;                                                                                    
      if ((SX + Breite = BallX - BallRadius) and (SY + Hoehe = BallY)) then   
        result := 2;                                                                                   
      if ((SX + Breite = BallX) and (SY + Hoehe = BallY - BallRadius)) then
        result := 1;
      inc(Breite);
    until (result = 1) or (result = 2) or (Breite = SBreite);
    inc(Hoehe);
  until (result = 1) or (result = 2) or (Hoehe = SHoehe);
end;
 

Wie gesagt kommt es aber nie dazu, dass eine Zele in der result := 1 oder result := 2 steht bearbeitet wird (weil seltsamer weise die Bedingung also nie erfüllt wird).
Den Schlaeger Zeichne ich ganz normal so:

Code:

procedure ZeichneSchlaeger(x, y, hoehe, breite : integer);
begin
  glBegin(GL_Quads);
    glVertex3f(x, y, 0);
    glVertex3f(x + breite, y, 0);
    glVertex3f(x + breite, y + hoehe, 0);
    glVertex3f(x, y + hoehe, 0);
  glEnd;
end;

Und die "Zeichnung" wird so aufgerufen:

Code:

 Zeichneschlaeger
    (round(Mouse.CursorPos.x * Aufloesungsfaktorx),
     round(600 - (Mouse.CursorPos.y * Aufloesungsfaktory)),
    Schlaegerhoehe1, Schlaegerbreite);

Der Schlaeger nimmt also die Position des Mauszeigers ein.
Da ich im ortho Modus bin und die Aufloesung 800*600 nutze, erhalte ich mit CursorPos nicht die Position die ich will, also Teile ich "Meine" Aufloesung durch die von Windows und erhalte so den Aufloesungsfaktor (getestet, klappt auch wunderbar).

So, ich hoffe ich habe mein Problem nicht zu ausführlich erläutert und hoffe auch, dass ihr mr evtl. weiterhelfen könnt.

Mfg Raxor

Nach oben

Seite 1 von 1

[ 1 Beitrag ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 27 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.