Dass wird so nix, wie ich mir das vorstelle.
Irgendwie hatte das damals geklappt, wie gesagt, aber mit DelphiX.
Hatte den Code mal von einer alten Sicherungs-CD rausgekramt, und:
Delphi-Quellcode:
TPlayer = class(TImageSprite)
private
Mode: Integer;
[...]
protected
procedure Collision(Sprite: TSprite; var Done: Boolean); override;
procedure Move(MoveCount: Integer); override;
public
constructor Create(AParent: TSprite ); override;
end;
TPlayerShoot = class(TImageSprite)
private
Player: TPlayer;
protected
procedure Collision(Sprite: TSprite; var Done: Boolean); override;
procedure Move(MoveCount: Integer); override;
public
constructor Create(AParent: TSprite); override;
destructor Destroy; override;
end;
Naja, irgendwie wird das mit meinem Wischwasch nix.
