Xanthin
2014-04-16 39c41a06f4993dc17507fb480fcabbca319ceff7
technic/machines/LV/cnc.lua
@@ -37,7 +37,7 @@
local cnc_formspec =
   "invsize[9,11;]"..
   "label[1,0;Choose Milling Program:]"..
   "label[1,0;"..S("Choose Milling Program:").."]"..
   "image_button[1,0.5;1,1;technic_cnc_slope.png;slope; ]"..
   "image_button[2,0.5;1,1;technic_cnc_slope_edge.png;slope_edge; ]"..
   "image_button[3,0.5;1,1;technic_cnc_slope_inner_edge.png;slope_inner_edge; ]"..
@@ -56,7 +56,7 @@
   "image_button[2,2.5;1,1;technic_cnc_onecurvededge.png;onecurvededge; ]"..
   "image_button[3,2.5;1,1;technic_cnc_twocurvededge.png;twocurvededge; ]"..
   "label[1,3.5;Slim Elements half / normal height:]"..
   "label[1,3.5;"..S("Slim Elements half / normal height:").."]"..
   "image_button[1,4;1,0.5;technic_cnc_full.png;full; ]"..
   "image_button[1,4.5;1,0.5;technic_cnc_half.png;half; ]"..
@@ -66,9 +66,9 @@
   "image_button[5,4;1,1;technic_cnc_element_t.png;element_t; ]"..
   "image_button[6,4;1,1;technic_cnc_element_edge.png;element_edge; ]"..
   "label[0, 5.5;In:]"..
   "label[0, 5.5;"..S("In:").."]"..
   "list[current_name;src;0.5,5.5;1,1;]"..
   "label[4, 5.5;Out:]"..
   "label[4, 5.5;"..S("Out:").."]"..
   "list[current_name;dst;5,5.5;4,1;]"..
   "list[current_player;main;0,7;8,4;]"
@@ -150,17 +150,10 @@
      inv:set_size("src", 1)
      inv:set_size("dst", 4)
   end,
   can_dig = function(pos,player)
      local meta = minetest.get_meta(pos);
      local inv = meta:get_inventory()
      if not inv:is_empty("src") or not inv:is_empty("dst") then
         minetest.chat_send_player(player:get_player_name(),
            S("Machine cannot be removed because it is not empty"))
         return false
      else
         return true
      end
   end,
   can_dig = technic.machine_can_dig,
   allow_metadata_inventory_put = technic.machine_inventory_put,
   allow_metadata_inventory_take = technic.machine_inventory_take,
   allow_metadata_inventory_move = technic.machine_inventory_move,
   on_receive_fields = form_handler,
})
@@ -172,16 +165,10 @@
   paramtype2 = "facedir",
   groups = {cracky=2, not_in_creative_inventory=1},
   legacy_facedir_simple = true,
   can_dig = function(pos,player)
      local meta = minetest.get_meta(pos);
      local inv = meta:get_inventory()
      if not inv:is_empty("src") or not inv:is_empty("dst") then
         minetest.chat_send_player(player:get_player_name(),
            S("Machine cannot be removed because it is not empty"))
         return false
      end
      return true
   end,
   can_dig = technic.machine_can_dig,
   allow_metadata_inventory_put = technic.machine_inventory_put,
   allow_metadata_inventory_take = technic.machine_inventory_take,
   allow_metadata_inventory_move = technic.machine_inventory_move,
   on_receive_fields = form_handler,
})
@@ -198,32 +185,25 @@
      local machine_node = "technic:cnc"
      local demand       = 450
      -- Setup meta data if it does not exist. state is used as an indicator of this
      if not eu_input then
         meta:set_int("LV_EU_demand", demand)
         meta:set_int("LV_EU_input", 0)
         return
      end
      -- Power off automatically if no longer connected to a switching station
      technic.switching_station_timeout_count(pos, "LV")
      local result = meta:get_string("cnc_product")
      if inv:is_empty("src") or 
         (not minetest.registered_nodes[result]) or
         (not inv:room_for_item("dst", result)) then
         hacky_swap_node(pos, machine_node)
         technic.swap_node(pos, machine_node)
         meta:set_string("infotext", S("%s Idle"):format(machine_name))
         meta:set_string("cnc_product", "")
         meta:set_int("LV_EU_demand", 0)
         return
      end
      if eu_input < demand then
         hacky_swap_node(pos, machine_node)
         technic.swap_node(pos, machine_node)
         meta:set_string("infotext", S("%s Unpowered"):format(machine_name))
      elseif eu_input >= demand then
         hacky_swap_node(pos, machine_node.."_active")
         technic.swap_node(pos, machine_node.."_active")
         meta:set_string("infotext", S("%s Active"):format(machine_name))
         meta:set_int("src_time", meta:get_int("src_time") + 1)
         if meta:get_int("src_time") >= 3 then -- 3 ticks per output