X-Force Dokumentation - MapEdit.Wasser

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

procedure GenerateWater();
var
   xposition,yposition : Integer;
   i, tries : Integer;
   collision : Boolean;
begin
     tries:=10;
     collision:=false;

     //Searches the starting point for the water
     while not collision do
     begin
          tries:=tries-1;
          if tries=-1 then
              exit;
          xposition:=random(GetMapWidth)
          yposition:=0
          collision:=checkCollision(xposition,yposition)
     end
     if collision then
     begin
          CopyRoomToPos(xposition, yposition,'Wasser_Vertical')

          for i:=1 to GetMapHeight do
          begin
               yposition:=yposition+1
               collision:=checkCollision(xposition,yposition)
               if collision then
                  CopyRoomToPos(xposition, yposition,'Wasser_Vertical')
               else
                   CopyRoomToPos(xposition, yposition,'Wasser_Vertical_Bruecke')
          end
     end

end;