AddCSLuaFile("cl_init.lua") AddCSLuaFile("shared.lua") include("shared.lua") ENT.BogeyDistance = 650 -- Needed for gm trainspawner --"DURASelectMain","DURASelectAlternate","DURAToggleChannel","DURAPowerToggle", ENT.SyncTable = { "SA5","SB3","SA7","SB1","SB2","SA8","SB4","SB5","SA9","SA13","SA14","SA15","SA2","SB6","SB7","SB8","SB10","SB9","SB11","SA16","SB12","SB13","SB14","SB15","SB16", "SB6K","SB7K", "SA1/1","SA2/1","SA4/1","SA5/1", "SBR14","SBR15","SBR16", "SA6","SA24","SB20","SB21", "SF56","SF51","SF52","SF53","SF60","SF61","SF77","SF78","SF40","SF41","SF8","SF11","SF10","SF7","SF50","SF76","SF73","SF3","SF71","SF63","SF54","SF65","SF55","SF9","SF6","SF5","SF2", "SF4","SF27","SF46","SF12","SF13","SF45","SF16","SF44","SF43","SF14","SF15","SF25","SF72","SF29","SF26","SF42","SF18","SF20","SF17","SF19","SF21","SF22","SF34","SF35","SF23","SF24", "RC","VB","VTPR", "DriverValveDisconnect","EPK","ParkingBrake","UAVA","UAVAC","PB","EmergencyBrakeValve","GV", "SAP8","SAP13","SAP36","SAP12","SAP11","SAP23","SAP9","SAP10","SAP3","SAP39","SBP22","SBP6","SBP4","SAP14","SAP26","SAP24","SAB1", } function ENT:Initialize() self.Plombs = { SA8 = true, SA9 = true, SA2 = true, SAP23 = true, SAP24 = true, SB6 = true, RC = true, SAP26 = true, UAVA = true, Init = true, } self:SetModel("models/metrostroi_train/81-718/81-718.mdl") self.BaseClass.Initialize(self) self:SetPos(self:GetPos() + Vector(0,0,140)) -- Create seat entities self.DriverSeat = self:CreateSeat("driver",Vector(417+5,-4,-28)) self.InstructorsSeat = self:CreateSeat("instructor",Vector(425,50,-28),Angle(0,270,0)) self.ExtraSeat1 = self:CreateSeat("instructor",Vector(410,35,-43),Angle(0,90,0),"models/vehicles/prisoner_pod_inner.mdl") self.ExtraSeat2 = self:CreateSeat("instructor",Vector(433,-45,-43),Angle(0,90,0),"models/vehicles/prisoner_pod_inner.mdl") self.ExtraSeat3 = self:CreateSeat("instructor",Vector(402,50,-43),Angle(0,50,0),"models/vehicles/prisoner_pod_inner.mdl") -- Hide seats self.DriverSeat:SetColor(Color(0,0,0,0)) self.DriverSeat:SetRenderMode(RENDERMODE_TRANSALPHA) self.InstructorsSeat:SetColor(Color(0,0,0,0)) self.InstructorsSeat:SetRenderMode(RENDERMODE_TRANSALPHA) self.ExtraSeat1:SetColor(Color(0,0,0,0)) self.ExtraSeat1:SetRenderMode(RENDERMODE_TRANSALPHA) self.ExtraSeat2:SetColor(Color(0,0,0,0)) self.ExtraSeat2:SetRenderMode(RENDERMODE_TRANSALPHA) self.ExtraSeat3:SetColor(Color(0,0,0,0)) self.ExtraSeat3:SetRenderMode(RENDERMODE_TRANSALPHA) -- Create bogeys if Metrostroi.BogeyOldMap then self.FrontBogey = self:CreateBogey(Vector( 317-5,0,-84),Angle(0,180,0),true,"717") self.RearBogey = self:CreateBogey(Vector(-317+0,0,-84),Angle(0,0,0),false,"717") self.FrontCouple = self:CreateCouple(Vector( 419.5,0,-62),Angle(0,0,0),true,"717") self.RearCouple = self:CreateCouple(Vector(-419.5-6.545,0,-62),Angle(0,180,0),false,"717") else self.FrontBogey = self:CreateBogey(Vector( 317-11,0,-80),Angle(0,180,0),true,"717") self.RearBogey = self:CreateBogey(Vector(-317+0,0,-80),Angle(0,0,0),false,"717") self.RearCouple = self:CreateCouple(Vector(-423+2,0,-66),Angle(0,180,0),false,"717") self.FrontCouple = self:CreateCouple(Vector( 410-3,0,-66),Angle(0,0,0),true,"717") end local pneumoPow = 1.0+(math.random()^0.4)*0.3 self.FrontBogey.PneumaticPow = pneumoPow self.RearBogey.PneumaticPow = pneumoPow self.FrontCouple.EKKDisconnected = true -- Initialize key mapping self.KeyMap = { [KEY_W] = "BKCUKVUp", [KEY_S] = "BKCUKVDown", [KEY_1] = "BKCUKV1", [KEY_2] = "BKCUKV2", [KEY_3] = "BKCUKV3", [KEY_4] = "BKCUKV4", [KEY_5] = "BKCUKV5", [KEY_6] = "BKCUKV6", [KEY_7] = "BKCUKV7", [KEY_8] = "BKCUKV8", [KEY_9] = "KR-", [KEY_0] = "KR+", [KEY_A] = {"SB1",helper="SA24Set"}, [KEY_D] = "SB2", [KEY_V] = {"SA5Toggle",helper="SA6Toggle"}, [KEY_G] = "SB12Set", [KEY_SPACE] = "PBSet", [KEY_EQUAL] = {"SB10Set",helper="SB20Set"}, [KEY_MINUS] = {"SB11Set",helper="SB21Set"}, [KEY_PAD_ENTER] = "WrenchKR", [KEY_PAD_0] = "DriverValveDisconnectToggle", [KEY_PAD_DECIMAL] = "EPKToggle", [KEY_LSHIFT] = { def="BKCUControllerUnlock", [KEY_SPACE] = "KVT", [KEY_7] = "WrenchNone", [KEY_8] = "WrenchKRU", [KEY_9] = "WrenchKR9", [KEY_0] = "WrenchKR", --[KEY_G] = "EnableBVEmerSet", [KEY_1] = "SB7", [KEY_2] = "SB5Set", [KEY_L] = "DriverValveDisconnectToggle", [KEY_PAD_ENTER] = "KVWrenchNone", }, [KEY_LALT] = { [KEY_UP] = "RRIUp", [KEY_DOWN] = "RRIDown", [KEY_LEFT] = "RRILeft", [KEY_RIGHT] = "RRIRight", }, [KEY_F] = "PneumaticBrakeUp", [KEY_R] = "PneumaticBrakeDown", [KEY_PAD_1] = "PneumaticBrakeSet1", [KEY_PAD_2] = "PneumaticBrakeSet2", [KEY_PAD_3] = "PneumaticBrakeSet3", [KEY_PAD_4] = "PneumaticBrakeSet4", [KEY_PAD_5] = "PneumaticBrakeSet5", [KEY_PAD_6] = "PneumaticBrakeSet6", [KEY_PAD_7] = "PneumaticBrakeSet7", [KEY_PAD_DIVIDE] = "SBR14Set", [KEY_PAD_MULTIPLY] = "SBR15Set", [KEY_PAD_MINUS] = "SB6", --[KEY_PAD_9] = "EmerBrakeToggle", [KEY_BACKSPACE] = {"EmergencyBrake",helper="EmergencyBrakeValveToggle"}, [KEY_L] = "HornEngage", } self.KeyMap[KEY_RALT] = self.KeyMap[KEY_LALT] self.KeyMap[KEY_RSHIFT] = self.KeyMap[KEY_LSHIFT] self.KeyMap[KEY_RCONTROL] = self.KeyMap[KEY_LCONTROL] self.InteractionZones = { { ID = "FrontBrakeLineIsolationToggle", Pos = Vector(461.5, -34, -53), Radius = 8, }, { ID = "FrontTrainLineIsolationToggle", Pos = Vector(461.5, 33, -53), Radius = 8, }, { ID = "RearBrakeLineIsolationToggle", Pos = Vector(-474.5, 33, -53), Radius = 8, }, { ID = "RearTrainLineIsolationToggle", Pos = Vector(-474.5, -34, -53), Radius = 8, }, { ID = "CabinDoor", Pos = Vector(456,66,3), Radius = 12, }, { ID = "CabinDoor", Pos = Vector(385,66,0), Radius = 16, }, { ID = "RearDoor", Pos = Vector(-464.8,-35,4), Radius = 20, }, { ID = "PassengerDoor", Pos = Vector(375.5,13.5,12), Radius = 20, }, { ID = "GVToggle", Pos = Vector(162.50,62,-59), Radius = 10, }, { ID = "AirDistributorDisconnectToggle", Pos = Vector(-177, -66, -50), Radius = 20, }, } -- Cross connections in train wires self.TrainWireInverts = { [11] = true, [34] = true, } self.TrainWireCrossConnections = { [5] = 6, -- Reverser F<->B [24] = 25, --VTP [36] = 37, -- Doors L<->R [57] = 58, -- ReverserR F<->B } -- KV wrench mode self.KVWrenchMode = 0 -- BPSN type self:SetNW2Int("BPSNType",self.BPSNType or 2+math.floor(Metrostroi.PeriodRandomNumber("BPSN")*7+0.5)) self.RearDoor = false self.FrontDoor = false self.CabinDoor = false self.PassengerDoor = false self.OtsekDoor1 = false self.OtsekDoor2 = false self.Lamps = { broken = {}, } local rand = math.random() > 0.8 and 1 or math.random(0.95,0.99) for i = 1,28 do if math.random() > rand then self.Lamps.broken[i] = math.random() > 0.5 end end self.WrenchMode = 0 self:TrainSpawnerUpdate() end function ENT:NonSupportTrigger() self.RC:TriggerInput("Set",0) self.SB6:TriggerInput("Set",1) self.SB6K:TriggerInput("Set",0) self.SB6:TriggerInput("Block",1) self.SAP24:TriggerInput("Set",1) self.SA8:TriggerInput("Set",1) self.SAP26:TriggerInput("Set",1) self.EPK:TriggerInput("Set",0) self.SA13:TriggerInput("Set",0) self.Plombs.SA8 = nil self.Plombs.SAP24 = nil self.Plombs.SB6 = nil self.Plombs.RC = nil self.Plombs.SAP26 = nil end function ENT:UpdateLampsColors() self.LampType = math.Round(math.random()^0.5)+1 self:SetNW2Int("LampType",self.LampType) local lCol,lCount = Vector(),0 local rnd1,rnd2,col = 0.7+math.random()*0.3,math.random() local typ = math.Round(math.random()) local r,g = 15,15 for i = 1,28 do local chtp = math.random() > rnd1 if typ == 0 and not chtp or typ == 1 and chtp then if math.random() > rnd2 then r = -20+math.random()*25 g = 0 else g = -5+math.random()*15 r = g end col = Vector(245+r,228+g,189) else if math.random() > rnd2 then g = math.random()*15 b = g else g = 15 b = -10+math.random()*25 end col = Vector(255,235+g,235+b) end lCol = lCol + col lCount = lCount + 1 if i%9.3<1 then local id = 9+math.ceil(i/9.3) local tcol = (lCol/lCount)/255 --self.Lights[id][4] = Vector(tcol.r,tcol.g^3,tcol.b^3)*255 self:SetNW2Vector("lampD"..id,Vector(tcol.r,tcol.g^3,tcol.b^3)*255) lCol = Vector() lCount = 0 end self:SetNW2Vector("lamp"..i,col) end end function ENT:TrainSpawnerUpdate() self:UpdateLampsColors() self.Pneumatic.VDLoud = math.random()<0.06 and 0.9+math.random()*0.2 if self.Pneumatic.VDLoud then self.Pneumatic.VDLoudID = math.random(1,5) end end -------------------------------------------------------------------------------- function ENT:Think() local Panel = self.Panel -- Initialize key mapping self.RetVal = self.BaseClass.Think(self) self:SetPackedRatio("VTPR", self.VTPR.Value/3) self:SetPackedRatio("B013", self.Pneumatic.RealDriverValvePosition) self:SetNW2Int("Wrench",self.WrenchMode) self:SetPackedRatio("Controller",self.BKCU.Controller) self:SetPackedRatio("KR",(self.KR.Position+1)/2) self:SetPackedRatio("KRU",(self.KRU.Position+1)/2) self:SetPackedBool("RRIOn",self.RRI_VV.Power>0) self:SetPackedBool("AnnBuzz",Panel.AnnouncerBuzz > 0) self:SetPackedBool("AnnPlay",Panel.AnnouncerPlaying > 0) self:SetPackedBool("AnnCab",self.RRI_VV.CabinSpeakerPower > 0) self:SetPackedBool("Cablights1",Panel.EL1 > 0) self:SetPackedBool("Cablights2",Panel.EL2 > 0) self:SetPackedBool("Headlights1",Panel.HL17 > 0) self:SetPackedBool("Headlights2",Panel.HL20 > 0) self:SetPackedBool("RedLights",Panel.H11 > 0) self:SetPackedBool("PanelLights",Panel.HL52 > 0) self:SetPackedBool("AppLights",Panel.EL31 > 0) local lightsActive1 = Panel.EL3_6 > 0 local lightsActive2 = Panel.EL7_30 > 0 for i = 1,28 do if (lightsActive2 or (lightsActive1 and math.ceil((i+5)%8)==math.ceil(i/7)%2)) then if not self.Lamps[i] and not self.Lamps.broken[i] then self.Lamps[i] = CurTime() + math.Rand(0.1,math.Rand(0.5,2)) end else self.Lamps[i] = nil end if (self.Lamps[i] and CurTime() - self.Lamps[i] > 0) then self:SetPackedBool("lightsActive"..i,true) else self:SetPackedBool("lightsActive"..i,false) end end self:SetPackedBool("BBE",self.BBE.KM1 > 0) self:SetPackedBool("Compressor",self.KK.Value) if self.PTTI.State < 0 then self:SetPackedRatio("RNState", ((self.PTTI.RNState)-0.25)*math.Clamp((math.abs(self.Electric.Itotal/2)-30-self.Speed*2)/20,0,1)) self:SetNW2Int("RNFreq", 13) else self:SetPackedRatio("RNState", (0.75-self.PTTI.RNState)*math.Clamp((math.abs(self.Electric.Itotal/2)-30-self.Speed*2)/20,0,1)) self:SetNW2Int("RNFreq", ((self.PTTI.FreqState or 0)-1/3)/(2/3)*12) end local power = false--Panel.V1 > 0.5 self:SetNW2Bool("ASNPPlay",power and self:ReadTrainWire(47) > 0) --СПУ self:SetPackedBool("SPU_SD",Panel.SD > 0) self:SetPackedBool("SPU_KT",Panel.KT > 0) self:SetPackedBool("SPU_RS",Panel.RS) self:SetPackedBool("SPU_SN",Panel.LN) self:SetPackedBool("SPU_04",Panel.AR04 > 0) self:SetPackedBool("SPU_00",Panel.AR0 > 0) self:SetPackedBool("SPU_40",Panel.AR40 > 0) self:SetPackedBool("SPU_60",Panel.AR60 > 0) self:SetPackedBool("SPU_70",Panel.AR70 > 0) self:SetPackedBool("SPU_80",Panel.AR80 > 0) self:SetPackedBool("SPU_KES",Panel.KES > 0) self:SetPackedBool("SPU_ST",Panel.ST > 0) self:SetPackedBool("SPU_CUV",Panel.CUV > 0) self:SetPackedBool("SPU_AVU",Panel.AVU > 0) --self:SetPackedBool("SPU_AIP",false) --self:SetPackedBool("SPU_RIP",false) self:SetPackedBool("SPU_KVD",Panel.KVD > 0) self:SetPackedBool("SPU_VS1",Panel.VS1 > 0) self:SetPackedBool("SPU_VS2",Panel.VS2 > 0) --Лампы МВСУ self:SetPackedBool("BIPB", self.BUP.IPB > 0) self:SetPackedBool("BIV", self.BUP.IV > 0) self:SetPackedBool("BIN", self.BUP.IN > 0) self:SetPackedBool("BIX3",self.BUP.IX3 > 0) self:SetPackedBool("BIX2",self.BUP.IX2 > 0) self:SetPackedBool("BIX1",self.BUP.IX1 > 0) self:SetPackedBool("BI0", self.BUP.I0 > 0) self:SetPackedBool("BIT1",self.BUP.IT1 > 0) self:SetPackedBool("BIT2",self.BUP.IT2 > 0) self:SetPackedBool("BIT3",self.BUP.IT3 > 0) --self:SetPackedBool("BIBX3",self.BUP.IBX3 > 0) --self:SetPackedBool("BIBX2",self.BUP.IBX2 > 0) --self:SetPackedBool("BIBX1",self.BUP.IBX1 > 0) self:SetPackedBool("BIB0", self.BUP.IB0 > 0) --self:SetPackedBool("BIBT1",self.BUP.IBT1 > 0) --self:SetPackedBool("BIBT2",self.BUP.IBT2 > 0) --self:SetPackedBool("BIBT3",self.BUP.IBT3 > 0) self:SetPackedBool("BIX", self.BUP.IX > 0) self:SetPackedBool("BIT", self.BUP.IT > 0) self:SetPackedBool("BIKDV",self.BUP.IKDV > 0) self:SetPackedBool("BINKDV",self.BUP.INKDV > 0) self:SetPackedBool("BIPB",self.BUP.IPB > 0) self:SetPackedBool("BIARS",self.BUP.IARS > 0) self:SetPackedBool("BIAVT",self.BUP.IAVT > 0) self:SetPackedBool("BIPVU",self.BUP.IPVU > 0) self:SetPackedBool("BIRPB",self.BUP.IRPB > 0) self:SetPackedBool("BIROT",self.BUP.IROT > 0) self:SetPackedBool("BISOT",self.BUP.ISOT > 0) self:SetPackedBool("BBBUP", self.BUP.BBUP > 0) self:SetPackedBool("BV0", self.BUP.V0 > 0) self:SetPackedBool("BEKV",self.BUP.EKV > 0) self:SetPackedBool("BEBAV",self.BUP.EBAV > 0) self:SetPackedBool("BEKR",self.BUP.EKR > 0) self:SetPackedBool("BEARS", self.BUP.EARS > 0) self:SetPackedBool("BV",self.BUP.OV > 0) self:SetPackedBool("BN", self.BUP.ON > 0) self:SetPackedBool("BOX", Panel.BOX > 0) self:SetPackedBool("BOT", Panel.BOT > 0) self:SetPackedBool("BOU1",Panel.BOU1 > 0) self:SetPackedBool("BOU2",Panel.BOU2 > 0) self:SetPackedBool("BOV",Panel.BOV > 0) self:SetPackedBool("BON", Panel.BON > 0) self:SetPackedBool("BO0",Panel.BO0 > 0) self:SetPackedBool("BOZPT",Panel.BOZPT > 0) self:SetPackedBool("BOBBAV",self.BUP.OBBAV > 0) self:SetPackedBool("BOBBUP",self.BUP.OBBUP > 0) self:SetPackedBool("BMS",self.BUP.Power > 0) self:SetPackedBool("BMP",self.BUP.Power > 0) if self.OtsekDoor2 then --Лампы БУВ --МВД self:SetPackedBool("VOTK",self.BUV.OTK > 0) self:SetPackedBool("VRP",self.BUV.RP > 0) --МАЛП1,2 self:SetPackedBool("VFM",self.BUV.FM > 0) self:SetPackedBool("VU400",self.BUV.U400 > 0) self:SetPackedBool("VE1350",self.BUV.E1350 > 0) self:SetPackedBool("VDIF",self.BUV.DIF > 0) self:SetPackedBool("VE13650",self.BUV.E13650 > 0) self:SetPackedBool("VE130",self.BUV.E130 > 0) self:SetPackedBool("VSN",self.BUV.SN > 0) self:SetPackedBool("VU800",self.BUV.U800 > 0) self:SetPackedBool("VU975",self.BUV.U975 > 0) self:SetPackedBool("VE2450",self.BUV.E2450 > 0) self:SetPackedBool("VE24650",self.BUV.E24650 > 0) self:SetPackedBool("VE240",self.BUV.E240 > 0) self:SetPackedBool("VBV",self.BUV.BV > 0) self:SetPackedBool("VMSU",self.BUV.MSU > 0) self:SetPackedBool("VMZK",self.BUV.MZK > 0) --МИВ self:SetPackedBool("VZZ",self.BUV.ZZ > 0) self:SetPackedBool("VV1",self.BUV.V1 > 0) self:SetPackedBool("VSMA",self.BUV.SMA > 0) self:SetPackedBool("VSMB",self.BUV.SMB > 0) self:SetPackedBool("VIVP",self.BUV.IVP > 0) self:SetPackedBool("VINZ",self.BUV.INZ > 0) self:SetPackedBool("VIVR",self.BUV.IVR > 0) self:SetPackedBool("VINR",self.BUV.INR > 0) self:SetPackedBool("VIX",self.BUV.IX > 0) self:SetPackedBool("VIT",self.BUV.IT > 0) self:SetPackedBool("VIU1",self.BUV.IU1 > 0) self:SetPackedBool("VIU2",self.BUV.IU2 > 0) self:SetPackedBool("VIM",self.BUV.IM > 0) self:SetPackedBool("VIXP",self.BUV.IXP > 0) self:SetPackedBool("VIU1R",self.BUV.IU1R > 0) self:SetPackedBool("VITARS",self.BUV.ITARS > 0) self:SetPackedBool("VITEM",self.BUV.ITEM > 0) self:SetPackedBool("VIAVR",self.BUV.IAVR > 0) self:SetPackedBool("VIPROV",self.BUV.IPROV > 0) self:SetPackedBool("VIPROV0",self.BUV.IPROV0 > 0) self:SetPackedBool("VIVZ",self.BUV.IVZ > 0) self:SetPackedBool("VITP1",self.BUV.ITP1 > 0) self:SetPackedBool("VITP2",self.BUV.ITP2 > 0) self:SetPackedBool("VITP3",self.BUV.ITP3 > 0) self:SetPackedBool("VITP4",self.BUV.ITP4 > 0) self:SetPackedBool("VIKX",self.BUV.IKX > 0) self:SetPackedBool("VIKT",self.BUV.IKT > 0) self:SetPackedBool("VILT",self.BUV.ILT > 0) self:SetPackedBool("VIRV",self.BUV.IRV > 0) self:SetPackedBool("VIRN",self.BUV.IRN > 0) self:SetPackedBool("VIBV",self.BUV.IBV > 0) self:SetPackedBool("VOVP",self.BUV.OVP > 0) self:SetPackedBool("VONZ",self.BUV.ONZ > 0) self:SetPackedBool("VOLK",self.BUV.OLK > 0) self:SetPackedBool("VOKX",self.BUV.OKX > 0) self:SetPackedBool("VOKT",self.BUV.OKT > 0) self:SetPackedBool("VOPV",self.BUV.OPV > 0) self:SetPackedBool("VOSN",self.BUV.OSN > 0) self:SetPackedBool("VOOIZ",self.BUV.OIZ > 0) self:SetPackedBool("VORP",self.BUV.ORP > 0) self:SetPackedBool("VOV1",self.BUV.OV1 > 0) self:SetPackedBool("VORKT",self.BUV.ORKT > 0) self:SetPackedBool("VORMT",self.BUV.ORMT > 0) self:SetPackedBool("VO75V",self.BUV.O75V > 0) self:SetPackedBool("VSS",self.BUV.SS > 0) end --Лампы self:SetPackedBool("HL3",Panel.HL3 > 0) self:SetPackedBool("HL4",Panel.HL4 > 0) self:SetPackedBool("HL5",Panel.HL5 > 0) self:SetPackedBool("HL7",Panel.HL7 > 0) self:SetPackedBool("HL13",Panel.HL13 > 0) self:SetPackedBool("HL46",Panel.HL46 > 0) self:SetPackedBool("HL17",Panel.HL17 > 0) self:SetPackedBool("HL20",Panel.HL20 > 0) self:SetPackedBool("HL25",Panel.HL25 > 0) self:SetPackedBool("HL25",Panel.HL25 > 0) local TW28 = 0 if Panel.HL6 > 0 then local wags = #self.WagonList for i,v in ipairs(self.WagonList) do TW28 = TW28+(v.Panel.TW28 or 0)/wags end end --self:SetPackedRatio("HL6",HL6) self:SetPackedRatio("HL6",math.Clamp(TW28^0.7,0,1)) self:SetPackedBool("VD1",Panel.VD1 > 0) self:SetPackedBool("RouteNumberWork",Panel.RouteNumber > 0) self:SetPackedBool("DoorsW",Panel.HL13 > 0) self:SetPackedBool("GRP",Panel.HL25 > 0) self:SetPackedBool("BrW",Panel.HL46 > 0) self:SetPackedBool("VPR",Panel.VPR > 0) self:SetPackedBool("Speedometer",Panel.Speedometer > 0) self:SetPackedBool("VH1",self.BZOS.VH1 > 0) self:SetPackedBool("VH2",self.BZOS.VH2 > 0) self:SetPackedRatio("M1",Panel.M1) self:SetPackedRatio("PVK",self.PVK.Value/2) self:SetPackedBool("RearDoor",self.RearDoor) self:SetPackedBool("PassengerDoor",self.PassengerDoor) self:SetPackedBool("CabinDoor",self.CabinDoor) self:SetPackedBool("OtsekDoor1",self.OtsekDoor1) self:SetPackedBool("OtsekDoor2",self.OtsekDoor2) self:SetPackedRatio("Speed", self.Speed/100) self:SetPackedBool("Vent1Work",self.BUVS.KV1>0) self:SetPackedBool("Vent2Work",self.BUVS.KV2>0) self:SetPackedRatio("BLPressure", self.Pneumatic.BrakeLinePressure/16.0) self:SetPackedRatio("TLPressure", self.Pneumatic.TrainLinePressure/16.0) self:SetPackedRatio("BCPressure", math.min(3.2,self.Pneumatic.BrakeCylinderPressure)/6.0) self:SetPackedRatio("EnginesVoltage", self.Electric.Power750V/1000.0) self:SetPackedRatio("EnginesCurrent13", 0.5 + 0.5*(self.Electric.I13/500.0)) self:SetPackedRatio("EnginesCurrent24", 0.5 + 0.5*(self.Electric.I24/500.0)) self:SetPackedRatio("BatteryVoltage",Panel["V1"]*self.Battery.Voltage/150.0) self:SetPackedRatio("BatteryCurrent",Panel["V1"]*math.Clamp((self.Battery.Voltage-75)*0.033,-0.01,1)) --self.PB:TriggerInput("Set",0) --self.SB6:TriggerInput("Set",0) self:SetPackedBool("Ring",self.BZOS.Ring >= 1) self:SetPackedBool("RingBZOS",self.BZOS.Ring>0) -- Exchange some parameters between engines, pneumatic system, and real world self.Engines:TriggerInput("Speed",self.Speed) if IsValid(self.FrontBogey) and IsValid(self.RearBogey) and not self.IgnoreEngine then local A = 2*self.Engines.BogeyMoment --self.FrontBogey.MotorForce = 27000+1000*(A < 0 and 1 or 0) --self.RearBogey.MotorForce = 27000+1000*(A < 0 and 1 or 0) self.FrontBogey.MotorForce = 22500+5000*(A < 0 and 1 or 0)*math.max(self.KMR1.Value,self.KMR2.Value) self.RearBogey.MotorForce = 22500+5000*(A < 0 and 1 or 0)*math.max(self.KMR1.Value,self.KMR2.Value) self.FrontBogey.Reversed = (self.KMR2.Value > 0.5) self.RearBogey.Reversed = (self.KMR1.Value > 0.5) -- These corrections are required to beat source engine friction at very low values of motor power local P = math.max(0,0.04449 + 1.06879*math.abs(A) - 0.465729*A^2) if math.abs(A) > 0.4 then P = math.abs(A) end --if math.abs(A) < 0.05 then P = 0 end if self.Speed < 10 and A > 0 then P = P*(1.0 + 2.5*(10.0-self.Speed)/10.0) end self.RearBogey.MotorPower = P*0.5*((A > 0) and 1 or -1) self.FrontBogey.MotorPower = P*0.5*((A > 0) and 1 or -1) --self.RearBogey.MotorPower = P*0.5 --self.FrontBogey.MotorPower = P*0.5 --self.Acc = (self.Acc or 0)*0.95 + self.Acceleration*0.05 --print(self.Acc) -- Apply brakes self.FrontBogey.PneumaticBrakeForce = 50000.0-2000 self.FrontBogey.BrakeCylinderPressure = self.Pneumatic.BrakeCylinderPressure self.FrontBogey.ParkingBrakePressure = math.max(0,(2.6-self.Pneumatic.ParkingBrakePressure)/2.6)/2 self.FrontBogey.BrakeCylinderPressure_dPdT = -self.Pneumatic.BrakeCylinderPressure_dPdT self.FrontBogey.DisableContacts = self.U5.Value>0 self.RearBogey.PneumaticBrakeForce = 50000.0-2000 self.RearBogey.BrakeCylinderPressure = self.Pneumatic.BrakeCylinderPressure self.RearBogey.BrakeCylinderPressure_dPdT = -self.Pneumatic.BrakeCylinderPressure_dPdT self.RearBogey.ParkingBrakePressure = math.max(0,(2.6-self.Pneumatic.ParkingBrakePressure)/2.6)/2 self.RearBogey.DisableContacts = self.U5.Value>0 --self.RearBogey.ParkingBrake = self.ParkingBrake.Value > 0.5 end self:GenerateJerks() return self.RetVal end function ENT:TriggerTurbostroiInput(sys,name,val) self.BaseClass.TriggerTurbostroiInput(self,sys,name,val) end -------------------------------------------------------------------------------- function ENT:OnButtonPress(button,ply) if string.find(button,"PneumaticBrakeSet") then self.Pneumatic:TriggerInput("BrakeSet",tonumber(button:sub(-1,-1))) return end if button == "RearDoor" then self.RearDoor = not self.RearDoor end if button == "PassengerDoor" then self.PassengerDoor = not self.PassengerDoor end if button == "CabinDoor" then self.CabinDoor = not self.CabinDoor end if button == "OtsekDoor1" then self.OtsekDoor1 = not self.OtsekDoor1 end if button == "OtsekDoor2" then self.OtsekDoor2 = not self.OtsekDoor2 end if button == "KR+" then if self.WrenchMode == 1 then self.KR:TriggerInput("Set",self.KR.Position+1) elseif self.WrenchMode == 2 then self.KRU:TriggerInput("Set",self.KRU.Position+1) end end if button == "KR-" then if self.WrenchMode == 1 then self.KR:TriggerInput("Set",self.KR.Position-1) elseif self.WrenchMode == 2 then self.KRU:TriggerInput("Set",self.KRU.Position-1) end end if button == "EmergencyBrake" then self.BKCU:TriggerInput("KV7",1) self.Pneumatic:TriggerInput("BrakeSet",7) return end if button == "WrenchKR" or button == "WrenchKR9" then if self.WrenchMode == 0 then self:PlayOnce("kr_in","cabin",1) self.WrenchMode = 1 else self:OnButtonPress(button == "WrenchKR9" and "KR-" or "KR+") end end if button == "WrenchKRU" then if self.WrenchMode == 0 then self:PlayOnce("kru_in","cabin",1) self.WrenchMode = 2 end end if button == "WrenchNone" then if self.WrenchMode ~= 0 then if self.WrenchMode == 2 and self.KRU.Position == 0 then self:PlayOnce("kru_out","cabin",1,1) self.WrenchMode = 0 elseif self.WrenchMode == 1 and self.KR.Position == 0 then self:PlayOnce("kr_out","cabin",1,1) self.WrenchMode = 0 end end end if button == "KVT" then self.SB8:TriggerInput("Set",1) self.SB9:TriggerInput("Set",1) end if button == "SB1" then self.SA7:TriggerInput("Open",1) self.SB1:TriggerInput("Set",1-self.SA5.Value) end if button == "SB2" then self.SA7:TriggerInput("Close",1) self.SB2:TriggerInput("Set",1-self.SA5.Value) end if button == "SB6" then if self.WrenchMode==2 then self.SBR16:TriggerInput("Set",1) elseif not self.Plombs.SB6 then self.SB6K:TriggerInput("Set",0) self.SB6:TriggerInput("Set",1) end end if button == "SB7" then --self.BKCU:TriggerInput("KV1",1) self.SB7K:TriggerInput("Set",0) self.SB7:TriggerInput("Set",1) end end function ENT:OnButtonRelease(button) if string.find(button,"PneumaticBrakeSet") then if button == "PneumaticBrakeSet1" and (self.Pneumatic.DriverValvePosition == 1) then self.Pneumatic:TriggerInput("BrakeSet",2) end return end if button == "KVT" then self.SB8:TriggerInput("Set",0) self.SB9:TriggerInput("Set",0) end if button == "SB1" then self.SB1:TriggerInput("Set",0) end if button == "SB2" then self.SB2:TriggerInput("Set",0) end if button == "SB6" then if not self.Plombs.SB6 then self.SB6:TriggerInput("Set",0) end self.SBR16:TriggerInput("Set",0) end if button == "SB7" then self.SB7:TriggerInput("Set",0) end end function ENT:OnCouple(train,isfront) if isfront and self.FrontAutoCouple then self.FrontBrakeLineIsolation:TriggerInput("Open",1.0) self.FrontTrainLineIsolation:TriggerInput("Open",1.0) self.FrontAutoCouple = false elseif not isfront and self.RearAutoCouple then self.RearBrakeLineIsolation:TriggerInput("Open",1.0) self.RearTrainLineIsolation:TriggerInput("Open",1.0) self.RearAutoCouple = false end self.BaseClass.OnCouple(self,train,isfront) end function ENT:OnTrainWireError(k) end function ENT:OnPlay(soundid,location,range,pitch) return soundid,location,range,pitch end