capturetheflag/mods/ctf/ctf_map/maps_catalog.lua

198 lines
5.3 KiB
Lua
Raw Normal View History

-- Maps Catalog Formspec
local indices = {}
local function show_catalog(name)
-- Select map to be displayed
local idx = indices[name]
local map = ctf_map.available_maps[idx]
if not map then
minetest.chat_send_player(name, "No such map found.")
return
end
local fs = "size[10,9]"
fs = fs .. "container[0,0]"
fs = fs .. "box[0,0;9.8,1;#111]"
if idx > 1 then
fs = fs .. "button[0.5,0.1;1,1;btn_prev;<---]"
end
if idx < #ctf_map.available_maps then
fs = fs .. "button[8.5,0.1;1,1;btn_next;--->]"
end
-- Map name and author
fs = fs .. "label[1.75,0;" ..
minetest.colorize("#ffff00", minetest.formspec_escape(map.name)) .. "]"
fs = fs .. "label[1.75,0.5;" .. minetest.colorize("#cccccc",
"by " .. minetest.formspec_escape(map.author)) .. "]"
fs = fs .. "container_end[]"
-- List of maps
fs = fs .. "textlist[0,1.2;3.5,7.8;maps_list;"
for i, v in pairs(ctf_map.available_maps) do
local mname = v.name
-- If entry corresponds to selected map, highlight in yellow
if i == idx then
mname = "#FFFF00" .. mname
end
fs = fs .. mname
if i < #ctf_map.available_maps then
fs = fs .. ","
end
end
fs = fs .. ";" .. idx .. ";false]"
-- Display screenshot if present, and move other elements down
local y = 1
if ctf_map.file_exists(map.dirname, "screenshot.png") then
-- Check for mapdir .. "/screenshot.png", but pass in the texture
-- name, which would've been renamed to mapdir .. ".png"
fs = fs .. "image[4,1.5;6.5,3.5;" .. map.dirname .. ".png" .. "]"
y = y + 3.5
end
-- Other fields
fs = fs .. "container[3.5," .. y + 0.5 .. "]"
y = 0
if map.hint then
fs = fs .. "label[0.5," .. y .. ";" ..
minetest.colorize("#FFFF00", "HINT:") .. "]"
fs = fs .. "textarea[0.8," .. y + 0.5 .. ";5.5,1;;;" ..
minetest.formspec_escape(map.hint) .. "]"
y = y + 1.375
end
if map.license then
fs = fs .. "label[0.5," .. y .. ";" ..
minetest.colorize("#FFFF00", "LICENSE:") .. "]"
fs = fs .. "textarea[0.8," .. y + 0.5 .. ";5.5,1;;;" ..
minetest.formspec_escape(map.license) .. "]"
y = y + 1.375
end
if map.others then
fs = fs .. "label[0.5," .. y .. ";" ..
minetest.colorize("#FFFF00", "MORE INFORMATION:") .. "]"
fs = fs .. "textarea[0.8," .. y + 0.5 .. ";5.5,1;;;" ..
minetest.formspec_escape(map.others) .. "]"
end
fs = fs .. "container_end[]"
-- Add some special buttons, if player has ctf_admin priv
if minetest.check_player_privs(name, { ctf_admin = true }) then
fs = fs .. "button[4,8;2,1;btn_jump;Skip to map]"
fs = fs .. "button[6,8;2,1;btn_set;Set as next map]"
end
minetest.show_formspec(name, "ctf_map:maps_catalog", fs)
end
minetest.register_on_player_receive_fields(function(player, formname, fields)
if not player or formname ~= "ctf_map:maps_catalog" then
return
end
local name = player:get_player_name()
if fields.btn_prev then
indices[name] = indices[name] - 1
show_catalog(name)
elseif fields.btn_next then
indices[name] = indices[name] + 1
show_catalog(name)
end
if fields.maps_list then
local evt = minetest.explode_textlist_event(fields.maps_list)
if evt.type ~= "INV" then
indices[name] = evt.index
show_catalog(name)
end
end
if minetest.check_player_privs(name, { ctf_admin = true }) then
if fields.btn_set then
ctf_map.next_idx = indices[name]
minetest.chat_send_player(name, "Selected " ..
ctf_map.available_maps[ctf_map.next_idx].name .. " as next map.")
end
if fields.btn_jump then
ctf_map.next_idx = indices[name]
minetest.chat_send_player(name, "Skipping to next map")
ctf_match.next()
end
end
end)
local function send_irc_catalog(name)
-- Select map to be displayed
local map = ctf_map.available_maps[indices[name]]
if not map then
minetest.chat_send_player(name, "No such map found.")
return
end
-- IRC color codes
local red = string.char(3) .. "4"
local normal = string.char(3)
minetest.chat_send_player(name, red .. "Map: " .. normal .. map.name)
minetest.chat_send_player(name, red .. "Author: " .. normal .. map.author)
if map.hint then
minetest.chat_send_player(name, red .. "Hint: " .. normal .. map.hint)
end
if map.license then
minetest.chat_send_player(name, red .. "License: " .. normal .. map.license)
end
if map.others then
minetest.chat_send_player(name,
red .. "More Information: " .. normal .. map.others)
end
end
minetest.register_chatcommand("maps", {
privs = {interact = true},
func = function(name, param)
if #ctf_map.available_maps == 0 then
return false, "No maps are available!"
end
-- Set param to nil if it's empty
if param and param:trim() == "" then
param = nil
end
local player = minetest.get_player_by_name(name)
-- If param supplied, set to idx of specified map
if param then
indices[name] = ctf_map.get_idx_and_map(param)
end
-- If no player and no param supplied, or indices[name] doesn't
-- exist, set to idx of current map, or 1 as fallback
if not player and not param or not indices[name] then
indices[name] = ctf_map.map and ctf_map.map.idx or 1
end
if player then
show_catalog(name)
else
minetest.chat_send_player(name, " *** CTF Maps Catalog for IRC *** ")
if not param then
minetest.chat_send_player(name,
"No param supplied, showing information for current map.")
end
send_irc_catalog(name)
end
minetest.log("action", name .. " views the map catalog")
return true
end
})