Hallo,
ich habe folgendes gemacht um ein Männlein zu bewegen.
Delphi-Quellcode:
procedure TPlayer.erzeugen;
begin
Image := ImageList.Items.Find('Player-Left');
Width := Image.Width;
Height := Image.Height;
X := 200;
Y := 200;
Z := 1;
AnimStart := 0;
AnimCount := Image.PatternCount;
AnimLooped := true;
AnimSpeed := 150/1500;
end;
procedure TPlayer.DoMove(MoveCount: Integer);
var fMoved: Boolean;
begin
inherited DoMove(MoveCount);
fMoved := true;
if isLeft in Input.States then
begin
Player.X := Player.X -3;
fMoved := true;
end;
if fMoved then
AnimCount := Image.PatternCount
else
AnimCount := 0;
end;
Wenn ich des nun ausführen will, dann erscheint ein Fehler, indem steht:
Zitat:
Division durch 0
Hat jemand eine Ahnung warum es nicht klappt? Hab alles genau so gemacht wie
es in meinem Buch steht. -.-''