index : minetest.git	gpcf lifo-fixes release
	modified minetest for gpcfs purposes	gpcf

aboutsummaryrefslogtreecommitdiff

log msg author committer range

path: root/src/map.cpp

	Commit message (Expand)	Author	Age
...
*	This map generator is starting to look pretty good now... also, disabled load...	Perttu Ahola	2011-02-01
*	partly working chunk-based map generator (doesn't save properly, spawn is pre...	Perttu Ahola	2011-02-01
*	map generation framework under development... not quite operational at this p...	Perttu Ahola	2011-01-30
*	Reworked texture, material, mineral and whatever handling	Perttu Ahola	2011-01-26
*	removed alternative name "pressure" from param2	Perttu Ahola	2011-01-25
*	Faster lighting at map generation time	Perttu Ahola	2011-01-24
*	Mainly some texture tweaking	Perttu Ahola	2011-01-24
*	small fixes here and there	Perttu Ahola	2011-01-24
*	OMG! Main Menu!	Perttu Ahola	2011-01-23
*	.	Perttu Ahola	2011-01-17
*	minecraft-style water done (but no texture animation or sound)	Perttu Ahola	2011-01-17
*	old water removed, some fixes here and there	Perttu Ahola	2011-01-17
*	fine-tuning of map generator and server and stuff.	Perttu Ahola	2011-01-17
*	Initial commit of mapgen v.2. Lacks configuration and saving to disk.	Perttu Ahola	2011-01-16
*	generate-time lighting optimization	Perttu Ahola	2011-01-15
*	tweaking around, including mapgen, player speed in water, settings	Perttu Ahola	2011-01-15
*	Lots of small stuff	Perttu Ahola	2011-01-08
*	Made dungeons a bit rarer	Perttu Ahola	2011-01-08
*	tuned expired mesh updating while drawing a bit	Perttu Ahola	2010-12-29
*	A bit longer day and a bit shorter night. Client-side.	Perttu Ahola	2010-12-29
*	better grass generation (integration to sunlight propagation algorithms)	Perttu Ahola	2010-12-26
*	working good	Perttu Ahola	2010-12-26
*	drawing range updater update and myrand() (but not usage of it)	Perttu Ahola	2010-12-26
*	new viewing range updater algorithm	Perttu Ahola	2010-12-26
*	some... stuff. dunno. 8-)	Perttu Ahola	2010-12-25
*	better caves	Perttu Ahola	2010-12-25
*	ProgressBarTextureMod	Perttu Ahola	2010-12-24
*	server starting on port 0 on invalid settings	Perttu Ahola	2010-12-22
*	crafting system!	Perttu Ahola	2010-12-22
*	some work-in-progress	Perttu Ahola	2010-12-22
*	organizing stuff.	Perttu Ahola	2010-12-21
*	Cracking blocks while digging	Perttu Ahola	2010-12-21
*	framework for modifying textures	Perttu Ahola	2010-12-20
*	some tinkering with gui. removed updating of configuration file at end	Perttu Ahola	2010-12-20
*	added dedicated server build without irrlicht	Perttu Ahola	2010-12-19
*	day/night working client side	Perttu Ahola	2010-12-19
*	before daynight mesh cache	Perttu Ahola	2010-12-18
*	before adding day/night lighting	Perttu Ahola	2010-12-18
*	tinkering around	Perttu Ahola	2010-12-14
*	better graphics, zlib to work on vc++	Perttu Ahola	2010-12-14
*	in before messing with face drawing orientation	Perttu Ahola	2010-12-14
*	commit before content-tile separation	Perttu Ahola	2010-12-13
*	random stuff and different node lighting	Perttu Ahola	2010-12-13
*	working nicely	Perttu Ahola	2010-12-13
*	starting to separate "material" to "content" and "tile"	Perttu Ahola	2010-12-12
*	commit before some radicallish changes to water behavior	Perttu Ahola	2010-12-11
*	better water	Perttu Ahola	2010-11-30
*	license stuff	Perttu Ahola	2010-11-29
*	Windows bug fixes	Perttu Ahola	2010-11-29
*	plant amount fix and ravine amount setting	Perttu Ahola	2010-11-29

• [prev]
• [next]

generated by cgit v1.2.3 (git 2.39.1) at 2025-01-31 17:50:53 +0000

-- Track Circuit Breaks and Track Sections - Player interaction

local players_assign_tcb = {}
local players_assign_signal = {}
local players_link_ts = {}

local ildb = advtrains.interlocking.db
local ilrs = advtrains.interlocking.route

local sigd_equal = advtrains.interlocking.sigd_equal

local lntrans = { "A", "B" }

local function sigd_to_string(sigd)
	return minetest.pos_to_string(sigd.p).." / "..lntrans[sigd.s]
end
advtrains.interlocking.sigd_to_string = sigd_to_string

minetest.register_node("advtrains_interlocking:tcb_node", {
	drawtype = "mesh",
	paramtype="light",
	paramtype2="facedir",
	walkable = false,
	selection_box = {
		type = "fixed",
		fixed = {-1/6, -1/2, -1/6, 1/6, 1/4, 1/6},
	},
	mesh = "at_il_tcb_node.obj",
	tiles = {"at_il_tcb_node.png"},
	description="Track Circuit Break",
	sunlight_propagates=true,
	groups = {
		cracky=3,
		not_blocking_trains=1,
		--save_in_at_nodedb=2,
		at_il_track_circuit_break = 1,
	},
	after_place_node = function(pos, node, player)
		local meta = minetest.get_meta(pos)
		meta:set_string("infotext", "Unconfigured Track Circuit Break, right-click to assign.")
	end,
	on_rightclick = function(pos, node, player)
		local pname = player:get_player_name()
		if not minetest.check_player_privs(pname, "interlocking") then
			minetest.chat_send_player(pname, "Insufficient privileges to use this!")
			return
		end
		
		local meta = minetest.get_meta(pos)
		local tcbpts = meta:get_string("tcb_pos")
		if tcbpts ~= "" then
			local tcbpos = minetest.string_to_pos(tcbpts)
			local tcb = ildb.get_tcb(tcbpos)
			if tcb then
				advtrains.interlocking.show_tcb_form(tcbpos, pname)
			else
				minetest.chat_send_player(pname, "This TCB has been removed. Please dig marker.")
			end
		else
			--unconfigured
			minetest.chat_send_player(pname, "Configuring TCB: Please punch the rail you want to assign this TCB to.")
			
			players_assign_tcb[pname] = pos
		end	
	end,
	--on_punch = function(pos, node, player)
	--	local meta = minetest.get_meta(pos)
	--	local tcbpts = meta:get_string("tcb_pos")
	--	if tcbpts ~= "" then
	--		local tcbpos = minetest.string_to_pos(tcbpts)
	--		advtrains.interlocking.show_tcb_marker(tcbpos)
	--	end	
	--end,
	can_dig = function(pos, player)
		if player == nil then return false end

		local pname = player:get_player_name()

		-- Those markers can only be dug when all adjacent TS's are set
		-- as EOI.
		local meta = minetest.get_meta(pos)
		local tcbpts = meta:get_string("tcb_pos")
		if tcbpts ~= "" then
			if not minetest.check_player_privs(pname, "interlocking") then
				minetest.chat_send_player(pname, "Insufficient privileges to use this!")
				return
			end			
			local tcbpos = minetest.string_to_pos(tcbpts)
			local tcb = ildb.get_tcb(tcbpos)
			if not tcb then return true end
			for connid=1,2 do
				if tcb[connid].ts_id or tcb[connid].signal then
					minetest.chat_send_player(pname, "Can't remove TCB: Both sides must have no track section and no signal assigned!")
					return false
				end
				if not ildb.may_modify_tcbs(tcb[connid]) then
					minetest.chat_send_player(pname, "Can't remove TCB: Side "..connid.." forbids modification (shouldn't happen).")
					return false
				end
			end
		end	
		return true
	end,
	after_dig_node = function(pos, oldnode, oldmetadata, player)
		if not oldmetadata or not oldmetadata.fields then return end
		local tcbpts = oldmetadata.fields.tcb_pos
		if tcbpts and tcbpts ~= "" then
			local tcbpos = minetest.string_to_pos(tcbpts)
			local success = ildb.remove_tcb(tcbpos)
			if success and player then
				minetest.chat_send_player(player:get_player_name(), "TCB has been removed.")
			else
				minetest.chat_send_player(player:get_player_name(), "Failed to remove TCB!")
				minetest.set_node(pos, oldnode)
				local meta = minetest.get_meta(pos)
				meta:set_string("tcb_pos", minetest.pos_to_string(tcbpos))
			end
		end
	end,
})


-- Crafting

-- set some fallbacks
local tcb_core = "default:mese_crystal"
local tcb_secondary = "default:mese_crystal_fragment"

--alternative recipe items
--core
if minetest.get_modpath("basic_materials") then
	tcb_core = "basic_materials:ic"
elseif minetest.get_modpath("technic") then
	tcb_core = "technic:control_logic_unit"
end
--print("TCB Core: "..tcb_core)
--secondary
if minetest.get_modpath("mesecons") then
	tcb_secondary = 'mesecons:wire_00000000_off'
end
--print("TCB Secondary: "..tcb_secondary)

minetest.register_craft({
	output = 'advtrains_interlocking:tcb_node 4',
	recipe = {
		{tcb_secondary,tcb_core,tcb_secondary},
		{'advtrains:dtrack_placer','','advtrains:dtrack_placer'}
	},
	--actually use track in the tcb recipe
	replacements = {
		{"advtrains:dtrack_placer","advtrains:dtrack_placer"},
		{"advtrains:dtrack_placer","advtrains:dtrack_placer"},
	}
})

--nil the temp crafting variables
tcb_core= nil
tcb_secondary = nil

minetest.register_on_punchnode(function(pos, node, player, pointed_thing)
	local pname = player:get_player_name()
	if not minetest.check_player_privs(pname, "interlocking") then
		return
	end
	-- TCB assignment
	local tcbnpos = players_assign_tcb[pname]
	if tcbnpos then
		if vector.distance(pos, tcbnpos)<=20 then
			local node_ok, conns, rhe = advtrains.get_rail_info_at(pos, advtrains.all_tracktypes)
			if node_ok and #conns == 2 then
				local ok = ildb.create_tcb(pos)
				
				if not ok then
					minetest.chat_send_player(pname, "Configuring TCB: TCB already exists at this position! It has now been re-assigned.")
				end
				
				ildb.sync_tcb_neighbors(pos, 1)
				ildb.sync_tcb_neighbors(pos, 2)
				
				local meta = minetest.get_meta(tcbnpos)
				meta:set_string("tcb_pos", minetest.pos_to_string(pos))
				meta:set_string("infotext", "TCB assigned to "..minetest.pos_to_string(pos))
				minetest.chat_send_player(pname, "Configuring TCB: Successfully configured TCB")
			else
				minetest.chat_send_player(pname, "Configuring TCB: This is not a normal two-connection rail! Aborted.")
			end
		else
			minetest.chat_send_player(pname, "Configuring TCB: Node is too far away. Aborted.")
		end
		players_assign_tcb[pname] = nil
	end
	
	-- Signal assignment
	local sigd = players_assign_signal[pname]
	if sigd then
		if vector.distance(pos, sigd.p)<=50 then
			local is_signal = minetest.get_item_group(node.name, "advtrains_signal") >= 2
			if is_signal then
				local ndef = minetest.registered_nodes[node.name]
				if ndef and ndef.advtrains and ndef.advtrains.set_aspect then
					if ndef.advtrains.supported_aspects and not ndef.advtrains.supported_aspects.dst_shift then
						local tcbs = ildb.get_tcbs(sigd)
						if tcbs then
							tcbs.signal = pos
							if not tcbs.signal_name then
								tcbs.signal_name = "Signal at "..minetest.pos_to_string(sigd.p)
							end
							if not tcbs.routes then
								tcbs.routes = {}
							end
							ildb.set_sigd_for_signal(pos, sigd)
							minetest.chat_send_player(pname, "Configuring TCB: Successfully assigned signal.")
							advtrains.interlocking.show_ip_form(pos, pname, true)
						else
							minetest.chat_send_player(pname, "Configuring TCB: Internal error, TCBS doesn't exist. Aborted.")
						end
					else
						minetest.chat_send_player(pname, "Configuring TCB: Cannot use distant signal. Aborted.")
					end
				else
					minetest.chat_send_player(pname, "Configuring TCB: Cannot use static signals for routesetting. Aborted.")
				end
			else
				minetest.chat_send_player(pname, "Configuring TCB: Not a compatible signal. Aborted.")
			end
		else
			minetest.chat_send_player(pname, "Configuring TCB: Node is too far away. Aborted.")
		end
		players_assign_signal[pname] = nil
	end
end)

-- TCB Form

local function mktcbformspec(tcbs, btnpref, offset, pname)
	local form = ""
	local ts
	if tcbs.ts_id then
		ts = ildb.get_ts(tcbs.ts_id)
	end
	if ts then
		form = form.."label[0.5,"..offset..";Side "..btnpref..": "..minetest.formspec_escape(ts.name).."]"
		form = form.."button[0.5,"..(offset+0.5)..";5,1;"..btnpref.."_gotots;Show track section]"
		if ildb.may_modify_tcbs(tcbs) then
			-- Note: the security check to prohibit those actions is located in database.lua in the corresponding functions.
			form = form.."button[0.5,"..(offset+1.5)..";2.5,1;"..btnpref.."_update;Update near TCBs]"
			form = form.."button[3  ,"..(offset+1.5)..";2.5,1;"..btnpref.."_remove;Remove from section]"
		end
	else
		tcbs.ts_id = nil
		form = form.."label[0.5,"..offset..";Side "..btnpref..": ".."End of interlocking]"
		form = form.."button[0.5,"..(offset+0.5)..";5,1;"..btnpref.."_makeil;Create Interlocked Track Section]"
		--if tcbs.section_free then
			--form = form.."button[0.5,"..(offset+1.5)..";5,1;"..btnpref.."_setlocked;Section is free]"
		--else
			--form = form.."button[0.5,"..(offset+1.5)..";5,1;"..btnpref.."_setfree;Section is blocked]"		
		--end
	end
	if tcbs.signal then
		form = form.."button[0.5,"..(offset+2.5)..";5,1;"..btnpref.."_sigdia;Signalling]"	
	else
		form = form.."button[0.5,"..(offset+2.5)..";5,1;"..btnpref.."_asnsig;Assign a signal]"
	end
	return form
end