techage/wind_turbine/rotor.lua

--[[

	TechAge
	=======

	Copyright (C) 2019 DS-Minetest, Joachim Stolberg

	GPL v3
	See LICENSE.txt for more information

	TA4 Power Wind Turbine Rotor
	
	Code by Joachim Stolberg, derived from DS-Minetest [1]
	Rotor model and texture designed by DS-Minetest [1] (CC-0)
	
	[1] https://github.com/DS-Minetest/wind_turbine
	
]]--

-- for lazy programmers
local M = minetest.get_meta
local S = techage.S

local CYCLE_TIME = 2
local PWR_PERF = 80

local Cable = techage.ElectricCable
local power = techage.power

local Rotors = {}

local Face2Dir = {[0]=
	{x=0,  y=0,  z=1},
	{x=1,  y=0,  z=0},
	{x=0,  y=0, z=-1},
	{x=-1, y=0,  z=0},
	{x=0,  y=-1, z=0},
	{x=0,  y=1,  z=0}
}

local function pos_and_yaw(pos, param2)
	local dir = Face2Dir[param2]
	local yaw = minetest.dir_to_yaw(dir)
	dir = vector.multiply(dir, 1.3)
	pos = vector.add(pos, dir)
	return pos, {x=0, y=yaw, z=0}
end

local function add_rotor(pos, player_name)
	local pos1 = {x=pos.x-14, y=pos.y-10, z=pos.z-14}
	local pos2 = {x=pos.x+14, y=pos.y+10, z=pos.z+14}
	local num_node = 29*29*21 - 12
	local num = #minetest.find_nodes_in_area(pos1, pos2, {"air", "ignore"})
	if num < num_node then
		if player_name then
			minetest.chat_send_player(player_name, "[TA4 Wind Turbine] Not enough space!")
		end
		return
	end
	
	local data = minetest.get_biome_data({x=pos.x, y=0, z=pos.z})
	if not techage.OceanIdTbl[data.biome] then
		if player_name then
			minetest.chat_send_player(player_name, "[TA4 Wind Turbine]  Wrong place for wind turbines!")
		end
		return
	end
	
	if pos.y < 12 or pos.y > 20 then
		if player_name then
			minetest.chat_send_player(player_name, "[TA4 Wind Turbine] No wind at this altitude!")
		end
		return
	end
	
	local hash = minetest.hash_node_position(pos)
	if not Rotors[hash] then
		local node = minetest.get_node(pos)
		local npos, yaw = pos_and_yaw(pos, node.param2)
		local obj = minetest.add_entity(npos, "techage:rotor_ent")
		obj:set_animation({x = 0, y = 119}, 0, 0, true)
		obj:set_rotation(yaw)
		Rotors[hash] = obj
	end
end	

local function start_rotor(pos, mem)
	mem.providing = true
	power.generator_start(pos, mem, PWR_PERF)
	local hash = minetest.hash_node_position(pos)
	if Rotors[hash] then
		Rotors[hash]:set_animation_frame_speed(50)
	end
end

local function stop_rotor(pos, mem)
	mem.providing = false
	power.generator_stop(pos, mem)
	local hash = minetest.hash_node_position(pos)
	if Rotors[hash] then
		Rotors[hash]:set_animation_frame_speed(0)
	end
end

local function node_timer(pos, elapsed)
	local mem = tubelib2.get_mem(pos)
	
	print("node_timer", mem.running, mem.providing)
	if not mem.running then
		return false
	end
	
	local time = minetest.get_timeofday() or 0
	if (time >= 5.00/24.00 and time <= 9.00/24.00) or (time >= 17.00/24.00 and time <= 21.00/24.00) then
		if not mem.providing then
			start_rotor(pos, mem)
		end
	else
		if mem.providing then
			stop_rotor(pos, mem)
		end
	end
	if mem.providing then
		power.generator_alive(pos, mem)
	end
	return true
end

minetest.register_node("techage:ta4_wind_turbine", {
	description = S("TA4 Wind Turbine"),
	inventory_image = "techage_wind_turbine_inv.png",
	tiles = {
		-- up, down, right, left, back, front
		"techage_rotor_top.png",
		"techage_rotor_top.png",
		"techage_rotor.png",
	},
	
	on_construct = tubelib2.init_mem,
	
	after_place_node = function(pos, placer)
		local meta = M(pos)
		-- secondary 'after_place_node', called by power. Don't use tubelib2.init_mem(pos)!!!
		local mem = tubelib2.get_mem(pos)
		local own_num = techage.add_node(pos, "techage:ta4_wind_turbine")
		meta:set_string("node_number", own_num)
		meta:set_string("owner", placer:get_player_name())
		meta:set_string("infotext", S("TA4 Wind Turbine").." "..own_num)
		mem.providing = false
		mem.running = true
		add_rotor(pos, placer:get_player_name())
		minetest.get_node_timer(pos):start(CYCLE_TIME)
	end,
	
	on_timer = node_timer,
	
	after_dig_node = function(pos)
		local hash = minetest.hash_node_position(pos)
		if Rotors[hash] and Rotors[hash]:get_luaentity() then
			Rotors[hash]:remove()
		end
		Rotors[hash] = nil
		techage.remove_node(pos)
		tubelib2.del_mem(pos)
	end,
	
	paramtype2 = "facedir",
	groups = {cracky=2, crumbly=2, choppy=2},
	is_ground_content = false,
	sounds = default.node_sound_metal_defaults(),
})


minetest.register_node("techage:ta4_wind_turbine_nacelle", {
	description = S("TA4 Wind Turbine Nacelle"),
	tiles = {
		-- up, down, right, left, back, front
		"techage_rotor_top.png",
		"techage_rotor_top.png",
		"techage_rotor.png",
	},
	paramtype2 = "facedir",
	groups = {cracky=2, crumbly=2, choppy=2},
	is_ground_content = false,
	sounds = default.node_sound_metal_defaults(),
	drop = "",
})

minetest.register_entity("techage:rotor_ent", {initial_properties = {
	physical = false,
	pointable = false,
	visual = "mesh",
	visual_size = {x = 1.5, y = 1.5, z = 1.5},
	mesh = "techage_rotor.b3d",
	textures = {"techage_rotor_blades.png"},
	static_save = false,
}})

techage.power.register_node({"techage:ta4_wind_turbine"}, {
	power_network  = Cable,
	conn_sides = {"D"},
})

techage.register_node({"techage:ta4_wind_turbine"}, {	
	on_recv_message = function(pos, src, topic, payload)
		local mem = tubelib2.get_mem(pos)
		print("on_recv_message", topic)
		if topic == "state" then
			if mem.running and mem.providing then
				return "running"
			else
				return "stopped"
			end
		elseif topic == "on" then
			mem.running = true
		elseif topic == "off" then
			mem.running = false
		else
			return "unsupported"
		end
	end,
	on_node_load = function(pos)
		add_rotor(pos)
		local mem = tubelib2.get_mem(pos)
		mem.providing = false  -- to force the rotor start
		minetest.get_node_timer(pos):start(CYCLE_TIME)
	end,
})


--minetest.register_craft({
--	output = "techage:ta4_wind_turbine",
--	recipe = {
--		{"", "techage:ta4_wlanchip", ""},
--		{"techage:ta4_silicon_wafer", "techage:ta4_silicon_wafer", "techage:ta4_silicon_wafer"},
--		{"default:tin_ingot", "techage:iron_ingot", "default:copper_ingot"},
--	},
--})