Zitat:
Delphi-Quellcode:
case random(4)
of
0: inc(JagdX,10);
1:
dec(JagdX,10);
2: inc(JagdY,10);
3:
dec(JagdY,10);
end;
Statt jedes Mal eine andere Richtung zu nehmen, zum Großteil die Richtung belassen.
Da gibt es Millionen Varianten es zu lösen.
z.B. die neue Richtung jedesmal aus der Nähe zum Rand in Laufrichtung, der Richtung des Gegners/Spielers und zu kleinem Teil aus Zufall bestimmen, wobei die Wahrscheinlichkeit in Richtung des letzen Schrittes weiter zu laufen nur größer sein muß, als für die anderen Richtungen.
Also erstmal Wahrscheinlichkeiten für jede Richtung berechnen und dann darüber per Zufall die Richtung auswählen.