coil
2019-08-26 d119a6748264a4f9825eebdd4ddeb2421cc4784a
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
-- LV Music player.
-- The player can play music. But it is high ampage!
 
local S = technic.getter
 
minetest.register_alias("music_player", "technic:music_player")
minetest.register_craft({
    output = 'technic:music_player',
    recipe = {
        {'technic:chromium_ingot', 'default:diamond',        'technic:chromium_ingot'},
        {'default:diamond',        'technic:machine_casing', 'default:diamond'},
        {'default:mossycobble',    'technic:lv_cable',       'default:mossycobble'},
    }
})
 
local music_handles = {}
 
local function play_track(pos, track)
    return minetest.sound_play("technic_track"..tostring(track),
            {pos = pos, gain = 1.0, loop = true, max_hear_distance = 72,})
end
 
local run = function(pos, node)
    local meta         = minetest.get_meta(pos)
    local eu_input     = meta:get_int("LV_EU_input")
    local machine_name = S("%s Music Player"):format("LV")
    local machine_node = "technic:music_player"
    local demand       = 150
 
    local current_track = meta:get_int("current_track")
    local pos_hash      = minetest.hash_node_position(pos)
    local music_handle  = music_handles[pos_hash]
 
    -- Setup meta data if it does not exist.
    if not eu_input then
        meta:set_int("LV_EU_demand", demand)
        meta:set_int("LV_EU_input", 0)
        return
    end
 
    if meta:get_int("active") == 0 then
        meta:set_string("infotext", S("%s Idle"):format(machine_name))
        meta:set_int("LV_EU_demand", 0)
        return
    end
 
    if eu_input < demand then
        meta:set_string("infotext", S("%s Unpowered"):format(machine_name))
        if music_handle then
            minetest.sound_stop(music_handle)
            music_handle = nil
        end
    elseif eu_input >= demand then
        meta:set_string("infotext", S("%s Active"):format(machine_name))
        if not music_handle then
            music_handle = play_track(pos, current_track)
        end
    end
    music_handles[pos_hash] = music_handle
    meta:set_int("LV_EU_demand", demand)
end
 
local function stop_player(pos, node)
    local pos_hash = minetest.hash_node_position(pos)
    local music_handle = music_handles[pos_hash]
    if music_handle then
        minetest.sound_stop(music_handle)
        music_handles[pos_hash] = nil
    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, 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"))
        set_display(meta)
    end,
    on_receive_fields = function(pos, formanme, fields, sender)
        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)
            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,
    technic_run = run,
    technic_on_disable = stop_player,
})
 
technic.register_machine("LV", "technic:music_player", technic.receiver)