diff options
Diffstat (limited to 'builtin/mainmenu/modstore.lua')
| -rw-r--r-- | builtin/mainmenu/modstore.lua | 615 |
1 files changed, 615 insertions, 0 deletions
diff --git a/builtin/mainmenu/modstore.lua b/builtin/mainmenu/modstore.lua new file mode 100644 index 000000000..ef7fd0165 --- /dev/null +++ b/builtin/mainmenu/modstore.lua @@ -0,0 +1,615 @@ +--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 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. + +-------------------------------------------------------------------------------- + +--modstore implementation +modstore = {} + +-------------------------------------------------------------------------------- +-- @function [parent=#modstore] init +function modstore.init() + modstore.tabnames = {} + + table.insert(modstore.tabnames,"dialog_modstore_unsorted") + table.insert(modstore.tabnames,"dialog_modstore_search") + + modstore.modsperpage = 5 + + modstore.basetexturedir = engine.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 +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] getsuccessfuldialog +function modstore.getsuccessfuldialog() + 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;" .. engine.formspec_escape(modstore.lastmodentry.moddetails.basename) .. "]" + + end + retval = retval .. "button[2.5,1.5;1,0.5;btn_confirm_mod_successfull;" .. fgettext("ok") .. "]" + + + return retval +end + +-------------------------------------------------------------------------------- +-- @function [parent=#modstore] gettab +function modstore.gettab(tabname) + local retval = "" + + local is_modstore_tab = false + + if tabname == "dialog_modstore_unsorted" then + modstore.modsperpage = 5 + retval = modstore.getmodlist(modstore.modlist_unsorted) + is_modstore_tab = true + end + + if tabname == "dialog_modstore_search" then + retval = modstore.getsearchpage() + is_modstore_tab = true + end + + if is_modstore_tab then + return modstore.tabheader(tabname) .. retval + end + + if tabname == "modstore_mod_installed" then + return modstore.getsuccessfuldialog() + end + + if tabname == "modstore_downloading" then + return "size[6,2]label[0.25,0.75;" .. fgettext("Downloading") .. + " " .. modstore.lastmodtitle .. " " .. + fgettext("please wait...") .. "]" + end + + return "" +end + +-------------------------------------------------------------------------------- +-- @function [parent=#modstore] tabheader +function modstore.tabheader(tabname) + local retval = "size[12,10.25,true]" + retval = retval .. "tabheader[-0.3,-0.99;modstore_tab;" .. + "Unsorted,Search;" .. + modstore.nametoindex(tabname) .. ";true;false]" .. + "button[4,9.9;4,0.5;btn_modstore_close;" .. + fgettext("Close modstore") .. "]" + + return retval +end + +-------------------------------------------------------------------------------- +-- @function [parent=#modstore] handle_buttons +function modstore.handle_buttons(current_tab,fields) + + if fields["modstore_tab"] then + local index = tonumber(fields["modstore_tab"]) + + if index > 0 and + index <= #modstore.tabnames then + if modstore.tabnames[index] == "dialog_modstore_search" then + filterlist.set_filtercriteria(modstore.searchlist,modstore.last_search) + filterlist.refresh(modstore.searchlist) + modstore.modsperpage = 4 + modstore.currentlist = { + page = 0, + pagecount = + math.ceil(filterlist.size(modstore.searchlist) / modstore.modsperpage), + data = filterlist.get_list(modstore.searchlist), + } + end + + return { + current_tab = modstore.tabnames[index], + is_dialog = true, + show_buttons = false + } + end + + end + + 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 + 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 + end + + if fields["btn_hidden_close_download"] ~= nil then + if fields["btn_hidden_close_download"].successfull then + modstore.lastmodentry = fields["btn_hidden_close_download"] + return { + current_tab = "modstore_mod_installed", + is_dialog = true, + show_buttons = false + } + else + modstore.lastmodtitle = "" + return { + current_tab = modstore.tabnames[1], + is_dialog = true, + show_buttons = false + } + end + end + + if fields["btn_confirm_mod_successfull"] then + modstore.lastmodentry = nil + modstore.lastmodtitle = "" + return { + current_tab = modstore.tabnames[1], + is_dialog = true, + show_buttons = false + } + 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), + } + end + + + if fields["btn_modstore_close"] then + return { + is_dialog = false, + show_buttons = true, + current_tab = engine.setting_get("main_menu_tab") + } + 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 + + engine.handle_async( + function(param) + + local fullurl = engine.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 = engine.setting_get("modstore_download_url") .. + param.moddetails.versions[i].download_url + found = true + end + end + + if not found then + return { + moddetails = param.moddetails, + successfull = false + } + end + end + + if engine.download_file(fullurl,param.filename) then + return { + texturename = param.texturename, + moddetails = param.moddetails, + filename = param.filename, + successfull = true + } + else + 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) + 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 + engine.button_handler({btn_hidden_close_download=result}) + else + engine.button_handler({btn_hidden_close_download={successfull=false}}) + end + end + ) + + return { + current_tab = "modstore_downloading", + is_dialog = true, + show_buttons = false, + ignore_menu_quit = true + } + end + end + break + end + 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 + + engine.handle_async( + function(param) + return engine.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() + engine.event_handler("Refresh") + end + end + ) +end + +-------------------------------------------------------------------------------- +-- @function [parent=#modstore] fetchdetails +function modstore.fetchdetails() + + for i=1,#modstore.modlist_unsorted.data,1 do + engine.handle_async( + function(param) + param.details = engine.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 + engine.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;" .. + engine.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 = engine.setting_get("modstore_download_url") .. + listentry.details.screenshot_url + local filename = os.tempfolder() .. "_MID_" .. listentry.id + + --trigger download + engine.handle_async( + --first param is downloadfct + function(param) + param.successfull = engine.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 + engine.event_handler("Refresh") + else + engine.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;" .. + engine.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 .. ";" .. + engine.formspec_escape(details.title) .. " (" .. details.author .. ")]" + + --description + local descriptiony = ypos + 0.5 + retval = retval .. "textarea[3," .. descriptiony .. ";6.5,1.55;;" .. + engine.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 .."button[9.1," .. buttony .. ";2.5,0.5;btn_install_mod_" .. details.id .. ";" + + if modmgr.mod_exists(details.basename) then + retval = retval .. fgettext("re-Install") .."]" + else + retval = retval .. fgettext("Install") .."]" + end + end + + return retval +end + +-------------------------------------------------------------------------------- +--@function [parent=#modstore] getmodlist +function modstore.getmodlist(list,yoffset) + + modstore.current_list = list + + if #list.data == 0 then + return "" + end + + if yoffset == nil then + yoffset = 0 + end + + local scrollbar = "" + scrollbar = scrollbar .. "label[0.1,9.5;" + .. fgettext("Page $1 of $2", list.page+1, list.pagecount) .. "]" + scrollbar = scrollbar .. "box[11.6," .. (yoffset + 0.35) .. ";0.28," + .. (8.6 - yoffset) .. ";#000000]" + local scrollbarpos = (yoffset + 0.75) + + ((7.7 -yoffset)/(list.pagecount-1)) * list.page + scrollbar = scrollbar .. "box[11.6," ..scrollbarpos .. ";0.28,0.5;#32CD32]" + scrollbar = scrollbar .. "button[11.6," .. (yoffset + (0.3)) + .. ";0.5,0.5;btn_modstore_page_up;^]" + scrollbar = scrollbar .. "button[11.6," .. 9.0 + .. ";0.5,0.5;btn_modstore_page_down;v]" + + 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 +end + +-------------------------------------------------------------------------------- +--@function [parent=#modstore] getsearchpage +function modstore.getsearchpage() + local retval = "" + local search = "" + + if modstore.last_search ~= nil then + search = modstore.last_search + end + + retval = retval .. + "button[9.5,0.2;2.5,0.5;btn_modstore_search;".. fgettext("Search") .. "]" .. + "field[0.5,0.5;9,0.5;te_modstore_search;;" .. search .. "]" + + + --show 4 mods only + modstore.modsperpage = 4 + retval = retval .. + modstore.getmodlist( + modstore.currentlist, + 1.75) + + return retval; +end + |