elepower/elepower_tome/init.lua
2021-07-01 09:30:59 +10:00

237 lines
8.1 KiB
Lua

---------------------------------------------------
-- ___ _ --
-- | __| |___ _ __ _____ __ _____ _ _ --
-- | _|| / -_) '_ \/ _ \ V V / -_) '_| --
-- |___|_\___| .__/\___/\_/\_/\___|_| --
-- |_| --
-- _____ --
-- |_ _|__ _ __ ___ --
-- | |/ _ \ ' \/ -_) --
-- |_|\___/_|_|_\___| --
---------------------------------------------------
-- --
---------------------------------------------------
-- Global variable for mod
eletome = rawget(_G, "eletome") or {}
-- path, modname and translation
local modname = minetest.get_current_modname()
local modpath = minetest.get_modpath(modname)
eletome.S = minetest.get_translator(modname)
local S = eletome.S
-- includes
dofile(modpath .. "/i_eletome_additional_info.lua")
dofile(modpath .. "/i_functions.lua")
dofile(modpath .. "/i_page_contents.lua")
dofile(modpath .. "/i_page_crafts.lua")
dofile(modpath .. "/i_page_machines.lua")
dofile(modpath .. "/i_page_instructions.lua")
dofile(modpath .. "/i_page_help.lua")
-- register our Tome/Book item
minetest.register_craftitem("elepower_tome:tome", {
description = "Elepower Tome",
inventory_image = "elepower_tome.png",
groups = {book = 1, flammable = 3},
on_use = function(itemstack, user, pointed_thing)
local eletome_bg = eletome.tome_bg
local eletome_contents = eletome.contents_page()
minetest.show_formspec(user:get_player_name(), "elepower_tome:tome", eletome_bg..eletome_contents)
end,
})
-- Give player elepower tome on initial logon
minetest.register_on_newplayer(function(player)
player:get_inventory():add_item("main", "elepower_tome:tome")
end)
-- Player tome meta - setup back button meta
minetest.register_on_joinplayer(function(player)
local pmeta = player:get_meta()
local back = {}
pmeta:set_string("elepower_tome_back", minetest.serialize(back))
end)
-- register our recieve field callback
minetest.register_on_player_receive_fields(function(player, formname, fields)
if formname ~= "elepower_tome:tome" then
return
end
-- Back Button
local pmeta = player:get_meta()
local back = minetest.deserialize(pmeta:get_string("elepower_tome_back"))
local show_back = ""
if fields.quit == "true" then
back = {}
pmeta:set_string("elepower_tome_back", minetest.serialize(back))
elseif fields.back then
local prev_page = #back-1
if prev_page <= 0 then
-- must be going back to contents
fields = {}
back = {}
pmeta:set_string("elepower_tome_back", minetest.serialize(back))
fields.content = "Content"
else
fields = back[prev_page]
table.remove(back,#back)
table.remove(back,#back-1)
pmeta:set_string("elepower_tome_back", minetest.serialize(back))
end
else
table.insert(back,fields)
pmeta:set_string("elepower_tome_back", minetest.serialize(back))
end
if #back > 0 then
show_back = eletome.back_button
end
-- Clicked contents button on any page.
if fields.content then
local eletome_bg = eletome.tome_bg..show_back
local eletome_contents = eletome.contents_page()
minetest.show_formspec(player:get_player_name(), "elepower_tome:tome", eletome_bg..eletome_contents)
end
-- Clicked a craft link on contents
if fields.craft_click then
local eletome_bg = eletome.tome_bg..show_back
local eletome_craft = eletome.craft_page(fields.craft_click)
minetest.show_formspec(player:get_player_name(), "elepower_tome:tome", eletome_bg..eletome_craft)
end
-- Clicked craft bwd/fwd button on craft sub-page
if fields.craft_bwd_fwd then
local page_num = string.match(fields.craft_bwd_fwd , "%s(%w+)%s")
-- eletome.craft_page() expects description in format "something:craft_description"
local craft_value = "cd:"..fields.description
local eletome_bg = eletome.tome_bg..show_back
local eletome_craft = eletome.craft_page(craft_value,page_num)
minetest.show_formspec(player:get_player_name(), "elepower_tome:tome", eletome_bg..eletome_craft)
end
-- Clicked Machine page
if fields.machine then
local eletome_bg = eletome.tome_bg..show_back
local eletome_machine = eletome.machines(fields.machine)
minetest.show_formspec(player:get_player_name(), "elepower_tome:tome", eletome_bg..eletome_machine)
end
-- Clicked Machine bwd/fwd button on Machine page
if fields.mach_bwd_fwd then
local page_num = string.match(fields.mach_bwd_fwd, "%s(%w+)%s")
local mach_value = fields.description
local eletome_bg = eletome.tome_bg..show_back
local eletome_machine = eletome.machines(mach_value,page_num)
minetest.show_formspec(player:get_player_name(), "elepower_tome:tome", eletome_bg..eletome_machine)
end
-- Clicked Instructions page
if fields.instructions then
local eletome_bg = eletome.tome_bg..show_back
local eletome_instruct = eletome.instructions_page(fields.description)
minetest.show_formspec(player:get_player_name(), "elepower_tome:tome", eletome_bg..eletome_instruct)
end
-- Clicked Large Image page
if fields.large_image then
local eletome_bg = eletome.tome_bg..show_back
local eletome_lrg_img = eletome.large_image_page(fields.description)
minetest.show_formspec(player:get_player_name(), "elepower_tome:tome", eletome_bg..eletome_lrg_img)
end
-- Clicked Help page
if fields.help then
local eletome_bg = eletome.tome_bg..show_back
local eletome_how_use = eletome.how_use_page(fields.help)
minetest.show_formspec(player:get_player_name(), "elepower_tome:tome", eletome_bg..eletome_how_use)
end
-- Clicked How to use page
if fields.description == "action:machine-ele_user" then
local how_use = false
local node_name
for k,v in pairs(eletome.ai.nodes) do
if fields[k] then
if eletome.ai.nodes[k].how_use_1 then
how_use = true
node_name = k
end
end
end
if how_use then
local eletome_bg = eletome.tome_bg..show_back
local eletome_how_use = eletome.how_use_page(node_name)
minetest.show_formspec(player:get_player_name(), "elepower_tome:tome", eletome_bg..eletome_how_use)
end
end
--minetest.debug(dump(fields))
end)
-------------------
-- Page Defaults --
-------------------
eletome.tome_bg = "formspec_version[4]size[18,11]"..
"bgcolor[#003782;true]".. -- fails (my understanding limitation)
"box[0.0,0.0;18,11;#003782]".. -- workaround the above
"box[0.5,0.5;8.5,10;#d1caaeFF]"..
"box[9.0,0.5;8.5,10;#d1caaeFF]"..
"style_type[button;bgcolor=#003782]"..
"style_type[button_exit;bgcolor=#003782]"..
"button[0,0;2.5,0.5;content;Content]"..
"style[fake_back;textcolor=#777777]"..
"button[2.5,0;2.5,0.5;fake_back;Back]"..
"style[fake_prev_page;textcolor=#777777]"..
"button[12.5,0;2.5,0.5;fake_prev_page;<< Prev]"..
"style[fake_next_page;textcolor=#777777]"..
"button[15,0;2.5,0.5;fake_prev_page;Next >>]"..
"button_exit[17.5,0;0.5,0.5;X;X]"
eletome.back_button = "style[back;textcolor=#ffffff]".."button[2.5,0;2.5,0.5;back;Back]"
eletome.font_color = "#1f1f1fFF"
eletome.y_space_line = 0.4
eletome.char_per_line = 60
eletome.tooltip_color = "#30434c;#f9f9f9"
-- Common style components - some end duplicates but kept for ease of reading/updating later
-- s = start ie pre text
-- e = end ie post text
-- Used for hypertext
eletome.common_styles = {
style_h0s = "<style color="..eletome.font_color.." size=26><b><center>",
style_h0e = "</center></b></style>",
style_h1s = "<style color="..eletome.font_color.." size=20><b><center>",
style_h1e = "</center></b></style>",
style_h2s = "<style color="..eletome.font_color.." size=18><center>",
style_h2e = "</center></style>",
style_h3s = "<style color="..eletome.font_color.." size=14><center>",
style_h3e = "</center></style>", -- approximate default "label" size
style_h4s = "<style color="..eletome.font_color.." size=12><center>",
style_h4e = "</center></style>"
}