function HandleReplCommand(a_Split, a_Player)
	-- //repl <item>

	if a_Split[2] == nil then -- check if the player gave a block id
		a_Player:SendMessage(cChatColor.Rose .. "Too few arguments.")
		a_Player:SendMessage(cChatColor.Rose .. "/repl <block ID>")
		return true
	end

	local BlockType, BlockMeta = GetBlockTypeMeta(a_Split[2])

	if (not BlockType) then
		a_Player:SendMessage(cChatColor.Rose .. "Unknown character \"" .. a_Split[2] .. "\"")
		return true
	end

	if not IsValidBlock(BlockType) then -- check if the player gave a valid block id
		a_Player:SendMessage(cChatColor.Rose .. a_Split[2] .. " isn't a valid block")
		return true
	end

	-- Initialize the handler.
	local function ReplaceHandler(a_Player, a_BlockX, a_BlockY, a_BlockZ, a_BlockFace)
		if (a_BlockFace == BLOCK_FACE_NONE) then
			return true
		end

		local AffectedBlock = cCuboid(a_BlockX, a_BlockY, a_BlockZ)
		if (CallHook("OnAreaChanging", AffectedBlock, a_Player, a_Player:GetWorld(), "replacetool")) then
			return true
		end

		a_Player:GetWorld():SetBlock(Vector3i(a_BlockX, a_BlockY, a_BlockZ), BlockType, BlockMeta)
		CallHook("OnAreaChanged", AffectedBlock, a_Player, a_Player:GetWorld(), "replacetool")
		return false
	end

	local State = GetPlayerState(a_Player)
	local Succes, error = State.ToolRegistrator:BindRightClickTool(a_Player:GetEquippedItem().m_ItemType, ReplaceHandler, "replacetool")

	if (not Succes) then
		a_Player:SendMessage(cChatColor.Rose .. error)
		return true
	end

	a_Player:SendMessage(cChatColor.LightPurple .. "Block replacer tool bound to " .. ItemToString(a_Player:GetEquippedItem()))
	return true
end


------------------------------------------------
----------------------NONE----------------------
------------------------------------------------
function HandleNoneCommand(a_Split, a_Player)
	local State = GetPlayerState(a_Player)
	local Success, error = State.ToolRegistrator:UnbindTool(a_Player:GetEquippedItem().m_ItemType)
	local SuccessMask, errorMask = State.ToolRegistrator:UnbindMask(a_Player:GetEquippedItem().m_ItemType)

	if ((not Success) and (not SuccessMask)) then
		a_Player:SendMessage(cChatColor.Rose .. error)
		return true
	end

	a_Player:SendMessage(cChatColor.LightPurple .. "Tool unbound from your current item.")
	return true
end


------------------------------------------------
----------------------TREE----------------------
------------------------------------------------
function HandleTreeCommand(a_Split, a_Player)

	local function HandleTree(a_Player, a_BlockX, a_BlockY, a_BlockZ, a_BlockFace)
		if (a_BlockFace == BLOCK_FACE_NONE) then
			return false
		end

		local World = a_Player:GetWorld()
		if (World:GetBlock(Vector3i(a_BlockX, a_BlockY, a_BlockZ)) == E_BLOCK_GRASS) or (World:GetBlock(Vector3i(a_BlockX, a_BlockY, a_BlockZ)) == E_BLOCK_DIRT) then
			World:GrowTree(Vector3i(a_BlockX, a_BlockY + 1, a_BlockZ))
		else
			a_Player:SendMessage(cChatColor.Rose .. "A tree can't go there.")
		end
	end

	local State = GetPlayerState(a_Player)
	local Succes, error = State.ToolRegistrator:BindRightClickTool(a_Player:GetEquippedItem().m_ItemType, HandleTree, "tree")

	if (not Succes) then
		a_Player:SendMessage(cChatColor.Rose .. error)
		return true
	end

	a_Player:SendMessage(cChatColor.LightPurple .. "Tree tool bound to " .. ItemToString(a_Player:GetEquippedItem()))
	return true
end


-----------------------------------------------
-------------------SUPERPICK-------------------
-----------------------------------------------
function HandleSuperPickCommand(a_Split, a_Player)
	-- //
	-- /,

	-- A table containing all the ID's of the pickaxes
	local Pickaxes =
	{
		E_ITEM_WOODEN_PICKAXE,
		E_ITEM_STONE_PICKAXE,
		E_ITEM_IRON_PICKAXE,
		E_ITEM_GOLD_PICKAXE,
		E_ITEM_DIAMOND_PICKAXE,
	}

	-- The handler that breaks the block of the superpickaxe.
	local function SuperPickaxe(a_Player, a_BlockX, a_BlockY, a_BlockZ, a_BlockFace)
		local AffectedArea = cCuboid(a_BlockX, a_BlockY, a_BlockZ)
		if (CallHook("OnAreaChanging", AffectedArea, a_Player, a_Player:GetWorld(), "superpickaxe")) then
			return true
		end

		local World = a_Player:GetWorld()
		World:BroadcastSoundParticleEffect(2001, Vector3i(a_BlockX, a_BlockY, a_BlockZ), World:GetBlock(Vector3i(a_BlockX, a_BlockY, a_BlockZ)))
		World:DigBlock(a_BlockX, a_BlockY, a_BlockZ)

		-- Notify other plugins of the change
		CallHook("OnAreaChanged", AffectedArea, a_Player, a_Player:GetWorld(), "superpickaxe")
	end

	local State = GetPlayerState(a_Player)

	-- Check if at least one of the pickaxe types has the superpickaxe tool.
	-- If not then we bind the superpickaxe tool, otherwise unbind all the pickaxes
	local WasActivated = false
	for Idx, Pickaxe in ipairs(Pickaxes) do
		local Info = State.ToolRegistrator:GetLeftClickCallbackInfo(Pickaxe)
		if (Info) then
			WasActivated = WasActivated or (Info.ToolName == "superpickaxe")
		end
	end

	if (WasActivated) then
		a_Player:SendMessage(cChatColor.LightPurple .. "Super pick axe disabled")
		State.ToolRegistrator:UnbindTool(Pickaxes, "superpickaxe")
	else
		a_Player:SendMessage(cChatColor.LightPurple .. "Super pick axe enabled")
		State.ToolRegistrator:BindLeftClickTool(Pickaxes, SuperPickaxe, "superpickaxe")
	end

	return true
end





function HandleFarwandCommand(a_Split, a_Player)
	-- /farwand

	local State = GetPlayerState(a_Player)

	-- Common code for both left and right
	local FarWand = function(a_Player, a_BlockFace, a_Point)
		if (a_BlockFace ~= BLOCK_FACE_NONE) then
			return true
		end

		-- Get the block the player is looking at
		local TargetBlock, BlockFace = GetTargetBlock(a_Player)
		if (not TargetBlock) then
			return true
		end

		local Succes, Msg = State.Selection:SetPos(TargetBlock.x, TargetBlock.y, TargetBlock.z, BlockFace, a_Point)
		a_Player:SendMessage(Msg)
		return true
	end

	local LeftClick = function(a_Player, a_BlockX, a_BlockY, a_BlockZ, a_BlockFace)
		return FarWand(a_Player, a_BlockFace, "First")
	end

	local RightClick = function(a_Player, a_BlockX, a_BlockY, a_BlockZ, a_BlockFace)
		return FarWand(a_Player, a_BlockFace, "Second")
	end

	local EquippedItemType = a_Player:GetInventory():GetEquippedItem().m_ItemType
	local Succes, Err = State.ToolRegistrator:BindRightClickTool(EquippedItemType, RightClick, "farwand")
	if (not Succes) then
		a_Player:SendMessage(cChatColor.Rose .. Err)
		return true
	end

	Succes, Err = State.ToolRegistrator:BindLeftClickTool(EquippedItemType, LeftClick, "farwand")
	if (not Succes) then
		a_Player:SendMessage(cChatColor.Rose .. Err)
		return true
	end

	a_Player:SendMessage(cChatColor.LightPurple .. "Far wand tool bound to " .. ItemTypeToString(EquippedItemType))
	return true
end