1
0
mirror of https://github.com/metrostroi-repo/MetrostroiAddon.git synced 2026-05-02 00:42:29 +00:00
Files
MetrostroiAddon/lua/metrostroi/systems/sys_kv_35.lua
g_brzhezinskiy 1d05caf866 init
2021-01-02 12:51:45 +03:00

211 lines
9.0 KiB
Lua
Raw Blame History

This file contains ambiguous Unicode characters
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
--------------------------------------------------------------------------------
-- KV-35 controller
--------------------------------------------------------------------------------
-- Copyright (C) 2013-2018 Metrostroi Team & FoxWorks Aerospace s.r.o.
-- Contains proprietary code. See license.txt for additional information.
--------------------------------------------------------------------------------
Metrostroi.DefineSystem("KV_35")
function TRAIN_SYSTEM:Initialize()
self.Enabled = 1
self.RCU = 1
self.ControllerPosition = 0
self.ReverserPosition = 0
self.RealControllerPosition = 0
self.ChangeSpeed = 0.10
self.ReverserMatrix = {
{ "F" , "F7" },
{ 0, 0, 1 },
{ "10" , "14B" },
{ 1, 0, 1 },
{ "D" , "D1" },
{ 1, 0, 1 },
{ "10" , "F1" },
{ 1, 1, 0 },
{ "U2" , "4" },
{ 1, 0, 0 },
{ "U2" , "5ZH" },
{ 0, 0, 1 },
}
self.ControllerMatrix = {
{"10", "8"},
{ 1, 0, 0, 0, 0, 0, 0 },
{"U2", "10AK"},
{ 1, 1, 1, 0, 1, 1, 1 },
{"U2", "2" },
{ 1, 1, 0, 0, 0, 1, 1 },
{"U2", "3" },
{ 1, 0, 0, 0, 0, 0, 1 },
{"U2", "20"},
{ 1, 1, 1, 0, 1, 1, 1 },
{"U2", "25"},
{ 0, 1, 0, 0, 0, 0, 0 },
{"5ZH", "5"},
{ 1, 1, 1, 0, 0, 0, 0 },
{"14", "14B"},
{ 0, 0, 0, 1, 1, 1, 1 },
{"10AK", "17"},
{ 0, 0, 0, 1, 0, 0, 0 },
{"U2", "6"},
{ 1, 1, 1, 0, 0, 0, 0 },
{"10AK", "7A"},
{ 0, 0, 0, 0, 1, 1, 1 },
}
--256 25-й провод???
-- Initialize contacts values
for i=1,#self.ReverserMatrix/2 do
local v = self.ReverserMatrix[i*2-1]
self[v[1].."-"..v[2]] = 0
end
for i=1,#self.ControllerMatrix/2 do
local v = self.ControllerMatrix[i*2-1]
self[v[1].."-"..v[2]] = 0
end
end
function TRAIN_SYSTEM:Inputs()
return { "Enabled", "RCU", "ControllerSet", "ReverserSet",
"ControllerUp","ControllerDown","ReverserUp","ReverserDown",
"SetX1", "SetX2", "SetX3", "Set0", "Set0Fast", "SetT1", "SetT1A", "SetT2", }
end
function TRAIN_SYSTEM:Outputs()
return { "ControllerPosition","RealControllerPosition", "ReverserPosition", "RCU"}
end
function TRAIN_SYSTEM:TriggerInput(name,value)
local prevReverserPosition = self.ReverserPosition
-- Change position
if name == "Type" then
self.Type = math.floor(value)
elseif name == "Enabled" then
self.Enabled = math.floor(value)
elseif name == "RCU" then
if self.RCU ~= math.floor(value) then
self.RCU = math.floor(value)
self.Train:PlayOnce(self.RCU==1 and "rcu_on" or "rcu_off", "cabin",0.9)
end
elseif name == "ControllerSet" then
if self.Enabled ~= 0 and (self.ReverserPosition ~= 0) and (math.floor(value) ~= self.ControllerPosition) then
local prevControllerPosition = self.ControllerPosition
self.ControllerPosition = math.floor(value)
-- Limit motion
if self.ControllerPosition > 3 then self.ControllerPosition = 3 end
if self.ControllerPosition < -3 then self.ControllerPosition = -3 end
end
elseif name == "ReverserSet" then
if self.Enabled ~= 0 and (math.floor(value) ~= self.ReverserPosition) and self.ControllerPosition == 0 then
local prevReverserPosition = self.ReverserPosition
self.ReverserPosition = math.floor(value)
if self.ReverserPosition > 1 then self.ReverserPosition = 1 end
if self.ReverserPosition < -1 then self.ReverserPosition = -1 end
if prevReverserPosition ~= self.ReverserPosition then
if self.ReverserPosition == -1 then self.Train:PlayOnce("ezh3_revers_0-b","cabin",1) end
if self.ReverserPosition == 0 then
if prevReverserPosition == -1 then
self.Train:PlayOnce("ezh3_revers_b-0","cabin",1)
else
self.Train:PlayOnce("ezh3_revers_f-0","cabin",1)
end
end
if self.ReverserPosition == 1 then self.Train:PlayOnce("ezh3_revers_0-f","cabin",1) end
end
end
elseif (name == "ControllerUp") and (value > 0.5) then
self:TriggerInput("ControllerSet",self.ControllerPosition+1)
self.Timer = CurTime()-self.ChangeSpeed
self.SecondSound = true
elseif (name == "ControllerDown") and (value > 0.5) then
self:TriggerInput("ControllerSet",self.ControllerPosition-1)
self.Timer = CurTime()-self.ChangeSpeed
self.SecondSound = true
elseif (name == "ReverserUp") and (value > 0.5) then
self:TriggerInput("ReverserSet",self.ReverserPosition+1)
elseif (name == "ReverserDown") and (value > 0.5) then
self:TriggerInput("ReverserSet",self.ReverserPosition-1)
elseif (name == "SetX1") and (value > 0.5) then
self:TriggerInput("ControllerSet",1)
elseif (name == "SetX2") and (value > 0.5) then
self:TriggerInput("ControllerSet",2)
elseif (name == "SetX3") and (value > 0.5) then
self:TriggerInput("ControllerSet",3)
elseif (name == "Set0") and (value > 0.5) then
self:TriggerInput("ControllerSet",0)
elseif (name == "Set0Fast") and (value > 0.5) then
self:TriggerInput("ControllerSet",0)
self.ChangeSpeed = 0.05
elseif (name == "SetT1") and (value > 0.5) then
self:TriggerInput("ControllerSet",-1)
elseif (name == "SetT1A") and (value > 0.5) then
self:TriggerInput("ControllerSet",-2)
elseif (name == "SetT2") and (value > 0.5) then
self:TriggerInput("ControllerSet",-3)
end
end
function TRAIN_SYSTEM:Think()
--self:Initialize()
local Train = self.Train
if (self.Enabled == 0) and (self.ReverserPosition ~= 0) then
self.ReverserPosition = 0
self.ControllerPosition = 0
end
if (self.ReverserPosition == 0) and (self.ControllerPosition ~= 0) then
self.ReverserPosition = 0
self.ControllerPosition = 0
end
-- Move controller
self.Timer = self.Timer or CurTime()
if ((CurTime() - self.Timer > self.ChangeSpeed) and (self.ControllerPosition > self.RealControllerPosition)) then
local previousPosition = self.RealControllerPosition
self.Timer = CurTime()
self.RealControllerPosition = self.RealControllerPosition + 1
local A,B = previousPosition,self.RealControllerPosition
if (A == -3) and (B == -2) then self.Train:PlayOnce("kv40_t2_t1a", "cabin",1) end
if (A == -2) and (B == -1) then self.Train:PlayOnce("kv40_t1a_t1", "cabin",1) end
if self.SecondSound and (A == -1) and (B == 0) then self.Train:PlayOnce("kv40_t1_0", "cabin",1) end
if not self.SecondSound and (A == -1) and (B == 0) then self.Train:PlayOnce("kv40_t1_0", "cabin",1) end
if (A == 0) and (B == 1) then self.Train:PlayOnce("kv40_0_x1", "cabin",1) end
if (A == 1) and (B == 2) then self.Train:PlayOnce("kv40_x1_x2", "cabin",1) end
if (A == 2) and (B == 3) then self.Train:PlayOnce("kv40_x2_x3", "cabin",1) end
self.SecondSound = nil
end
if ((CurTime() - self.Timer > self.ChangeSpeed) and (self.ControllerPosition < self.RealControllerPosition)) then
local previousPosition = self.RealControllerPosition
self.Timer = CurTime()
self.RealControllerPosition = self.RealControllerPosition - 1
local A,B = previousPosition,self.RealControllerPosition
if (A == 3) and (B == 2) then self.Train:PlayOnce("kv40_x3_x2", "cabin",0.9) end
if (A == 2) and (B == 1) then self.Train:PlayOnce("kv40_x2_x1", "cabin",0.9) end
if (A == 1) and (B == 0) then self.Train:PlayOnce("kv40_x1_0", "cabin",0.9) end
if (A == 0) and (B == -1) then self.Train:PlayOnce("kv40_0_t1", "cabin",0.8) end
if (A == -1) and (B == -2) then self.Train:PlayOnce("kv40_t1_t1a", "cabin",0.8) end
if (A == -2) and (B == -3) then self.Train:PlayOnce("kv40_t1a_t2", "cabin",0.8) end
self.SecondSound = nil
end
if self.RealControllerPosition == 0 then self.ChangeSpeed = 0.10 end
local position = self.RealControllerPosition
-- Update contacts
for i=1,#self.ReverserMatrix/2 do
local v = self.ReverserMatrix[i*2-1]
local d = self.ReverserMatrix[i*2]
self[v[1].."-"..v[2]] = d[self.ReverserPosition+2]
end
for i=1,#self.ControllerMatrix/2 do
local v = self.ControllerMatrix[i*2-1]
local d = self.ControllerMatrix[i*2]
self[v[1].."-"..v[2]] = d[(position)+4]
end
end