advtrains.git - Advtrains mod for minetest.

about summary refs log tree commit diff

path: root/advtrains/atc.lua

	Commit message (Expand)	Author	Age
*	atc_reset(): Removed unused string parameter and also clear ATC autocouple fl...	orwell96	2021-12-31
*	Train Coupling: Change behavior so that train direction of initiating train i...	orwell96	2021-10-25
*	Use mono font to ATC rail command fields	hlqkj	2021-03-22
*	Hm, forget about it for now. Might be perfectly valid when train goes farther...	orwell96	2021-02-10
*	More debug info to hopefully gain more info on the bug	orwell96	2021-02-10
*	Try to track down why ATC is broken	orwell96	2021-02-10
*	Remove pcall wrappers completely, add command to disable advtrains mainloop	orwell96	2021-02-10
*	Disable ARS train flag and surrounding uses	orwell96	2021-02-10
*	Add ATC "K" command	Gabriel Pérez-Cerezo	2021-01-07
*	[BREAKING] Use client-side translations instead of intllib; add zh_CN transla...	ywang	2020-07-19
*	Fix sending empty ATC commands	orwell96	2019-02-05
*	Fix last commit (and another warn2log)	orwell96	2019-01-22
*	Fix atc command evaluation BB command	orwell96	2019-01-22
*	Do not clear tarvelocity when setting new, potential no-op command	orwell96	2019-01-15
*	Handle the case that a train is not initialized (train_ensure_init returns ni...	orwell96	2018-10-29
*	Fix node database ATC rail bug	orwell96	2018-10-17
*	Add signal safety control override, restructure control system	orwell96	2018-10-10
*	Fix ATC rail reversing	orwell96	2018-08-12
*	Add routesetting callbacks.	orwell96	2018-08-12
*	Mainly make collisions and coupling work	orwell96	2018-06-14
*	Implement a reverse path lookup for trains instead of an occupations window s...	orwell96	2018-06-14
*	Occupation System, new train steps, still incomplete	orwell96	2018-06-14
*	Fix detector lookup in ATC rails	orwell96	2017-12-18
*	Rewrite rail connection system...	orwell96	2017-12-18
*	Moved default train track to separate mod, for integration with advcarts.	Gabriel Pérez-Cerezo	2017-10-25
*	Remove zip release files, move mod to root, exclude assets from Makefile (#92)	rubenwardy	2017-09-20
*	Restructure mod directory	orwell96	2017-01-04
*	Add Automatic Train Control system	orwell96	2017-01-04
*	Turning mod into a modpack and separating the trains from the core mod	orwell96	2016-12-20

pan class="hl kwd">ipairs(tbl) do if item[ikey] == com then return true end end return false end local function itremove(tbl, com) local i=1 while i <= #tbl do if tbl[i] == com then table.remove(tbl, i) else i = i + 1 end end end local function itkremove(tbl, ikey, com) local i=1 while i <= #tbl do if tbl[i][ikey] == com then table.remove(tbl, i) else i = i + 1 end end end local function setsection(tid, train, ts_id, ts, sigd) -- train if not train.il_sections then train.il_sections = {} end if not itkexist(train.il_sections, "ts_id", ts_id) then table.insert(train.il_sections, {ts_id = ts_id, origin = sigd}) end -- ts if not ts.trains then ts.trains = {} end if not itexist(ts.trains, tid) then table.insert(ts.trains, tid) end -- routes local tcbs = advtrains.interlocking.db.get_tcbs(sigd) -- route setting - clear route state if ts.route then --atdebug(tid,"enters",ts_id,"examining Routestate",ts.route) if not sigd_equal(ts.route.entry, sigd) then -- Train entered not from the route. Locate origin and cancel route! atwarn("Train",tid,"hit route",ts.route.rsn,"!") advtrains.interlocking.route.cancel_route_from(ts.route.origin) atwarn("Route was cancelled.") else -- train entered route regularily. Reset route and signal tcbs.route_committed = nil tcbs.route_comitted = nil -- TODO compatibility cleanup tcbs.aspect = nil tcbs.route_origin = nil advtrains.interlocking.update_signal_aspect(tcbs) if tcbs.signal and sigd_equal(ts.route.entry, ts.route.origin) then if tcbs.route_auto and tcbs.routeset then --atdebug("Resetting route (",ts.route.origin,")") advtrains.interlocking.route.update_route(ts.route.origin, tcbs) else tcbs.routeset = nil end end end ts.route = nil end if tcbs.signal then advtrains.interlocking.route.update_route(sigd, tcbs) end end local function freesection(tid, train, ts_id, ts) -- train if not train.il_sections then train.il_sections = {} end itkremove(train.il_sections, "ts_id", ts_id) -- ts if not ts.trains then ts.trains = {} end itremove(ts.trains, tid) if ts.route_post then advtrains.interlocking.route.free_route_locks(ts_id, ts.route_post.locks) if ts.route_post.next then --this does nothing when the train went the right way, because -- "route" info is already cleared. advtrains.interlocking.route.cancel_route_from(ts.route_post.next) end ts.route_post = nil end -- This must be delayed, because this code is executed in-between a train step -- TODO use luaautomation timers? minetest.after(0, advtrains.interlocking.route.update_waiting, "ts", ts_id) end -- This is regular operation -- The train is on a track and drives back and forth -- This sets the section for both directions, to be failsafe advtrains.tnc_register_on_enter(function(pos, id, train, index) local tcb = ildb.get_tcb(pos) if tcb then for connid=1,2 do local ts = tcb[connid].ts_id and ildb.get_ts(tcb[connid].ts_id) if ts then setsection(id, train, tcb[connid].ts_id, ts, {p=pos, s=connid}) end end end end) -- this time, of course, only clear the backside (cp connid) advtrains.tnc_register_on_leave(function(pos, id, train, index) local tcb = ildb.get_tcb(pos) if tcb and train.path_cp[index] then local connid = train.path_cp[index] local ts = tcb[connid].ts_id and ildb.get_ts(tcb[connid].ts_id) if ts then freesection(id, train, tcb[connid].ts_id, ts) end end end) -- those callbacks are needed to account for created and removed trains (also regarding coupling) advtrains.te_register_on_create(function(id, train) -- let's see what track sections we find here local index = atround(train.index) local pos = advtrains.path_get(train, index) local ts_id, origin = ildb.get_ts_at_pos(pos) if ts_id then local ts = ildb.get_ts(ts_id) if ts then setsection(id, train, ts_id, ts, origin) else atwarn("ILDB corruption: TCB",origin," has invalid TS reference") end -- Make train a shunt move train.is_shunt = true elseif ts_id==nil then atlog("Train",id,": Unable to determine whether to block a track section!") else --atdebug("Train",id,": Outside of interlocked area!") end end) advtrains.te_register_on_remove(function(id, train) if train.il_sections then for idx, item in ipairs(train.il_sections) do local ts = item.ts_id and ildb.get_ts(item.ts_id) if ts and ts.trains then itremove(ts.trains, id) end end train.il_sections = nil end end)