Helikopter-spiel

[Tim1993]

und wie macht man das?... ich hab schon einige versuche mit einer if-anweisung -wo ich den bereich angegeben habe- gemacht funktioniert aber leider nicht....

p.s.: Ich bin anfänger...

[mquadrat]

Na dann zeig doch mal dein If.

Alternativ ist in dem verlinkten Thread sogar ein Beispiel mit Images drin...

[Tim1993]

Zitat von mquadrat:

Na dann zeig doch mal dein If.

Alternativ ist in dem verlinkten Thread sogar ein Beispiel mit Images drin...

Delphi-Quellcode:

function Treffer (hindernishöhe, hindernisweite,hubschrauberweite,
                  hubschrauberhöhe :integer):boolean;
var i1,i2 : integer;
    getroffen1,getroffen2,explosion : boolean;
Begin
  getroffen1 := false;
  getroffen2 := false;
  explosion := false;
  for I1 := -40 to 40 do
      Begin
         if ( (hindernishöhe + -40 >=  hubschrauberhöhe - 40) and
              (hindernishöhe + +40 <=  hubschrauberhöhe + 40) ) then
                Begin
                  getroffen1 := true;
                End else
                Begin
                  getroffen1 := false;
                End;
      End;
  for I2 := 0 to 46 do
      Begin
         if ( (hindernisweite + 0 >=  0 ) and
              (hindernisweite + 46 <=  hubschrauberweite + 46) or
              (hindernisweite= 46) ) then
                Begin
                  getroffen2 := true ;
                End else
                Begin
                  getroffen2 := false;
                End;
      End;
  If ( (getroffen1 = true) and (getroffen2 = true) ) then
    bEGIN
      explosion := true;
    end;
  result := explosion;
End;

[Deep-Sea]

Benutze doch bitte die [DELPHI]-Tags für deinen Code, danke.

Und wo nutzt du da bitte IntersectRect? ...

[Tim1993]

Was ist den IntersectRect bitte?

[Deep-Sea]

Hast du den von mir in Post #4 verlinkten Thread überhaupt angeguckt, oder einfach mein komplettes Post ignoriert?

[hans ditter]

Wow, also, dass ist schon ziemlich heftig...
Erstmal: Wenn du einen boolean-Ausdruck schon auf false gesetzt hast und es dabei belassen willst, dann bruachst du den nicht nochmal false setzten:

Delphi-Quellcode:

getroffen1 := false;
{...}
End else
Begin
   getroffen1 := false;//dass kannst du weglassen!!
End;

Dann versteh ich auch nicht, wie du auf deine If-Abfrage kommst. Wenn du ein Hinderniss von der Höhe h hast und dein Helikopter, der in der Höhe H fliegt, dann kannst du doch einfach so abfragen, ob di kollidiert sind(ungeprüft):

Delphi-Quellcode:

if (H = h) OR
   (H < h) then
explosion:=true;

Du musst doch einfach nur abfragen, ob die Flughöhe gleich oder niedriger als die Gesamthöhe des Hindernisses ist.
Wenn du dann noch auf links und rechts dran vorbeifliegen prüfen willst, dann musst du da eben noch die Koordinaten des Hindernisses mit in die If-Abfrage einbauen.
Wird dann ein wenig Schreibarbeit (vor allem musst du auf die richtige Verwendung der Klammern achten), aber dass ist auch nicht so schwer. Musst dir nur überlegen, wie das bei dir zusammenhängt.

@DeepSea: Ja, scheint so... und: ich hab ja erst nicht geglaubt, dass der andere Thread wirklich erst ein paar Min alt ist, ist ja aber wirklich so...

LG, hans ditter

[mquadrat]

Was machen denn die zwei for-Schleifen da drin?! Du greifst doch nirgendwo auf den Index zu.

Ich nehme mal an, die Parameter stellen die x und y Werte der Mittelpunkte der Objekte dar und die Objekte haben jeweils 92x80 Pixel?

Also ich würde das wirklich in TRect umwandeln und IntersectRect verwenden (siehe verlinkter Thread!!!!). Wird das einfachste sein.

[Tim1993]

doch den Thread hab ich mir angesehen aber ich ich habs nicht verstanden...
ich ken IntersectRect und TRect nicht

[DeddyH]

Zitat von Tim1993:

doch den Thread hab ich mir angesehen aber ich ich habs nicht verstanden...
ich ken IntersectRect und TRect nicht

Und was hält Dich davon ab, in dem Fall einfach mal die Hilfe zu bemühen und nachzulesen? Falls Deine lokale Hilfe nicht funktionieren sollte, gibt es auch noch die DP-Referenz als Informationsquelle.