--[[

	Hyperloop Mod
	=============

	Copyright (C) 2017 Joachim Stolberg

	LGPLv2.1+
	See LICENSE.txt for more information

]]--


----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
local function on_open_door(pos, facedir)
    -- open the door and play sound
    local meta = minetest.get_meta(pos)
    meta:set_int("arrival_time", 0) -- finished
	-- open door
    hyperloop.door_command(pos, facedir, "open")
    -- prepare dislay for the next trip
    hyperloop.enter_display(pos, facedir, "Thank you | for | travelling | with | Hyperloop.")
end

----------------------------------------------------------------------------------------------------
local function on_arrival(player, src_pos, dst_pos, snd, radiant)
    -- get pos from arrival station
    local meta = minetest.get_meta(dst_pos)
    local facedir = meta:get_int("facedir")
    
    -- move player to the arrival station
    player:setpos(dst_pos)
    -- rotate player to look in correct arrival direction
    -- calculate the look correction
    local offs = radiant - player:get_look_horizontal()
    local yaw = hyperloop.facedir2rad(facedir) + offs
    player:set_look_yaw(yaw)

    -- play arrival sound
    minetest.sound_stop(snd)
    minetest.sound_play("down2", {
        pos = dst_pos,
        gain = 0.5,
        max_hear_distance = 10
    })
    -- activate display
	local station_name = meta:get_string("station_name")
    local text = "Wellcome in | | "..station_name
    hyperloop.enter_display(dst_pos, facedir, text)

    -- open the door an the departure station
    local dep_meta = minetest.get_meta(src_pos)
    local dep_facedir = dep_meta:get_int("facedir")
    hyperloop.door_command(src_pos, dep_facedir, "open")
	
    minetest.after(6.0, on_open_door, dst_pos, facedir)
end

----------------------------------------------------------------------------------------------------
local function on_travel(src_pos, facedir, player, dst_pos, radiant, atime)
    -- play sound and switch door state
    -- radiant is the player look direction at departure
    local snd = minetest.sound_play("normal2", {
        pos = src_pos,
        gain = 0.5,
        max_hear_distance = 1,
        loop = true,
    })
    hyperloop.door_command(src_pos, facedir, "animate")
    minetest.after(atime, on_arrival, player, src_pos, dst_pos, snd, radiant)
end

----------------------------------------------------------------------------------------------------
local function display_timer(pos, elapsed)
    -- update display with trip data
    local meta = minetest.get_meta(pos)
    local atime = meta:get_int("arrival_time") - 1
	if hyperloop.debugging then
		print("Timer".. atime)
	end
    meta:set_int("arrival_time", atime)
    local facedir = meta:get_int("facedir")
    local text = meta:get_string("lcd_text")
    if atime > 0 then
        hyperloop.enter_display(pos, facedir, text..atime.." sec")
        return true
    else
        hyperloop.enter_display(pos, facedir, "We will start | in a view | minutes..")
        return false
    end
end


----------------------------------------------------------------------------------------------------
-- place the player, close the door, activate display
local function on_start_travel(pos, node, clicker)
	-- local data
    local meta = minetest.get_meta(pos)
    local facedir = meta:get_int("facedir")
	local station_name = meta:get_string("station_name")
    if station_name == nil then
		minetest.chat_send_player(clicker:get_player_name(), "Error: station_name == nil!")
        return
    end
	local order = hyperloop.order[station_name]
	if order == nil then
		minetest.chat_send_player(clicker:get_player_name(), "Error: No order entered!")
		return
	end
	
	local dataSet = table.copy(hyperloop.tAllStations[order])
	-- delete order
	hyperloop.order[station_name] = nil
	if dataSet == nil then
		return
	end
	
    -- destination data od the station
    local dest_pos = minetest.string_to_pos(dataSet.pos)
	local dest_meta = minetest.get_meta(dest_pos)
	local dest_name = dest_meta:get_string("station_name")
	-- seat is on top of the station block
	dest_pos = vector.add(dest_pos, {x=0,y=1,z=0})
	dest_meta = minetest.get_meta(dest_pos)
	local dest_facedir = dest_meta:get_int("facedir")
	
    minetest.sound_play("up2", {
        pos = pos,
        gain = 0.5,
        max_hear_distance = 10
    })
    -- close the door at arrival station
    hyperloop.door_command(dest_pos, dest_facedir, "close")
    -- place player on the seat
    clicker:setpos(pos)
    -- rotate player to look in move direction
    clicker:set_look_horizontal(hyperloop.facedir2rad(facedir))

    -- activate display
	local dist = hyperloop.distance(pos, dest_pos) 
    local text = "Destination: | "..dest_name.." | Dist: "..dist.." | Arrival in: | "
    local atime = 10 + math.floor(dist/200)
    hyperloop.enter_display(pos, dest_facedir, text..atime.." sec")
    
    -- store some data
    meta:set_int("arrival_time", atime)
    meta:set_string("lcd_text", text)
    minetest.get_node_timer(pos):start(1.0)
    
    hyperloop.door_command(pos, facedir, "close")

	atime = atime - 9 -- substract start/arrival time
    minetest.after(4.9, on_travel, pos, facedir, clicker, dest_pos, hyperloop.facedir2rad(facedir), atime)
end

-- Hyperloop Seat
minetest.register_node("hyperloop:seat", {
	description = "Hyperloop Pod Seat",
	tiles = {
        "seat-top.png",
        "seat-side.png",
        "seat-side.png",
        "seat-side.png",
        "seat-side.png",
        "seat-side.png",
    },
	drawtype = "nodebox",
	paramtype2 = "facedir",
	is_ground_content = false,
    walkable = false,
	groups = {snappy = 3},
	node_box = {
		type = "fixed",
		fixed = {
            { -6/16, -8/16, -8/16,   6/16, -2/16, 5/16},
            { -8/16, -8/16, -8/16,  -6/16,  4/16, 8/16},
            {  6/16, -8/16, -8/16,   8/16,  4/16, 8/16},
            { -6/16, -8/16,  4/16,   6/16,  6/16, 8/16},
        },
	},
	selection_box = {
		type = "fixed",
		fixed = { -8/16, -8/16, -8/16,   8/16, -2/16, 8/16 },
	},

    on_timer = display_timer,

	on_construct = function(pos)
		local meta = minetest.get_meta(pos)
        meta:set_int("arrival_time", 0)
	end,

	after_place_node = function(pos, placer)
        local meta = minetest.get_meta(pos)
        local yaw = placer:get_look_horizontal()
        -- facedir according to radiant
		local facedir = hyperloop.rad2facedir(yaw)
        -- do a 180 degree correction
		meta:set_int("facedir", (facedir + 2) % 4)
		-- store station name locally
		local pos2 = vector.add(pos, {x=0, y=-1, z=0})
		local meta2 = minetest.get_meta(pos2)
		if meta2 ~= nil then
			meta:set_string("station_name", meta2:get_string("station_name"))
		end
	end,

    on_rightclick = on_start_travel,
})