Naja, egal. Hab das nun so gemacht, das vor TGegenstand.DoMove ein TPlayer.DoMove hinkommt. Nun bewegt sich zuerst der Player, schaut ob eine collision vorhanden ist, reagiert dann auch entsprechend und geht dann wieder in den Mittelpunkt. Dann bewegt sich erst TGegenstand oder nicht.
Delphi-Quellcode:
Procedure TPlayer.DoMove(MoveCount: Integer);
Begin
Inherited domove(movecount);
If isup in form1.dxinput1.states Then Begin
y:=y-32;
status:=1;
collision
....
Trotzdem Danke!!!