Fix shift-descend to ladders from a floor
[oweals/minetest.git] / src / mapgen.cpp
index 0dfd6731212cac0f98adc0adcb86ce9db30e4e94..67e92f4498bca02d0f458a64cb818e7b498fa760 100644 (file)
@@ -3,16 +3,16 @@ Minetest-c55
 Copyright (C) 2010-2011 celeron55, Perttu Ahola <celeron55@gmail.com>
 
 This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
+it under the terms of the GNU Lesser General Public License as published by
+the Free Software Foundation; either version 2.1 of the License, or
 (at your option) any later version.
 
 This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-GNU General Public License for more details.
+GNU Lesser General Public License for more details.
 
-You should have received a copy of the GNU General Public License along
+You should have received a copy of the GNU Lesser General Public License along
 with this program; if not, write to the Free Software Foundation, Inc.,
 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 */
@@ -61,17 +61,20 @@ static s16 find_ground_level(VoxelManipulator &vmanip, v2s16 p2d,
                return y_nodes_min - 1;
 }
 
+#if 0
 // Returns Y one under area minimum if not found
 static s16 find_ground_level_clever(VoxelManipulator &vmanip, v2s16 p2d,
                INodeDefManager *ndef)
 {
+       if(!vmanip.m_area.contains(v3s16(p2d.X, vmanip.m_area.MaxEdge.Y, p2d.Y)))
+               return vmanip.m_area.MinEdge.Y-1;
        v3s16 em = vmanip.m_area.getExtent();
        s16 y_nodes_max = vmanip.m_area.MaxEdge.Y;
        s16 y_nodes_min = vmanip.m_area.MinEdge.Y;
        u32 i = vmanip.m_area.index(v3s16(p2d.X, y_nodes_max, p2d.Y));
        s16 y;
-       content_t c_tree = LEGN(ndef, "CONTENT_TREE");
-       content_t c_leaves = LEGN(ndef, "CONTENT_LEAVES");
+       content_t c_tree = ndef->getId("mapgen_tree");
+       content_t c_leaves = ndef->getId("mapgen_leaves");
        for(y=y_nodes_max; y>=y_nodes_min; y--)
        {
                MapNode &n = vmanip.m_data[i];
@@ -87,6 +90,7 @@ static s16 find_ground_level_clever(VoxelManipulator &vmanip, v2s16 p2d,
        else
                return y_nodes_min - 1;
 }
+#endif
 
 // Returns Y one under area minimum if not found
 static s16 find_stone_level(VoxelManipulator &vmanip, v2s16 p2d,
@@ -97,11 +101,14 @@ static s16 find_stone_level(VoxelManipulator &vmanip, v2s16 p2d,
        s16 y_nodes_min = vmanip.m_area.MinEdge.Y;
        u32 i = vmanip.m_area.index(v3s16(p2d.X, y_nodes_max, p2d.Y));
        s16 y;
-       content_t c_stone = LEGN(ndef, "CONTENT_STONE");
+       content_t c_stone = ndef->getId("mapgen_stone");
+       content_t c_desert_stone = ndef->getId("mapgen_desert_stone");
        for(y=y_nodes_max; y>=y_nodes_min; y--)
        {
                MapNode &n = vmanip.m_data[i];
-               if(n.getContent() == c_stone)
+               content_t c = n.getContent();
+               if(c != CONTENT_IGNORE && (
+                               c == c_stone || c == c_desert_stone))
                        break;
 
                vmanip.m_area.add_y(em, i, -1);
@@ -116,9 +123,9 @@ static s16 find_stone_level(VoxelManipulator &vmanip, v2s16 p2d,
 void make_tree(ManualMapVoxelManipulator &vmanip, v3s16 p0,
                bool is_apple_tree, INodeDefManager *ndef)
 {
-       MapNode treenode(LEGN(ndef, "CONTENT_TREE"));
-       MapNode leavesnode(LEGN(ndef, "CONTENT_LEAVES"));
-       MapNode applenode(LEGN(ndef, "CONTENT_APPLE"));
+       MapNode treenode(ndef->getId("mapgen_tree"));
+       MapNode leavesnode(ndef->getId("mapgen_leaves"));
+       MapNode applenode(ndef->getId("mapgen_apple"));
        
        s16 trunk_h = myrand_range(4, 5);
        v3s16 p1 = p0;
@@ -193,11 +200,12 @@ void make_tree(ManualMapVoxelManipulator &vmanip, v3s16 p0,
        }
 }
 
+#if 0
 static void make_jungletree(VoxelManipulator &vmanip, v3s16 p0,
                INodeDefManager *ndef)
 {
-       MapNode treenode(LEGN(ndef, "CONTENT_JUNGLETREE"));
-       MapNode leavesnode(LEGN(ndef, "CONTENT_LEAVES"));
+       MapNode treenode(ndef->getId("mapgen_jungletree"));
+       MapNode leavesnode(ndef->getId("mapgen_leaves"));
 
        for(s16 x=-1; x<=1; x++)
        for(s16 z=-1; z<=1; z++)
@@ -280,10 +288,10 @@ static void make_jungletree(VoxelManipulator &vmanip, v3s16 p0,
        }
 }
 
-void make_papyrus(VoxelManipulator &vmanip, v3s16 p0,
+static void make_papyrus(VoxelManipulator &vmanip, v3s16 p0,
                INodeDefManager *ndef)
 {
-       MapNode papyrusnode(LEGN(ndef, "CONTENT_PAPYRUS"));
+       MapNode papyrusnode(ndef->getId("mapgen_papyrus"));
 
        s16 trunk_h = myrand_range(2, 3);
        v3s16 p1 = p0;
@@ -295,10 +303,10 @@ void make_papyrus(VoxelManipulator &vmanip, v3s16 p0,
        }
 }
 
-void make_cactus(VoxelManipulator &vmanip, v3s16 p0,
+static void make_cactus(VoxelManipulator &vmanip, v3s16 p0,
                INodeDefManager *ndef)
 {
-       MapNode cactusnode(LEGN(ndef, "CONTENT_CACTUS"));
+       MapNode cactusnode(ndef->getId("mapgen_cactus"));
 
        s16 trunk_h = 3;
        v3s16 p1 = p0;
@@ -309,7 +317,9 @@ void make_cactus(VoxelManipulator &vmanip, v3s16 p0,
                p1.Y++;
        }
 }
+#endif
 
+#if 0
 /*
        Dungeon making routines
 */
@@ -333,7 +343,7 @@ static void make_room1(VoxelManipulator &vmanip, v3s16 roomsize, v3s16 roomplace
                        u32 vi = vmanip.m_area.index(p);
                        if(vmanip.m_flags[vi] & VMANIP_FLAG_DUNGEON_UNTOUCHABLE)
                                continue;
-                       vmanip.m_data[vi] = MapNode(LEGN(ndef, "CONTENT_COBBLE"));
+                       vmanip.m_data[vi] = MapNode(ndef->getId("mapgen_cobble"));
                }
                {
                        v3s16 p = roomplace + v3s16(roomsize.X-1,y,z);
@@ -342,7 +352,7 @@ static void make_room1(VoxelManipulator &vmanip, v3s16 roomsize, v3s16 roomplace
                        u32 vi = vmanip.m_area.index(p);
                        if(vmanip.m_flags[vi] & VMANIP_FLAG_DUNGEON_UNTOUCHABLE)
                                continue;
-                       vmanip.m_data[vi] = MapNode(LEGN(ndef, "CONTENT_COBBLE"));
+                       vmanip.m_data[vi] = MapNode(ndef->getId("mapgen_cobble"));
                }
        }
        
@@ -357,7 +367,7 @@ static void make_room1(VoxelManipulator &vmanip, v3s16 roomsize, v3s16 roomplace
                        u32 vi = vmanip.m_area.index(p);
                        if(vmanip.m_flags[vi] & VMANIP_FLAG_DUNGEON_UNTOUCHABLE)
                                continue;
-                       vmanip.m_data[vi] = MapNode(LEGN(ndef, "CONTENT_COBBLE"));
+                       vmanip.m_data[vi] = MapNode(ndef->getId("mapgen_cobble"));
                }
                {
                        v3s16 p = roomplace + v3s16(x,y,roomsize.Z-1);
@@ -366,7 +376,7 @@ static void make_room1(VoxelManipulator &vmanip, v3s16 roomsize, v3s16 roomplace
                        u32 vi = vmanip.m_area.index(p);
                        if(vmanip.m_flags[vi] & VMANIP_FLAG_DUNGEON_UNTOUCHABLE)
                                continue;
-                       vmanip.m_data[vi] = MapNode(LEGN(ndef, "CONTENT_COBBLE"));
+                       vmanip.m_data[vi] = MapNode(ndef->getId("mapgen_cobble"));
                }
        }
        
@@ -381,7 +391,7 @@ static void make_room1(VoxelManipulator &vmanip, v3s16 roomsize, v3s16 roomplace
                        u32 vi = vmanip.m_area.index(p);
                        if(vmanip.m_flags[vi] & VMANIP_FLAG_DUNGEON_UNTOUCHABLE)
                                continue;
-                       vmanip.m_data[vi] = MapNode(LEGN(ndef, "CONTENT_COBBLE"));
+                       vmanip.m_data[vi] = MapNode(ndef->getId("mapgen_cobble"));
                }
                {
                        v3s16 p = roomplace + v3s16(x,roomsize.Y-1,z);
@@ -390,7 +400,7 @@ static void make_room1(VoxelManipulator &vmanip, v3s16 roomsize, v3s16 roomplace
                        u32 vi = vmanip.m_area.index(p);
                        if(vmanip.m_flags[vi] & VMANIP_FLAG_DUNGEON_UNTOUCHABLE)
                                continue;
-                       vmanip.m_data[vi] = MapNode(LEGN(ndef, "CONTENT_COBBLE"));
+                       vmanip.m_data[vi] = MapNode(ndef->getId("mapgen_cobble"));
                }
        }
        
@@ -438,7 +448,7 @@ static void make_door1(VoxelManipulator &vmanip, v3s16 doorplace, v3s16 doordir,
 {
        make_hole1(vmanip, doorplace, ndef);
        // Place torch (for testing)
-       //vmanip.m_data[vmanip.m_area.index(doorplace)] = MapNode(LEGN(ndef, "CONTENT_TORCH"));
+       //vmanip.m_data[vmanip.m_area.index(doorplace)] = MapNode(ndef->getId("mapgen_torch"));
 }
 
 static v3s16 rand_ortho_dir(PseudoRandom &random)
@@ -525,7 +535,7 @@ static void make_corridor(VoxelManipulator &vmanip, v3s16 doorplace,
                        if(make_stairs)
                        {
                                make_fill(vmanip, p+v3s16(-1,-1,-1), v3s16(3,5,3),
-                                               VMANIP_FLAG_DUNGEON_UNTOUCHABLE, MapNode(LEGN(ndef, "CONTENT_COBBLE")), 0);
+                                               VMANIP_FLAG_DUNGEON_UNTOUCHABLE, MapNode(ndef->getId("mapgen_cobble")), 0);
                                make_fill(vmanip, p, v3s16(1,2,1), 0, MapNode(CONTENT_AIR),
                                                VMANIP_FLAG_DUNGEON_INSIDE);
                                make_fill(vmanip, p-dir, v3s16(1,2,1), 0, MapNode(CONTENT_AIR),
@@ -534,7 +544,7 @@ static void make_corridor(VoxelManipulator &vmanip, v3s16 doorplace,
                        else
                        {
                                make_fill(vmanip, p+v3s16(-1,-1,-1), v3s16(3,4,3),
-                                               VMANIP_FLAG_DUNGEON_UNTOUCHABLE, MapNode(LEGN(ndef, "CONTENT_COBBLE")), 0);
+                                               VMANIP_FLAG_DUNGEON_UNTOUCHABLE, MapNode(ndef->getId("mapgen_cobble")), 0);
                                make_hole1(vmanip, p, ndef);
                                /*make_fill(vmanip, p, v3s16(1,2,1), 0, MapNode(CONTENT_AIR),
                                                VMANIP_FLAG_DUNGEON_INSIDE);*/
@@ -613,9 +623,9 @@ public:
                                continue;
                        }
                        if(vmanip.getNodeNoExNoEmerge(p).getContent()
-                                       == LEGN(m_ndef, "CONTENT_COBBLE")
+                                       == m_ndef->getId("mapgen_cobble")
                        && vmanip.getNodeNoExNoEmerge(p1).getContent()
-                                       == LEGN(m_ndef, "CONTENT_COBBLE"))
+                                       == m_ndef->getId("mapgen_cobble"))
                        {
                                // Found wall, this is a good place!
                                result_place = p;
@@ -629,25 +639,25 @@ public:
                        */
                        // Jump one up if the actual space is there
                        if(vmanip.getNodeNoExNoEmerge(p+v3s16(0,0,0)).getContent()
-                                       == LEGN(m_ndef, "CONTENT_COBBLE")
+                                       == m_ndef->getId("mapgen_cobble")
                        && vmanip.getNodeNoExNoEmerge(p+v3s16(0,1,0)).getContent()
-                                       == LEGN(m_ndef, "CONTENT_AIR")
+                                       == CONTENT_AIR
                        && vmanip.getNodeNoExNoEmerge(p+v3s16(0,2,0)).getContent()
-                                       == LEGN(m_ndef, "CONTENT_AIR"))
+                                       == CONTENT_AIR)
                                p += v3s16(0,1,0);
                        // Jump one down if the actual space is there
                        if(vmanip.getNodeNoExNoEmerge(p+v3s16(0,1,0)).getContent()
-                                       == LEGN(m_ndef, "CONTENT_COBBLE")
+                                       == m_ndef->getId("mapgen_cobble")
                        && vmanip.getNodeNoExNoEmerge(p+v3s16(0,0,0)).getContent()
-                                       == LEGN(m_ndef, "CONTENT_AIR")
+                                       == CONTENT_AIR
                        && vmanip.getNodeNoExNoEmerge(p+v3s16(0,-1,0)).getContent()
-                                       == LEGN(m_ndef, "CONTENT_AIR"))
+                                       == CONTENT_AIR)
                                p += v3s16(0,-1,0);
                        // Check if walking is now possible
                        if(vmanip.getNodeNoExNoEmerge(p).getContent()
-                                       != LEGN(m_ndef, "CONTENT_AIR")
+                                       != CONTENT_AIR
                        || vmanip.getNodeNoExNoEmerge(p+v3s16(0,1,0)).getContent()
-                                       != LEGN(m_ndef, "CONTENT_AIR"))
+                                       != CONTENT_AIR)
                        {
                                // Cannot continue walking here
                                randomizeDir();
@@ -799,7 +809,7 @@ static void make_dungeon1(VoxelManipulator &vmanip, PseudoRandom &random,
                v3s16 room_center = roomplace + v3s16(roomsize.X/2,1,roomsize.Z/2);
 
                // Place torch at room center (for testing)
-               //vmanip.m_data[vmanip.m_area.index(room_center)] = MapNode(LEGN(ndef, "CONTENT_TORCH"));
+               //vmanip.m_data[vmanip.m_area.index(room_center)] = MapNode(ndef->getId("mapgen_torch"));
 
                // Quit if last room
                if(i == room_count-1)
@@ -861,7 +871,9 @@ static void make_dungeon1(VoxelManipulator &vmanip, PseudoRandom &random,
                
        }
 }
+#endif
 
+#if 0
 static void make_nc(VoxelManipulator &vmanip, PseudoRandom &random,
                INodeDefManager *ndef)
 {
@@ -888,14 +900,15 @@ static void make_nc(VoxelManipulator &vmanip, PseudoRandom &random,
                        16+random.range(0,15),
                        16+random.range(0,15),
                        16+random.range(0,15));
-       vmanip.m_data[vmanip.m_area.index(p)] = MapNode(LEGN(ndef, "CONTENT_NC"), facedir_i);
+       vmanip.m_data[vmanip.m_area.index(p)] = MapNode(ndef->getId("mapgen_nyancat"), facedir_i);
        u32 length = random.range(3,15);
        for(u32 j=0; j<length; j++)
        {
                p -= dir;
-               vmanip.m_data[vmanip.m_area.index(p)] = MapNode(LEGN(ndef, "CONTENT_NC_RB"));
+               vmanip.m_data[vmanip.m_area.index(p)] = MapNode(ndef->getId("mapgen_nyancat_rainbow"));
        }
 }
+#endif
 
 /*
        Noise functions. Make sure seed is mangled differently in each one.
@@ -1262,14 +1275,39 @@ double get_mud_add_amount(u64 seed, v2s16 p)
                        seed+91013, 3, 0.55));
 }
 
-bool get_have_sand(u64 seed, v2s16 p2d)
+bool get_have_beach(u64 seed, v2s16 p2d)
 {
        // Determine whether to have sand here
        double sandnoise = noise2d_perlin(
-                       0.5+(float)p2d.X/500, 0.5+(float)p2d.Y/500,
+                       0.2+(float)p2d.X/250, 0.7+(float)p2d.Y/250,
                        seed+59420, 3, 0.50);
 
-       return (sandnoise > -0.15);
+       return (sandnoise > 0.15);
+}
+
+enum BiomeType
+{
+       BT_NORMAL,
+       BT_DESERT
+};
+
+BiomeType get_biome(u64 seed, v2s16 p2d)
+{
+       // Just do something very simple as for now
+       double d = noise2d_perlin(
+                       0.6+(float)p2d.X/250, 0.2+(float)p2d.Y/250,
+                       seed+9130, 3, 0.50);
+       if(d > 0.45) 
+               return BT_DESERT;
+       if(d > 0.35 && (noise2d( p2d.X, p2d.Y, int(seed) ) + 1.0) > ( 0.45 - d ) * 20.0  ) 
+               return BT_DESERT;
+       return BT_NORMAL;
+};
+
+u32 get_blockseed(u64 seed, v3s16 p)
+{
+       s32 x=p.X, y=p.Y, z=p.Z;
+       return (u32)(seed%0x100000000ULL) + z*38134234 + y*42123 + x*23;
 }
 
 #define VMANIP_FLAG_CAVE VOXELFLAG_CHECKED1
@@ -1333,8 +1371,7 @@ void make_block(BlockMakeData *data)
        /*
                Create a block-specific seed
        */
-       /*u32 blockseed = (u32)(data->seed%0x100000000ULL) + full_node_min.Z*38134234
-                       + full_node_min.Y*42123 + full_node_min.X*23;*/
+       u32 blockseed = get_blockseed(data->seed, full_node_min);
        
        /*
                Cache some ground type values for speed
@@ -1342,8 +1379,14 @@ void make_block(BlockMakeData *data)
 
 // Creates variables c_name=id and n_name=node
 #define CONTENT_VARIABLE(ndef, name)\
-       content_t c_##name = ndef->getId(#name);\
+       content_t c_##name = ndef->getId("mapgen_" #name);\
        MapNode n_##name(c_##name);
+// Default to something else if was CONTENT_IGNORE
+#define CONTENT_VARIABLE_FALLBACK(name, dname)\
+       if(c_##name == CONTENT_IGNORE){\
+               c_##name = c_##dname;\
+               n_##name = n_##dname;\
+       }
 
        CONTENT_VARIABLE(ndef, stone);
        CONTENT_VARIABLE(ndef, air);
@@ -1360,6 +1403,10 @@ void make_block(BlockMakeData *data)
        CONTENT_VARIABLE(ndef, stone_with_coal);
        CONTENT_VARIABLE(ndef, stone_with_iron);
        CONTENT_VARIABLE(ndef, mese);
+       CONTENT_VARIABLE(ndef, desert_sand);
+       CONTENT_VARIABLE_FALLBACK(desert_sand, sand);
+       CONTENT_VARIABLE(ndef, desert_stone);
+       CONTENT_VARIABLE_FALLBACK(desert_stone, stone);
 
        // Maximum height of the stone surface and obstacles.
        // This is used to guide the cave generation
@@ -1407,6 +1454,7 @@ void make_block(BlockMakeData *data)
                if(surface_y > stone_surface_max_y)
                        stone_surface_max_y = surface_y;
 
+               BiomeType bt = get_biome(data->seed, p2d);
                /*
                        Fill ground with stone
                */
@@ -1416,13 +1464,18 @@ void make_block(BlockMakeData *data)
                        u32 i = vmanip.m_area.index(v3s16(p2d.X, node_min.Y, p2d.Y));
                        for(s16 y=node_min.Y; y<=node_max.Y; y++)
                        {
-                               if(y <= surface_y)
-                                       vmanip.m_data[i] = MapNode(c_stone);
-                               else if(y <= WATER_LEVEL)
-                                       vmanip.m_data[i] = MapNode(c_water_source);
-                               else
-                                       vmanip.m_data[i] = MapNode(c_air);
-
+                               if(vmanip.m_data[i].getContent() == CONTENT_IGNORE){
+                                       if(y <= surface_y){
+                                               if(y > WATER_LEVEL && bt == BT_DESERT)
+                                                       vmanip.m_data[i] = n_desert_stone;
+                                               else
+                                                       vmanip.m_data[i] = n_stone;
+                                       } else if(y <= WATER_LEVEL){
+                                               vmanip.m_data[i] = MapNode(c_water_source);
+                                       } else {
+                                               vmanip.m_data[i] = MapNode(c_air);
+                                       }
+                               }
                                vmanip.m_area.add_y(em, i, 1);
                        }
                }
@@ -1430,7 +1483,7 @@ void make_block(BlockMakeData *data)
 #endif
        
        }//timer1
-
+       
        // Limit dirt flow area by 1 because mud is flown into neighbors.
        assert(central_area_size.X == central_area_size.Z);
        s16 mudflow_minpos = 0-max_spread_amount+1;
@@ -1455,37 +1508,40 @@ void make_block(BlockMakeData *data)
        /*
                Make caves (this code is relatively horrible)
        */
-       u32 caves_count = volume_nodes / 100000 + 1;
-       u32 bruises_count = volume_nodes * stone_surface_max_y / 40000000;
-       if(stone_surface_max_y < WATER_LEVEL - 20)
-               bruises_count = 0;
-       /*u32 caves_count = 0;
-       u32 bruises_count = 0;*/
+       double cave_amount = 6.0 + 6.0 * noise2d_perlin(
+                       0.5+(double)node_min.X/250, 0.5+(double)node_min.Y/250,
+                       data->seed+34329, 3, 0.50);
+       cave_amount = MYMAX(0.0, cave_amount);
+       u32 caves_count = cave_amount * volume_nodes / 50000;
+       u32 bruises_count = 1;
+       PseudoRandom ps(blockseed+21343);
+       PseudoRandom ps2(blockseed+1032);
+       if(ps.range(1, 6) == 1)
+               bruises_count = ps.range(0, ps.range(0, 2));
+       if(get_biome(data->seed, v2s16(node_min.X, node_min.Y)) == BT_DESERT){
+               caves_count /= 3;
+               bruises_count /= 3;
+       }
        for(u32 jj=0; jj<caves_count+bruises_count; jj++)
        {
+               bool large_cave = (jj >= caves_count);
                s16 min_tunnel_diameter = 2;
-               s16 max_tunnel_diameter = 5;
-               u16 tunnel_routepoints = 20;
-               
-               v3f main_direction(0,0,0);
-
-               bool bruise_surface = (jj > caves_count);
-
-               if(bruise_surface)
-               {
+               s16 max_tunnel_diameter = ps.range(2,6);
+               int dswitchint = ps.range(1,14);
+               u16 tunnel_routepoints = 0;
+               int part_max_length_rs = 0;
+               if(large_cave){
+                       part_max_length_rs = ps.range(2,4);
+                       tunnel_routepoints = ps.range(5, ps.range(15,30));
                        min_tunnel_diameter = 5;
-                       max_tunnel_diameter = myrand_range(10, myrand_range(30,50));
-                       /*min_tunnel_diameter = MYMAX(0, stone_surface_max_y/6);
-                       max_tunnel_diameter = myrand_range(MYMAX(0, stone_surface_max_y/6), MYMAX(0, stone_surface_max_y/2));*/
-                       
-                       /*s16 tunnel_rou = rangelim(25*(0.5+1.0*noise2d(data->seed+42,
-                                       data->sectorpos_base.X, data->sectorpos_base.Y)), 0, 15);*/
-
-                       tunnel_routepoints = 5;
-               }
-               else
-               {
+                       max_tunnel_diameter = ps.range(7, ps.range(8,24));
+               } else {
+                       part_max_length_rs = ps.range(2,9);
+                       tunnel_routepoints = ps.range(10, ps.range(15,30));
                }
+               bool large_cave_is_flat = (ps.range(0,1) == 0);
+               
+               v3f main_direction(0,0,0);
 
                // Allowed route area size in nodes
                v3s16 ar = central_area_size;
@@ -1506,21 +1562,27 @@ void make_block(BlockMakeData *data)
                s16 route_y_max = -of.Y + stone_surface_max_y + max_tunnel_diameter/2 + 7;
 
                /*// If caves, don't go through surface too often
-               if(bruise_surface == false)
-                       route_y_max -= myrand_range(0, max_tunnel_diameter*2);*/
+               if(large_cave == false)
+                       route_y_max -= ps.range(0, max_tunnel_diameter*2);*/
 
                // Limit maximum to area
                route_y_max = rangelim(route_y_max, 0, ar.Y-1);
 
-               if(bruise_surface)
+               if(large_cave)
                {
                        /*// Minimum is at y=0
                        route_y_min = -of.Y - 0;*/
                        // Minimum is at y=max_tunnel_diameter/4
                        //route_y_min = -of.Y + max_tunnel_diameter/4;
                        //s16 min = -of.Y + max_tunnel_diameter/4;
-                       s16 min = -of.Y + 0;
-                       route_y_min = myrand_range(min, min + max_tunnel_diameter);
+                       //s16 min = -of.Y + 0;
+                       s16 min = 0;
+                       if(node_min.Y < WATER_LEVEL && node_max.Y > WATER_LEVEL)
+                       {
+                               min = WATER_LEVEL - max_tunnel_diameter/3 - of.Y;
+                               route_y_max = WATER_LEVEL + max_tunnel_diameter/3 - of.Y;
+                       }
+                       route_y_min = ps.range(min, min + max_tunnel_diameter);
                        route_y_min = rangelim(route_y_min, 0, route_y_max);
                }
 
@@ -1531,25 +1593,29 @@ void make_block(BlockMakeData *data)
                s16 route_start_y_max = route_y_max;
 
                // Start every 4th cave from surface when applicable
-               bool coming_from_surface = false;
+               /*bool coming_from_surface = false;
                if(node_min.Y <= 0 && node_max.Y >= 0){
-                       coming_from_surface = (jj % 4 == 0 && bruise_surface == false);
+                       coming_from_surface = (jj % 4 == 0 && large_cave == false);
                        if(coming_from_surface)
                                route_start_y_min = -of.Y + stone_surface_max_y + 10;
-               }
+               }*/
                
                route_start_y_min = rangelim(route_start_y_min, 0, ar.Y-1);
                route_start_y_max = rangelim(route_start_y_max, route_start_y_min, ar.Y-1);
 
                // Randomize starting position
                v3f orp(
-                       (float)(myrand()%ar.X)+0.5,
-                       (float)(myrand_range(route_start_y_min, route_start_y_max))+0.5,
-                       (float)(myrand()%ar.Z)+0.5
+                       (float)(ps.next()%ar.X)+0.5,
+                       (float)(ps.range(route_start_y_min, route_start_y_max))+0.5,
+                       (float)(ps.next()%ar.Z)+0.5
                );
 
+               v3s16 startp(orp.X, orp.Y, orp.Z);
+               startp += of;
+
                MapNode airnode(CONTENT_AIR);
                MapNode waternode(c_water_source);
+               MapNode lavanode(c_lava_source);
                
                /*
                        Generate some tunnel starting from orp
@@ -1557,57 +1623,67 @@ void make_block(BlockMakeData *data)
                
                for(u16 j=0; j<tunnel_routepoints; j++)
                {
-                       if(j%7==0 && bruise_surface == false)
+                       if(j%dswitchint==0 && large_cave == false)
                        {
                                main_direction = v3f(
-                                       ((float)(myrand()%20)-(float)10)/10,
-                                       ((float)(myrand()%20)-(float)10)/30,
-                                       ((float)(myrand()%20)-(float)10)/10
+                                       ((float)(ps.next()%20)-(float)10)/10,
+                                       ((float)(ps.next()%20)-(float)10)/30,
+                                       ((float)(ps.next()%20)-(float)10)/10
                                );
-                               main_direction *= (float)myrand_range(1, 3);
+                               main_direction *= (float)ps.range(0, 10)/10;
                        }
-
+                       
                        // Randomize size
                        s16 min_d = min_tunnel_diameter;
                        s16 max_d = max_tunnel_diameter;
-                       s16 rs = myrand_range(min_d, max_d);
+                       s16 rs = ps.range(min_d, max_d);
                        
+                       // Every second section is rough
+                       bool randomize_xz = (ps2.range(1,2) == 1);
+
                        v3s16 maxlen;
-                       if(bruise_surface)
+                       if(large_cave)
                        {
-                               maxlen = v3s16(rs*7,rs*2,rs*7);
+                               maxlen = v3s16(
+                                       rs*part_max_length_rs,
+                                       rs*part_max_length_rs/2,
+                                       rs*part_max_length_rs
+                               );
                        }
                        else
                        {
-                               maxlen = v3s16(rs*4, myrand_range(1, rs*3), rs*4);
+                               maxlen = v3s16(
+                                       rs*part_max_length_rs,
+                                       ps.range(1, rs*part_max_length_rs),
+                                       rs*part_max_length_rs
+                               );
                        }
 
                        v3f vec;
                        
-                       if(coming_from_surface && j < 3)
-                       {
-                               vec = v3f(
-                                       (float)(myrand()%(maxlen.X*2))-(float)maxlen.X,
-                                       (float)(myrand()%(maxlen.Y*1))-(float)maxlen.Y,
-                                       (float)(myrand()%(maxlen.Z*2))-(float)maxlen.Z
-                               );
-                       }
-                       else
+                       vec = v3f(
+                               (float)(ps.next()%(maxlen.X*1))-(float)maxlen.X/2,
+                               (float)(ps.next()%(maxlen.Y*1))-(float)maxlen.Y/2,
+                               (float)(ps.next()%(maxlen.Z*1))-(float)maxlen.Z/2
+                       );
+               
+                       // Jump downward sometimes
+                       if(!large_cave && ps.range(0,12) == 0)
                        {
                                vec = v3f(
-                                       (float)(myrand()%(maxlen.X*2))-(float)maxlen.X,
-                                       (float)(myrand()%(maxlen.Y*2))-(float)maxlen.Y,
-                                       (float)(myrand()%(maxlen.Z*2))-(float)maxlen.Z
+                                       (float)(ps.next()%(maxlen.X*1))-(float)maxlen.X/2,
+                                       (float)(ps.next()%(maxlen.Y*2))-(float)maxlen.Y*2/2,
+                                       (float)(ps.next()%(maxlen.Z*1))-(float)maxlen.Z/2
                                );
                        }
                        
-                       if(bruise_surface){
+                       /*if(large_cave){
                                v3f p = orp + vec;
                                s16 h = find_ground_level_clever(vmanip,
                                                v2s16(p.X, p.Z), ndef);
                                route_y_min = h - rs/3;
                                route_y_max = h + rs;
-                       }
+                       }*/
 
                        vec += main_direction;
 
@@ -1629,63 +1705,71 @@ void make_block(BlockMakeData *data)
                        for(float f=0; f<1.0; f+=1.0/vec.getLength())
                        {
                                v3f fp = orp + vec * f;
-                               fp.X += 0.1*myrand_range(-10,10);
-                               fp.Z += 0.1*myrand_range(-10,10);
+                               fp.X += 0.1*ps.range(-10,10);
+                               fp.Z += 0.1*ps.range(-10,10);
                                v3s16 cp(fp.X, fp.Y, fp.Z);
 
                                s16 d0 = -rs/2;
-                               s16 d1 = d0 + rs - 1;
+                               s16 d1 = d0 + rs;
+                               if(randomize_xz){
+                                       d0 += ps.range(-1,1);
+                                       d1 += ps.range(-1,1);
+                               }
                                for(s16 z0=d0; z0<=d1; z0++)
                                {
-                                       s16 si = rs - MYMAX(0, abs(z0)-rs/4);
-                                       //s16 si = rs - MYMAX(0, abs(z0)-rs/7);
-                                       for(s16 x0=-si; x0<=si-1; x0++)
+                                       s16 si = rs/2 - MYMAX(0, abs(z0)-rs/7-1);
+                                       for(s16 x0=-si-ps.range(0,1); x0<=si-1+ps.range(0,1); x0++)
                                        {
                                                s16 maxabsxz = MYMAX(abs(x0), abs(z0));
-                                               //s16 si2 = rs - MYMAX(0, maxabsxz-rs/4);
-                                               s16 si2 = rs - MYMAX(0, maxabsxz-rs/7);
-                                               //s16 si2 = rs - abs(x0);
-                                               for(s16 y0=-si2; y0<=si2-1; y0++)
+                                               s16 si2 = rs/2 - MYMAX(0, maxabsxz-rs/7-1);
+                                               for(s16 y0=-si2; y0<=si2; y0++)
                                                {
-                                                       // Make better floors
-                                                       if(y0 < -rs + 1 && abs(x0)<=1 && abs(z0)<=1)
-                                                               continue;
+                                                       /*// Make better floors in small caves
+                                                       if(y0 <= -rs/2 && rs<=7)
+                                                               continue;*/
+                                                       if(large_cave_is_flat){
+                                                               // Make large caves not so tall
+                                                               if(rs > 7 && abs(y0) >= rs/3)
+                                                                       continue;
+                                                       }
 
                                                        s16 z = cp.Z + z0;
                                                        s16 y = cp.Y + y0;
                                                        s16 x = cp.X + x0;
                                                        v3s16 p(x,y,z);
-                                                       /*if(isInArea(p, ar) == false)
-                                                               continue;*/
-                                                       // Check only height
-                                                       if(y < 0 || y >= ar.Y)
-                                                               continue;
                                                        p += of;
                                                        
-                                                       //assert(vmanip.m_area.contains(p));
                                                        if(vmanip.m_area.contains(p) == false)
-                                                       {
-                                                               dstream<<"WARNING: "<<__FUNCTION_NAME
-                                                                               <<":"<<__LINE__<<": "
-                                                                               <<"point not in area"
-                                                                               <<std::endl;
                                                                continue;
-                                                       }
                                                        
-                                                       // Just set it to air, it will be changed to
-                                                       // water afterwards
                                                        u32 i = vmanip.m_area.index(p);
-                                                       if(bruise_surface){
-                                                               if(p.Y <= WATER_LEVEL)
-                                                                       vmanip.m_data[i] = waternode;
-                                                               else
+                                                       
+                                                       if(large_cave)
+                                                       {
+                                                               if(full_node_min.Y < WATER_LEVEL &&
+                                                                       full_node_max.Y > WATER_LEVEL){
+                                                                       if(p.Y <= WATER_LEVEL)
+                                                                               vmanip.m_data[i] = waternode;
+                                                                       else
+                                                                               vmanip.m_data[i] = airnode;
+                                                               } else if(full_node_max.Y < WATER_LEVEL){
+                                                                       if(p.Y < startp.Y - 2)
+                                                                               vmanip.m_data[i] = lavanode;
+                                                                       else
+                                                                               vmanip.m_data[i] = airnode;
+                                                               } else {
                                                                        vmanip.m_data[i] = airnode;
+                                                               }
                                                        } else {
+                                                               // Don't replace air or water or lava or ignore
+                                                               if(vmanip.m_data[i].getContent() == CONTENT_IGNORE ||
+                                                               vmanip.m_data[i].getContent() == CONTENT_AIR ||
+                                                               vmanip.m_data[i].getContent() == c_water_source ||
+                                                               vmanip.m_data[i].getContent() == c_lava_source)
+                                                                       continue;
+                                                               
                                                                vmanip.m_data[i] = airnode;
-                                                       }
 
-                                                       if(bruise_surface == false)
-                                                       {
                                                                // Set tunnel flag
                                                                vmanip.m_flags[i] |= VMANIP_FLAG_CAVE;
                                                        }
@@ -1717,15 +1801,8 @@ void make_block(BlockMakeData *data)
                // Node position in 2d
                v2s16 p2d = v2s16(x,z);
                
-               MapNode addnode(c_dirt);
-
                // Randomize mud amount
-               s16 mud_add_amount = get_mud_add_amount(data->seed, p2d) / 2.0;
-
-               if(mud_add_amount <= 0){
-                       mud_add_amount = 1 - mud_add_amount;
-                       addnode = MapNode(c_gravel);
-               }
+               s16 mud_add_amount = get_mud_add_amount(data->seed, p2d) / 2.0 + 0.5;
 
                // Find ground level
                s16 surface_y = find_stone_level(vmanip, p2d, ndef);
@@ -1733,6 +1810,28 @@ void make_block(BlockMakeData *data)
                if(surface_y == vmanip.m_area.MinEdge.Y - 1)
                        continue;
 
+               MapNode addnode(c_dirt);
+               BiomeType bt = get_biome(data->seed, p2d);
+
+               if(bt == BT_DESERT)
+                       addnode = MapNode(c_desert_sand);
+
+               if(bt == BT_DESERT && surface_y + mud_add_amount <= WATER_LEVEL+1){
+                       addnode = MapNode(c_sand);
+               } else if(mud_add_amount <= 0){
+                       mud_add_amount = 1 - mud_add_amount;
+                       addnode = MapNode(c_gravel);
+               } else if(bt == BT_NORMAL && get_have_beach(data->seed, p2d) &&
+                               surface_y + mud_add_amount <= WATER_LEVEL+2){
+                       addnode = MapNode(c_sand);
+               }
+               
+               if(bt == BT_DESERT){
+                       if(surface_y > 20){
+                               mud_add_amount = MYMAX(0, mud_add_amount - (surface_y - 20)/5);
+                       }
+               }
+
                /*
                        If topmost node is grass, change it to mud.
                        It might be if it was flown to there from a neighboring
@@ -1771,6 +1870,49 @@ void make_block(BlockMakeData *data)
        }//timer1
 #endif
 
+       /*
+               Add blobs of dirt and gravel underground
+       */
+       if(get_biome(data->seed, v2s16(node_min.X, node_min.Y)) == BT_NORMAL)
+       {
+       PseudoRandom pr(blockseed+983);
+       for(int i=0; i<volume_nodes/10/10/10; i++)
+       {
+               bool only_fill_cave = (myrand_range(0,1) != 0);
+               v3s16 size(
+                       pr.range(1, 8),
+                       pr.range(1, 8),
+                       pr.range(1, 8)
+               );
+               v3s16 p0(
+                       pr.range(node_min.X, node_max.X)-size.X/2,
+                       pr.range(node_min.Y, node_max.Y)-size.Y/2,
+                       pr.range(node_min.Z, node_max.Z)-size.Z/2
+               );
+               MapNode n1;
+               if(p0.Y > -32 && pr.range(0,1) == 0)
+                       n1 = MapNode(c_dirt);
+               else
+                       n1 = MapNode(c_gravel);
+               for(int x1=0; x1<size.X; x1++)
+               for(int y1=0; y1<size.Y; y1++)
+               for(int z1=0; z1<size.Z; z1++)
+               {
+                       v3s16 p = p0 + v3s16(x1,y1,z1);
+                       u32 i = vmanip.m_area.index(p);
+                       if(!vmanip.m_area.contains(i))
+                               continue;
+                       // Cancel if not stone and not cave air
+                       if(vmanip.m_data[i].getContent() != c_stone &&
+                                       !(vmanip.m_flags[i] & VMANIP_FLAG_CAVE))
+                               continue;
+                       if(only_fill_cave && !(vmanip.m_flags[i] & VMANIP_FLAG_CAVE))
+                               continue;
+                       vmanip.m_data[i] = n1;
+               }
+       }
+       }
+
 #if 1
        {
        // 340ms @cs=8
@@ -1801,6 +1943,9 @@ void make_block(BlockMakeData *data)
                u32 i = vmanip.m_area.index(v3s16(p2d.X, node_max.Y, p2d.Y));
                s16 y=node_max.Y;
 
+               while(y >= node_min.Y)
+               {
+
                for(;; y--)
                {
                        MapNode *n = NULL;
@@ -1811,7 +1956,8 @@ void make_block(BlockMakeData *data)
                                //if(content_walkable(n->d))
                                //      break;
                                if(n->getContent() == c_dirt ||
-                                               n->getContent() == c_dirt_with_grass)
+                                               n->getContent() == c_dirt_with_grass ||
+                                               n->getContent() == c_gravel)
                                        break;
                                        
                                vmanip.m_area.add_y(em, i, -1);
@@ -1827,24 +1973,28 @@ void make_block(BlockMakeData *data)
                        if(n->d != CONTENT_MUD && n->d != CONTENT_GRASS)
                                continue;*/
 
-                       /*
-                               Don't flow it if the stuff under it is not mud
-                       */
+                       if(n->getContent() == c_dirt ||
+                                       n->getContent() == c_dirt_with_grass)
                        {
-                               u32 i2 = i;
-                               vmanip.m_area.add_y(em, i2, -1);
-                               // Cancel if out of area
-                               if(vmanip.m_area.contains(i2) == false)
-                                       continue;
-                               MapNode *n2 = &vmanip.m_data[i2];
-                               if(n2->getContent() != c_dirt &&
-                                               n2->getContent() != c_dirt_with_grass)
-                                       continue;
+                               // Make it exactly mud
+                               n->setContent(c_dirt);
+                               
+                               /*
+                                       Don't flow it if the stuff under it is not mud
+                               */
+                               {
+                                       u32 i2 = i;
+                                       vmanip.m_area.add_y(em, i2, -1);
+                                       // Cancel if out of area
+                                       if(vmanip.m_area.contains(i2) == false)
+                                               continue;
+                                       MapNode *n2 = &vmanip.m_data[i2];
+                                       if(n2->getContent() != c_dirt &&
+                                                       n2->getContent() != c_dirt_with_grass)
+                                               continue;
+                               }
                        }
 
-                       // Make it exactly mud
-                       n->setContent(c_dirt);
-                       
                        /*s16 recurse_count = 0;
        mudflow_recurse:*/
 
@@ -1912,18 +2062,20 @@ void make_block(BlockMakeData *data)
                                
                                bool old_is_water = (n->getContent() == c_water_source);
                                // Move mud to new place
-                               if(!dropped_to_unknown)
+                               if(!dropped_to_unknown) {
                                        *n2 = *n;
-                               // Set old place to be air (or water)
-                               if(old_is_water)
-                                       *n = MapNode(c_water_source);
-                               else
-                                       *n = MapNode(CONTENT_AIR);
+                                       // Set old place to be air (or water)
+                                       if(old_is_water)
+                                               *n = MapNode(c_water_source);
+                                       else
+                                               *n = MapNode(CONTENT_AIR);
+                               }
 
                                // Done
                                break;
                        }
                }
+               }
        }
        
        }
@@ -1952,9 +2104,15 @@ void make_block(BlockMakeData *data)
                        u32 i = vmanip.m_area.index(v3s16(p2d.X, full_node_max.Y, p2d.Y));
                        for(s16 y=full_node_max.Y; y>=full_node_min.Y; y--)
                        {
-                               if(water_found == false)
+                               if(y == full_node_max.Y){
+                                       water_found = 
+                                               (vmanip.m_data[i].getContent() == c_water_source ||
+                                               vmanip.m_data[i].getContent() == c_lava_source);
+                               }
+                               else if(water_found == false)
                                {
-                                       if(vmanip.m_data[i].getContent() == c_water_source)
+                                       if(vmanip.m_data[i].getContent() == c_water_source ||
+                                                       vmanip.m_data[i].getContent() == c_lava_source)
                                        {
                                                v3s16 p = v3s16(p2d.X, y, p2d.Y);
                                                data->transforming_liquid.push_back(p);
@@ -1966,7 +2124,8 @@ void make_block(BlockMakeData *data)
                                        // This can be done because water_found can only
                                        // turn to true and end up here after going through
                                        // a single block.
-                                       if(vmanip.m_data[i+1].getContent() != c_water_source)
+                                       if(vmanip.m_data[i+1].getContent() != c_water_source ||
+                                                       vmanip.m_data[i+1].getContent() != c_lava_source)
                                        {
                                                v3s16 p = v3s16(p2d.X, y+1, p2d.Y);
                                                data->transforming_liquid.push_back(p);
@@ -2017,8 +2176,12 @@ void make_block(BlockMakeData *data)
                
                u32 i = vmanip.m_area.index(p2d.X, surface_y, p2d.Y);
                MapNode *n = &vmanip.m_data[i];
-               if(n->getContent() == c_dirt)
+               if(n->getContent() == c_dirt){
+                       // Well yeah, this can't be overground...
+                       if(surface_y < WATER_LEVEL - 20)
+                               continue;
                        n->setContent(c_dirt_with_grass);
+               }
        }
 
        /*
@@ -2320,7 +2483,7 @@ void make_block(BlockMakeData *data)
                        // Node position
                        v2s16 p2d(x,z);
                        {
-                               bool possibly_have_sand = get_have_sand(data->seed, p2d);
+                               bool possibly_have_sand = get_have_beach(data->seed, p2d);
                                bool have_sand = false;
                                u32 current_depth = 0;
                                bool air_detected = false;
@@ -2353,19 +2516,7 @@ void make_block(BlockMakeData *data)
                                                {
                                                        if(have_sand)
                                                        {
-                                                               // Determine whether to have clay in the sand here
-                                                               double claynoise = noise2d_perlin(
-                                                                               0.5+(float)p2d.X/500, 0.5+(float)p2d.Y/500,
-                                                                               data->seed+4321, 6, 0.95) + 0.5;
-                               
-                                                               have_clay = (y <= WATER_LEVEL) && (y >= WATER_LEVEL-2) && (
-                                                                       ((claynoise > 0) && (claynoise < 0.04) && (current_depth == 0)) ||
-                                                                       ((claynoise > 0) && (claynoise < 0.12) && (current_depth == 1))
-                                                                       );
-                                                               if (have_clay)
-                                                                       vmanip.m_data[i] = MapNode(c_clay);
-                                                               else
-                                                                       vmanip.m_data[i] = MapNode(c_sand);
+                                                               vmanip.m_data[i] = MapNode(c_sand);
                                                        }
                                                        #if 1
                                                        else if(current_depth==0 && !water_detected