builtin/mainmenu.lua

   1 print = engine.debug
   2 math.randomseed(os.time())
   3 os.setlocale("C", "numeric")
   4
   5 local errorfct = error
   6 error = function(text)
   7         print(debug.traceback(""))
   8         errorfct(text)
   9 end
  10
  11 local scriptpath = engine.get_scriptdir()
  12
  13 mt_color_grey  = "#AAAAAA"
  14 mt_color_blue  = "#0000DD"
  15 mt_color_green = "#00DD00"
  16 mt_color_dark_green = "#003300"
  17
  18 --for all other colors ask sfan5 to complete his worK!
  19
  20 dofile(scriptpath .. DIR_DELIM .. "misc_helpers.lua")
  21 dofile(scriptpath .. DIR_DELIM .. "filterlist.lua")
  22 dofile(scriptpath .. DIR_DELIM .. "modmgr.lua")
  23 dofile(scriptpath .. DIR_DELIM .. "modstore.lua")
  24 dofile(scriptpath .. DIR_DELIM .. "gamemgr.lua")
  25 dofile(scriptpath .. DIR_DELIM .. "mm_textures.lua")
  26 dofile(scriptpath .. DIR_DELIM .. "mm_menubar.lua")
  27
  28 menu = {}
  29 local tabbuilder = {}
  30 local worldlist = nil
  31
  32 --------------------------------------------------------------------------------
  33 local function filter_texture_pack_list(list)
  34         retval = {"None"}
  35         for _,i in ipairs(list) do
  36                 if i~="base" then
  37                         table.insert(retval, i)
  38                 end
  39         end
  40         return retval
  41 end
  42
  43 --------------------------------------------------------------------------------
  44 function menu.render_favorite(spec,render_details)
  45         local text = ""
  46
  47         if spec.name ~= nil then
  48                 text = text .. engine.formspec_escape(spec.name:trim())
  49
  50 --              if spec.description ~= nil and
  51 --                      engine.formspec_escape(spec.description):trim() ~= "" then
  52 --                      text = text .. " (" .. engine.formspec_escape(spec.description) .. ")"
  53 --              end
  54         else
  55                 if spec.address ~= nil then
  56                         text = text .. spec.address:trim()
  57
  58                         if spec.port ~= nil then
  59                                 text = text .. ":" .. spec.port
  60                         end
  61                 end
  62         end
  63
  64         if not render_details then
  65                 return text
  66         end
  67
  68         local details = ""
  69         if spec.password == true then
  70                 details = details .. "*"
  71         else
  72                 details = details .. "_"
  73         end
  74
  75         if spec.creative then
  76                 details = details .. "C"
  77         else
  78                 details = details .. "_"
  79         end
  80
  81         if spec.damage then
  82                 details = details .. "D"
  83         else
  84                 details = details .. "_"
  85         end
  86
  87         if spec.pvp then
  88                 details = details .. "P"
  89         else
  90                 details = details .. "_"
  91         end
  92         details = details .. " "
  93
  94         local playercount = ""
  95
  96         if spec.clients ~= nil and
  97                 spec.clients_max ~= nil then
  98                 playercount = string.format("%03d",spec.clients) .. "/" ..
  99                                                 string.format("%03d",spec.clients_max) .. " "
 100         end
 101
 102         return playercount .. engine.formspec_escape(details) ..  text
 103 end
 104
 105 --------------------------------------------------------------------------------
 106 os.tempfolder = function()
 107         local filetocheck = os.tmpname()
 108         os.remove(filetocheck)
 109
 110         local randname = "MTTempModFolder_" .. math.random(0,10000)
 111         if DIR_DELIM == "\\" then
 112                 local tempfolder = os.getenv("TEMP")
 113                 return tempfolder .. filetocheck
 114         else
 115                 local backstring = filetocheck:reverse()
 116                 return filetocheck:sub(0,filetocheck:len()-backstring:find(DIR_DELIM)+1) ..randname
 117         end
 118
 119 end
 120
 121 --------------------------------------------------------------------------------
 122 function init_globals()
 123         --init gamedata
 124         gamedata.worldindex = 0
 125
 126         worldlist = filterlist.create(
 127                                         engine.get_worlds,
 128                                         compare_worlds,
 129                                         function(element,uid)
 130                                                 if element.name == uid then
 131                                                         return true
 132                                                 end
 133                                                 return false
 134                                         end, --unique id compare fct
 135                                         function(element,gameid)
 136                                                 if element.gameid == gameid then
 137                                                         return true
 138                                                 end
 139                                                 return false
 140                                         end --filter fct
 141                                         )
 142
 143         filterlist.add_sort_mechanism(worldlist,"alphabetic",sort_worlds_alphabetic)
 144         filterlist.set_sortmode(worldlist,"alphabetic")
 145
 146 end
 147
 148 --------------------------------------------------------------------------------
 149 function update_menu()
 150
 151         local formspec = "size[12,5.2]"
 152
 153         -- handle errors
 154         if gamedata.errormessage ~= nil then
 155                 formspec = formspec ..
 156                         "field[1,2;10,2;;ERROR: " ..
 157                         gamedata.errormessage ..
 158                         ";]"..
 159                         "button[4.5,4.2;3,0.5;btn_error_confirm;" .. fgettext("Ok") .. "]"
 160         else
 161                 formspec = formspec .. tabbuilder.gettab()
 162         end
 163
 164         engine.update_formspec(formspec)
 165 end
 166
 167 --------------------------------------------------------------------------------
 168 function menu.render_world_list()
 169         local retval = ""
 170
 171         local current_worldlist = filterlist.get_list(worldlist)
 172
 173         for i,v in ipairs(current_worldlist) do
 174                 if retval ~= "" then
 175                         retval = retval ..","
 176                 end
 177
 178                 retval = retval .. engine.formspec_escape(v.name) ..
 179                                         " \\[" .. engine.formspec_escape(v.gameid) .. "\\]"
 180         end
 181
 182         return retval
 183 end
 184
 185 --------------------------------------------------------------------------------
 186 function menu.render_texture_pack_list(list)
 187         local retval = ""
 188
 189         for i,v in ipairs(list) do
 190                 if retval ~= "" then
 191                         retval = retval ..","
 192                 end
 193
 194                 retval = retval .. v
 195         end
 196
 197         return retval
 198 end
 199
 200 --------------------------------------------------------------------------------
 201 function menu.init()
 202         --init menu data
 203         gamemgr.update_gamelist()
 204
 205         menu.last_game  = tonumber(engine.setting_get("main_menu_last_game_idx"))
 206
 207         if type(menu.last_game) ~= "number" then
 208                 menu.last_game = 1
 209         end
 210
 211         if engine.setting_getbool("public_serverlist") then
 212                 menu.favorites = engine.get_favorites("online")
 213         else
 214                 menu.favorites = engine.get_favorites("local")
 215         end
 216
 217         menu.defaulttexturedir = engine.get_texturepath() .. DIR_DELIM .. "base" ..
 218                                         DIR_DELIM .. "pack" .. DIR_DELIM
 219 end
 220
 221 --------------------------------------------------------------------------------
 222 function menu.lastgame()
 223         if menu.last_game > 0 and menu.last_game <= #gamemgr.games then
 224                 return gamemgr.games[menu.last_game]
 225         end
 226
 227         if #gamemgr.games >= 1 then
 228                 menu.last_game = 1
 229                 return gamemgr.games[menu.last_game]
 230         end
 231
 232         --error case!!
 233         return nil
 234 end
 235
 236 --------------------------------------------------------------------------------
 237 function menu.update_last_game()
 238
 239         local current_world = filterlist.get_raw_element(worldlist,
 240                                                         engine.setting_get("mainmenu_last_selected_world")
 241                                                         )
 242
 243         if current_world == nil then
 244                 return
 245         end
 246
 247         local gamespec, i = gamemgr.find_by_gameid(current_world.gameid)
 248         if i ~= nil then
 249                 menu.last_game = i
 250                 engine.setting_set("main_menu_last_game_idx",menu.last_game)
 251         end
 252 end
 253
 254 --------------------------------------------------------------------------------
 255 function menu.handle_key_up_down(fields,textlist,settingname)
 256
 257         if fields["key_up"] then
 258                 local oldidx = engine.get_textlist_index(textlist)
 259
 260                 if oldidx > 1 then
 261                         local newidx = oldidx -1
 262                         engine.setting_set(settingname,
 263                                 filterlist.get_raw_index(worldlist,newidx))
 264                 end
 265         end
 266
 267         if fields["key_down"] then
 268                 local oldidx = engine.get_textlist_index(textlist)
 269
 270                 if oldidx < filterlist.size(worldlist) then
 271                         local newidx = oldidx + 1
 272                         engine.setting_set(settingname,
 273                                 filterlist.get_raw_index(worldlist,newidx))
 274                 end
 275         end
 276 end
 277
 278 --------------------------------------------------------------------------------
 279 function tabbuilder.dialog_create_world()
 280         local mapgens = {"v6", "v7", "indev", "singlenode", "math"}
 281
 282         local current_mg = engine.setting_get("mg_name")
 283
 284         local mglist = ""
 285         local selindex = 1
 286         local i = 1
 287         for k,v in pairs(mapgens) do
 288                 if current_mg == v then
 289                         selindex = i
 290                 end
 291                 i = i + 1
 292                 mglist = mglist .. v .. ","
 293         end
 294         mglist = mglist:sub(1, -2)
 295
 296         local retval =
 297                 "label[2,0;" .. fgettext("World name") .. "]"..
 298                 "label[2,1;" .. fgettext("Mapgen") .. "]"..
 299                 "field[4.5,0.4;6,0.5;te_world_name;;]" ..
 300                 "label[2,2;" .. fgettext("Game") .. "]"..
 301                 "button[5,4.5;2.6,0.5;world_create_confirm;" .. fgettext("Create") .. "]" ..
 302                 "button[7.5,4.5;2.8,0.5;world_create_cancel;" .. fgettext("Cancel") .. "]" ..
 303                 "dropdown[4.2,1;6.3;dd_mapgen;" .. mglist .. ";" .. selindex .. "]" ..
 304                 "textlist[4.2,1.9;5.8,2.3;games;" ..
 305                 gamemgr.gamelist() ..
 306                 ";" .. menu.last_game .. ";true]"
 307
 308         return retval
 309 end
 310
 311 --------------------------------------------------------------------------------
 312 function tabbuilder.dialog_delete_world()
 313         return  "label[2,2;" ..
 314                         fgettext("Delete World \"$1\"?", filterlist.get_raw_list(worldlist)[menu.world_to_del].name) .. "]"..
 315                         "button[3.5,4.2;2.6,0.5;world_delete_confirm;" .. fgettext("Yes").. "]" ..
 316                         "button[6,4.2;2.8,0.5;world_delete_cancel;" .. fgettext("No") .. "]"
 317 end
 318
 319 --------------------------------------------------------------------------------
 320 function tabbuilder.gettab()
 321         local retval = ""
 322
 323         if tabbuilder.show_buttons then
 324                 retval = retval .. tabbuilder.tab_header()
 325         end
 326
 327         if tabbuilder.current_tab == "singleplayer" then
 328                 retval = retval .. tabbuilder.tab_singleplayer()
 329         end
 330
 331         if tabbuilder.current_tab == "multiplayer" then
 332                 retval = retval .. tabbuilder.tab_multiplayer()
 333         end
 334
 335         if tabbuilder.current_tab == "server" then
 336                 retval = retval .. tabbuilder.tab_server()
 337         end
 338
 339         if tabbuilder.current_tab == "settings" then
 340                 retval = retval .. tabbuilder.tab_settings()
 341         end
 342
 343         if tabbuilder.current_tab == "texture_packs" then
 344                 retval = retval .. tabbuilder.tab_texture_packs()
 345         end
 346
 347         if tabbuilder.current_tab == "credits" then
 348                 retval = retval .. tabbuilder.tab_credits()
 349         end
 350
 351         if tabbuilder.current_tab == "dialog_create_world" then
 352                 retval = retval .. tabbuilder.dialog_create_world()
 353         end
 354
 355         if tabbuilder.current_tab == "dialog_delete_world" then
 356                 retval = retval .. tabbuilder.dialog_delete_world()
 357         end
 358
 359         retval = retval .. modmgr.gettab(tabbuilder.current_tab)
 360         retval = retval .. gamemgr.gettab(tabbuilder.current_tab)
 361         retval = retval .. modstore.gettab(tabbuilder.current_tab)
 362
 363         return retval
 364 end
 365
 366 --------------------------------------------------------------------------------
 367 function tabbuilder.handle_create_world_buttons(fields)
 368
 369         if fields["world_create_confirm"] or
 370                 fields["key_enter"] then
 371
 372                 local worldname = fields["te_world_name"]
 373                 local gameindex = engine.get_textlist_index("games")
 374
 375                 if gameindex > 0 and
 376                         worldname ~= "" then
 377
 378                         local message = nil
 379
 380                         if not filterlist.uid_exists_raw(worldlist,worldname) then
 381                                 engine.setting_set("mg_name",fields["dd_mapgen"])
 382                                 message = engine.create_world(worldname,gameindex)
 383                         else
 384                                 message = fgettext("A world named \"$1\" already exists", worldname)
 385                         end
 386
 387                         if message ~= nil then
 388                                 gamedata.errormessage = message
 389                         else
 390                                 menu.last_game = gameindex
 391                                 engine.setting_set("main_menu_last_game_idx",gameindex)
 392
 393                                 filterlist.refresh(worldlist)
 394                                 engine.setting_set("mainmenu_last_selected_world",
 395                                                                         filterlist.raw_index_by_uid(worldlist,worldname))
 396                         end
 397                 else
 398                         gamedata.errormessage =
 399                                 fgettext("No worldname given or no game selected")
 400                 end
 401         end
 402
 403         if fields["games"] then
 404                 tabbuilder.skipformupdate = true
 405                 return
 406         end
 407
 408         --close dialog
 409         tabbuilder.is_dialog = false
 410         tabbuilder.show_buttons = true
 411         tabbuilder.current_tab = engine.setting_get("main_menu_tab")
 412 end
 413
 414 --------------------------------------------------------------------------------
 415 function tabbuilder.handle_delete_world_buttons(fields)
 416
 417         if fields["world_delete_confirm"] then
 418                 if menu.world_to_del > 0 and
 419                         menu.world_to_del <= #filterlist.get_raw_list(worldlist) then
 420                         engine.delete_world(menu.world_to_del)
 421                         menu.world_to_del = 0
 422                         filterlist.refresh(worldlist)
 423                 end
 424         end
 425
 426         tabbuilder.is_dialog = false
 427         tabbuilder.show_buttons = true
 428         tabbuilder.current_tab = engine.setting_get("main_menu_tab")
 429 end
 430
 431 --------------------------------------------------------------------------------
 432 function tabbuilder.handle_multiplayer_buttons(fields)
 433
 434         if fields["te_name"] ~= nil then
 435                 gamedata.playername = fields["te_name"]
 436                 engine.setting_set("name", fields["te_name"])
 437         end
 438
 439         if fields["favourites"] ~= nil then
 440                 local event = explode_textlist_event(fields["favourites"])
 441                 if event.typ == "DCL" then
 442                         gamedata.address = menu.favorites[event.index].address
 443                         gamedata.port = menu.favorites[event.index].port
 444                         gamedata.playername             = fields["te_name"]
 445                         if fields["te_pwd"] ~= nil then
 446                                 gamedata.password               = fields["te_pwd"]
 447                         end
 448                         gamedata.selected_world = 0
 449
 450                         if menu.favorites ~= nil then
 451                                 gamedata.servername = menu.favorites[event.index].name
 452                                 gamedata.serverdescription = menu.favorites[event.index].description
 453                         end
 454
 455                         if gamedata.address ~= nil and
 456                                 gamedata.port ~= nil then
 457
 458                                 engine.start()
 459                         end
 460                 end
 461
 462                 if event.typ == "CHG" then
 463                         local address = menu.favorites[event.index].address
 464                         local port = menu.favorites[event.index].port
 465
 466                         if address ~= nil and
 467                                 port ~= nil then
 468                                 engine.setting_set("address",address)
 469                                 engine.setting_set("port",port)
 470                         end
 471
 472                         menu.fav_selected = event.index
 473                 end
 474                 return
 475         end
 476
 477         if fields["key_up"] ~= nil or
 478                 fields["key_down"] ~= nil then
 479
 480                 local fav_idx = engine.get_textlist_index("favourites")
 481
 482                 if fields["key_up"] ~= nil and fav_idx > 1 then
 483                         fav_idx = fav_idx -1
 484                 else if fields["key_down"] and fav_idx < #menu.favorites then
 485                         fav_idx = fav_idx +1
 486                 end end
 487
 488                 local address = menu.favorites[fav_idx].address
 489                 local port = menu.favorites[fav_idx].port
 490
 491                 if address ~= nil and
 492                         port ~= nil then
 493                         engine.setting_set("address",address)
 494                         engine.setting_set("port",port)
 495                 end
 496
 497                 menu.fav_selected = fav_idx
 498                 return
 499         end
 500
 501         if fields["cb_public_serverlist"] ~= nil then
 502                 engine.setting_set("public_serverlist", fields["cb_public_serverlist"])
 503
 504                 if engine.setting_getbool("public_serverlist") then
 505                         menu.favorites = engine.get_favorites("online")
 506                 else
 507                         menu.favorites = engine.get_favorites("local")
 508                 end
 509                 menu.fav_selected = nil
 510                 return
 511         end
 512
 513         if fields["btn_delete_favorite"] ~= nil then
 514                 local current_favourite = engine.get_textlist_index("favourites")
 515                 engine.delete_favorite(current_favourite)
 516                 menu.favorites = engine.get_favorites()
 517                 menu.fav_selected = nil
 518
 519                 engine.setting_set("address","")
 520                 engine.setting_get("port","")
 521
 522                 return
 523         end
 524
 525         if fields["btn_mp_connect"] ~= nil or
 526                 fields["key_enter"] then
 527
 528                 gamedata.playername             = fields["te_name"]
 529                 gamedata.password               = fields["te_pwd"]
 530                 gamedata.address                = fields["te_address"]
 531                 gamedata.port                   = fields["te_port"]
 532
 533                 local fav_idx = engine.get_textlist_index("favourites")
 534
 535                 if fav_idx > 0 and fav_idx <= #menu.favorites and
 536                         menu.favorites[fav_idx].address == fields["te_address"] and
 537                         menu.favorites[fav_idx].port == fields["te_port"] then
 538
 539                         gamedata.servername                     = menu.favorites[fav_idx].name
 540                         gamedata.serverdescription      = menu.favorites[fav_idx].description
 541                 else
 542                         gamedata.servername = ""
 543                         gamedata.serverdescription = ""
 544                 end
 545
 546                 gamedata.selected_world = 0
 547
 548                 engine.start()
 549                 return
 550         end
 551 end
 552
 553 --------------------------------------------------------------------------------
 554 function tabbuilder.handle_server_buttons(fields)
 555
 556         local world_doubleclick = false
 557
 558         if fields["srv_worlds"] ~= nil then
 559                 local event = explode_textlist_event(fields["srv_worlds"])
 560
 561                 if event.typ == "DCL" then
 562                         world_doubleclick = true
 563                 end
 564                 if event.typ == "CHG" then
 565                         engine.setting_set("mainmenu_last_selected_world",
 566                                 filterlist.get_raw_index(worldlist,engine.get_textlist_index("srv_worlds")))
 567                 end
 568         end
 569
 570         menu.handle_key_up_down(fields,"srv_worlds","mainmenu_last_selected_world")
 571
 572         if fields["cb_creative_mode"] then
 573                 engine.setting_set("creative_mode", fields["cb_creative_mode"])
 574         end
 575
 576         if fields["cb_enable_damage"] then
 577                 engine.setting_set("enable_damage", fields["cb_enable_damage"])
 578         end
 579
 580         if fields["cb_server_announce"] then
 581                 engine.setting_set("server_announce", fields["cb_server_announce"])
 582         end
 583
 584         if fields["start_server"] ~= nil or
 585                 world_doubleclick or
 586                 fields["key_enter"] then
 587                 local selected = engine.get_textlist_index("srv_worlds")
 588                 if selected > 0 then
 589                         gamedata.playername             = fields["te_playername"]
 590                         gamedata.password               = fields["te_passwd"]
 591                         gamedata.port                   = fields["te_serverport"]
 592                         gamedata.address                = ""
 593                         gamedata.selected_world = filterlist.get_raw_index(worldlist,selected)
 594
 595                         menu.update_last_game(gamedata.selected_world)
 596                         engine.start()
 597                 end
 598         end
 599
 600         if fields["world_create"] ~= nil then
 601                 tabbuilder.current_tab = "dialog_create_world"
 602                 tabbuilder.is_dialog = true
 603                 tabbuilder.show_buttons = false
 604         end
 605
 606         if fields["world_delete"] ~= nil then
 607                 local selected = engine.get_textlist_index("srv_worlds")
 608                 if selected > 0 and
 609                         selected <= filterlist.size(worldlist) then
 610                         local world = filterlist.get_list(worldlist)[selected]
 611                         if world ~= nil and
 612                                 world.name ~= nil and
 613                                 world.name ~= "" then
 614                                 menu.world_to_del = filterlist.get_raw_index(worldlist,selected)
 615                                 tabbuilder.current_tab = "dialog_delete_world"
 616                                 tabbuilder.is_dialog = true
 617                                 tabbuilder.show_buttons = false
 618                         else
 619                                 menu.world_to_del = 0
 620                         end
 621                 end
 622         end
 623
 624         if fields["world_configure"] ~= nil then
 625                 selected = engine.get_textlist_index("srv_worlds")
 626                 if selected > 0 then
 627                         modmgr.world_config_selected_world = filterlist.get_raw_index(worldlist,selected)
 628                         if modmgr.init_worldconfig() then
 629                                 tabbuilder.current_tab = "dialog_configure_world"
 630                                 tabbuilder.is_dialog = true
 631                                 tabbuilder.show_buttons = false
 632                         end
 633                 end
 634         end
 635 end
 636
 637 --------------------------------------------------------------------------------
 638 function tabbuilder.handle_settings_buttons(fields)
 639         if fields["cb_fancy_trees"] then
 640                 engine.setting_set("new_style_leaves", fields["cb_fancy_trees"])
 641         end
 642         if fields["cb_smooth_lighting"] then
 643                 engine.setting_set("smooth_lighting", fields["cb_smooth_lighting"])
 644         end
 645         if fields["cb_3d_clouds"] then
 646                 engine.setting_set("enable_3d_clouds", fields["cb_3d_clouds"])
 647         end
 648         if fields["cb_opaque_water"] then
 649                 engine.setting_set("opaque_water", fields["cb_opaque_water"])
 650         end
 651
 652         if fields["cb_mipmapping"] then
 653                 engine.setting_set("mip_map", fields["cb_mipmapping"])
 654         end
 655         if fields["cb_anisotrophic"] then
 656                 engine.setting_set("anisotropic_filter", fields["cb_anisotrophic"])
 657         end
 658         if fields["cb_bilinear"] then
 659                 engine.setting_set("bilinear_filter", fields["cb_bilinear"])
 660         end
 661         if fields["cb_trilinear"] then
 662                 engine.setting_set("trilinear_filter", fields["cb_trilinear"])
 663         end
 664
 665         if fields["cb_shaders"] then
 666                 engine.setting_set("enable_shaders", fields["cb_shaders"])
 667         end
 668         if fields["cb_pre_ivis"] then
 669                 engine.setting_set("preload_item_visuals", fields["cb_pre_ivis"])
 670         end
 671         if fields["cb_particles"] then
 672                 engine.setting_set("enable_particles", fields["cb_particles"])
 673         end
 674         if fields["cb_finite_liquid"] then
 675                 engine.setting_set("liquid_finite", fields["cb_finite_liquid"])
 676         end
 677
 678         if fields["btn_change_keys"] ~= nil then
 679                 engine.show_keys_menu()
 680         end
 681 end
 682
 683 --------------------------------------------------------------------------------
 684 function tabbuilder.handle_singleplayer_buttons(fields)
 685
 686         local world_doubleclick = false
 687
 688         if fields["sp_worlds"] ~= nil then
 689                 local event = explode_textlist_event(fields["sp_worlds"])
 690
 691                 if event.typ == "DCL" then
 692                         world_doubleclick = true
 693                 end
 694
 695                 if event.typ == "CHG" then
 696                         engine.setting_set("mainmenu_last_selected_world",
 697                                 filterlist.get_raw_index(worldlist,engine.get_textlist_index("sp_worlds")))
 698                 end
 699         end
 700
 701         menu.handle_key_up_down(fields,"sp_worlds","mainmenu_last_selected_world")
 702
 703         if fields["cb_creative_mode"] then
 704                 engine.setting_set("creative_mode", fields["cb_creative_mode"])
 705         end
 706
 707         if fields["cb_enable_damage"] then
 708                 engine.setting_set("enable_damage", fields["cb_enable_damage"])
 709         end
 710
 711         if fields["play"] ~= nil or
 712                 world_doubleclick or
 713                 fields["key_enter"] then
 714                 local selected = engine.get_textlist_index("sp_worlds")
 715                 if selected > 0 then
 716                         gamedata.selected_world = filterlist.get_raw_index(worldlist,selected)
 717                         gamedata.singleplayer   = true
 718
 719                         menu.update_last_game(gamedata.selected_world)
 720
 721                         engine.start()
 722                 end
 723         end
 724
 725         if fields["world_create"] ~= nil then
 726                 tabbuilder.current_tab = "dialog_create_world"
 727                 tabbuilder.is_dialog = true
 728                 tabbuilder.show_buttons = false
 729         end
 730
 731         if fields["world_delete"] ~= nil then
 732                 local selected = engine.get_textlist_index("sp_worlds")
 733                 if selected > 0 and
 734                         selected <= filterlist.size(worldlist) then
 735                         local world = filterlist.get_list(worldlist)[selected]
 736                         if world ~= nil and
 737                                 world.name ~= nil and
 738                                 world.name ~= "" then
 739                                 menu.world_to_del = filterlist.get_raw_index(worldlist,selected)
 740                                 tabbuilder.current_tab = "dialog_delete_world"
 741                                 tabbuilder.is_dialog = true
 742                                 tabbuilder.show_buttons = false
 743                         else
 744                                 menu.world_to_del = 0
 745                         end
 746                 end
 747         end
 748
 749         if fields["world_configure"] ~= nil then
 750                 selected = engine.get_textlist_index("sp_worlds")
 751                 if selected > 0 then
 752                         modmgr.world_config_selected_world = filterlist.get_raw_index(worldlist,selected)
 753                         if modmgr.init_worldconfig() then
 754                                 tabbuilder.current_tab = "dialog_configure_world"
 755                                 tabbuilder.is_dialog = true
 756                                 tabbuilder.show_buttons = false
 757                         end
 758                 end
 759         end
 760 end
 761
 762 --------------------------------------------------------------------------------
 763 function tabbuilder.handle_texture_pack_buttons(fields)
 764         if fields["TPs"] ~= nil then
 765                 local event = explode_textlist_event(fields["TPs"])
 766                 if event.typ == "CHG" or event.typ=="DCL" then
 767                         local index = engine.get_textlist_index("TPs")
 768                         engine.setting_set("mainmenu_last_selected_TP",
 769                                 index)
 770                         local list = filter_texture_pack_list(engine.get_dirlist(engine.get_texturepath(), true))
 771                         local current_index = engine.get_textlist_index("TPs")
 772                         if #list >= current_index then
 773                                 local new_path = engine.get_texturepath()..DIR_DELIM..list[current_index]
 774                                 if list[current_index] == "None" then new_path = "" end
 775
 776                                 engine.setting_set("texture_path", new_path)
 777                         end
 778                 end
 779         end
 780 end
 781
 782 --------------------------------------------------------------------------------
 783 function tabbuilder.tab_header()
 784
 785         if tabbuilder.last_tab_index == nil then
 786                 tabbuilder.last_tab_index = 1
 787         end
 788
 789         local toadd = ""
 790
 791         for i=1,#tabbuilder.current_buttons,1 do
 792
 793                 if toadd ~= "" then
 794                         toadd = toadd .. ","
 795                 end
 796
 797                 toadd = toadd .. tabbuilder.current_buttons[i].caption
 798         end
 799         return "tabheader[-0.3,-0.99;main_tab;" .. toadd ..";" .. tabbuilder.last_tab_index .. ";true;false]"
 800 end
 801
 802 --------------------------------------------------------------------------------
 803 function tabbuilder.handle_tab_buttons(fields)
 804
 805         if fields["main_tab"] then
 806                 local index = tonumber(fields["main_tab"])
 807                 tabbuilder.last_tab_index = index
 808                 tabbuilder.current_tab = tabbuilder.current_buttons[index].name
 809
 810                 engine.setting_set("main_menu_tab",tabbuilder.current_tab)
 811         end
 812
 813         --handle tab changes
 814         if tabbuilder.current_tab ~= tabbuilder.old_tab then
 815                 if tabbuilder.current_tab ~= "singleplayer" and not tabbuilder.is_dialog then
 816                         menu.update_gametype(true)
 817                 end
 818         end
 819
 820         if tabbuilder.current_tab == "singleplayer" then
 821                 menu.update_gametype()
 822         end
 823
 824         tabbuilder.old_tab = tabbuilder.current_tab
 825 end
 826
 827 --------------------------------------------------------------------------------
 828 function tabbuilder.init()
 829         tabbuilder.current_tab = engine.setting_get("main_menu_tab")
 830
 831         if tabbuilder.current_tab == nil or
 832                 tabbuilder.current_tab == "" then
 833                 tabbuilder.current_tab = "singleplayer"
 834                 engine.setting_set("main_menu_tab",tabbuilder.current_tab)
 835         end
 836
 837         --initialize tab buttons
 838         tabbuilder.last_tab = nil
 839         tabbuilder.show_buttons = true
 840
 841         tabbuilder.current_buttons = {}
 842         table.insert(tabbuilder.current_buttons,{name="singleplayer", caption=fgettext("Singleplayer")})
 843         table.insert(tabbuilder.current_buttons,{name="multiplayer", caption=fgettext("Client")})
 844         table.insert(tabbuilder.current_buttons,{name="server", caption=fgettext("Server")})
 845         table.insert(tabbuilder.current_buttons,{name="settings", caption=fgettext("Settings")})
 846         table.insert(tabbuilder.current_buttons,{name="texture_packs", caption=fgettext("Texture Packs")})
 847
 848         if engine.setting_getbool("main_menu_game_mgr") then
 849                 table.insert(tabbuilder.current_buttons,{name="game_mgr", caption=fgettext("Games")})
 850         end
 851
 852         if engine.setting_getbool("main_menu_mod_mgr") then
 853                 table.insert(tabbuilder.current_buttons,{name="mod_mgr", caption=fgettext("Mods")})
 854         end
 855         table.insert(tabbuilder.current_buttons,{name="credits", caption=fgettext("Credits")})
 856
 857
 858         for i=1,#tabbuilder.current_buttons,1 do
 859                 if tabbuilder.current_buttons[i].name == tabbuilder.current_tab then
 860                         tabbuilder.last_tab_index = i
 861                 end
 862         end
 863
 864         if tabbuilder.current_tab ~= "singleplayer" then
 865                 menu.update_gametype(true)
 866         else
 867                 menu.update_gametype()
 868         end
 869 end
 870
 871 --------------------------------------------------------------------------------
 872 function tabbuilder.tab_multiplayer()
 873
 874         local retval =
 875                 "vertlabel[0,-0.25;".. fgettext("CLIENT") .. "]" ..
 876                 "label[1,-0.25;".. fgettext("Favorites:") .. "]"..
 877                 "label[1,4.25;".. fgettext("Address/Port") .. "]"..
 878                 "label[9,2.75;".. fgettext("Name/Password") .. "]" ..
 879                 "field[1.25,5.25;5.5,0.5;te_address;;" ..engine.setting_get("address") .."]" ..
 880                 "field[6.75,5.25;2.25,0.5;te_port;;" ..engine.setting_get("port") .."]" ..
 881                 "checkbox[1,3.6;cb_public_serverlist;".. fgettext("Public Serverlist") .. ";" ..
 882                 dump(engine.setting_getbool("public_serverlist")) .. "]"
 883
 884         if not engine.setting_getbool("public_serverlist") then
 885                 retval = retval ..
 886                 "button[6.45,3.95;2.25,0.5;btn_delete_favorite;".. fgettext("Delete") .. "]"
 887         end
 888
 889         retval = retval ..
 890                 "button[9,4.95;2.5,0.5;btn_mp_connect;".. fgettext("Connect") .. "]" ..
 891                 "field[9.3,3.75;2.5,0.5;te_name;;" ..engine.setting_get("name") .."]" ..
 892                 "pwdfield[9.3,4.5;2.5,0.5;te_pwd;]" ..
 893                 "textarea[9.3,0.25;2.5,2.75;;"
 894         if menu.fav_selected ~= nil and
 895                 menu.favorites[menu.fav_selected].description ~= nil then
 896                 retval = retval ..
 897                         engine.formspec_escape(menu.favorites[menu.fav_selected].description,true)
 898         end
 899
 900         retval = retval ..
 901                 ";]" ..
 902                 "textlist[1,0.35;7.5,3.35;favourites;"
 903
 904         local render_details = engine.setting_getbool("public_serverlist")
 905
 906         if #menu.favorites > 0 then
 907                 retval = retval .. menu.render_favorite(menu.favorites[1],render_details)
 908
 909                 for i=2,#menu.favorites,1 do
 910                         retval = retval .. "," .. menu.render_favorite(menu.favorites[i],render_details)
 911                 end
 912         end
 913
 914         if menu.fav_selected ~= nil then
 915                 retval = retval .. ";" .. menu.fav_selected .. "]"
 916         else
 917                 retval = retval .. ";0]"
 918         end
 919
 920         return retval
 921 end
 922
 923 --------------------------------------------------------------------------------
 924 function tabbuilder.tab_server()
 925
 926         local index = filterlist.get_current_index(worldlist,
 927                                 tonumber(engine.setting_get("mainmenu_last_selected_world"))
 928                                 )
 929
 930         local retval =
 931                 "button[4,4.15;2.6,0.5;world_delete;".. fgettext("Delete") .. "]" ..
 932                 "button[6.5,4.15;2.8,0.5;world_create;".. fgettext("New") .. "]" ..
 933                 "button[9.2,4.15;2.55,0.5;world_configure;".. fgettext("Configure") .. "]" ..
 934                 "button[8.5,4.9;3.25,0.5;start_server;".. fgettext("Start Game") .. "]" ..
 935                 "label[4,-0.25;".. fgettext("Select World:") .. "]"..
 936                 "vertlabel[0,-0.25;".. fgettext("START SERVER") .. "]" ..
 937                 "checkbox[0.5,0.25;cb_creative_mode;".. fgettext("Creative Mode") .. ";" ..
 938                 dump(engine.setting_getbool("creative_mode")) .. "]"..
 939                 "checkbox[0.5,0.7;cb_enable_damage;".. fgettext("Enable Damage") .. ";" ..
 940                 dump(engine.setting_getbool("enable_damage")) .. "]"..
 941                 "checkbox[0.5,1.15;cb_server_announce;".. fgettext("Public") .. ";" ..
 942                 dump(engine.setting_getbool("server_announce")) .. "]"..
 943                 "field[0.8,3.2;3,0.5;te_playername;".. fgettext("Name") .. ";" ..
 944                 engine.setting_get("name") .. "]" ..
 945                 "pwdfield[0.8,4.2;3,0.5;te_passwd;".. fgettext("Password") .. "]" ..
 946                 "field[0.8,5.2;3,0.5;te_serverport;".. fgettext("Server Port") .. ";30000]" ..
 947                 "textlist[4,0.25;7.5,3.7;srv_worlds;" ..
 948                 menu.render_world_list() ..
 949                 ";" .. index .. "]"
 950
 951         return retval
 952 end
 953
 954 --------------------------------------------------------------------------------
 955 function tabbuilder.tab_settings()
 956         return  "vertlabel[0,0;" .. fgettext("SETTINGS") .. "]" ..
 957                         "checkbox[1,0.75;cb_fancy_trees;".. fgettext("Fancy trees") .. ";"
 958                                         .. dump(engine.setting_getbool("new_style_leaves")) .. "]"..
 959                         "checkbox[1,1.25;cb_smooth_lighting;".. fgettext("Smooth Lighting")
 960                                         .. ";".. dump(engine.setting_getbool("smooth_lighting")) .. "]"..
 961                         "checkbox[1,1.75;cb_3d_clouds;".. fgettext("3D Clouds") .. ";"
 962                                         .. dump(engine.setting_getbool("enable_3d_clouds")) .. "]"..
 963                         "checkbox[1,2.25;cb_opaque_water;".. fgettext("Opaque Water") .. ";"
 964                                         .. dump(engine.setting_getbool("opaque_water")) .. "]"..
 965
 966                         "checkbox[4,0.75;cb_mipmapping;".. fgettext("Mip-Mapping") .. ";"
 967                                         .. dump(engine.setting_getbool("mip_map")) .. "]"..
 968                         "checkbox[4,1.25;cb_anisotrophic;".. fgettext("Anisotropic Filtering") .. ";"
 969                                         .. dump(engine.setting_getbool("anisotropic_filter")) .. "]"..
 970                         "checkbox[4,1.75;cb_bilinear;".. fgettext("Bi-Linear Filtering") .. ";"
 971                                         .. dump(engine.setting_getbool("bilinear_filter")) .. "]"..
 972                         "checkbox[4,2.25;cb_trilinear;".. fgettext("Tri-Linear Filtering") .. ";"
 973                                         .. dump(engine.setting_getbool("trilinear_filter")) .. "]"..
 974
 975                         "checkbox[7.5,0.75;cb_shaders;".. fgettext("Shaders") .. ";"
 976                                         .. dump(engine.setting_getbool("enable_shaders")) .. "]"..
 977                         "checkbox[7.5,1.25;cb_pre_ivis;".. fgettext("Preload item visuals") .. ";"
 978                                         .. dump(engine.setting_getbool("preload_item_visuals")) .. "]"..
 979                         "checkbox[7.5,1.75;cb_particles;".. fgettext("Enable Particles") .. ";"
 980                                         .. dump(engine.setting_getbool("enable_particles"))     .. "]"..
 981                         "checkbox[7.5,2.25;cb_finite_liquid;".. fgettext("Finite Liquid") .. ";"
 982                                         .. dump(engine.setting_getbool("liquid_finite")) .. "]"..
 983
 984                         "button[1,4.25;2.25,0.5;btn_change_keys;".. fgettext("Change keys") .. "]"
 985 end
 986
 987 --------------------------------------------------------------------------------
 988 function tabbuilder.tab_singleplayer()
 989
 990         local index = filterlist.get_current_index(worldlist,
 991                                 tonumber(engine.setting_get("mainmenu_last_selected_world"))
 992                                 )
 993
 994         return  "button[4,4.15;2.6,0.5;world_delete;".. fgettext("Delete") .. "]" ..
 995                         "button[6.5,4.15;2.8,0.5;world_create;".. fgettext("New") .. "]" ..
 996                         "button[9.2,4.15;2.55,0.5;world_configure;".. fgettext("Configure") .. "]" ..
 997                         "button[8.5,4.95;3.25,0.5;play;".. fgettext("Play") .. "]" ..
 998                         "label[4,-0.25;".. fgettext("Select World:") .. "]"..
 999                         "vertlabel[0,-0.25;".. fgettext("SINGLE PLAYER") .. "]" ..
1000                         "checkbox[0.5,0.25;cb_creative_mode;".. fgettext("Creative Mode") .. ";" ..
1001                         dump(engine.setting_getbool("creative_mode")) .. "]"..
1002                         "checkbox[0.5,0.7;cb_enable_damage;".. fgettext("Enable Damage") .. ";" ..
1003                         dump(engine.setting_getbool("enable_damage")) .. "]"..
1004                         "textlist[4,0.25;7.5,3.7;sp_worlds;" ..
1005                         menu.render_world_list() ..
1006                         ";" .. index .. "]" ..
1007                         menubar.formspec
1008 end
1009
1010 --------------------------------------------------------------------------------
1011 function tabbuilder.tab_texture_packs()
1012         local retval = "label[4,-0.25;".. fgettext("Select texture pack:") .. "]"..
1013                         "vertlabel[0,-0.25;".. fgettext("TEXTURE PACKS") .. "]" ..
1014                         "textlist[4,0.25;7.5,5.0;TPs;"
1015
1016         local current_texture_path = engine.setting_get("texture_path")
1017         local list = filter_texture_pack_list(engine.get_dirlist(engine.get_texturepath(), true))
1018         local index = tonumber(engine.setting_get("mainmenu_last_selected_TP"))
1019
1020         if index == nil then index = 1 end
1021
1022         if current_texture_path == "" then
1023                 retval = retval ..
1024                         menu.render_texture_pack_list(list) ..
1025                         ";" .. index .. "]"
1026                 return retval
1027         end
1028
1029         local infofile = current_texture_path ..DIR_DELIM.."info.txt"
1030         local infotext = ""
1031         local f = io.open(infofile, "r")
1032         if f==nil then
1033                 infotext = fgettext("No information available")
1034         else
1035                 infotext = f:read("*all")
1036                 f:close()
1037         end
1038
1039         local screenfile = current_texture_path..DIR_DELIM.."screenshot.png"
1040         local no_screenshot = nil
1041         if not file_exists(screenfile) then
1042                 screenfile = nil
1043                 no_screenshot = engine.get_texturepath()..DIR_DELIM..
1044                                         "base"..DIR_DELIM.."pack"..DIR_DELIM.."no_screenshot.png"
1045         end
1046
1047         return  retval ..
1048                         menu.render_texture_pack_list(list) ..
1049                         ";" .. index .. "]" ..
1050                         "image[0.65,0.25;4.0,3.7;"..engine.formspec_escape(screenfile or no_screenshot).."]"..
1051                         "textarea[1.0,3.25;3.7,1.5;;"..engine.formspec_escape(infotext or "")..";]"
1052 end
1053
1054 --------------------------------------------------------------------------------
1055 function tabbuilder.tab_credits()
1056         local logofile = menu.defaulttexturedir .. "logo.png"
1057         return  "vertlabel[0,-0.5;CREDITS]" ..
1058                         "label[0.5,3;Minetest " .. engine.get_version() .. "]" ..
1059                         "label[0.5,3.3;http://minetest.net]" ..
1060                         "image[0.5,1;" .. engine.formspec_escape(logofile) .. "]" ..
1061                         "textlist[3.5,-0.25;8.5,5.8;list_credits;" ..
1062                         "#FFFF00" .. fgettext("Core Developers") .."," ..
1063                         "Perttu Ahola (celeron55) <celeron55@gmail.com>,"..
1064                         "Ryan Kwolek (kwolekr) <kwolekr@minetest.net>,"..
1065                         "PilzAdam <pilzadam@minetest.net>," ..
1066                         "Ilya Zhuravlev (xyz) <xyz@minetest.net>,"..
1067                         "Lisa Milne (darkrose) <lisa@ltmnet.com>,"..
1068                         "Maciej Kasatkin (RealBadAngel) <mk@realbadangel.pl>,"..
1069                         "proller <proler@gmail.com>,"..
1070                         "sfan5 <sfan5@live.de>,"..
1071                         "kahrl <kahrl@gmx.net>,"..
1072                         "sapier,"..
1073                         "ShadowNinja,"..
1074                         "Nathanaël Courant (Nore/Novatux) <nore@mesecons.net>,"..
1075                         ","..
1076                         "#FFFF00" .. fgettext("Active Contributors") .. "," ..
1077                         "Vanessa Ezekowitz (VanessaE) <vanessaezekowitz@gmail.com>,"..
1078                         "Jurgen Doser (doserj) <jurgen.doser@gmail.com>,"..
1079                         "Jeija <jeija@mesecons.net>,"..
1080                         "MirceaKitsune <mirceakitsune@gmail.com>,"..
1081                         "dannydark <the_skeleton_of_a_child@yahoo.co.uk>,"..
1082                         "0gb.us <0gb.us@0gb.us>,"..
1083                         "," ..
1084                         "#FFFF00" .. fgettext("Previous Contributors") .. "," ..
1085                         "Guiseppe Bilotta (Oblomov) <guiseppe.bilotta@gmail.com>,"..
1086                         "Jonathan Neuschafer <j.neuschaefer@gmx.net>,"..
1087                         "Nils Dagsson Moskopp (erlehmann) <nils@dieweltistgarnichtso.net>,"..
1088                         "Constantin Wenger (SpeedProg) <constantin.wenger@googlemail.com>,"..
1089                         "matttpt <matttpt@gmail.com>,"..
1090                         "JacobF <queatz@gmail.com>,"..
1091                         ";0;true]"
1092 end
1093
1094 --------------------------------------------------------------------------------
1095 function tabbuilder.checkretval(retval)
1096
1097         if retval ~= nil then
1098                 if retval.current_tab ~= nil then
1099                         tabbuilder.current_tab = retval.current_tab
1100                 end
1101
1102                 if retval.is_dialog ~= nil then
1103                         tabbuilder.is_dialog = retval.is_dialog
1104                 end
1105
1106                 if retval.show_buttons ~= nil then
1107                         tabbuilder.show_buttons = retval.show_buttons
1108                 end
1109
1110                 if retval.skipformupdate ~= nil then
1111                         tabbuilder.skipformupdate = retval.skipformupdate
1112                 end
1113         end
1114 end
1115
1116 --------------------------------------------------------------------------------
1117 --------------------------------------------------------------------------------
1118 -- initialize callbacks
1119 --------------------------------------------------------------------------------
1120 --------------------------------------------------------------------------------
1121 engine.button_handler = function(fields)
1122         --print("Buttonhandler: tab: " .. tabbuilder.current_tab .. " fields: " .. dump(fields))
1123
1124         if fields["btn_error_confirm"] then
1125                 gamedata.errormessage = nil
1126         end
1127
1128         local retval = modmgr.handle_buttons(tabbuilder.current_tab,fields)
1129         tabbuilder.checkretval(retval)
1130
1131         retval = gamemgr.handle_buttons(tabbuilder.current_tab,fields)
1132         tabbuilder.checkretval(retval)
1133
1134         retval = modstore.handle_buttons(tabbuilder.current_tab,fields)
1135         tabbuilder.checkretval(retval)
1136
1137         if tabbuilder.current_tab == "dialog_create_world" then
1138                 tabbuilder.handle_create_world_buttons(fields)
1139         end
1140
1141         if tabbuilder.current_tab == "dialog_delete_world" then
1142                 tabbuilder.handle_delete_world_buttons(fields)
1143         end
1144
1145         if tabbuilder.current_tab == "singleplayer" then
1146                 tabbuilder.handle_singleplayer_buttons(fields)
1147         end
1148
1149         if tabbuilder.current_tab == "texture_packs" then
1150                 tabbuilder.handle_texture_pack_buttons(fields)
1151         end
1152
1153         if tabbuilder.current_tab == "multiplayer" then
1154                 tabbuilder.handle_multiplayer_buttons(fields)
1155         end
1156
1157         if tabbuilder.current_tab == "settings" then
1158                 tabbuilder.handle_settings_buttons(fields)
1159         end
1160
1161         if tabbuilder.current_tab == "server" then
1162                 tabbuilder.handle_server_buttons(fields)
1163         end
1164
1165         --tab buttons
1166         tabbuilder.handle_tab_buttons(fields)
1167
1168         --menubar buttons
1169         menubar.handle_buttons(fields)
1170
1171         if not tabbuilder.skipformupdate then
1172                 --update menu
1173                 update_menu()
1174         else
1175                 tabbuilder.skipformupdate = false
1176         end
1177 end
1178
1179 --------------------------------------------------------------------------------
1180 engine.event_handler = function(event)
1181         if event == "MenuQuit" then
1182                 if tabbuilder.is_dialog then
1183                         tabbuilder.is_dialog = false
1184                         tabbuilder.show_buttons = true
1185                         tabbuilder.current_tab = engine.setting_get("main_menu_tab")
1186                         menu.update_gametype()
1187                         update_menu()
1188                 else
1189                         engine.close()
1190                 end
1191         end
1192 end
1193
1194 --------------------------------------------------------------------------------
1195 function menu.update_gametype(reset)
1196         if reset then
1197                 mm_texture.reset()
1198                 engine.set_topleft_text("")
1199                 filterlist.set_filtercriteria(worldlist,nil)
1200         else
1201                 local game = menu.lastgame()
1202                 mm_texture.update(tabbuilder.current_tab,game)
1203                 engine.set_topleft_text(game.name)
1204                 filterlist.set_filtercriteria(worldlist,game.id)
1205         end
1206 end
1207
1208 --------------------------------------------------------------------------------
1209 --------------------------------------------------------------------------------
1210 -- menu startup
1211 --------------------------------------------------------------------------------
1212 --------------------------------------------------------------------------------
1213 init_globals()
1214 mm_texture.init()
1215 menu.init()
1216 tabbuilder.init()
1217 menubar.refresh()
1218 modstore.init()
1219
1220 engine.sound_play("main_menu", true)
1221
1222 update_menu()