Hallo,
bei Teil 3 im Tutorial dürfte es Probleme geben.
Delphi-Quellcode:
procedure TFigur.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;
Y := Random(Engine.SurfaceRect.Right-96);
end;
Wenn AnimStart bei Speed < 0 gesetzt wird, wird geprüft, wie groß AnimStop ist. Da AnimStop 7 ist und somit kleiner als AnimStop (8) zu dem Zeitpunkt, wird AnimStart auf 7 gesetzt. Dadurch habe ich einen Grafikfehler in einer Animation.
Edit: Das vertauschen bringt auch nichts.
MfG
freak