path: root/car.lua

celevator.car = {}

local function disambiguatecartopbutton(pos,facedir,player)
	if player and not player.is_fake_player then
		local eyepos = vector.add(player:get_pos(),vector.add(player:get_eye_offset(),vector.new(0,1.5,0)))
		local lookdir = player:get_look_dir()
		local distance = vector.distance(eyepos,pos)
		local endpos = vector.add(eyepos,vector.multiply(lookdir,distance+1))
		local ray = minetest.raycast(eyepos,endpos,true,false)
		local pointed,button,hitpos
		repeat
			pointed = ray:next()
			if pointed and pointed.type == "node" then
				local node = minetest.get_node(pointed.under)
				local ndef = minetest.registered_nodes[node.name] or {}
				if ndef._cartopbox then
					button = pointed.under
					hitpos = vector.subtract(pointed.intersection_point,button)
				end
			end
		until button or not pointed
		if not hitpos then return end
		hitpos = vector.rotate_around_axis(hitpos,vector.new(0,-1,0),minetest.dir_to_yaw(facedir)+(math.pi/2))
		if hitpos.y < 0.55 then return end
		if hitpos.z > 0.36 or hitpos.z < 0.09 then return end
		if hitpos.x >= -0.36 and hitpos.x <= -0.16 then
			return "inspectswitch"
		elseif hitpos.x > -0.16 and hitpos.x <= 0.03 then
			return "up"
		elseif hitpos.x > 0.03 and hitpos.x <= 0.2 then
			return "down"
		end
	end
end

local function updatecartopbox(pos)
	local toppos = vector.add(pos,vector.new(0,1.1,0))
	local entitiesnearby = minetest.get_objects_inside_radius(toppos,0.5)
	for _,i in pairs(entitiesnearby) do
		if i:get_luaentity() and i:get_luaentity().name == "celevator:car_top_box" then
			i:remove()
		end
	end
	local carmeta = minetest.get_meta(pos)
	local carid = carmeta:get_int("carid")
	if carid == 0 then return end
	local carinfo = minetest.deserialize(celevator.storage:get_string(string.format("car%d",carid)))
	if not carinfo then return end
	local entity = minetest.add_entity(pos,"celevator:car_top_box")
	local inspon = carinfo.cartopinspect
	entity:set_properties({
		wield_item = inspon and "celevator:car_top_box_on" or "celevator:car_top_box_off",
	})
	local fdir = minetest.fourdir_to_dir(minetest.get_node(pos).param2)
	fdir = vector.rotate_around_axis(fdir,vector.new(0,1,0),math.pi/2)
	entity:set_yaw(minetest.dir_to_yaw(fdir))
	entity:set_pos(toppos)
end

local held = {}

minetest.register_globalstep(function()
	for k,v in ipairs(held) do
		local player = minetest.get_player_by_name(v.name)
		if not (player and player:get_player_control()[v.button]) then
			table.remove(held,k)
			celevator.controller.handlecartopbox(v.pos,v.control.."_release")
		end
	end
end)

celevator.car.types = {}

function celevator.car.register(name,defs,size)
	celevator.car.types[name] = {
		size = size,
	}
	for _,def in ipairs(defs) do
		def._celevator_car_type = name
		def.groups = {
			not_in_creative_inventory = 1,
			_celevator_car = 1,
		}
		local xp = tonumber(string.sub(def._position,1,1))
		local yp = tonumber(string.sub(def._position,2,2))
		local zp = tonumber(string.sub(def._position,3,3))
		if xp > 0 then
			def.groups._connects_xm = 1
		end
		if xp < size.x-1 then
			def.groups._connects_xp = 1
		end
		if yp > 0 then
			def.groups._connects_ym = 1
		end
		if yp < size.y-1 then
			def.groups._connects_yp = 1
		end
		if zp > 0 then
			def.groups._connects_zm = 1
		end
		if zp < size.z-1 then
			def.groups._connects_zp = 1
		end
		def.paramtype = "light"
		def.paramtype2 = "4dir"
		def.drawtype = "nodebox"
		def.description = "Car "..def._position.." (you hacker you!)"
		def.light_source = 9
		def.drop = ""
		if def._cop then
			def.on_receive_fields = function(pos,_,fields,player)
				local meta = minetest.get_meta(pos)
				local carid = meta:get_int("carid")
				if carid == 0 then return end
				local carinfo = minetest.deserialize(celevator.storage:get_string(string.format("car%d",carid)))
				if not carinfo then return end
				local playername = player:get_player_name()
				local protected = minetest.is_protected(pos,playername) and not minetest.check_player_privs(playername,{protection_bypass=true})
				local event = {
					type = "cop",
					fields = fields,
					player = playername,
					protected = protected,
				}
				celevator.controller.run(carinfo.controllerpos,event)
			end
		elseif def._keyswitches then
			def.on_receive_fields = function(pos,_,fields,player)
				if fields.quit then return end
				local meta = minetest.get_meta(pos)
				local carid = meta:get_int("carid")
				if carid == 0 then return end
				local carinfo = minetest.deserialize(celevator.storage:get_string(string.format("car%d",carid)))
				if not carinfo then return end
				local playername = player:get_player_name()
				if minetest.is_protected(pos,playername) and not minetest.check_player_privs(playername,{protection_bypass=true}) then
					minetest.chat_send_player(playername,"You don't have access to these switches.")
					minetest.record_protection_violation(pos,playername)
					return
				end
				local event = {
					type = "copswitches",
					fields = fields,
					player = name,
				}
				celevator.controller.run(carinfo.controllerpos,event)
			end
		end
		if def._cartopbox then
			def.groups._celevator_car_spawnstopbox = 1
			def.on_rightclick = function(pos,node,clicker)
				local playername = clicker:get_player_name()
				for _,v in ipairs(held) do
					if playername == v.name then return end
				end
				local fdir = minetest.fourdir_to_dir(node.param2)
				local control = disambiguatecartopbutton(pos,fdir,clicker)
				if not control then return end
				local meta = minetest.get_meta(pos)
				local carid = meta:get_int("carid")
				if carid == 0 then return end
				local carinfo = minetest.deserialize(celevator.storage:get_string(string.format("car%d",carid)))
				if not (carinfo and carinfo.controllerpos) then return end
				if control == "inspectswitch" then
					local boxpos = vector.add(pos,vector.new(0,1,0))
					local erefs = minetest.get_objects_inside_radius(boxpos,0.5)
					for _,ref in pairs(erefs) do
						if ref:get_luaentity() and ref:get_luaentity().name == "celevator:car_top_box" then
							local state = ref:get_properties().wield_item
							if state == "celevator:car_top_box_off" then
								state = "celevator:car_top_box_on"
							elseif state == "celevator:car_top_box_on" then
								state = "celevator:car_top_box_off"
							end
							ref:set_properties({wield_item = state})
						end
					end
				end
				celevator.controller.handlecartopbox(carinfo.controllerpos,control)
				table.insert(held,{
					pos = carinfo.controllerpos,
					name = playername,
					button = "place",
					control = control,
				})
			end
			def.after_dig_node = function(pos)
				local toppos = vector.add(pos,vector.new(0,1.1,0))
				local entitiesnearby = minetest.get_objects_inside_radius(toppos,0.5)
				for _,i in pairs(entitiesnearby) do
					if i:get_luaentity() and i:get_luaentity().name == "celevator:car_top_box" then
						i:remove()
					end
				end
			end
		end
		if def._pi then
			def.groups._celevator_car_spawnspi = 1
		end
		if def._tapehead then
			def.groups._celevator_car_spawnstapehead = 1
		end
		if def._position == "000" then
			def.groups._celevator_car_root = 1
			def._root = true
			def.on_construct = function(pos)
				minetest.get_meta(pos):set_string("doorstate","closed")
			end
			def.on_punch = function(pos,_,player)
				if player.is_fake_player then return end
				local playername = player:get_player_name()
				local sneak = player:get_player_control().sneak
				if not sneak then return end
				if minetest.is_protected(pos,playername) and not minetest.check_player_privs(playername,{protection_bypass=true}) then
					minetest.record_protection_violation(pos,playername)
					return
				end
				local hash = minetest.hash_node_position(pos)
				local fs = "formspec_version[7]size[6,4]"
				fs = fs.."label[0.5,1;Really remove this car?]"
				fs = fs.."button_exit[0.5,2;2,1;yes;Yes]"
				fs = fs.."button_exit[3,2;2,1;no;No]"
				minetest.show_formspec(playername,string.format("celevator:remove_car_%d",hash),fs)
			end
			def.on_timer = function(pos)
				local carid = minetest.get_meta(pos):get_int("carid")
				local carinfo = minetest.deserialize(celevator.storage:get_string(string.format("car%d",carid)))
				if not (carinfo and carinfo.controllerpos) then return end
				local yaw = minetest.dir_to_yaw(minetest.fourdir_to_dir(minetest.get_node(pos).param2))
				local positions = {
					vector.new(-0.25,-0.1,-0.5),
					vector.new(0.25,-0.1,-0.5),
					vector.new(0.75,-0.1,-0.5),
					vector.new(1.25,-0.1,-0.5),
				}
				local playerseen = false
				for _,searchpos in ipairs(positions) do
					local rotatedpos = vector.rotate_around_axis(searchpos,vector.new(0,1,0),yaw)
					local erefs = minetest.get_objects_inside_radius(vector.add(pos,rotatedpos),0.5)
					for _,ref in pairs(erefs) do
						if ref:is_player() then
							playerseen = true
							break
						end
					end
					if playerseen then break end
				end
				if playerseen then
					celevator.controller.run(carinfo.controllerpos,{
						type = "lightcurtain",
					})
				end
				return true
			end
		end
		minetest.register_node("celevator:car_"..name.."_"..def._position,def)
	end
end

function celevator.car.spawncar(origin,yaw,carid,name,doortype)
	if (not name) or name == "" then name = "standard" end
	local size = celevator.car.types[name].size
	local right = vector.rotate_around_axis(vector.new(1,0,0),vector.new(0,1,0),yaw)
	local back = vector.rotate_around_axis(vector.new(0,0,1),vector.new(0,1,0),yaw)
	local up = vector.new(0,1,0)
	for x=0,(size.x-1),1 do
		for y=0,(size.y-1),1 do
			for z=0,(size.z-1),1 do
				local pos = vector.copy(origin)
				pos = vector.add(pos,vector.multiply(right,x))
				pos = vector.add(pos,vector.multiply(back,z))
				pos = vector.add(pos,vector.multiply(up,y))
				local node = {
					name = string.format("celevator:car_%s_%d%d%d",name,x,y,z),
					param2 = minetest.dir_to_fourdir(minetest.yaw_to_dir(yaw)),
				}
				minetest.set_node(pos,node)
				local meta = minetest.get_meta(pos)
				if carid then meta:set_int("carid",carid) end
				meta:set_string("doortype",doortype or "glass")
			end
		end
	end
end

minetest.register_abm({
	label = "Respawn in-car PI displays",
	nodenames = {"group:_celevator_car_spawnspi"},
	interval = 1,
	chance = 1,
	action = function(pos)
		local entitiesnearby = minetest.get_objects_inside_radius(pos,0.5)
		for _,i in pairs(entitiesnearby) do
			if i:get_luaentity() and i:get_luaentity().name == "celevator:incar_pi_entity" then
				return
			end
		end
		local entity = minetest.add_entity(pos,"celevator:incar_pi_entity")
		local fdir = vector.rotate_around_axis(minetest.facedir_to_dir(minetest.get_node(pos).param2),vector.new(0,1,0),math.pi/2)
		local etex = celevator.pi.generatetexture(" --",false,false,false,true)
		entity:set_properties({
			textures = {etex},
		})
		entity:set_yaw(minetest.dir_to_yaw(fdir))
		entity:set_pos(vector.add(pos,vector.multiply(fdir,0.44)))
	end,
})

minetest.register_node("celevator:car_top_box_off",{
	description = "Car-top Inspection Box, Off State (you hacker you!)",
	drop = "",
	groups = {
		not_in_creative_inventory = 1,
	},
	paramtype = "light",
	drawtype = "nodebox",
	node_box = {
		type = "fixed",
		fixed = {
			{-0.422,-0.5,0.086,0.414,-0.45,0.359},
		},
	},
	tiles = {
		"celevator_cartopinsp_off.png",
		"celevator_cabinet_sides.png",
	},
})

minetest.register_node("celevator:car_top_box_on",{
	description = "Car-top Inspection Box, On State (you hacker you!)",
	drop = "",
	groups = {
		not_in_creative_inventory = 1,
	},
	paramtype = "light",
	drawtype = "nodebox",
	node_box = {
		type = "fixed",
		fixed = {
			{-0.422,-0.5,0.086,0.414,-0.45,0.359},
		},
	},
	tiles = {
		"celevator_cartopinsp_on.png",
		"celevator_cabinet_sides.png",
	},
})

minetest.register_entity("celevator:car_top_box",{
	initial_properties = {
		visual = "wielditem",
		visual_size = vector.new(0.667,0.667,0.667),
		wield_item = "celevator:car_top_box_off",
		static_save = false,
		pointable = false,
		glow = minetest.LIGHT_MAX,
	},
})

minetest.register_abm({
	label = "Respawn car-top inspection boxes",
	nodenames = {"group:_celevator_car_spawnstopbox"},
	interval = 1,
	chance = 1,
	action = updatecartopbox,
})

minetest.register_on_player_receive_fields(function(_,formname,fields)
	if string.sub(formname,1,21) ~= "celevator:remove_car_" then return false end
	if not fields.yes then return true end
	local hash = tonumber(string.sub(formname,22,-1))
	if not hash then return true end
	local rootpos = minetest.get_position_from_hash(hash)
	local rootdef = minetest.registered_nodes[celevator.get_node(rootpos).name] or {}
	local cartype = rootdef._celevator_car_type
	if cartype and celevator.car.types[cartype] then
		local rootdir = minetest.dir_to_yaw(minetest.fourdir_to_dir(minetest.get_node(rootpos).param2))
		celevator.car.types[cartype].remove(rootpos,rootdir)
	end
end)