also
Delphi-Quellcode:
procedure Tcroco.SetLine;
begin
//Bewegt die Figur in eine neue Ebene
XSpeed := -XSpeed;
if XSpeed > 0 then
begin
AnimStart := 0;
AnimStop := 7;
X := -96;
end
else
begin
AnimStart := 8;
AnimStop := 15;
X := Engine.SurfaceRect.Right+96;
end;
//hier
[B] Y := Random(Engine.SurfaceRect.Right-790);[/B]
end;
immer wenn er in die letzte Zeile kommt, stürzt das programm ab. Wenn ich diese Zeile ausklammere ist es die oben drüber und wenn ich diese auch ausklammere tut sich gar nix.