index : advtrains.git	atcjit doc l10n luaatcdebug master profiler timetable tracy trainhud trainhud-unifont
	Advtrains mod for minetest.	orwell

aboutsummaryrefslogtreecommitdiff

log msg author committer range

path: root/advtrains

Mode	Name	Size
-rw-r--r--	advtrains.zip	1488724	logplain
d---------	advtrains	943	logplain
d---------	advtrains_itrainmap	110	logplain
d---------	advtrains_luaautomation	574	logplain
d---------	advtrains_train_industrial	176	logplain
d---------	advtrains_train_japan	176	logplain
d---------	advtrains_train_steam	176	logplain
d---------	advtrains_train_subway	176	logplain
-rw-r--r--	atc_command.txt	3319	logplain
-rw-r--r--	license.txt	23977	logplain
-rw-r--r--	license_media.txt	19556	logplain
-rw-r--r--	manual.pdf	927667	logplain
-rw-r--r--	modpack.txt	0	logplain
-rw-r--r--	readme.txt	842	logplain
-rw-r--r--	screenshot.png	445014	logplain

generated by cgit v1.2.3 (git 2.39.1) at 2026-11-01 17:49:26 +0000

local SPEED = 10
local ACCEL = 0.1
local VERSION = 8

local elevator = {
    motors = {},
}
local boxes = {}
local formspecs = {}
local lastpp = {}
local time = 0
minetest.register_globalstep(function(dtime)
    time = time + dtime
    if time < 0.5 then
        return
    end
    time = 0
    for _,p in ipairs(minetest.get_connected_players()) do
        local pos = p:getpos()
        if minetest.get_node(pos).name ~= "elevator:elevator_on" then
            lastpp[p:get_player_name()] = pos
        end
    end
end)
minetest.register_on_leaveplayer(function(player)
    if lastpp[player:get_player_name()] and vector.distance(lastpp[player:get_player_name()], player:getpos()) < 20 then
        player:setpos(lastpp[player:get_player_name()])
    end
end)
local elevator_file = minetest.get_worldpath() .. "/elevator"

local function load_elevator()
    local file = io.open(elevator_file)
    if file then
        elevator = minetest.deserialize(file:read("*all")) or {}
        file:close()
    end
end

local function save_elevator()
    local f = io.open(elevator_file .. ".tmp", "w")
    f:write(minetest.serialize(elevator))
    f:close()
    os.rename(elevator_file .. ".tmp", elevator_file)
end

load_elevator()

local function phash(pos)
    return minetest.pos_to_string(pos)
end

local function locate_motor(pos)
    local p = vector.new(pos)
    while true do
        local node = technic.get_or_load_node(p) or technic.get_or_load_node(p)
        if node.name == "elevator:elevator_on" or node.name == "elevator:elevator_off" then
            p.y = p.y + 2
        elseif node.name == "elevator:shaft" then
            p.y = p.y + 1
        elseif node.name == "elevator:motor" then
            return phash(p)
        else
            return nil
        end
    end
end

local function build_motor(hash)
    local need_saving = false
    local motor = elevator.motors[hash]
    if not motor then
        return
    end
    local p = minetest.string_to_pos(hash)
    local node = technic.get_or_load_node(p) or technic.get_or_load_node(p)
    if node.name ~= "elevator:motor" then
        return
    end
    p.y = p.y - 1
    motor.elevators = {}
    motor.pnames = {}
    motor.labels = {}
    while true do
        local node = technic.get_or_load_node(p) or technic.get_or_load_node(p)
        if node.name == "elevator:shaft" then
            p.y = p.y - 1
        else
            p.y = p.y - 1
            local node = technic.get_or_load_node(p) or technic.get_or_load_node(p)
            if node.name == "elevator:elevator_on" or node.name == "elevator:elevator_off" then
                table.insert(motor.elevators, phash(p))
                table.insert(motor.pnames, tostring(p.y))
                table.insert(motor.labels, "")
                p.y = p.y - 1
                need_saving = true
            else
                break
            end
        end
    end
    for i,m in ipairs(motor.elevators) do
        local pos = minetest.string_to_pos(m)
        local meta = minetest.get_meta(pos)
        meta:set_int("version", VERSION)
        if meta:get_string("motor") ~= hash then
            build_motor(meta:get_string("motor"))
        end
        motor.labels[i] = meta:get_string("label")
        meta:set_string("motor", hash)
        if motor.labels[i] ~= meta:get_string("infotext") then
            meta:set_string("infotext", motor.labels[i])
        end
    end
    if need_saving then
        save_elevator()
    end
end

local function unbuild(pos, add)
    local need_saving = false
    local p = table.copy(pos)
    p.y = p.y - 1
    while true do
        local node = technic.get_or_load_node(p) or technic.get_or_load_node(p)
        if node.name == "elevator:shaft" then
            p.y = p.y - 1
        else
            p.y = p.y - 1
            local node = technic.get_or_load_node(p) or technic.get_or_load_node(p)
            if node.name == "elevator:elevator_on" or node.name == "elevator:elevator_off" then
                local meta = minetest.get_meta(p)
                meta:set_string("motor", "")
                p.y = p.y - 1
            else
                break
            end
        end
    end
    minetest.after(0.01, function(p2)
        p2.y = p2.y + add
        local motorhash = locate_motor(p2)
        build_motor(motorhash)