620 lines
29 KiB
Lua
620 lines
29 KiB
Lua
--Minetest
|
|
--Copyright (C) 2013 sapier
|
|
--
|
|
--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 3.0 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.
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
--modstore implementation
|
|
modstore = {}
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- @function [parent=#modstore] init
|
|
function modstore.init(size, unsortedmods, searchmods)
|
|
|
|
modstore.mods_on_unsorted_page = unsortedmods
|
|
modstore.mods_on_search_page = searchmods
|
|
modstore.modsperpage = modstore.mods_on_unsorted_page
|
|
|
|
modstore.basetexturedir = multicraft.get_texturepath() .. DIR_DELIM .. "base" ..
|
|
DIR_DELIM .. "pack" .. DIR_DELIM
|
|
|
|
modstore.lastmodtitle = ""
|
|
modstore.last_search = ""
|
|
|
|
modstore.searchlist = filterlist.create(
|
|
function()
|
|
if modstore.modlist_unsorted ~= nil and
|
|
modstore.modlist_unsorted.data ~= nil then
|
|
return modstore.modlist_unsorted.data
|
|
end
|
|
return {}
|
|
end,
|
|
function(element,modid)
|
|
if element.id == modid then
|
|
return true
|
|
end
|
|
return false
|
|
end, --compare fct
|
|
nil, --uid match fct
|
|
function(element,substring)
|
|
if substring == nil or
|
|
substring == "" then
|
|
return false
|
|
end
|
|
substring = substring:upper()
|
|
|
|
if element.title ~= nil and
|
|
element.title:upper():find(substring) ~= nil then
|
|
return true
|
|
end
|
|
|
|
if element.details ~= nil and
|
|
element.details.author ~= nil and
|
|
element.details.author:upper():find(substring) ~= nil then
|
|
return true
|
|
end
|
|
|
|
if element.details ~= nil and
|
|
element.details.description ~= nil and
|
|
element.details.description:upper():find(substring) ~= nil then
|
|
return true
|
|
end
|
|
return false
|
|
end --filter fct
|
|
)
|
|
|
|
modstore.current_list = nil
|
|
|
|
modstore.tv_store = tabview_create("modstore",size,{x=0,y=0})
|
|
|
|
modstore.tv_store:set_global_event_handler(modstore.handle_events)
|
|
|
|
modstore.tv_store:add(
|
|
{
|
|
name = "unsorted",
|
|
caption = fgettext("Unsorted"),
|
|
cbf_formspec = modstore.unsorted_tab,
|
|
cbf_button_handler = modstore.handle_buttons,
|
|
on_change =
|
|
function() modstore.modsperpage = modstore.mods_on_unsorted_page end
|
|
}
|
|
)
|
|
|
|
modstore.tv_store:add(
|
|
{
|
|
name = "search",
|
|
caption = fgettext("Search"),
|
|
cbf_formspec = modstore.getsearchpage,
|
|
cbf_button_handler = modstore.handle_buttons,
|
|
on_change = modstore.activate_search_tab
|
|
}
|
|
)
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- @function [parent=#modstore] nametoindex
|
|
function modstore.nametoindex(name)
|
|
|
|
for i=1,#modstore.tabnames,1 do
|
|
if modstore.tabnames[i] == name then
|
|
return i
|
|
end
|
|
end
|
|
|
|
return 1
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- @function [parent=#modstore] showdownloading
|
|
function modstore.showdownloading(title)
|
|
local new_dlg = dialog_create("store_downloading",
|
|
function(data)
|
|
return "size[6,2]label[0.25,0.75;" .. fgettext("Downloading") ..
|
|
" " .. data.title .. " " ..
|
|
fgettext("please wait...") .. "]"
|
|
end,
|
|
function(this,fields)
|
|
if fields["btn_hidden_close_download"] ~= nil then
|
|
if fields["btn_hidden_close_download"].successfull then
|
|
modstore.lastmodentry = fields["btn_hidden_close_download"]
|
|
modstore.successfulldialog()
|
|
else
|
|
modstore.lastmodtitle = ""
|
|
end
|
|
|
|
this:delete()
|
|
return true
|
|
end
|
|
|
|
return false
|
|
end,
|
|
nil,
|
|
modstore.tv_store)
|
|
|
|
new_dlg.data.title = title
|
|
new_dlg:show()
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- @function [parent=#modstore] successfulldialog
|
|
function modstore.successfulldialog()
|
|
local new_dlg = dialog_create("store_downloading",
|
|
function(data)
|
|
local retval = ""
|
|
retval = retval .. "size[6,2,true]"
|
|
if modstore.lastmodentry ~= nil then
|
|
retval = retval .. "label[0,0.25;" .. fgettext("Successfully installed:") .. "]"
|
|
retval = retval .. "label[3,0.25;" .. modstore.lastmodentry.moddetails.title .. "]"
|
|
|
|
|
|
retval = retval .. "label[0,0.75;" .. fgettext("Shortname:") .. "]"
|
|
retval = retval .. "label[3,0.75;" .. multicraft.formspec_escape(modstore.lastmodentry.moddetails.basename) .. "]"
|
|
|
|
end
|
|
retval = retval .. "image_button[2.5,1.5;1,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_confirm_mod_successfull;" .. fgettext("ok") .. ";true;true;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
|
|
end,
|
|
function(this,fields)
|
|
if fields["btn_confirm_mod_successfull"] ~= nil then
|
|
this.parent:show()
|
|
this:hide()
|
|
this:delete()
|
|
|
|
return true
|
|
end
|
|
|
|
return false
|
|
end,
|
|
nil,
|
|
modstore.tv_store)
|
|
|
|
new_dlg.data.title = title
|
|
new_dlg:show()
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- @function [parent=#modstore] handle_buttons
|
|
function modstore.handle_buttons(parent, fields, name, data)
|
|
multicraft.set_clouds(false)
|
|
|
|
if fields["btn_modstore_page_up"] then
|
|
if modstore.current_list ~= nil and modstore.current_list.page > 0 then
|
|
modstore.current_list.page = modstore.current_list.page - 1
|
|
end
|
|
return true
|
|
end
|
|
|
|
if fields["btn_modstore_page_down"] then
|
|
if modstore.current_list ~= nil and
|
|
modstore.current_list.page <modstore.current_list.pagecount-1 then
|
|
modstore.current_list.page = modstore.current_list.page +1
|
|
end
|
|
return true
|
|
end
|
|
|
|
if fields["btn_modstore_search"] or
|
|
(fields["key_enter"] and fields["te_modstore_search"] ~= nil) then
|
|
modstore.last_search = fields["te_modstore_search"]
|
|
filterlist.set_filtercriteria(modstore.searchlist,fields["te_modstore_search"])
|
|
filterlist.refresh(modstore.searchlist)
|
|
modstore.currentlist = {
|
|
page = 0,
|
|
pagecount = math.ceil(filterlist.size(modstore.searchlist) / modstore.modsperpage),
|
|
data = filterlist.get_list(modstore.searchlist),
|
|
}
|
|
return true
|
|
end
|
|
|
|
if fields["btn_modstore_close"] then
|
|
parent:hide()
|
|
return true
|
|
end
|
|
|
|
for key,value in pairs(fields) do
|
|
local foundat = key:find("btn_install_mod_")
|
|
if ( foundat == 1) then
|
|
local modid = tonumber(key:sub(17))
|
|
for i=1,#modstore.modlist_unsorted.data,1 do
|
|
if modstore.modlist_unsorted.data[i].id == modid then
|
|
local moddetails = modstore.modlist_unsorted.data[i].details
|
|
|
|
if modstore.lastmodtitle ~= "" then
|
|
modstore.lastmodtitle = modstore.lastmodtitle .. ", "
|
|
end
|
|
|
|
modstore.lastmodtitle = modstore.lastmodtitle .. moddetails.title
|
|
|
|
if not multicraft.handle_async(
|
|
function(param)
|
|
local fullurl = multicraft.setting_get("modstore_download_url") ..
|
|
param.moddetails.download_url
|
|
|
|
if param.version ~= nil then
|
|
local found = false
|
|
for i=1,#param.moddetails.versions, 1 do
|
|
if param.moddetails.versions[i].date:sub(1,10) == param.version then
|
|
fullurl = multicraft.setting_get("modstore_download_url") ..
|
|
param.moddetails.versions[i].download_url
|
|
found = true
|
|
end
|
|
end
|
|
|
|
if not found then
|
|
multicraft.log("error","no download url found for version " .. dump(param.version))
|
|
return {
|
|
moddetails = param.moddetails,
|
|
successfull = false
|
|
}
|
|
end
|
|
end
|
|
|
|
if multicraft.download_file(fullurl,param.filename) then
|
|
return {
|
|
texturename = param.texturename,
|
|
moddetails = param.moddetails,
|
|
filename = param.filename,
|
|
successfull = true
|
|
}
|
|
else
|
|
multicraft.log("error","downloading " .. dump(fullurl) .. " failed")
|
|
return {
|
|
moddetails = param.moddetails,
|
|
successfull = false
|
|
}
|
|
end
|
|
end,
|
|
{
|
|
moddetails = moddetails,
|
|
version = fields["dd_version" .. modid],
|
|
filename = os.tempfolder() .. "_MODNAME_" .. moddetails.basename .. ".zip",
|
|
texturename = modstore.modlist_unsorted.data[i].texturename
|
|
},
|
|
function(result)
|
|
print("Result from async: " .. dump(result.successfull))
|
|
if result.successfull then
|
|
modmgr.installmod(result.filename,result.moddetails.basename)
|
|
os.remove(result.filename)
|
|
else
|
|
gamedata.errormessage = "Failed to download " .. result.moddetails.title
|
|
end
|
|
|
|
if gamedata.errormessage == nil then
|
|
multicraft.button_handler({btn_hidden_close_download=result})
|
|
else
|
|
multicraft.button_handler({btn_hidden_close_download={successfull=false}})
|
|
end
|
|
end
|
|
) then
|
|
print("ERROR: async event failed")
|
|
gamedata.errormessage = "Failed to download " .. modstore.lastmodtitle
|
|
end
|
|
parent:hide()
|
|
modstore.showdownloading(modstore.lastmodtitle)
|
|
return true
|
|
end
|
|
end
|
|
return true
|
|
end
|
|
end
|
|
|
|
return false
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- @function [parent=#modstore] handle_events
|
|
function modstore.handle_events(this,event)
|
|
if (event == "MenuQuit") then
|
|
this:hide()
|
|
return true
|
|
end
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- @function [parent=#modstore] update_modlist
|
|
function modstore.update_modlist()
|
|
modstore.modlist_unsorted = {}
|
|
modstore.modlist_unsorted.data = {}
|
|
modstore.modlist_unsorted.pagecount = 1
|
|
modstore.modlist_unsorted.page = 0
|
|
|
|
multicraft.handle_async(
|
|
function(param)
|
|
return multicraft.get_modstore_list()
|
|
end,
|
|
nil,
|
|
function(result)
|
|
if result ~= nil then
|
|
modstore.modlist_unsorted = {}
|
|
modstore.modlist_unsorted.data = result
|
|
|
|
if modstore.modlist_unsorted.data ~= nil then
|
|
modstore.modlist_unsorted.pagecount =
|
|
math.ceil((#modstore.modlist_unsorted.data / modstore.modsperpage))
|
|
else
|
|
modstore.modlist_unsorted.data = {}
|
|
modstore.modlist_unsorted.pagecount = 1
|
|
end
|
|
modstore.modlist_unsorted.page = 0
|
|
modstore.fetchdetails()
|
|
multicraft.event_handler("Refresh")
|
|
end
|
|
end
|
|
)
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- @function [parent=#modstore] fetchdetails
|
|
function modstore.fetchdetails()
|
|
|
|
for i=1,#modstore.modlist_unsorted.data,1 do
|
|
multicraft.handle_async(
|
|
function(param)
|
|
param.details = multicraft.get_modstore_details(tostring(param.modid))
|
|
return param
|
|
end,
|
|
{
|
|
modid=modstore.modlist_unsorted.data[i].id,
|
|
listindex=i
|
|
},
|
|
function(result)
|
|
if result ~= nil and
|
|
modstore.modlist_unsorted ~= nil
|
|
and modstore.modlist_unsorted.data ~= nil and
|
|
modstore.modlist_unsorted.data[result.listindex] ~= nil and
|
|
modstore.modlist_unsorted.data[result.listindex].id ~= nil then
|
|
|
|
modstore.modlist_unsorted.data[result.listindex].details = result.details
|
|
multicraft.event_handler("Refresh")
|
|
end
|
|
end
|
|
)
|
|
end
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- @function [parent=#modstore] getscreenshot
|
|
function modstore.getscreenshot(ypos,listentry)
|
|
|
|
if listentry.details ~= nil and
|
|
(listentry.details.screenshot_url == nil or
|
|
listentry.details.screenshot_url == "") then
|
|
|
|
if listentry.texturename == nil then
|
|
listentry.texturename = modstore.basetexturedir .. "no_screenshot.png"
|
|
end
|
|
|
|
return "image[0,".. ypos .. ";3,2;" ..
|
|
multicraft.formspec_escape(listentry.texturename) .. "]"
|
|
end
|
|
|
|
if listentry.details ~= nil and
|
|
listentry.texturename == nil then
|
|
--make sure we don't download multiple times
|
|
listentry.texturename = "in progress"
|
|
|
|
--prepare url and filename
|
|
local fullurl = multicraft.setting_get("modstore_download_url") ..
|
|
listentry.details.screenshot_url
|
|
local filename = os.tempfolder() .. "_MID_" .. listentry.id
|
|
|
|
--trigger download
|
|
multicraft.handle_async(
|
|
--first param is downloadfct
|
|
function(param)
|
|
param.successfull = multicraft.download_file(param.fullurl,param.filename)
|
|
return param
|
|
end,
|
|
--second parameter is data passed to async job
|
|
{
|
|
fullurl = fullurl,
|
|
filename = filename,
|
|
modid = listentry.id
|
|
},
|
|
--integrate result to raw list
|
|
function(result)
|
|
if result.successfull then
|
|
local found = false
|
|
for i=1,#modstore.modlist_unsorted.data,1 do
|
|
if modstore.modlist_unsorted.data[i].id == result.modid then
|
|
found = true
|
|
modstore.modlist_unsorted.data[i].texturename = result.filename
|
|
break
|
|
end
|
|
end
|
|
if found then
|
|
multicraft.event_handler("Refresh")
|
|
else
|
|
multicraft.log("error","got screenshot but didn't find matching mod: " .. result.modid)
|
|
end
|
|
end
|
|
end
|
|
)
|
|
end
|
|
|
|
if listentry.texturename ~= nil and
|
|
listentry.texturename ~= "in progress" then
|
|
return "image[0,".. ypos .. ";3,2;" ..
|
|
multicraft.formspec_escape(listentry.texturename) .. "]"
|
|
end
|
|
|
|
return ""
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
--@function [parent=#modstore] getshortmodinfo
|
|
function modstore.getshortmodinfo(ypos,listentry,details)
|
|
local retval = ""
|
|
|
|
retval = retval .. "box[0," .. ypos .. ";11.4,1.75;#FFFFFF]"
|
|
|
|
--screenshot
|
|
retval = retval .. modstore.getscreenshot(ypos,listentry)
|
|
|
|
--title + author
|
|
retval = retval .."label[2.75," .. ypos .. ";" ..
|
|
multicraft.formspec_escape(details.title) .. " (" .. details.author .. ")]"
|
|
|
|
--description
|
|
local descriptiony = ypos + 0.5
|
|
retval = retval .. "textarea[3," .. descriptiony .. ";6.5,1.55;;" ..
|
|
multicraft.formspec_escape(details.description) .. ";]"
|
|
|
|
--rating
|
|
local ratingy = ypos
|
|
retval = retval .."label[7," .. ratingy .. ";" ..
|
|
fgettext("Rating") .. ":]"
|
|
retval = retval .. "label[8.7," .. ratingy .. ";" .. details.rating .."]"
|
|
|
|
--versions (IMPORTANT has to be defined AFTER rating)
|
|
if details.versions ~= nil and
|
|
#details.versions > 1 then
|
|
local versiony = ypos + 0.05
|
|
retval = retval .. "dropdown[9.1," .. versiony .. ";2.48,0.25;dd_version" .. details.id .. ";"
|
|
local versions = ""
|
|
for i=1,#details.versions , 1 do
|
|
if versions ~= "" then
|
|
versions = versions .. ","
|
|
end
|
|
|
|
versions = versions .. details.versions[i].date:sub(1,10)
|
|
end
|
|
retval = retval .. versions .. ";1]"
|
|
end
|
|
|
|
if details.basename then
|
|
--install button
|
|
local buttony = ypos + 1.2
|
|
retval = retval .."image_button[9.1," .. buttony .. ";2.5,0.5;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_install_mod_" .. details.id .. ";"
|
|
|
|
if modmgr.mod_exists(details.basename) then
|
|
retval = retval .. fgettext("re-Install") ..";true;true;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
|
|
else
|
|
retval = retval .. fgettext("Install") ..";true;true;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
|
|
end
|
|
end
|
|
|
|
return retval
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
--@function [parent=#modstore] getmodlist
|
|
function modstore.getmodlist(list,yoffset)
|
|
modstore.current_list = list
|
|
|
|
if yoffset == nil then
|
|
yoffset = 0
|
|
end
|
|
|
|
local sb_y_start = 0.2 + yoffset
|
|
local sb_y_end = (modstore.modsperpage * 1.75) + ((modstore.modsperpage-1) * 0.15)
|
|
local close_button = "image_button[4," .. (sb_y_end + 0.3 + yoffset) ..
|
|
";4,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_modstore_close;" .. fgettext("Close store") .. ";true;true;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
|
|
|
|
if #list.data == 0 then
|
|
return close_button
|
|
end
|
|
|
|
local scrollbar = ""
|
|
scrollbar = scrollbar .. "label[0.1,".. (sb_y_end + 0.25 + yoffset) ..";"
|
|
.. fgettext("Page $1 of $2", list.page+1, list.pagecount) .. "]"
|
|
scrollbar = scrollbar .. "box[11.6," .. sb_y_start .. ";0.28," .. sb_y_end .. ";#000000]"
|
|
local scrollbarpos = (sb_y_start + 0.5) +
|
|
((sb_y_end -1.6)/(list.pagecount-1)) * list.page
|
|
scrollbar = scrollbar .. "box[11.6," ..scrollbarpos .. ";0.28,0.5;#32CD32]"
|
|
scrollbar = scrollbar .. "image_button[11.6," .. (sb_y_start)
|
|
.. ";0.5,0.5;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_modstore_page_up;^;true;true;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
|
|
scrollbar = scrollbar .. "image_button[11.6," .. (sb_y_start + sb_y_end - 0.5)
|
|
.. ";0.5,0.5;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_modstore_page_down;v;true;true;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
|
|
|
|
local retval = ""
|
|
|
|
local endmod = (list.page * modstore.modsperpage) + modstore.modsperpage
|
|
|
|
if (endmod > #list.data) then
|
|
endmod = #list.data
|
|
end
|
|
|
|
for i=(list.page * modstore.modsperpage) +1, endmod, 1 do
|
|
--getmoddetails
|
|
local details = list.data[i].details
|
|
|
|
if details == nil then
|
|
details = {}
|
|
details.title = list.data[i].title
|
|
details.author = ""
|
|
details.rating = -1
|
|
details.description = ""
|
|
end
|
|
|
|
if details ~= nil then
|
|
local screenshot_ypos =
|
|
yoffset +(i-1 - (list.page * modstore.modsperpage))*1.9 +0.2
|
|
|
|
retval = retval .. modstore.getshortmodinfo(screenshot_ypos,
|
|
list.data[i],
|
|
details)
|
|
end
|
|
end
|
|
|
|
return retval .. scrollbar .. close_button
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
--@function [parent=#modstore] getsearchpage
|
|
function modstore.getsearchpage(tabview, name, tabdata)
|
|
local retval = ""
|
|
local search = ""
|
|
|
|
if modstore.last_search ~= nil then
|
|
search = modstore.last_search
|
|
end
|
|
|
|
retval = retval ..
|
|
"image_button[9.5,0.2;2.5,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_modstore_search;".. fgettext("Search") .. ";true;true;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
|
|
"field[0.5,0.5;9,0.5;te_modstore_search;;" .. search .. "]"
|
|
|
|
retval = retval ..
|
|
modstore.getmodlist(
|
|
modstore.currentlist,
|
|
1.75)
|
|
|
|
return retval;
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
--@function [parent=#modstore] unsorted_tab
|
|
function modstore.unsorted_tab()
|
|
return modstore.getmodlist(modstore.modlist_unsorted)
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
--@function [parent=#modstore] activate_search_tab
|
|
function modstore.activate_search_tab(type, old_tab, new_tab)
|
|
|
|
if old_tab == new_tab then
|
|
return
|
|
end
|
|
filterlist.set_filtercriteria(modstore.searchlist,modstore.last_search)
|
|
filterlist.refresh(modstore.searchlist)
|
|
modstore.modsperpage = modstore.mods_on_search_page
|
|
modstore.currentlist = {
|
|
page = 0,
|
|
pagecount =
|
|
math.ceil(filterlist.size(modstore.searchlist) / modstore.modsperpage),
|
|
data = filterlist.get_list(modstore.searchlist),
|
|
}
|
|
end
|
|
|