some stuff that got left out

master
D00Med 2017-07-02 13:17:45 +10:00
parent bffab3e7dd
commit 17f5638f04
2 changed files with 286 additions and 16 deletions

View File

@ -12,14 +12,23 @@ minetest.register_craftitem("default:paper", {
groups = {flammable = 3},
})
local lpp = 14 -- Lines per book's page
local function book_on_use(itemstack, user)
local player_name = user:get_player_name()
local data = minetest.deserialize(itemstack:get_metadata())
local meta = itemstack:get_meta()
local title, text, owner = "", "", player_name
local page, page_max, lines, string = 1, 1, {}, ""
if data then
-- Backwards compatibility
local old_data = minetest.deserialize(itemstack:get_metadata())
if old_data then
meta:from_table({ fields = old_data })
end
local data = meta:to_table().fields
if data.owner then
title = data.title
text = data.text
owner = data.owner
@ -63,6 +72,7 @@ local function book_on_use(itemstack, user)
end
minetest.show_formspec(player_name, "default:book", formspec)
return itemstack
end
minetest.register_on_player_receive_fields(function(player, formname, fields)
@ -81,35 +91,42 @@ minetest.register_on_player_receive_fields(function(player, formname, fields)
new_stack = ItemStack("default:book_written")
end
else
data = minetest.deserialize(stack:get_metadata())
data = stack:get_meta():to_table().fields
end
if data and data.owner and data.owner ~= player:get_player_name() then
return
end
if not data then data = {} end
data.title = fields.title
data.owner = player:get_player_name()
data.description = "\""..fields.title.."\" by "..data.owner
data.text = fields.text
data.text_len = #data.text
data.page = 1
data.page_max = math.ceil((#data.text:gsub("[^\n]", "") + 1) / lpp)
data.owner = player:get_player_name()
local data_str = minetest.serialize(data)
if new_stack then
new_stack:set_metadata(data_str)
new_stack:get_meta():from_table({ fields = data })
if inv:room_for_item("main", new_stack) then
inv:add_item("main", new_stack)
else
minetest.add_item(player:getpos(), new_stack)
end
else
stack:set_metadata(data_str)
stack:get_meta():from_table({ fields = data })
end
elseif fields.book_next or fields.book_prev then
local data = minetest.deserialize(stack:get_metadata())
local data = stack:get_meta():to_table().fields
if not data or not data.page then
return
end
data.page = tonumber(data.page)
data.page_max = tonumber(data.page_max)
if fields.book_next then
data.page = data.page + 1
if data.page > data.page_max then
@ -122,11 +139,11 @@ minetest.register_on_player_receive_fields(function(player, formname, fields)
end
end
local data_str = minetest.serialize(data)
stack:set_metadata(data_str)
book_on_use(stack, player)
stack:get_meta():from_table({fields = data})
stack = book_on_use(stack, player)
end
-- Update stack
player:set_wielded_item(stack)
end)
@ -167,13 +184,69 @@ minetest.register_on_craft(function(itemstack, player, old_craft_grid, craft_inv
if not original then
return
end
local copymeta = original:get_metadata()
local copymeta = original:get_meta():to_table()
-- copy of the book held by player's mouse cursor
itemstack:set_metadata(copymeta)
itemstack:get_meta():from_table(copymeta)
-- put the book with metadata back in the craft grid
craft_inv:set_stack("craft", index, original)
end)
minetest.register_craftitem("default:skeleton_key", {
description = "Skeleton Key",
inventory_image = "default_key_skeleton.png",
groups = {key = 1},
on_use = function(itemstack, user, pointed_thing)
if pointed_thing.type ~= "node" then
return itemstack
end
local pos = pointed_thing.under
local node = minetest.get_node(pos)
if not node then
return itemstack
end
local on_skeleton_key_use = minetest.registered_nodes[node.name].on_skeleton_key_use
if not on_skeleton_key_use then
return itemstack
end
-- make a new key secret in case the node callback needs it
local random = math.random
local newsecret = string.format(
"%04x%04x%04x%04x",
random(2^16) - 1, random(2^16) - 1,
random(2^16) - 1, random(2^16) - 1)
local secret, _, _ = on_skeleton_key_use(pos, user, newsecret)
if secret then
local inv = minetest.get_inventory({type="player", name=user:get_player_name()})
-- update original itemstack
itemstack:take_item()
-- finish and return the new key
local new_stack = ItemStack("default:key")
local meta = new_stack:get_meta()
meta:set_string("secret", secret)
meta:set_string("description", "Key to "..user:get_player_name().."'s "
..minetest.registered_nodes[node.name].description)
if itemstack:get_count() == 0 then
itemstack = new_stack
else
if inv:add_item("main", new_stack):get_count() > 0 then
minetest.add_item(user:getpos(), new_stack)
end -- else: added to inventory successfully
end
return itemstack
end
end
})
minetest.register_craftitem("default:coal_lump", {
description = "Coal Lump",
inventory_image = "default_coal_lump.png",
@ -190,11 +263,16 @@ minetest.register_craftitem("default:copper_lump", {
inventory_image = "default_copper_lump.png",
})
minetest.register_craftitem("default:tin_lump", {
description = "Tin Lump",
inventory_image = "default_tin_lump.png",
})
--[[
minetest.register_craftitem("default:mese_crystal", {
description = "Mese Crystal",
inventory_image = "default_mese_crystal.png",
})]]
})
]]
minetest.register_craftitem("default:gold_lump", {
description = "Gold Lump",
@ -221,6 +299,11 @@ minetest.register_craftitem("default:copper_ingot", {
inventory_image = "default_copper_ingot.png",
})
minetest.register_craftitem("default:tin_ingot", {
description = "Tin Ingot",
inventory_image = "default_tin_ingot.png",
})
minetest.register_craftitem("default:bronze_ingot", {
description = "Bronze Ingot",
inventory_image = "default_bronze_ingot.png",
@ -230,11 +313,12 @@ minetest.register_craftitem("default:gold_ingot", {
description = "Gold Ingot",
inventory_image = "default_gold_ingot.png"
})
--[[
minetest.register_craftitem("default:mese_crystal_fragment", {
description = "Mese Crystal Fragment",
inventory_image = "default_mese_crystal_fragment.png",
})
]]
minetest.register_craftitem("default:clay_brick", {
description = "Clay Brick",
@ -250,4 +334,3 @@ minetest.register_craftitem("default:flint", {
description = "Flint",
inventory_image = "default_flint.png"
})

187
mods/weather/init.lua Normal file
View File

@ -0,0 +1,187 @@
if minetest.setting_get("enable_weather") then
local weathers = {
{"snow", "rain", "storm", "dust", "insects", "none"},
}
local nodes = {
{{"default:snow", "default:snowblock"}, nil, nil, {"default:desert_sand"}, {"group:flower",}, nil}
}
weather = {}
minetest.register_node("weather:ice", {
description = "ice sheet",
tiles = {
"weather_ice.png",
},
use_texture_alpha = true,
drawtype = "nodebox",
paramtype = "light",
node_box = {
type = "fixed",
fixed = {
{-0.5, -0.5, -0.5, 0.5, -0.4375, 0.5}, -- NodeBox1
}
},
drop = "",
groups = {cracky=1, oddly_breakable_by_hand=1},
sounds = default.node_sound_glass_defaults(),
})
local apply_weather = function(player, pos, weather_type)
if weather_type == nil then return end
--weather effects
if weather_type == "snow" then
if minetest.get_timeofday()*24000 >= 6000 and minetest.get_timeofday()*24000 <= 19000 then
player:set_sky({r=208, g=223, b=238}, "plain", nil, true)
end
for i=1,12 do
minetest.add_particle({
pos = {x=pos.x+math.random(-10,10), y=pos.y+math.random(12,17), z=pos.z+math.random(-10,10)},
velocity = {x=math.random(-5,5)/10, y=math.random(-4,-6), z=math.random(-5,5)/10},
acceleration = {x=math.random(-1,1)/10, y=math.random(-5,-10)/10, z=math.random(-1,1)/10},
expirationtime = 3,
size = math.random(3,5),
collisiondetection = true,
collision_removal = true,
vertical = false,
texture = "weather_snow_"..math.random(1,2)..".png",
glow = 0
})
local water = minetest.find_node_near({x=pos.x+math.random(-7,7), y=pos.y+math.random(-4,4), z=pos.z+math.random(-7,7)}, 10, {"default:water_source", "default:river_water_source"}, true)
if not water then return end
water.y = water.y+1
if minetest.get_node(water).name == "air" then
minetest.set_node(water, {name="weather:ice"})
end
end
elseif weather_type == "rain" then
if minetest.get_timeofday()*24000 >= 6000 and minetest.get_timeofday()*24000 <= 19000 then
player:set_sky({r=177, g=177, b=177}, "plain", nil, true)
end
for i=1,12 do
minetest.add_particle({
pos = {x=pos.x+math.random(-10,10), y=pos.y+math.random(12,17), z=pos.z+math.random(-10,10)},
velocity = {x=0, y=math.random(-15,-20), z=0},
acceleration = {x=0, y=-1, z=0},
expirationtime = 2,
size = math.random(3,5),
collisiondetection = true,
collision_removal = true,
vertical = true,
texture = "weather_rain_"..math.random(1,2)..".png",
glow = 0
})
end
elseif weather_type == "storm" then
if minetest.get_timeofday()*24000 >= 6000 and minetest.get_timeofday()*24000 <= 19000 then
player:set_sky({r=101, g=101, b=101}, "plain", nil, true)
end
for i=1,25 do
minetest.add_particle({
pos = {x=pos.x+math.random(-10,10), y=pos.y+math.random(12,17), z=pos.z+math.random(-10,10)},
velocity = {x=0, y=math.random(-25,-30), z=0},
acceleration = {x=0, y=-1, z=0},
expirationtime = 2,
size = math.random(3,5),
collisiondetection = true,
collision_removal = true,
vertical = true,
texture = "weather_rain_3.png",
glow = 0
})
if minetest.get_modpath("lightning") and math.random(1,2000) == 1 then
lightning.strike()
end
end
elseif weather_type == "dust" then
if minetest.get_timeofday()*24000 >= 6000 and minetest.get_timeofday()*24000 <= 19000 then
player:set_sky({r=215, g=156, b=91}, "plain", nil, true)
end
for i=1,12 do
minetest.add_particle({
pos = {x=pos.x+math.random(-10,10), y=pos.y+math.random(1,3)/10, z=pos.z+math.random(-10,10)},
velocity = {x=1, y=math.random(1,2), z=1},
acceleration = {x=4, y=math.random(2,3)/10, z=4},
expirationtime = 0.5,
size = math.random(3,5),
collisiondetection = true,
collision_removal = true,
vertical = false,
texture = "weather_dust_1.png",
glow = 0
})
end
elseif weather_type == "insects" then
player:set_sky(nil, "regular", nil, true)
elseif weather_type == "none" then
player:set_sky(nil, "regular", nil, true)
return
end
end
minetest.register_on_joinplayer(function()
if math.random(1,500) == 1 then
for _, row in ipairs(weathers) do
local num = math.random(1,7)
weather.current = num
weather.weather = row[num]
end
end
end)
minetest.register_globalstep(function(dtime)
if math.random(1,4) ~= 4 then return end
--select random weather (serverwide)
if math.random(1,5000) == 1 then
for _, row in ipairs(weathers) do
local num = math.random(1,6)
weather.current = num
weather.weather = row[num]
end
end
--player specific
for _, player in ipairs(minetest.get_connected_players()) do
local pos = player:getpos()
--check if weather should occur at current location
local display_weather = false
for _, row in ipairs(nodes) do
if row[weather.current] ~= nil and minetest.find_node_near(pos, 5, row[weather.current]) then
display_weather = true
elseif row[weather.current] == nil then
display_weather = true
else
display_weather = false
end
end
--apply weather effect
if display_weather then
apply_weather(player, pos, weather.weather)
else
apply_weather(player, pos, "none")
end
end
end)
minetest.register_privilege("weather", {
description = "Allows control of weather",
give_to_singleplayer = false
})
minetest.register_chatcommand("change_weather", {
params = "<weather_type>",
description = "Sets weather to the given type",
privs = {weather = true},
func = function(name, param)
weather.weather = param
for _, row in ipairs(weathers) do
for i=1,7 do
if row[i] == param then
weather.current = i
end
end
end
end,
})
end