Hallo, ich bins mal wieder!
Ich habe ein Problem mit einer Kollisionsabfrage.
Ich möchte das dem Spieler nur ein einziges Leben abgezogen wird wenn er auf einen feind trifft,
da die abfrage allerdings im Timer stattfindet verliert er sofort alle - und das ist schade.
Ich setze bei einer kollision feind-spieler feind.aktiv auf false, und kollidiert wird nur, wenn der feind aktiv ist... irgendwie scheint das allerdings nicht zu klappen. Wär schön wenn mir da jemand weiterhelfen kann.
Hier seht ihr die Typendeklarationen:
Delphi-Quellcode:
type tding = class(Tobject)
x,y,v:integer;
bild:integer;
leben:byte;
bewegungsart:byte;
aktiv:boolean;
rec:trect;
procedure reczuweisen;
procedure move(f:integer);
constructor create(dx,dy,dv,dbild,dleben,dbewegungsart:integer; daktiv:boolean=true);
procedure show;virtual;
end;
type tschuss = class(Tding)
winkel:smallint;
procedure show;override;
end;
type tfeind = class(Tding)
bewegungsart,schiesst,extra:byte;
schuss:array[0..20] of tschuss;
letzterschuss:cardinal;
procedure schiessen;
procedure show;override;
procedure setzen(fx,fy,fv,fbewegung,fbild,fextra,fschiesst:integer; faktiv:boolean);
end;
type tspieler = class(Tding)
schuss:array[0..20] of tschuss;
letzterschuss:cardinal;
procedure schiessen;
procedure show;override;
end;
Und hier der fragliche Code:
Delphi-Quellcode:
function IsCollision (Rec1, Rec2 : Trect): Boolean;
begin
Result := (Rec1.Right > Rec2.Left) and
(Rec2.Right > Rec1.Left) and
(Rec1.Bottom > Rec2.Top ) and
(Rec2.Bottom > Rec1.Top );
end;
procedure Tspiel.DXTimer1Timer(Sender: TObject; LagCount: Integer);
var i,j:integer;
begin
// [...]
//Kollisionsabfragen
//Spielerschüsse
for i:=0 to high(feind) do
if feind[i].aktiv then
for j:=0 to high(spieler.schuss) do
if spieler.schuss[j].aktiv then
if iscollision(feind[i].rec,spieler.schuss[j].rec) then begin
feind[i].aktiv:=false;
spieler.schuss[j].aktiv:=false;
end;
//Spieler - Gegner
for i:=0 to high(feind) do
if feind[i].aktiv then
if spieler.aktiv and iscollision(feind[i].rec,spieler.rec) then begin
showmessage('DU bist tot');
spieler.aktiv:=false;
end;
end;
Projekt anhängen mach ich wenn es hier sonst nicht weitergeht, weil wahrscheinlich nicht jeder die delphix komponenten hat.
Thx im Vorraus!
