-- The purpose of this class is to have something that can be passed into callbacks that
-- demand a "Player" object as a parameter and hopefully prevent the mods that have
-- registered with those callbacks from crashing on a nil dereference or bad function
-- call. This is not supposed to be a remotely functional thing, it's just supposed
-- to provide dummy methods and return values of the correct data type for anything that 
-- might ignore the false "is_player()" return and go ahead and try to use this thing
-- anyway.

-- I'm trying to patch holes in bad mod programming, essentially. If a mod is so badly
-- programmed that it crashes anyway there's not a lot else I can do on my end of things.

DigtronFakePlayer = {}
DigtronFakePlayer.__index = DigtronFakePlayer

local function return_value(x)
	return (function() return x end)
end

local function return_nil()
	return nil
end

local function return_empty_string()
	return ""
end

local function return_zero()
	return 0
end

local function return_empty_table()
	return {}
end

function DigtronFakePlayer.update(self, pos, player_name)
	self.is_fake_player = ":digtron " .. player_name
	self.get_pos = return_value(pos)
end
local function get_feed (pos)
   return function ()
      local meta = minetest.get_meta(pos)
      local inv = meta:get_inventory()
      if not inv or not inv:get_list("main") then
	 return ItemStack(nil)
      end
      -- minetest.chat_send_all(inv:get_stack("main", 1):get_name())
      return inv:get_stack("main", 1)
   end
end
local function set_feed (pos)
   return function (_, stack)
      local meta = minetest.get_meta(pos)
      local inv = meta:get_inventory()
      inv:set_stack("main", 1, stack)
      return 
   end
end

function DigtronFakePlayer.create(pos, player_name)
	local self = {}
	setmetatable(self, DigtronFakePlayer)
	
	self.is_fake_player = ":digtron " .. player_name

	-- ObjectRef	
	self.get_pos = return_value(pos)
	self.set_pos = return_nil
	self.move_to = return_nil
	self.punch = return_nil
	self.right_click = return_nil
	self.get_hp = return_value(10)
	self.set_hp = return_nil
	self.get_inventory = return_nil -- returns an `InvRef`
	self.get_wield_list = return_empty_string
	self.get_wield_index = return_value(1)
-- 	self.get_wielded_item = return_value(ItemStack(nil))
	self.get_wielded_item = get_feed(pos)
	self.set_wielded_item = set_feed(pos)

	self.set_armor_groups = return_nil
	self.get_armor_groups = return_empty_table
	self.set_animation = return_nil
	self.get_animation = return_nil -- a set of values, maybe important?
	self.set_attach = return_nil
	self.get_attach = return_nil
	self.set_detach = return_nil
	self.set_bone_position = return_nil
	self.get_bone_position = return_nil
	self.set_properties = return_nil
	self.get_properties = return_empty_table

	self.is_player = return_value(false)
	
	self.get_nametag_attributes = return_empty_table
	self.set_nametag_attributes = return_nil

	--LuaEntitySAO
	self.set_velocity = return_nil
	self.get_velocity = return_value({x=0,y=0,z=0})
	self.set_acceleration = return_nil
	self.get_acceleration = return_value({x=0,y=0,z=0})
	self.set_yaw = return_nil
	self.get_yaw = return_zero
	self.set_texture_mod = return_nil
	self.get_texture_mod = return_nil -- maybe important?
	self.set_sprite = return_nil
	--self.get_entity_name` (**Deprecated**: Will be removed in a future version)
	self.get_luaentity = return_nil

	-- Player object
	
	self.get_player_name = return_empty_string
	self.get_player_velocity = return_nil
	self.get_look_dir = return_value({x=0,y=1,z=0})
	self.get_look_horizontal = return_zero
	self.set_look_horizontal = return_nil
	self.get_look_vertical = return_zero
	self.set_look_vertical = return_nil

	--self.get_look_pitch`: pitch in radians - Deprecated as broken. Use `get_look_vertical`
	--self.get_look_yaw`: yaw in radians - Deprecated as broken. Use `get_look_horizontal`
	--self.set_look_pitch(radians)`: sets look pitch - Deprecated. Use `set_look_vertical`.
	--self.set_look_yaw(radians)`: sets look yaw - Deprecated. Use `set_look_horizontal`.
	self.get_breath = return_value(10)
	self.set_breath = return_nil
	self.get_attribute = return_nil
	self.set_attribute = return_nil

	self.set_inventory_formspec = return_nil
	self.get_inventory_formspec = return_empty_string
	self.get_player_control = return_value({jump=false, right=false, left=false, LMB=false, RMB=false, sneak=false, aux1=false, down=false, up=false} )
    self.get_player_control_bits = return_zero

	self.set_physics_override = return_nil
	self.get_physics_override = return_value({speed = 1, jump = 1, gravity = 1, sneak = true, sneak_glitch = false, new_move = true,})
	
	
	self.hud_add = return_nil
	self.hud_remove = return_nil
	self.hud_change = return_nil
	self.hud_get = return_nil -- possibly important return value?
	self.hud_set_flags = return_nil	
	self.hud_get_flags = return_value({ hotbar=true, healthbar=true, crosshair=true, wielditem=true, breathbar=true, minimap=true })
	self.hud_set_hotbar_itemcount = return_nil
	self.hud_get_hotbar_itemcount = return_zero
	self.hud_set_hotbar_image = return_nil
	self.hud_get_hotbar_image = return_empty_string
	self.hud_set_hotbar_selected_image = return_nil
	self.hud_get_hotbar_selected_image = return_empty_string
	self.set_sky = return_nil
	self.get_sky = return_empty_table -- may need members on this table
	
	self.set_clouds = return_nil
	self.get_clouds = return_value({density = 0, color = "#fff0f0e5", ambient = "#000000", height = 120, thickness = 16, speed = {x=0, y=-2}})
	
	self.override_day_night_ratio = return_nil
	self.get_day_night_ratio = return_nil
	
	self.set_local_animation = return_nil
	self.get_local_animation = return_empty_table
	
	self.set_eye_offset = return_nil
	self.get_eye_offset = return_value({x=0,y=0,z=0},{x=0,y=0,z=0})
	
	return self
end


local function get_formspec(pos)
   local spos = pos.x .. "," ..pos.y .. "," .. pos.z
   local xbg = default.gui_bg .. default.gui_bg_img .. default.gui_slots
--   local detached_inv = minetest.create_detached_inventory("mailbox_"..owner)
   return "size[8,5.5]" .. xbg .. default.get_hotbar_bg(0, 1.5) ..
      "label[0,0;Feedlot]" ..
      "list[nodemeta:" .. spos .. ";main;3.5,0;1,1;]" ..
      "list[current_player;main;0,1.5;8,1;]" ..
      "list[current_player;main;0,2.75;8,3;8]" ..
--			"listring[detached:mailbox_" .. owner .. ";drop]" ..
      "listring[current_player;main]"
end

minetest.register_node("feedlot:feedlot", {
			  description = "Feedlot",
			  tiles = {
			     "default_wood.png^feedlot_feed.png",
			     "default_wood.png",
			     "default_wood.png",
			     "default_wood.png",
			     "default_wood.png",
			     "default_wood.png"
			  },
			  drawtype = "nodebox",
			  paramtype = "light",
			  node_box = {
			     type = "fixed",
			     fixed = {
				{-0.5, -0.5, -0.5, 0.5, -0.1875, -0.4375}, -- NodeBox6
				{0.4375, -0.5, -0.5, 0.5, -0.1875, 0.5}, -- NodeBox7
				{-0.5, -0.5, 0.4375, 0.5, -0.1875, 0.5}, -- NodeBox8
				{-0.5, -0.5, -0.5, -0.4375, -0.1875, 0.5}, -- NodeBox9
				{-0.4375, -0.5, -0.4375, 0.4375, -0.375, 0.4375}, -- NodeBox10
			     }
			  },
			  
			  on_construct = function (pos)
			     local meta = minetest.get_meta(pos)
			     local inv = meta:get_inventory()
			     meta:set_string("formspec", get_formspec(pos))
			     inv:set_size("main", 1)
			  end,
			  can_dig = function (pos)
			     local meta = minetest.get_meta(pos)
			     local inv = meta:get_inventory()
			     return inv:is_empty("main")
			  end,
			  groups = {snappy = 3, tubedevice = 1, tubedevice_receiver = 1}, 
			  tube = {
			     insert_object = function(pos, node, stack, direction)
				local meta = minetest.get_meta(pos)
				local inv = meta:get_inventory()
				local added = inv:add_item("main", stack)
				return added
			     end,
			     can_insert = function(pos, node, stack, direction)
				local meta = minetest.get_meta(pos)
				local inv = meta:get_inventory()
				return inv:room_for_item("main", stack)
			     end,
			     input_inventory = "main",
			     connect_sides = {left = 0, right = 0, front = 0, back = 0, top = 0, bottom = 1}},
})

local function is_mob(obj)
   return obj.get_luaentity and obj:get_luaentity().name and string.sub(obj:get_luaentity().name,1,string.len("mob"))=="mob"
end


minetest.register_abm({
      label = "lava cooling",
      nodenames = {"feedlot:feedlot"},
      interval = 5,
      chance = 1,

      action = function (pos)
	 local fake_player = DigtronFakePlayer.create(pos, "fake_player")
	 local objs = minetest.get_objects_inside_radius(pos, 3)
	 for _,obj in ipairs(objs) do
	    if not obj:is_player() and obj:get_armor_groups().fleshy and obj:get_armor_groups().fleshy > 0 and is_mob(obj) then
	       --	       obj:on_rightclick(fake_player)
	       obj:get_luaentity():on_rightclick(fake_player)
--	       minetest.chat_send_all("animal fed")
	    end
	 end
      end,
})
	   
minetest.register_craft({
      	output = "feedlot:feedlot",
	recipe = {
	   {"","",""},
	   {"default:wood", "farming:seed_wheat", "default:wood"},
	   {"default:wood", "default:wood", "default:wood"}
}})