init.lua

   1 local S = minetest.get_translator("tsm_pyramids")
   2
   3 tsm_pyramids = {}
   4
   5 dofile(minetest.get_modpath("tsm_pyramids").."/mummy.lua")
   6 dofile(minetest.get_modpath("tsm_pyramids").."/nodes.lua")
   7 dofile(minetest.get_modpath("tsm_pyramids").."/room.lua")
   8
   9 local mg_name = minetest.get_mapgen_setting("mg_name")
  10
  11 local chest_stuff = {
  12         {name="default:apple", max = 3},
  13         {name="default:steel_ingot", max = 3},
  14         {name="default:copper_ingot", max = 3},
  15         {name="default:gold_ingot", max = 2},
  16         {name="default:diamond", max = 1},
  17         {name="default:pick_steel", max = 1},
  18         {name="default:pick_diamond", max = 1},
  19         {name="default:papyrus", max = 9},
  20 }
  21
  22 if minetest.get_modpath("farming") then
  23         table.insert(chest_stuff, {name="farming:bread", max = 3})
  24         table.insert(chest_stuff, {name="farming:cotton", max = 8})
  25 else
  26         table.insert(chest_stuff, {name="farming:apple", max = 8})
  27         table.insert(chest_stuff, {name="farming:apple", max = 3})
  28 end
  29 if minetest.get_modpath("tnt") then
  30         table.insert(chest_stuff, {name="tnt:gunpowder", max = 6})
  31 else
  32         table.insert(chest_stuff, {name="farming:apple", max = 3})
  33 end
  34
  35 function tsm_pyramids.fill_chest(pos, stype, flood_sand)
  36         minetest.after(2, function()
  37                 local sand = "default:sand"
  38                 if stype == "desert_sandstone" or stype == "desert_stone" then
  39                         sand = "default:desert_sand"
  40                 end
  41                 local n = minetest.get_node(pos)
  42                 if n and n.name and n.name == "default:chest" then
  43                         local meta = minetest.get_meta(pos)
  44                         local inv = meta:get_inventory()
  45                         inv:set_size("main", 8*4)
  46                         local stacks = {}
  47                         -- Fill with sand in sand-flooded pyramids
  48                         if flood_sand then
  49                                 table.insert(stacks, {name=sand, count = math.random(1,32)})
  50                         end
  51                         -- Add treasures
  52                         if math.random(1,10) >= 7 then
  53                                 if minetest.get_modpath("treasurer") ~= nil then
  54                                         stacks = treasurer.select_random_treasures(3,7,9,{"minetool", "food", "crafting_component"})
  55                                 else
  56                                         for i=0,2,1 do
  57                                                 local stuff = chest_stuff[math.random(1,#chest_stuff)]
  58                                                 table.insert(stacks, {name=stuff.name, count = math.random(1,stuff.max)})
  59                                         end
  60                                 end
  61                         end
  62                         for s=1,#stacks do
  63                                 if not inv:contains_item("main", stacks[s]) then
  64                                         inv:set_stack("main", math.random(1,32), stacks[s])
  65                                 end
  66                         end
  67
  68                 end
  69         end)
  70 end
  71
  72 local function add_spawner(pos, mummy_offset)
  73         minetest.set_node(pos, {name="tsm_pyramids:spawner_mummy"})
  74         if not minetest.settings:get_bool("only_peaceful_mobs") then tsm_pyramids.spawn_mummy(vector.add(pos, mummy_offset),2) end
  75 end
  76
  77 local function can_replace(pos)
  78         local n = minetest.get_node_or_nil(pos)
  79         if n and n.name and minetest.registered_nodes[n.name] and not minetest.registered_nodes[n.name].walkable then
  80                 return true
  81         elseif not n then
  82                 return true
  83         else
  84                 return false
  85         end
  86 end
  87
  88 local function make_foundation_part(pos, set_to_stone)
  89         local p2 = pos
  90         local cnt = 0
  91         p2.y = p2.y-1
  92         while can_replace(p2)==true do
  93                 cnt = cnt+1
  94                 if cnt > 25 then
  95                         break
  96                 end
  97                 table.insert(set_to_stone, table.copy(p2))
  98                 p2.y = p2.y-1
  99         end
 100 end
 101
 102 local function make_entrance(pos, brick, sand, flood_sand)
 103         local gang = {x=pos.x+10,y=pos.y, z=pos.z}
 104         local max_sand_height = math.random(1,3)
 105         for iz=0,6,1 do
 106                 local sand_height = math.random(1,max_sand_height)
 107                 for iy=2,3,1 do
 108                         if flood_sand and iy <= sand_height and iz >= 3 then
 109                                 minetest.set_node({x=gang.x+1,y=gang.y+iy,z=gang.z+iz}, {name=sand})
 110                         else
 111                                 minetest.remove_node({x=gang.x+1,y=gang.y+iy,z=gang.z+iz})
 112                         end
 113                         if iz >=3 and iy == 3 then
 114                                 minetest.set_node({x=gang.x,y=gang.y+iy+1,z=gang.z+iz}, {name=brick})
 115                                 minetest.set_node({x=gang.x+1,y=gang.y+iy+1,z=gang.z+iz}, {name=brick})
 116                                 minetest.set_node({x=gang.x+2,y=gang.y+iy+1,z=gang.z+iz}, {name=brick})
 117                         end
 118                 end
 119         end
 120 end
 121
 122 local function make_pyramid(pos, brick, sandstone, stone, sand)
 123         local set_to_brick = {}
 124         local set_to_sand = {}
 125         local set_to_stone = {}
 126         -- Build pyramid
 127         for iy=0,math.random(10,11),1 do
 128                 for ix=iy,22-iy,1 do
 129                         for iz=iy,22-iy,1 do
 130                                 if iy < 1 then
 131                                         make_foundation_part({x=pos.x+ix,y=pos.y,z=pos.z+iz}, set_to_stone)
 132                                 end
 133                                 table.insert(set_to_brick, {x=pos.x+ix,y=pos.y+iy,z=pos.z+iz})
 134                                 for yy=1,10-iy,1 do
 135                                         local n = minetest.get_node({x=pos.x+ix,y=pos.y+iy+yy,z=pos.z+iz})
 136                                         if n and n.name and n.name == stone then
 137                                                 table.insert(set_to_sand, {x=pos.x+ix,y=pos.y+iy+yy,z=pos.z+iz})
 138                                         end
 139                                 end
 140                         end
 141                 end
 142         end
 143         minetest.bulk_set_node(set_to_stone , {name=stone})
 144         minetest.bulk_set_node(set_to_brick, {name=brick})
 145         minetest.bulk_set_node(set_to_sand, {name=sand})
 146 end
 147
 148 local function make(pos, brick, sandstone, stone, sand, ptype, room_id)
 149         -- Build pyramid
 150         make_pyramid(pos, brick, sandstone, stone, sand)
 151         -- Build room
 152         local ok, msg, flood_sand = tsm_pyramids.make_room(pos, ptype, room_id)
 153         -- Place mummy spawner
 154         local r = math.random(1,3)
 155         if r == 1 then
 156                 -- front
 157                 add_spawner({x=pos.x+11,y=pos.y+2, z=pos.z+17}, {x=0, y=0, z=-2})
 158         elseif r == 2 then
 159                 -- right
 160                 add_spawner({x=pos.x+17,y=pos.y+2, z=pos.z+11}, {x=-2, y=0, z=0})
 161         else
 162                 -- left
 163                 add_spawner({x=pos.x+5,y=pos.y+2, z=pos.z+11}, {x=2, y=0, z=0})
 164         end
 165         -- Build entrance
 166         make_entrance({x=pos.x,y=pos.y, z=pos.z}, brick, sand, flood_sand)
 167         -- Done
 168         minetest.log("action", "Created pyramid at ("..pos.x..","..pos.y..","..pos.z..")")
 169         return ok, msg
 170 end
 171
 172 local perl1 = {SEED1 = 9130, OCTA1 = 3, PERS1 = 0.5, SCAL1 = 250} -- Values should match minetest mapgen V6 desert noise.
 173 local perlin1
 174
 175 local function hlp_fnct(pos, name)
 176         local n = minetest.get_node_or_nil(pos)
 177         if n and n.name and n.name == name then
 178                 return true
 179         else
 180                 return false
 181         end
 182 end
 183 local function ground(pos, old)
 184         local p2 = pos
 185         while hlp_fnct(p2, "air") do
 186                 p2.y = p2.y -1
 187         end
 188         if p2.y < old.y then
 189                 return p2
 190         else
 191                 return old
 192         end
 193 end
 194
 195
 196 minetest.register_on_generated(function(minp, maxp, seed)
 197         if maxp.y < 0 then return end
 198         math.randomseed(seed)
 199         if not perlin1 then
 200                 perlin1 = minetest.get_perlin(perl1.SEED1, perl1.OCTA1, perl1.PERS1, perl1.SCAL1)
 201         end
 202         local noise1 = perlin1:get_2d({x=minp.x,y=minp.y})--,z=minp.z})
 203
 204         if noise1 > 0.25 or noise1 < -0.26 then
 205                 local mpos = {x=math.random(minp.x,maxp.x), y=math.random(minp.y,maxp.y), z=math.random(minp.z,maxp.z)}
 206
 207                 local sands = {"default:sand", "default:desert_sand", "default:desert_stone"}
 208                 local p2
 209                 local psand = {}
 210                 local sand
 211                 local cnt = 0
 212                 local cnt_min = 100
 213                 for s=1, #sands do
 214                         cnt = 0
 215                         sand = sands[s]
 216                         psand[s] = minetest.find_node_near(mpos, 25, sand)
 217                         while psand == nil and cnt < 5 do
 218                                 cnt = cnt+1
 219                                 mpos = {x=math.random(minp.x,maxp.x), y=math.random(minp.y,maxp.y), z=math.random(minp.z,maxp.z)}
 220                                 psand[s] = minetest.find_node_near(mpos, 25, sand)
 221                         end
 222                         if psand[s] ~= nil then
 223                                 if cnt < cnt_min then
 224                                         cnt_min = cnt
 225                                         p2 = psand[s]
 226                                 end
 227                         end
 228                 end
 229                 if p2 == nil then return end
 230                 if p2.y < 0 then return end
 231
 232                 local off = 0
 233                 local opos1 = {x=p2.x+22,y=p2.y-1,z=p2.z+22}
 234                 local opos2 = {x=p2.x+22,y=p2.y-1,z=p2.z}
 235                 local opos3 = {x=p2.x,y=p2.y-1,z=p2.z+22}
 236                 local opos1_n = minetest.get_node_or_nil(opos1)
 237                 local opos2_n = minetest.get_node_or_nil(opos2)
 238                 local opos3_n = minetest.get_node_or_nil(opos3)
 239                 if opos1_n and opos1_n.name and opos1_n.name == "air" then
 240                         p2 = ground(opos1, p2)
 241                 end
 242                 if opos2_n and opos2_n.name and opos2_n.name == "air" then
 243                         p2 = ground(opos2, p2)
 244                 end
 245                 if opos3_n and opos3_n.name and opos3_n.name == "air" then
 246                         p2 = ground(opos3, p2)
 247                 end
 248                 p2.y = p2.y - 3
 249                 if p2.y < 0 then p2.y = 0 end
 250                 if minetest.find_node_near(p2, 25, {"default:water_source"}) ~= nil or
 251                                 minetest.find_node_near(p2, 22, {"default:dirt_with_grass"}) ~= nil or
 252                                 minetest.find_node_near(p2, 52, {"default:sandstonebrick"}) ~= nil or
 253                                 minetest.find_node_near(p2, 52, {"default:desert_sandstone_brick"}) ~= nil then
 254                         return
 255                 end
 256
 257                 if math.random(0,10) > 7 then
 258                         return
 259                 end
 260                 if (mg_name == "v6" and sand == "default:desert_sand" and math.random(1, 2) == 1) then
 261                         sand = "default:sand"
 262                 end
 263                 if sand == "default:desert_sand" then
 264                         -- Desert sandstone pyramid
 265                         minetest.after(0.8, make, p2, "default:desert_sandstone_brick", "default:desert_sandstone", "default:desert_stone", "default:desert_sand", "desert_sandstone")
 266                 elseif sand == "default:sand" then
 267                         -- Sandstone pyramid
 268                         minetest.after(0.8, make, p2, "default:sandstonebrick", "default:sandstone", "default:sandstone", "default:sand", "sandstone")
 269                 else
 270                         -- Desert stone pyramid
 271                         minetest.after(0.8, make, p2, "default:desert_stonebrick", "default:desert_stone_block", "default:desert_stone", "default:desert_sand", "desert_stone")
 272                 end
 273         end
 274 end)
 275
 276 -- Add backwards-compability for nodes from the original pyramids mod
 277 if minetest.get_modpath("pyramids") == nil then
 278         -- Nodes
 279         minetest.register_alias("pyramids:trap", "tsm_pyramids:trap")
 280         minetest.register_alias("pyramids:trap_2", "tsm_pyramids:trap_2")
 281         minetest.register_alias("pyramids:deco_stone1", "tsm_pyramids:deco_stone1")
 282         minetest.register_alias("pyramids:deco_stone2", "tsm_pyramids:deco_stone2")
 283         minetest.register_alias("pyramids:deco_stone3", "tsm_pyramids:deco_stone3")
 284         minetest.register_alias("pyramids:spawner_mummy", "tsm_pyramids:spawner_mummy")
 285
 286         -- FIXME: Entities are currently NOT backwards-compatible
 287         -- TODO: Update README when full backwards-compability is achieved
 288 end
 289
 290 minetest.register_chatcommand("spawnpyramid", {
 291         description = S("Generate a pyramid"),
 292                 params = S("[<room_type>]"),
 293                 privs = { server = true },
 294                 func = function(name, param)
 295                         local player = minetest.get_player_by_name(name)
 296                         if not player then
 297                                 return false, S("No player.")
 298                         end
 299                         local pos = player:get_pos()
 300                         pos = vector.round(pos)
 301                         local s = math.random(1,3)
 302                         local r = tonumber(param)
 303                         local room_id
 304                         if r then
 305                                 room_id = r
 306                         end
 307                         local ok, msg
 308                         pos = vector.add(pos, {x=-11, y=-1, z=0})
 309                         if s == 1 then
 310                                 ok, msg = make(pos, "default:sandstonebrick", "default:sandstone", "default:sandstone", "default:sand", "sandstone", room_id)
 311                         elseif s == 2 then
 312                                 ok, msg = make(pos, "default:desert_sandstone_brick", "default:desert_sandstone", "default:desert_stone", "default:desert_sand", "desert_sandstone", room_id)
 313                         else
 314                                 ok, msg = make(pos, "default:desert_stonebrick", "default:desert_stone_block", "default:desert_stone", "default:desert_sand", "desert_stone", room_id)
 315                         end
 316                         if ok then
 317                                 return true, S("Pyramid generated at @1.", minetest.pos_to_string(pos))
 318                         else
 319                                 return false, msg
 320                         end
 321                 end,
 322         }
 323 )