da ich dx jetzt nicht habe +
was mir auffällt
Beim onmousedown
Delphi-Quellcode:
//for k:=0 to 1 do begin
if (X>=Gegenstand[k].X) and (X<=Gegenstand[k].X+32) and (Y>=Gegenstand[k].Y) and (Y<=Gegenstand[k].Y+32)
then Gegenstand[k].hant:=true;
//end;
schreibs mal so wie ich ohne forschleife und probiers dann
falls es das nicht ist dann schreib
bei
Delphi-Quellcode:
for i:=0 to 1 do begin
if (Sack.py[k]=Gegenstand[i].Y-Sack.Y)and(Sack.py[k]=Gegenstand[i].Y-Sack.Y) and
(Sack.px[k]=Gegenstand[i].x-Sack.x)and(Sack.px[k]=Gegenstand[i].x-Sack.x)
then Sack.platz[k]:=false;
end;
auch nur
Delphi-Quellcode:
if (Sack.py[k]=Gegenstand[i].Y-Sack.Y)and(Sack.py[k]=Gegenstand[i].Y-Sack.Y) and
(Sack.px[k]=Gegenstand[i].x-Sack.x)and(Sack.px[k]=Gegenstand[i].x-Sack.x)
then Sack.platz[k]:=false;
und sonst beides
