[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 :-D 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.