Hallo Yheeky!
Ist es für Dich egal an welcher Stelle im Spielfeld die Suche beginnt?
Wenn die Suche immer oben links beginnen darf, dann würde ich es so machen:
Delphi-Quellcode:
var Field:
array[1..10,1..10]
of byte;
Changed: byte;
(...)
Changed := 5;
for x := 1
to 10
do
begin
for y := 1
to 10
do
begin
if Field[x,y] <> 1
then
begin
Field[x,y] := 2;
dec(Changed);
if Changed = 0
then Break;
end;
end;
end;
Andernfalls zufällige Werte für x und y wählen:
Changed := 5;
x := random(9);
y := random(9);
Repeat
if Field[x+1,y+1] <> 1
then
begin
Field[x,y] := 2;
dec(Changed);
end;
until Changed = 0;
Oder Startpunkt zufällig wählen, und von dort nach rechts oder nach links suchen.
Oder vielleicht doch ganz anders ...
Bye,
Arno
[edit=alcaeus]delphi-Tags gesetzt. In Zukunft bitte selbst machen. Danke Mfg, alcaeus[/edit]