skyblock.lua

   1 elidragon.skyblock = {}
   2
   3 --helper functions
   4
   5 -- http://rosettacode.org/wiki/Spiral_matrix#Lua
   6 av, sn = math.abs, function(s) return s~=0 and s/av(s) or 0 end
   7 local function sindex(y, x)
   8         if y == -x and y >= x then return (2*y+1)^2 end
   9         local l = math.max(av(y), av(x))
  10         return (2*l-1)^2+4*l+2*l*sn(x+y)+sn(y^2-x^2)*(l-(av(y)==l and sn(y)*x or sn(x)*y))
  11 end
  12 local function spiralt(side)
  13         local ret, id, start, stop = {}, 0, math.floor((-side+1)/2), math.floor((side-1)/2)
  14         for i = 1, side do
  15                 for j = 1, side do
  16                         local id = side^2 - sindex(stop - i + 1,start + j - 1)
  17                         ret[id] = {x=i,z=j}
  18                 end
  19         end
  20         return ret
  21 end
  22
  23 local function ripairs(t)
  24         local function ripairs_it(t,i)
  25                 i=i-1
  26                 local v=t[i]
  27                 if v==nil then return v end
  28                 return i,v
  29         end
  30         return ripairs_it, t, #t+1
  31 end
  32
  33 -- start positions
  34
  35 function elidragon.skyblock.load_start_positions()
  36         local file = io.open(minetest.get_worldpath() .. "/start_positions", "r")
  37         if file then
  38                 local start_positions = minetest.deserialize(file:read())
  39                 file:close()
  40                 return start_positions
  41         end
  42 end
  43
  44 function elidragon.skyblock.save_start_positions(start_positions)
  45         local file = io.open(minetest.get_worldpath() .. "/start_positions", "w")
  46         file:write(minetest.serialize(start_positions))
  47         file:close()
  48 end
  49
  50 function elidragon.skyblock.generate_start_positions()
  51         local start_positions = {}
  52         for _, v in ripairs(spiralt(1000)) do
  53                 local pos = {x = v.x * 32, y = math.random(4 - 8, 4 + 8), z = v.z * 32}
  54                 table.insert(start_positions, pos)
  55         end
  56         return start_positions
  57 end
  58
  59 elidragon.skyblock.start_positions = elidragon.skyblock.load_start_positions()
  60
  61 if not elidragon.skyblock.start_positions then
  62         elidragon.skyblock.start_positions = elidragon.skyblock.generate_start_positions()
  63         elidragon.skyblock.save_start_positions(elidragon.skyblock.start_positions)
  64 end
  65
  66 elidragon.savedata.last_start_id = elidragon.savedata.last_start_id or 0
  67
  68 -- spawns
  69
  70 function elidragon.skyblock.get_spawn(player)
  71         return minetest.string_to_pos(player:get_meta():get_string("elidragon:spawn"))
  72 end
  73
  74 function elidragon.skyblock.set_spawn(player, pos)
  75         player:get_meta():set_string("elidragon:spawn", minetest.pos_to_string(pos))
  76 end
  77
  78 function elidragon.skyblock.spawn_player(player)
  79         if not player then return end
  80         local spawn = elidragon.skyblock.get_spawn(player) or elidragon.skyblock.new_spawn(player)
  81         player:set_pos({x = spawn.x + 2, y = spawn.y + 2, z = spawn.z + 2})
  82 end
  83
  84 function elidragon.skyblock.new_spawn(player)
  85         local name = player:get_player_name()
  86         local spawn
  87         repeat
  88                 elidragon.savedata.last_start_id = elidragon.savedata.last_start_id + 1
  89                 spawn = elidragon.skyblock.start_positions[elidragon.savedata.last_start_id]
  90         until not minetest.is_protected(spawn, name)
  91         elidragon.skyblock.set_spawn(player, spawn)
  92         local file = io.open(minetest.get_modpath("elidragon") .. "/schems/island.we", "r")
  93         local schem = file:read()
  94         file:close()
  95         worldedit.deserialize(vector.add(spawn, {x = -3, y = -4, z = -3}), schem)
  96         return spawn
  97 end
  98
  99 -- node
 100
 101 minetest.register_node("elidragon:skyblock", {
 102         description = "Skyblock",
 103         tiles = {"elidragon_quest.png"},
 104         paramtype = "light",
 105         light_source = 14,
 106         groups = {crumbly=2, cracky=2},
 107 })
 108
 109 minetest.register_alias("skyblock:quest", "elidragon:skyblock")
 110
 111 -- mapgen
 112
 113 minetest.register_on_mapgen_init(function(mgparams)
 114         minetest.set_mapgen_params({mgname = "singlenode", water_level = -32000})
 115 end)
 116
 117 -- respawn
 118
 119 minetest.register_on_respawnplayer(function(player)
 120         elidragon.skyblock.spawn_player(player)
 121         return true
 122 end)
 123
 124 -- remove legacy cloud layer
 125
 126 minetest.register_abm({
 127         nodenames = {"default:cloud"},
 128         label = "elidragon:remove_cloud_layer",
 129         interval = 1,
 130         chance = 1,
 131         action = function(pos)
 132                 if pos.y == -10 then
 133                         minetest.remove_node(pos)
 134                 end
 135         end
 136 })
 137
 138 -- remove inventory from quest block
 139
 140 minetest.register_lbm({
 141         nodenames = {"elidragon:skyblock", "skyblock:quest"},
 142         name = "elidragon:remove_inventory_from_quest_block",
 143         action = function(pos)
 144                 minetest.get_meta(pos):set_string("formspec", "")
 145                 minetest.get_meta(pos):set_string("infotext", "")
 146         end
 147 })
 148
 149 -- ores
 150
 151 minetest.after(0, function()
 152         default.cool_lava = function(pos, oldnode)
 153                 local node
 154                 if oldnode.name == "default:lava_source" then
 155                         node = "default:obsidian"
 156                 elseif math.random() < 0.0001 then
 157                         node = "moreores:mineral_mithril"
 158                 elseif math.random() < 0.0003 then
 159                         node = "default:stone_with_diamond"
 160                 elseif math.random() < 0.0005 then
 161                         node = "default:stone_with_mese"
 162                 elseif math.random() < 0.001 then
 163                         node = "default:stone_with_gold"
 164                 elseif math.random() < 0.001 then
 165                         node = "technic:mineral_chromium"
 166                 elseif math.random() < 0.001 then
 167                         node = "technic:mineral_zinc"
 168                 elseif math.random() < 0.0012 then
 169                         node = "technic:mineral_uranium"
 170                 elseif math.random() < 0.0015 then
 171                         node = "default:stone_with_tin"
 172                 elseif math.random() < 0.002 then
 173                         node = "default:stone_with_copper"
 174                 elseif math.random() < 0.0025 then
 175                         node = "technic:mineral_sulfur"
 176                 elseif math.random() < 0.0033 then
 177                         node = "default:stone_with_iron"
 178                 elseif math.random() < 0.004 then
 179                         node = "moreores:mineral_silver"
 180                 elseif math.random() < 0.0045 then
 181                         node = "technic:mineral_lead"
 182                 elseif math.random() < 0.005 then
 183                         node = "default:stone_with_coal"
 184                 else
 185                         node = "default:stone"
 186                 end
 187                 minetest.set_node(pos, {name = node})
 188                 minetest.sound_play("default_cool_lava", {pos = pos, max_hear_distance = 16, gain = 0.25}, true)
 189         end
 190 end)
 191
 192 -- saplings
 193
 194 minetest.after(0, function()
 195         minetest.register_alias("default:pine_leaves", "default:pine_needles")
 196         minetest.register_alias("default:pine_bush_leaves", "default:pine_bush_needles")
 197         local trees = {"default:", "default:jungle", "default:pine_", "default:acacia_", "default:aspen_", "default:bush_", "default:blueberry_bush_", "default:acacia_bush_", "default:pine_bush_", "moretrees:apple_tree_", "moretrees:beech_", "moretrees:cedar_", "moretrees:date_palm_", "moretrees:fir_", "moretrees:oak_", "moretrees:palm_", "moretrees:poplar_", "moretrees:sequoia_", "moretrees:spruce_", "moretrees:willow_", }
 198         for _, tree in pairs(trees) do
 199                 local items = {}
 200                 items[#items + 1] = {
 201                         items = {tree .. "sapling"},
 202                         rarity = 20,
 203                 }
 204                 for _, stree in pairs(trees) do
 205                         if stree ~= tree then
 206                                 items[#items + 1] = {
 207                                         items = {stree .. "sapling"},
 208                                         rarity = 10000,
 209                                 }
 210                         end
 211                 end
 212                 items[#items + 1] = {
 213                         items = {tree .. "leaves"},
 214                 }
 215                 minetest.registered_nodes[tree .. "leaves"].drop = {max_items = 1, items = items}
 216         end
 217 end)
 218
 219 -- flowers
 220
 221 minetest.register_abm({
 222         nodenames = {"default:dirt_with_grass"},
 223         interval = 300,
 224         chance = 100,
 225         action = function(pos, node)
 226                 pos.y = pos.y + 1
 227                 local light = minetest.get_node_light(pos) or 0
 228                 if minetest.get_node(pos).name == "air" and light > 12 and not minetest.find_node_near(pos, 2, {"group:flora"}) then
 229                         local flowers = {"default:junglegrass", "default:grass_1", "flowers:dandelion_white", "flowers:dandelion_yellow", "flowers:geranium", "flowers:rose", "flowers:tulip", "flowers:tulip_black", "flowers:viola", "flowers:chrysanthemum_green"}
 230                         minetest.set_node(pos, {name = flowers[math.random(#flowers)]})
 231                 end
 232         end
 233 })
 234
 235 -- recipes
 236
 237 minetest.register_craft({
 238         output = "default:desert_sand",
 239         recipe = {
 240                 {"default:sand"},
 241                 {"default:gravel"},
 242         }
 243 })
 244
 245 minetest.register_craft({
 246         output = "default:desert_stone",
 247         recipe = {
 248                 {"default:desert_sand", "default:desert_sand", "default:desert_sand"},
 249                 {"default:desert_sand", "default:desert_sand", "default:desert_sand"},
 250                 {"default:desert_sand", "default:desert_sand", "default:desert_sand"},
 251         }
 252 })
 253
 254 minetest.register_craft({
 255         output = "default:sand 4",
 256         recipe = {
 257                 {"default:obsidian_shard"},
 258         }
 259 })
 260
 261 minetest.register_craft({
 262         output = "default:gravel 2",
 263         recipe = {
 264                 {"default:cobble"},
 265         }
 266 })
 267
 268 minetest.register_craft({
 269         output = "default:dirt 2",
 270         recipe = {
 271                 {"default:gravel"},
 272         }
 273 })
 274
 275 minetest.register_craft({
 276         output = "default:clay_lump 4",
 277         recipe = {
 278                 {"default:dirt"},
 279         }
 280 })
 281
 282 minetest.register_craft({
 283         output = "default:ice",
 284         recipe = {
 285                 {"bucket:bucket_water"},
 286         }
 287 })
 288
 289 minetest.register_craft({
 290         output = "default:snowblock 4",
 291         recipe = {
 292                 {"default:ice"},
 293         }
 294 })
 295
 296 minetest.register_craft({
 297         type = "cooking",
 298         output = "default:lava_source",
 299         recipe = "default:stone",
 300 })
 301
 302 minetest.register_craft({
 303         output = "default:silver_sand 9",
 304         recipe = {
 305                 {"default:sand", "default:sand", "default:sand"},
 306                 {"default:sand", "moreores:silver_lump", "default:sand"},
 307                 {"default:sand", "default:sand", "default:sand"},
 308         }
 309 })
 310
 311 -- commands
 312
 313 minetest.register_chatcommand("island", {
 314         params = "",
 315         description = "Teleport to your Island",
 316         func = function(name, param)
 317                 local player = minetest.get_player_by_name(name)
 318                 if not player then return end
 319                 elidragon.skyblock.spawn_player(player)
 320         end,
 321 })
 322
 323 minetest.register_chatcommand("set_skyblock_spawn", {
 324         params = "<name> <x> <y> <z>",
 325         description = "Set new skyblock spawn for <name>",
 326         privs = {server = true},
 327         func = function(sender, param)
 328                 local name = param:split(" ")[1]
 329                 local x = tonumber(param:split(" ")[2])
 330                 local y = tonumber(param:split(" ")[3])
 331                 local z = tonumber(param:split(" ")[4])
 332                 if name and x and y and z and minetest.get_player_by_name(name) then
 333                         elidragon.skyblock.set_spawn(minetest.get_player_by_name(name), {x = x, y = y, z = z})
 334                 else
 335                         minetest.chat_send_player(sender, "Invalid usage or player not online")
 336                 end
 337         end,
 338 })