sys4-fr/sys4_achievements
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
sys4_achievements/api.lua

713 lines
21 KiB
Lua
Raw Blame History

-- SYS4 Achievements
-- by Sys4
local S = sys4_achievements.intllib
-- api
local craftmode = true
-- Give initial Stuff
minetest.register_on_newplayer(
function(player)
minetest.log("action", "Giving initial stuff to player "..player:get_player_name())
local book = ItemStack("default:book_written")
local data = {}
data.title = "SYS4 AWARDS : Introduction"
data.text = "Bonjour "..player:get_player_name().." et bienvenue dans Minetest.\n\n"
.."Vous débarquez dans ce monde avec vos seules mains comme outils et la nuit arrive à grand pas. Vous vous sentez perdu mais une chose est sure. Il faut vous fabriquer des outils et des matériaux pour pouvoir construire votre premier abris afin d'y passer la nuit.\n\n"
.."Comme premier objectif, allez récolter 20 troncs d'arbres."
data.owner = player:get_player_name()
local data_str = minetest.serialize(data)
book:set_metadata(data_str)
local inv = minetest.get_inventory({type="player", name=player:get_player_name()})
inv:add_item("main", book)
end)
-- New Waste Node
minetest.register_node("sys4_achievements:waste",
{
description = S("Waste"),
tiles = {"waste.png"},
is_ground_content = false,
groups = {crumbly=2, flammable=2},
})
function sys4_achievements.write_book(book_content, items, prizes)
local text = ""
if book_content and book_content ~= nil then
text = text..book_content.."\n\n"
end
if prizes and prizes ~= nil then
text = text..S("Amazing ! You win").." :\n"
local tt = ""
for i=1, #prizes do
local itemstack = ItemStack(prizes[i])
tt = tt..itemstack:get_count().." "..S(itemstack:get_name()).."\n"
end
text = text..tt.."\n"
end
if items and items ~= nil then
text = text..S("You unlock these crafts").." :"
local tt = "\n"
for i=1, #items do
tt = tt.."\n"..sys4_achievements.getCraftRecipes(items[i])
tt = tt..S("Output").." --> "..S(items[i]).."\n\n"
tt = tt.."------------]]][[[------------\n"
end
text = text..tt.."\n"
end
return text
end
function sys4_achievements.getCraftRecipes(itemName)
local str = ""
if itemName ~= nil and itemName ~= "" then
local craftRecipes = minetest.get_all_craft_recipes(itemName)
if craftRecipes ~= nil then
local first = true
for i=1, #craftRecipes do
if craftRecipes[i].type == "normal" then
if not first then
str = str.."\n---]] "..S("OR").." [[---\n\n"
end
first = false
local width = craftRecipes[i].width
local items = craftRecipes[i].items
local maxn = table.maxn(items)
local h = 0
local g
if width == 0 then
g = 1
while g*g < maxn do g = g + 1 end
width = maxn
else
h = math.ceil(maxn / width)
g = width < h and h or width
end
for y=1, g do
str = str..y..": "
for x=1, width do
local item = items[(y-1) * width + x]
if item ~= nil then
str = str.."'"..S(item).."' "
else
str = str.."'"..S("empty").."' "
end
if x == width then
str = str.."\n"
end
end
end
end
end
end
else
str = S("No craft for this item").."\n"
end
return str
end
function sys4_achievements.getAchievement(onType, name)
local registeredAchievements
if onType == "dig" then
registeredAchievements = awards.onDig
end
if onType == "place" then
registeredAchievements = awards.onPlace
end
if onType == "craft" then
registeredAchievements = awards.onCraft
end
for i=1, #registeredAchievements do
if type(registeredAchievements[i]) == "table" and
registeredAchievements[i].award == name then
return registeredAchievements[i]
end
end
end
function sys4_achievements.has_achievement(name, award)
local data = awards.players[name]
if not data then
return
end
if not awards.def[award] then
return
end
awards.tbv(data, "unlocked")
if data.unlocked[award] and data.unlocked[award] == award then
return true
else
return false
end
end
-- run a function when a node is crafted
function sys4_achievements.register_onCraft(func)
table.insert(awards.onCraft,func)
end
function sys4_achievements.getItemCount(action_type, mod, items, playern, data)
local count = 0
if action_type == "craft" then
awards.tbv(awards.players[playern].craft, mod)
for i=1, #items do
awards.tbv(awards.players[playern].craft[mod], items[i], 0)
count = count + data.craft[mod][items[i]]
end
else if action_type == "dig" then
awards.tbv(awards.players[playern].count, mod)
for i=1, #items do
awards.tbv(awards.players[playern].count[mod], items[i], 0)
count = count + data.count[mod][items[i]]
end
else if action_type == "place" then
awards.tbv(awards.players[playern].place, mod)
for i=1, #items do
awards.tbv(awards.players[playern].place[mod], items[i], 0)
count = count + data.place[mod][items[i]]
end
else
return
end
end
end
return count
end
function sys4_achievements.isAwardGot(awardName, listofawards)
for _,award in pairs(listofawards) do
if awardName == award.name and award.got then
return true
end
end
return false
end
-- AWARDS redefinitions
-- add new trigger 'craft'
awards.onCraft = {}
local add_trig = awards._additional_triggers
awards._additional_triggers = function(name, data_table)
if data_table.trigger.type == "craft" then
local tmp = {
award = name,
node = data_table.trigger.node,
target = data_table.trigger.target,
}
table.insert(awards.onCraft, tmp)
else
add_trig(name, data_table)
end
end
awards.assertPlayer = function(playern)
awards.tbv(awards.players, playern)
awards.tbv(awards.players[playern], "name", playern)
awards.tbv(awards.players[playern], "unlocked")
awards.tbv(awards.players[playern], "place")
awards.tbv(awards.players[playern], "craft")
awards.tbv(awards.players[playern], "count")
awards.tbv(awards.players[playern], "deaths", 0)
awards.tbv(awards.players[playern], "joins", 0)
awards.tbv(awards.players[playern], "chats", 0)
end
-- Redefinition of awards.give_achievement for add given book
awards.give_achievement = function (name, award)
-- Access Player Data
local data = awards.players[name]
-- Perform checks
if not data then
return
end
if not awards.def[award] then
return
end
awards.tbv(data,"unlocked")
-- check to see if the player does not already have that achievement
if not data.unlocked[award] or data.unlocked[award]~=award then
-- Set award flag
data.unlocked[award]=award
-- Give Prizes
if awards.def[award] and awards.def[award].prizes then
for i = 1, #awards.def[award].prizes do
local itemstack = ItemStack(awards.def[award].prizes[i])
if itemstack:is_empty() or not itemstack:is_known() then
return
end
local receiverref = core.get_player_by_name(name)
if receiverref == nil then
return
end
receiverref:get_inventory():add_item("main", itemstack)
end
end
-- Sys4
-- Give book
if awards.def[award] and awards.def[award].book and craftmode then
local itemstack = ItemStack('default:book_written')
local book_data = {}
book_data.title = awards.def[award].book.title
book_data.text = awards.def[award].book.text
book_data.owner = name
local data_str = minetest.serialize(book_data)
itemstack:set_metadata(data_str)
local receiverref = core.get_player_by_name(name)
if receiverref == nil then return end
receiverref:get_inventory():add_item("main", itemstack)
end
-- Get data from definition tables
local title = award
local desc = ""
local background = ""
local icon = ""
local custom_announce = ""
if awards.def[award].title then
title = awards.def[award].title
end
if awards.def[award].custom_announce then
custom_announce = awards.def[award].custom_announce
end
if awards.def[award].background then
background = awards.def[award].background
end
if awards.def[award].icon then
icon = awards.def[award].icon
end
if awards.def[award] and awards.def[award].description then
desc = awards.def[award].description
end
-- send the won award message to the player
if awards.show_mode == "formspec" then
-- use a formspec to send it
minetest.show_formspec(name, "achievements:unlocked", "size[4,2]"..
"image_button_exit[0,0;4,2;"..background..";close1; ]"..
"image_button_exit[0.2,0.8;1,1;"..icon..";close2; ]"..
"label[1.1,1;"..title.."]"..
"label[0.3,0.1;"..custom_announce.."]")
elseif awards.show_mode == "chat" then
-- use the chat console to send it
minetest.chat_send_player(name, S("Achievement Unlocked: ")..title)
if desc~="" then
minetest.chat_send_player(name, desc)
end
else
local player = minetest.get_player_by_name(name)
local one = player:hud_add({
hud_elem_type = "image",
name = "award_bg",
scale = {x = 1, y = 1},
text = background,
position = {x = 0.5, y = 0},
offset = {x = 0, y = 138},
alignment = {x = 0, y = -1}
})
local two = player:hud_add({
hud_elem_type = "text",
name = "award_au",
number = 0xFFFFFF,
scale = {x = 100, y = 20},
text = S("Achievement Unlocked!"),
position = {x = 0.5, y = 0},
offset = {x = 0, y = 40},
alignment = {x = 0, y = -1}
})
local three = player:hud_add({
hud_elem_type = "text",
name = "award_title",
number = 0xFFFFFF,
scale = {x = 100, y = 20},
text = title,
position = {x = 0.5, y = 0},
offset = {x = 30, y = 100},
alignment = {x = 0, y = -1}
})
local four = player:hud_add({
hud_elem_type = "image",
name = "award_icon",
scale = {x = 4, y = 4},
text = icon,
position = {x = 0.5, y = 0},
offset = {x = -81.5, y = 126},
alignment = {x = 0, y = -1}
})
minetest.after(3, function()
player:hud_remove(one)
player:hud_remove(two)
player:hud_remove(three)
player:hud_remove(four)
end)
end
-- record this in the log
minetest.log("action", name.." has unlocked award "..title)
-- save playertable
awards.save()
end
end
-- Redefenition of awards.showto for showing crafts to unlock and arrange display
awards.showto = function(name, to, sid, text)
if name == "" or name == nil then
name = to
end
if text then
if not awards.players[name] or not awards.players[name].unlocked then
minetest.chat_send_player(to, "You have not unlocked any awards")
return
end
minetest.chat_send_player(to, name.."'s awards:")
for _, str in pairs(awards.players[name].unlocked) do
local def = awards.def[str]
if def then
if def.title then
if def.description then
minetest.chat_send_player(to, def.title..": "..def.description)
else
minetest.chat_send_player(to, def.title)
end
else
minetest.chat_send_player(to, str)
end
end
end
else
if sid == nil or sid < 1 then
sid = 1
end
local formspec = "size[15,8]"
local listofawards = awards._order_awards(name)
-- Sidebar
if sid then
local item = listofawards[sid+0]
local def = awards.def[item.name]
if def and def.secret and not item.got then
formspec = formspec .. "label[9,2.75;Secret Award]"..
"image[9.75,0;3,3;unknown.png]"
if def and def.description then
formspec = formspec .. "label[9,3.25;Unlock this award to find out what it is]"
end
else
local title = item.name
if def and def.title then
title = def.title
end
local status = ""
if item.got then
status = " (got)"
end
local icon = ""
if def and def.icon then
icon = def.icon
end
local award_req = ""
if def and def.award_req then
award_req = def.award_req
local reqTitle = awards.def[award_req].title
if sys4_achievements.isAwardGot(award_req, listofawards) then
award_req = S("Requiered").." : "..reqTitle.." (got)"
else
award_req = S("Requiered").." : "..reqTitle
end
formspec = formspec .. "label[9,3.75;"..award_req.."]"
end
formspec = formspec .. "label[9,3.25;"..title..status.."]".."label[9,0;"..item.name.."]"..
"image[9.75,0.5;3,3;"..icon.."]"
if def and def.description then
formspec = formspec .. "label[8,4.25;"..def.description.."]"
end
-- Sys4
-- Crafts to unlock
if def and def.items then
local items = def.items
local y = 5 -- Position y de départ du label
formspec = formspec .. "label[8,"..y..";"..S("Unlock crafts").." :]"
local name = ""
for i=1, #items do
local itemstack = ItemStack(items[i])
if itemstack and itemstack ~= nil and itemstack:is_known() then
name = itemstack:get_name()
else
name = "Unknown Item"
end
y = y + 0.35
formspec = formspec .. "label[8,"..y..";- "..name.."]"
end
end
end
end
-- Create list box
formspec = formspec .. "textlist[0,0;6.75,8;awards;"
local first = true
for _,award in pairs(listofawards) do
local def = awards.def[award.name]
if def then
if not first then
formspec = formspec .. ","
end
first = false
if def.secret and not award.got then
formspec = formspec .. "#ACACACSecret Award"
else
local title = award.name
if def and def.title then
title = def.title
end
if award.got then
formspec = formspec .. minetest.formspec_escape(title)
else
if def.award_req then
local requieredAward = def.award_req
if sys4_achievements.isAwardGot(requieredAward, listofawards) then
formspec = formspec .. "#ACAC00".. minetest.formspec_escape(title)
else
formspec = formspec .. "#AC0000".. minetest.formspec_escape(title)
end
else
formspec = formspec .. "#ACACAC".. minetest.formspec_escape(title)
end
end
end
end
end
formspec = formspec .. ";"..sid.."]"
-- Show formspec to user
minetest.show_formspec(to,"awards:awards",formspec)
end
end
-- Register new trigger on "craft"
minetest.register_on_craft(
function(itemstack, player, old_craft_grid, craft_inv)
-- Par défaut tout craft qui doit donner quelque chose retournera des déchets inutilisables.
local wasteItem = "sys4_achievements:waste"
local nodeName = itemstack:get_name()
local nodeCrafted = string.split(nodeName, ":")
if #nodeCrafted ~= 2 then
--minetest.log("error","Awards mod: "..oldnode.name.." is in wrong format!")
return
end
local mod = nodeCrafted[1]
local item = nodeCrafted[2]
local playern = player:get_player_name()
if (not playern or not nodeCrafted or not mod or not item) then
return
end
awards.assertPlayer(playern)
awards.tbv(awards.players[playern].craft, mod)
awards.tbv(awards.players[playern].craft[mod], item, 0)
-- Si des awards ont été débloqués, ont les parcours pour en extraire les items qu'ils débloquent
if awards.player(playern) ~= nil then
local data = awards.players[playern]
for _, str in pairs(data.unlocked) do
local def = awards.def[str]
if def and def.items then
local items = def.items
for i=1, #items do
-- Si un item débloqué correspond à l'item demandé par l'utilisateur alors on le prend en compte et on retournera l'item (en retournant nil)
if items[i] == nodeName then
-- Increment counter
awards.players[playern].craft[mod][item] = awards.players[playern].craft[mod][item] + itemstack:get_count()
-- Run callbacks and triggers
local crafter = player
for j=1, #awards.onCraft do
local res = nil
if type(awards.onCraft[j]) == "function" then
-- Run trigger callback
res = awards.onCraft[j](crafter, data)
elseif type(awards.onCraft[j]) == "table" then
-- Handle table trigger
if not awards.onCraft[j].node or not awards.onCraft[j].target or not awards.onCraft[j].award then
-- table running failed !
print("[ERROR] awards - onCraft trigger "..j.." is invalid !")
else
-- run the table
local tnodeCrafted = string.split(awards.onCraft[j].node, ":")
local tmod = tnodeCrafted[1]
local titem = tnodeCrafted[2]
if tmod == nil or titem == nil or not data.craft[tmod] or not data.craft[tmod][titem] then
-- table running failed
elseif data.craft[tmod][titem] > awards.onCraft[j].target - 1 then
res = awards.onCraft[j].award
end
end
end
if res then
awards.give_achievement(playern,res)
end
end
return nil
end
end
end
end
end
if craftmode then
return wasteItem
else
return nil
end
end)
minetest.register_chatcommand("gawd", {
params = "award name",
description = "gawd: give award to self",
func = function(name, param)
awards.give_achievement(name,param)
end
})
minetest.register_chatcommand("craftmode",
{
params = "on or off",
description = "craftmode : enable or not sys4_achievements locked crafts.",
func = function(name, param)
if param == "on" then
craftmode = true
minetest.chat_send_player(name, "Sys4 craft mode enabled")
else
craftmode = false
minetest.chat_send_player(name, "Sys4 craft mode disabled")
end
end
})
-- Fonction qui se déclenche quand le joueur place un objet dans son environnement.
-- Cette fonction est normalement déjà définie dans 'awards' : minetest.register_on_place = func(...)
-- Mais elle ne se déclenche pas pour certains objets comme les troncs d'arbres.
-- Ces types d'objets possèdent une propriété on_place = minetest.rotate_node
-- qu'il faut redéfinir par cette fonction pour nos besoins.
function sys4_achievements.register_onPlace(itemstack, placer, pointed_thing)
if not placer or not pointed_thing or not itemstack or not placer:get_player_name() or placer:get_player_name()=="" then
return
end
-- Code pour le systeme awards
local nodedug = string.split(itemstack:get_name(), ":")
if #nodedug ~= 2 then
--minetest.log("error","Awards mod: "..node.name.." is in wrong format!")
return
end
local mod=nodedug[1]
local item=nodedug[2]
local playern = placer:get_player_name()
-- Run checks
if (not playern or not nodedug or not mod or not item) then
return
end
awards.assertPlayer(playern)
awards.tbv(awards.players[playern].place, mod)
awards.tbv(awards.players[playern].place[mod], item, 0)
-- Increment counter
awards.players[playern].place[mod][item] = awards.players[playern].place[mod][item] + 1
-- Run callbacks and triggers
local player = placer
local data = awards.players[playern]
for i=1,# awards.onPlace do
local res = nil
if type(awards.onPlace[i]) == "function" then
-- Run trigger callback
res = awards.onPlace[i](player,data)
elseif type(awards.onPlace[i]) == "table" then
-- Handle table trigger
if not awards.onPlace[i].node or not awards.onPlace[i].target or not awards.onPlace[i].award then
print("[ERROR] awards - onPlace trigger "..i.." is invalid!")
else
-- run the table
local tnodedug = string.split(awards.onPlace[i].node, ":")
local tmod = tnodedug[1]
local titem = tnodedug[2]
if tmod==nil or titem==nil or not data.place[tmod] or not data.place[tmod][titem] then
-- table running failed!
elseif data.place[tmod][titem] > awards.onPlace[i].target-1 then
res = awards.onPlace[i].award
end
end
end
if res then
awards.give_achievement(playern,res)
end
end
-- Meme portion de code que dans la fonction core.rotate_node
core.rotate_and_place(itemstack, placer, pointed_thing,
core.setting_getbool("creative_mode"),
{invert_wall = placer:get_player_control().sneak})
return itemstack
end
-- Redéfinition de la propriété on_place de ces nodes
local nodes = {
minetest.registered_nodes["default:tree"],
minetest.registered_nodes["default:jungletree"],
minetest.registered_nodes["default:acacia_tree"],
minetest.registered_nodes["default:pine_tree"],
}
for i=1, #nodes do
nodes[i].on_place = sys4_achievements.register_onPlace
end
Reference in New Issue View Git Blame Copy Permalink