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
e7c2c0bbe603dcbb611fbc0184f86af9bfff1b73
MetrostroiAddon/lua/entities/gmod_track_arm/shared.lua
g_brzhezinskiy 1d05caf866 init
2021-01-02 12:51:45 +03:00

836 lines
34 KiB
Lua
Raw Blame History

This file contains ambiguous Unicode characters
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
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
View Git Blame Copy Permalink