| commit | author | age | ||
| ee0765 | 1 | |
| be2f30 | 2 | local S = technic.getter |
| S | 3 | |
| ee0765 | 4 | function technic.register_grinder(data) |
| S | 5 | local tier = data.tier |
| 6 | local ltier = string.lower(tier) | |
| 7 | local tube = { | |
| 8 | insert_object = function(pos, node, stack, direction) | |
| 9 | local meta = minetest.get_meta(pos) | |
| 10 | local inv = meta:get_inventory() | |
| 11 | return inv:add_item("src", stack) | |
| 12 | end, | |
| 13 | can_insert = function(pos, node, stack, direction) | |
| 14 | local meta = minetest.get_meta(pos) | |
| 15 | local inv = meta:get_inventory() | |
| 16 | return inv:room_for_item("src", stack) | |
| 17 | end, | |
| 18 | connect_sides = {left=1, right=1, back=1, top=1, bottom=1}, | |
| 19 | } | |
| 20 | ||
| 21 | local formspec = | |
| 22 | "invsize[8,10;]".. | |
| 23 | "list[current_name;src;3,1;1,1;]".. | |
| 24 | "list[current_name;dst;5,1;2,2;]".. | |
| 25 | "list[current_player;main;0,6;8,4;]".. | |
| 26 | "label[0,0;"..tier.." Grinder]" | |
| 27 | if data.upgrade then | |
| 28 | formspec = formspec.. | |
| 29 | "list[current_name;upgrade1;1,4;1,1;]".. | |
| 30 | "list[current_name;upgrade2;2,4;1,1;]".. | |
| 31 | "label[1,5;Upgrade Slots]" | |
| 32 | end | |
| 33 | data.formspec = formspec | |
| 34 | ||
| 35 | minetest.register_node("technic:"..ltier.."_grinder", { | |
| be2f30 | 36 | description = S("%s Grinder"):format(tier), |
| ee0765 | 37 | tiles = {"technic_"..ltier.."_grinder_top.png", "technic_"..ltier.."_grinder_bottom.png", |
| S | 38 | "technic_"..ltier.."_grinder_side.png", "technic_"..ltier.."_grinder_side.png", |
| 39 | "technic_"..ltier.."_grinder_side.png", "technic_"..ltier.."_grinder_front.png"}, | |
| 40 | paramtype2 = "facedir", | |
| 41 | groups = {cracky=2, tubedevice=1, tubedevice_receiver=1}, | |
| 42 | technic = data, | |
| 43 | tube = tube, | |
| 44 | legacy_facedir_simple = true, | |
| 45 | sounds = default.node_sound_wood_defaults(), | |
| 46 | on_construct = function(pos) | |
| 47 | local node = minetest.get_node(pos) | |
| 48 | local meta = minetest.get_meta(pos) | |
| 49 | local data = minetest.registered_nodes[node.name].technic | |
| be2f30 | 50 | meta:set_string("infotext", S("%s Grinder"):format(data.tier)) |
| ee0765 | 51 | meta:set_int("tube_time", 0) |
| S | 52 | meta:set_string("formspec", data.formspec) |
| 53 | local inv = meta:get_inventory() | |
| 54 | inv:set_size("src", 1) | |
| 55 | inv:set_size("dst", 4) | |
| 56 | inv:set_size("upgrade1", 1) | |
| 57 | inv:set_size("upgrade2", 1) | |
| 58 | end, | |
| 59 | can_dig = function(pos,player) | |
| be2f30 | 60 | local meta = minetest.get_meta(pos) |
| ee0765 | 61 | local inv = meta:get_inventory() |
| S | 62 | if not inv:is_empty("src") or not inv:is_empty("dst") or |
| 63 | not inv:is_empty("upgrade1") or not inv:is_empty("upgrade2") then | |
| 64 | minetest.chat_send_player(player:get_player_name(), | |
| be2f30 | 65 | S("Machine cannot be removed because it is not empty")) |
| ee0765 | 66 | return false |
| S | 67 | else |
| 68 | return true | |
| 69 | end | |
| 70 | end, | |
| 71 | }) | |
| 72 | ||
| 73 | minetest.register_node("technic:"..ltier.."_grinder_active",{ | |
| be2f30 | 74 | description = S("%s Grinder"):format(tier), |
| ee0765 | 75 | tiles = {"technic_"..ltier.."_grinder_top.png", "technic_"..ltier.."_grinder_bottom.png", |
| S | 76 | "technic_"..ltier.."_grinder_side.png", "technic_"..ltier.."_grinder_side.png", |
| 77 | "technic_"..ltier.."_grinder_side.png", "technic_"..ltier.."_grinder_front_active.png"}, | |
| 78 | paramtype2 = "facedir", | |
| 79 | groups = {cracky=2, tubedevice=1, tubedevice_receiver=1, not_in_creative_inventory=1}, | |
| 80 | legacy_facedir_simple = true, | |
| 81 | sounds = default.node_sound_wood_defaults(), | |
| 82 | technic = data, | |
| 83 | tube = tube, | |
| 84 | can_dig = function(pos,player) | |
| 85 | local meta = minetest.get_meta(pos) | |
| 86 | local inv = meta:get_inventory() | |
| 87 | if not inv:is_empty("src") or not inv:is_empty("dst") or | |
| 88 | not inv:is_empty("upgrade1") or not inv:is_empty("upgrade2") then | |
| 89 | minetest.chat_send_player(player:get_player_name(), | |
| be2f30 | 90 | S("Machine cannot be removed because it is not empty")) |
| ee0765 | 91 | return false |
| S | 92 | else |
| 93 | return true | |
| 94 | end | |
| 95 | end, | |
| 96 | -- These three makes sure upgrades are not moved in or out while the grinder is active. | |
| 97 | allow_metadata_inventory_put = function(pos, listname, index, stack, player) | |
| 98 | if listname == "src" or listname == "dst" then | |
| 99 | return stack:get_stack_max() | |
| 100 | else | |
| 101 | return 0 -- Disallow the move | |
| 102 | end | |
| 103 | end, | |
| 104 | allow_metadata_inventory_take = function(pos, listname, index, stack, player) | |
| 105 | if listname == "src" or listname == "dst" then | |
| 106 | return stack:get_stack_max() | |
| 107 | else | |
| 108 | return 0 -- Disallow the move | |
| 109 | end | |
| 110 | end, | |
| 111 | allow_metadata_inventory_move = function(pos, from_list, to_list, to_list, to_index, count, player) | |
| 112 | return 0 | |
| 113 | end, | |
| 114 | }) | |
| 115 | ||
| 116 | minetest.register_abm({ | |
| 117 | nodenames = {"technic:"..ltier.."_grinder","technic:"..ltier.."_grinder_active"}, | |
| 118 | interval = 1, | |
| 119 | chance = 1, | |
| 120 | action = function(pos, node, active_object_count, active_object_count_wider) | |
| be2f30 | 121 | local data = minetest.registered_nodes[node.name].technic |
| S | 122 | local meta = minetest.get_meta(pos) |
| 123 | local inv = meta:get_inventory() | |
| 124 | local eu_input = meta:get_int(data.tier.."_EU_input") | |
| ee0765 | 125 | |
| be2f30 | 126 | local machine_name = S("%s Grinder"):format(data.tier) |
| ee0765 | 127 | local machine_node = "technic:"..string.lower(data.tier).."_grinder" |
| S | 128 | local machine_demand = data.demand |
| 129 | ||
| 130 | -- Setup meta data if it does not exist. | |
| 131 | if not eu_input then | |
| 132 | meta:set_int(data.tier.."_EU_demand", machine_demand[1]) | |
| 133 | meta:set_int(data.tier.."_EU_input", 0) | |
| 134 | return | |
| 135 | end | |
| 136 | ||
| 137 | -- Power off automatically if no longer connected to a switching station | |
| 138 | technic.switching_station_timeout_count(pos, data.tier) | |
| 139 | ||
| 140 | local EU_upgrade, tube_upgrade = 0, 0 | |
| 141 | if data.upgrade then | |
| 142 | EU_upgrade, tube_upgrade = technic.handle_machine_upgrades(meta) | |
| 143 | end | |
| 144 | if data.tube then | |
| 145 | technic.handle_machine_pipeworks(pos, tube_upgrade) | |
| 146 | end | |
| 147 | ||
| 148 | local result = technic.get_grinder_recipe(inv:get_stack("src", 1)) | |
| 149 | ||
| 150 | if not result then | |
| 151 | hacky_swap_node(pos, machine_node) | |
| be2f30 | 152 | meta:set_string("infotext", S("%s Idle"):format(machine_name)) |
| ee0765 | 153 | meta:set_int(data.tier.."_EU_demand", 0) |
| S | 154 | return |
| 155 | end | |
| 156 | ||
| 157 | if eu_input < machine_demand[EU_upgrade+1] then | |
| 158 | -- Unpowered - go idle | |
| 159 | hacky_swap_node(pos, machine_node) | |
| be2f30 | 160 | meta:set_string("infotext", S("%s Unpowered"):format(machine_name)) |
| ee0765 | 161 | elseif eu_input >= machine_demand[EU_upgrade+1] then |
| S | 162 | -- Powered |
| 163 | hacky_swap_node(pos, machine_node.."_active") | |
| be2f30 | 164 | meta:set_string("infotext", S("%s Active"):format(machine_name)) |
| ee0765 | 165 | |
| S | 166 | meta:set_int("src_time", meta:get_int("src_time") + 1) |
| 167 | if meta:get_int("src_time") >= result.time / data.speed then | |
| 168 | meta:set_int("src_time", 0) | |
| 169 | local result_stack = ItemStack(result.output) | |
| 170 | if inv:room_for_item("dst", result_stack) then | |
| 171 | srcstack = inv:get_stack("src", 1) | |
| 172 | srcstack:take_item() | |
| 173 | inv:set_stack("src", 1, srcstack) | |
| 174 | inv:add_item("dst", result_stack) | |
| 175 | end | |
| 176 | end | |
| 177 | end | |
| 178 | meta:set_int(data.tier.."_EU_demand", machine_demand[EU_upgrade+1]) | |
| 179 | end | |
| 180 | }) | |
| 181 | ||
| 182 | technic.register_machine(tier, "technic:"..ltier.."_grinder", technic.receiver) | |
| 183 | technic.register_machine(tier, "technic:"..ltier.."_grinder_active", technic.receiver) | |
| 184 | ||
| 185 | end -- End registration | |
| 186 | ||
