MetrostroiAddon/lua/metrostroi/systems/_obsolete/sys_81_502_upo.lua

--------------------------------------------------------------------------------
-- UPO Announcer system for 81-502
--------------------------------------------------------------------------------
Metrostroi.DefineSystem("81_502_UPO")
TRAIN_SYSTEM.DontAccelerateSimulation = true

function TRAIN_SYSTEM:Initialize()
    self.Line = 1
    self.Path = false
    self.Station = 1
    self.Arrived = true
    self.Selected = 0
    self.LineEnabled = false
    if math.Rand then
        self.Buzz = math.random() > 0.7 and 2 or math.random() > 0.7 and 1
        self.Clicks = math.random() > 0.7
    end

    self.LineOut = 0
end

function TRAIN_SYSTEM:Outputs()
    return {"LineOut"}
end

function TRAIN_SYSTEM:Inputs()
    return {}
end

if TURBOSTROI then return end

function TRAIN_SYSTEM:TriggerInput(name, value)
end

function TRAIN_SYSTEM:AnnQueue(msg)
    local Announcer = self.Train.Announcer
    if msg and type(msg) ~= "table" then
        Announcer:Queue{msg}
    else
        Announcer:Queue(msg)
    end
end

function TRAIN_SYSTEM:Play(dep)
    local tbl = Metrostroi.UPOSetup
    if not tbl then return end
    local stbl = tbl[self.Station]
    local path = self.Path and 2 or 1
    if not stbl or dep and not stbl.dep or not dep and not stbl.arr and not stbl.arrlast then return end
    if dep and stbl.dep and stbl.dep[path] then
        if self.Buzz then self:AnnQueue{"buzz_start_upo",self.Buzz} else self:AnnQueue("buzz_end_upo") end
        if self.Clicks then self:AnnQueue("click1") end
        self:AnnQueue(math.Rand(0.0,0.2))
        if self.Noise then self:AnnQueue{"noise_start",self.Noise} else self:AnnQueue("noise_end") end
        self:AnnQueue{math.Rand(0.0,0.2), stbl.tone or "tone"}
        self:AnnQueue(stbl.dep[path])
        self:AnnQueue{math.Rand(0.1,0.4),"noise_end","buzz_end_upo"}
        if self.Clicks then self:AnnQueue("click2") end
    elseif not dep then
        local msg,lastst
        if stbl.arr then msg = stbl.arr[path] end

        if not msg and stbl.arrlast then
            msg = stbl.arrlast[path]
            lastst = true
        end
        if msg then
            if self.Buzz then self:AnnQueue{"buzz_start_upo",self.Buzz} else self:AnnQueue("buzz_end_upo") end
            if self.Clicks then self:AnnQueue("click1") end
            self:AnnQueue(math.Rand(0.1,0.3))
            if self.Noise then self:AnnQueue{"noise_start",self.Noise} else self:AnnQueue("noise_end") end
            self:AnnQueue{math.Rand(0.1,0.3), stbl.tone or "tone"}
            if lastst then self:AnnQueue{-1} end
            self:AnnQueue(msg)
            self:AnnQueue{math.Rand(0.1,0.4),"noise_end","buzz_end_upo"}
            if self.Clicks then self:AnnQueue("click2") end
        end
    end
end

function TRAIN_SYSTEM:Think(dT)
    local Train = self.Train
    local Power = Train.Panel.V1 > 0.5
    local tbl = Metrostroi.UPOSetup
    if not tbl then
        self.State = false

        return
    end
    --local KRUEnabled = Train.KRU and Train.KRU["14/1-B3"] > 0
    --local RVForward = (Train.KV["D4-15"] > 0 or KRUEnabled)
    local UPOWork = Train.Panel.UPOPower>0

    --self.LastStationName = stbl[self.Line][self.Path and self.StartStation or self.EndStation][2]
    if UPOWork then
        local path = Train:ReadCell(49170) --Metrostroi.PathConverter[self.Train:ReadCell(65510)] or 0
        self.Path = path == 2
        local station = Train:ReadCell(49169)
        local stbl
        local distance = math.min(3072, self.Train:ReadCell(49165))
        --Find my station
        self.Station = nil
        for i2, v in ipairs(tbl) do
            if v[1] == station then
                stbl = v
                self.Station = i2
                break
            end
        end
        --local stbl = tbl[self.Line] and tbl[self.Line][self.Station]
        local dist = stbl and stbl.dist or 75
        --print(self.Path,stbl.arr[self.Path and 2 or 1][3],self.Path and 2 or 1)
        if station ~= self.CurrentStation and distance < dist and self.UPOArrived == nil then
            self.UPOArrived = true
            self.CurrentStation = station
            self.Noise = stbl and stbl.noise or 0
            if stbl then
                self:Play(false)
            end
        end
        if self.UPOArrived and self.AnnouncerPlay then
            self.UPOArrived = false
            if stbl then
                self:Play(true)
                if Train.PUAV then Train.PUAV.KSZDRing = true end
            end
        end

        if self.UPOArrived == false and Train.Speed > 0.1 then
            self.UPOArrived = nil
        end
        if distance < 0 or  distance > dist then
            if #Train.Announcer.Schedule > 0 then
                Train.Announcer:Reset()
                --Train.Announcer:Queue{"click2"}
                --Train:WriteTrainWire(47, 0)
            end
            if self.UPOArrived ~= nil then self.UPOArrived = nil end
            if self.CurrentStation then self.CurrentStation = nil end
        end
    end
    local Ann = Train.Announcer
    self.LineOut = (Ann.AnnTable=="AnnouncementsUPO" and Ann.AnnounceTimer) and 1 or 0
end