--Vines Mod for minetest adds vines to trees and dirt with grass nodes, 
--Also adds spawning API made for things that grow on the side of nodes signlike(param2) and things that grow downward.

--BY:           Bas080
--DESCRIPTION:  Vines for minetest
--Licence:      WTFPL

local mod_name = "vines"
local average_height = 12

-- Nodes
minetest.register_node("vines:rope_block", {
  description = "Rope",
  sunlight_propagates = true,
  paramtype = "light",
  drops = "",
  tile_images = {
    "vines_rope_block.png", 
    "vines_rope_block.png",
    "default_wood.png", 
    "default_wood.png", 
    "vines_rope_block.png", 
    "vines_rope_block.png"
  },
  drawtype = "cube",
  groups = { snappy = 3},
  sounds =  default.node_sound_leaves_defaults(),
  after_place_node = function(pos)
    local p = {x=pos.x, y=pos.y-1, z=pos.z}
    local n = minetest.env:get_node(p)
    if n.name == "air" then
      minetest.env:add_node(p, {name="vines:rope_end"})
    end
  end,
})

minetest.register_node("vines:rope", {
  description = "Rope",
  walkable = false,
  climbable = true,
  sunlight_propagates = true,
  paramtype = "light",
  tile_images = { "vines_rope.png" },
  drawtype = "plantlike",
  groups = {},
  sounds =  default.node_sound_leaves_defaults(),
  selection_box = {
    type = "fixed",
    fixed = {-1/7, -1/2, -1/7, 1/7, 1/2, 1/7},
  },
})

minetest.register_node("vines:rope_end", {
  description = "Rope",
  walkable = false,
  climbable = true,
  sunlight_propagates = true,
  paramtype = "light",
  drops = "",
  tile_images = { "vines_rope.png" },
  drawtype = "plantlike",
  groups = {},
  sounds =  default.node_sound_leaves_defaults(),
  after_place_node = function(pos)
    yesh  = {x = pos.x, y= pos.y-1, z=pos.z}
    minetest.env:add_node(yesh, "vines:rope")
  end,
  selection_box = {
	  type = "fixed",
	  fixed = {-1/7, -1/2, -1/7, 1/7, 1/2, 1/7},
  },
})

minetest.register_node("vines:side", {
  description = "Vine",
  walkable = false,
  climbable = true,
  drop = 'vines:vines',
  sunlight_propagates = true,
  paramtype = "light",
  paramtype2 = "wallmounted",
  tile_images = { "vines_side.png" },
  drawtype = "signlike",
  inventory_image = "vines_side.png",
  groups = { snappy = 3,flammable=2, hanging=1 },
  sounds = default.node_sound_leaves_defaults(),
  selection_box = {
    type = "wallmounted",
  },
  on_construct = function(pos, placer)
    local p = {x=pos.x, y=pos.y, z=pos.z}
    local n = minetest.env:get_node(p)
    local walldir = n.param2
    local down=-1
    
    print("Placed")
    
    while math.random(0,average_height) > 1.0 do
      print("One")
      local pt = {x = p.x, y= p.y+down, z=p.z}
      local nt = minetest.env:get_node(pt)
      if nt.name == "air" then
        minetest.env:add_node(pt, {name=n.name, param2 = walldir})
        down=down-1
      else
        return
      end
    end
  end,
})

minetest.register_node("vines:root", {
  description = "Vine",
  walkable = false,
  climbable = true,
  drop = 'vines:vines',
  sunlight_propagates = true,
  paramtype = "light",
  tile_images = { "vines_root.png" },
  drawtype = "plantlike",
  inventory_image = "vines_root.png",
  groups = { snappy = 3,flammable=2, hanging=1 },
  sounds = default.node_sound_leaves_defaults(),
  selection_box = {
    type = "fixed",
    fixed = {-1/7, -1/2, -1/7, 1/7, 1/2, 1/7},
  },
})

minetest.register_node("vines:vine", {
  description = "Vine",
  walkable = false,
  climbable = true,
  drop = 'vines:vines',
  sunlight_propagates = true,
  paramtype = "light",
  tile_images = { "vines_vine.png" },
  drawtype = "plantlike",
  inventory_image = "vines_vine.png",
  groups = { snappy = 3,flammable=2, hanging=1 },
  sounds = default.node_sound_leaves_defaults(),
  selection_box = {
    type = "fixed",
    fixed = {-0.3, -1/2, -0.3, 0.3, 1/2, 0.3},
  },
})

minetest.register_node("vines:vine_rotten", {
  description = "Rotten vine",
  walkable = false,
  climbable = true,
  drop = 'vines:vines',
  sunlight_propagates = true,
  paramtype = "light",
  tile_images = { "vines_vine_rotten.png" },
  drawtype = "plantlike",
  inventory_image = "vines_vine_rotten.png",
  groups = { snappy = 3,flammable=2, hanging=1 },
  sounds = default.node_sound_leaves_defaults(),
  selection_box = {
    type = "fixed",
    fixed = {-0.3, -1/2, -0.3, 0.3, 1/2, 0.3},
  },
})

--ABM
--make vines grow downward
minetest.register_abm({
  nodenames = {"vines:vine", "vines:side", "vines:root"},
  interval = 300,
  chance = 8,
  action = function(pos, node, active_object_count, active_object_count_wider)
    local p = {x=pos.x, y=pos.y-1, z=pos.z}
    local n = minetest.env:get_node(p)
    if n.name == "air" then
      walldir = node.param2
      minetest.env:add_node(p, {name=node.name, param2 = walldir})
    end
  end
})

minetest.register_abm({
  nodenames = {"default:dirt", "default:dirt_with_grass"},
  interval = 36000,
  chance = 10,
  action = function(pos, node, active_object_count, active_object_count_wider)
    local p = {x=pos.x, y=pos.y-1, z=pos.z}
    local n = minetest.env:get_node(p)
    minetest.env:add_node(p, {name="vines:vine"})
  end
})

minetest.register_abm({
  nodenames = {"vines:rope_end"},
  interval = 1,
  chance = 1,
  action = function(pos, node, active_object_count, active_object_count_wider)
    local p = {x=pos.x, y=pos.y-1, z=pos.z}
    local n = minetest.env:get_node(p)
    
    --remove if top node is removed
    if  n.name == "air" then
      minetest.env:remove_node(pos)
      minetest.env:add_node(pos, {name="vines:rope"})
      minetest.env:add_node(p, {name="vines:rope_end"})
    end 
  end
})

-- craft rope
minetest.register_craft({
  output = 'vines:rope_block',
  recipe = {
    {'', 'default:wood', ''},
    {'', 'vines:vines', ''},
    {'', 'vines:vines', ''},
  }
})

minetest.register_craftitem("vines:vines", {
	description = "Vines",
	inventory_image = "vines_item.png",
})

--remove rope when rope block is removed
minetest.register_on_dignode(function (pos, node, player)
  if node.name == 'vines:rope_block' then
    local p = {x=pos.x, y=pos.y-1, z=pos.z}
    local n = minetest.env:get_node(p)
    while n.name == 'vines:rope' do
      minetest.env:remove_node(p)
      p = {x=p.x, y=p.y-1, z=p.z}
      n = minetest.env:get_node(p)
    end
    if n.name == 'vines:rope_end' then
      minetest.env:remove_node(p)
    end
  end
end)

plantslib:spawn_on_surfaces({
  spawn_delay = 300,
  spawn_plants = {"vines:side"},
  spawn_chance = 10,
  spawn_surfaces = {"default:leaves"},
  spawn_on_side = true
})

print("[Vines] Loaded!")