Add Lua interface to HTTPFetchRequest
[oweals/minetest.git] / builtin / mainmenu / tab_simple_main.lua
1 --Minetest
2 --Copyright (C) 2013 sapier
3 --
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.
8 --
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.
13 --
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.
17
18 --------------------------------------------------------------------------------
19 local function get_formspec(tabview, name, tabdata)
20         local retval = ""
21
22         local render_details = dump(core.setting_getbool("public_serverlist"))
23
24         retval = retval ..
25                 "label[8,0.5;".. fgettext("Name/Password") .. "]" ..
26                 "field[0.25,3.25;5.5,0.5;te_address;;" ..
27                 core.formspec_escape(core.setting_get("address")) .."]" ..
28                 "field[5.75,3.25;2.25,0.5;te_port;;" ..
29                 core.formspec_escape(core.setting_get("remote_port")) .."]" ..
30                 "checkbox[8,-0.25;cb_public_serverlist;".. fgettext("Public Serverlist") .. ";" ..
31                 render_details .. "]"
32
33         retval = retval ..
34                 "button[8,2.5;4,1.5;btn_mp_connect;".. fgettext("Connect") .. "]" ..
35                 "field[8.75,1.5;3.5,0.5;te_name;;" ..
36                 core.formspec_escape(core.setting_get("name")) .."]" ..
37                 "pwdfield[8.75,2.3;3.5,0.5;te_pwd;]"
38                 
39         if render_details then
40                 retval = retval .. "tablecolumns[" ..
41                         "color,span=3;" ..
42                         "text,align=right;" ..                -- clients
43                         "text,align=center,padding=0.25;" ..  -- "/"
44                         "text,align=right,padding=0.25;" ..   -- clients_max
45                         image_column(fgettext("Creative mode"), "creative") .. ",padding=1;" ..
46                         image_column(fgettext("Damage enabled"), "damage") .. ",padding=0.25;" ..
47                         image_column(fgettext("PvP enabled"), "pvp") .. ",padding=0.25;" ..
48                         "color,span=1;" ..
49                         "text,padding=1]"                               -- name
50         else
51                 retval = retval .. "tablecolumns[text]"
52         end
53         retval = retval ..
54                 "table[-0.05,0;7.55,2.75;favourites;"
55
56         if #menudata.favorites > 0 then
57                 retval = retval .. render_favorite(menudata.favorites[1],render_details)
58
59                 for i=2,#menudata.favorites,1 do
60                         retval = retval .. "," .. render_favorite(menudata.favorites[i],render_details)
61                 end
62         end
63
64         if tabdata.fav_selected ~= nil then
65                 retval = retval .. ";" .. tabdata.fav_selected .. "]"
66         else
67                 retval = retval .. ";0]"
68         end
69
70         -- separator
71         retval = retval ..
72                 "box[-0.28,3.75;12.4,0.1;#FFFFFF]"
73
74         -- checkboxes
75         retval = retval ..
76                 "checkbox[8.0,3.9;cb_creative;".. fgettext("Creative Mode") .. ";" ..
77                 dump(core.setting_getbool("creative_mode")) .. "]"..
78                 "checkbox[8.0,4.4;cb_damage;".. fgettext("Enable Damage") .. ";" ..
79                 dump(core.setting_getbool("enable_damage")) .. "]"
80         -- buttons
81         retval = retval ..
82                 "button[0,3.7;8,1.5;btn_start_singleplayer;" .. fgettext("Start Singleplayer") .. "]" ..
83                 "button[0,4.5;8,1.5;btn_config_sp_world;" .. fgettext("Config mods") .. "]"
84
85         return retval
86 end
87
88 --------------------------------------------------------------------------------
89 local function main_button_handler(tabview, fields, name, tabdata)
90
91         if fields["btn_start_singleplayer"] then
92                 gamedata.selected_world = gamedata.worldindex
93                 gamedata.singleplayer   = true
94                 core.start()
95                 return true
96         end
97
98         if fields["favourites"] ~= nil then
99                 local event = core.explode_table_event(fields["favourites"])
100
101                 if event.type == "CHG" then
102                         if event.row <= #menudata.favorites then
103                                 local address = menudata.favorites[event.row].address
104                                 local port = menudata.favorites[event.row].port
105
106                                 if address ~= nil and
107                                         port ~= nil then
108                                         core.setting_set("address",address)
109                                         core.setting_set("remote_port",port)
110                                 end
111
112                                 tabdata.fav_selected = event.row
113                         end
114                 end
115                 return true
116         end
117
118         if fields["cb_public_serverlist"] ~= nil then
119                 core.setting_set("public_serverlist", fields["cb_public_serverlist"])
120
121                 if core.setting_getbool("public_serverlist") then
122                         asyncOnlineFavourites()
123                 else
124                         menudata.favorites = core.get_favorites("local")
125                 end
126                 return true
127         end
128
129         if fields["cb_creative"] then
130                 core.setting_set("creative_mode", fields["cb_creative"])
131                 return true
132         end
133
134         if fields["cb_damage"] then
135                 core.setting_set("enable_damage", fields["cb_damage"])
136                 return true
137         end
138
139         if fields["btn_mp_connect"] ~= nil or
140                 fields["key_enter"] ~= nil then
141
142                 gamedata.playername             = fields["te_name"]
143                 gamedata.password               = fields["te_pwd"]
144                 gamedata.address                = fields["te_address"]
145                 gamedata.port                   = fields["te_port"]
146
147                 local fav_idx = core.get_textlist_index("favourites")
148
149                 if fav_idx ~= nil and fav_idx <= #menudata.favorites and
150                         menudata.favorites[fav_idx].address == fields["te_address"] and
151                         menudata.favorites[fav_idx].port    == fields["te_port"] then
152
153                         gamedata.servername                     = menudata.favorites[fav_idx].name
154                         gamedata.serverdescription      = menudata.favorites[fav_idx].description
155
156                         if not is_server_protocol_compat_or_error(menudata.favorites[fav_idx].proto_min,
157                                         menudata.favorites[fav_idx].proto_max) then
158                                 return true
159                         end
160                 else
161                         gamedata.servername                     = ""
162                         gamedata.serverdescription      = ""
163                 end
164
165                 gamedata.selected_world = 0
166
167                 core.setting_set("address",fields["te_address"])
168                 core.setting_set("remote_port",fields["te_port"])
169
170                 core.start()
171                 return true
172         end
173
174         if fields["btn_config_sp_world"] ~= nil then
175                 local configdialog = create_configure_world_dlg(1)
176
177                 if (configdialog ~= nil) then
178                         configdialog:set_parent(tabview)
179                         tabview:hide()
180                         configdialog:show()
181                 end
182                 return true
183         end
184 end
185
186 --------------------------------------------------------------------------------
187 local function on_activate(type,old_tab,new_tab)
188         if type == "LEAVE" then
189                 return
190         end
191         if core.setting_getbool("public_serverlist") then
192                 asyncOnlineFavourites()
193         else
194                 menudata.favorites = core.get_favorites("local")
195         end
196 end
197
198 --------------------------------------------------------------------------------
199 tab_simple_main = {
200         name = "main",
201         caption = fgettext("Main"),
202         cbf_formspec = get_formspec,
203         cbf_button_handler = main_button_handler,
204         on_change = on_activate
205         }