Add achievement chat command

[MineClone/MineClone2.git] / mods / HUD / awards / api.lua

-- AWARDS
--
-- Copyright (C) 2013-2015 rubenwardy
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU Lesser General Public License as published by
-- the Free Software Foundation; either version 2.1 of the License, or
-- (at your option) any later version.
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU Lesser General Public License for more details.
-- You should have received a copy of the GNU Lesser General Public License along
-- with this program; if not, write to the Free Software Foundation, Inc.,
-- 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
--

-- The global award namespace
awards = {
        show_mode = "hud"
}
dofile(minetest.get_modpath("awards").."/api_helpers.lua")

-- Table Save Load Functions
function awards.save()
        local file = io.open(minetest.get_worldpath().."/awards.txt", "w")
        if file then
                file:write(minetest.serialize(awards.players))
                file:close()
        end
end

local S = minetest.get_translator("awards")

function awards.init()
        awards.players = awards.load()
        awards.def = {}
        awards.trigger_types = {}
        awards.on = {}
        awards.on_unlock = {}
end

function awards.load()
        local file = io.open(minetest.get_worldpath().."/awards.txt", "r")
        if file then
                local table = minetest.deserialize(file:read("*all"))
                if type(table) == "table" then
                        return table
                end
        end
        return {}
end

function awards.register_trigger(name, func)
        awards.trigger_types[name] = func
        awards.on[name] = {}
        awards['register_on_'..name] = function(func)
                table.insert(awards.on[name], func)
        end
end

function awards.run_trigger_callbacks(player, data, trigger, table_func)
        for i = 1, #awards.on[trigger] do
                local res = nil
                local entry = awards.on[trigger][i]
                if type(entry) == "function" then
                        res = entry(player, data)
                elseif type(entry) == "table" and entry.award then
                        res = table_func(entry)
                end

                if res then
                        awards.unlock(player:get_player_name(), res)
                end
        end
end

function awards.increment_item_counter(data, field, itemname, count)
        local name_split = string.split(itemname, ":")
        if #name_split ~= 2 then
                return false
        end
        local mod = name_split[1]
        local item = name_split[2]

        if data and field and mod and item then
                awards.assertPlayer(data)
                awards.tbv(data, field)
                awards.tbv(data[field], mod)
                awards.tbv(data[field][mod], item, 0)

                data[field][mod][item] = data[field][mod][item] + (count or 1)
                return true
        else
                return false
        end
end

function awards.get_item_count(data, field, itemname)
        local name_split = string.split(itemname, ":")
        if #name_split ~= 2 then
                return false
        end
        local mod = name_split[1]
        local item = name_split[2]

        if data and field and mod and item then
                awards.assertPlayer(data)
                awards.tbv(data, field)
                awards.tbv(data[field], mod)
                awards.tbv(data[field][mod], item, 0)
                return data[field][mod][item]
        end
end

function awards.get_total_item_count(data, field)
        local i = 0
        if data and field then
                awards.assertPlayer(data)
                awards.tbv(data, field)
                for mod,_ in pairs(data[field]) do
                        awards.tbv(data[field], mod)
                        for item,_ in pairs(data[field][mod]) do
                                awards.tbv(data[field][mod], item, 0)
                                i = i + data[field][mod][item]
                        end
                end
        end
        return i
end

function awards.register_on_unlock(func)
        table.insert(awards.on_unlock, func)
end

-- API Functions
function awards._additional_triggers(name, def)
        -- Depreciated!
end

function awards.register_achievement(name, def)
        def.name = name

        -- Add Triggers
        if def.trigger and def.trigger.type then
                local func = awards.trigger_types[def.trigger.type]

                if func then
                        func(def)
                else
                        awards._additional_triggers(name, def)
                end
        end

        -- Add Award
        awards.def[name] = def

        local tdef = awards.def[name]
        if def.description == nil and tdef.getDefaultDescription then
                def.description = tdef:getDefaultDescription()
        end
end

function awards.enable(name)
        local data = awards.player(name)
        if data then
                data.disabled = nil
        end
end

function awards.disable(name)
        local data = awards.player(name)
        if data then
                data.disabled = true
        end
end

function awards.clear_player(name)
        awards.players[name] = {}
end

-- Returns true if award exists, false otherwise
function awards.exists(award)
        return awards.def[award] ~= nil
end

-- This function is called whenever a target condition is met.
-- It checks if a player already has that achievement, and if they do not,
-- it gives it to them
----------------------------------------------
--awards.unlock(name, award)
-- name - the name of the player
-- award - the name of the award to give
function awards.unlock(name, award)
        -- Access Player Data
        local data  = awards.players[name]
        local awdef = awards.def[award]

        -- Perform checks
        if not data then
                return
        end
        if not awdef then
                return
        end
        if data.disabled then
                return
        end
        awards.tbv(data,"unlocked")

        -- Don't give the achievement if it has already been given
        if data.unlocked[award] and data.unlocked[award] == award then
                return
        end

        -- Get award
        minetest.log("action", name.." has gotten award "..name)
        data.unlocked[award] = award
        awards.save()

        -- Give Prizes
        if awdef and awdef.prizes then
                for i = 1, #awdef.prizes do
                        local itemstack = ItemStack(awdef.prizes[i])
                        if not itemstack:is_empty() then
                                local receiverref = minetest.get_player_by_name(name)
                                if receiverref then
                                        receiverref:get_inventory():add_item("main", itemstack)
                                end
                        end
                end
        end

        -- Run callbacks
        if awdef.on_unlock and awdef.on_unlock(name, awdef) then
                return
        end
        for _, callback in pairs(awards.on_unlock) do
                if callback(name, awdef) then
                        return
                end
        end

        -- Get Notification Settings
        local title = awdef.title or award
        local desc = awdef.description or ""
        local background = awdef.background or "awards_bg_default.png"
        local icon = awdef.icon or "awards_unknown.png"
        local sound = awdef.sound
        if sound == nil then
                -- Explicit check for nil because sound could be `false` to disable it
                sound = {name="awards_got_generic", gain=0.25}
        end
        local custom_announce = awdef.custom_announce
        if not custom_announce then
                if awdef.secret then
                        custom_announce = S("Secret achievement gotten:")
                else
                        custom_announce = S("Achievement gotten:")
                end
        end

        -- Do Notification
        if sound then
                -- Enforce sound delay to prevent sound spamming
                local lastsound = awards.players[name].lastsound
                if lastsound == nil or os.difftime(os.time(), lastsound) >= 1 then
                        minetest.sound_play(sound, {to_player=name})
                        awards.players[name].lastsound = os.time()
                end
        end

        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
                local chat_announce
                if awdef.secret == true then
                        chat_announce = S("Secret achievement gotten: @1")
                else
                        chat_announce = S("Achievement gotten: @1")
                end
                -- use the chat console to send it
                minetest.chat_send_player(name, string.format(chat_announce, 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 hud_announce
                if awdef.secret == true then
                        hud_announce = S("Secret achievement gotten!")
                else
                        hud_announce = S("Achievement gotten!")
                end
                local two = player:hud_add({
                        hud_elem_type = "text",
                        name = "award_au",
                        number = 0xFFFF00,
                        scale = {x = 100, y = 20},
                        text = hud_announce,
                        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}
                })
                --[[ We use a statbar instead of image here because statbar allows us to scale the image
                properly. Note that number is 2, thus leading to a single full image.
                Yes, it's a hack, but it works for all texture sizes and is needed because the image
                type does NOT allow us a simple scaling. ]]
                local four = player:hud_add({
                        hud_elem_type = "statbar",
                        name = "award_icon",
                        size = {x=64, y = 64},
                        number = 2,
                        text = icon,
                        position = {x = 0.5, y = 0},
                        offset = {x = -110, y = 62},
                        alignment = {x = 0, y = 0},
                        direction = 0,
                })
                minetest.after(3, function(name)
                        local player = minetest.get_player_by_name(name)
                        if not player then
                                return
                        end
                        player:hud_remove(one)
                        player:hud_remove(two)
                        player:hud_remove(three)
                        player:hud_remove(four)
                end, player:get_player_name())
        end
end

-- Backwards compatibility
awards.give_achievement = awards.unlock

--[[minetest.register_chatcommand("gawd", {
        params = "award name",
        description = "gawd: give award to self",
        func = function(name, param)
                awards.unlock(name,param)
        end
})]]--

function awards.getFormspec(name, to, sid)
        local formspec = ""
        local listofawards = awards._order_awards(name)
        local playerdata = awards.players[name]

        if #listofawards == 0 then
                formspec = formspec .. "label[3.9,1.5;"..minetest.formspec_escape(S("Error: No awards available.")).."]"
                formspec = formspec .. "button_exit[4.2,2.3;3,1;close;"..minetest.formspec_escape(S("OK")).."]"
                return formspec
        end

        -- 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[1,2.75;"..minetest.formspec_escape(S("(Secret achievement)")).."]"..
                                                                "image[1,0;3,3;awards_unknown.png]"
                        if def and def.description then
                                formspec = formspec     .. "textarea[0.25,3.25;4.8,1.7;;"..minetest.formspec_escape(S("Get this achievement 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 = S("@1 (got)", title)
                        else
                                status = title
                        end
                        formspec = formspec .. "label[1,2.75;" ..
                                minetest.formspec_escape(status) ..
                                "]"
                        if def and def.icon then
                                formspec = formspec .. "image[1,0;3,3;" .. def.icon .. "]"
                        end
                        local barwidth = 4.6
                        local perc = nil
                        local label = nil
                        if def.getProgress and playerdata then
                                local res = def:getProgress(playerdata)
                                perc = res.perc
                                label = res.label
                        end
                        if perc then
                                if perc > 1 then
                                        perc = 1
                                end
                                formspec = formspec .. "background[0,4.80;" .. barwidth ..",0.3;awards_progress_gray.png;false]"
                                if perc > 0 then
                                        formspec = formspec .. "background[0,4.80;" .. (barwidth * perc) ..",0.3;awards_progress_green.png;false]"
                                end
                                if label then
                                        formspec = formspec .. "label[1.75,4.63;" .. minetest.formspec_escape(label) .. "]"
                                end
                        end
                        if def and def.description then
                                formspec = formspec     .. "textarea[0.25,3.25;4.8,1.7;;"..minetest.formspec_escape(def.description)..";]"
                        end
                end
        end

        -- Create list box
        formspec = formspec ..
        "textlist[4.75,0;6,5;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 .. "#707070"..minetest.formspec_escape(S("(Secret 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
                                        formspec = formspec .. "#ACACAC".. minetest.formspec_escape(title)
                                end
                        end
                end
        end
        return formspec .. ";"..sid.."]"
end

function awards.show_to(name, to, sid, text)
        if name == "" or name == nil then
                name = to
        end
        if name == to and awards.player(to).disabled then
                minetest.chat_send_player(S("You've disabled awards. Type /awards enable to reenable."))
                return
        end
        if text then
                local listofawards = awards._order_awards(name)
                if #listofawards == 0 then
                        minetest.chat_send_player(to, S("Error: No awards available."))
                        return
                elseif not awards.players[name] or not awards.players[name].unlocked  then
                        minetest.chat_send_player(to, S("You have not gotten any awards."))
                        return
                end
                minetest.chat_send_player(to, S("@1’s awards:", name))

                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, S("@1: @2", 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 deco = ""
                if minetest.global_exists("default") then
                        deco = default.gui_bg .. default.gui_bg_img
                end
                -- Show formspec to user
                minetest.show_formspec(to,"awards:awards",
                        "size[11,5]" .. deco ..
                        awards.getFormspec(name, to, sid))
        end
end
awards.showto = awards.show_to

minetest.register_on_player_receive_fields(function(player, formname, fields)
        if formname ~= "awards:awards" then
                return false
        end
        if fields.quit then
                return true
        end
        local name = player:get_player_name()
        if fields.awards then
                local event = minetest.explode_textlist_event(fields.awards)
                if event.type == "CHG" then
                        awards.show_to(name, name, event.index, false)
                end
        end

        return true
end)

awards.init()

minetest.register_on_newplayer(function(player)
        local playern = player:get_player_name()
        awards.assertPlayer(playern)
end)

minetest.register_on_shutdown(function()
        awards.save()
end)