So, ich versuche mich gerade an DelphiX und wollte mal den WeltraumShooter nachprogramieren der bei den Samples dabei ist. Das bewegen eines Sprites geht schon wunderbar. Schiessen kann ich auch, allerdings habe ich da ein Problem. Ich will die sichtbaren Sprites für den Schuss auf 8 begrenzen. In der DoMove Prozedure von meinem Raumschiff-Sprite steht das:
Delphi-Quellcode:
if isButton1 in Form1.DXInput1.States then
begin
if (FShootCount < 9) and (FCount-FOldShootTime>=50) then
begin
Inc(FShootCount);
with TSSGunFire.Create(Engine) do
begin
FStarShip := Self;
X := Self.X + Self.Width div 2;
Y := Self.Y-Self.Height;
end;
FOldShootTime := FCount;
end;
end;
FCount := FCount+MoveCount;
Ein Schuss wird also nur ausgelöst wenn weniger als 9 Schüsse vorhanden sind.
Die DoMove Prozedur vom Schuss-Sprite sieht so aus:
Delphi-Quellcode:
procedure TSSGunFire.DoMove(MoveCount: Integer);
begin
inherited DoMove(MoveCount);
Y := Y - 15*MoveCount;
if Y <= 0 then
Dead;
Form1.Caption := FloatToStr(Y);
end;
Und Destroy von Schuss-Sprite:
Delphi-Quellcode:
destructor TSSGunFire.Destroy;
begin
Dec(FStarShip.FShootCount);
inherited Destroy;
end;
Leider wird der Destructor nicht aufgerufen, obwohl ich doch Dead aufrufe, wenn der Sprite oben rausgeht. Ich habe auch eigentlich alles so gemacht, wie in dem Demo. Ich kann keinen Unterschied feststellen. Ja, weiß da wer weiter?