AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia [GLScene] Neue Koordinaten nach 'move();' ermitteln
Thema durchsuchen
Ansicht
Themen-Optionen

[GLScene] Neue Koordinaten nach 'move();' ermitteln

Ein Thema von TTF · begonnen am 15. Jul 2013 · letzter Beitrag vom 15. Jul 2013
Antwort Antwort
Benutzerbild von TTF
TTF

Registriert seit: 19. Mai 2013
70 Beiträge
 
Delphi XE4 Enterprise
 
#1

[GLScene] Neue Koordinaten nach 'move();' ermitteln

  Alt 15. Jul 2013, 17:24
Hallo liebe Delphianer
Ich versuche gerade mit GlScene ein Spiel, welches ähnlich wie Gangstar(Vegas, Rio, Miami etc.) zu proggrammieren.

Das Grundprinzip:
Man kann herumlaufen und in diverse Fahrzeuge einsteigen.

Doch mit dem Einsteigen in Fahrzeuge hakt es bei mir. Ein Button, durch welchen man ins Fahrzeug steigen kann, soll erst erscheinen, wenn das Fahrzeug sich in Reichweite des Charakters befindet und verschwinden, wenn man sich weiter davon entfernt.
Ich habe das Ganze über eine if Bedingung gelöst:

Delphi-Quellcode:
  if (Auto1.Position.X < Spieler.Position.X + 5)
  and (Auto1.Position.X > Spieler.Position.X - 5)
  and (Auto1.Position.Y < Spieler.Position.Y + 5)
  and (Auto1.Position.Y > Spieler.Position.Y - 5)
  and (Auto1.Position.Z < Spieler.Position.Z + 5)
  and (Auto1.Position.Z > Spieler.Position.Z - 5)
  then AutotürButton.Visible := True;
Und wenn man sich wieder entfernt:
Delphi-Quellcode:
if (Auto1.Position.X > Spieler.Position.X + 5)
  or (Auto1.Position.X < Spieler.Position.X - 5)
  or (Auto1.Position.Y > Spieler.Position.Y + 5)
  or (Auto1.Position.Y < Spieler.Position.Y - 5)
  or (Auto1.Position.Z > Spieler.Position.Z + 5)
  or (Auto1.Position.Z < Spieler.Position.Z - 5)
  then AutotürButton.Visible := False;
Meine Vermutung des Problems ist(Das Proggramm verhält sich so), dass dies immer die Startkoordinaten sind, dh. nachdem ich das Auto mit der Prozedur 'move()' bewegt habe ändern sich die Koordinaten des Autos nicht und die if Bedingung wird relativ zum Startpunkt ausgeführt.

Steh ich da irgendwie auf dem Schlauch?
Kann mir jemand bei diesem Problem helfen?(Ich bin noch nicht so weit und auch die gesamte Steuerung neu zu schreiben, wenn es eine bessere Lösung gibt)

Ich bin für jegliche Hilfe dankbar

Liebe Grüsse

TTF
Quidquid id est, timeo perfossores machinae computatoriae et dona ferentes...
  Mit Zitat antworten Zitat
MeierZwoo

Registriert seit: 3. Dez 2012
106 Beiträge
 
#2

AW: [GLScene] Neue Koordinaten nach 'move();' ermitteln

  Alt 15. Jul 2013, 17:29
Die Koordinaten einfach ständig mitführen - move bewegt nicht nur das Auto, sondern schreibt auch die Koordinaten fort.
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.009 Beiträge
 
Delphi 12 Athens
 
#3

AW: [GLScene] Neue Koordinaten nach 'move();' ermitteln

  Alt 15. Jul 2013, 17:58
Sind die beiden Objekte Auto und Spieler in der Scene-Struktur auf dem gleichen Level? Sonst funktioniert dein Ansatz nicht.

Du kannst aber auch gleich Spieler.DistanceTo(Auto) nehmen. Das Ganze kann man dann einfach so schreiben:

AutotürButton.Visible := (Spieler.DistanceTo(Auto) < 5);
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von TTF
TTF

Registriert seit: 19. Mai 2013
70 Beiträge
 
Delphi XE4 Enterprise
 
#4

AW: [GLScene] Neue Koordinaten nach 'move();' ermitteln

  Alt 15. Jul 2013, 18:25
Vielen Dank für die schnellen Antworten. Es funktioniert nun gut.
Und ja, ich habe sie auf dem gleichen Level.
Quidquid id est, timeo perfossores machinae computatoriae et dona ferentes...
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:44 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz