Kollisionstest mit GLScene schlägt fehl...

[turboPASCAL]

Kann man alles bekommen, sonst mag ich nicht debuggen.

[Teekeks]

das ist bis jetzt alles. auser der ausfürgaren datei und die war etwas zu gruß zum mitschicken.
ich sagte ja das es ein (noch sehr) kleines Spiel ist/wird.

[turboPASCAL]

Hätte gern die *.dpr und die Form dazu, die Bilder's brauch ich nicht.
Ich kann sonst nicht den Debugger anwerfen denn ich werde nicht di efehlenden Teile dazubauen.
Zur Not auch per PN.

[Teekeks]

Ich sagte bereits, das ist ein Programm welches mit Lazarus geschrieben wurde und somit ist die datei die du suchst die mit .lpr ...

[turboPASCAL]

Entschuldige, ich hatte nur die Unit1.pas im Explorer stehen. Warum auch immer... alle Dateien sind da und es kann los gehen.

[Teekeks]

ok, findest du irgentetwas?

[turboPASCAL]

Japp.

a)

Code:

procedure TForm1.FormCreate(Sender: TObject);
var
  col, col2: tglbcollision;
begin
  col := tglbcollision.Create(GLCube1.Behaviours);
  col.BoundingMode := cbmCube;
  col.Manager := CollisionManager1;
  col.Name := 'Collision';
  GLCube1.Behaviours.Add(col);

  col2 := tglbcollision.Create(GLCube2.Behaviours);
  col2.BoundingMode := cbmCube;
  col2.Manager := CollisionManager1;
  col2.Name := 'Collision';
  [b]GLCube2[/b].Behaviours.Add(col2);

b)
Im GLSceneEditor bei Cube2 im Behaviours die Collision rausschmeissen.

c)
Die Timer kannst du weg lassen, mach es mit dem Cadencer.

[Teekeks]

Danke. jetzt fukt alles ^^
Ich bin nur bis gerade eben nicht zum Proggen gekommen...

gruß Teekeks