Delphi-Quellcode:
procedure TEnemy.DoMove(MoveCount: Integer);
var
Direction: Cardinal; // 0: left 1: right;
begin
inherited DoMove(MoveCount);
Direction := Random(5);
if (Direction mod 2 = 0) then
X := X - 10
else
X := X + 7;
Y := Y + 5;
if (Y = Form1.DXDraw1.Height) or ((X < 0) or (X > Form1.DXDraw1.Width)) then
Dead;
end;
Das ist meine Routine, um einen Sprit zufällig von oben nach unten zu bewegen. Allerdings zappelt der eigentlich mehr hin und her. Wie bekomme ich es jetzt hin, dass er "fließend" bewegt. Also auch mal ein paar mehr Eimheitem nach links und rechts macht?