functions.lua

local S = mobs_npc.S
local mcl = minetest.get_modpath("mcl_core") ~= nil
local def = minetest.get_modpath("default") ~= nil


-- show random message from list
mobs_npc.npc_talk =  function(self, player, message_list)

	local name = player:get_player_name() or ""
	local messages = message_list or self.messages or {"??"}

	if messages then

		local msg = messages[math.random(#messages)]

		minetest.chat_send_player(name, "<" .. (self.nametag or "") .. "> " .. msg)
	end
end


-- drop random item from list
mobs_npc.drop_trade = function(self, player, item, item_list)

	local w_inv = player:get_wielded_item()

	if item ~= w_inv:get_name() then return end

	local name = player:get_player_name()

	if not mobs.is_creative(name) then
		w_inv:take_item()
		player:set_wielded_item(w_inv)
	end

	local pos = self.object:get_pos()
	local drops = item_list
	local drop = drops[math.random(#drops)]
	local chance = 1

	if type(drop) == "table" then
		chance = drop[2] or 1
		drop = drop[1]
	end

	if not minetest.registered_items[drop]
	or math.random(chance) > 1 then
		drop = mcl and "mcl_core:clay_lump" or "default:clay_lump"
	end

	local obj = minetest.add_item(pos, {name = drop})
	local dir = player:get_look_dir()

	obj:set_velocity({x = -dir.x, y = 1.5, z = -dir.z})

	return true
end


-- check for simple_dialogs mod and setup
local context = {}

mobs_npc.useDialogs = "N"

minetest.register_on_leaveplayer(function(player)
	context[player:get_player_name()] = nil
end)

if minetest.get_modpath("simple_dialogs") then

	mobs_npc.useDialogs = "Y"

	simple_dialogs.register_varloader(function(npcself, playername)
		simple_dialogs.save_dialog_var(npcself, "NPCNAME", npcself.nametag, playername)
		simple_dialogs.save_dialog_var(npcself, "STATE", npcself.state, playername)
		simple_dialogs.save_dialog_var(npcself, "FOOD", npcself.food, playername)
		simple_dialogs.save_dialog_var(npcself, "HEALTH", npcself.health, playername)
		simple_dialogs.save_dialog_var(npcself, "owner", npcself.owner, playername)
	end)

	simple_dialogs.register_hook(function(npcself, playername,hook)

		if hook.func == "TELEPORT" then

			if npcself.owner then

				--check to see if the player has 'bring' teleport privliges
				local player_privs = minetest.get_player_privs(npcself.owner)

				if player_privs["bring"] then

					--validate x,y,z coords
					if hook.parm and hook.parmcount and hook.parmcount > 2 then

						local pos = {
							x = tonumber(hook.parm[1]),
							y = tonumber(hook.parm[2]),
							z = tonumber(hook.parm[3])
						}

						if pos.x and pos.y and pos.z
						and pos.x > -31500 and pos.x < 31500
						and pos.y > -31500 and pos.y < 31500
						and pos.z > -31500 and pos.z < 31500 then

							local player = minetest.get_player_by_name(playername)

							if player then
								player:set_pos(pos) end
						end
					end
				end
			end
			return "EXIT"
		end
	end)
end


-- Kilarin's formspec functions
function mobs_npc.get_controls_formspec(name, self)

	self.id = set_npc_id(self) -- make sure id is set

	local currentordermode = self.order
	local npcId = self.id
	local orderArray = {"wander", "stand", "follow"}
	local currentorderidx = 1

	for i = 1, 3 do  --this seems like a clumsy way to do this
		if orderArray[i] == currentordermode then
			currentorderidx = i
			break
		end
	end

	-- Make npc controls formspec
	local text = "NPC Controls"
	local size = mobs_npc.useDialogs == "Y" and "size[15,10]" or "size[3.85,2.8]"
	local formspec = {
		size,
		"label[0.375,0.5;", minetest.formspec_escape(text), "]",
		"dropdown[0.375,1.25; 3,0.6;ordermode;wander,stand,follow;", currentorderidx, "]",
		"button[0.375,2;3,0.8;exit;Exit]"
	}

	if mobs_npc.useDialogs == "Y" then
		simple_dialogs.add_dialog_control_to_formspec(name, self, formspec, 0.375, 3.4)
	end

	table.concat(formspec, "")

	--store npc id in local context so we can use it when the form is returned
	context[name] = npcId

	return table.concat(formspec, "")
end


-- receive and do orders given through form
minetest.register_on_player_receive_fields(function(player, formname, fields)

	local pname = player:get_player_name()

	if formname ~= "mobs_npc:controls" then

		if context[pname] then context[pname] = nil end

		return
	end

	local npcId = context[pname] or nil --get the npc id from local context
	local npcself = get_npcself_from_id(npcId)

	if npcself ~= nil then

		if fields["exit"] then

			minetest.close_formspec(pname, "mobs_npc:controls")

		elseif fields["ordermode"] then

			local pname = player:get_player_name()

			npcself.order = fields["ordermode"]

			if npcself.order == "wander" then

--				minetest.chat_send_player(pname, S("NPC will wander."))

			elseif npcself.order == "stand" then

				npcself.state = "stand"
				npcself.attack = nil
				npcself:set_animation("stand")
				npcself:set_velocity(0)

--				minetest.chat_send_player(pname, S("NPC stands still."))

			elseif npcself.order == "follow" then
--				minetest.chat_send_player(pname, S("NPC will follow you."))
			end
		end

		if mobs_npc.useDialogs == "Y" then
			simple_dialogs.process_simple_dialog_control_fields(pname, npcself, fields)
		end
	end
end)


-- check if npc has id set otherwise create one
function set_npc_id(npcself)

	if not npcself.id then
		npcself.id = (math.random(1, 1000) * math.random(1, 10000))
			.. npcself.name .. (math.random(1, 1000) ^ 2)
	end

	return npcself.id
end


--this function finds an npcself in the luaentities list given an npcId
function get_npcself_from_id(npcId)

	if npcId == nil then return nil end

	for k, v in pairs(minetest.luaentities) do

		if v.object and v.id and v.id == npcId then
			return v
		end
	end
end



--This code comes almost exclusively from the trader and inventory of mobf, by Sapier.
--The copyright notice below is from mobf:
-------------------------------------------------------------------------------
-- Mob Framework Mod by Sapier
--
-- You may copy, use, modify or do nearly anything except removing this
-- copyright notice.
-- And of course you are NOT allow to pretend you have written it.
--
--! @file inventory.lua
--! @brief component containing mob inventory related functions
--! @copyright Sapier
--! @author Sapier
--! @date 2013-01-02
--
--! @defgroup Inventory Inventory subcomponent
--! @brief Component handling mob inventory
--! @ingroup framework_int
--! @{
--
-- Contact sapier a t gmx net
-------------------------------------------------------------------------------

-- This code has been heavily modified by isaiah658.
-- Trades are saved in entity metadata so they always stay the same after
-- initially being chosen.  Also the formspec uses item image buttons instead of
-- inventory slots.

local function add_goods(self, race)

	local trade_index = 1
	local trades_already_added = {}
	local trader_pool_size = 10
	local item_pool_size = #race.items -- get number of items on list

	self.trades = {}

	if item_pool_size < trader_pool_size then
		trader_pool_size = item_pool_size
	end

	for i = 1, trader_pool_size do

		-- If there are more trades than the amount being added, they are
		-- randomly selected.  If they are equal, there is no reason to randomly
		-- select them
		local random_trade = nil

		if item_pool_size == trader_pool_size then
			random_trade = i
		else
			while random_trade == nil do

				local num = math.random(item_pool_size)

				if trades_already_added[num] == nil then
					trades_already_added[num] = true
					random_trade = num
				end
			end
		end

		if math.random(0, 100) > race.items[random_trade][3] then

			self.trades[trade_index] = {
				race.items[random_trade][1],
				race.items[random_trade][2]
			}

			trade_index = trade_index + 1
		end
	end
end


function mobs_npc.shop_trade(self, clicker, race)

	self.id = set_npc_id(self) -- make sure id is set

	if not self.game_name then

		self.game_name = tostring(race.names[math.random(1, #race.names)])
		self.nametag = S("Trader @1", self.game_name)

		self.object:set_properties({
			nametag = self.nametag,
			nametag_color = "#00FF00"
		})
	end

	if self.trades == nil then
		add_goods(self, race)
	end

	local player = clicker:get_player_name() or ""

	-- Make formspec trade list
	local formspec_trade_list = ""
	local x, y

	for i = 1, 10 do

		if self.trades[i] and self.trades[i] ~= "" then

			if i < 6 then
				x = mcl and 1 or 0.5
				y = i - 0.5
			else
				x = mcl and 5 or 4.5
				y = i - 5.5
			end

			local function count_label_at(px, py, count)
                if type(count) ~= "number" or count <= 1 then
                    return ""
                end
                -- Overlay near bottom-right of the 1x1 image button.
                return "label[" .. (px + 0.62) .. "," .. (py + 0.45) .. ";"
                    .. minetest.formspec_escape(tostring(count)) .. "]"
            end


            local function inv_image_from_def(itemname, itemdef)
                if itemdef then
                    if itemdef.inventory_image and itemdef.inventory_image ~= "" then
                        return itemdef.inventory_image
                    elseif itemdef.wield_image and itemdef.wield_image ~= "" then
                        return itemdef.wield_image
                    else
                        local node_def = minetest.registered_nodes[itemname]
                        if node_def then
                            --  tiles = {tile definition 1, def2, def3, def4, def5, def6},
                            -- Textures of node; +Y, -Y, +X, -X, +Z, -Z
                            -- List can be shortened to needed length.
                            local tiles = node_def.tiles
                            return minetest.inventorycube(
                                tiles[1] or tiles[2] or tiles[3] or tiles[4] or tiles[5] or tiles[6] or itemname .. ".png")
                        end
                    end
                end
            
                return (itemname:gsub(":", "_") .. ".png")
            end


            local price = self.trades[i][2]
            local goods = self.trades[i][1]

            local psplit = price:split(" ")
            local gsplit = goods:split(" ")

            local pdef = minetest.registered_items[psplit[1]]
            local gdef = minetest.registered_items[gsplit[1]]

            -- replace : with _ 
            local price_image = inv_image_from_def(psplit[1], pdef) or ""
            local price_count = tonumber(psplit[2]) or 1

            local goods_image = inv_image_from_def(gsplit[1], gdef) or ""
            local goods_count = tonumber(gsplit[2]) or 1

            formspec_trade_list = formspec_trade_list
            .. "image_button[".. x ..",".. y ..";1,1;"
                .. price_image .. ";prices#".. i .."#".. self.id ..";]"
            .. count_label_at(x, y, price_count)
             .. "image_button[".. x + 2 ..",".. y ..";1,1;"
                 .. goods_image .. ";goods#".. i .."#".. self.id ..";]"
            .. count_label_at(x + 1.9, y, goods_count)
             .. "image[".. x + 1 ..",".. y ..";1,1;gui_arrow_blank.png]"
		end
	end

	local bg = mcl and mcl_vars.gui_bg_img or default.gui_bg_img or ""
	local sl = mcl and mcl_vars.gui_slots or default.gui_slots or ""
	local lc = mcl and "listcolors[#9d9d9d;#FFF7;#474747]" or ""

	minetest.show_formspec(player, "mobs_npc:trade", "size[" .. (mcl and 9 or 8) .. ",10]"
		.. bg
		.. sl
		.. "label[0.5,-0.1;" .. S("Trader @1's stock:", self.game_name) .. "]"
		.. formspec_trade_list
		.. lc
		.. "list[current_player;main;0,6;" .. (mcl and 9 or 8) .. ",4;]"
	)
end


minetest.register_on_player_receive_fields(function(player, formname, fields)

	if formname ~= "mobs_npc:trade" then return end

	if fields then

		local trade = ""

		for k, v in pairs(fields) do
			trade = tostring(k)
		end

		local id = trade:split("#")[3]
		local self = nil

		if id ~= nil then

			for k, v in pairs(minetest.luaentities) do

				if v.object and v.id and v.id == id then
					self = v
					break
				end
			end
		end

		if self ~= nil then
			local trade_number = tonumber(trade:split("#")[2])

			if trade_number ~= nil and self.trades[trade_number] ~= nil then

				local price = self.trades[trade_number][2]
				local goods = self.trades[trade_number][1]
				local inv = player:get_inventory()

				if inv:contains_item("main", price) then

					inv:remove_item("main", price)

					local leftover = inv:add_item("main", goods)

					if leftover:get_count() > 0 then

						-- drop item(s) in front of player
						local droppos = player:get_pos()
						local dir = player:get_look_dir()

						droppos.x = droppos.x + dir.x
						droppos.z = droppos.z + dir.z

						minetest.add_item(droppos, leftover)
					end
				end
			end
		end
	end
end)