Ich weis ja nich, wie dein Spielfeld aussieht, aber du nimmst einfach Zufallszahlen:
1.) timetomove (für Zeit, die es in eine Richtung läuft)
2.) rnd_richtung := Random (100);
Delphi-Quellcode:
if (rnd_richtung <= 25) then begin
X_Abzug := 10; Y_Abzug := 0; (läuft nach rechts)
end;
if (rnd_richtung <= 50) and (rnd_richtung > 25) then begin
X_Abzug := -10; Y_Abzug := 0; (läuft nach links)
end;
usw.
Du kannst ja per Timer, die verstrichene Zeit messen und die mit timetomove abgleichen. Wenn gleich neue Zeit und neue Richtung ermitteln.
devnull
