-- Navigation.lua

-- Contains all the command handlers in the navigation category





function HandleUpCommand(a_Split, a_Player)
	-- /up

	if #a_Split < 2 then
		a_Player:SendMessage(cChatColor.Rose .. "Too few arguments.")
		a_Player:SendMessage(cChatColor.Rose .. "/up <block>")
		return true
	elseif #a_Split > 2 then
		a_Player:SendMessage(cChatColor.Rose .. "Too many arguments.")
		a_Player:SendMessage(cChatColor.Rose .. "/up <block>")
		return true
	end

	local Height = tonumber(a_Split[2])
	if (Height == nil) then -- The given string isn't a number. bail out.
		a_Player:SendMessage(cChatColor.Rose .. 'Number expected; string"' .. a_Split[2] .. '" given.')
		return true
	end

	local P1 = a_Player:GetPosition():Floor()
	local P2 = a_Player:GetPosition():Floor()
	P2.y = P2.y + Height

	local World = a_Player:GetWorld()
	for Y = P1.y, P2.y + 1 do
		if (World:GetBlock(Vector3i(P1.x, Y, P1.z)) ~= E_BLOCK_AIR) then
			a_Player:SendMessage(cChatColor.Rose .. "You would hit something above you.")
			return true
		end
	end

	local ChangeCuboid = cCuboid(P2, P2)
	if (CallHook("OnAreaChanging", ChangeCuboid, a_Player, World, "up")) then
		return true
	end

	World:SetBlock(Vector3i(P1.x, P2.y - 1, P1.z), E_BLOCK_GLASS, 0)
	a_Player:TeleportToCoords(P1.x + 0.5, P2.y, P1.z + 0.5)
	a_Player:SendMessage(cChatColor.LightPurple .. "Whoosh!")

	CallHook("OnAreaChanged", ChangeCuboid, a_Player, World, "up")
	return true
end





function HandleJumpToCommand(a_Split, a_Player)
	-- /jumpto
	-- /j

	if (#a_Split ~= 1) then
		a_Player:SendMessage(cChatColor.Rose .. "Too many arguments.")
		a_Player:SendMessage(cChatColor.Rose .. "/jumpto")
		return true
	end

	LeftClickCompass(a_Player, a_Player:GetWorld())
	a_Player:SendMessage(cChatColor.LightPurple .. "Poof!!")
	return true
end





function HandleThruCommand(Split, a_Player)
	-- /thru

	if (#Split ~= 1) then
		a_Player:SendMessage(cChatColor.Rose .. "Too many arguments.")
		a_Player:SendMessage(cChatColor.Rose .. "/thru")
		return true
	end

	RightClickCompass(a_Player, a_Player:GetWorld())
	a_Player:SendMessage(cChatColor.LightPurple .. "Whoosh!")
	return true
end





function HandleDescendCommand(a_Split, a_Player)
	-- /descend
	-- /desc

	local World = a_Player:GetWorld()
	if a_Player:GetPosY() < 1 then
		a_Player:SendMessage(cChatColor.LightPurple .. "Descended a level.")
		return true
	end

	local FoundYCoordinate = false
	local WentThroughBlock = false
	local XPos = math.floor(a_Player:GetPosX())
	local YPos = a_Player:GetPosY()
	local ZPos = math.floor(a_Player:GetPosZ())

	for Y = math.floor(YPos), 1, -1 do
		if (World:GetBlock(Vector3i(XPos, Y, ZPos)) ~= E_BLOCK_AIR) then
			WentThroughBlock = true
		else
			if WentThroughBlock then
				for y = Y, 1, -1 do
					if cBlockInfo:IsSolid(World:GetBlock(Vector3i(XPos, y, ZPos))) then
						YPos = y
						FoundYCoordinate = true
						break
					end
				end

				if FoundYCoordinate then
					break
				end
			end
		end
	end

	if FoundYCoordinate then
		a_Player:TeleportToCoords(a_Player:GetPosX(), YPos + 1, a_Player:GetPosZ())
	end

	a_Player:SendMessage(cChatColor.LightPurple .. "Descended a level.")
	return true
end





function HandleAscendCommand(a_Split, a_Player)
	-- /ascend
	-- /asc

	local World = a_Player:GetWorld()
	local XPos = math.floor(a_Player:GetPosX())
	local YPos = a_Player:GetPosY()
	local ZPos = math.floor(a_Player:GetPosZ())

	local IsValid, WorldHeight = World:TryGetHeight(XPos, ZPos)

	if not IsValid then
		a_Player:SendMessage(cChatColor.LightPurple .. "Ascended a level.")
		return true
	end

	if a_Player:GetPosY() == WorldHeight then
		a_Player:SendMessage(cChatColor.LightPurple .. "Ascended a level.")
		return true
	end


	local WentThroughBlock = false

	for Y = math.floor(a_Player:GetPosY()), WorldHeight + 1 do
		if (World:GetBlock(Vector3i(XPos, Y, ZPos)) == E_BLOCK_AIR) then
			if WentThroughBlock then
				YPos = Y
				break
			end
		else
			WentThroughBlock = true
		end
	end

	if WentThroughBlock then
		a_Player:TeleportToCoords(a_Player:GetPosX(), YPos, a_Player:GetPosZ())
	end

	a_Player:SendMessage(cChatColor.LightPurple .. "Ascended a level.")
	return true
end





function HandleCeilCommand(a_Split, a_Player)
	-- ceil <cleurance>

	if (#a_Split > 2) then
		a_Player:SendMessage(cChatColor.Rose .. "Too many arguments.")
		a_Player:SendMessage(cChatColor.Rose .. "/ceil [cleurance]")
		return true
	end

	local BlockFromCeil
	if a_Split[2] == nil then
		BlockFromCeil = 0
	else
		BlockFromCeil = tonumber(a_Split[2])
	end

	if BlockFromCeil == nil then
		a_Player:SendMessage(cChatColor.Rose .. 'Number expected; string "' .. a_Split[2] .. '" given.')
		return true
	end
	local World = a_Player:GetWorld()
	local X = math.floor(a_Player:GetPosX())
	local Y = math.floor(a_Player:GetPosY())
	local Z = math.floor(a_Player:GetPosZ())
	local IsValid, WorldHeight = World:TryGetHeight(X, Z)

	if not IsValid then
		a_Player:SendMessage(cChatColor.LightPurple .. "Whoosh!")
		return true
	end

	if Y >= WorldHeight + 1 then
		a_Player:SendMessage(cChatColor.Rose .. "No free spot above you found.")
		return true
	end

	for y = Y, WorldHeight do
		if (World:GetBlock(Vector3i(X, y, Z)) ~= E_BLOCK_AIR) then
			-- Check with other plugins if the operation is okay:
			if not(CallHook("OnAreaChanging", cCuboid(X, y - BlockFromCeil - 3, Z), a_Player, a_Player:GetWorld(), "ceil")) then
				World:SetBlock(Vector3i(X, y - BlockFromCeil - 3, Z), E_BLOCK_GLASS, 0)
				CallHook("OnAreaChanged", cCuboid(X, y - BlockFromCeil - 3, Z), a_Player, a_Player:GetWorld(), "ceil")
			end
			local I = y - BlockFromCeil - 2
			if I == Y then
				a_Player:SendMessage(cChatColor.Rose .. "No free spot above you found.")
				return true
			end
			a_Player:TeleportToCoords(X + 0.5, I, Z + 0.5)
			break
		end
	end

	a_Player:SendMessage(cChatColor.LightPurple .. "Whoosh!")
	return true
end