celevator.dbdkiosk = {}

function celevator.dbdkiosk.checkprot(pos,name)
	if minetest.is_protected(pos,name) and not minetest.check_player_privs(name,{protection_bypass=true}) then
		minetest.chat_send_player(name,"Can't open cabinet - cabinet is locked.")
		minetest.record_protection_violation(pos,name)
		return false
	end
	return true
end

function celevator.dbdkiosk.updatefields(pos)
	if minetest.get_node(pos).name ~= "celevator:dbdkiosk" then return end
	local meta = minetest.get_meta(pos)
	local screenstate = meta:get_string("screenstate")
	if screenstate == "connect" then
		meta:set_string("formspec","formspec_version[7]"..
		                           "size[8,5]"..
		                           "field[0.5,0.5;7,1;carid;Dispatcher ID;]"..
		                           "field[0.5,2;7,1;landing;Landing Number;]"..
		                           "button[3,3.5;2,1;save;Save]"
		               )
	elseif screenstate == "main" then
		local landing = meta:get_int("landing")
		local fs = "formspec_version[7]"
		fs = fs.."size[8,14]"
		fs = fs.."label[3,0.5;Please select a floor\\:]"
		local floornames = minetest.deserialize(meta:get_string("floornames"))
		local floorsavailable = minetest.deserialize(meta:get_string("floorsavailable"))
		local showfloors = {}
		for i=1,#floornames,1 do
			if floorsavailable[i] then
				table.insert(showfloors,i)
			end
		end
		local startfloor = (meta:get_int("screenpage")-1)*10+1
		for i=1,10,1 do
			local floornum = showfloors[startfloor+i-1]
			local floorname = floornum and floornames[floornum]
			if floorname and floornum ~= landing then
				fs = fs..string.format("button[2,%f;4,1;floor%d;%s]",12-i,floornum,minetest.formspec_escape(floorname))
			end
		end
		if startfloor > 1 then
			fs = fs.."button[3.75,12.2;0.8,0.8;scrolldown;vvv]"
		end
		if startfloor+9 < #showfloors then
			fs = fs.."button[3.75,1;0.8,0.8;scrollup;^^^]"
		end
		meta:set_string("formspec",fs)
	elseif screenstate == "assignment" then
		local fs = "formspec_version[7]"
		fs = fs.."size[8,14]"
		fs = fs.."label[3,3;Please use elevator]"
		fs = fs.."style_type[label;font_size=*4]"
		fs = fs.."label[3.5,5;"..meta:get_string("assignedcar").."]"
		meta:set_string("formspec",fs)
	elseif screenstate == "error" then
		local fs = "formspec_version[7]"
		fs = fs.."size[8,14]"
		fs = fs.."label[3.5,0.5;ERROR]"
		fs = fs.."label[2.5,3;Could not find a suitable elevator]"
		fs = fs.."label[2.5,3.5;Please try again later]"
		meta:set_string("formspec",fs)
	end
end

function celevator.dbdkiosk.handlefields(pos,_,fields,player)
	local name = player:get_player_name()
	local meta = minetest.get_meta(pos)
	local screenstate = meta:get_string("screenstate")
	if screenstate == "connect" then
		if not (fields.save and celevator.dbdkiosk.checkprot(pos,name)) then return end
		if not (tonumber(fields.carid) and tonumber(fields.landing)) then return end
		local carinfo = minetest.deserialize(celevator.storage:get_string(string.format("car%d",fields.carid)))
		if not carinfo then return end
		if not (carinfo.dispatcherpos and celevator.dispatcher.isdispatcher(carinfo.dispatcherpos)) then return end
		local dmem = minetest.deserialize(minetest.get_meta(carinfo.dispatcherpos):get_string("mem"))
		if not dmem then return end
		local floornames = dmem.params.floornames
		local floorsavailable = {}
		for i=1,#floornames,1 do
			floorsavailable[i] = true
		end
		meta:set_string("floornames",minetest.serialize(floornames))
		meta:set_string("floorsavailable",minetest.serialize(floorsavailable))
		meta:set_int("screenpage",1)
		meta:set_string("screenstate","main")
		meta:set_int("carid",tonumber(fields.carid))
		meta:set_int("landing",tonumber(fields.landing))
		celevator.dbdkiosk.updatefields(pos)
	elseif screenstate == "main" then
		for k,v in pairs(fields) do
			if v and string.sub(k,1,5) == "floor" then
				local floor = tonumber(string.sub(k,6,-1))
				if not floor then return end
				local carid = meta:get_int("carid")
				local carinfo = minetest.deserialize(celevator.storage:get_string(string.format("car%d",carid)))
				if not carinfo then return end
				if not (carinfo.dispatcherpos and celevator.dispatcher.isdispatcher(carinfo.dispatcherpos)) then return end
				local dmem = minetest.deserialize(minetest.get_meta(carinfo.dispatcherpos):get_string("mem"))
				if dmem then
					local floornames = dmem.params.floornames
					meta:set_string("floornames",minetest.serialize(floornames))
				end
				local event = {
					type = "dbdkiosk",
					source = minetest.hash_node_position(pos),
					player = name,
					srcfloor = meta:get_int("landing"),
					destfloor = floor,
				}
				celevator.dispatcher.run(carinfo.dispatcherpos,event)
			end
		end
		if fields.scrollup then
			local page = meta:get_int("screenpage")
			meta:set_int("screenpage",page+1)
		elseif fields.scrolldown then
			local page = meta:get_int("screenpage")
			meta:set_int("screenpage",math.max(1,page-1))
		end
		celevator.dbdkiosk.updatefields(pos)
	elseif screenstate == "assignment" or screenstate == "error" then
		meta:set_string("screenstate","main")
		celevator.dbdkiosk.updatefields(pos)
	end
end

function celevator.dbdkiosk.showassignment(pos,assignment)
	local meta = minetest.get_meta(pos)
	if meta:get_string("screenstate") == "main" then
		local carnames = {"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P"}
		if carnames[assignment] then
			meta:set_string("screenstate","assignment")
			meta:set_string("assignedcar",carnames[assignment])
		else
			meta:set_string("screenstate","error")
		end
		celevator.dbdkiosk.updatefields(pos)
		minetest.after(5,function()
			meta:set_string("screenstate","main")
			celevator.dbdkiosk.updatefields(pos)
		end)
	end
end

minetest.register_node("celevator:dbdkiosk",{
	description = "Elevator Destination Entry Kiosk",
	drawtype = "nodebox",
	paramtype = "light",
	paramtype2 = "4dir",
	groups = {
		cracky = 1,
	},
	node_box = {
		type = "fixed",
		fixed = {
			{-0.2,-0.5,0.4,0.2,0.1,0.5},
		},
	},
	tiles = {
		"celevator_cabinet_sides.png",
		"celevator_cabinet_sides.png",
		"celevator_cabinet_sides.png",
		"celevator_cabinet_sides.png",
		"celevator_cabinet_sides.png",
		"celevator_cabinet_sides.png^celevator_dbdkiosk.png",
	},
	on_construct = function(pos)
		local meta = minetest.get_meta(pos)
		meta:set_string("screenstate","connect")
		celevator.dbdkiosk.updatefields(pos)
	end,
	on_receive_fields = celevator.dbdkiosk.handlefields,
})