1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

//Überprüft, ob die Koordinaten eines Nachbarfeldes im gültigen Bereich liegen.
//Das Spielfeld ist ein Raster 0..39 X-Achse und 0..21 Y-Achse (Array of Byte)

Function GetNewCoord(Var X,Y:Integer; Element:Byte; Direction:Byte):Boolean;
Var TmpX,TmpY:Integer;
Begin
Result:=False;

TmpX:=X;
TmpY:=Y;

Case Direction of
1: Dec(TmpY); //Oben
2: Inc(TmpX);   //rechts
3: Inc(TmpY);    //unten
4 : Dec(TmpX);   //links
End;

IF (TmpX>=0) AND (TmpX<=39) AND (TmpY>=0) AND (TmpY<=21) then
   BEGIN
   IF Map.ReadFieldStatus(TmpX,TmpY)<>Element then //Liest den Status des Feldes
      BEGIN
       Result:=True;
       X:=TmpX;
       Y:=TmpY;
      END;
   END;
End;

//Füllt die vom Element begrenzte Fläche mit dem Element.
//X,Y ist der Ausgangspunkt

Procedure FloodfillElement(X,Y:Integer; Element:Byte);
Var BackX,BackY:Integer;
    Direction:Integer;
Begin
Direction:=1;
   Repeat
     BackX:=X;
     BackY:=Y;
     IF GetNewCoord(X,Y,Element,Direction) then
        BEGIN
          Map.SetFieldStatus(X,Y,Element,True); //Element setzen
          FloodFillElement(X,Y,Element);
          X:=BackX;
          Y:=BackY;
        END else
         Inc(Direction);
   Until Direction>4;
End;