aboutsummaryrefslogtreecommitdiff
path: root/advtrains_interlocking/train_sections.lua
diff options
context:
space:
mode:
authororwell <orwell@bleipb.de>2025-06-11 21:13:37 +0200
committerorwell <orwell@bleipb.de>2025-06-11 21:13:37 +0200
commit4a25874acfd84ef8ad02de17b80b65700d366117 (patch)
tree63f2215244850fcad7831deb66fb20b9021f5b38 /advtrains_interlocking/train_sections.lua
parent2e123814677d47f66fb989df6ef3cd666eb690f5 (diff)
downloadadvtrains-4a25874acfd84ef8ad02de17b80b65700d366117.tar.gz
advtrains-4a25874acfd84ef8ad02de17b80b65700d366117.tar.bz2
advtrains-4a25874acfd84ef8ad02de17b80b65700d366117.zip
Tag strings for train_Track
Diffstat (limited to 'advtrains_interlocking/train_sections.lua')
0 files changed, 0 insertions, 0 deletions
id='n126' href='#n126'>126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171
--couple.lua
--defines couple entities.

--advtrains:discouple
--set into existing trains to split them when punched.
--they are attached to the wagons.
--[[fields
wagon

wagons keep their couple entity minetest-internal id inside the field discouple_id. if it refers to nowhere, they will spawn a new one if player is near
]]

local couple_max_dist=3

minetest.register_entity("advtrains:discouple", {
	visual="sprite",
	textures = {"advtrains_discouple.png"},
	collisionbox = {-0.5,-0.5,-0.5, 0.5,0.5,0.5},
	visual_size = {x=1, y=1},
	initial_sprite_basepos = {x=0, y=0},
	
	is_discouple=true,
	on_activate=function(self, staticdata) 
		if staticdata=="DISCOUPLE" then
			--couple entities have no right to exist further...
			atprint("Discouple loaded from staticdata, destroying")
			self.object:remove()
			return
		end
		self.object:set_armor_groups({immortal=1})
	end,
	get_staticdata=function() return "DISCOUPLE" end,
	on_punch=function(self, player)
		--only if player owns at least one wagon next to this
		local own=player:get_player_name()
		if self.wagon.owner and self.wagon.owner==own and not self.wagon.lock_couples then
			local train=advtrains.trains[self.wagon.train_id]
			local nextwgn_id=train.trainparts[self.wagon.pos_in_trainparts-1]
			for aoi, le in pairs(minetest.luaentities) do
				if le and le.is_wagon then
					if le.unique_id==nextwgn_id then
						if le.owner and le.owner~=own then
							minetest.chat_send_player(own, attrans("You need to own at least one neighboring wagon to destroy this couple."))
							return
						end
					end
				end
			end
			atprint("Discouple punched. Splitting train", self.wagon.train_id)
			advtrains.split_train_at_wagon(self.wagon)--found in trainlogic.lua
			self.object:remove()
		elseif self.wagon.lock_couples then
			minetest.chat_send_player(own, "Couples of one of the wagons are locked, can't discouple!")
		else
			minetest.chat_send_player(own, attrans("You need to own at least one neighboring wagon to destroy this couple."))
		end
	end,
	on_step=function(self, dtime)
		local t=os.clock()
		if not self.wagon then
			self.object:remove()
			atprint("Discouple: no wagon, destroying")
			return
		end
		--getyaw seems to be a reliable method to check if an object is loaded...if it returns nil, it is not.
		if not self.wagon.object:getyaw() then
			atprint("Discouple: wagon no longer loaded, destroying")
			self.object:remove()
			return
		end
		local velocityvec=self.wagon.object:getvelocity()
		self.updatepct_timer=(self.updatepct_timer or 0)-dtime
		if not self.old_velocity_vector or not vector.equals(velocityvec, self.old_velocity_vector) or self.updatepct_timer<=0 then--only send update packet if something changed
			local flipsign=self.wagon.wagon_flipped and -1 or 1
			self.object:setpos(vector.add(self.wagon.object:getpos(), {y=0, x=-math.sin(self.wagon.object:getyaw())*self.wagon.wagon_span*flipsign, z=math.cos(self.wagon.object:getyaw())*self.wagon.wagon_span*flipsign}))
			self.object:setvelocity(velocityvec)
			self.updatepct_timer=2
		end
		atprintbm("discouple_step", t)
	end,
})

--advtrains:couple
--when two trains overlap with their end-positions, this entity will be spawned and both trains set its id into appropiate fields for them to know when to free them again. The entity will destroy automatically when it recognizes that any of the trains left the common position. 
--[[fields
train_id_1
train_id_2
train1_is_backpos
train2_is_backpos
]]


minetest.register_entity("advtrains:couple", {
	visual="sprite",
	textures = {"advtrains_couple.png"},
	collisionbox = {-0.5,-0.5,-0.5, 0.5,0.5,0.5},
	visual_size = {x=1, y=1},
	initial_sprite_basepos = {x=0, y=0},
	
	is_couple=true,
	on_activate=function(self, staticdata) 
		if staticdata=="COUPLE" then
			--couple entities have no right to exist further...
			atprint("Couple loaded from staticdata, destroying")
			self.object:remove()
			return
		end
	end,
	get_staticdata=function(self) return "COUPLE" end,
	on_rightclick=function(self, clicker)
		if not self.train_id_1 or not self.train_id_2 then return end
		
		local id1, id2=self.train_id_1, self.train_id_2
		
		if self.train1_is_backpos and not self.train2_is_backpos then
			advtrains.do_connect_trains(id1, id2, clicker)
			--case 2 (second train is front)
		elseif self.train2_is_backpos and not self.train1_is_backpos then
			advtrains.do_connect_trains(id2, id1, clicker)
			--case 3 
		elseif self.train1_is_backpos and self.train2_is_backpos then
			advtrains.invert_train(id2)
			advtrains.do_connect_trains(id1, id2, clicker)
			--case 4 
		elseif not self.train1_is_backpos and not self.train2_is_backpos then
			advtrains.invert_train(id1)
			advtrains.do_connect_trains(id1, id2, clicker)
		end
		atprint("Coupled trains", id1, id2)
		self.object:remove()
	end,
	on_step=function(self, dtime)
		local t=os.clock()
		if not self.train_id_1 or not self.train_id_2 then atprint("Couple: train ids not set!") self.object:remove() return end
		local train1=advtrains.trains[self.train_id_1]
		local train2=advtrains.trains[self.train_id_2]
		if not train1 or not train2 then
			atprint("Couple: trains missing, destroying")
			self.object:remove()
			return
		end
		if not train1.path or not train2.path or not train1.index or not train2.index or not train1.end_index or not train2.end_index then
			atprint("Couple: paths or end_index missing. Might happen when paths got cleared")
			return
		end
		
		local tp1
		if not self.train1_is_backpos then
			tp1=advtrains.get_real_index_position(train1.path, train1.index)
		else
			tp1=advtrains.get_real_index_position(train1.path, train1.end_index)
		end
		local tp2
		if not self.train2_is_backpos then
			tp2=advtrains.get_real_index_position(train2.path, train2.index)
		else
			tp2=advtrains.get_real_index_position(train2.path, train2.end_index)
		end
		if not tp1 or not tp2 or not (vector.distance(tp1,tp2)<couple_max_dist) then
			atprint("Couple: train end positions too distanced, destroying")
			self.object:remove()
			return
		else
			local pos_median=advtrains.pos_median(tp1, tp2)
			if not vector.equals(pos_median, self.object:getpos()) then
				self.object:setpos(pos_median)
			end
		end
		atprintbm("couple step", t)
	end,
})