Simple(?) Kollisionsabfrage in DelphiX

[logaan]

Delphi-Quellcode:

     if (isUp in Form1.DXInput1.States) and (y > 0) then begin
       y := y - 1; moving := true; AnimStart := 1; Direction := 0; end;
     if isDown in Form1.DXInput1.States then begin
       y := y + 1; moving := true; AnimStart := 7; Direction := 6; end;
     if (isLeft in Form1.DXInput1.States) and (x > 0) then begin
       x := x - 1; moving := true; AnimStart := 10; Direction := 9; end;
     if isRight in Form1.DXInput1.States then begin
       x := x + 1; moving := true; AnimStart := 4; Direction := 3; end;