Hallo,
danke, aber ich hab nóch ein paar Fragen:
1.Wo kommt der Code zum Einsatz?
Delphi-Quellcode:
procedure TMG.DoMove(MoveCount: Integer);
begin
inherited;
case Car.Ausrichtung of
auLeft: X := X - 3;
auRight: X := X + 3;
auUp: Y := Y - 3;
auDown: Y := Y + 3;
end;
if (X > Form1.DXDraw1.Width) or (X < 0) then
Dead;
if (Y > Form1.DXDraw1.Height) or (Y < 0) then
Dead;
end;
2. Und der?
procedure TCar.Schiessen;
begin
Dec(FMunitionMG);
with TMG.Create(engine) do
begin
x := self.X;
y := self.Y;
end;
end;
[/delphi]
3. Bei mir war das Problem doch, dass ich den schuss nur einmal erzeugen konnte, solabge der alte noch existiert. Wie hast du das konkret umgangen?
Gruß
Spurius