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

init

Browse Source
This commit is contained in:
g_brzhezinskiy
2021-01-02 12:51:45 +03:00
commit 1d05caf866
613 changed files with 337020 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

458
lua/entities/gmod_track_arm/cl_init.lua Normal file
View File

@@ -0,0 +1,458 @@
include("shared.lua")
--------------------------------------------------------------------------------
ENT.ClientProps = {}
ENT.ButtonMap = {}
ENT.AutoAnims = {}
ENT.AutoAnimNames = {}
ENT.ClientSounds = {}
ENT.ClientPropsInitialized = false
ENT.ButtonMap["ARM"] = {
pos = Vector(-4.9,9.1,50.3),
ang = Angle(0,-90-1,90),
width = 800,
height = 600,
scale = 0.02*1.2,
mouse = true
}
ENT.ClientProps["ARMPK"] = {
model = "models/cyber_metrostroi/pc_arm/pc_screen.mdl",
pos = Vector(-5,0,31.2),
ang = Angle(0,180,0),
bscale = Vector(4/3,1,1),
}
ENT.ClientProps["ARMMonitor"] = {
model = "models/cyber_metrostroi/pc_arm/pc_body.mdl",
pos = Vector(-5,15,0),
ang = Angle(0,180,0),
bscale = Vector(4/3,1,1),
}
ENT.ClientProps["ARMKeyboard"] = {
model = "models/cyber_metrostroi/pc_arm/pc_keyboard.mdl",
pos = Vector(-15,-2,31),
ang = Angle(0,180,0),
}
ENT.ClientProps["ARMMouse"] = {
model = "models/cyber_metrostroi/pc_arm/pc_mouse.mdl",
pos = Vector(-18,-20,32),
ang = Angle(0,180,0),
}
ENT.ClientProps["ARMBreen"] = {
model = "models/props_combine/breenglobe.mdl",
pos = Vector(-11,30,39.5),
ang = Angle(0,-180+45,0),
}
function ENT:Initialize()
self.BaseClass.Initialize(self)
self.ARM = self:CreateRT("ARM",1024,1024)
for k,v in pairs(self.Types) do
for i,tex in pairs(v) do
if type(tex) == "table" and type(tex[1]) == "string" then
tex.mat = surface.GetTextureID(tex[1])
end
end
end
end
function ENT:CamMoved()
self:HandleMouse(false)
gui.EnableScreenClicker(self.CurrentCamera ~= 0)
end
function ENT:Think()
self.BaseClass.Think(self)
if not self.RenderClientEnts or self.CreatingCSEnts then
return
end
if not self.ARM then return end
--self.MouseX = 0
--self.MouseY = 0
self.MouseX = self:GetNW2Int("CursorX",0)
self.MouseY = self:GetNW2Int("CursorY",0)
render.PushRenderTarget(self.ARM,0,0,1024, 1024)
render.Clear(0, 0, 0, 0)
cam.Start2D()
render.OverrideAlphaWriteEnable(true, true)
surface.SetDrawColor(0,0,0)
surface.DrawRect(0,0,800,600)
self:ARMMonitor()
cam.End2D()
render.PopRenderTarget()
end
function ENT:Draw()
self.BaseClass.Draw(self)
end
function ENT:DrawPost()
self.RTMaterial:SetTexture("$basetexture", self.ARM)
self:DrawOnPanel("ARM",function(...)
surface.SetMaterial(self.RTMaterial)
surface.SetDrawColor(255,255,255)
surface.DrawTexturedRectRotated(512,512,1024,1024,0)
end)
end
local gray = Color(100,100,100)
local black = Color(0,0,0)
local white = Color(150,150,150)
local green = Color(0,50,0)
local function GetTextures(segm,typ)
return segm[typ],segm.maintex or segm[typ]
end
--Get texture Width and Height
local function GetWH(segm,typ)
local tex,dtex = GetTextures(segm,typ)
return tex.w or dtex.w,tex.h or dtex.h
end
--Get real(original) texture Width and Height
local function GetRWH(segm,typ)
local tex,dtex = GetTextures(segm,typ)
return tex.rw or dtex.rw,tex.rh or dtex.rh
end
--Get X and Y adds
local function GetXYA(segm,typ)
local tex,dtex = GetTextures(segm,typ)
return tex.xa or dtex.xa or 0,tex.ya or dtex.ya or 0
end
local function GetXY(x,y)
return 100+x*36,100+y*70
end
local function drawSegment(w,h,u0,v0,u1,v1,segm,typ,align)
--local segm = self.Types[typ]
if not segm or not segm[typ] then return end
local tex,dtex = GetTextures(segm,typ)
if dtex.mat then
local sx,sy = GetXY(w,h)
local sw,sh = GetWH(segm,typ)
local sxa = tex.x or dtex.x or 0
local xa,ya = GetXYA(segm,typ)
local rw,rh = GetRWH(segm,typ)
surface.SetDrawColor(tex.col or dtex.col or white)
surface.SetTexture(tex.mat or dtex.mat)
surface.DrawTexturedRectUV(sx+xa+sxa*u0,sy+ya-(rh-8)*v0,rw,rh,(rw/sw)*u0,(rh/sh)*v0,(rw/sw)*u1,(rh/sh)*v1)
end
end
local function drawElement(sx,sy,u0,v0,u1,v1,segm,typ,col)
--local segm = self.Types[typ]
if not segm or not segm[typ] then return end
local tex = segm[typ]
local dtex = segm.maintex or tex
--local sx,sy = 100+w*36,100+h*70
local sw,sh = tex.w or dtex.w,tex.h or dtex.h
local sxa = tex.x or dtex.x or 0
local xa,ya = tex.xa or dtex.xa or 0,tex.ya or dtex.ya or 0
local rw,rh = tex.rw or dtex.rw,tex.rh or dtex.rh
surface.SetDrawColor(col or tex.col or dtex.col or white)
surface.SetTexture(tex.mat or dtex.mat)
surface.DrawTexturedRectUV(sx+xa+sxa*u0,sy+ya-(rh-8)*v0 ,rw,rh,(rw/sw)*u0,(rh/sh)*v0,(rw/sw)*u1,(rh/sh)*v1)
end
local mouse = surface.GetTextureID("gui/info")
local function createFont(name,font,size,weight)
surface.CreateFont("Metrostroi_"..name, {
font = font,
size = size,
weight = weight or 400,
blursize = 0,
antialias = true,
underline = false,
italic = false,
strikeout = false,
symbol = false,
rotary = false,
shadow = false,
additive = false,
outline = false,
extended = true,
})
end
createFont("Arial10","Arial",10,400)
createFont("Arial11","Arial",11,400)
createFont("Arial13","Arial",13,400)
createFont("Arial15","Arial",15,400)
createFont("Arial15B","Arial",15,800)
createFont("Arial20","Arial",20,800)
local colorConverter = {
r = Color(0,0,0),
y = Color(240,240,71),
g = Color(41,202,26),
b = Color(26,84,202),
w = Color(255,255,255),
}
local function GetSegmPos(segm,alt)
local x,y = segm.x,segm.y
local segmt = segm.segm
local u0,v0,u1,v1 = 0,0,1,1
if segm.invertX then u0,u1 = 1,0 end
if segm.invertY then v0,v1 = 1,0 end
if alt == nil then
return GetXY(x+segm.width*u0,y)
elseif alt == false and segmt.next_m then
return GetXY(x+segmt.next_m.x-segm.width*u0,y+segmt.next_m.y)
--print(123,x,y)
elseif alt and segmt.next_a then
return GetXY(x+segmt.next_a.x*u1-segmt.next_a.x*u0+segmt.width*u0,y+segmt.next_a.y*v1-segmt.next_a.y*v0)
end
end
function ENT:ARMMonitor()
if self.FilterMag then
render.PopFilterMag()
render.PopFilterMin()
end
render.PushFilterMag( TEXFILTER.POINT )
render.PushFilterMin( TEXFILTER.POINT )
self.FilterMag = true
surface.SetDrawColor(gray)
surface.DrawRect(0,0,800,600)
local station = self:GetNW2Int("ARM:Station",0)
--draw.SimpleText("АРМ ДЫЫСЦЫПЫ","Metrostroi_BUKPSpeed",400, 300,Color(220,0,0),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER)
if station > 0 and Metrostroi.ARMConfigGenerated and Metrostroi.ARMConfigGenerated[station] then
local armTable = Metrostroi.ARMConfigGenerated[station]
for id,segm in ipairs(armTable) do
local u0,v0,u1,v1 = 0,0,1,1
if segm.invertX then u0,u1 = 1,0 end
if segm.invertY then v0,v1 = 1,0 end
drawSegment(segm.x,segm.y,u0,v0,u1,v1,segm.segm,"maintex")
end
local w,h = 0,0
for id,segm in ipairs(armTable) do
local u0,v0,u1,v1 = 0,0,1,1
if segm.invertX then u0,u1 = 1,0 end
if segm.invertY then v0,v1 = 1,0 end
if Metrostroi.GetARMInfo(station,id,"occup2") then
drawSegment(segm.x,segm.y,u0,v0,u1,v1,segm.segm,"occup_x")
end
if Metrostroi.GetARMInfo(station,id,"switch_m") then
if Metrostroi.GetARMInfo(station,id,"occup") then drawSegment(segm.x,segm.y,u0,v0,u1,v1,segm.segm,"occup_m")
elseif Metrostroi.GetARMInfo(station,id,"route") then drawSegment(segm.x,segm.y,u0,v0,u1,v1,segm.segm,"route_m") end
drawSegment(segm.x,segm.y,u0,v0,u1,v1,segm.segm,"switch_m")
elseif Metrostroi.GetARMInfo(station,id,"switch_a") then
if Metrostroi.GetARMInfo(station,id,"occup") then drawSegment(segm.x,segm.y,u0,v0,u1,v1,segm.segm,"occup_a")
elseif Metrostroi.GetARMInfo(station,id,"route") then drawSegment(segm.x,segm.y,u0,v0,u1,v1,segm.segm,"route_a") end
drawSegment(segm.x,segm.y,u0,v0,u1,v1,segm.segm,"switch_a")
elseif Metrostroi.GetARMInfo(station,id,"switch_na") then
if Metrostroi.GetARMInfo(station,id,"occup") then
drawSegment(segm.x,segm.y,u0,v0,u1,v1,segm.segm,"occup_m")
drawSegment(segm.x,segm.y,u0,v0,u1,v1,segm.segm,"occup_a")
end
drawSegment(segm.x,segm.y,u0,v0,u1,v1,segm.segm,"switch_an")
drawSegment(segm.x,segm.y,u0,v0,u1,v1,segm.segm,"switch_mn")
else
if Metrostroi.GetARMInfo(station,id,"occup") then drawSegment(segm.x,segm.y,u0,v0,u1,v1,segm.segm,"occup_m")
elseif Metrostroi.GetARMInfo(station,id,"route") then drawSegment(segm.x,segm.y,u0,v0,u1,v1,segm.segm,"route_m") end
end
if segm.signal1 then
local sig = segm.signal1
local typ = self.Types["tl_"..sig.type]
local x,y = 100+(segm.x+segm.width)*36,100+segm.y*70-(sig.top and -26 or 15)
local rw,rh = GetRWH(typ,"maintex")
local sx,sy = x-rw-2,y-rh-2
draw.SimpleText(sig.name,"Metrostroi_Arial10",x, y-(sig.top and -7 or 15),Color(0,0,0),TEXT_ALIGN_RIGHT,TEXT_ALIGN_BOTTOM)
drawElement(sx,sy,0,0,1,1,typ,"maintex")
local colors = Metrostroi.GetARMInfo(station,id,"signal1") or ""
if sig.type > 1 and Metrostroi.GetARMInfo(station,id,"signal1I") then
drawElement(sx+13*(sig.type-1),sy,0,0,1,1,typ,"full",colorConverter.w)
end
if sig.type > 2 and Metrostroi.GetARMInfo(station,id,"signal1Y") then
drawElement(sx+13*(sig.type-2),sy,0,0,1,1,typ,"full",colorConverter.y)
end
if colors ~= "" and #colors == 1 then
local color = colors:lower()
drawElement(sx,sy,0,0,1,1,typ,"full",colorConverter[color] or Color(0,0,0))
elseif colors ~= "" and #colors == 2 then
local color = colors:lower()
drawElement(sx,sy,0,0,1,1,typ,"h1",colorConverter[color[1]] or Color(0,0,0))
drawElement(sx,sy,0,0,1,1,typ,"h2",colorConverter[color[2]] or Color(0,0,0))
end
end
if segm.signal2 then
local sig = segm.signal2
local typ = self.Types["tl_"..sig.type]
local rw,rh = GetRWH(typ,"maintex")
local x,y = 100+(segm.x)*36+2,100+segm.y*70+(sig.top and -38 or 3)
local sx,sy = x-1,y+rh
draw.SimpleText(sig.name,"Metrostroi_Arial10",x, y+(sig.top and -2 or 20),Color(0,0,0),TEXT_ALIGN_LEFT,TEXT_ALIGN_TOP)
drawElement(sx,sy,1,1,0,0,typ,"maintex")
local colors = Metrostroi.GetARMInfo(station,id,"signal2") or ""
if sig.type > 1 and Metrostroi.GetARMInfo(station,id,"signal2I") then
drawElement(sx+rw-12-13*(sig.type-1),sy,1,1,0,0,typ,"full",colorConverter.w)
end
if sig.type > 2 and Metrostroi.GetARMInfo(station,id,"signal2Y") then
drawElement(sx+rw-12-13*(sig.type-2),sy,1,1,0,0,typ,"full",colorConverter.y)
end
if colors ~= "" and #colors == 1 then
local color = colors:lower()
drawElement(sx+rw-12,sy,1,1,0,0,typ,"full",colorConverter[color] or Color(0,0,0))
elseif colors ~= "" and #colors == 2 then
local color = colors:lower()
drawElement(sx+rw-12,sy,1,1,0,0,typ,"h1",colorConverter[color[1]] or Color(0,0,0))
drawElement(sx+rw-12,sy,1,1,0,0,typ,"h2",colorConverter[color[2]] or Color(0,0,0))
end
end
end
for id,obj in ipairs(armTable.objects) do
if obj.type=="b" then
local x1,y1 = GetXY(obj.x1,obj.y1)
local x2,y2 = GetXY(obj.x2,obj.y2)
local w,h = x2-x1,y2-y1
--Metrostroi.DrawRectOL(x1,y1,x2-x1,y2-y1,Color(255,255,255),2,Color(200,200,200))
surface.SetDrawColor(200,200,200)
surface.DrawRect(x1,y1,w,h)
surface.SetDrawColor(255,255,255)
surface.DrawOutlinedRect(x1,y1,w,h)
surface.SetFont("Metrostroi_Arial20")
local fw,fh = 0,0
local rows = string.Explode("\n",obj.name)
for _,text in ipairs(rows) do
local w,h = surface.GetTextSize(text)
fw,fh = math.max(w,fw),math.max(h,fh)
end
for i=#rows,1,-1 do
local x,y = x1+w/2,y1+h/2+(i-1)*20-(#rows-1)*20/2
surface.SetDrawColor(150,150,150)
surface.DrawRect(x-fw/2-5,y-fh/2-5,fw+10,fh+10)
draw.SimpleText(rows[i],"Metrostroi_Arial20",x, y,Color(40,40,40),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER)
end
end
if obj.type=="cl" then
local x,y = GetXY(obj.x,obj.y)
if obj.right then x = x-50 y = y-30 end
--Metrostroi.DrawRectOL(x1,y1,x2-x1,y2-y1,Color(255,255,255),2,Color(200,200,200))
surface.SetDrawColor(60,60,60)
surface.DrawRect(x,y,50,30)
draw.SimpleText(Format("%02d:%02d",23,30),"Metrostroi_Arial15",x+4, y+4,Color(150,255,50),TEXT_ALIGN_LEFT,TEXT_ALIGN_TOP)
end
end
for id,button in ipairs(armTable.buttons) do
local sx,sy = 100+button.x*36,100+button.y*70
local sw,sh = 15,25
local xa,ya = 3,12
if button.type=="r" then
sw,sh = 15,25
xa,ya = 3,12
end
if button.type=="pn" then
sw,sh = 15,15
xa,ya = -sw/2,-sh/2
end
if button.type=="rn" then
surface.SetFont("Metrostroi_Arial15")
local w,h = surface.GetTextSize(button.name)
sw,sh = w+9,15
xa,ya = -sw/2,-sh/2
end
local x,y = sx+xa,sy+ya
if Metrostroi.GetARMInfo(station,1000+id,"buttonSelected") then
surface.SetDrawColor(Color(80,80,180))
elseif Metrostroi.GetARMInfo(station,1000+id,"buttonPressable") then
surface.SetDrawColor(Color(220,220,220))
else
if button.type=="pn" then
surface.SetDrawColor(Color(20,20,20))
else
surface.SetDrawColor(Color(120,120,120))
end
end
surface.DrawRect(x,y,sw,sh)
Metrostroi.DrawLine(x,y,x,y+sh,Color(240,240,240),2)
Metrostroi.DrawLine(x-1,y,x+sw,y,Color(240,240,240),2)
Metrostroi.DrawLine(x+sw,y,x+sw,y+sh,Color(60,60,60),2)
Metrostroi.DrawLine(x,y+sh,x+sw+1,y+sh,Color(60,60,60),2)
if button.type=="rn" then
draw.SimpleText(button.name,"Metrostroi_Arial15B",x+sw/2, y+sh/2,Color(50,50,50),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER)
end
end
for id,text in ipairs(armTable.info) do
local x,y = 100+text.x*36,100+text.y*70
local w,h = 45,13
if text.col then
surface.SetDrawColor(text.col)
surface.DrawRect(x,y,w,h)
end
draw.SimpleText(text.text,"Metrostroi_Arial13",x+2, y+h/2,Color(50,50,50),TEXT_ALIGN_LEFT,TEXT_ALIGN_CENTER)
Metrostroi.DrawLine(x,y,x,y+h,Color(240,240,240),2)
Metrostroi.DrawLine(x-1,y,x+w,y,Color(240,240,240),2)
Metrostroi.DrawLine(x+w,y,x+w,y+h,Color(60,60,60),2)
Metrostroi.DrawLine(x,y+h,x+w+1,y+h,Color(60,60,60),2)
--[[ if button.type=="rn" then
draw.SimpleText(button.name,"Metrostroi_Arial15B",x+sw/2, y+sh/2,Color(50,50,50),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER)
end--]]
end
end
for i,v in ipairs(Metrostroi.ARMConfigGenerated) do
if i == station then
surface.SetDrawColor(Color(110,140,170))
elseif math.InRangeXYR(self.MouseX,self.MouseY,20+(i-1)*30,20,30,20) then
surface.SetDrawColor(Color(80,110,140))
else
surface.SetDrawColor(Color(100,130,160))
end
surface.DrawRect(20+(i-1)*31,20,30,20)
draw.SimpleText(v.shortname or v.id,"Metrostroi_Arial20",35+(i-1)*31, 30,Color(40,60,170),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER)
end
if station > 0 and Metrostroi.ARMConfigGenerated and Metrostroi.ARMConfigGenerated[station] then
local armTable = Metrostroi.ARMConfigGenerated[station]
for id,segm in ipairs(armTable) do
local u0,v0,u1,v1 = 0,0,1,1
if segm.invertX then u0,u1 = 1,0 end
if segm.invertY then v0,v1 = 1,0 end
---[[ DEBUG
local w,h = GetXY(segm.x+segm.width*u0,segm.y)
surface.SetDrawColor(Color(255,0,0))
surface.DrawLine(w+5*u1-5*u0,h,w,h)
surface.DrawLine(w,h+5,w,h)
local w,h = GetSegmPos(segm,false)
surface.SetDrawColor(Color(255,255,0))
surface.DrawLine(w-6*u1+6*u0,h,w,h)
surface.DrawLine(w,h-6,w,h)
local w,h = GetSegmPos(segm,true)
if w then
surface.SetDrawColor(Color(0,255,0))
surface.DrawLine(w-6*u1+6*u0,h,w,h)
surface.DrawLine(w,h-6*v1+6*v0,w,h)
end
local x,y = 100+(segm.x+segm.width)*36,100+segm.y*70-4
local rw,rh = GetRWH(segm.segm,"maintex")
local sx,sy = x-rw-2,y-rh-2
surface.SetDrawColor(Color(0,0,0,150))
surface.DrawRect(sx,y-7,30,10)
draw.SimpleText(Format("%.1f:%.1f",segm.x,segm.y),"Metrostroi_Arial11",sx, y-2,Color(255,255,50),TEXT_ALIGN_LEFT,TEXT_ALIGN_CENTER)
--]]
end
end
--if self.CurrentCamera == 0 then
surface.SetDrawColor(255,255,255)
surface.SetTexture(mouse)
surface.DrawTexturedRectRotated(self.MouseX,self.MouseY,8,8,0)
--end
surface.SetDrawColor(0,0,0,200)
surface.DrawRect(0,0,800,600)
render.PopFilterMag()
render.PopFilterMin()
self.FilterMag = false
end
Metrostroi.GenerateClientProps()

207
lua/entities/gmod_track_arm/init.lua Normal file
View File

@@ -0,0 +1,207 @@
AddCSLuaFile("cl_init.lua")
AddCSLuaFile("shared.lua")
include("shared.lua")
function ENT:Initialize()
self:SetModel("models/props_combine/breendesk.mdl")
self.BaseClass.Initialize(self)
self.DriverSeat = self:CreateSeat("driver", Vector(-40, 0, 0), Angle(0, 0, 0), "models//nova/chair_office02.mdl")
self.CursorX = 0
self.CursorY = 0
self:CursorMove(0, 0)
self.Station = 0
end
hook.Add("AcceptInput", "metrostroi_arm_trigger_check", function(ent, inputName, activator, called, data)
if inputName == "ARMStartTouch" then
called.ARMTriggered = true
print(called, called:GetName(), activator, "Enable")
end
if inputName == "ARMEndTouch" then
called.ARMTriggered = false
print(called, called:GetName(), activator, "Disable")
end
end)
local function GetOccupation(tbl)
for sID,signame in ipairs(tbl) do
if signame[1] == "@" then
local trigger = Metrostroi.ARMGet(signame:sub(2,-1), "trigger")
if not trigger or trigger.ARMTriggered then
return true
end
elseif signame ~= "" then
local signal = Metrostroi.ARMGet(signame, "signal")
if not signal or signal.OccupiedBy and signal.OccupiedBy ~= signal then
return true
end
end
end
return false
end
function ENT:Think()
local armTbl = Metrostroi.ARMTable
local armConf = Metrostroi.ARMConfigGenerated
local station = armConf[self.Station]
local armTblStation = armTbl[self.Station]
if not station then return end
if not armTblStation or (IsValid(armTblStation.Controller) and armTblStation.Controller ~= self) then return end
armTblStation.Controller = self
for buttonID,button in ipairs(station.buttons) do
--print(button,button.selected)
Metrostroi.ARMSync(self.Station, 1000+buttonID, "buttonPressable",button.pressable)
Metrostroi.ARMSync(self.Station, 1000+buttonID, "buttonSelected",button.selected)
end
for segmID, segm in ipairs(station) do
if type(segm) == "table" then
if segm.occup then
Metrostroi.ARMSync(self.Station, segmID, "occup", segm.occupied)
end
if segm.occup2 then
Metrostroi.ARMSync(self.Station, segmID, "occup2", segm._occup or GetOccupation(segm.occup2))
end
Metrostroi.ARMSync(self.Station, segmID, "route", segm.route and true)
if segm.switch then
local switch = Metrostroi.ARMGet(segm.switch, "switch")
local main = switch and switch.MainTrack and not switch.AlternateTrack
local alt = switch and not switch.MainTrack and switch.AlternateTrack
Metrostroi.ARMSync(self.Station, segmID, "switch_m", main)
Metrostroi.ARMSync(self.Station, segmID, "switch_a", alt)
Metrostroi.ARMSync(self.Station, segmID, "switch_na", not main and not alt)
end
if segm.signal1 then
local signal = Metrostroi.ARMGet(segm.signal1.name, "signal")
local colors = signal and signal.Colors
if segm.signal1.type > 1 then Metrostroi.ARMSync(self.Station, segmID, "signal1I", signal and signal.InvationSignal) end
if segm.signal1.type > 2 and colors then
local Y = #colors:gsub("[^yY]","") > 1
if Y then colors = colors:SetChar(colors:find("[yY]"),"") end
Metrostroi.ARMSync(self.Station, segmID, "signal1Y", Y)
end
Metrostroi.ARMSync(self.Station, segmID, "signal1", colors)
end
if segm.signal2 then
local signal = Metrostroi.ARMGet(segm.signal2.name, "signal")
local colors = signal and signal.Colors
if segm.signal2.type > 1 then Metrostroi.ARMSync(self.Station, segmID, "signal2I", signal and signal.InvationSignal) end
if segm.signal2.type > 2 and colors then
local Y = #colors:gsub("[^yY]","") > 1
if Y then colors = colors:SetChar(colors:find("[yY]"),"") end
Metrostroi.ARMSync(self.Station, segmID, "signal2Y", Y)
end
Metrostroi.ARMSync(self.Station, segmID, "signal2", colors)
end
end
end
self:NextThink(CurTime() + 0.5)
return true
end
function ENT:OnRemove()
end
function ENT:CursorMove(sys, dX, dY)
self.CursorX = sys == "" and math.Clamp(self.CursorX + dX * 200, 0, 800) or dX
self.CursorY = sys == "" and math.Clamp(self.CursorY + dY * 200, 0, 600) or dY
self:SetNW2Int("CursorX", math.floor(self.CursorX or 0))
self:SetNW2Int("CursorY", math.floor(self.CursorY or 0))
end
local function GetTextures(segm,typ)
return segm[typ],segm.maintex or segm[typ]
end
--Get real(original) texture Width and Height
local function GetRWH(segm,typ)
local tex,dtex = GetTextures(segm,typ)
return tex.rw or dtex.rw,tex.rh or dtex.rh
end
local function GetXY(x,y)
return 100+x*36,100+y*70
end
function ENT:RouteButtonPressed(button)
--if not button.routes then return end
if self.RouteChoosing then
for k,v in ipairs(self.RouteChoosing.routes) do
if v.endButtons and table.HasValue(v.endButtons,button) then
Metrostroi.CentralisationPrepareRoute(self.Station,v)
break
end
end
elseif button.routes and not self.RouteChoosing and button.pressable then
self.RouteChoosing = button
for _,route in ipairs(self.RouteChoosing.routes) do
print(route.endButtons)
if not route.endButtons then continue end
for _,b in ipairs(route.endButtons) do b.selected = true end
end
end
end
function ENT:PanelTouch(state--[[ , x, y--]] )
for i, v in ipairs(Metrostroi.ARMConfig) do
if math.InRangeXYR(self.CursorX, self.CursorY, 20 + (i - 1) * 30, 20, 30, 20) then
self.Station = i
self:SetNW2Int("ARM:Station", i)
end
end
if not state then return end
local ResetRoute = false
if self.RouteChoosing then
for _,route in ipairs(self.RouteChoosing.routes) do
if not route.endButtons then continue end
for _,b in ipairs(route.endButtons) do b.selected = false end
end
ResetRoute = true
end
--[[ local RouteChoosing = self.RouteChoosing
self.RouteChoosing = nil--]]
local confGenStation = Metrostroi.ARMConfigGenerated[self.Station]
if not confGenStation then return end
for k,button in pairs(confGenStation.buttons) do
local sx,sy = 100+button.x*36,100+button.y*70
if button.type == "r" and math.InRangeXYR(self.CursorX, self.CursorY, sx+3,sy+12,15,25) then
self:RouteButtonPressed(button)
--[[ local sw,sh = 15,25
local xa,ya = 3,12
local x,y = sx+xa,sy+ya math.InRangeXYR(self.CursorX, self.CursorY, x,y,sw,sh)
if RouteChoosing then
if math.InRangeXYR(self.CursorX, self.CursorY, x,y,sw,sh) then
for k,v in ipairs(RouteChoosing.routes) do
if k == Format("%s-%s",button.name,v.name) then
Metrostroi.CentralisationPrepareRoute(self.Station,v)
end
end
end
elseif not self.RouteChoosing and button.pressable then
if math.InRangeXYR(self.CursorX, self.CursorY, x,y,sw,sh) then
self.RouteChoosing = button
for k,v in ipairs(button.routes) do
if v.buttonend then
v.buttonend.selected = true
end
end
end
end--]]
end
end
if not self.RouteChoosing then
for k,segm in ipairs(confGenStation) do
local x,y = GetXY(segm.x,segm.y)
local w,h = GetRWH(segm.segm,"maintex")
if math.InRangeXYR(self.CursorX, self.CursorY, x,y,w,h) then
segm._occup = not segm._occup
print(segm)
end
end
end
if ResetRoute then self.RouteChoosing = nil end
end

836
lua/entities/gmod_track_arm/shared.lua Normal file
View File

@@ -0,0 +1,836 @@
ENT.Type = "anim"
--Inherit subway base for some need functions
ENT.Base = "gmod_subway_base"
ENT.NoTrain = true
ENT.Category = "Metrostroi"
ENT.Spawnable = false
ENT.AdminSpawnable = true
ENT.Cameras = {
{Vector(-18+3,0,43+2),Angle(0,0,0),"Common.ARM.Monitor1",true},
}
ENT.Types = {
--Main segments
[0.25]={
maintex = {"metrostroi_arm/sec025",w=8,h=8,rw=7,rh=8,},
occup_m = {"metrostroi_arm/sec025_m",col=Color(255,255,255)},
route_m = {"metrostroi_arm/sec025_m",col=Color(39,103,63)},
width = 0.25,
next_m = {x=0.25,y=0}
},
[0.5]={
maintex = {"metrostroi_arm/sec05",w=16,h=8,rw=16,rh=8,},
occup_m = {"metrostroi_arm/sec05_m",col=Color(255,255,255)},
route_m = {"metrostroi_arm/sec05_m",col=Color(39,103,63)},
width = 0.5,
next_m = {x=0.5,y=0}
},
[1]={
maintex = {"metrostroi_arm/sec1",w=64,h=8,rw=34,rh=8,},
occup_m = {"metrostroi_arm/sec1_m",col=Color(255,255,255)},
route_m = {"metrostroi_arm/sec1_m",col=Color(39,103,63)},
width = 1,
next_m = {x=1,y=0}
},
[2]={
maintex = {"metrostroi_arm/sec2",w=128,h=8,rw=70,rh=8,},
occup_m = {"metrostroi_arm/sec2_m",col=Color(255,255,255)},
route_m = {"metrostroi_arm/sec2_m",col=Color(39,103,63)},
width = 2,
next_m = {x=2,y=0}
},
[3]={
maintex = {"metrostroi_arm/sec3",w=128,h=8,rw=106,rh=8,},
occup_m = {"metrostroi_arm/sec3_m",col=Color(255,255,255)},
route_m = {"metrostroi_arm/sec3_m",col=Color(39,103,63)},
width = 3,
next_m = {x=3,y=0}
},
[4]={
maintex = {"metrostroi_arm/sec4",w=256,h=8,rw=142,rh=8,},
occup_m = {"metrostroi_arm/sec4_m",col=Color(255,255,255)},
route_m = {"metrostroi_arm/sec4_m",col=Color(39,103,63)},
width = 4,
next_m = {x=4,y=0}
},
[5]={
maintex = {"metrostroi_arm/sec5",w=256,h=8,rw=178,rh=8,},
occup_m = {"metrostroi_arm/sec5_m",col=Color(255,255,255)},
route_m = {"metrostroi_arm/sec5_m",col=Color(39,103,63)},
width = 5,
next_m = {x=5,y=0}
},
--Switches and helpers
sw = {
maintex = {"metrostroi_arm/switch",w=128,h=128,rw=70,rh=78,},
occup_m = {"metrostroi_arm/switch_m",col=Color(255,255,255)},
route_m = {"metrostroi_arm/switch_m",col=Color(39,103,63)},
occup_a = {"metrostroi_arm/switch_a",col=Color(255,255,255)},
route_a = {"metrostroi_arm/switch_a",col=Color(39,103,63)},
switch_m = {"metrostroi_arm/switch_ms",col=Color(41,202,26)},
switch_a = {"metrostroi_arm/switch_as",col=Color(240,240,71)},
switch_mn = {"metrostroi_arm/switch_ms",col=Color(200,50,50)},
switch_an = {"metrostroi_arm/switch_as",col=Color(200,50,50)},
width = 2,
next_m = {x=2,y=0},
next_a = {x=2,y=1},
},
["2sw"] = {
maintex = {"metrostroi_arm/2-switch_half",w=128,h=256,rw=70,rh=143,},
occup_m = {"metrostroi_arm/2-switch_half_m",col=Color(255,255,255)},
route_m = {"metrostroi_arm/2-switch_half_m",col=Color(39,103,63)},
occup_a = {"metrostroi_arm/2-switch_half_a",col=Color(255,255,255)},
route_a = {"metrostroi_arm/2-switch_half_a",col=Color(39,103,63)},
switch_m = {"metrostroi_arm/2-switch_half_ms",col=Color(41,202,26)},
switch_a = {"metrostroi_arm/2-switch_half_as",col=Color(240,240,71)},
switch_mn = {"metrostroi_arm/2-switch_half_as",col=Color(200,50,50)},
switch_an = {"metrostroi_arm/2-switch_half_ms",col=Color(200,50,50)},
width = 2,
next_m = {x=2,y=0},
next_a = {x=2,y=2},
},
["2swm"] = {
maintex = {"metrostroi_arm/2-switch-middle_half",w=128,h=128,rw=70,rh=73,},
occup_m = {"metrostroi_arm/2-switch-middle_half_m",col=Color(255,255,255)},
route_m = {"metrostroi_arm/2-switch-middle_half_m",col=Color(39,103,63)},
occup_a = {"metrostroi_arm/2-switch-middle_half_a",col=Color(255,255,255)},
route_a = {"metrostroi_arm/2-switch-middle_half_a",col=Color(39,103,63)},
switch_m = {"metrostroi_arm/2-switch-middle_half_ms",col=Color(41,202,26)},
switch_a = {"metrostroi_arm/2-switch-middle_half_as",col=Color(240,240,71)},
switch_mn = {"metrostroi_arm/2-switch-middle_half_ms",col=Color(200,50,50)},
switch_an = {"metrostroi_arm/2-switch-middle_half_as",col=Color(200,50,50)},
width = 2,
next_m = {x=2,y=0},
next_a = {x=1.5,y=1},
},
["4sw"] = {
maintex = {"metrostroi_arm/4-switch_quarter",w=128,h=256,rw=73,rh=143,x=-3,},
occup_m = {"metrostroi_arm/4-switch_quarter_m",col=Color(255,255,255)},
route_m = {"metrostroi_arm/4-switch_quarter_m",col=Color(39,103,63)},
occup_a = {"metrostroi_arm/4-switch_quarter_a1",col=Color(255,255,255)},
route_a = {"metrostroi_arm/4-switch_quarter_a1",col=Color(39,103,63)},
occup_x = {"metrostroi_arm/4-switch_quarter_a2",col=Color(255,255,255)},
route_x = {"metrostroi_arm/4-switch_quarter_a2",col=Color(39,103,63)},
switch_m = {"metrostroi_arm/4-switch_quarter_ms",col=Color(41,202,26)},
switch_a = {"metrostroi_arm/4-switch_quarter_as",col=Color(240,240,71)},
switch_mn = {"metrostroi_arm/4-switch_quarter_ms",col=Color(200,50,50)},
switch_an = {"metrostroi_arm/4-switch_quarter_as",col=Color(200,50,50)},
width = 2,
next_m = {x=2,y=0},
next_a = {x=2,y=2},
acc_x = ">",
acc_y = "!",
},
["4sws"] = {
maintex = {"metrostroi_arm/4-switch_quarter_small",w=64,h=128,rw=53,rh=78,x=-1,},
occup_m = {"metrostroi_arm/4-switch_quarter_small_m",col=Color(255,255,255),x=-1,},
route_m = {"metrostroi_arm/4-switch_quarter_small_m",col=Color(39,103,63),x=-1,},
occup_a = {"metrostroi_arm/4-switch_quarter_small_a",col=Color(255,255,255),x=-1,},
route_a = {"metrostroi_arm/4-switch_quarter_small_a",col=Color(39,103,63),x=-1,},
switch_m = {"metrostroi_arm/4-switch_quarter_small_ms",col=Color(41,202,26)},
switch_a = {"metrostroi_arm/4-switch_quarter_small_as",col=Color(240,240,71)},
switch_mn = {"metrostroi_arm/4-switch_quarter_small_ms",col=Color(200,50,50)},
switch_an = {"metrostroi_arm/4-switch_quarter_small_as",col=Color(200,50,50)},
width = 1.5,
next_m = {x=1.5,y=0},
next_a = {x=1.5,y=1},
acc_x = ">",
acc_y = "!",
},
ofd = {
maintex = {"metrostroi_arm/offset_down",w=64,h=256,rw=57,rh=143,},
occup_m = {"metrostroi_arm/offset_down_m",col=Color(255,255,255)},
route_m = {"metrostroi_arm/offset_down_m",col=Color(39,103,63)},
width = 2,
next_m = {x=2,y=2},
},
ofds = {
maintex = {"metrostroi_arm/offsed_down_small",w=128,h=128,rw=70,rh=78,},
occup_m = {"metrostroi_arm/offsed_down_small_m",col=Color(255,255,255)},
route_m = {"metrostroi_arm/offsed_down_small_m",col=Color(39,103,63)},
width = 2,
next_m = {x=2,y=1},
},
ysw = {
maintex = {"metrostroi_arm/y-switch_half",w=128,h=128,rw=70,rh=108,},
occup_m = {"metrostroi_arm/y-switch_half_m",col=Color(255,255,255)},
route_m = {"metrostroi_arm/y-switch_half_m",col=Color(39,103,63)},
occup_a = {"metrostroi_arm/y-switch_half_a",col=Color(255,255,255)},
route_a = {"metrostroi_arm/y-switch_half_a",col=Color(39,103,63)},
switch_m = {"metrostroi_arm/y-switch_half_ms",col=Color(41,202,26)},
switch_a = {"metrostroi_arm/y-switch_half_as",col=Color(240,240,71)},
switch_mn = {"metrostroi_arm/y-switch_half_ms",col=Color(200,50,50)},
switch_an = {"metrostroi_arm/y-switch_half_as",col=Color(200,50,50)},
width = 2,
next_m = {x=2,y=0},
next_a = {x=2,y=1},
},
--Signals
tl_1 = {
maintex = {"metrostroi_arm/tl_1",w=32,h=16,rw=21,rh=13},
full = {"metrostroi_arm/tl_f",w=16,h=16,rw=12,rh=12},
h1 = {"metrostroi_arm/tl_h1",w=16,h=16,rw=12,rh=12},
h2 = {"metrostroi_arm/tl_h2",w=16,h=16,rw=12,rh=12},
},
tl_2 = {
maintex = {"metrostroi_arm/tl_2",w=64,h=16,rw=34,rh=13},
full = {"metrostroi_arm/tl_f",w=16,h=16,rw=12,rh=12},
h1 = {"metrostroi_arm/tl_h1",w=16,h=16,rw=12,rh=12},
h2 = {"metrostroi_arm/tl_h2",w=16,h=16,rw=12,rh=12},
},
tl_3 = {
maintex = {"metrostroi_arm/tl_3",w=64,h=16,rw=47,rh=13},
full = {"metrostroi_arm/tl_f",w=16,h=16,rw=12,rh=12},
h1 = {"metrostroi_arm/tl_h1",w=16,h=16,rw=12,rh=12},
h2 = {"metrostroi_arm/tl_h2",w=16,h=16,rw=12,rh=12},
},
}
if CLIENT then
for i,segm in pairs(ENT.Types) do
for k,tex in pairs(segm) do
if type(tex) ~= "table" or type(tex[1]) ~= "string" then continue end
tex.mat = surface.GetTextureID(tex[1])
end
segm.id = i
end
end
--------------
-- Syntax of table
-- {
-- station = "ID,abbreviation,full name"
-- First line of segments
-- {"segment type:occupation checkers,...,occupation checkers:lights:...:lights"},
-- Second line of segments
-- {x=x indent,skip=y indent(skips y segments vertically),"segment type:occupation checkers main,...,occupation checkers main:occupation checkers alt,...,occupation checkers alt:lights:...:lights"},
-- }
-- segment type can have > or ! on start, when we want mirror it vertically or horisontally
-- Occupation checkers can be triggers(have @ in start of trigger name) or signals
-- Lights can be empty, if we want take light name from occupation checkers
-- Lights can have ! when stay in right direction or !! when stay in opposite direction
-- Lights can have > when we want switch light location from bottom to top
-- Examples
--{
-- station = "001,ST,Station name",
-- {
-- {"1:L1:!","1:L3:!","sw:@sw1trigger:@sw3trigger"}
-- {x=1,"1:L2",">sw:@sw2trigger:@sw3rigger"},
-- }
--}
--------------
Metrostroi.ARMConfig = {
--[=[
{
station = "451,ВБ,Уоллеса брина",
{"0.5:1","0.5:1","0.5:1","0.5:1","1:1","1:1","1:1","sw:1","3:1","3:1"},
{x=7,"0.5:1","4sws:1",">4sws:1","1:1","1:1"},{skip=1},
{x=7,"0.5:1","!4sws:1",">!4sws:1","1:1","1:1"},
{"0.5:1","0.5:1","0.5:1","0.5:1","1:1","1:1","1:1","!sw:1","3:1","3:1"},
},{
station="915,РЧ,Речная",
{x=3.5,"0.5:RX22","1:RX22","1:RX20","0.5:RX98","4sw:::RX1:0",">4sw:::RX3:","1","2","2","1","1"},{skip=3},
{"1:201","0.5:203","0.5:205","0.5:207","0.5:209","0.5:211","0.5:213","1:215","1:217","0.5:219","!4sw:::RX2::!!2RX95",">!4sw:::RX4:","1","2","2","1","1"},
},{
station="110,МД,Международная",
{"1:145//:!1","1:143:!1","1:141//:!1","0.5:RC137","0.5:139M:!1","3:137:!>1","sw:@wt_md_s1:@wt_md_s1:MD1:!!>2D:!>2G","3:@wt_md_t1_1::!2MD3","2:@wt_md_t1_2"},
{x=9,"4sws:@wt_md_s3::MD3",">4sws:@wt_md_s5::MD5:!2MD1","2:@wt_md_t3"},{skip=1},
{x=9,"!4sws:@wt_md_s4::MD4",">!4sws:@wt_md_s6::MD6:!>2MD2","2:@wt_md_t4"},
{"1:MD148:!!2","1:MD146:!!2","1:MD144:!!2","1:MD142:!!2:!1 OP","1:MD140:!!2","1:RC144A","1:RC142","!sw:@wt_md_s2:@wt_md_s2:MD2:!!2MD138G:!1E","3:@wt_md_t2_1::!>2MD4","2:@wt_md_t2_2"},
objects={
{type="b",name="МЕЖДУНАРОДНАЯ",x1=4+0.3,y1=0+0.6,x2=7-0.3,y2=4-0.6,},
{type="cl",path=1,x=4+0.4,y=0+0.65},
{type="cl",path=2,x=7-0.4,y=4-0.65, right=true},
},
buttons = {
{type="r" ,y=4-0.6 ,x=0,name="2I"},
{type="pn",y=4-0.6 ,x=0.3,name="2IA"},
{type="r" ,y=4-0.6 ,x=4,name="OP"},
{type="r" ,y=4 ,x=6+0.4, name="MD138G"},
{type="r" ,y=4-0.6 ,x=9,name="E"},
{type="r" ,y=3 ,x=12,name="4I"},
{type="r" ,y=1-0.6 ,x=12,name="3I"},
{type="r" ,y=0-0.6 ,x=6+0.4, name="D"},
{type="pn",y=0-0.6 ,x=6.7,name="DA"},
{type="r" ,y=0 ,x=9,name="G"},
{type="pn",y=1+0.3 ,x=1.4,name="CPS"},
{type="rn",y=2-0.3 ,x=1.4,name="ГОК"},
{type="pn",y=1+0.3 ,x=2.5,name="CRI"},
{type="rn",y=2-0.3 ,x=2.5,name="ОМО"},
{type="rn",y=1.6 ,x=9,name="АО 3П"},
{type="rn",y=2.4 ,x=9,name="АО 4П"},
},
info= {
{y=4.7,x=6.3,text="ТЕСТ"},
{y=4.7,x=7.65,text="АВ:Х3",col=Color(50,230,50)},
{y=4.95,x=7.65,text="АВ:ДВ",col=Color(50,230,50)},
{y=5.2, x=7.65,text="УПО",col=Color(50,230,50)},
{y=4.7,x=9,text="П1ДЦ",col=Color(255,230,50)},
{y=4.95,x=9,text="П2ДЦ",col=Color(255,230,50)},
},
routes = {
["2I-OP"] = {
signals={"MD148","MD146","MD144","MD142"},mode=1,
first={0,4},last={3,4},
},
["OP-MD138G"] = {
signals={"MD140"},mode=1,
first={4,4},last={6,4},
},
["MD138G-4I"] = {
signals={"MD138G"},mode=3,
first={7,4},last={12,3},
},
["MD138G-3I"] = {
signals={"MD138G"},mode=3,
first={7,4},last={12,1},checks={{9,1},{10.5,3}},
},
["4I-OP"] = {
signals={"MD2"},mode=3,
first={12,3},last={4,4},
},
["3I-OP"] = {
signals={"MD1"},mode=3,
first={12,1},last={4,4},checks={{9,1},{10.5,3}},
},
["MD138G-E"] = {
signals={"MD138G"},mode=3,
first={7,4},last={9,4},
},
["E-MD138G"] = {
signals={"E"},mode=3,
first={7,4},last={4,4},
},
["D-4I"] = {
signals={"D"},mode=3,
first={7,0},last={12,3},checks={{9,3},{10.5,1}},
},
["D-3I"] = {
signals={"D"},mode=3,
first={7,0},last={12,1},
},
["D-G"] = {
signals={"D"},mode=3,
first={7,0},last={9,0},
},
["G-D"] = {
signals={"G"},mode=3, first={7,0},last={4,0},
},
["4I-D"] = {
signals={"MD2"},mode=3,
first={12,3},last={4,0},checks={{9,3},{10.5,1},{3.5,0}},ignore={{12,3}}
},
["3I-D"] = {
signals={"MD1"},mode=3,
first={12,1},last={4,0},checks={{3.5,0}},
},
},
signals = {
--"LensesStr": "YYG-RW",
MD148={
Mode=1, --AB 1/5
R="4",RY="42",Y="1",YG="13",G="3",IS="5", --Lenses ID
Autostop = true,AO = false,bs=3,
},
MD146={
Mode=1, --AB 1/5
R="4",RY="42",Y="1",YG="13",G="3",IS="5", --Lenses ID
Autostop = true,AO = false,bs=3,
},
MD144={
Mode=1, --AB 1/5
R="4",RY="42",Y="1",YG="13",G="3",IS="5", --Lenses ID
Autostop = true,AO = false,bs=3,
},
MD142={
Mode=1, --AB 1/5
R="3",RY="31",Y="1",G="2",IS="4", --Lenses ID
Autostop = true,AO = false,bs=4,
},
MD140={
Mode=1, --AB 1/5
R="4",RY="42",--[[ Y="1",--]] YG="13",IS="5", --Lenses ID
Autostop = true,AO = false,bs=3,
},
MD138G={
Mode=1, --AB 1/5
R="3",RY="32",W="1",IS="4", --Lenses ID
Autostop = true,AO = false,bs=1,
},
MD3={
Mode=1, --AB 1/5
R="1",IS="2",
Autostop = true,AO = false,
},
MD4={
Mode=1, --AB 1/5
R="1",IS="2",
Autostop = true,AO = false,
},
MD1={
Mode=1, --AB 1/5
R="2",W="1",IS="3",
Autostop = true,AO = false,
},
MD2={
Mode=1, --AB 1/5
R="2",W="1",IS="3",
Autostop = true,AO = false,
},
E={
Mode=1, --AB 1/5
R="2",W="1",
Autostop = true,AO = false,
},
G={
Mode=1, --AB 1/5
R="2",W="1",IS="3",
Autostop = true,AO = false,
},
D={
Mode=1, --AB 1/5
R="2",W="1",IS="3",
Autostop = true,AO = false,
},
}
},{
station="112,ПТ,Политехническая",
{x=1,"1:PT2TB","2:PT2TA","2:PT2T:!!2PT2","2:PT4SA:!!2PT4",">2swm:@wt_pt_t4::PT4:!3PT968M:!!2G ","1:PT966A","2:PT966:!>2","sw:@wt_pt_t6::PT6:!>2PT964:!!>3A","1:962"},
{x=15,"1:PT6SS","1:963"},
{x=1,"1:77:!1","1:75:!1","1:73:!1","1:71:!>1",">2swm:@wt_pt_t1::PT1:!!>2B","!2swm:@wt_pt_t3::PT3:!>2PT69","1:PT67M:!2","1:PT65B","1:PT65A","1:PT65:!2","1:PT63:!2:!!1 OP ","1:PT61:!2","1:PT59:!2","1:PT57:!2"},{skip=1},
{"1:PT70:!!2:!1 OP2 ","1:PT68:!!2","2:@wt_pt_t2:!!2PT66","!2swm:@wt_pt_t4::PT2:!!3PT64","2","2:62:!!1","1:60:!!1","2:60A","1:58M:!!1","1:56:!!1","1:54:!!1","1: 52:!!1"},
{},
objects={
{type="b",name="ПОЛИТЕХНИ-\nЧЕСКАЯ I",x1=10+0.3,y1=0+0.6,x2=13-0.3,y2=2-0.6,},
{type="b",name="ПОЛИТЕХНИ-\nЧЕСКАЯ II",x1=10+0.3,y1=4+0.6,x2=13-0.3,y2=6-0.6,},
{type="cl",path=3,x=10+0.4,y=0+0.3},
{type="cl",path=1,x=10+0.4,y=1+0.3},
{type="cl",path=2,x=13-0.4,y=5-0.3, right=true},
},
labels = {
},
buttons = {
--{type="r",y=0-0.6 ,x=1, start="3T",target={1,0},flip=true},
--{type="r",y=0 ,x=3+0.4,start="PT2",target={1,0},flip=true},
--{type="r",y=4-0.6 ,x=1, signal=" OP2 "},
--{type="r",y=4 ,x=-1+0.4, signal="PT70"},
--{type="r",y=4 ,x=3+0.4, signal="2P",target={8,4}},
----{type="r",y=4 ,x=7+0.4, signal="62"},
--{type="r",y=2 ,x=5, signal="71"},
--{type="r",y=2-0.6 ,x=4+0.4, signal="B",target={5,2}},
--{type="r",y=2-0.6 ,x=17, signal="PT57"},
--{type="r",y=2-0.6 ,x=10, signal="PT67M"},
--{type="r",y=2 ,x=12+0.4,signal=" OP "},
--{type="r",y=0-0.6 ,x=10, signal="PT968M",flip=true},
--{type="r",y=0 ,x=15, signal="PT964",flip=true},
--{type="r",y=1-0.6 ,x=15, signal="4O",target={15,1},flip=true},
--{type="r",y=0-0.6 ,x=12+0.4,signal="A",flip=true},
},
routes = {
--[[ PT2 = {"A"},
PT70 = {" OP ","A","2P"},
--PT64 = {" OP ","A","PT64"},
B = {" OP ","A"},
PT57 = {"PT67M"},
PT964 = {"PT968M"},
PT67M = {"71"," OP2 "},
PT968M = {"3T","71"," OP2 "},
A={"4O"}--]]
},
signals = {
--"LensesStr": "YYG-RW",
PT70={
Mode=1, --AB 1/5
R="4",RY="41",Y="2",YG="23",G="3",IS="5", --Lenses ID
Autostop = true,AO = false,
},
PT68={
Mode=1, --AB 1/5
R="4",RY="41",Y="2",YG="23",G="3",IS="5", --Lenses ID
Autostop = true,AO = false,
},
PT66={
Mode=1, --AB 1/5
R="4",RY="41",Y="2",YG="23",G="3",IS="5", --Lenses ID
Autostop = true,AO = false,
},
PT64={ --"YWY-GRW
Mode=1, --AB 1/5
R="5",RY="51",Y="3",YG="34",G="4",IS="6",W="2",YY="13",YbY="1b3", --Lenses ID
Autostop = true,AO = false,
routes = {
[" OP "]={path=2,mode=3},--Path-2, Mode: W
A={path=3,mode=2},--Path-2, Mode: YY
}
}
}
},{
station="115,ОК,Октябрьская",
{"1","1","1","1","3","sw:::OK1","1"},
{x=9,"4sws:::OK3",">4sws:::OK5","1"},{skip=1},
{x=9,"!4sws:::OK4",">!4sws:::OK6","1"},
{"1","1","1","1","3","!sw:::OK2","5"},
objects={
{type="b",name="ОКТЯБРЬСКАЯ",x1=4+0.3,y1=0+0.6,x2=7-0.3,y2=4-0.6,},
{type="cl",path=1,x=4+0.4,y=0+0.65},
{type="cl",path=2,x=7-0.4,y=4-0.65, right=true},
},
}--]=]
}
print("MetrostroiARM:Generating ARM table...")
local errors,warnings = 0,0
local function ARMGenError(text,err)
MsgC(Color(255,err and 0 or 255,0),"MetrostroiARM:"..text.."\n")
ErrorNoHalt()
if err then errors = errors + 1 else warnings = warnings + 1 end
end
local function ParseARMTable(text,station,line,segm)
local resultTbl = {}
local tbl = string.Explode(":",text)
local typ = tbl[1]
if typ:find("^[>!]") then
resultTbl.invertX = typ:find(">")
resultTbl.invertY = typ:find("!")
typ = typ:gsub("^[>!]+","")
end
local segmTyp = ENT.Types[tonumber(typ) or typ]
if not segmTyp then return {error = 1,type = tbl[1]} end
table.remove(tbl,1)
for i,str in ipairs(tbl) do
if str:find(",") then
tbl[i] = string.Explode(",",str)
end
if str:sub(1,2) == "!!" then
resultTbl.signal2 = str:sub(3,-1)
elseif str[1] == "!" then
resultTbl.signal1 = str:sub(2,-1)
end
end
resultTbl.occup = type(tbl[1]) == "table" and tbl[1] or {tbl[1]}
if segmTyp.occup_a then
resultTbl.occupAlt = type(tbl[2]) == "table" and tbl[2] or {tbl[2]}
resultTbl.switch = tbl[3]
if segmTyp.occup_x then
resultTbl.occup2 = type(tbl[4]) == "table" and tbl[4] or {tbl[4]}
end
end
if resultTbl.signal1 then
local signal = resultTbl.signal1:gsub("^[>]+","")
local top = resultTbl.signal1:find("^>")
local typ = tonumber(signal[1])
local name = signal:sub(2,-1)
if not typ then
ARMGenError(Format("Parser warning. Signal type in id station %d line %d segm %d segment not found. Using default 1",station,line,segm),false)
name = signal[1]..name
elseif typ < 1 or typ > 3 then
ARMGenError(Format("Parser warning. Signal type in id station %d line %d segm %d segment have wrong ID, must be in range 1..3. Using default 1",station,line,segm),false)
typ = 1
end
if name == "" then name = resultTbl.occup[1] end
resultTbl.signal1 = {name=name,type=typ or 1,top = top,segm=resultTbl,dir=false}
end
if resultTbl.signal2 then
local signal = resultTbl.signal2:gsub("^[>]+","")
local top = resultTbl.signal2:find("^>")
local typ = tonumber(signal[1])
local name = signal:sub(2,-1)
if not typ then
ARMGenError(Format("Parser warning. Signal type in id station %d line %d segm %d segment not found. Using default 1",station,line,segm),false)
name = signal[1]..name
elseif typ < 1 or typ > 3 then
ARMGenError(Format("Parser warning. Signal type in id station %d line %d segm %d segment have wrong ID, must be in range 1..3. Using default 1",station,line,segm),false)
typ = 1
end
if name == "" then name = resultTbl.occup[1] end
resultTbl.signal2 = {name=name,type=typ or 1,top = top,segm=resultTbl,dir=true}
end
resultTbl.type = typ
resultTbl.width = segmTyp.width or 1
resultTbl.segm = segmTyp
return resultTbl
end
Metrostroi.ARMConfigGenerated = {}
local id = 0
for i,station in ipairs(Metrostroi.ARMConfig) do
if not Metrostroi.ARMConfigGenerated[i] then Metrostroi.ARMConfigGenerated[i] = {} end
local genStation = Metrostroi.ARMConfigGenerated[i]
local y = 0
MsgC(Color(0, 222, 255),"MetrostroiARM:Solving station ",i,"\n")
if #station == 0 then ARMGenError(Format("Parser warning. Empty station %d! Skipping...",i),false) continue end
if not station.station then ARMGenError(Format("Parser error. Can't find station name in station %d! Skipping...",i),true) continue end
local stationTbl = string.Explode(",",station.station)
if not stationTbl or #stationTbl < 3 or not tonumber(stationTbl[1]) then ARMGenError(Format("Parser error. Malformed station data in station %d! Skipping...",i),true) continue end
genStation.id = stationTbl[1]
genStation.shortname = stationTbl[2]
genStation.name = stationTbl[3]
genStation.buttons = {}
genStation.routes = station.routes or {}
genStation.objects = station.objects or {}
genStation.info = station.info or {}
genStation.signals = station.signals or {}
for lineID,line in ipairs(station) do
local x = line.x or 0
for segmID,segm in ipairs(line) do
if type(segm) ~= "string" then
ARMGenError(Format("Parser error on station %d line %d segm %d, excepted string,got %s. Skipping segment...",i,lineID,segmID,type(segm)),true)
continue
end
local segmTbl= ParseARMTable(segm,i,lineID,segmID)
if segmTbl.error then
ARMGenError(Format("Parser warning. Skipping station %d line %d segm %d segment, type error(type '%s' not found)",i,lineID,segmID,segmTbl.type),false)
continue
end
if segmTbl.signal1 then
for name,sig in pairs(genStation.signals) do
if name==segmTbl.signal1.name then
sig.sig = segmTbl.signal1
sig.segm = segmTbl
end
end
end
if segmTbl.signal2 then
for name,sig in pairs(genStation.signals) do
if name==segmTbl.signal2.name then
sig.sig = segmTbl.signal2
sig.segm = segmTbl
end
end
end
segmTbl.x = x
segmTbl.y = y
segmTbl.id = table.insert(genStation,segmTbl)
x = x + (segmTbl.width or 1)
end
y = y + (line.skip or 1)
end
if station.buttons then
for _,button in pairs(station.buttons) do
button.pressable = false
button.selected = false
button.isbutton = true
if button.type == "r" then
button.segm = ENT.Types.button_normal
end
table.insert(genStation.buttons,button)
end
end
if station.routes then
for name,route in pairs(station.routes) do
route.name = name
end
end
end
function ENT.FindSegment(station,x,y)
for segmid,segm in ipairs(station) do
if segm.x == x and segm.y == y then return segm end
end
end
local function GetXY(x,y)
return 100+x*36,100+y*70
end
local function GetSegmPos(segm,alt)
local x,y = segm.x,segm.y
local segmt = segm.segm
local u0,v0,u1,v1 = 0,0,1,1
if segm.invertX then u0,u1 = 1,0 end
if segm.invertY then v0,v1 = 1,0 end
if alt == nil then
return GetXY(x+segm.width*u0,y)
elseif alt == false and segmt.next_m then
return GetXY(x+segmt.next_m.x-segm.width*u0,y+segmt.next_m.y)
--print(123,x,y)
elseif alt and segmt.next_a then
return GetXY(x+segmt.next_a.x*u1-segmt.next_a.x*u0+segmt.width*u0,y+segmt.next_a.y*v1-segmt.next_a.y*v0)
end
end
local function ARMSetNextCompare(posX,posY,segm,nsegm)
local xp,yp = GetSegmPos(segm)
local x,y = GetSegmPos(nsegm)
if sx and posX == x and posY == y then
nsegm.prev = segm
return true
end
sx,sy = GetSegmPos(nsegm,false)
if sx and posX == sx and posY == sy then
nsegm.next_m = segm
return true
end
if not nsegm.segm.next_a then return end
sx,sy = GetSegmPos(nsegm,true)
if x ~= xp and y ~= yp and sx and posX == sx and posY == sy then
nsegm.next_a = segm
return true
end
end
local function ARMSetNext(station)
for csegmid,csegm in ipairs(station) do
for segmid,segm in ipairs(station) do
if segm == csegm then continue end
local posX,posY = GetSegmPos(csegm)
if ARMSetNextCompare(posX,posY,csegm,segm) then
csegm.prev = segm
--break
end
local posOX,posOY = GetSegmPos(csegm,false)
if ARMSetNextCompare(posOX,posOY,csegm,segm) then
csegm.next_m = segm
--break
end
local posAX,posAY = GetSegmPos(segm)
if not csegm.segm.next_a or posX == posAX or posY == posAY then continue end
posOX,posOY = GetSegmPos(csegm,true)
if ARMSetNextCompare(posOX,posOY,csegm,segm) then
csegm.next_a = segm
--break
end
end
end
end
for i,st in ipairs(Metrostroi.ARMConfigGenerated) do ARMSetNext(st) end
local iter = 0
function ENT.TraceSegments(station,segm,to,dir,last,checked,trace)
if not checked then iter=0 checked = {} end
iter = iter + 1
if iter > 10000 then ARMGenError(Format("Routes generation error. Max iter reached!"),true) return false end
if not trace then trace = {} end
if last == to then return trace end
if not segm or checked[segm] then return restbl end
checked[segm] = true
local segmIndex = table.insert(trace,{segm.id})
local segmM,segmA = segm.next_m,segm.next_a
local segmP = segm.prev
local mainM = segmM and (dir and segmM.x > segm.x or not dir and segmM.x < segm.x)
local mainP = segmP and (dir and segmP.x > segm.x or not dir and segmP.x < segm.x)
if segmA and mainM then
local trace= table.Copy(trace)
trace[segmIndex][2] = true
local result = ENT.TraceSegments(station,segmA,to,dir,segm,checked,trace)
if result then return result end
end
if segmM and mainM then
return ENT.TraceSegments(station,segmM,to,dir,segm,checked,trace)
end
if segmP and mainP then
trace[segmIndex][2] = last and segm.next_a == last or nil-- or segmP.next_a == segm or nil
return ENT.TraceSegments(station,segmP,to,dir,segm,checked,trace)
end
if segm == to then return trace end
end
for i,station in ipairs(Metrostroi.ARMConfigGenerated) do
for name,route in pairs(station.routes) do
if not route.first or not route.last then ARMGenError(Format("Route check[%s]. Skipping route, missing first/last...",name),false) continue end
local first,last = ENT.FindSegment(station,route.first[1],route.first[2]),ENT.FindSegment(station,route.last[1],route.last[2])
if not first or not last then ARMGenError(Format("Route check[%s]. Skipping route, can't find first/last on selected pos...",name),false) continue end
if route.checks then
for k,segmt in pairs(route.checks) do
route.checks[k] = ENT.FindSegment(station,segmt[1],segmt[2])
end
end
local trace1 = ENT.TraceSegments(station,first,last,false)
if trace1 then
route.dir,route.route,route.directions = false,{},{}
for i,segm in ipairs(trace1) do
table.insert(route.route,station[segm[1]])
route.directions[i] = segm[2]
end
if route.ignore then
route.ignores = {}
for k,segmti in pairs(route.ignore) do
local segm = ENT.FindSegment(station,segmti[1],segmti[2])
for i,segmt in ipairs(route.route) do
if segm == segmt then route.ignores[i] = segm end
end
end
end
continue
end
local trace2 = ENT.TraceSegments(station,first,last,true)
if trace2 then
route.dir,route.route,route.directions = true,{},{}
for i,segm in ipairs(trace2) do
table.insert(route.route,station[segm[1]])
route.directions[i] = segm[2]
end
if route.ignore then
route.ignores = {}
for k,segmti in pairs(route.ignore) do
local segm = ENT.FindSegment(station,segmti[1],segmti[2])
for i,segmt in ipairs(route.route) do
if segm == segmt then route.ignores[i] = segm end
end
end
end
continue
end
ARMGenError(Format("Route check[%s]. Can't find path from start on end.",name),false)
end
for _,button in pairs(station.buttons) do
for name,route in pairs(station.routes) do
if name:find("-") then
local buttonName = name:sub(1,name:find("-")-1)
local buttonNameEnd = name:sub(name:find("-")+1,-1)
if button.name == buttonName then
if not route.startButtons then route.startButtons = {} end
table.insert(route.startButtons, button)
button.pressable = true
if not button.routes then button.routes = {} end
table.insert(button.routes,route)
end
if button.name == buttonNameEnd then
if not route.endButtons then route.endButtons = {} end
table.insert(route.endButtons, button)
end
end
end
end
end
if errors == 0 and warnings == 0 then
MsgC(Color(0,255,0),"MetrostroiARM:Generate finished without errors and warnings.\n")
elseif errors == 0 then
MsgC(Color(255,255,0),"MetrostroiARM:Generate finished with "..warnings.." warnings.\n")
else
MsgC(Color(255,0,0),"MetrostroiARM:Generate finished with "..errors.." errors and "..warnings.." warnings!\n")
end
--PrintTable(Metrostroi.ARMConfigGenerated)
for k,v in ipairs(Metrostroi.ARMConfigGenerated) do
Metrostroi.ARMTable[k] = {
occChecks = {},
net = {},
signal = {},
switch = {},
routes = {},
}
end