builtin/mainmenu.lua

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