towercrane/init.lua

--[[

    Tower Crane Mod
    ===============

    v0.01 by JoSt
    
    Copyright (C) 2017 Joachim Stolberg
    LGPLv2.1+
    See LICENSE.txt for more information

    History:
    2017-06-04  v0.01  first version
]]--


towercrane = {}

--##################################################################################################
--##  Tower Crane Hook
--##################################################################################################
local hook = {
	physical = true, 
	collisionbox = {-0.2, -0.2, -0.2, 0.2, 0.2, 0.2},
	collide_with_objects = false,   
	visual = "cube",
    visual_size = {x=0.4, y=0.4},
	textures = {
        "towercrane_hook.png",
        "towercrane_hook.png",
        "towercrane_hook.png",
        "towercrane_hook.png",
        "towercrane_hook.png",
        "towercrane_hook.png",
    },
    groups = {cracky=1},
    -- local variabels
	driver = nil,
    speed_forward=0,
    speed_right=0,
    speed_up=0,
}
----------------------------------------------------------------------------------------------------
-- Enter/leave the Hook
----------------------------------------------------------------------------------------------------
function hook:on_rightclick(clicker)
	if self.driver and clicker == self.driver then  -- leave?
		clicker:set_detach()
		self.driver = nil
	elseif not self.driver then                     -- enter?
		self.driver = clicker
        clicker:set_attach(self.object, "", {x=0,y=0,z=0}, {x=0,y=0,z=0})
	end
end

----------------------------------------------------------------------------------------------------
-- Hook control
----------------------------------------------------------------------------------------------------
function hook:on_step(dtime)
    -- remove hook from  last visit
    if self.pos1 == nil or self.pos2 == nil then
        self.object:remove()
        return
    end
    if self.driver then
        local ctrl = self.driver:get_player_control()
        local yaw = self.driver:get_look_horizontal()
        local pos = self.driver:getpos()
        local max_speed = 5
        local velocity = 0.5

        if ctrl.up then             -- forward
            self.speed_forward = math.min(self.speed_forward + velocity, max_speed)
        elseif ctrl.down then       -- backward
            self.speed_forward = math.max(self.speed_forward - velocity, -max_speed)
        elseif self.speed_forward > 0 then
            self.speed_forward = self.speed_forward - velocity
        elseif self.speed_forward < 0 then
            self.speed_forward = self.speed_forward + velocity
        end
        
        if ctrl.right then          -- right
            self.speed_right = math.min(self.speed_right + velocity, max_speed)
        elseif ctrl.left then       -- left
            self.speed_right = math.max(self.speed_right - velocity, -max_speed)
        elseif self.speed_right > 0 then
            self.speed_right = self.speed_right - velocity
        elseif self.speed_right < 0 then
            self.speed_right = self.speed_right + velocity
        end

        if ctrl.jump then           -- up
            self.speed_up = math.min(self.speed_up + velocity, 5)
        elseif ctrl.sneak then      -- down
            self.speed_up = math.max(self.speed_up - velocity, -5)
        elseif self.speed_up > 0 then
            self.speed_up = self.speed_up - velocity
        elseif self.speed_up < 0 then
            self.speed_up = self.speed_up + velocity
        end

        -- calculate the direction vector
        local vx = math.cos(yaw+math.pi/2) * self.speed_forward + math.cos(yaw) * self.speed_right
        local vz = math.sin(yaw+math.pi/2) * self.speed_forward + math.sin(yaw) * self.speed_right

        -- check if outside of the construction area
        if pos.x < self.pos1.x then vx= velocity end
        if pos.x > self.pos2.x then vx= -velocity end
        if pos.y < self.pos1.y then self.speed_up=  velocity end
        if pos.y > self.pos2.y then self.speed_up= -velocity end
        if pos.z < self.pos1.z then vz=  velocity end
        if pos.z > self.pos2.z then vz= -velocity end

        self.object:setvelocity({x=vx, y=self.speed_up,z=vz})
    else
        self.object:setvelocity({x=0, y=0,z=0})
    end
end

----------------------------------------------------------------------------------------------------
-- LuaEntitySAO (non-player moving things): see http://dev.minetest.net/LuaEntitySAO
----------------------------------------------------------------------------------------------------
minetest.register_entity("towercrane:hook", hook)



--##################################################################################################
--##  Tower Crane
--##################################################################################################

local function turnright(dir)
    local facedir = minetest.dir_to_facedir(dir)
    return minetest.facedir_to_dir((facedir + 1) % 4)
end

local function turnleft(dir)
    local facedir = minetest.dir_to_facedir(dir)
    return minetest.facedir_to_dir((facedir + 3) % 4)
end

----------------------------------------------------------------------------------------------------
-- Constuct mast and arm
----------------------------------------------------------------------------------------------------
local function construct_crane(pos, dir, height, width, owner)
    pos.y = pos.y + 1
    minetest.env:add_node(pos, {name="towercrane:mast_ctrl_off", param2=minetest.dir_to_facedir(dir)})
    local meta = minetest.get_meta(pos)
    meta:set_string("dir", minetest.pos_to_string(dir))
    meta:set_string("owner", owner)
    meta:set_int("height", height)
    meta:set_int("width", width)

    for i = 1,height+1 do
        pos.y = pos.y + 1
        minetest.env:add_node(pos, {name="towercrane:mast"})
    end
    
    pos.y = pos.y - 2
    pos.x = pos.x - dir.x
    pos.z = pos.z - dir.z
    minetest.env:add_node(pos, {name="towercrane:arm2"})
    pos.x = pos.x - dir.x
    pos.z = pos.z - dir.z
    minetest.env:add_node(pos, {name="towercrane:arm"})
    pos.x = pos.x - dir.x
    pos.z = pos.z - dir.z
    minetest.env:add_node(pos, {name="towercrane:balance"})
    pos.x = pos.x + 3 * dir.x
    pos.z = pos.z + 3 * dir.z
    
    for i = 1,width do
        pos.x = pos.x + dir.x
        pos.z = pos.z + dir.z
        if i % 2 == 0 then
            minetest.env:add_node(pos, {name="towercrane:arm2"})
        else
            minetest.env:add_node(pos, {name="towercrane:arm"})
        end
        
    end
end

----------------------------------------------------------------------------------------------------
-- Remove the crane
----------------------------------------------------------------------------------------------------
local function dig_crane(pos, dir, height, width)
    pos.y = pos.y + 1
    minetest.env:remove_node(pos, {name="towercrane:mast_ctrl_off"})
    
    for i = 1,height+1 do
        pos.y = pos.y + 1
        minetest.env:remove_node(pos, {name="towercrane:mast"})
    end

    pos.y = pos.y - 2
    pos.x = pos.x - dir.x
    pos.z = pos.z - dir.z
    minetest.env:remove_node(pos, {name="towercrane:arm2"})
    pos.x = pos.x - dir.x
    pos.z = pos.z - dir.z
    minetest.env:remove_node(pos, {name="towercrane:arm"})
    pos.x = pos.x - dir.x
    pos.z = pos.z - dir.z
    minetest.env:remove_node(pos, {name="towercrane:balance"})
    pos.x = pos.x + 3 * dir.x
    pos.z = pos.z + 3 * dir.z
    
    for i = 1,width do
        pos.x = pos.x + dir.x
        pos.z = pos.z + dir.z
        if i % 2 == 0 then
            minetest.env:remove_node(pos, {name="towercrane:arm2"})
        else
            minetest.env:remove_node(pos, {name="towercrane:arm"})
        end
    end
end

----------------------------------------------------------------------------------------------------
-- Place the hook in front of the base
----------------------------------------------------------------------------------------------------
local function place_hook(pos, dir)
    pos.y = pos.y - 1
    pos.x = pos.x + dir.x
    pos.z = pos.z + dir.z
    return minetest.add_entity(pos, "towercrane:hook")
end

----------------------------------------------------------------------------------------------------
-- Register Crane base
----------------------------------------------------------------------------------------------------
minetest.register_node("towercrane:base", {
    description = "Tower Crane Base",
    inventory_image = "towercrane_invent.png",
    tiles = {
        "towercrane_base_top.png",
        "towercrane_base.png",
        "towercrane_base.png",
        "towercrane_base.png",
        "towercrane_base.png",
        "towercrane_base.png",
    },
    paramtype2 = "facedir",
    is_ground_content = false,
    groups = {cracky=3},
    formspec = set_formspec,

    -- set meta data (form for crane height and width, dir of the arm)
    after_place_node = function(pos, placer)
        local meta = minetest.get_meta(pos)
        local owner = placer:get_player_name()
        meta:set_string("owner", owner)
        local formspec = "size[5,4]"..
            "label[0,0;Construction area size]" ..
            "field[1,1.5;3,1;size;height,width;]" ..
            "button_exit[1,2;2,1;exit;Save]"
        meta:set_string("formspec", formspec)

        local fdir = minetest.dir_to_facedir(placer:get_look_dir(), false)
        local dir = minetest.facedir_to_dir(fdir)
        meta:set_string("dir", minetest.pos_to_string(dir))
    end,

    -- evaluate user input (height, width), destroyed old crane and build a new one with
    -- the given size
    on_receive_fields = function(pos, formname, fields, player)
        if fields.size == nil then
            return
        end
        local meta = minetest.get_meta(pos)

        if not player or not player:is_player() then
            return
        end
        local owner = meta:get_string("owner")
        if player:get_player_name() ~= owner then
            return
        end
        
        local dir = minetest.string_to_pos(meta:get_string("dir"))
        local height = meta:get_int("height")
        local width = meta:get_int("width")
        local org_pos = table.copy(pos)
        if dir ~= nil and height ~= nil and width ~= nil then
           dig_crane(pos, dir, height, width)
        end
        --check for correct size format
        size = string.split(fields.size, ",")
        if #size == 2  then
            local height = tonumber(size[1])
            local width = tonumber(size[2])
            if height ~= nil and width ~= nil then
                height = math.max(height, 8)
                height = math.min(height, 24)
                width = math.max(width, 8)
                width = math.min(width, 24)
                meta:set_int("height", height)
                meta:set_int("width", width)
                meta:set_string("infotext", "Crane size: " .. height .. "," .. width)
                if dir ~= nil then
                    construct_crane(org_pos, dir, height, width, owner)
                end
            end
        end
    end,

    -- remove mast and arm if base gets destroyed
    on_destruct = function(pos)
        local meta = minetest.get_meta(pos)
        local dir = minetest.string_to_pos(meta:get_string("dir"))
        local height = meta:get_int("height")
        local width = meta:get_int("width")

        if dir ~= nil and height ~= nil and width ~= nil then
           dig_crane(pos, dir, height, width)
        end
    end,
})

----------------------------------------------------------------------------------------------------
-- Register Crane balance
----------------------------------------------------------------------------------------------------
minetest.register_node("towercrane:balance", {
  description = "Tower Crane Balance",
  tiles = {
      "towercrane_base.png",
      "towercrane_base.png",
      "towercrane_base.png",
      "towercrane_base.png",
      "towercrane_base.png",
      "towercrane_base.png",
  },
  paramtype2 = "facedir",
  is_ground_content = false,
  groups = {crumbly=0, not_in_creative_inventory=1},
})

----------------------------------------------------------------------------------------------------
-- Register Crane mast
----------------------------------------------------------------------------------------------------
minetest.register_node("towercrane:mast", {
  description = "Tower Crane Mast",
  drawtype = "glasslike_framed",
  tiles = {
      "towercrane_mast.png",
      "towercrane_mast.png",
      "towercrane_mast.png",
      "towercrane_mast.png",
      "towercrane_mast.png",
      "towercrane_mast.png",
  },
  paramtype2 = "facedir",
  is_ground_content = false,
  groups = {crumbly=0, not_in_creative_inventory=1},
})

----------------------------------------------------------------------------------------------------
-- Register Crane Switch (on)
----------------------------------------------------------------------------------------------------
minetest.register_node("towercrane:mast_ctrl_on", {
  description = "Tower Crane Mast Ctrl On",
  drawtype = "node",
  tiles = {
      "towercrane_mast_ctrl.png",
      "towercrane_mast_ctrl.png",
      "towercrane_mast_ctrl_on.png",
      "towercrane_mast_ctrl_on.png",
      "towercrane_mast_ctrl.png",
      "towercrane_mast_ctrl.png",
  },
  on_rightclick = function (pos, node, clicker)
    local meta = minetest.get_meta(pos)
    if not clicker or not clicker:is_player() then
        return
    end
    if clicker:get_player_name() ~= meta:get_string("owner") then
        return
    end
    node.name = "towercrane:mast_ctrl_off"
    minetest.swap_node(pos, node)

    local id = minetest.hash_node_position(pos)
    if towercrane.id then
        towercrane.id:remove()
        towercrane.id = nil
    else
    
    end
  end,
  
  on_construct = function(pos)
    local meta = minetest.get_meta(pos)
    meta:set_string("infotext", "Switch crane on/off")
  end,
  
  after_place_node = function(pos, placer, itemstack, pointed_thing)
    local meta = minetest.get_meta(pos)
    local owner = placer:get_player_name()
    meta:set_string("owner", owner)
  end,
  
  paramtype2 = "facedir",
  is_ground_content = false,
  groups = {crumbly=0, not_in_creative_inventory=1},
})

----------------------------------------------------------------------------------------------------
-- Register Crane Switch (off)
----------------------------------------------------------------------------------------------------
minetest.register_node("towercrane:mast_ctrl_off", {
  description = "Tower Crane Mast Ctrl Off",
  drawtype = "node",
  tiles = {
      "towercrane_mast_ctrl.png",
      "towercrane_mast_ctrl.png",
      "towercrane_mast_ctrl_off.png",
      "towercrane_mast_ctrl_off.png",
      "towercrane_mast_ctrl.png",
      "towercrane_mast_ctrl.png",
  },
  on_rightclick = function (pos, node, clicker)
    -- switch switch on, calculate the construction area, and place the hook
    local meta = minetest.get_meta(pos)
    -- only the owner is allowed to switch
    if not clicker or not clicker:is_player() then
        return
    end
    if clicker:get_player_name() ~= meta:get_string("owner") then
        return
    end
    -- swap to the other node
    node.name = "towercrane:mast_ctrl_on"
    minetest.swap_node(pos, node)
    local dir = minetest.string_to_pos(meta:get_string("dir"))
    if pos ~= nil and dir ~= nil then
        -- store hook instance in 'towercrane'
        local id = minetest.hash_node_position(pos)
        towercrane.id = place_hook(table.copy(pos), dir)

        -- calculate the construction area dimension (pos, pos2)
        local height = meta:get_int("height")
        local width = meta:get_int("width")

        -- pos1 = close/right
        dir = turnright(dir)
        local pos1 = vector.add(pos, vector.multiply(dir, width/2))
        dir = turnleft(dir)
        local pos1 = vector.add(pos1, vector.multiply(dir, 1))
        pos1.y = pos.y - 1

        -- pos2 = far/left
        local pos2 = vector.add(pos1, vector.multiply(dir, width-1))
        dir = turnleft(dir)
        pos2 = vector.add(pos2, vector.multiply(dir, width))
        pos2.y = pos.y - 4 + height

        -- normalize x/z so that pos2 > pos1
        if pos2.x < pos1.x then
            pos2.x, pos1.x = pos1.x, pos2.x
        end
        if pos2.z < pos1.z then
            pos2.z, pos1.z = pos1.z, pos2.z
        end

        -- store pos1/pos2 in the hook (LuaEntitySAO)
        towercrane.id:get_luaentity().pos1 = pos1
        towercrane.id:get_luaentity().pos2 = pos2
    end
  end,

  on_construct = function(pos)
    -- add infotext
    local meta = minetest.get_meta(pos)
    meta:set_string("infotext", "Switch crane on/off")
  end,

  after_place_node = function(pos, placer, itemstack, pointed_thing)
    -- store owner for dig protection
    local meta = minetest.get_meta(pos)
    local owner = placer:get_player_name()
    meta:set_string("owner", owner)
  end,
  
  paramtype2 = "facedir",
  is_ground_content = false,
  groups = {crumbly=0, not_in_creative_inventory=1},
})

----------------------------------------------------------------------------------------------------
-- Register Crane arm 1
----------------------------------------------------------------------------------------------------
minetest.register_node("towercrane:arm", {
  description = "Tower Crane Arm",
  drawtype = "glasslike_framed",
  tiles = {
      "towercrane_arm.png",
      "towercrane_arm.png",
      "towercrane_arm.png",
      "towercrane_arm.png",
      "towercrane_arm.png",
      "towercrane_arm.png",
  },
  paramtype2 = "facedir",
  is_ground_content = false,
  groups = {crumbly=0, not_in_creative_inventory=1},
})

----------------------------------------------------------------------------------------------------
-- Register Crane arm 2
----------------------------------------------------------------------------------------------------
minetest.register_node("towercrane:arm2", {
  description = "Tower Crane Arm2",
  drawtype = "glasslike_framed",
  tiles = {
      "towercrane_arm2.png",
      "towercrane_arm2.png",
      "towercrane_arm2.png",
      "towercrane_arm2.png",
      "towercrane_arm2.png",
      "towercrane_arm2.png",
  },
  paramtype2 = "facedir",
  is_ground_content = false,
  groups = {crumbly=0, not_in_creative_inventory=1},
})