[Andorra 2D] Auf "Objekt" klicken registrieren

[igel457]

Du Maske ist doch für jede Grafik gleich - also bereche diese bei Starten des Spiels und lege alle Masken in einer Liste mit gleicher Indexierung wie in der ImageList ab.

Edit: Die Funktion die du da nennst, hat doch nichts mit deinem Problem zu tun :gruebel:

[napsterxx]

Keine Ahnung :D
Also ich habe 2 Hühnerbilder.
Index 1 und 2

Jetzt lade ich einfach beide nacheinander in ein Bitmap, mache dann "Bitmap.Mask;" und dann?

[igel457]

Warum eigentlich du "Hühnerbilder" - du willst doch wissen, ob der "Schuss" an dem Baum/Hinderniss vorbei gegangen ist. Also folgende Vorgehensweise:

Delphi-Quellcode:

var
  lst: TList;

procedure LadeSpiel;
var
  i: integer;
  bmp: TBitmap;
begin
  lst := TList.Create;
  for i := 0 to AdImageList.Count - 1 do
  begin
    bmp := TBitmap.Create;
    AdImageList[i].Texture.SaveToGraphic(bmp);
    bmp.Mask(DeineTransparenzFarbe);
    bmp.BitDepth:= pf1Bit; //Eventuell erstmal weglassen
    
    lst.Add(bmp);
  end;
end;

function TrifftObjekt(RelativesX, RelativesY: integer; ImageIndex: integer): boolean;
begin
  result := TBitmap(lst[ImageIndex]).Canvas.Pixels[RelativesX, RelativesY] = clBlack;
end;

procedure MausKlick(X, Y: integer);
begin
  //Erstelle Liste mit allen Objekten an der MausPosition
  //Überprüfe mithilfe des Bildindexes ob dieses Bild wirklich getroffen wurde, wenn 
  //nicht überprüfe das nächste Element in der Liste  
end;

[napsterxx]

Kay, danke.
Aber wieso wird auf clBlac übrprüf? Wird bei der Maske alles andere als die Transparentfare zu schwarz?
RelaivesX und Y sind ja dann die mauspositionen oder?

[igel457]

Schau mal nach TBitmap.Mask in der Delphi-Hilfe.
RelativesX und RelativesY soll die Mauszeigerposition relativ zur oberen, linken Ecke deines (Hindernis)-Bildes sein.

[Namenloser]

Zitat:

Zitat von igel457

Warum eigentlich du "Hühnerbilder" - du willst doch wissen, ob der "Schuss" an dem Baum/Hinderniss vorbei gegangen ist. Also folgende Vorgehensweise:

Delphi-Quellcode:

var
  lst: TList;

procedure LadeSpiel;
var
  i: integer;
  bmp: TBitmap;
begin
  lst := TList.Create;
  for i := 0 to AdImageList.Count - 1 do
  begin
    bmp := TBitmap.Create;
    AdImageList[i].Texture.SaveToGraphic(bmp);
    bmp.Mask(DeineTransparenzFarbe);
    bmp.BitDepth:= pf1Bit; //Eventuell erstmal weglassen
    
    lst.Add(bmp);
  end;
end;

function TrifftObjekt(RelativesX, RelativesY: integer; ImageIndex: integer): boolean;
begin
  result := TBitmap(lst[ImageIndex]).Canvas.Pixels[RelativesX, RelativesY] = clBlack;
end;

procedure MausKlick(X, Y: integer);
begin
  //Erstelle Liste mit allen Objekten an der MausPosition
  //Überprüfe mithilfe des Bildindexes ob dieses Bild wirklich getroffen wurde, wenn 
  //nicht überprüfe das nächste Element in der Liste  
end;

Wozu eine Maske auf die Hintergrundfarbe erstellen und dann auf Schwarz prüfen? Da wäre es doch einfacher und schneller, einach das Sprite auf Hintergrundfarbe zu prüfen.

[napsterxx]

Ich benutze aber nicht die Sprite-Engine

[napsterxx]

Danke euch, habe es endlich geschafft :D
@Igel457 wusste gar nicht das du Admin von Andorra2D bist :thumb: :thumb: :thumb:

Ein Freund von mir meinte, das die Schaffer von Andorra gerne wissen welche Projekte mit Andorra programmiert wurden. Stimmt dsa? Denn ich würde gerne mein neues Projekt dann dir mal zeigen :D

[igel457]

Gerne! Immer her damit :wink:

[napsterxx]

Ich melde mich dann bei dir :D