metrostroi-repo/MetrostroiAddon
1
0
Fork 0
mirror of https://github.com/metrostroi-repo/MetrostroiAddon.git synced 2026-05-02 00:42:29 +00:00
Code Activity
Files
a46afb3739a5a3c0b39d6eaf29f027089395680e
MetrostroiAddon/lua/weapons/gmod_tool/stools/signalling.lua
g_brzhezinskiy 09566ce158 release branch init
2021-01-02 15:32:05 +03:00

1474 lines
67 KiB
Lua
Raw Blame History

TOOL.Category = "Metro"
TOOL.Name = "Signalling Tool"
TOOL.Command = nil
TOOL.ConfigName = ""
TOOL.ClientConVar["signaldata"] = ""
TOOL.ClientConVar["signdata"] = ""
TOOL.ClientConVar["autodata"] = ""
TOOL.ClientConVar["type"] = 1
TOOL.ClientConVar["routetype"] = 1
if SERVER then util.AddNetworkString "metrostroi-stool-signalling" end
local Types = {"Signal","Sign","Autodrive",[0] = "Choose Type"}
local TypesOfSignal = {"Inside","Outside big","Outside small"}
local TypesOfSign = {"NF","40","60","70","80","Station border","C(horn) Street","STOP Street","Dangerous","Deadlock",
"Stop marker","!(stop)","X","T Start","T End","T Sbor(engage)","Engines off","Engines on","C(horn)","T stop emer","Shod",
"Left doors","Phone▲","Phone▼","1up","STOP Street cyka","NF outside","35 outside","40 outside","60 outside","70 outside","80 outside",
"T Sbor(engage) outside","35","Dangerous 200","CR End","CR End(inv)","2up","3up","4up","5up","6up","X outside", "Metal","50","50 outside"}
local RouteTypes = {"Auto", "Manual","Repeater","Emerg"}
local TypesOfAuto = {
"Drive commands","Station brake command", "Door command","Light sensor","PA Marker","UPPS Sensor","SBPP Sensor"
}
TOOL.Type = 0
TOOL.RouteType = 1
--TOOL.Signal.Type = 1
if CLIENT then
language.Add("Tool.signalling.name", "Signalling Tool")
language.Add("Tool.signalling.desc", "Adds and modifies signalling equipment (ARS/ALS) or signs")
language.Add("Tool.signalling.0", "Primary: Spawn/update selected signalling entity (point at the inner side of rail)\nReload: Copy ARS/light settings\nSecondary: Remove")
language.Add("Undone_signalling", "Undone ARS/signalling equipment")
end
function TOOL:SpawnSignal(ply,trace,param)
local pos = trace.HitPos
-- Use some code from rerailer --
local tr = Metrostroi.RerailGetTrackData(pos,ply:GetAimVector())
if not tr then return end
-- Create self.Signal entity
local ent
local found = false
local entlist = ents.FindInSphere(pos,64)
for k,v in pairs(entlist) do
if v:GetClass() == "gmod_track_signal" then
if v.Name==self.Signal.Name then
ent = v
found=0
break
end
if not found or found > pos:Distance(v:GetPos()) then
ent = v
found = pos:Distance(v:GetPos())
end
end
end
if param == 2 then
if not ent then return end
self.Signal.Type = ent.SignalType + 1
self.Signal.Name = ent.Name
self.Signal.Lenses = ent.LensesStr
self.Signal.RouteNumber = ent.RouteNumber
self.Signal.RouteNumberSetup = ent.RouteNumberSetup
self.Signal.IsolateSwitches = ent.IsolateSwitches
self.Signal.Approve0 = ent.Approve0
self.Signal.TwoToSix = ent.TwoToSix
self.Signal.ARSOnly = ent.ARSOnly
self.Signal.NonAutoStop = ent.NonAutoStop
self.Signal.PassOcc = ent.PassOcc
self.Signal.Routes = ent.Routes
self.Signal.Left = ent.Left
self.Signal.Double = ent.Double
self.Signal.DoubleL = ent.DoubleL
net.Start("metrostroi-stool-signalling")
net.WriteUInt(0,8)
net.WriteTable(self.Signal)
net.Send(self:GetOwner())
else
if not ent then ent = ents.Create("gmod_track_signal") end
if IsValid(ent) then
if param ~= 2 then
ent:SetPos(tr.centerpos - tr.up * 9.5)
ent:SetAngles((-tr.right):Angle())
end
if not found then
ent:Spawn()
-- Add to undo
undo.Create("signalling")
undo.AddEntity(ent)
undo.SetPlayer(ply)
undo.Finish()
end
ent.SignalType = self.Signal.Type-1
ent.ARSOnly = self.Signal.ARSOnly
ent.Name = self.Signal.Name
ent.LensesStr = self.Signal.Lenses
ent.RouteNumber = self.Signal.RouteNumber
ent.RouteNumberSetup = self.Signal.RouteNumberSetup
ent.IsolateSwitches = self.Signal.IsolateSwitches
ent.Approve0 = self.Signal.Approve0
ent.NonAutoStop = self.Signal.NonAutoStop
ent.TwoToSix = self.Signal.TwoToSix
ent.Routes = self.Signal.Routes
ent.Left = self.Signal.Left
ent.Double = self.Signal.Double
ent.DoubleL = self.Signal.DoubleL
ent.Lenses = string.Explode("-",ent.LensesStr)
ent.PassOcc = self.Signal.PassOcc
ent.InS = nil
ent:SendUpdate()
for i = 1,#ent.Lenses do
if ent.Lenses[i]:find("W") then
ent.InS = i
end
end
Metrostroi.UpdateSignalEntities()
Metrostroi.PostSignalInitialize()
end
return ent
end
end
function TOOL:SpawnSign(ply,trace,param)
local pos = trace.HitPos
-- Use some code from rerailer --
local tr = Metrostroi.RerailGetTrackData(pos,ply:GetAimVector())
if not tr then return end
-- Create self.Sign entity
local ent
local found = false
local entlist = ents.FindInSphere(pos,64)
for k,v in pairs(entlist) do
if v:GetClass() == "gmod_track_signs" then
ent = v
found = true
end
end
if param == 2 then
if not ent then return end
self.Sign.Type = ent.SignType
self.Sign.YOffset = ent.YOffset
self.Sign.ZOffset = ent.ZOffset
self.Sign.Left = ent.Left
net.Start("metrostroi-stool-signalling")
net.WriteUInt(1,8)
net.WriteTable(self.Sign)
net.Send(self:GetOwner())
else
if not ent then ent = ents.Create("gmod_track_signs") end
if IsValid(ent) then
if param ~= 2 then
ent:SetPos(tr.centerpos - tr.up * 9.5)
ent:SetAngles((-tr.right):Angle() + Angle(0,90,0))
end
if not found then
ent:Spawn()
-- Add to undo
undo.Create("signalling")
undo.AddEntity(ent)
undo.SetPlayer(ply)
undo.Finish()
end
ent.SignType = self.Sign.Type
ent.YOffset = self.Sign.YOffset
ent.ZOffset = self.Sign.ZOffset
ent.Left = self.Sign.Left
ent:SendUpdate()
end
return ent
end
end
function TOOL:SpawnAutoPlate(ply,trace,param)
local pos = trace.HitPos
-- Use some code from rerailer --
local tr = Metrostroi.RerailGetTrackData(pos,ply:GetAimVector())
if not tr then return end
local ent
local found = false
local entlist = ents.FindInSphere(pos,self.Auto.Type == 5 and 192 or 64)
for k,v in pairs(entlist) do
if v:GetClass() == "gmod_track_pa_marker" and self.Auto.Type == 5 or v:GetClass() == "gmod_track_autodrive_plate" and v.PlateType == self.Auto.Type and not v.Linked then
ent = v
found = true
break
end
end
if param == 2 then
if not ent then return end
--self.Auto.Type = ent.PlateType
if self.Auto.Type == METROSTROI_ACOIL_DRIVE then
self.Auto.Right = ent.Right
self.Auto.Mode = ent.Mode
self.Auto.StationID = ent.StationID
self.Auto.StationPath = ent.StationPath
elseif self.Auto.Type == METROSTROI_ACOIL_DOOR then
self.Auto.Right = ent.Right
elseif self.Auto.Type == 5 then
self.Auto.PAType = ent.PAType or 1
if self.Auto.PAType == 1 then
self.Auto.PAStationPath = ent.PAStationPath
self.Auto.PAStationID = ent.PAStationID
self.Auto.PAStationName = ent.PAStationName
self.Auto.PALastStation = ent.PALastStation
self.Auto.PAWrongPath = ent.PAWrongPath
self.Auto.PADeadlockStart = ent.PADeadlockStart
self.Auto.PADeadlockEnd = ent.PADeadlockEnd
self.Auto.PALineChange = ent.PALineChange
self.Auto.PALineChangeStationPath = ent.PALineChangeStationPath
self.Auto.PALineChangeStationID = ent.PALineChangeStationID
self.Auto.PALastStationName = ent.PALastStationName
self.Auto.PAStationHasSwtiches = ent.PAStationHasSwtiches
self.Auto.PAStationRightDoors = ent.PAStationRightDoors
self.Auto.PAStationHorlift = ent.PAStationHorlift
end
elseif self.Auto.Type == METROSTROI_SBPPSENSOR and not ent.Linked then
self.Auto.SBPPType = ent.Type
self.Auto.SBPPDeadlock = ent.IsDeadlock
self.Auto.SBPPStationPath = ent.StationPath
self.Auto.SBPPStationID = ent.StationID
self.Auto.SBPPDriveMode = ent.DriveMode
self.Auto.SBPPRightDoors = ent.RightDoors
self.Auto.SBPPWTime = ent.WTime
self.Auto.SBPPRK = ent.RKPos
self.Auto.LXp = ent.DistanceToOPV
end
self.Auto.LXp = ent.DistanceToOPV or ent.LXp or self.Auto.LXp
self.Auto.LYp = ent.LYp or self.Auto.LYp
self.Auto.LZp = ent.LZp or self.Auto.LZp
net.Start("metrostroi-stool-signalling")
net.WriteUInt(2,8)
net.WriteTable(self.Auto)
net.Send(self:GetOwner())
else
if self.Auto.Type ~= 5 then
if not ent then ent = ents.Create("gmod_track_autodrive_plate") end
if IsValid(ent) then
local angle = (-tr.right):Angle()
angle:RotateAroundAxis(tr.up,90)
ent.PlateType = self.Auto.Type
local center = (tr.centerpos - tr.up * 9.5)
if self.Auto.Type == METROSTROI_ACOIL_DRIVE then
local dist = 50
if self.Auto.Dist == 1 then
ent.Model = "models/metrostroi/signals/autodrive/doska5.mdl"
dist = 5
elseif self.Auto.Dist == 2 then
ent.Model = "models/metrostroi/signals/autodrive/doska20.mdl"
dist = 20
else
ent.Model = "models/metrostroi/signals/autodrive/doska50.mdl"
end
ent.Right = self.Auto.Right
ent.Mode = self.Auto.Mode
if self.Auto.Mode == 3 or self.Auto.Mode == 4 then
dist = -dist/2+2.5+1.5
ent.StationID = self.Auto.StationID
ent.StationPath = self.Auto.StationPath
else
dist = 0
ent.StationID = nil
ent.StationPath = nil
end
if self.Auto.Mode < 3 or self.Auto.Mode == 5 or 6 < self.Auto.Mode then ent.Power = true end
if ent.Right then
ent:SetPos(center + (tr.forward*(-(dist)/0.01905)+tr.right*-66+tr.up*5))
else
ent:SetPos(center + (tr.forward*(-(dist)/0.01905)+tr.right*66+tr.up*5))
end
elseif self.Auto.Type == METROSTROI_ACOIL_SBRAKE then
ent.Model = "models/metrostroi/signals/autodrive/doska160.mdl"
ent:SetPos(center + (tr.forward*(-(80+2.5+1.5+0.4)/0.01905)+tr.right*66+tr.up*5)) ---75
elseif self.Auto.Type == METROSTROI_ACOIL_DOOR then
ent.Model = "models/metrostroi/signals/autodrive/doska5.mdl"
ent.Right = self.Auto.Right
if ent.Right then
ent:SetPos(center + (tr.forward*(-(4-2.5)/0.01905)+tr.right*66+tr.up*5))
else
ent:SetPos(center + (tr.forward*(-(4-2.5)/0.01905)+tr.right*-66+tr.up*5))
end
elseif self.Auto.Type == METROSTROI_LSENSOR then
ent.Model = "models/mus/metro/station_marker_4.mdl"
ent:SetPos(center + (tr.forward*(-(self.Auto.LXp or 0)/0.01905)+tr.right*((self.Auto.LYp or 0)/0.01905+120)+tr.up*((self.Auto.LZp or 0)/0.01905+130)))
angle:RotateAroundAxis(tr.up,90)
elseif self.Auto.Type == METROSTROI_UPPSSENSOR then
ent.Model = "models/metrostroi/upps.mdl"
ent:SetPos(center + (tr.forward*(-(self.Auto.LXp or 0)/0.01905)+tr.right*((self.Auto.LYp or 0)/0.01905)+tr.up*((0.8+(self.Auto.LZp or 0))/0.01905)))
ent.DistanceToOPV = self.Auto.LXp
ent.UPPS=true
angle:RotateAroundAxis(tr.forward,self.Auto.Roll or 0)
elseif self.Auto.Type == METROSTROI_SBPPSENSOR then
ent.SBPPType = self.Auto.SBPPType or 1
ent.IsDeadlock = ent.SBPPType<=3 and self.Auto.SBPPDeadlock
ent.StationPath = 2<=ent.SBPPType and ent.SBPPType<=3 and tonumber(self.Auto.SBPPStationPath)
ent.StationID = 2<=ent.SBPPType and ent.SBPPType<=3 and tonumber(self.Auto.SBPPStationID)
ent.DriveMode = ent.SBPPType==3 and self.Auto.SBPPDriveMode
ent.RightDoors = ent.SBPPType==3 and self.Auto.SBPPRightDoors
ent.WTime = (ent.SBPPType==3 or ent.SBPPType>=5) and self.Auto.SBPPWTime
ent.RKPos = ent.SBPPType==7 and self.Auto.SBPPRK
if ent.SBPPType<=2 then ent.DistanceToOPV = self.Auto.LXp end
ent.Model = "models/metrostroi/signals/autodrive/rfid.mdl"
local pos
if ent.SBPPType==1 then
pos = center
else
pos = center + (tr.forward*(-(self.Auto.LXp or 0)/0.01905)+tr.right*(-80+(self.Auto.LYp or 0)/0.01905)+tr.up*(52+(self.Auto.LZp or 0)/0.01905))
end
angle:RotateAroundAxis(tr.up,90)
angle:RotateAroundAxis(tr.forward,90)
if ent.SBPPType==1 then
local rpos = Metrostroi.GetPositionOnTrack(pos,angle)
local res = rpos[1]
if res then
local tpos, tang = Metrostroi.GetTrackPosition(res.path,res.x-self.Auto.LXp*(self.Auto.LInvX and -1 or 1))
if tpos then
tang = tang:Angle()
pos = tpos + (tang:Right()*(-79+(self.Auto.LYp or 0)/0.01905)*(self.Auto.LRightP and -1 or 1)+tang:Up()*(-60+(self.Auto.LZp or 0)/0.01905))
tang:RotateAroundAxis(tang:Up(),-90)
tang:RotateAroundAxis(tang:Right(),self.Auto.LRightP and 90 or -90)
angle = tang
end
end
elseif ent.SBPPType==3 and not ent.BrakeProps then
ent.BrakeProps = {}
for i=-1,1,2 do
local entL = ents.Create("gmod_track_autodrive_plate")
entL.Model = "models/metrostroi/signals/autodrive/rfid.mdl"
entL:SetPos(pos + (tr.forward*(-1.5*i)/0.01905))
entL:SetModel(ent.Model)
entL:SetAngles(angle)
entL:Spawn()
entL.Linked = ent
entL.SBPPType = ent.SBPPType
entL.PlateType = METROSTROI_SBPPSENSOR
table.insert(ent.BrakeProps,entL)
end
end
ent:SetPos(pos)
end
if not ent.DistanceToOPV then ent.LXp = self.Auto.LXp end
ent.LYp = self.Auto.LYp
ent.LZp = self.Auto.LZp
ent:SetModel(ent.Model)
ent:SetAngles(angle)
end
else
if not ent then ent = ents.Create("gmod_track_pa_marker") end
if IsValid(ent) then
local angle = (tr.forward):Angle()
local center = (tr.centerpos - tr.up * 9.5)
--angle:RotateAroundAxis(tr.up,90)
ent.PAType = self.Auto.PAType
ent.PAStationPath = tonumber(self.Auto.PAStationPath)
ent.PAStationID = tonumber(self.Auto.PAStationID)
ent.PAStationName = self.Auto.PAStationName
ent.PALastStation = self.Auto.PALastStation
ent.PAWrongPath = self.Auto.PAWrongPath
ent.PADeadlockStart = self.Auto.PADeadlockStart
ent.PADeadlockEnd = self.Auto.PADeadlockEnd
ent.PALineChange = self.Auto.PALineChange
ent.PALineChangeStationPath = self.Auto.PALineChangeStationPath
ent.PALineChangeStationID = self.Auto.PALineChangeStationID
ent.PALastStationName = self.Auto.PALastStationName
ent.PAStationRightDoors = self.Auto.PAStationRightDoors
ent.PAStationHorlift = self.Auto.PAStationHorlift
ent.PAStationHasSwtiches = self.Auto.PAStationHasSwtiches
ent:UpdateTrackPos(center,angle)
end
end
if not found then
ent:Spawn()
-- Add to undo
undo.Create("signalling")
undo.AddEntity(ent)
undo.SetPlayer(ply)
undo.Finish()
end
return ent
end
end
function TOOL:LeftClick(trace)
if CLIENT then
return true
end
--self.Signal = util.JSONToTable(self:GetClientInfo("signaldata"):replace("''","\""))
--if not self.Signal then return end
local ply = self:GetOwner()
if (ply:IsValid()) and (not ply:IsAdmin()) then return false end
if not trace then return false end
if trace.Entity and trace.Entity:IsPlayer() then return false end
local ent
if self.Type == 1 then
ent = self:SpawnSignal(ply,trace)
elseif self.Type == 2 then
ent = self:SpawnSign(ply,trace)
elseif self.Type == 3 then
ent = self:SpawnAutoPlate(ply,trace)
end
return true
end
function TOOL:RightClick(trace)
if CLIENT then
return true
end
local ply = self:GetOwner()
if (ply:IsValid()) and (not ply:IsAdmin()) then return false end
if not trace then return false end
if trace.Entity and trace.Entity:IsPlayer() then return false end
local entlist = ents.FindInSphere(trace.HitPos,(self.Type == 3 and self.Auto.Type == 5) and 192 or 64)
for k,v in pairs(entlist) do
if v:GetClass() == "gmod_track_signal" and self.Type == 1 then
if IsValid(v) then SafeRemoveEntity(v) end
end
if v:GetClass() == "gmod_track_switch" then
if IsValid(v) then SafeRemoveEntity(v) end
end
if v:GetClass() == "gmod_track_signs" and self.Type == 2 then
if IsValid(v) then SafeRemoveEntity(v) end
end
if v:GetClass() == "gmod_track_autodrive_plate" and self.Type == 3 and self.Auto.Type == v.PlateType then
if IsValid(v) then SafeRemoveEntity(v) end
end
if v:GetClass() == "gmod_track_pa_marker" and self.Type == 3 and self.Auto.Type == 5 then
if IsValid(v) then SafeRemoveEntity(v) end
end
end
return true
end
function TOOL:Reload(trace)
if CLIENT then return true end
--self.Signal = util.JSONToTable(self:GetClientInfo("signaldata"):replace("''","\""))
local ply = self:GetOwner()
--if not (ply:IsValid()) and (not ply:IsAdmin()) then return false end
if not trace then return false end
if trace.Entity and trace.Entity:IsPlayer() then return false end
local ent
if self.Type == 1 then
ent = self:SpawnSignal(ply,trace,2)
elseif self.Type == 2 then
ent = self:SpawnSign(ply,trace,2)
elseif self.Type == 3 then
ent = self:SpawnAutoPlate(ply,trace,2)
end
return true
end
function TOOL:SendSettings()
if self.Type == 1 then
if not self.Signal then return end
RunConsoleCommand("signalling_signaldata",util.TableToJSON(self.Signal))
net.Start "metrostroi-stool-signalling"
net.WriteUInt(0,8)
--net.WriteEntity(self)
net.WriteTable(self.Signal)
net.SendToServer()
elseif self.Type == 2 then
if not self.Sign then return end
RunConsoleCommand("signalling_signdata",util.TableToJSON(self.Sign))
net.Start "metrostroi-stool-signalling"
net.WriteUInt(1,8)
--net.WriteEntity(self)
net.WriteTable(self.Sign)
net.SendToServer()
elseif self.Type == 3 then
if not self.Auto then return end
RunConsoleCommand("signalling_autodata",util.TableToJSON(self.aUTO))
net.Start "metrostroi-stool-signalling"
net.WriteUInt(2,8)
--net.WriteEntity(self)
net.WriteTable(self.Auto)
net.SendToServer()
end
end
net.Receive("metrostroi-stool-signalling", function(_, ply)
local TOOL = LocalPlayer and LocalPlayer():GetTool("signalling") or ply:GetTool("signalling")
local typ = net.ReadUInt(8)
if typ == 2 then
TOOL.Auto = net.ReadTable()
if CLIENT then
RunConsoleCommand("signalling_signdata",util.TableToJSON(TOOL.Auto))
NeedUpdate = true
end
elseif typ == 1 then
TOOL.Sign = net.ReadTable()
if CLIENT then
RunConsoleCommand("signalling_signdata",util.TableToJSON(TOOL.Sign))
NeedUpdate = true
end
elseif typ == 0 then
TOOL.Signal = net.ReadTable()
if CLIENT then
RunConsoleCommand("signalling_signaldata",util.TableToJSON(TOOL.Signal))
NeedUpdate = true
end
end
TOOL.Type = typ+1
end)
function TOOL:BuildCPanelCustom()
local tool = self
local CPanel = controlpanel.Get("signalling")
if not CPanel then return end
--("signalling_signaldata",util.TableToJSON(tool.Signal))
--tool.Type = GetConVarNumber("signalling_type") or 1
tool.RouteType = GetConVarNumber("signalling_routetype") or 1
CPanel:ClearControls()
CPanel:SetPadding(0)
CPanel:SetSpacing(0)
CPanel:Dock( FILL )
local VType = vgui.Create("DComboBox")
VType:ChooseOption(Types[tool.Type],tool.Type)
VType:SetColor(color_black)
for i = 1,#Types do
VType:AddChoice(Types[i])
end
VType.OnSelect = function(_, index, name)
VType:SetValue(name)
tool.Type = index
tool:SendSettings()
tool:BuildCPanelCustom()
end
CPanel:AddItem(VType)
if tool.Type == 1 then
local VSType = vgui.Create("DComboBox")
VSType:ChooseOption(TypesOfSignal[tool.Signal.Type or 1],tool.Signal.Type or 1)
VSType:SetColor(color_black)
for i = 1,#TypesOfSignal do
VSType:AddChoice(TypesOfSignal[i])
end
VSType.OnSelect = function(_, index, name)
VSType:SetValue(name)
tool.Signal.Type = index
tool:SendSettings()
end
CPanel:AddItem(VSType)
local VNameT,VNameN = CPanel:TextEntry("Name:")
VNameT:SetTooltip("Name. Letters or digits!\nFor example:IND2")
VNameT:SetValue(tool.Signal.Name or "")
VNameT:SetEnterAllowed(false)
function VNameT:OnChange()
local oldval = self:GetValue()
local pos = self:GetCaretPos()
local NewValue = ""
for i = 1,10 do
NewValue = NewValue..((oldval[i] or ""):upper():match("^[%u%d%s/]+") or "")
end
self:SetText(NewValue)
self:SetCaretPos(pos < #NewValue and pos or #NewValue)
end
function VNameT:OnLoseFocus()
tool.Signal.Name = self:GetValue()
tool:SendSettings()
end
if not tool.Signal.ARSOnly then
local VLensT,VLensN = CPanel:TextEntry("Lenses:")
VLensT:SetTooltip("G - Green, Y - Yellow, R - Red, B - Blue, W - White, M - Routing Pointer\nExample: GYG-RW-M")
VLensT:SetValue(tool.Signal.Lenses or "")
VLensT:SetEnterAllowed(false)
function VLensT:OnChange()
local NewValue = ""
for i = 1,#self:GetValue() do
NewValue = NewValue..((self:GetValue()[i] or ""):upper():match("[RYGWBM-]") or "")
end
local NewValueT = string.Explode("-",NewValue)
local maxval = tool.Signal.Type == 3 and 4 or 3
for id,text in ipairs(NewValueT) do
if id > 4 then
for i = 5,#NewValueT do
table.remove(NewValueT,i)
end
break
end
if text:find("M") then
if text[1] == "M" then
NewValueT[id] = "M"
else
NewValueT[id] = text:gsub("M","")
id = id + 1
NewValueT[id] = "M"
end
for i = id+1,#NewValueT do
table.remove(NewValueT, i)
end
break
end
text = text:match("[RYGWB]+") or ""
--[[local WFind = id==3 and text:find("W") or nil
--print(MFind,id)
if WFind then
if text:find("M") then
NewValueT[#NewValueT+1] = "M"
end
NewValueT[id] = "W"
else]]
NewValueT[id] = text:sub(1,maxval)
if #text > maxval then
NewValueT[#NewValueT+1] = text:sub(maxval+1,#text)
end
--end
--[[
if MID > 0 then
for i = MID,#NewValueT do
table.remove(NewValueT,i)
end
break
end]]
end
local NewValue = table.concat(NewValueT,"-")
self:SetText(NewValue)
self:SetCaretPos(#NewValue)
end
function VLensT:OnLoseFocus()
tool.Signal.Lenses = self:GetValue()
tool:SendSettings()
end
end
if tool.Signal.Type == 1 then
local VRoutT,VRoutN = CPanel:TextEntry("Custom route number:")
VRoutT:SetTooltip("Custom routte number. Can be empty. For example:12WK")
VRoutT:SetValue(tool.Signal.RouteNumberSetup or "")
VRoutT:SetEnterAllowed(false)
function VRoutT:OnChange()
local oldval = self:GetValue()
local NewValue = ""
for i = 1,#oldval do
NewValue = NewValue..((oldval[i] or ""):upper():match("[1-4DWKFLRX]+") or "")
end
local oldpos = self:GetCaretPos()
self:SetText(NewValue:sub(1,5))
self:SetCaretPos(math.min(5,oldpos))
end
function VRoutT:OnLoseFocus()
tool.Signal.RouteNumberSetup = self:GetValue()
tool:SendSettings()
end
end
local VLeftC = CPanel:CheckBox("Left side")
VLeftC:SetTooltip("Left side")
VLeftC:SetValue(tool.Signal.Left or false)
function VLeftC:OnChange()
tool.Signal.Left = self:GetChecked()
tool:SendSettings()
end
local VDoubleC = CPanel:CheckBox("Double side")
if tool.Signal.Double then
local VDoubleLC = CPanel:CheckBox("Double light")
VDoubleLC:SetTooltip("DoubleL light")
VDoubleLC:SetValue(tool.Signal.DoubleL or false)
function VDoubleLC:OnChange()
tool.Signal.DoubleL = self:GetChecked() and tool.Signal.Double
self:SetChecked(tool.Signal.DoubleL)
tool:SendSettings()
end
end
VDoubleC:SetTooltip("Double side")
VDoubleC:SetValue(tool.Signal.Double or false)
function VDoubleC:OnChange()
tool.Signal.Double = self:GetChecked()
tool.Signal.DoubleL = tool.Signal.DoubleL and self:GetChecked()
tool:BuildCPanelCustom()
--if tool.Signal.Double then VDoubleLC:SetChecked(tool.Signal.DoubleL and tool.Signal.Double) end
tool:SendSettings()
end
local VRouT,VRouN = CPanel:TextEntry("Route number:")
VRouT:SetTooltip("Route number. Can be empty. One digit or D.\nFor example:D")
VRouT:SetValue(tool.Signal.RouteNumber or "")
VRouT:SetEnterAllowed(false)
function VRouT:OnChange()
local oldval = self:GetValue()
local NewValue = ""
for i = 1,#oldval do
if #NewValue > 0 then break end
NewValue = NewValue..((oldval[i] or ""):upper():match(tool.Signal.Type == 1 and "[%dDFLR]" or "[%dD]") or "")
end
self:SetText(NewValue)
self:SetCaretPos(0)
end
function VRouT:OnLoseFocus()
tool.Signal.RouteNumber = self:GetValue()
tool:SendSettings()
end
local VIsoSC = CPanel:CheckBox("Isolating switches")
VIsoSC:SetTooltip("Is tool.Signal isolate switch signals")
VIsoSC:SetValue(tool.Signal.IsolateSwitches or false)
function VIsoSC:OnChange()
tool.Signal.IsolateSwitches = self:GetChecked()
tool:SendSettings()
end
local VAppC = CPanel:CheckBox("325Hz on 0")
VAppC:SetTooltip("Is tool.Signal will be issuse 325Hz(for PA-KSD) on zero?")
VAppC:SetValue(tool.Signal.Approve0 or false)
function VAppC:OnChange()
tool.Signal.Approve0 = self:GetChecked()
tool:SendSettings()
end
local VAuStC = CPanel:CheckBox("Autostop")
VAuStC:SetTooltip("Is autostop present or no?")
if tool.Signal.NonAutoStop ~= nil then
VAuStC:SetValue(not tool.Signal.NonAutoStop)
else
VAuStC:SetValue(true)
end
function VAuStC:OnChange()
tool.Signal.NonAutoStop = not self:GetChecked()
tool:SendSettings()
end
local VDepC = CPanel:CheckBox("2/6")
VDepC:SetTooltip("Is Signal produces 2 freqencies or not?")
VDepC:SetValue(tool.Signal.TwoToSix or false)
function VDepC:OnChange()
tool.Signal.TwoToSix = self:GetChecked()
tool:SendSettings()
end
local VARSOC = CPanel:CheckBox("ARS Only")
VARSOC:SetTooltip("ARS Box")
VARSOC:SetValue(tool.Signal.ARSOnly or false)
function VARSOC:OnChange()
tool.Signal.ARSOnly = self:GetChecked()
tool:SendSettings()
tool:BuildCPanelCustom()
end
local VPassOccC = CPanel:CheckBox("Pass occupation singal")
VPassOccC:SetTooltip("Pass occupation singal")
VPassOccC:SetValue(tool.Signal.PassOcc or false)
function VPassOccC:OnChange()
tool.Signal.PassOcc = self:GetChecked()
tool:SendSettings()
--tool:BuildCPanelCustom()
end
for i = 1,(tool.Signal.Routes and #tool.Signal.Routes or 0) do
local CollCat = vgui.Create("DForm")
local rou = tool.Signal.Routes[i].Manual and 2 or tool.Signal.Routes[i].Repeater and 3 or tool.Signal.Routes[i].Emer and 4 or 1
CollCat:SetLabel(RouteTypes[rou])
CollCat:SetExpanded(1)
local VTypeOfRouteI = vgui.Create("DComboBox")
--VType:SetValue("Choose tool.Type")
VTypeOfRouteI:ChooseOption(RouteTypes[rou],rou)
for i1 = 1,#RouteTypes do
VTypeOfRouteI:AddChoice(RouteTypes[i1])
end
VTypeOfRouteI.OnSelect = function(_, index, name)
VTypeOfRouteI:SetValue(name)
tool.Signal.Routes[i].Manual = index == 2
tool.Signal.Routes[i].Repeater = index == 3
tool.Signal.Routes[i].Emer = index == 4
tool:SendSettings()
self:BuildCPanelCustom()
end
CollCat:AddItem(VTypeOfRouteI)
local VRNT,VRNN = CollCat:TextEntry("Route name:")
VRNT:SetText(tool.Signal.Routes[i].RouteName or "")
VRNT:SetTooltip("Route name.\nIt uses for !sopen or !sclose")
function VRNT:OnLoseFocus()
tool.Signal.Routes[i].RouteName = self:GetValue()
tool:SendSettings()
end
local VNexT,VNexN = CollCat:TextEntry("Next Signal:")
VNexT:SetText(tool.Signal.Routes[i].NextSignal or "")
VNexT:SetTooltip("Next Signal. Name of the next Signal.\nFor example:[113]IND2")
function VNexT:OnChange()
local oldval = self:GetValue()
local pos = self:GetCaretPos()
local NewValue = ""
for i = 1,10 do
NewValue = NewValue..((oldval[i] or ""):upper():match("[%u%d%s%*/]") or "")
end
self:SetText(NewValue)
self:SetCaretPos(pos < #NewValue and pos or #NewValue)
end
function VNexT:OnLoseFocus()
tool.Signal.Routes[i].NextSignal = self:GetValue()
tool:SendSettings()
end
if not tool.Signal.ARSOnly then
local VLighT,VLighN = CollCat:TextEntry("Lights:")
VLighT:SetText(tool.Signal.Routes[i].Lights or "")
VLighT:SetTooltip("Numbers of lenses.\nFor example: for RGY:1-13-3-32-2 (R-RY-Y-YG-G)")
function VLighT:OnLoseFocus()
tool.Signal.Routes[i].Lights = self:GetValue()
tool:SendSettings()
end
end
if not tool.Signal.Routes[i].Repeater then
local VARST,VARSN = CollCat:TextEntry("ARSCodes:")
VARST:SetText(tool.Signal.Routes[i].ARSCodes or "")
VARST:SetTooltip("ARS Codes:0 - 0, 1 - No frequency, 2 - Absolute stop, 4 - 40, 6 - 60, 7 - 70, 8 - 80\nFor example: 004678(0-0-40-60-70-80)")
function VARST:OnLoseFocus()
tool.Signal.Routes[i].ARSCodes = self:GetValue()
tool:SendSettings()
end
end
local VSwiT,VSwiN = CollCat:TextEntry("Switches:")
VSwiT:SetText(tool.Signal.Routes[i].Switches or "")
VSwiT:SetTooltip("Switches. Next Switches + State. Can be empty(if no switches to next tool.Signal).\nFor example: 112+,114-,116+")
function VSwiT:OnLoseFocus()
tool.Signal.Routes[i].Switches = self:GetValue()
tool:SendSettings()
end
local VEnRouC = CollCat:CheckBox("Enable route number")
VEnRouC:SetTooltip("Enable route number(when disabled route number enables only with invation signal)")
VEnRouC:SetValue(tool.Signal.Routes[i].EnRou or false)
function VEnRouC:OnChange()
tool.Signal.Routes[i].EnRou = self:GetChecked()
tool:SendSettings()
--tool:BuildCPanelCustom()
end
local VRemoveR = CollCat:Button("Remove route")
VRemoveR.DoClick = function()
table.remove(tool.Signal.Routes,i)
tool:SendSettings()
self:BuildCPanelCustom()
end
CPanel:AddItem(CollCat)
end
CPanel:AddItem(VAddPanel)
local VTypeOfRoute = vgui.Create("DComboBox")
--VType:SetValue("Choose tool.Type")
VTypeOfRoute:ChooseOption(RouteTypes[tool.RouteType],tool.RouteType)
VTypeOfRoute:SetColor(color_black)
for i = 1,#RouteTypes do
VTypeOfRoute:AddChoice(RouteTypes[i])
end
VTypeOfRoute.OnSelect = function(_, index, name)
VTypeOfRoute:SetValue(name)
tool.RouteType = index
end
CPanel:AddItem(VTypeOfRoute)
local VAddR = CPanel:Button("Add route")
VAddR.DoClick = function()
if not tool.Signal.Routes then tool.Signal.Routes = {} end
table.insert(tool.Signal.Routes,{Manual = tool.RouteType==2, Repeater = tool.RouteType == 3, Emer = tool.RouteType == 4, RouteName = ""})
tool:SendSettings()
self:BuildCPanelCustom()
end
elseif tool.Type == 2 then
--local VNotF = vgui.Create("DLabel") VNotF:SetText("Not Finished yet!!")
local VSType = vgui.Create("DComboBox")
VSType:ChooseOption(TypesOfSign[tool.Sign.Type or 1],tool.Sign.Type or 1)
VSType:SetColor(color_black)
for i = 1,#TypesOfSign do
VSType:AddChoice(TypesOfSign[i])
end
VSType.OnSelect = function(_, index, name)
VSType:SetValue(name)
tool.Sign.Type = index
tool:SendSettings()
end
CPanel:AddItem(VSType)
local VYOffT = CPanel:NumSlider("Y Offset:",nil,-100,100,0)
VYOffT:SetValue(tool.Sign.YOffset or 0)
VYOffT.OnValueChanged = function(num)
tool.Sign.YOffset = VYOffT:GetValue()
tool:SendSettings()
end
local VZOffT = CPanel:NumSlider("Z Offset:",nil,-50,50,0)
VZOffT:SetValue(tool.Sign.ZOffset or 0)
VZOffT.OnValueChanged = function(num)
tool.Sign.ZOffset = VZOffT:GetValue()
tool:SendSettings()
end
local VLeftOC = CPanel:CheckBox("Left side(if can be left-side)")
VLeftOC:SetTooltip("Left side")
VLeftOC:SetValue(tool.Sign.Left or false)
function VLeftOC:OnChange()
tool.Sign.Left = self:GetChecked()
tool:SendSettings()
end
elseif tool.Type == 3 then
--local VNotF = vgui.Create("DLabel") VNotF:SetText("Not Finished yet!!")
local VAType = vgui.Create("DComboBox")
CPanel:AddItem(VAType)
VAType:SetColor(color_black)
for i = 1,#TypesOfAuto do
VAType:AddChoice(TypesOfAuto[i])
end
VAType:ChooseOptionID(tool.Auto.Type or 1)
VAType.OnSelect = function(_, index, name)
VAType:SetValue(name)
tool.Auto.Type = index
tool:SendSettings()
tool:BuildCPanelCustom()
end
if tool.Auto.Type == METROSTROI_ACOIL_DOOR then
local VRightOC = CPanel:CheckBox("Right doors")
VRightOC:SetTooltip("Right doors")
VRightOC:SetValue(tool.Auto.Right or false)
function VRightOC:OnChange()
tool.Auto.Right = self:GetChecked()
tool:SendSettings()
end
end
if tool.Auto.Type == METROSTROI_LSENSOR or tool.Auto.Type == METROSTROI_UPPSSENSOR or tool.Auto.Type == METROSTROI_SBPPSENSOR then
local VLXpT = CPanel:NumSlider("X:",nil,0,200,2)
VLXpT:SetValue(tool.Auto.LXp or 0)
VLXpT.OnValueChanged = function(num)
tool.Auto.LXp = VLXpT:GetValue()
tool:SendSettings()
end
end
if tool.Auto.Type ~= 5 then
local VLYpT = CPanel:NumSlider("Y:",nil,-10,10,2)
VLYpT:SetValue(tool.Auto.LYp or 0)
VLYpT.OnValueChanged = function(num)
tool.Auto.LYp = VLYpT:GetValue()
tool:SendSettings()
end
local VLZpT = CPanel:NumSlider("Z:",nil,-10,10,2)
VLZpT:SetValue(tool.Auto.LZp or 0)
VLZpT.OnValueChanged = function(num)
tool.Auto.LZp = VLZpT:GetValue()
tool:SendSettings()
end
end
if tool.Auto.Type == 5 then
local VAPAType = vgui.Create("DComboBox")
CPanel:AddItem(VAPAType)
VAPAType:SetColor(color_black)
VAPAType:AddChoice("OPV")
VAPAType:ChooseOptionID(tool.Auto.PAType or 1)
VAPAType.OnSelect = function(_, index, name)
VAPAType:SetValue(name)
tool.Auto.PAType = index
tool:SendSettings()
tool:BuildCPanelCustom()
end
if tool.Auto.PAType == 1 then
local SPath = CPanel:TextEntry("Station path:")
SPath:SetTooltip("Station path")
SPath:SetValue(tool.Auto.PAStationPath or "")
SPath:SetEnterAllowed(false)
function SPath:OnChange()
local oldval = self:GetValue()
local NewValue = ""
for i = 1,#oldval do
if #NewValue > 0 then break end
NewValue = NewValue..((oldval[i] or ""):upper():match("[%d]") or "")
end
self:SetText(NewValue)
self:SetCaretPos(0)
end
function SPath:OnLoseFocus()
tool.Auto.PAStationPath = self:GetValue()
tool:SendSettings()
end
local SID = CPanel:TextEntry("Station ID:")
SID:SetTooltip("Station index")
SID:SetValue(tool.Auto.PAStationID or "")
SID:SetEnterAllowed(false)
function SID:OnChange()
local oldval = self:GetValue()
local NewValue = ""
for i = 1,#oldval do
NewValue = NewValue..((oldval[i] or ""):upper():match("[%d]+") or "")
end
local oldpos = self:GetCaretPos()
self:SetText(NewValue)
self:SetCaretPos(math.min(#NewValue,oldpos))
end
function SID:OnLoseFocus()
tool.Auto.PAStationID = self:GetValue()
tool:SendSettings()
end
local SLast = CPanel:CheckBox("Last station")
SLast:SetTooltip("Last station")
SLast:SetValue(tool.Auto.PALastStation or false)
function SLast:OnChange()
tool.Auto.PALastStation = self:GetChecked()
tool:SendSettings()
tool:BuildCPanelCustom()
end
if tool.Auto.PALastStation then
local SLWrongPath = CPanel:CheckBox("In wrong path")
SLWrongPath:SetValue(tool.Auto.PAWrongPath or false)
function SLWrongPath:OnChange()
tool.Auto.PAWrongPath = self:GetChecked()
tool:SendSettings()
end
local SLDStart = CPanel:NumSlider("Distance to\ndeadlock start:",nil,0,1024,0)
SLDStart:SetValue(tool.Auto.PADeadlockStart or 128)
SLDStart.OnValueChanged = function(num)
tool.Auto.PADeadlockStart = SLDStart:GetValue()
tool:SendSettings()
end
local SLDEnd = CPanel:NumSlider("Distance to\ndeadlock end:",nil,0,1024,0)
SLDEnd:SetValue(tool.Auto.PADeadlockEnd or 512)
SLDEnd.OnValueChanged = function(num)
tool.Auto.PADeadlockEnd = SLDEnd:GetValue()
tool:SendSettings()
end
local SLLChange = CPanel:CheckBox("Line change")
SLLChange:SetValue(tool.Auto.PALineChange or false)
function SLLChange:OnChange()
tool.Auto.PALineChange = self:GetChecked()
tool:SendSettings()
tool:BuildCPanelCustom()
end
if tool.Auto.PALineChange then
local SLLCLine = CPanel:TextEntry("Line change\nstation path:")
SLLCLine:SetValue(tool.Auto.PALineChangeStationPath or "")
SLLCLine:SetEnterAllowed(false)
function SLLCLine:OnChange()
local oldval = self:GetValue()
local NewValue = ""
for i = 1,#oldval do
if #NewValue > 0 then break end
NewValue = NewValue..((oldval[i] or ""):upper():match("[%d]") or "")
end
self:SetText(NewValue)
self:SetCaretPos(0)
end
function SLLCLine:OnLoseFocus()
tool.Auto.PALineChangeStationPath = self:GetValue()
tool:SendSettings()
end
local SLLCID = CPanel:TextEntry("Line change\nstation ID:")
SLLCID:SetTooltip("Station index")
SLLCID:SetValue(tool.Auto.PALineChangeStationID or "")
SLLCID:SetEnterAllowed(false)
function SLLCID:OnChange()
local oldval = self:GetValue()
local NewValue = ""
for i = 1,#oldval do
NewValue = NewValue..((oldval[i] or ""):upper():match("[%d]+") or "")
end
local oldpos = self:GetCaretPos()
self:SetText(NewValue)
self:SetCaretPos(math.min(#NewValue,oldpos))
end
function SLLCID:OnLoseFocus()
tool.Auto.PALineChangeStationID = self:GetValue()
tool:SendSettings()
end
end
end
local SName = CPanel:TextEntry("Station name:")
SName:SetTooltip("Station name")
SName:SetValue(tool.Auto.PAStationName or "")
SName:SetEnterAllowed(false)
function SName:OnLoseFocus()
tool.Auto.PAStationName = self:GetValue()
tool:SendSettings()
end
if tool.Auto.PALastStation then
local SLName = CPanel:TextEntry("Last station name:")
SLName:SetTooltip("Last station name")
SLName:SetValue(tool.Auto.PALastStationName or "")
SLName:SetEnterAllowed(false)
function SLName:OnLoseFocus()
tool.Auto.PALastStationName = self:GetValue()
tool:SendSettings()
end
end
local SHorlift = CPanel:CheckBox("Has switches:")
SHorlift:SetTooltip("Has switches")
SHorlift:SetValue(tool.Auto.PAStationHasSwtiches or false)
function SHorlift:OnChange()
tool.Auto.PAStationHasSwtiches = self:GetChecked()
tool:SendSettings()
end
local SRDoors = CPanel:CheckBox("Rights doors")
SRDoors:SetTooltip("Rights doors")
SRDoors:SetValue(tool.Auto.PAStationRightDoors or false)
function SRDoors:OnChange()
tool.Auto.PAStationRightDoors = self:GetChecked()
tool:SendSettings()
end
local SHorlift = CPanel:CheckBox("Horlift")
SHorlift:SetTooltip("Horlift")
SHorlift:SetValue(tool.Auto.PAStationHorlift or false)
function SHorlift:OnChange()
tool.Auto.PAStationHorlift = self:GetChecked()
tool:SendSettings()
end
end
end
if tool.Auto.Type == METROSTROI_SBPPSENSOR then
local VASBPPType = vgui.Create("DComboBox")
CPanel:AddItem(VASBPPType)
VASBPPType:SetColor(color_black)
VASBPPType:AddChoice("ST1")
VASBPPType:AddChoice("ST2")
VASBPPType:AddChoice("OPV")
VASBPPType:AddChoice("OD")
VASBPPType:AddChoice("X2")
VASBPPType:AddChoice("X3")
VASBPPType:AddChoice("TP")
VASBPPType:ChooseOptionID(tool.Auto.SBPPType or 1)
VASBPPType.OnSelect = function(_, index, name)
VASBPPType:SetValue(name)
tool.Auto.SBPPType = index
tool:SendSettings()
tool:BuildCPanelCustom()
end
local SBPPType = tool.Auto.SBPPType or 1
if SBPPType <= 3 then
local SDeadlock = CPanel:CheckBox("Deadlock")
SDeadlock:SetTooltip("Deadlock")
SDeadlock:SetValue(tool.Auto.SBPPDeadlock or false)
function SDeadlock:OnChange()
tool.Auto.SBPPDeadlock = self:GetChecked()
tool:SendSettings()
tool:BuildCPanelCustom()
end
end
if SBPPType == 1 then
local SRPos = CPanel:CheckBox("Rights pos")
SRPos:SetTooltip("Rights pos")
SRPos:SetValue(tool.Auto.LRightP or false)
function SRPos:OnChange()
tool.Auto.LRightP = self:GetChecked()
tool:SendSettings()
end
local SRInvX = CPanel:CheckBox("Invert X")
SRInvX:SetTooltip("Invert X")
SRInvX:SetValue(tool.Auto.LInvX or false)
function SRInvX:OnChange()
tool.Auto.LInvX = self:GetChecked()
tool:SendSettings()
end
end
if 2<= SBPPType and SBPPType <= 3 and not tool.Auto.SBPPDeadlock then
local SPath = CPanel:TextEntry("Station path:")
SPath:SetTooltip("Station path")
SPath:SetValue(tool.Auto.SBPPStationPath or "")
SPath:SetEnterAllowed(false)
function SPath:OnChange()
local oldval = self:GetValue()
local NewValue = ""
for i = 1,#oldval do
if #NewValue > 0 then break end
NewValue = NewValue..((oldval[i] or ""):upper():match("[%d]") or "")
end
self:SetText(NewValue)
self:SetCaretPos(0)
end
function SPath:OnLoseFocus()
tool.Auto.SBPPStationPath = self:GetValue()
tool:SendSettings()
end
local SID = CPanel:TextEntry("Station ID:")
SID:SetTooltip("Station index")
SID:SetValue(tool.Auto.SBPPStationID or "")
SID:SetEnterAllowed(false)
function SID:OnChange()
local oldval = self:GetValue()
local NewValue = ""
for i = 1,#oldval do
NewValue = NewValue..((oldval[i] or ""):upper():match("[%d]+") or "")
end
local oldpos = self:GetCaretPos()
self:SetText(NewValue)
self:SetCaretPos(math.min(#NewValue,oldpos))
end
function SID:OnLoseFocus()
tool.Auto.SBPPStationID = self:GetValue()
tool:SendSettings()
end
end
if SBPPType == 3 then
local SRDoors = CPanel:CheckBox("Rights doors")
SRDoors:SetTooltip("Rights doors")
SRDoors:SetValue(tool.Auto.SBPPRightDoors or false)
function SRDoors:OnChange()
tool.Auto.SBPPRightDoors = self:GetChecked()
tool:SendSettings()
end
local SDriveMode = vgui.Create("DComboBox")
CPanel:AddItem(SDriveMode)
SDriveMode:SetColor(color_black)
SDriveMode:AddChoice("None")
SDriveMode:AddChoice("X2")
SDriveMode:AddChoice("X3")
SDriveMode:ChooseOptionID(tool.Auto.SBPPDriveMode or 1)
SDriveMode.OnSelect = function(_, index, name)
SDriveMode:SetValue(name)
tool.Auto.SBPPDriveMode = index
tool:SendSettings()
end
end
if SBPPType==7 then
local SRK = CPanel:NumSlider("RK Pos:",nil,1,18,0)
SRK:SetValue(tool.Auto.SBPPRK or 0)
SRK.OnValueChanged = function(num)
tool.Auto.SBPPRK = SRK:GetValue()
tool:SendSettings()
end
end
if SBPPType == 3 or SBPPType>=5 then
local STime = CPanel:NumSlider("Work time:",nil,0,120,2)
STime:SetValue(tool.Auto.SBPPWTime or 0)
STime.OnValueChanged = function(num)
tool.Auto.SBPPWTime = STime:GetValue()
tool:SendSettings()
end
end
--[[ local SPath = CPanel:TextEntry("Station path:")
SPath:SetTooltip("Station path")
SPath:SetValue(tool.Auto.PAStationPath or "")
SPath:SetEnterAllowed(false)
function SPath:OnChange()
local oldval = self:GetValue()
local NewValue = ""
for i = 1,#oldval do
if #NewValue > 0 then break end
NewValue = NewValue..((oldval[i] or ""):upper():match("[%d]") or "")
end
self:SetText(NewValue)
self:SetCaretPos(0)
end
function SPath:OnLoseFocus()
tool.Auto.PAStationPath = self:GetValue()
tool:SendSettings()
end
local SID = CPanel:TextEntry("Station ID:")
SID:SetTooltip("Station index")
SID:SetValue(tool.Auto.PAStationID or "")
SID:SetEnterAllowed(false)
function SID:OnChange()
local oldval = self:GetValue()
local NewValue = ""
for i = 1,#oldval do
NewValue = NewValue..((oldval[i] or ""):upper():match("[%d]+") or "")
end
local oldpos = self:GetCaretPos()
self:SetText(NewValue)
self:SetCaretPos(math.min(#NewValue,oldpos))
end
function SID:OnLoseFocus()
tool.Auto.PAStationID = self:GetValue()
tool:SendSettings()
end
local SLast = CPanel:CheckBox("Last station")
SLast:SetTooltip("Last station")
SLast:SetValue(tool.Auto.PALastStation or false)
function SLast:OnChange()
tool.Auto.PALastStation = self:GetChecked()
tool:SendSettings()
tool:BuildCPanelCustom()
end
if tool.Auto.PALastStation then
local SLWrongPath = CPanel:CheckBox("In wrong path")
SLWrongPath:SetValue(tool.Auto.PAWrongPath or false)
function SLWrongPath:OnChange()
tool.Auto.PAWrongPath = self:GetChecked()
tool:SendSettings()
end
local SLDStart = CPanel:NumSlider("Distance to\ndeadlock start:",nil,0,1024,0)
SLDStart:SetValue(tool.Auto.PADeadlockStart or 128)
SLDStart.OnValueChanged = function(num)
tool.Auto.PADeadlockStart = SLDStart:GetValue()
tool:SendSettings()
end
local SLDEnd = CPanel:NumSlider("Distance to\ndeadlock end:",nil,0,1024,0)
SLDEnd:SetValue(tool.Auto.PADeadlockEnd or 512)
SLDEnd.OnValueChanged = function(num)
tool.Auto.PADeadlockEnd = SLDEnd:GetValue()
tool:SendSettings()
end
local SLLChange = CPanel:CheckBox("Line change")
SLLChange:SetValue(tool.Auto.PALineChange or false)
function SLLChange:OnChange()
tool.Auto.PALineChange = self:GetChecked()
tool:SendSettings()
tool:BuildCPanelCustom()
end
if tool.Auto.PALineChange then
local SLLCLine = CPanel:TextEntry("Line change\nstation path:")
SLLCLine:SetValue(tool.Auto.PALineChangeStationPath or "")
SLLCLine:SetEnterAllowed(false)
function SLLCLine:OnChange()
local oldval = self:GetValue()
local NewValue = ""
for i = 1,#oldval do
if #NewValue > 0 then break end
NewValue = NewValue..((oldval[i] or ""):upper():match("[%d]") or "")
end
self:SetText(NewValue)
self:SetCaretPos(0)
end
function SLLCLine:OnLoseFocus()
tool.Auto.PALineChangeStationPath = self:GetValue()
tool:SendSettings()
end
local SLLCID = CPanel:TextEntry("Line change\nstation ID:")
SLLCID:SetTooltip("Station index")
SLLCID:SetValue(tool.Auto.PALineChangeStationID or "")
SLLCID:SetEnterAllowed(false)
function SLLCID:OnChange()
local oldval = self:GetValue()
local NewValue = ""
for i = 1,#oldval do
NewValue = NewValue..((oldval[i] or ""):upper():match("[%d]+") or "")
end
local oldpos = self:GetCaretPos()
self:SetText(NewValue)
self:SetCaretPos(math.min(#NewValue,oldpos))
end
function SLLCID:OnLoseFocus()
tool.Auto.PALineChangeStationID = self:GetValue()
tool:SendSettings()
end
end
end
local SName = CPanel:TextEntry("Station name:")
SName:SetTooltip("Station name")
SName:SetValue(tool.Auto.PAStationName or "")
SName:SetEnterAllowed(false)
function SName:OnLoseFocus()
tool.Auto.PAStationName = self:GetValue()
tool:SendSettings()
end
if tool.Auto.PALastStation then
local SLName = CPanel:TextEntry("Last station name:")
SLName:SetTooltip("Last station name")
SLName:SetValue(tool.Auto.PALastStationName or "")
SLName:SetEnterAllowed(false)
function SLName:OnLoseFocus()
tool.Auto.PALastStationName = self:GetValue()
tool:SendSettings()
end
end
local SHorlift = CPanel:CheckBox("Has switches:")
SHorlift:SetTooltip("Has switches")
SHorlift:SetValue(tool.Auto.PAStationHasSwtiches or false)
function SHorlift:OnChange()
tool.Auto.PAStationHasSwtiches = self:GetChecked()
tool:SendSettings()
end
local SRDoors = CPanel:CheckBox("Rights doors")
SRDoors:SetTooltip("Rights doors")
SRDoors:SetValue(tool.Auto.PAStationRightDoors or false)
function SRDoors:OnChange()
tool.Auto.PAStationRightDoors = self:GetChecked()
tool:SendSettings()
end
local SHorlift = CPanel:CheckBox("Horlift")
SHorlift:SetTooltip("Horlift")
SHorlift:SetValue(tool.Auto.PAStationHorlift or false)
function SHorlift:OnChange()
tool.Auto.PAStationHorlift = self:GetChecked()
tool:SendSettings()
end
end--]]
end
if tool.Auto.Type == METROSTROI_ACOIL_DRIVE then
local VRightOC = CPanel:CheckBox("Right")
VRightOC:SetTooltip("Right")
VRightOC:SetValue(tool.Auto.Right or false)
function VRightOC:OnChange()
tool.Auto.Right = self:GetChecked()
tool:SendSettings()
end
local VADist = vgui.Create("DComboBox")
CPanel:AddItem(VADist)
VADist:SetColor(color_black)
VADist:AddChoice("5 m")
VADist:AddChoice("20 m")
VADist:AddChoice("50 m")
VADist:ChooseOptionID(tool.Auto.Dist or 1)
VADist.OnSelect = function(_, index, name)
VADist:SetValue(name)
tool.Auto.Dist = index
tool:SendSettings()
end
local VAMode = vgui.Create("DComboBox")
CPanel:AddItem(VAMode)
VAMode:SetColor(color_black)
VAMode:AddChoice("X-2")
VAMode:AddChoice("X-3")
VAMode:AddChoice("X-2 Station")
VAMode:AddChoice("X-3 Station")
VAMode:AddChoice("0")
VAMode:AddChoice("0 Regulated")
VAMode:AddChoice("T")
--VAMode:AddChoice("T-1a")
VAMode:ChooseOptionID(tool.Auto.Mode or 1)
VAMode.OnSelect = function(_, index, name)
VAMode:SetValue(name)
tool.Auto.Mode = index
tool:SendSettings()
tool:BuildCPanelCustom()
end
if tool.Auto.Mode == 3 or tool.Auto.Mode == 4 then
local SID,VSIDN = CPanel:TextEntry("Station ID:")
SID:SetTooltip("Station index")
SID:SetValue(tool.Auto.StationID or "")
SID:SetEnterAllowed(false)
function SID:OnChange()
local oldval = self:GetValue()
local NewValue = ""
for i = 1,#oldval do
NewValue = NewValue..((oldval[i] or ""):upper():match("[%d]+") or "")
end
local oldpos = self:GetCaretPos()
self:SetText(NewValue)
self:SetCaretPos(math.min(#NewValue,oldpos))
end
function SID:OnLoseFocus()
tool.Auto.StationID = self:GetValue()
tool:SendSettings()
end
local SPath,VSPathN = CPanel:TextEntry("Station path:")
SPath:SetTooltip("Station path")
SPath:SetValue(tool.Auto.StationPath or "")
SPath:SetEnterAllowed(false)
function SPath:OnChange()
local oldval = self:GetValue()
local NewValue = ""
for i = 1,#oldval do
if #NewValue > 0 then break end
NewValue = NewValue..((oldval[i] or ""):upper():match("[%d]") or "")
end
self:SetText(NewValue)
self:SetCaretPos(0)
end
function SPath:OnLoseFocus()
tool.Auto.StationPath = self:GetValue()
tool:SendSettings()
end
end
end
if tool.Auto.Type == METROSTROI_UPPSSENSOR then
local VRollT = CPanel:NumSlider("Roll:",nil,-180,180,0)
VRollT:SetValue(tool.Auto.Roll or 0)
VRollT.OnValueChanged = function(num)
tool.Auto.Roll = VRollT:GetValue()
tool:SendSettings()
end
end
end
end
TOOL.NotBuilt = true
function TOOL:Think()
if CLIENT and (self.NotBuilt or NeedUpdate) then
self.Signal = self.Signal or util.JSONToTable(string.Replace(GetConVarString("signalling_signaldata"),"'","\"")) or {}
self.Sign = self.Sign or util.JSONToTable(string.Replace(GetConVarString("signalling_signdata"),"'","\"")) or {}
self.Auto = self.Auto or util.JSONToTable(string.Replace(GetConVarString("signalling_autodata"),"'","\"")) or {}
self:SendSettings()
self:BuildCPanelCustom()
self.NotBuilt = nil
NeedUpdate = nil
end
end
function TOOL.BuildCPanel(panel)
panel:AddControl("Header", { Text = "#Tool.signalling.name", Description = "#Tool.signalling.desc" })
if not self then return end
self:BuildCPanelCustom()
end
View Git Blame Copy Permalink