specialties/init.lua

--run Files
local modpath = minetest.get_modpath("specialties")
dofile(modpath.."/config.lua")
dofile(modpath.."/tables.lua")
--dofile(modpath.."/externalmodify.lua")
dofile(modpath.."/nodes.lua")
dofile(modpath.."/items.lua")
dofile(modpath.."/xp.lua")

local iplus = minetest.get_modpath("inventory_plus")

--variable used for time keeping for updating xp
local time = 0

local get_specialInfo = function(name, specialty)
    local formspec = "size[8,8]"..
	"button[2,0;2,0.5;miner;Miner]"..
	"button[2,.75;2,0.5;lumberjack;Lumberjack]"..
	"button[2,1.5;2,0.5;digger;Digger]"..
	"button[2,2.25;2,0.5;farmer;Farmer]"..
	"button[2,3;2,0.5;builder;Builder]"..
	"list[current_player;main;0,4;8,4;]"
	if iplus then
		formspec = formspec.."button[0,0;2,0.5;main;Back]"
	else
		formspec = formspec.."button_exit[0,0;0.75,0.5;close;X]"
	end
	if specialty ~= "" then
		formspec = formspec.."label[4,0;XP: "..specialties.players[name].skills[specialty].."]"..specialties.skills[specialty].menu
    end
	return formspec
end

minetest.register_on_leaveplayer(function(player)--Called if on a server, if single player than it isn't called
	specialties.writeXP(player:get_player_name())
end)

--Initial XP Extraction
--optimizes the amount of calls to files
minetest.register_chatcommand("spec", {
	description = "Show Specialties menu",
	func = function(name, param)
		minetest.show_formspec(name, "specialties:spec", get_specialInfo(name, ""))
	end,
})
minetest.register_on_joinplayer(function(player)
	player:get_inventory():set_size("pick", 1)
	player:get_inventory():set_size("axe", 1)
	player:get_inventory():set_size("shovel", 1)
	player:get_inventory():set_size("hoe", 1)
	player:get_inventory():set_size("transferslotleft", 1)
	player:get_inventory():set_size("transferslotright", 1)
	player:get_inventory():set_size("transfergrid", 9)
	if iplus then
		inventory_plus.register_button(player,"specialties","Specialties")
	end
	local name = player:get_player_name()
	specialties.players[name] = {}
	specialties.players[name].skills = {}
	specialties.players[name].skills = specialties.readXP(name)
	specialties.players[name].hud = {}
	minetest.after(0.5, function(name)
		local Yoffset = 0.02
		local y = 0
		for skill,num in pairs(specialties.players[name].skills) do
			specialties.players[name].hud[skill] = player:hud_add({
				hud_elem_type = "text",
				position = {x=0, y=0.85+y},
				offset = {x=100, y=0},
				alignment = {x=1, y=0},
				number = 0xFFFFFF ,
				text = tostring(num),
			})
			player:hud_add({
				hud_elem_type = "text",
				position = {x=0, y=0.85+y},
				offset = {x=10, y=0},
				alignment = {x=1, y=0},
				scale = {x=100, y=50},
				number = 0xFFFFFF ,
				text = skill,
			})
			y = y+Yoffset
		end
	end,
	name)
end)
local function show_formspec(name, specialty)
	minetest.show_formspec(name, "specialties:spec", get_specialInfo(name, specialty))
end

--Skill Events
local function healTool(player, list, specialty, cost)
	local tool = player:get_inventory():get_list(list)[1]
	if tool:get_name():find(":"..list) == nil then return end
	local name = player:get_player_name()
	if tool:get_wear() ~= 0 and specialties.healAmount[tool:get_name()] ~= nil then
		if specialties.changeXP(name, specialty, -cost) then
			tool:add_wear(-specialties.healAmount[tool:get_name()])
			player:get_inventory():set_stack(list, 1, tool)
		end
	end
	show_formspec(name, specialty)
end
local function upgradeTool(player, list, specialty, cost)
	local tool = player:get_inventory():get_list(list)[1]
	if tool:get_name():find(":"..list) == nil then return end
	if specialties.upgradeTree[tool:get_name()] ~= nil then
		if specialties.changeXP(player:get_player_name(), specialty, -cost) then
			player:get_inventory():set_stack(list, 1, specialties.upgradeTree[tool:get_name()])
		end
	end
	show_formspec(player:get_player_name(), specialty)
end
local function addSpecial2Tool(player, skill, list, specialty, cost)
	local tool = player:get_inventory():get_list(list)[1]
	local toolname = tool:get_name()
	if toolname:find(":"..list) == nil then return end
	if toolname:find("_"..skill) ~= nil then return end
	local name = player:get_player_name()
	if specialties.changeXP(name, specialty, -cost) then
		local def = tool:get_definition()
		local colonpos = toolname:find(":")
		local modname = toolname:sub(0,colonpos-1)
		if(modname ~= "specialties") then toolname = "specialties"..toolname:sub(colonpos) end
		local name = toolname.."_"..skill
		player:get_inventory():set_stack(list, 1, name)
	end
	show_formspec(name, specialty)
end

--GUI Events
minetest.register_on_player_receive_fields(function(player, formname, fields)
	local name = player:get_player_name()
	
	--Inventory Plus support
	if fields.specialties then
		show_formspec(name, "")
		return
	end

	--MINER
	if fields.miner then
		show_formspec(name, "miner")
		return
	end
	if fields.healpick then healTool(player, "pick", "miner", 100) return end
	if fields.upgradepick then upgradeTool(player, "pick", "miner", 200) return end
	if fields.superheatpick then addSpecial2Tool(player, "superheat", "pick", "miner", 500) return end

	--LUMBERJACK
	if fields.lumberjack then
		show_formspec(name, "lumberjack")
		return
	end
	if fields.healaxe then healTool(player, "axe", "lumberjack", 100) return end
	if fields.upgradeaxe then upgradeTool(player, "axe", "lumberjack", 200) return end
	if fields.superheataxe then addSpecial2Tool(player, "superheat", "axe", "lumberjack", 500) return end
	if fields.felleraxe then addSpecial2Tool(player, "feller", "axe", "lumberjack", 750) return end

	--DIGGER
	if fields.digger then
		show_formspec(name, "digger")
		return
	end
	if fields.healshovel then healTool(player, "shovel", "digger", 100) return end
	if fields.upgradeshovel then upgradeTool(player, "shovel", "digger", 200) return end
	if fields.superheatshovel then addSpecial2Tool(player, "superheat", "shovel", "digger", 500) return end
	
	--FARMER
	if fields.farmer then
		show_formspec(name, "farmer")
		return
	end
	if fields.healhoe then healTool(player, "hoe", "farmer", 100) return end
	if fields.upgradehoe then upgradeTool(player, "hoe", "farmer", 200) return end
	if fields.greenthumb then addSpecial2Tool(player, "greenthumb", "hoe", "farmer", 500) return end
	
	--BUILDER
	if fields.builder then
		show_formspec(name, "builder")
		return
	end
	if fields.grantfast then
		if specialties.changeXP(name, "builder", -600) then
			local privs = minetest.get_player_privs(name)
			if privs.fast == false or privs.fast == nil then
				privs.fast = true
			end
			minetest.set_player_privs(name, privs)
			show_formspec(name, "builder")
		end
		return
	end
	if fields.grantfly then 
		if specialties.changeXP(name, "builder", -800) then
			local privs = minetest.get_player_privs(name)
			if privs.fly == false or privs.fly == nil then
				privs.fly = true
			end
			minetest.set_player_privs(name, privs)
			show_formspec(name, "builder")
		end
		return
	end
end)



--XP Events
local node_dig = minetest.node_dig
function minetest.node_dig(pos, oldnode, digger)
	node_dig(pos, oldnode, digger)
	if digger == nil then
		return
	end
	if digger:get_wielded_item():is_empty() then
		return
	end
	local tool = digger:get_wielded_item():get_name()
	local name = digger:get_player_name()
	if tool:find("pick") ~= nil then
		specialties.changeXP(name, "miner", 1)
	end
	if tool:find("axe") ~= nil then
		specialties.changeXP(name, "lumberjack", 1)
		if tool:find("feller") ~= nil and minetest.get_item_group(oldnode.name, "tree") ~= 0 then
			local y = 1
			local abovepos = {x=pos.x,y=pos.y+y,z=pos.z}
			while minetest.get_node(abovepos).name == oldnode.name do
				minetest.dig_node(abovepos)
				y = y+1
				abovepos = {x=pos.x,y=pos.y+y,z=pos.z}
			end
			specialties.changeXP(name, "lumberjack", y-1)
		end
	end
	if tool:find("shovel") ~= nil then
		specialties.changeXP(name, "digger", 1)
	end
	if oldnode.name:find("farming") ~= nil then
		specialties.changeXP(name, "farmer", 5)
	end
end
local place_node = minetest.item_place_node
function minetest.item_place_node(itemstack, placer, pointed_thing)
	specialties.changeXP(placer:get_player_name(), "builder", 1)
	return place_node(itemstack, placer, pointed_thing)
end
minetest.register_globalstep(function(dtime)
	if time+dtime < 10 then
		time = time+dtime
	else
		time = 0
		for player in pairs(specialties.players)do
			specialties.writeXP(player)
		end
	end
end)