[Andorra] ImageSprite ID zuweisen

[XXcD]

Hallo,
ich versuche gerade in meinem Spiel jedem ImageSprite eine eindeutige ID zu zuweisen.
Wie kann ich soetwas am besten verwirklichen?

Beispiel:
Bei einem Onlinespiel stirbt ein anderer Charakter und den muss ich per ID in meinem Client finden.

Wenn das ein wenig Unklar ist, kann ich das auch gerne nochmal überarbeiten.

[Neutral General]

Hi,

Kannst du nicht einfach von TImageSprite ableiten und der Klasse eine Property ID geben.
Wenn du dann die ID vom Server bekommst gehst du einfach nur die Sprite-Liste der SpriteEngine durch.

[XXcD]

Hmmm,
1. Wie geht das Also mit der Property ID zuweisen?
2. Ist das nicht ein wenig schlecht für die Performance, falls einmal(was ich nicht glaube) so etwa 1000 Leute auf dem Server spielen.


Edit:
Also meine Klasse sieht bisher so aus:

Delphi-Quellcode:

  TTexture = class(TImageSpriteEx)
      private

      public
        procedure DoDraw;override;
  end;

[Neutral General]

Hi,

Delphi-Quellcode:

type
TTexture = class(TImageSpriteEx)
      private
        FID: Integer;
      public
        procedure DoDraw;override;
        property ID: Integer read FID write FID; // Oder statt FID : Getter/Setter Methoden
  end;

Ich empfehle dir mal dich mit OOP zu beschäftigen

zu 2)

Naja so muss mans aber im Prinzip machen. Man kann natürlich noch die Liste (oder eine eigene) sortieren bzw irgendwelche Suchalgorithmen anwenden um das ganze zu beschleunigen.

[XXcD]

Ok ich werde das jetzt mal ausprobierenm
aber eine Frage habe ich noch zum wiederfinden.

Ist es so richtig?

Delphi-Quellcode:

...
var
  findsprite: TSprite;
begin
 for i:=0 to AdSpriteEngine.Items.Count - 1 do
  begin
    if AdSpriteEngine.Items[i] is TTexture then
    begin
       if TTexture.ID=2 then
       begin
       findsprite:=AdSpriteEngine.Items[i];
       end;
    end;
  end;
end;

Ist das so ungefähr richtig?

[Neutral General]

Ja sieht richtig aus

Damit wird das Sprite mit der ID 2 gefunden und in findsprite gespeichert.

[Die Muhkuh]

Delphi-Quellcode:

...
var
  findsprite: TSprite;
begin
 for i:=0 to AdSpriteEngine.Items.Count - 1 do
  begin
    if AdSpriteEngine.Items[i] is TTexture then
    begin
       if TTexture.ID=2 then
       begin
         findsprite:=AdSpriteEngine.Items[i];
         Break;  // Das hier nicht vergessen
       end;
    end;
  end;
end;

Ich würde noch ein Break einfügen, damit die Schleife abbricht, nach dem das Sprite gefunden wurde.