2 --Copyright (C) 2014 sapier
4 --This program is free software; you can redistribute it and/or modify
5 --it under the terms of the GNU Lesser General Public License as published by
6 --the Free Software Foundation; either version 2.1 of the License, or
7 --(at your option) any later version.
9 --This program is distributed in the hope that it will be useful,
10 --but WITHOUT ANY WARRANTY; without even the implied warranty of
11 --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 --GNU Lesser General Public License for more details.
14 --You should have received a copy of the GNU Lesser General Public License along
15 --with this program; if not, write to the Free Software Foundation, Inc.,
16 --51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18 local function create_world_formspec(dialogdata)
19 local mapgens = {"v6", "v7", "singlenode"}
21 local current_seed = core.setting_get("fixed_map_seed") or ""
22 local current_mg = core.setting_get("mg_name")
27 for k,v in pairs(mapgens) do
28 if current_mg == v then
32 mglist = mglist .. v .. ","
34 mglist = mglist:sub(1, -2)
36 local gameid = core.setting_get("menu_last_game")
38 local game, gameidx = nil , 0
40 game, gameidx = gamemgr.find_by_gameid(gameid)
42 if gameidx == nil then
47 current_seed = core.formspec_escape(current_seed)
50 "label[2,0;" .. fgettext("World name") .. "]"..
51 "field[4.5,0.4;6,0.5;te_world_name;;]" ..
53 "label[2,1;" .. fgettext("Seed") .. "]"..
54 "field[4.5,1.4;6,0.5;te_seed;;".. current_seed .. "]" ..
56 "label[2,2;" .. fgettext("Mapgen") .. "]"..
57 "dropdown[4.2,2;6.3;dd_mapgen;" .. mglist .. ";" .. selindex .. "]" ..
59 "label[2,3;" .. fgettext("Game") .. "]"..
60 "textlist[4.2,3;5.8,2.3;games;" .. gamemgr.gamelist() ..
61 ";" .. gameidx .. ";true]" ..
63 "button[5,5.5;2.6,0.5;world_create_confirm;" .. fgettext("Create") .. "]" ..
64 "button[7.5,5.5;2.8,0.5;world_create_cancel;" .. fgettext("Cancel") .. "]"
66 if #gamemgr.games == 0 then
67 retval = retval .. "box[2,4;8,1;#ff8800]label[2.25,4;" ..
68 fgettext("You have no subgames installed.") .. "]label[2.25,4.4;" ..
69 fgettext("Download one from minetest.net") .. "]"
70 elseif #gamemgr.games == 1 and gamemgr.games[1].id == "minimal" then
71 retval = retval .. "box[1.75,4;8.7,1;#ff8800]label[2,4;" ..
72 fgettext("Warning: The minimal development test is meant for developers.") .. "]label[2,4.4;" ..
73 fgettext("Download a subgame, such as minetest_game, from minetest.net") .. "]"
80 local function create_world_buttonhandler(this, fields)
82 if fields["world_create_confirm"] or
83 fields["key_enter"] then
85 local worldname = fields["te_world_name"]
86 local gameindex = core.get_textlist_index("games")
88 if gameindex ~= nil and
93 if not menudata.worldlist:uid_exists_raw(worldname) then
94 core.setting_set("mg_name",fields["dd_mapgen"])
95 message = core.create_world(worldname,gameindex)
97 message = fgettext("A world named \"$1\" already exists", worldname)
100 core.setting_set("fixed_map_seed", fields["te_seed"])
102 if message ~= nil then
103 gamedata.errormessage = message
105 core.setting_set("menu_last_game",gamemgr.games[gameindex].id)
106 if this.data.update_worldlist_filter then
107 menudata.worldlist:set_filtercriteria(gamemgr.games[gameindex].id)
108 mm_texture.update("singleplayer", gamemgr.games[gameindex].id)
110 menudata.worldlist:refresh()
111 core.setting_set("mainmenu_last_selected_world",
112 menudata.worldlist:raw_index_by_uid(worldname))
115 gamedata.errormessage =
116 fgettext("No worldname given or no game selected")
122 if fields["games"] then
126 if fields["world_create_cancel"] then
135 function create_create_world_dlg(update_worldlistfilter)
136 local retval = dialog_create("sp_create_world",
137 create_world_formspec,
138 create_world_buttonhandler,
140 retval.update_worldlist_filter = update_worldlistfilter