mods/default/mapgen.lua

   1 -- mods/default/mapgen.lua
   2
   3 --
   4 -- Aliases for map generator outputs
   5 --
   6
   7 minetest.register_alias("mapgen_stone", "default:stone")
   8 minetest.register_alias("mapgen_tree", "default:tree")
   9 minetest.register_alias("mapgen_leaves", "default:leaves")
  10 minetest.register_alias("mapgen_jungletree", "default:jungletree")
  11 minetest.register_alias("mapgen_jungleleaves", "default:jungleleaves")
  12 minetest.register_alias("mapgen_apple", "default:apple")
  13 minetest.register_alias("mapgen_water_source", "default:water_source")
  14 minetest.register_alias("mapgen_dirt", "default:dirt")
  15 minetest.register_alias("mapgen_sand", "default:sand")
  16 minetest.register_alias("mapgen_gravel", "default:gravel")
  17 minetest.register_alias("mapgen_clay", "default:clay")
  18 minetest.register_alias("mapgen_lava_source", "default:lava_source")
  19 minetest.register_alias("mapgen_cobble", "default:cobble")
  20 minetest.register_alias("mapgen_mossycobble", "default:mossycobble")
  21 minetest.register_alias("mapgen_dirt_with_grass", "default:dirt_with_grass")
  22 minetest.register_alias("mapgen_junglegrass", "default:junglegrass")
  23 minetest.register_alias("mapgen_stone_with_coal", "default:stone_with_coal")
  24 minetest.register_alias("mapgen_stone_with_iron", "default:stone_with_iron")
  25 minetest.register_alias("mapgen_mese", "default:mese")
  26 minetest.register_alias("mapgen_desert_sand", "default:desert_sand")
  27 minetest.register_alias("mapgen_desert_stone", "default:desert_stone")
  28 minetest.register_alias("mapgen_stair_cobble", "stairs:stair_cobble")
  29
  30 --
  31 -- Ore generation
  32 --
  33
  34 minetest.register_ore({
  35         ore_type       = "scatter",
  36         ore            = "default:stone_with_coal",
  37         wherein        = "default:stone",
  38         clust_scarcity = 8*8*8,
  39         clust_num_ores = 8,
  40         clust_size     = 3,
  41         height_min     = -31000,
  42         height_max     = 64,
  43 })
  44
  45 minetest.register_ore({
  46         ore_type       = "scatter",
  47         ore            = "default:stone_with_coal",
  48         wherein        = "default:stone",
  49         clust_scarcity = 24*24*24,
  50         clust_num_ores = 27,
  51         clust_size     = 6,
  52         height_min     = -31000,
  53         height_max     = 0,
  54         flags          = "absheight",
  55 })
  56
  57 minetest.register_ore({
  58         ore_type       = "scatter",
  59         ore            = "default:stone_with_iron",
  60         wherein        = "default:stone",
  61         clust_scarcity = 12*12*12,
  62         clust_num_ores = 3,
  63         clust_size     = 2,
  64         height_min     = -15,
  65         height_max     = 2,
  66 })
  67
  68 minetest.register_ore({
  69         ore_type       = "scatter",
  70         ore            = "default:stone_with_iron",
  71         wherein        = "default:stone",
  72         clust_scarcity = 9*9*9,
  73         clust_num_ores = 5,
  74         clust_size     = 3,
  75         height_min     = -63,
  76         height_max     = -16,
  77 })
  78
  79 minetest.register_ore({
  80         ore_type       = "scatter",
  81         ore            = "default:stone_with_iron",
  82         wherein        = "default:stone",
  83         clust_scarcity = 7*7*7,
  84         clust_num_ores = 5,
  85         clust_size     = 3,
  86         height_min     = -31000,
  87         height_max     = -64,
  88         flags          = "absheight",
  89 })
  90
  91 minetest.register_ore({
  92         ore_type       = "scatter",
  93         ore            = "default:stone_with_iron",
  94         wherein        = "default:stone",
  95         clust_scarcity = 24*24*24,
  96         clust_num_ores = 27,
  97         clust_size     = 6,
  98         height_min     = -31000,
  99         height_max     = -64,
 100         flags          = "absheight",
 101 })
 102
 103 minetest.register_ore({
 104         ore_type       = "scatter",
 105         ore            = "default:stone_with_mese",
 106         wherein        = "default:stone",
 107         clust_scarcity = 18*18*18,
 108         clust_num_ores = 3,
 109         clust_size     = 2,
 110         height_min     = -255,
 111         height_max     = -64,
 112         flags          = "absheight",
 113 })
 114
 115 minetest.register_ore({
 116         ore_type       = "scatter",
 117         ore            = "default:stone_with_mese",
 118         wherein        = "default:stone",
 119         clust_scarcity = 14*14*14,
 120         clust_num_ores = 5,
 121         clust_size     = 3,
 122         height_min     = -31000,
 123         height_max     = -256,
 124         flags          = "absheight",
 125 })
 126
 127 minetest.register_ore({
 128         ore_type       = "scatter",
 129         ore            = "default:mese",
 130         wherein        = "default:stone",
 131         clust_scarcity = 36*36*36,
 132         clust_num_ores = 3,
 133         clust_size     = 2,
 134         height_min     = -31000,
 135         height_max     = -1024,
 136         flags          = "absheight",
 137 })
 138
 139 minetest.register_ore({
 140         ore_type       = "scatter",
 141         ore            = "default:stone_with_gold",
 142         wherein        = "default:stone",
 143         clust_scarcity = 15*15*15,
 144         clust_num_ores = 3,
 145         clust_size     = 2,
 146         height_min     = -255,
 147         height_max     = -64,
 148         flags          = "absheight",
 149 })
 150
 151 minetest.register_ore({
 152         ore_type       = "scatter",
 153         ore            = "default:stone_with_gold",
 154         wherein        = "default:stone",
 155         clust_scarcity = 13*13*13,
 156         clust_num_ores = 5,
 157         clust_size     = 3,
 158         height_min     = -31000,
 159         height_max     = -256,
 160         flags          = "absheight",
 161 })
 162
 163 minetest.register_ore({
 164         ore_type       = "scatter",
 165         ore            = "default:stone_with_diamond",
 166         wherein        = "default:stone",
 167         clust_scarcity = 17*17*17,
 168         clust_num_ores = 4,
 169         clust_size     = 3,
 170         height_min     = -255,
 171         height_max     = -128,
 172         flags          = "absheight",
 173 })
 174
 175 minetest.register_ore({
 176         ore_type       = "scatter",
 177         ore            = "default:stone_with_diamond",
 178         wherein        = "default:stone",
 179         clust_scarcity = 15*15*15,
 180         clust_num_ores = 4,
 181         clust_size     = 3,
 182         height_min     = -31000,
 183         height_max     = -256,
 184         flags          = "absheight",
 185 })
 186
 187 minetest.register_ore({
 188         ore_type       = "scatter",
 189         ore            = "default:stone_with_copper",
 190         wherein        = "default:stone",
 191         clust_scarcity = 12*12*12,
 192         clust_num_ores = 4,
 193         clust_size     = 3,
 194         height_min     = -63,
 195         height_max     = -16,
 196 })
 197
 198 minetest.register_ore({
 199         ore_type       = "scatter",
 200         ore            = "default:stone_with_copper",
 201         wherein        = "default:stone",
 202         clust_scarcity = 9*9*9,
 203         clust_num_ores = 5,
 204         clust_size     = 3,
 205         height_min     = -31000,
 206         height_max     = -64,
 207         flags          = "absheight",
 208 })
 209
 210 if minetest.setting_get("mg_name") == "indev" then
 211         -- Floatlands and high mountains springs
 212         minetest.register_ore({
 213                 ore_type       = "scatter",
 214                 ore            = "default:water_source",
 215                 ore_param2     = 128,
 216                 wherein        = "default:stone",
 217                 clust_scarcity = 40*40*40,
 218                 clust_num_ores = 8,
 219                 clust_size     = 3,
 220                 height_min     = 100,
 221                 height_max     = 31000,
 222         })
 223
 224         minetest.register_ore({
 225                 ore_type       = "scatter",
 226                 ore            = "default:lava_source",
 227                 ore_param2     = 128,
 228                 wherein        = "default:stone",
 229                 clust_scarcity = 50*50*50,
 230                 clust_num_ores = 5,
 231                 clust_size     = 2,
 232                 height_min     = 10000,
 233                 height_max     = 31000,
 234         })
 235
 236         minetest.register_ore({
 237                 ore_type       = "scatter",
 238                 ore            = "default:sand",
 239                 wherein        = "default:stone",
 240                 clust_scarcity = 20*20*20,
 241                 clust_num_ores = 5*5*3,
 242                 clust_size     = 5,
 243                 height_min     = 500,
 244                 height_max     = 31000,
 245         })
 246
 247         -- Underground springs
 248         minetest.register_ore({
 249                 ore_type       = "scatter",
 250                 ore            = "default:water_source",
 251                 ore_param2     = 128,
 252                 wherein        = "default:stone",
 253                 clust_scarcity = 25*25*25,
 254                 clust_num_ores = 8,
 255                 clust_size     = 3,
 256                 height_min     = -10000,
 257                 height_max     = -10,
 258         })
 259
 260         minetest.register_ore({
 261                 ore_type       = "scatter",
 262                 ore            = "default:lava_source",
 263                 ore_param2     = 128,
 264                 wherein        = "default:stone",
 265                 clust_scarcity = 35*35*35,
 266                 clust_num_ores = 5,
 267                 clust_size     = 2,
 268                 height_min     = -31000,
 269                 height_max     = -100,
 270         })
 271 end
 272
 273 minetest.register_ore({
 274         ore_type       = "scatter",
 275         ore            = "default:clay",
 276         wherein        = "default:sand",
 277         clust_scarcity = 15*15*15,
 278         clust_num_ores = 64,
 279         clust_size     = 5,
 280         height_max     = 0,
 281         height_min     = -10,
 282 })
 283
 284 function default.generate_ore(name, wherein, minp, maxp, seed, chunks_per_volume, chunk_size, ore_per_chunk, height_min, height_max)
 285         minetest.log('action', "WARNING: default.generate_ore is deprecated")
 286
 287         if maxp.y < height_min or minp.y > height_max then
 288                 return
 289         end
 290         local y_min = math.max(minp.y, height_min)
 291         local y_max = math.min(maxp.y, height_max)
 292         if chunk_size >= y_max - y_min + 1 then
 293                 return
 294         end
 295         local volume = (maxp.x-minp.x+1)*(y_max-y_min+1)*(maxp.z-minp.z+1)
 296         local pr = PseudoRandom(seed)
 297         local num_chunks = math.floor(chunks_per_volume * volume)
 298         local inverse_chance = math.floor(chunk_size*chunk_size*chunk_size / ore_per_chunk)
 299         --print("generate_ore num_chunks: "..dump(num_chunks))
 300         for i=1,num_chunks do
 301                 local y0 = pr:next(y_min, y_max-chunk_size+1)
 302                 if y0 >= height_min and y0 <= height_max then
 303                         local x0 = pr:next(minp.x, maxp.x-chunk_size+1)
 304                         local z0 = pr:next(minp.z, maxp.z-chunk_size+1)
 305                         local p0 = {x=x0, y=y0, z=z0}
 306                         for x1=0,chunk_size-1 do
 307                         for y1=0,chunk_size-1 do
 308                         for z1=0,chunk_size-1 do
 309                                 if pr:next(1,inverse_chance) == 1 then
 310                                         local x2 = x0+x1
 311                                         local y2 = y0+y1
 312                                         local z2 = z0+z1
 313                                         local p2 = {x=x2, y=y2, z=z2}
 314                                         if minetest.get_node(p2).name == wherein then
 315                                                 minetest.set_node(p2, {name=name})
 316                                         end
 317                                 end
 318                         end
 319                         end
 320                         end
 321                 end
 322         end
 323         --print("generate_ore done")
 324 end
 325
 326 function default.make_papyrus(pos, size)
 327         for y=0,size-1 do
 328                 local p = {x=pos.x, y=pos.y+y, z=pos.z}
 329                 local nn = minetest.get_node(p).name
 330                 if minetest.registered_nodes[nn] and
 331                         minetest.registered_nodes[nn].buildable_to then
 332                         minetest.set_node(p, {name="default:papyrus"})
 333                 else
 334                         return
 335                 end
 336         end
 337 end
 338
 339 function default.make_cactus(pos, size)
 340         for y=0,size-1 do
 341                 local p = {x=pos.x, y=pos.y+y, z=pos.z}
 342                 local nn = minetest.get_node(p).name
 343                 if minetest.registered_nodes[nn] and
 344                         minetest.registered_nodes[nn].buildable_to then
 345                         minetest.set_node(p, {name="default:cactus"})
 346                 else
 347                         return
 348                 end
 349         end
 350 end
 351
 352 -- facedir: 0/1/2/3 (head node facedir value)
 353 -- length: length of rainbow tail
 354 function default.make_nyancat(pos, facedir, length)
 355         local tailvec = {x=0, y=0, z=0}
 356         if facedir == 0 then
 357                 tailvec.z = 1
 358         elseif facedir == 1 then
 359                 tailvec.x = 1
 360         elseif facedir == 2 then
 361                 tailvec.z = -1
 362         elseif facedir == 3 then
 363                 tailvec.x = -1
 364         else
 365                 --print("default.make_nyancat(): Invalid facedir: "+dump(facedir))
 366                 facedir = 0
 367                 tailvec.z = 1
 368         end
 369         local p = {x=pos.x, y=pos.y, z=pos.z}
 370         minetest.set_node(p, {name="default:nyancat", param2=facedir})
 371         for i=1,length do
 372                 p.x = p.x + tailvec.x
 373                 p.z = p.z + tailvec.z
 374                 minetest.set_node(p, {name="default:nyancat_rainbow", param2=facedir})
 375         end
 376 end
 377
 378 function generate_nyancats(seed, minp, maxp)
 379         local height_min = -31000
 380         local height_max = -32
 381         if maxp.y < height_min or minp.y > height_max then
 382                 return
 383         end
 384         local y_min = math.max(minp.y, height_min)
 385         local y_max = math.min(maxp.y, height_max)
 386         local volume = (maxp.x-minp.x+1)*(y_max-y_min+1)*(maxp.z-minp.z+1)
 387         local pr = PseudoRandom(seed + 9324342)
 388         local max_num_nyancats = math.floor(volume / (16*16*16))
 389         for i=1,max_num_nyancats do
 390                 if pr:next(0, 1000) == 0 then
 391                         local x0 = pr:next(minp.x, maxp.x)
 392                         local y0 = pr:next(minp.y, maxp.y)
 393                         local z0 = pr:next(minp.z, maxp.z)
 394                         local p0 = {x=x0, y=y0, z=z0}
 395                         default.make_nyancat(p0, pr:next(0,3), pr:next(3,15))
 396                 end
 397         end
 398 end
 399
 400 minetest.register_on_generated(function(minp, maxp, seed)
 401         if maxp.y >= 2 and minp.y <= 0 then
 402                 -- Generate papyrus
 403                 local perlin1 = minetest.get_perlin(354, 3, 0.7, 100)
 404                 -- Assume X and Z lengths are equal
 405                 local divlen = 8
 406                 local divs = (maxp.x-minp.x)/divlen+1;
 407                 for divx=0,divs-1 do
 408                 for divz=0,divs-1 do
 409                         local x0 = minp.x + math.floor((divx+0)*divlen)
 410                         local z0 = minp.z + math.floor((divz+0)*divlen)
 411                         local x1 = minp.x + math.floor((divx+1)*divlen)
 412                         local z1 = minp.z + math.floor((divz+1)*divlen)
 413                         -- Determine papyrus amount from perlin noise
 414                         local papyrus_amount = math.floor(perlin1:get2d({x=x0, y=z0}) * 45 - 20)
 415                         -- Find random positions for papyrus based on this random
 416                         local pr = PseudoRandom(seed+1)
 417                         for i=0,papyrus_amount do
 418                                 local x = pr:next(x0, x1)
 419                                 local z = pr:next(z0, z1)
 420                                 if minetest.get_node({x=x,y=1,z=z}).name == "default:dirt_with_grass" and
 421                                                 minetest.find_node_near({x=x,y=1,z=z}, 1, "default:water_source") then
 422                                         default.make_papyrus({x=x,y=2,z=z}, pr:next(2, 4))
 423                                 end
 424                         end
 425                 end
 426                 end
 427                 -- Generate cactuses
 428                 local perlin1 = minetest.get_perlin(230, 3, 0.6, 100)
 429                 -- Assume X and Z lengths are equal
 430                 local divlen = 16
 431                 local divs = (maxp.x-minp.x)/divlen+1;
 432                 for divx=0,divs-1 do
 433                 for divz=0,divs-1 do
 434                         local x0 = minp.x + math.floor((divx+0)*divlen)
 435                         local z0 = minp.z + math.floor((divz+0)*divlen)
 436                         local x1 = minp.x + math.floor((divx+1)*divlen)
 437                         local z1 = minp.z + math.floor((divz+1)*divlen)
 438                         -- Determine cactus amount from perlin noise
 439                         local cactus_amount = math.floor(perlin1:get2d({x=x0, y=z0}) * 6 - 3)
 440                         -- Find random positions for cactus based on this random
 441                         local pr = PseudoRandom(seed+1)
 442                         for i=0,cactus_amount do
 443                                 local x = pr:next(x0, x1)
 444                                 local z = pr:next(z0, z1)
 445                                 -- Find ground level (0...15)
 446                                 local ground_y = nil
 447                                 for y=30,0,-1 do
 448                                         if minetest.get_node({x=x,y=y,z=z}).name ~= "air" then
 449                                                 ground_y = y
 450                                                 break
 451                                         end
 452                                 end
 453                                 -- If desert sand, make cactus
 454                                 if ground_y and minetest.get_node({x=x,y=ground_y,z=z}).name == "default:desert_sand" then
 455                                         default.make_cactus({x=x,y=ground_y+1,z=z}, pr:next(3, 4))
 456                                 end
 457                         end
 458                 end
 459                 end
 460                 -- Generate grass
 461                 local perlin1 = minetest.get_perlin(329, 3, 0.6, 100)
 462                 -- Assume X and Z lengths are equal
 463                 local divlen = 16
 464                 local divs = (maxp.x-minp.x)/divlen+1;
 465                 for divx=0,divs-1 do
 466                 for divz=0,divs-1 do
 467                         local x0 = minp.x + math.floor((divx+0)*divlen)
 468                         local z0 = minp.z + math.floor((divz+0)*divlen)
 469                         local x1 = minp.x + math.floor((divx+1)*divlen)
 470                         local z1 = minp.z + math.floor((divz+1)*divlen)
 471                         -- Determine grass amount from perlin noise
 472                         local grass_amount = math.floor(perlin1:get2d({x=x0, y=z0}) ^ 3 * 9)
 473                         -- Find random positions for grass based on this random
 474                         local pr = PseudoRandom(seed+1)
 475                         for i=0,grass_amount do
 476                                 local x = pr:next(x0, x1)
 477                                 local z = pr:next(z0, z1)
 478                                 -- Find ground level (0...15)
 479                                 local ground_y = nil
 480                                 for y=30,0,-1 do
 481                                         if minetest.get_node({x=x,y=y,z=z}).name ~= "air" then
 482                                                 ground_y = y
 483                                                 break
 484                                         end
 485                                 end
 486
 487                                 if ground_y then
 488                                         local p = {x=x,y=ground_y+1,z=z}
 489                                         local nn = minetest.get_node(p).name
 490                                         -- Check if the node can be replaced
 491                                         if minetest.registered_nodes[nn] and
 492                                                 minetest.registered_nodes[nn].buildable_to then
 493                                                 nn = minetest.get_node({x=x,y=ground_y,z=z}).name
 494                                                 -- If desert sand, add dry shrub
 495                                                 if nn == "default:desert_sand" then
 496                                                         minetest.set_node(p,{name="default:dry_shrub"})
 497
 498                                                 -- If dirt with grass, add grass
 499                                                 elseif nn == "default:dirt_with_grass" then
 500                                                         minetest.set_node(p,{name="default:grass_"..pr:next(1, 5)})
 501                                                 end
 502                                         end
 503                                 end
 504
 505                         end
 506                 end
 507                 end
 508         end
 509
 510         -- Generate nyan cats
 511         generate_nyancats(seed, minp, maxp)
 512 end)
 513