awards/api.lua

349 lines
9.1 KiB
Lua
Raw Normal View History

2014-05-02 19:48:32 +02:00
-- AWARDS
-- by Rubenwardy, CC-BY-SA
2013-02-27 13:39:17 +01:00
-------------------------------------------------------
-- this is api function file
-------------------------------------------------------
2013-11-06 20:36:49 +01:00
-- The global award namespace
awards = {}
2013-02-22 21:43:40 +01:00
-- Table Save Load Functions
2013-11-06 20:36:49 +01:00
function awards.save()
2013-02-22 21:43:40 +01:00
local file = io.open(minetest.get_worldpath().."/awards.txt", "w")
if file then
2013-11-06 19:38:55 +01:00
file:write(minetest.serialize(awards.players))
2013-02-22 21:43:40 +01:00
file:close()
end
end
2013-11-06 20:36:49 +01:00
function awards.load()
2013-02-22 21:43:40 +01:00
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
2013-11-06 20:36:49 +01:00
awards.players = awards.load()
2013-11-06 19:38:55 +01:00
function awards.player(name)
2014-05-02 19:19:42 +02:00
return awards.players[name]
2013-11-06 19:38:55 +01:00
end
2013-02-22 21:43:40 +01:00
-- A table of award definitions
2013-11-06 20:36:49 +01:00
awards.def = {}
2013-02-22 21:43:40 +01:00
2013-11-12 20:50:25 +01:00
function awards.tbv(tb,value,default)
if not default then
default = {}
end
2013-11-07 10:02:05 +01:00
if not tb or type(tb) ~= "table" then
2013-11-07 10:05:24 +01:00
if not value then
value = "[NULL]"
end
2014-05-02 19:35:11 +02:00
minetest.log("error", "awards.tbv - table '"..value.."' is null, or not a table! Dump: "..dump(tb))
2013-11-12 09:51:55 +01:00
return
end
if not value then
2014-05-02 19:35:11 +02:00
error("[ERROR] awards.tbv was not used correctly!\n"..
"Value: '"..dump(value).."'\n"..
"Dump:"..dump(tb))
2013-11-06 19:33:01 +01:00
return
end
if not tb[value] then
tb[value] = default
end
end
2013-11-12 20:50:25 +01:00
function awards.assertPlayer(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], "count")
awards.tbv(awards.players[playern], "deaths", 0)
end
2013-02-22 21:43:40 +01:00
-- Load files
dofile(minetest.get_modpath("awards").."/triggers.lua")
dofile(minetest.get_modpath("awards").."/config.txt")
2013-02-22 21:43:40 +01:00
-- API Functions
function awards.register_achievement(name,data_table)
2013-02-27 13:34:38 +01:00
-- see if a trigger is defined in the achievement definition
2013-11-06 19:33:01 +01:00
if data_table.trigger and data_table.trigger.type then
if data_table.trigger.type=="dig" then
2013-02-23 13:02:02 +01:00
local tmp={
award=name,
2013-11-06 19:33:01 +01:00
node=data_table.trigger.node,
target=data_table.trigger.target,
2013-02-23 13:02:02 +01:00
}
table.insert(awards.onDig,tmp)
2013-11-06 19:33:01 +01:00
elseif data_table.trigger.type=="place" then
2013-02-23 13:02:02 +01:00
local tmp={
award=name,
2013-11-06 19:33:01 +01:00
node=data_table.trigger.node,
target=data_table.trigger.target,
2013-02-23 13:02:02 +01:00
}
table.insert(awards.onPlace,tmp)
2013-11-06 19:33:01 +01:00
elseif data_table.trigger.type=="death" then
2013-02-23 16:13:21 +01:00
local tmp={
award=name,
2013-11-06 19:33:01 +01:00
target=data_table.trigger.target,
2013-02-23 16:13:21 +01:00
}
table.insert(awards.onDeath,tmp)
2013-02-23 13:02:02 +01:00
end
end
2013-02-23 13:02:02 +01:00
2013-02-27 13:34:38 +01:00
-- check icon, background and custom_announce data
2013-11-06 19:33:01 +01:00
if data_table.icon == nil or data_table.icon == "" then
data_table.icon = "unknown.png"
end
2013-11-06 19:33:01 +01:00
if data_table.background == nil or data_table.background == "" then
data_table.background = "bg_default.png"
end
2013-11-06 19:33:01 +01:00
if data_table.custom_announce == nil or data_table.custom_announce == "" then
data_table.custom_announce = "Achievement Unlocked:"
end
2013-02-27 13:34:38 +01:00
-- add the achievement to the definition table
2014-05-02 19:19:42 +02:00
data_table.name = name
2013-11-06 19:33:01 +01:00
awards.def[name] = data_table
2013-02-22 21:43:40 +01:00
end
2013-02-27 13:34:38 +01:00
-- this function adds a trigger function or table to the ondig table
2013-02-22 21:43:40 +01:00
function awards.register_onDig(func)
2014-05-02 19:19:42 +02:00
table.insert(awards.onDig,func)
2013-02-22 21:43:40 +01:00
end
2013-02-27 13:34:38 +01:00
-- this function adds a trigger function or table to the ondig table
2013-02-22 21:43:40 +01:00
function awards.register_onPlace(func)
2014-05-02 19:19:42 +02:00
table.insert(awards.onPlace,func)
2013-02-22 21:43:40 +01:00
end
2013-02-27 13:34:38 +01:00
-- this function adds a trigger function or table to the ondeath table
2013-02-23 16:13:21 +01:00
function awards.register_onDeath(func)
2014-05-02 19:19:42 +02:00
table.insert(awards.onDeath,func)
2013-02-23 16:13:21 +01:00
end
2013-02-27 13:34:38 +01:00
-- 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.give_achievement(name,award)
-- name - the name of the player
-- award - the name of the award to give
2013-02-22 21:43:40 +01:00
function awards.give_achievement(name,award)
2013-11-06 19:33:01 +01:00
-- Access Player Data
2013-11-06 19:38:55 +01:00
local data=awards.players[name]
2013-02-22 21:43:40 +01:00
2013-11-06 19:33:01 +01:00
-- Perform checks
if not data then
return
end
if not awards.def[award] then
return
end
awards.tbv(data,"unlocked")
2013-02-27 13:34:38 +01:00
-- check to see if the player does not already have that achievement
2013-11-06 19:33:01 +01:00
if not data.unlocked[award] or data.unlocked[award]~=award then
-- Set award flag
data.unlocked[award]=award
2013-02-22 21:43:40 +01:00
2013-11-06 19:33:01 +01:00
-- Get data from definition tables
2013-02-22 21:43:40 +01:00
local title = award
local desc = ""
2013-11-06 19:33:01 +01:00
local background = ""
local icon = ""
local custom_announce = ""
if awards.def[award].title then
title = awards.def[award].title
2013-02-22 21:43:40 +01:00
end
2013-11-06 19:33:01 +01:00
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
2013-02-22 21:43:40 +01:00
end
2013-02-27 13:34:38 +01:00
-- send the won award message to the player
if Use_Formspec == true then
2013-02-27 13:34:38 +01:00
-- 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.."]")
else
2013-02-27 13:34:38 +01:00
-- use the chat console to send it
minetest.chat_send_player(name, "Achievement Unlocked: "..title)
if desc~="" then
minetest.chat_send_player(name, desc)
end
2013-02-22 21:43:40 +01:00
end
2013-02-27 13:34:38 +01:00
-- record this in the log
2014-05-02 19:35:11 +02:00
minetest.log("action", name.." has unlocked award "..title..".")
2013-02-27 13:34:38 +01:00
2013-02-22 21:43:40 +01:00
-- save playertable
2013-11-06 20:36:49 +01:00
awards.save()
2013-02-22 21:43:40 +01:00
end
end
-- List a player's achievements
minetest.register_chatcommand("list_awards", {
2014-05-02 19:19:42 +02:00
params = "obsolete",
description = "list_awards: obsolete. Use /awards",
2013-02-22 21:43:40 +01:00
func = function(name, param)
2014-05-02 19:19:42 +02:00
minetest.chat_send_player(name, "This command has been made obsolete. Use /awards instead.")
awards.showto(name, name, nil, false)
end
})
minetest.register_chatcommand("awards", {
params = "Empty params for your awards, player name for someone else's awards",
description = "awards: list awards",
func = function(name, param)
awards.showto(name, name, nil, false)
end
})
2014-05-02 19:35:11 +02:00
minetest.register_chatcommand("cawards", {
params = "Empty params for your awards, player name for someone else's awards",
description = "awards: list awards",
func = function(name, param)
awards.showto(name, name, nil, true)
end
})
2014-05-02 19:19:42 +02:00
minetest.register_chatcommand("awd", {
params = "award name",
description = "awd: Details of awd gotten",
func = function(name, param)
local def = awards.def[param]
if def then
minetest.chat_send_player(name,def.title..": "..def.description)
else
minetest.chat_send_player(name,"Award not found.")
end
end
})
2014-05-02 19:35:11 +02:00
--[[minetest.register_chatcommand("gawd", {
2014-05-02 19:19:42 +02:00
params = "award name",
description = "gawd: give award to self",
func = function(name, param)
awards.give_achievement(name,param)
end
2014-05-02 19:35:11 +02:00
})]]--
2014-05-02 19:19:42 +02:00
function awards._order_awards(name)
local done = {}
local retval = {}
local player = awards.player(name)
if player and player.unlocked then
for _,got in pairs(player.unlocked) do
done[got] = true
table.insert(retval,{name=got,got=true})
end
end
for _,def in pairs(awards.def) do
if not done[def.name] then
table.insert(retval,{name=def.name,got=false})
end
end
return retval
end
function awards.showto(name, to, sid, text)
if text then
2013-11-07 09:58:40 +01:00
if not awards.players[name] or not awards.players[name].unlocked then
minetest.chat_send_player(name, "You do not have any awards")
return
2013-11-06 19:33:01 +01:00
end
2014-05-02 19:35:11 +02:00
minetest.chat_send_player(to, name.."'s awards:")
2013-02-22 21:43:40 +01:00
2013-11-06 19:38:55 +01:00
for _, str in pairs(awards.players[name].unlocked) do
2014-05-02 19:35:11 +02:00
minetest.chat_send_player(to, str)
2013-02-22 21:43:40 +01:00
end
2014-05-02 19:19:42 +02:00
else
if sid == nil or sid < 1 then
sid = 1
end
2014-05-02 19:35:11 +02:00
local formspec = "size[11,5]"
2014-05-02 19:19:42 +02:00
local listofawards = awards._order_awards(name)
-- Sidebar
if sid then
local item = listofawards[sid+0]
local def = awards.def[item.name]
local title = item.name
if def and def.title then
title = def.title
end
local status = ""
if item.got then
status = " (got)"
end
if def and def.icon then
icon = def.icon
end
2014-05-02 19:35:11 +02:00
formspec = formspec .. "label[1,2.75;"..title..status.."]"..
"image[1,0;3,3;"..icon.."]"
2014-05-02 19:19:42 +02:00
if def and def.description then
2014-05-02 19:35:11 +02:00
formspec = formspec .. "label[0,3.25;"..def.description.."]"
2014-05-02 19:19:42 +02:00
end
end
-- Create list box
2014-05-02 19:35:11 +02:00
formspec = formspec .. "textlist[4.75,0;6,5;awards;"
2014-05-02 19:19:42 +02:00
local first = true
for _,award in pairs(listofawards) do
if not first then
formspec = formspec .. ","
end
first = false
local def = awards.def[award.name]
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
2014-05-02 19:35:11 +02:00
formspec = formspec .. ";"..sid.."]"
-- Show formspec to user
minetest.show_formspec(to,"awards:awards",formspec)
2014-05-02 19:19:42 +02:00
end
end
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.showto(name,name,event.index,false)
end
end
return true
end)
2013-02-22 21:43:40 +01:00