adventures/standardQuest.lua

local function subdivideObjective(str, desc)
	local subdata = str:split(" ")
	if subdata[1] == "Return" then
		return {command=subdata[1], description=desc, total=tonumber(subdata[2]),content=subdata[3], completed=false, count=0}
	elseif subdata[1] == "Collect" then
		return {command=subdata[1], description=desc, total=tonumber(subdata[2]),content=subdata[3], completed=false, count=0}
	elseif subdata[1] == "Kill" then
		return {command=subdata[1], description=desc, total=tonumber(subdata[2]),content=subdata[3], completed=false, count=0}
	end
end
local function convertObjectiveString(str, desc)
	local objs = {}
	if str:find("|") == nil then
		objs[1] = subdivideObjective(str, desc)
	else
		local data = str:split("|")
		local descdata = desc:split("|")
		for i,o in ipairs(data) do
			if o ~= nil then
				objs[i] = subdivideObjective(o, descdata[i])
			end
		end
	end
	return objs
end
function adventures.updateQuestFormspec(meta, objs)
	local y = 3+table.getn(objs)
	local str = "label[0,0;"..meta:get_string("name").."]"..
				"list[context;reward;5.5,"..(y-2.5)..";2,2;]"..
				"list[context;items;0.5,"..(y-2.5)..";2,2;]"
	local quest = adventures.quests[meta:get_string("name")]
	if quest ~= nil then
		if not quest.accepted then
			str = str.."button[3.25,"..(y-2)..";1.5,1;accept;Accept]"
		elseif not quest.completed then
			str = str.."label[3.25,"..(y-2)..";In Progress.]"
		elseif quest.completed and not quest.turnedIn then
			str = str.."label[3.25,"..(y-2)..";Completed!]"..
						"button[3.25,"..(y-1)..";1.5,1;redeem;Turn In]"
		elseif quest.turnedIn then
			str = str.."label[3.25,"..(y-2)..";Turned In]"
		end
	end
	drawnReturnBox = false
	for i,obj in ipairs(objs) do
		if obj.command == "Return" and not drawnReturnBox and quest.accepted then
			str = str.."list[context;return;3.5,"..(y-3)..";1,1;]"
		end
		str = str.."label[0.5,"..(i/2)..";"..obj.description.."]"
	end
	y = y+4
	str = str.."list[current_player;main;0,"..(y-4)..";8,4;]"
	str = "size[8,"..y.."]"..str
	return str
end
function adventures.storeQuestData(data)
	local pos = {x=data[2],y=data[3],z=data[4]}
	local meta = minetest.env:get_meta(pos)
	if adventures.quests[meta:get_string("name")] ~= nil then return end
	local objs = convertObjectiveString(meta:get_string("objective"), meta:get_string("description"))
	adventures.quests[meta:get_string("name")] = {source=pos, objectives = objs, accepted=false, completed=false, turnedIn=false, active=false}
	meta:set_string("formspec", adventures.updateQuestFormspec(meta, objs))
	meta:get_inventory():set_size("return", 1)
end

minetest.register_node("adventures:quest", {
	description = "Quest",
	walkable = true,
	groups = {immortal=1},
	tiles = {"adventures_quest.png"},
	on_receive_fields = function(pos, formname, fields, sender)
		local meta = minetest.env:get_meta(pos)
		local objs = adventures.quests[meta:get_string("name")].objectives
		if fields.accept then
			for _,player in pairs(minetest.get_connected_players()) do
				for _,stack in pairs(meta:get_inventory():get_list("items")) do
					player:get_inventory():add_item("main", stack)
				end
			end
			adventures.quests[meta:get_string("name")].accepted = true
			for i,obj in ipairs(objs) do
				if obj.command == "Return" then
					table.insert(adventures.currentObjectives["Return"], {quest=meta:get_string("name"), index=i})
				elseif obj.command == "Collect" then
					table.insert(adventures.currentObjectives["Collect"], {quest=meta:get_string("name"), index=i})
				elseif obj.command == "Kill" then
					table.insert(adventures.currentObjectives["Kill"], {quest=meta:get_string("name"), index=i})
				end
			end
			adventures.saveQuestProgress()
		elseif fields.redeem then
			adventures.quests[meta:get_string("name")].turnedIn = true
			for _,player in pairs(minetest.get_connected_players()) do
				for _,stack in pairs(meta:get_inventory():get_list("reward")) do
					player:get_inventory():add_item("main", stack)
				end
			end
			adventures.saveQuestProgress()
		end
		meta:set_string("formspec", adventures.updateQuestFormspec(meta, objs))
	end,
	allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
	return 0 end,
	allow_metadata_inventory_put = function(pos, listname, index, stack, player)
		if listname == "return" then
			return stack:get_count();
		end
	return 0 end,
	allow_metadata_inventory_take = function(pos, listname, index, stack, player)
		if listname == "return" then
			return stack:get_count();
		end
	return 0 end,
	on_metadata_inventory_put = function(pos, listname, index, stack, player)
		local meta = minetest.env:get_meta(pos)
		if listname == "return" then
			for _,data in pairs(adventures.currentObjectives["Return"]) do
				local obj = adventures.quests[data.quest].objectives[data.index]
				if not obj.completed then
					if stack:get_name() == obj.content then
					local n = 0
					if obj.count+stack:get_count() > obj.total then
						n = obj.total-obj.count
						obj.count = obj.total
					else
						n = stack:get_count()
						obj.count = obj.count+n
					end
					if obj.count == obj.total then
						adventures.quests[data.quest].objectives[data.index].completed = true
					end
					minetest.env:get_meta(pos):get_inventory():set_stack(listname, index, {name=stack:get_name(), count=stack:get_count()-n})
					end
				end
			end
		end
		meta:set_string("formspec", adventures.updateQuestFormspec(meta, adventures.quests[meta:get_string("name")].objectives))
	end,
})