Vanessa Dannenberg
2018-11-27 bdd13beeff5045a34042439e39620b9ca550b214
technic/machines/LV/music_player.lua
@@ -9,27 +9,11 @@
   recipe = {
      {'technic:chromium_ingot', 'default:diamond',        'technic:chromium_ingot'},
      {'default:diamond',        'technic:machine_casing', 'default:diamond'},
      {'default:mossycobble',    'technic:lv_cable0',      'default:mossycobble'},
      {'default:mossycobble',    'technic:lv_cable',       'default:mossycobble'},
   }
})
local music_handles = {}
local music_player_formspec =
   "invsize[8,9;]"..
   "label[0,0;"..S("%s Music Player"):format("LV").."]"..
   "button[4,1;1,1;track1;1]"..
   "button[5,1;1,1;track2;2]"..
   "button[6,1;1,1;track3;3]"..
   "button[4,2;1,1;track4;4]"..
   "button[5,2;1,1;track5;5]"..
   "button[6,2;1,1;track6;6]"..
   "button[4,3;1,1;track7;7]"..
   "button[5,3;1,1;track8;8]"..
   "button[6,3;1,1;track9;9]"..
   "button[4,4;1,2;play;Play]"..
   "button[6,4;1,2;stop;Stop]"..
   "label[4,0;"..S("Current track %s"):format("--").."]"
local function play_track(pos, track)
   return minetest.sound_play("technic_track"..tostring(track),
@@ -85,51 +69,58 @@
   end
end
local function set_display(meta)
   meta:set_string("formspec",
         "size[4,4.5]"..
         "item_image[0,0;1,1;technic:music_player]"..
         "label[1,0;"..S("%s Music Player"):format("LV").."]"..
         "button[0,1;1,1;track1;1]"..
         "button[1,1;1,1;track2;2]"..
         "button[2,1;1,1;track3;3]"..
         "button[0,2;1,1;track4;4]"..
         "button[1,2;1,1;track5;5]"..
         "button[2,2;1,1;track6;6]"..
         "button[0,3;1,1;track7;7]"..
         "button[1,3;1,1;track8;8]"..
         "button[2,3;1,1;track9;9]"..
         "button[3,1;1,1;stop;Stop]"..
         "label[0,4;"..minetest.formspec_escape(
            meta:get_int("active") == 0 and
               S("Stopped") or
               S("Current track %s"):format(meta:get_int("current_track"))).."]")
end
minetest.register_node("technic:music_player", {
   description = S("%s Music Player"):format("LV"),
   tiles = {"technic_music_player_top.png", "technic_machine_bottom.png", "technic_music_player_side.png",
            "technic_music_player_side.png", "technic_music_player_side.png", "technic_music_player_side.png"},
   groups = {snappy=2, choppy=2, oddly_breakable_by_hand=2, technic_machine=1},
   groups = {snappy=2, choppy=2, oddly_breakable_by_hand=2,
      technic_machine=1, technic_lv=1},
   connect_sides = {"bottom"},
   sounds = default.node_sound_wood_defaults(),
   on_construct = function(pos)
      local meta = minetest.get_meta(pos)
      meta:set_string("infotext", S("%s Music Player"):format("LV"))
      meta:set_int("active", 0)
      meta:set_int("current_track", 1)
      meta:set_string("formspec", music_player_formspec)
      set_display(meta)
   end,
   on_receive_fields = function(pos, formanme, fields, sender)
      local meta          = minetest.get_meta(pos)
      local current_track = meta:get_int("current_track")
      if fields.track1 then current_track = 1 end
      if fields.track2 then current_track = 2 end
      if fields.track3 then current_track = 3 end
      if fields.track4 then current_track = 4 end
      if fields.track5 then current_track = 5 end
      if fields.track6 then current_track = 6 end
      if fields.track7 then current_track = 7 end
      if fields.track8 then current_track = 8 end
      if fields.track9 then current_track = 9 end
      meta:set_int("current_track", current_track)
      meta:set_string("formspec",
            "invsize[8,9;]"..
            "label[0,0;"..S("%s Music Player"):format("LV").."]"..
            "button[4,1;1,1;track1;1]"..
            "button[5,1;1,1;track2;2]"..
            "button[6,1;1,1;track3;3]"..
            "button[4,2;1,1;track4;4]"..
            "button[5,2;1,1;track5;5]"..
            "button[6,2;1,1;track6;6]"..
            "button[4,3;1,1;track7;7]"..
            "button[5,3;1,1;track8;8]"..
            "button[6,3;1,1;track9;9]"..
            "button[4,4;1,2;play;Play]"..
            "button[6,4;1,2;stop;Stop]"..
            "label[4,0;"..S("Current track %s")
               :format(current_track).."]")
      if fields.play or fields.stop then
      local new_track = nil
      if fields.stop then new_track = 0 end
      if fields.track1 then new_track = 1 end
      if fields.track2 then new_track = 2 end
      if fields.track3 then new_track = 3 end
      if fields.track4 then new_track = 4 end
      if fields.track5 then new_track = 5 end
      if fields.track6 then new_track = 6 end
      if fields.track7 then new_track = 7 end
      if fields.track8 then new_track = 8 end
      if fields.track9 then new_track = 9 end
      if new_track then
         stop_player(pos)
         meta:set_int("active", fields.play and 1 or 0)
         local meta = minetest.get_meta(pos)
         meta:set_int("active", new_track == 0 and 0 or 1)
         meta:set_int("current_track", new_track)
         set_display(meta)
      end
   end,
   on_destruct = stop_player,