anchor.diff:    X, Y: Byte;
     Z: TMapEnum;
   
  +const
  +  Pd = 11;
  +
     procedure GenCave(D: Byte; C, V: Word);
     var
       I: Word;
  
positive.code:     for I := 0 to C do
      begin
        repeat
          X := Math.RandomRange(10, High(Byte) - 10);
          Y := Math.RandomRange(10, High(Byte) - 10);
        until (GetTileEnum(X, Y, pred(Z)) = teDefaultFloor);
        Self.AddTiles(X, Y, Z, D, V, teDefaultWall, teDefaultFloor);
        SetTileEnum(X, Y, pred(Z), teDnStairs);
  
negative.code:   begin
      // Add mobs
      IsBoss := False;
      for I := 0 to High(Byte) do
        Mobs.AddGroup(Z);
    end;
  end;
  