musttest_game/mods/geothermal_generator/geo2.lua

if not minetest.global_exists("geo2") then geo2 = {} end
geo2.modpath = minetest.get_modpath("geothermal_generator")

local BUFFER_SIZE = tech.geothermal.buffer
local ENERGY_AMOUNT = tech.geothermal.power

-- Localize for performance.
local math_floor = math.floor
local math_random = math.random



geo2.on_energy_get =
function(pos, energy)
	local meta = minetest.get_meta(pos)
	local inv = meta:get_inventory()
	local have = inv:get_stack("buffer", 1):get_count()
	if have < energy then
		inv:set_stack("buffer", 1, ItemStack(""))
		geo2.trigger_update(pos)
		return have
	end
	have = have - energy
	inv:set_stack("buffer", 1, ItemStack("atomic:energy " .. have))
	geo2.trigger_update(pos)
	return energy
end



geo2.compose_formspec =
function(pos)
	local formspec =
		"size[2,2.5]" ..
		default.gui_bg ..
		default.gui_bg_img ..
		default.gui_slots ..

		"label[0,0.5;Energy Buffer]" ..
		"list[context;buffer;0,1;1,1]"
	return formspec
end

geo2.compose_infotext =
function(pos)
	local meta = minetest.get_meta(pos)
	local eups = meta:get_int("eups")
	local state = "Standby"
	if meta:get_int("active") == 1 then
		state = "Active"
	end
	local infotext = "LV Geothermal Generator (" .. state .. ")\n" ..
		"Output: " .. eups .. " EU Per/Sec"
	return infotext
end

geo2.trigger_update =
function(pos)
  local timer = minetest.get_node_timer(pos)
	-- Restart timer even if already running.
	timer:start(1.0)
end

geo2.on_punch =
function(pos, node, puncher, pointed_thing)
  geo2.trigger_update(pos)
end

geo2.can_dig =
function(pos, player)
	return true
end

geo2.check_environment =
function(pos, meta)
  local timer = meta:get_int("chktmr")
  local active = meta:get_int("active")
  if timer <= 0 then
		local result = false
    -- Check all 4 sides of the geothermal generator.
    local targets = {
      {x=pos.x+1, y=pos.y, z=pos.z},
      {x=pos.x-1, y=pos.y, z=pos.z},
      {x=pos.x, y=pos.y, z=pos.z+1},
      {x=pos.x, y=pos.y, z=pos.z-1},

      {x=pos.x+1, y=pos.y, z=pos.z+1},
      {x=pos.x+1, y=pos.y, z=pos.z-1},
      {x=pos.x-1, y=pos.y, z=pos.z+1},
      {x=pos.x-1, y=pos.y, z=pos.z-1},

      {x=pos.x+1, y=pos.y-1, z=pos.z},
      {x=pos.x-1, y=pos.y-1, z=pos.z},
      {x=pos.x, y=pos.y-1, z=pos.z+1},
      {x=pos.x, y=pos.y-1, z=pos.z-1},

      {x=pos.x+1, y=pos.y-1, z=pos.z+1},
      {x=pos.x+1, y=pos.y-1, z=pos.z-1},
      {x=pos.x-1, y=pos.y-1, z=pos.z+1},
      {x=pos.x-1, y=pos.y-1, z=pos.z-1},

      {x=pos.x+1, y=pos.y+1, z=pos.z},
      {x=pos.x-1, y=pos.y+1, z=pos.z},
      {x=pos.x, y=pos.y+1, z=pos.z+1},
      {x=pos.x, y=pos.y+1, z=pos.z-1},

      {x=pos.x+1, y=pos.y+1, z=pos.z+1},
      {x=pos.x+1, y=pos.y+1, z=pos.z-1},
      {x=pos.x-1, y=pos.y+1, z=pos.z+1},
      {x=pos.x-1, y=pos.y+1, z=pos.z-1},
    }

    local cw = 0
    local cl = 0
    local competing = 1 -- Include self in count.

    for k, v in ipairs(targets) do
      local node = minetest.get_node(v)
      if minetest.get_item_group(node.name, "water") > 0 then
        cw = cw + 1
      elseif minetest.get_item_group(node.name, "lava") > 0 then
        cl = cl + 1
      end
      if node.name:find("wat2:") or node.name:find("geo2:") then
				competing = competing + 1
			end
    end

    if cw > 0 and cl > 0 then
      -- Randomize time to next nodecheck.
      meta:set_int("chktmr", math_random(3, 15))

			-- Number of lava nodes must match number of water nodes,
			-- for maximum efficiency.
			if cw > cl then
				cw = cl
			end
			if cl > cw then
				cl = cw
			end

      meta:set_int("active", 1)
      meta:set_int("eups", math_floor(((cw + cl)*ENERGY_AMOUNT) / competing))

      machines.swap_node(pos, "geo2:lv_active")
      result = true
    else
      -- Don't set timer if generator is offline.
      -- The next check needs to happen the next time the machine is punched.
      meta:set_int("chktmr", 0)

      meta:set_int("active", 0)
      meta:set_int("eups", 0)

      machines.swap_node(pos, "geo2:lv_inactive")
      result = false
    end

		meta:set_string("infotext", geo2.compose_infotext(pos))
		return result
  end
  -- Decrement check timer.
  timer = timer - 1
  meta:set_int("chktmr", timer)
  -- No check performed; just return whatever the result of the last check was.
  return (active == 1)
end

geo2.on_timer =
function(pos, elapsed)
	local meta = minetest.get_meta(pos)
	local owner = meta:get_string("owner")
	local inv = meta:get_inventory()
	local keeprunning = false

	-- Check if we can produce energy from environment.
	-- Note that this uses a caching algorithm.
	local canrun = geo2.check_environment(pos, meta)

	-- If environment is no longer producing energy,
	-- unload the buffered energy.
	if not canrun then
		local energy = inv:get_stack("buffer", 1)
		energy:set_count(net2.put_energy(pos, owner, energy:get_count(), "lv"))
		inv:set_stack("buffer", 1, energy)
	end

	-- Produce energy.
	local needdischarge = false
	if canrun then
		local eups = meta:get_int("eups")
		local energy = "atomic:energy " .. eups
		local stack = inv:get_stack("buffer", 1)
		if stack:get_count() >= BUFFER_SIZE then
			needdischarge = true
		end
		if not needdischarge then
			if inv:room_for_item("buffer", energy) then
				inv:add_item("buffer", energy)
			end
		end
		keeprunning = true
	end

	-- Discharge energy.
	if needdischarge then
		local energy = inv:get_stack("buffer", 1)
		-- Unload energy onto the network.
		local old = energy:get_count()
		energy:set_count(net2.put_energy(pos, owner, old, "lv"))
		inv:set_stack("buffer", 1, energy)
		if energy:get_count() < old then
			keeprunning = true
		else
			-- Batteries full? Go to sleep.
			keeprunning = false
		end
	end

	-- Determine mode (active or sleep) and set timer accordingly.
	if keeprunning then
		minetest.get_node_timer(pos):start(1.0)
	else
		-- Slow down timer during sleep periods to reduce load.
		minetest.get_node_timer(pos):start(math_random(1, 3*60))
		meta:set_int("chktmr", 0)
		meta:set_int("active", 0)
		meta:set_int("eups", 0)
		meta:set_string("infotext", geo2.compose_infotext(pos))
		machines.swap_node(pos, "geo2:lv_inactive")
	end
end

geo2.on_construct =
function(pos)
end

geo2.after_place_node =
function(pos, placer, itemstack, pointed_thing)
  local meta = minetest.get_meta(pos)
	local node = minetest.get_node(pos)
	local owner = placer:get_player_name()
  local inv = meta:get_inventory()

	meta:set_string("owner", owner)
	meta:set_string("nodename", node.name)
  inv:set_size("buffer", 1)

	net2.clear_caches(pos, owner, "lv")
  meta:set_string("formspec", geo2.compose_formspec(pos))
  meta:set_string("infotext", geo2.compose_infotext(pos))
	nodestore.add_node(pos)

	local timer = minetest.get_node_timer(pos)
	timer:start(1.0)
end

geo2.on_blast =
function(pos)
  local drops = {}
  drops[#drops+1] = "geo2:lv_inactive"
  minetest.remove_node(pos)
  return drops
end

geo2.allow_metadata_inventory_put =
function(pos, listname, index, stack, player)
  return 0
end

geo2.allow_metadata_inventory_move =
function(pos, from_list, from_index, to_list, to_index, count, player)
  return 0
end

geo2.allow_metadata_inventory_take =
function(pos, listname, index, stack, player)
  return 0
end

geo2.on_metadata_inventory_move =
function(pos)
  geo2.trigger_update(pos)
end

geo2.on_metadata_inventory_put =
function(pos)
  geo2.trigger_update(pos)
end

geo2.on_metadata_inventory_take =
function(pos, listname, index, stack, player)
  geo2.trigger_update(pos)
end

geo2.on_destruct =
function(pos)
	local meta = minetest.get_meta(pos)
	net2.clear_caches(pos, meta:get_string("owner"), "lv")
	nodestore.del_node(pos)
end



if not geo2.run_once then
  for k, v in ipairs({
    {name="inactive", tile="geothermal_generator_top.png"},
    {name="active", tile="geothermal_generator_top_active.png"},
  }) do
    minetest.register_node(":geo2:lv_" .. v.name, {
      description = "LV Geothermal Generator",
      tiles = {
        v.tile, v.tile,
        "geothermal_generator_side.png", "geothermal_generator_side.png",
        "geothermal_generator_side.png", "geothermal_generator_side.png"
      },

      groups = utility.dig_groups("machine"),

      paramtype2 = "facedir",
      is_ground_content = false,
      sounds = default.node_sound_metal_defaults(),
      drop = "geo2:lv_inactive",

			on_energy_get = function(...)
				return geo2.on_energy_get(...) end,
      on_rotate = function(...)
				return screwdriver.rotate_simple(...) end,
      allow_metadata_inventory_put = function(...)
        return geo2.allow_metadata_inventory_put(...) end,
      allow_metadata_inventory_move = function(...)
        return geo2.allow_metadata_inventory_move(...) end,
      allow_metadata_inventory_take = function(...)
        return geo2.allow_metadata_inventory_take(...) end,
      on_metadata_inventory_move = function(...)
        return geo2.on_metadata_inventory_move(...) end,
      on_metadata_inventory_put = function(...)
        return geo2.on_metadata_inventory_put(...) end,
      on_metadata_inventory_take = function(...)
        return geo2.on_metadata_inventory_take(...) end,
      on_punch = function(...)
        return geo2.on_punch(...) end,
      can_dig = function(...)
        return geo2.can_dig(...) end,
      on_timer = function(...)
        return geo2.on_timer(...) end,
      on_construct = function(...)
        return geo2.on_construct(...) end,
			on_destruct = function(...)
				return geo2.on_destruct(...) end,
      on_blast = function(...)
        return geo2.on_blast(...) end,
      after_place_node = function(...)
        return geo2.after_place_node(...) end,
    })
  end

  local c = "geo2:core"
  local f = geo2.modpath .. "/geo2.lua"
  reload.register_file(c, f, false)

	geo2.run_once = true
end