197 lines
6.5 KiB
Lua
197 lines
6.5 KiB
Lua
--run Files
|
|
local modpath=minetest.get_modpath("specialties")
|
|
dofile(modpath.."/config.lua")
|
|
dofile(modpath.."/tables.lua")
|
|
dofile(modpath.."/externalmodify.lua")
|
|
dofile(modpath.."/xp.lua")
|
|
|
|
--variable used for time keeping for updating xp
|
|
time = 0
|
|
|
|
local get_specialInfo = function(name, specialty)
|
|
local formspec = "size[8,8]" -- size of the formspec page
|
|
.."button_exit[0,0;0.75,0.5;close;X]" -- back to main inventory
|
|
.."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(specialty ~= "") then
|
|
formspec = formspec.."label[4,0;XP: "..specialties.players[name][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("buildrefill", 1)
|
|
player:get_inventory():set_size("buildtrash", 1)
|
|
name = player:get_player_name()
|
|
specialties.players[name] = {}
|
|
specialties.players[name] = specialties.readXP(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
|
|
local function doTransfer(player, list, factor)
|
|
|
|
end
|
|
|
|
--GUI Events
|
|
minetest.register_on_player_receive_fields(function(player, formname, fields)
|
|
local name = player:get_player_name()
|
|
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) end
|
|
if fields.upgradepick then upgradeTool(player, "pick", "miner", 200) end
|
|
if fields.superheatpick then addSpecial2Tool(player, "superheat", "pick", "miner", 500) end
|
|
|
|
--LUMBERJACK
|
|
if fields.lumberjack then
|
|
show_formspec(name, "lumberjack")
|
|
return
|
|
end
|
|
if fields.healaxe then healTool(player, "axe", "lumberjack", 100) end
|
|
if fields.upgradeaxe then upgradeTool(player, "axe", "lumberjack", 200) end
|
|
if fields.superheataxe then addSpecial2Tool(player, "superheat", "axe", "lumberjack", 500) end
|
|
if fields.felleraxe then addSpecial2Tool(player, "feller", "axe", "lumberjack", 750) end
|
|
|
|
--DIGGER
|
|
if fields.digger then
|
|
show_formspec(name, "digger")
|
|
return
|
|
end
|
|
if fields.healshovel then healTool(player, "shovel", "digger", 100) end
|
|
if fields.upgradeshovel then upgradeTool(player, "shovel", "digger", 200) end
|
|
if fields.superheatshovel then addSpecial2Tool(player, "superheat", "shovel", "digger", 500) end
|
|
|
|
--FARMER
|
|
if fields.farmer then
|
|
show_formspec(name, "farmer")
|
|
return
|
|
end
|
|
if fields.healhoe then healTool(player, "hoe", "farmer", 100) end
|
|
if fields.upgradehoe then upgradeTool(player, "hoe", "farmer", 200) end
|
|
if fields.greenthumb then addSpecial2Tool(player, "greenthumb", "hoe", "farmer", 500) end
|
|
|
|
--BUILDER
|
|
if fields.builder then
|
|
show_formspec(name, "builder")
|
|
return
|
|
end
|
|
if fields.dorefill then doTransfer(player, "refill", 1) end
|
|
if fields.dotrash then doTransfer(player, "trash", -1) end
|
|
end)
|
|
|
|
|
|
|
|
--XP Events
|
|
minetest.register_on_dignode(function(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)
|
|
minetest.register_on_placenode(function(pos, newnode, placer, oldnode)
|
|
specialties.changeXP(placer:get_player_name(), "builder", 1)
|
|
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) |