Immernoch kein Plan wos langgeht
This commit is contained in:
parent
203a7913a2
commit
43f1451de1
|
|
@ -1,13 +1,59 @@
|
||||||
require("Prototype")
|
-- Tabelle in einen String umwandeln, rekursiv
|
||||||
require("On")
|
-- Funktionswerte werden ignoriert
|
||||||
|
function __tostring(self)
|
||||||
|
local t=type(self)
|
||||||
|
if t=="table" then
|
||||||
|
local r=""
|
||||||
|
-- load and sort table keys
|
||||||
|
local tkeys={}
|
||||||
|
for k in pairs(self) do table.insert(tkeys, k) end
|
||||||
|
table.sort(tkeys, function(a,b) return tostring(a)<tostring(b) end)
|
||||||
|
-- iterate over our table
|
||||||
|
for _,k in ipairs(tkeys) do
|
||||||
|
local v = __tostring(self[k])
|
||||||
|
-- ignore nil values, they unset the key anyways
|
||||||
|
if v~= nil and v ~= "nil" then
|
||||||
|
if r~="" then r=r.."," end
|
||||||
|
-- short format: foo="bar", saves bytes
|
||||||
|
if type(k)=="string" and k:match("^[%l%u_][%w_]*$") then
|
||||||
|
r=r..k.."="..v
|
||||||
|
-- long format: ["foo"]="bar", allows weird keys
|
||||||
|
else
|
||||||
|
r=r.."["..__tostring(k).."]="..v
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
return "{"..r.."}"
|
||||||
|
elseif t=="number" or t=="boolean" then
|
||||||
|
return tostring(self)
|
||||||
|
elseif t=="string" then
|
||||||
|
return ("%q"):format(self)
|
||||||
|
else
|
||||||
|
return "nil"
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
-- Da wir jetzt ohnehin Tabellen in Strings umwandeln koennen, patchen wir
|
||||||
|
-- print(...) damit diese von dieser Darstellung profitieren kann.
|
||||||
|
do
|
||||||
|
local oldprint=print
|
||||||
|
function print(...)
|
||||||
|
local args={...}
|
||||||
|
for i=1,#args do
|
||||||
|
if type(args[i]) == "table" then
|
||||||
|
args[i]=__tostring(args[i])
|
||||||
|
end
|
||||||
|
end
|
||||||
|
oldprint(table.unpack(args))
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
-- Tabelle in beliebigen Slot speichern
|
-- Tabelle in beliebigen Slot speichern
|
||||||
-- Im Slot steht dann eine Lua-Tabelle als String
|
-- Im Slot steht dann eine Lua-Tabelle als String
|
||||||
-- Formatierungszeichen werden soweit URL-encoded,
|
-- Formatierungszeichen werden URL-encoded, damit EEP mit ihren zurecht kommt
|
||||||
-- dass EEP mit Formatierungszeichen keine Probleme mehr hat
|
-- Speziell Hochkommas haben mir immer meine Daten abgeschnitten...
|
||||||
-- Speziell hochkommas haben mir immer meine Daten abgeschnitten...
|
|
||||||
function speicherTabelle(Slotnummer, Tabelle)
|
function speicherTabelle(Slotnummer, Tabelle)
|
||||||
local s=Prototype.__tostring(Tabelle):gsub("([%c%%\"])", function(c)
|
local s=__tostring(Tabelle):gsub("([%c%%\"])", function(c)
|
||||||
return string.format("%%%02X", string.byte(c))
|
return string.format("%%%02X", string.byte(c))
|
||||||
end)
|
end)
|
||||||
EEPSaveData(Slotnummer, s)
|
EEPSaveData(Slotnummer, s)
|
||||||
|
|
@ -26,380 +72,252 @@ function ladeTabelle(Slotnummer)
|
||||||
end))()
|
end))()
|
||||||
end
|
end
|
||||||
|
|
||||||
-- KsKit merkt sich, welche Zuege vor einem Signal stehen
|
function AnimiereFahrzeugStromabnehmer(Fahrzeug, Richtung)
|
||||||
-- Die Tabelle wird einmal beim Lua-Start gelesen
|
local Index, _ = Fahrzeug:gsub(";%d*$","")
|
||||||
-- und nach Aenderungen wieder zurueck geschrieben
|
local Angelegt = false
|
||||||
-- Slot 960 ist damit durch KsKit blockiert!
|
if Stromabnehmer[Index] then
|
||||||
Zugmeldung_Slotnummer = 960
|
local Achsen = Stromabnehmer[Index]
|
||||||
Zugmeldung = ladeTabelle(Zugmeldung_Slotnummer)
|
for i=1,#Achsen do
|
||||||
|
if (i == 1 and Richtung == -1) or (i == #Achsen and Richtung == 1) then
|
||||||
-- Hier werden Zuglenker je nach Fahrstrassen-Startsignal sortiert gesammelt
|
EEPRollingstockSetAxis(Fahrzeug, Achsen[i], 100)
|
||||||
Zuglenkfunktionen = {}
|
Angelegt = true
|
||||||
|
else
|
||||||
-- Neuen Zuglenker installieren:
|
EEPRollingstockSetAxis(Fahrzeug, Achsen[i], 0)
|
||||||
-- Zuglenker schalten unter bestimmten Bedingungen automatisch Fahrstrassen
|
end
|
||||||
function Zuglenkung(Tab)
|
|
||||||
local FS = Tab[1]
|
|
||||||
Tab[1]=nil
|
|
||||||
if Zuglenkfunktionen[FS] == nil then Zuglenkfunktionen[FS]={} end
|
|
||||||
table.insert(Zuglenkfunktionen[FS], function(Zugname, Ankunft)
|
|
||||||
local ziel = 2
|
|
||||||
if Tab.Ziele then
|
|
||||||
ziel = Tab.Ziele(math.random(#Tab.Ziele))
|
|
||||||
end
|
end
|
||||||
return ziel
|
end
|
||||||
end)
|
return Angelegt
|
||||||
end
|
end
|
||||||
|
|
||||||
-- EEPMain-Komponente der Zuglenkung
|
-- Richtung: -1, 0 oder 1
|
||||||
Main(function()
|
function AnimiereZugStromabnehmer(Zug, Richtung)
|
||||||
local FS = {}
|
local AnzahlFahrzeuge = EEPGetRollingstockItemsCount(Zug)
|
||||||
|
local Startwert = 1
|
||||||
-- Teste, ob an einem Signal Fahrstrassen und Zuglenkung existieren
|
local Endwert = AnzahlFahrzeuge
|
||||||
-- Subfunktion, wird beim Sammeln der Fahrstrassen-Signale mehrfach aufgerufen
|
local Schritt = 1
|
||||||
local VersucheAnSignal = function(Signal, Zugname, Ankunft)
|
if Richtung > 0 then
|
||||||
if Signal == nil then return end
|
Startwert = AnzahlFahrzeuge
|
||||||
if Signale[Signal] == nil then return end
|
Endwert = 1
|
||||||
if Signale[Signal].FS == nil then return end
|
Schritt = -1
|
||||||
local FSignal = Signale[Signal].FS
|
end
|
||||||
if EEPGetSignal(FSignal) == 1 and Zuglenkfunktionen[FSignal] then
|
for i=Startwert,Endwert,Schritt do
|
||||||
table.insert(FS, {FSignal, Zugname, Ankunft})
|
local Fahrzeug = EEPGetRollingstockItemName(Zug, i-1)
|
||||||
|
local ok, Vorwaerts = EEPRollingstockGetOrientation(Fahrzeug)
|
||||||
|
if ok and not Vorwaerts then
|
||||||
|
if AnimiereFahrzeugStromabnehmer(Fahrzeug, -1 * Richtung) then Richtung = 0 end
|
||||||
|
else
|
||||||
|
if AnimiereFahrzeugStromabnehmer(Fahrzeug, Richtung) then Richtung = 0 end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
end
|
||||||
|
|
||||||
-- Sammle alle Fahrstrassen-Signale, die geschaltet werden koennen
|
|
||||||
-- Einmal die, wo direkt ein Zug in Anfahrt ist
|
|
||||||
-- Und einmal die, wo der Zug gerade das "Halt erwarten" am vorherigen Signal sieht
|
|
||||||
-- Zugname und Ankunftszeit merken
|
|
||||||
for k,v in pairs(Signale) do
|
|
||||||
if Zugmeldung[k] and v.FS then
|
|
||||||
local Begriff = v:Lese()
|
|
||||||
if Begriff[1] == HALT then
|
|
||||||
VersucheAnSignal(k, Zugmeldung[k][1], Zugmeldung[k][3])
|
|
||||||
elseif Begriff[1] == FAHRT and Begriff.H_erwarten and v.FF then
|
|
||||||
local Ziel = EEPGetSignal(v.FS) - 1
|
|
||||||
if v.FF[Ziel] then
|
|
||||||
VersucheAnSignal(v.FF[Ziel], Zugmeldung[k][1], Zugmeldung[k][3])
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
-- Zuglenker abarbeiten, moegliche Fahrstrassenstellungen sammeln
|
|
||||||
local FSStellungen = {}
|
|
||||||
for i=1,#FS do
|
|
||||||
local FSignal = FS[i][1]
|
|
||||||
local Zugname = FS[i][2]
|
|
||||||
local Ankunft = FS[i][3]
|
|
||||||
for j=1, #Zuglenkfunktionen[FSignal] do
|
|
||||||
local ziel = Zuglenkfunktionen[FSignal][j](Zugname,Ankunft)
|
|
||||||
if type(ziel) == "number" and ziel > 1 then
|
|
||||||
table.insert(FSStellungen,{FSignal,ziel})
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
-- Eine einzelne Fahrstrassenstellung mittels EEPSetSignal abarbeiten
|
|
||||||
-- Diese wird zufaellig ausgewaehlt, damit haben wir sowohl bei Verzweigungen und Zusammenfuehrungen
|
|
||||||
-- automatisch Abwechslung, soweit es die Zuglenker erlauben
|
|
||||||
-- Das wir nur eine Fahrstrasse schalten ist nicht schlimm, wir werden ja 5 mal pro Sekunde ausgefuehrt
|
|
||||||
-- Beim naechsten mal kann man dann aber via EEPGetSignal() sehen, was wir an Fahrstrassen nicht mehr zu schalten brauchen
|
|
||||||
if #FSStellungen >= 1 then
|
|
||||||
local FS, Ziel = table.unpack(FSStellungen[math.random(#FSStellungen)])
|
|
||||||
-- Wichtig: Callbacks aktivieren, damit Mehrabschnittssignale ueber ihren Nachfolger informiert werden
|
|
||||||
EEPSetSignal(FS, Ziel, 1)
|
|
||||||
end
|
|
||||||
end)
|
|
||||||
|
|
||||||
-- Basis-Prototyp fuer alle Signale
|
|
||||||
Signal=Prototype{}
|
|
||||||
|
|
||||||
-- Konstanten fuer Signalbegriffe
|
|
||||||
-- KsKit benutzt ein eigenes Format, um Signalbegriffe abzubilden
|
|
||||||
-- Dabei handelt es sich um eine Tabelle mit folgenden Schluesseln:
|
|
||||||
-- - 1: Grundsaetzlicher Typ von Begriffen, Fahrt ist 1, Halt ist 2
|
|
||||||
-- - V_max: nil oder number, Maximalgeschwindigkeit falls angezeigt
|
|
||||||
-- - H_erwarten: nil oder true, falls Begriff "Halt Erwarten" signalisiert
|
|
||||||
-- - V_erwarten: nil oder number, falls Begriff eine Geschwindigkeit vorsignalisiert
|
|
||||||
-- V_max und V_erwarten entsprechen absichtlich der Aufteilung der Zusatzanzeiger am Ks-Signal.
|
|
||||||
-- Gegen Ende der Datei sind extensiv Signalbegriffe als eigene Konstanten definiert
|
|
||||||
|
|
||||||
-- Grundsätzliche Typen von Signalbildern
|
|
||||||
FAHRT=1
|
FAHRT=1
|
||||||
HALT=2
|
HALT=2
|
||||||
RANGIERFAHRT=3
|
|
||||||
ERSATZFAHRT=4
|
|
||||||
AUS=5
|
|
||||||
|
|
||||||
-- Achtung: Keine Methode, Zugriff via einfachen Punkt, nicht Doppelpunkt
|
function leseSignal(Signal)
|
||||||
-- Wandelt einen Begriff in eine Textuelle Beschreibung um
|
if EEPGetSignal(Signal) == 1 then
|
||||||
-- Es lohnt sich, diesen Text im Signal-Tooltip anzuzeigen
|
return {FAHRT}
|
||||||
-- Hl-Signale sind zwar huebsch, aber nicht immer einfach zu lesen
|
|
||||||
function Signal.BegriffZuText(Begriff)
|
|
||||||
if Begriff[1]==HALT then return "Halt" end
|
|
||||||
if Begriff[1]==RANGIERFAHRT then return "Rangierfahrt" end
|
|
||||||
if Begriff[1]==ERSATZFAHRT then return "Fahrt auf Ersatzsignal" end
|
|
||||||
if Begriff[1]==AUS then return "Signal ausgeschaltet" end
|
|
||||||
local txt = "Fahrt"
|
|
||||||
if Begriff.V_max then
|
|
||||||
txt = txt.." mit "..tostring(Begriff.V_max).." km/h"
|
|
||||||
end
|
|
||||||
if Begriff.H_erwarten ~= nil then
|
|
||||||
txt = txt..", Halt erwarten"
|
|
||||||
if Begriff.kurz ~= nil then
|
|
||||||
txt = txt.." im verkürzten Abstand"
|
|
||||||
end
|
|
||||||
end
|
|
||||||
if Begriff.V_erwarten then
|
|
||||||
txt = txt..", "..tostring(Begriff.V_erwarten).." km/h erwarten"
|
|
||||||
end
|
|
||||||
return txt
|
|
||||||
end
|
|
||||||
|
|
||||||
-- Alle Signale vor EEP5 konnten nur diese beiden Begriffe
|
|
||||||
Signal.Begriffe={{FAHRT},{HALT}}
|
|
||||||
|
|
||||||
-- Text fuer einen potentiellen Tooltip generieren
|
|
||||||
function Signal:TooltipText()
|
|
||||||
local Begriff = self:Lese()
|
|
||||||
local col=1
|
|
||||||
local bgcol = "255,0,0"
|
|
||||||
if Begriff[1]~=HALT then col=2 end
|
|
||||||
if Begriff[1]==FAHRT and Begriff.V_max == nil and not Begriff.H_erwarten then col=3 end
|
|
||||||
|
|
||||||
local fgcol={"255,255,255","0,0,0","0,0,0"}
|
|
||||||
local bgcol={"255,0,0","255,255,0","0,255,0"}
|
|
||||||
|
|
||||||
r="<c><b><bgrgb="..bgcol[col].."><fgrgb="..fgcol[col]..">"..self.BegriffZuText(Begriff).."<bgrgb=255,255,255></b>"
|
|
||||||
if Zugmeldung[self.ID] then
|
|
||||||
r=r.."\n<c>"..Zugmeldung[self.ID][1]
|
|
||||||
end
|
|
||||||
return r
|
|
||||||
end
|
|
||||||
|
|
||||||
-- Wird derzeit nicht genutzt, das war so gedacht, das im Tooltip dann "Rangiersignal" oder "Ausfahrsignal" steht
|
|
||||||
-- Hinterher war mir der Platz im Tooltip aber dann zu schade
|
|
||||||
-- Wenn hier vom User sowas wie "Einfahrsignal aus Richtung Nossen" eingetragen wird, ware das sicher nuetzlich
|
|
||||||
Signal.Beschreibung="Signal"
|
|
||||||
function Signal:set_Beschreibung(v)
|
|
||||||
self.Beschreibung=v
|
|
||||||
end
|
|
||||||
|
|
||||||
-- Neue Signale werden mit Signal{...} vom Prototyp abgeleitet
|
|
||||||
-- Die Optionen werden durch set_$schluessel Setter geleitet.
|
|
||||||
-- Gibt es einen Setter nicht, gibt es einen harten Fehler - hier vertippt sich keiner mehr, auch ich nicht.
|
|
||||||
function Signal:init(tab)
|
|
||||||
for k,v in pairs(tab) do
|
|
||||||
local setter = "set_"..tostring(k)
|
|
||||||
if type(self[setter]) == "function" then
|
|
||||||
self[setter](self, v)
|
|
||||||
else
|
|
||||||
error("Signaleigenschaft "..k.." hier nicht erlaubt")
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
-- Setter fuer Signal-ID. Die selbe ID, wie auch fur EEPGetSignal und EEPSetSignal genutzt wird.
|
|
||||||
-- Die steht ganz am Anfang in der Tabelle vom Init-Aufruf und hat keinen String als Schluessel.
|
|
||||||
-- Ab hier ist auch die exakte ID unseres Signales bekannt, deswegen werden Globale Funktionen mit der ID im Namen ebenfalls hier definiert.
|
|
||||||
-- Koennte man aber auch spaeter machen.
|
|
||||||
function Signal:set_1(id)
|
|
||||||
-- Globale Tabelle wo alle Signale drinnestehen
|
|
||||||
-- So merkt man besser wenn man eine ID zweimal vergibt
|
|
||||||
-- Die Signale-Tabelle wird auch benoetigt, damit Mehrabschnittssignale ueber die ID ihres Folgesignales den Begriff dessen lesen koennen.
|
|
||||||
if type(Signale) ~= "table" then Signale={} end
|
|
||||||
if Signale[id]~=nil then error("Signal ID "..id.." bereits verwendet") end
|
|
||||||
if type(id) ~= "number" then error("Signal ID muss eine Zahl sein") end
|
|
||||||
self.ID = id
|
|
||||||
Signale[id]=self
|
|
||||||
-- Anfahrtkontakt: Wir merken uns, das ein Zug an dieses Signal heranfaehrt.
|
|
||||||
-- Die Zuglenkung wertet diese Informationen aus
|
|
||||||
_G["Anfahrt_"..tostring(self.ID)]=function(Zugname)
|
|
||||||
local ok, Speed = EEPGetTrainSpeed(Zugname)
|
|
||||||
-- Derzeitige Fahrtrichtung ermitteln
|
|
||||||
local Richtung = 1
|
|
||||||
if Speed < 0 then Richtung = -1 end
|
|
||||||
-- Ankündigung an den User
|
|
||||||
--print(Zugname," an: ",self.Beschreibung," ",self.ID, ", V=",math.ceil(Speed))
|
|
||||||
-- Zuganmeldung speichern
|
|
||||||
Zugmeldung[self.ID]={Zugname, Richtung, EEPTime}
|
|
||||||
speicherTabelle(Zugmeldung_Slotnummer, Zugmeldung)
|
|
||||||
end
|
|
||||||
-- Wird ein Signal auf Halt gestellt, gehen wir davon aus, das der Zug, der bisher hier Stand, jetzt weg ist.
|
|
||||||
-- Damit kann durch einen Haltkontakt die Zugmeldung aufgeloest werden.
|
|
||||||
-- Liegengebliebende Zugmeldungen koennen damit auch durch Toggeln des Signales geloescht werden
|
|
||||||
OnSignal(self.ID, function(Stellung)
|
|
||||||
if self.Begriffe[Stellung][1] == HALT then
|
|
||||||
Zugmeldung[self.ID]=nil
|
|
||||||
speicherTabelle(Zugmeldung_Slotnummer, Zugmeldung)
|
|
||||||
end
|
|
||||||
end)
|
|
||||||
end
|
|
||||||
|
|
||||||
-- Der Konstruktor des jeweiligen Signaltypes fuettert die Stellungen des Signals hier rein
|
|
||||||
-- Das ist eine Liste von Begriffen im oben dokumentierten Tabellenformat
|
|
||||||
function Signal:set_Begriffe(Begriffe)
|
|
||||||
-- TODO: validieren das hier kein Mist reinkommt
|
|
||||||
self.Begriffe=Begriffe
|
|
||||||
end
|
|
||||||
|
|
||||||
-- Fahrstrassenstartsignal mit Signal verbinden
|
|
||||||
function Signal:set_FS(FS)
|
|
||||||
self.FS=FS
|
|
||||||
end
|
|
||||||
|
|
||||||
-- Folgesignale setzen
|
|
||||||
-- Der Wert ist eine Liste von Signal-IDs:
|
|
||||||
-- - Element 1 entspricht Folgesignal der ersten Fahrstrasse (Stellung 2)
|
|
||||||
-- - Element 2 entspricht dem Folgesignal der zweiten Fahrstrasse (Stellung 3)
|
|
||||||
-- - etc
|
|
||||||
-- Wird zum Vorsignalisieren genutzt
|
|
||||||
function Signal:set_FF(FF)
|
|
||||||
self.FF=FF
|
|
||||||
-- Callback fuer alle potentiellen Folgesignale eintragen
|
|
||||||
-- Wir mussen das ja hinterher ggf. vorsignalieren
|
|
||||||
for i=1,#FF do
|
|
||||||
if type(FF[i])=="number" and FF[i] > 0 then
|
|
||||||
OnSignal(FF[i], function()
|
|
||||||
self:UpdateVorsignalfunktion()
|
|
||||||
end)
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
-- Diese Funktion ist fuer Mehrabschnittssignale relevant
|
|
||||||
-- Ueber die FS und FF attribute koennen wir ableiten, welches Signal auf dieses folgt
|
|
||||||
-- Das lesen wir dann (geht nur, wenn es auch in KsKit eingetragen ist)
|
|
||||||
-- und basteln uns dann unsere eigenen Begriff zurecht
|
|
||||||
function Signal:UpdateVorsignalfunktion()
|
|
||||||
if self.FS == nil then return end -- Wir haben kein Fahrstrassensignal
|
|
||||||
if self.FF == nil then return end -- Wir haben keine Folgesignale
|
|
||||||
local FS_Ziel = EEPGetSignal(self.FS) - 1
|
|
||||||
if FS_Ziel < 1 then return end -- Fahrstrasse nicht geschaltet
|
|
||||||
local Folgesignal = self.FF[FS_Ziel]
|
|
||||||
local Begriff=self:Lese()
|
|
||||||
if Begriff[1] ~= FAHRT then return end
|
|
||||||
local Folgebegriff=Signale[Folgesignal]:Lese()
|
|
||||||
local NeuerBegriff = {FAHRT}
|
|
||||||
NeuerBegriff.V_max = Begriff.V_max
|
|
||||||
NeuerBegriff.V_erwarten = Folgebegriff.V_max
|
|
||||||
if Folgebegriff[1] == FAHRT then
|
|
||||||
NeuerBegriff.H_erwarten = nil
|
|
||||||
else
|
else
|
||||||
NeuerBegriff.H_erwarten = true
|
return {HALT}
|
||||||
end
|
end
|
||||||
self:Zeige(NeuerBegriff)
|
|
||||||
end
|
end
|
||||||
|
|
||||||
-- Signalbegriff lesen
|
local GefundeneSignale={}
|
||||||
-- Sehr trivial
|
local Zugaktionen={}
|
||||||
function Signal:Lese()
|
|
||||||
return self.Begriffe[EEPGetSignal(self.ID)]
|
setmetatable(Zugaktionen, {
|
||||||
|
__index=function(table, key)
|
||||||
|
table[key]={}
|
||||||
|
return table[key]
|
||||||
|
end
|
||||||
|
})
|
||||||
|
|
||||||
|
function KsKitInit()
|
||||||
|
GefundeneSignale={}
|
||||||
|
Zugaktionen=ladeTabelle(1)
|
||||||
|
|
||||||
|
for Signal=1,1000 do
|
||||||
|
if EEPGetSignal(Signal) > 0 and EEPGetSignal(Signal+1000) > 0 then
|
||||||
|
table.insert(GefundeneSignale, Signal)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
for i=1,#GefundeneSignale do
|
||||||
|
local Signal = GefundeneSignale[i]
|
||||||
|
EEPRegisterSignal(Signal)
|
||||||
|
_G["EEPOnSignal_"..tostring(Signal)]=function(Stellung)
|
||||||
|
|
||||||
|
end
|
||||||
|
EEPRegisterSignal(Signal+1000)
|
||||||
|
_G["EEPOnSignal_"..tostring(Signal+1000)]=function(FStellung)
|
||||||
|
if FStellung > 1 then
|
||||||
|
print("Fahrstrasse ",string.format("%04d-%02d", Signal+1000, FStellung-1)," geschalten")
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
-- Signalbegriff setzen
|
function KsKitMain()
|
||||||
-- Faktisch sortiert diese Funktion alle Begriffe je nachdem, wie gut sie der gesuchten Stellung entsprechen
|
-- Signale abfragen, ob vielleicht ein Zug vor ihnen steht
|
||||||
-- Der erste (besten-passende) Begriff wird dann gesetzt
|
for i=1,#GefundeneSignale do
|
||||||
-- Die Funktion ist zwar saumaessig kompliziert, kann aber bei Geschwindigkeitsabstufungen auf gerigere Geschwindigkeiten zurueckfallen.
|
local Signal = GefundeneSignale[i]
|
||||||
-- Speziell bei Hl-Signalen, die sich einen VS-Begriff fuer V40 und V60 teilen, ist das nuetzlich.
|
if EEPGetSignalTrainsCount(Signal) > 0 then
|
||||||
-- Bei Signalen mit einer sehr schlechten Auswahl an Begriffen kommt hier vielleicht Murks raus
|
Zugname = EEPGetSignalTrainName(Signal, 1)
|
||||||
-- Das sollte man vielleicht genauer testen
|
if not Zugaktionen[Zugname].S then
|
||||||
function Signal:Zeige(Stellung)
|
Zugaktionen[Zugname].S = Signal
|
||||||
-- Achso, wir sortieren nicht die richtige Begriffstabelle, sondern eine Ersatztabelle mit den Indexen.
|
end
|
||||||
-- Ist performanter. Und wir zerschiessen uns nicht die Begriffstabelle, weil wir die ja per Referenz haben.
|
end
|
||||||
local order={}
|
|
||||||
for i=1,#self.Begriffe do
|
|
||||||
table.insert(order, i)
|
|
||||||
end
|
end
|
||||||
-- Sortieraufruf mit Sortierlabda
|
|
||||||
table.sort(order, function(a,b)
|
-- Signalstellauftraege
|
||||||
local StlgA = self.Begriffe[a]
|
local Schaltauftraege = {}
|
||||||
local StlgB = self.Begriffe[b]
|
local SignalHaltegruende = {}
|
||||||
local props={1,"V_max","H_erwarten","V_erwarten"}
|
|
||||||
for i=1,#props do
|
for Zugname, Data in pairs(Zugaktionen) do
|
||||||
-- Folgendes Muster: Wenn Stellung A und B sich in einem Merkmal unterscheiden
|
local ok, V = EEPGetTrainSpeed(Zugname)
|
||||||
-- UND Stellung A in diesem Merkmal mit der Zielstellung uebereinstimmt,
|
if ok then
|
||||||
-- DANN ist Stellung A besset geeignet, sonst nicht
|
local Haltegrund = "Kein Plan"
|
||||||
-- Wir muessen das auch andersherum mit Stellung B machen
|
|
||||||
if StlgA[props[i]] ~= StlgB[props[i]] then
|
-- Wenn wir stehen, merken wir uns unsere Ankunftszeit
|
||||||
if StlgA[props[i]] == Stellung[props[i]] then return true end
|
if V > -5 and V < 5 then
|
||||||
if StlgB[props[i]] == Stellung[props[i]] then return false end
|
if Zugaktionen[Zugname].A == nil then
|
||||||
-- Muster: Geschwindigkeitsmerkmal ist vorhanden und kleiner als Ziel, aber der Vergleichsbegriff:
|
Zugaktionen[Zugname].A = EEPTime
|
||||||
-- - zeigt das Merkmal gar nicht
|
if Zugaktionen[Zugname].V then
|
||||||
-- - zeigt eine hohere Geschwindigkeit als gewollt
|
EEPSetTrainSpeed(Zugname, 0)
|
||||||
-- - zeigt eine noch kleinere Geschwindigkeit
|
if Zugaktionen[Zugname].R then
|
||||||
-- Dann ist der Vergleichsbegriff schlechter geeignet
|
AnimiereZugStromabnehmer(Zugname, 0)
|
||||||
-- Und das dann jeweils in beide Richtungen
|
end
|
||||||
if i == 2 or i == 4 then -- 2 ist V_max, 4 ist V_erwarten
|
|
||||||
if StlgA[props[i]] and Stellung[props[i]] and StlgA[props[i]] < Stellung[props[i]] then
|
|
||||||
if StlgB[props[i]] == nil then return true end
|
|
||||||
if StlgB[props[i]] > Stellung[props[i]] then return true end
|
|
||||||
if StlgB[props[i]] < StlgA[props[i]] then return true end
|
|
||||||
end
|
end
|
||||||
if StlgB[props[i]] and Stellung[props[i]] and StlgB[props[i]] < Stellung[props[i]] then
|
end
|
||||||
if StlgA[props[i]] == nil then return false end
|
-- Ankunftszeit loeschen falls wir unterwegs sind
|
||||||
if StlgA[props[i]] > Stellung[props[i]] then return false end
|
elseif Zugaktionen[Zugname].A then
|
||||||
if StlgA[props[i]] < StlgB[props[i]] then return false end
|
Zugaktionen[Zugname].A = nil
|
||||||
|
Zugaktionen[Zugname].S = nil
|
||||||
|
Zugaktionen[Zugname].R = nil
|
||||||
|
Zugaktionen[Zugname].V = nil
|
||||||
|
end
|
||||||
|
|
||||||
|
if Zugaktionen[Zugname].W then
|
||||||
|
Haltegrund = "Planhalt"
|
||||||
|
end
|
||||||
|
|
||||||
|
-- Wartezeit loeschen falls abgesessen
|
||||||
|
if Zugaktionen[Zugname].W and Zugaktionen[Zugname].A then
|
||||||
|
local Wartedauer = EEPTime - Zugaktionen[Zugname].A
|
||||||
|
if Wartedauer < 0 then
|
||||||
|
Wartedauer = Wartedauer + 24*60*60
|
||||||
|
end
|
||||||
|
if Wartedauer > Zugaktionen[Zugname].W then
|
||||||
|
Zugaktionen[Zugname].W = nil
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
-- Fahrstrasse schalten
|
||||||
|
if not Zugaktionen[Zugname].W and Zugaktionen[Zugname].S then
|
||||||
|
local ZSignal = Zugaktionen[Zugname].S
|
||||||
|
local FSignal = ZSignal + 1000
|
||||||
|
local Fahrstrassen = {}
|
||||||
|
if Zugaktionen[Zugname].FS then
|
||||||
|
Fahrstrassen = Zugaktionen[Zugname].FS
|
||||||
|
elseif Selbstblock_Default then
|
||||||
|
Fahrstrassen = {1}
|
||||||
|
end
|
||||||
|
if #Fahrstrassen > 0 then
|
||||||
|
if EEPGetSignal(FSignal) == 1 then
|
||||||
|
Schaltauftraege[FSignal] = 1+Fahrstrassen[math.random(#Fahrstrassen)]
|
||||||
|
end
|
||||||
|
Haltegrund = "FS angefordert"
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
-- Haltegrund merken, das wir ihn spaeter im Signal-Tooltip darstellen koennen
|
||||||
|
if Zugaktionen[Zugname].S then
|
||||||
|
SignalHaltegruende[Zugaktionen[Zugname].S] = Haltegrund
|
||||||
|
end
|
||||||
|
|
||||||
|
if Zugaktionen[Zugname].S then
|
||||||
|
local Begriff = leseSignal(Zugaktionen[Zugname].S)
|
||||||
|
if Begriff[1] ~= HALT then
|
||||||
|
if Zugaktionen[Zugname].V then
|
||||||
|
if Zugaktionen[Zugname].B and Zugaktionen[Zugname].B + 5 < EEPTime then
|
||||||
|
EEPSetTrainSpeed(Zugname, Zugaktionen[Zugname].V)
|
||||||
|
Zugaktionen[Zugname].V = nil
|
||||||
|
Zugaktionen[Zugname].B = nil
|
||||||
|
elseif not Zugaktionen[Zugname].B then
|
||||||
|
AnimiereZugStromabnehmer(Zugname, Zugaktionen[Zugname].V>0 and 1 or -1)
|
||||||
|
Zugaktionen[Zugname].B = EEPTime
|
||||||
|
Zugaktionen[Zugname].R = nil
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Zugaktionen[Zugname].S = nil
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
|
else
|
||||||
|
-- Zug aus den Augen verloren...
|
||||||
|
Zugaktionen[Zugname]=nil
|
||||||
end
|
end
|
||||||
return false
|
end
|
||||||
end)
|
|
||||||
-- Begriff aktiv schalten... der Wert in unserer Indextabelle ist der Index in die Begriffstabelle
|
speicherTabelle(1, Zugaktionen)
|
||||||
-- und damit auch genau der Wert, den EEP fuer die numerische Stellung braucht
|
EEPChangeInfoSignal(1, __tostring(Zugaktionen))
|
||||||
EEPSetSignal(self.ID, order[1], 1)
|
for k,v in pairs(Schaltauftraege) do
|
||||||
return true
|
EEPSetSignal(k,v,1)
|
||||||
|
end
|
||||||
|
|
||||||
|
for i=1,#GefundeneSignale do
|
||||||
|
local Signal = GefundeneSignale[i]
|
||||||
|
if Aktiviere_Tooltips then
|
||||||
|
local name = string.format("%04d", Signal)
|
||||||
|
if Name and Name[Signal] then name=Name[Signal] end
|
||||||
|
local txt = "<c>Signal "..name
|
||||||
|
local Stellung = EEPGetSignal(Signal)
|
||||||
|
if Stellung == 1 then
|
||||||
|
txt = txt.."\n<c><b><fgrgb=0,0,0><bgrgb=0,255,0>Fahrt</b>"
|
||||||
|
else
|
||||||
|
txt = txt.."\n<c><b><fgrgb=255,255,255><bgrgb=255,0,0>Halt</b>"
|
||||||
|
end
|
||||||
|
txt = txt.."<fgrgb=0,0,0><bgrgb=255,255,255>"
|
||||||
|
local FStellung = EEPGetSignal(Signal+1000)
|
||||||
|
if FStellung > 1 then
|
||||||
|
txt = txt.."\n<c>".. string.format("FS #%02d", FStellung-1)
|
||||||
|
end
|
||||||
|
if SignalHaltegruende[Signal] then
|
||||||
|
txt = txt.."\n"..SignalHaltegruende[Signal]
|
||||||
|
end
|
||||||
|
EEPChangeInfoSignal(Signal, txt)
|
||||||
|
EEPShowInfoSignal(Signal, 1)
|
||||||
|
else
|
||||||
|
EEPShowInfoSignal(Signal, 0)
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
-- So, der Signal-Prototyp ist definiert! Jetzt definieren wir uns die ganzen Signalsysteme und jeweils ein paar Modelle dazu
|
function FS(...)
|
||||||
|
Zugaktionen[Zugname].FS = {...}
|
||||||
|
speicherTabelle(1, Zugaktionen)
|
||||||
|
end
|
||||||
|
|
||||||
-- Signalbilder OSJD/EZMG/Hl-Signale des Ostblocks
|
function W(Dauer)
|
||||||
-- V_erwarten=60 wird durch V_erwarten=40 signalisiert
|
Zugaktionen[Zugname].W = Dauer
|
||||||
Hl1={FAHRT}
|
speicherTabelle(1, Zugaktionen)
|
||||||
Hl2={FAHRT, V_max=100}
|
end
|
||||||
Hl3a={FAHRT, V_max=40}
|
|
||||||
Hl3b={FAHRT, V_max=60}
|
|
||||||
Hl4={FAHRT, V_erwarten=100}
|
|
||||||
Hl5={FAHRT, V_max=100, V_erwarten=100}
|
|
||||||
Hl6a={FAHRT, V_max=40, V_erwarten=100}
|
|
||||||
Hl6b={FAHRT, V_max=60, V_erwarten=100}
|
|
||||||
Hl7={FAHRT, V_erwarten=40}
|
|
||||||
Hl8={FAHRT, V_max=100, V_erwarten=40}
|
|
||||||
Hl9a={FAHRT, V_max=40, V_erwarten=40}
|
|
||||||
Hl9b={FAHRT, V_max=60, V_erwarten=40}
|
|
||||||
Hl10={FAHRT, H_erwarten=true}
|
|
||||||
Hl11={FAHRT, V_max=100, H_erwarten=true}
|
|
||||||
Hl12a={FAHRT, V_max=40, H_erwarten=true}
|
|
||||||
Hl12b={FAHRT, V_max=60, H_erwarten=true}
|
|
||||||
Hl13={HALT}
|
|
||||||
|
|
||||||
-- Zusatzsignale
|
function S(Signal)
|
||||||
Zs1={ERSATZFAHRT}
|
Zugaktionen[Zugname].S = Signal
|
||||||
Ra10={HALT, Nur_Rangierfahrten=true} -- Rangierhalttafel
|
-- Geschwindigkeit fuer Weiterfahrt ermitteln
|
||||||
Ra11={HALT, Nur_Rangierfahrten=true} -- Wartezeichen
|
local _, V = EEPGetTrainSpeed(Zugname)
|
||||||
Sh1={RANGIERFAHRT} -- war Ra12 bei DR
|
Zugaktionen[Zugname].V = math.floor(V)
|
||||||
|
speicherTabelle(1, Zugaktionen)
|
||||||
|
end
|
||||||
|
|
||||||
Rangierhalttafel=Signal{Begriffe={{FAHRT},Ra10},Beschreibung="Rangierhalttafel"}
|
function R(Signal)
|
||||||
|
Zugaktionen[Zugname].S = Signal
|
||||||
-- V11NHK10024 HL-Signale der DR *V40* - Grundset
|
-- Geschwindigkeit fuer Weiterfahrt ermitteln
|
||||||
Hl_Signal_Ausfahrt_V40=Signal{Begriffe={Hl13,Hl1,Hl3a,Zs1,Sh1,Hl13},Beschreibung="Ausfahrsignal"}
|
local _, V = EEPGetTrainSpeed(Zugname)
|
||||||
Hl_Signal_Ausfahrt_Vmax=Signal{Begriffe={Hl13,Hl1,Zs1,Sh1,Hl13},Beschreibung="Ausfahrsignal"}
|
Zugaktionen[Zugname].V = math.floor(-V)
|
||||||
Hl_Signal_Block=Signal{Begriffe={Hl13,Hl1,Zs1,Hl13},Beschreibung="Blocksignal"}
|
-- Merken, das ein Richtungswechsel animiert werden soll
|
||||||
Hl_Signal_Einfahrt_V40=Signal{Begriffe={Hl13,Hl1,Hl7,Hl10,Hl3a,Hl9a,Hl12a,Zs1,Hl13},Beschreibung="Einfahrsignal"}
|
Zugaktionen[Zugname].R = 1
|
||||||
Hl_Signal_Selbstblock=Signal{Begriffe={Hl13,Hl1,Hl10,Hl13},Beschreibung="Blocksignal"}
|
speicherTabelle(1, Zugaktionen)
|
||||||
Hl_Signal_Vorsignal_V40=Signal{Begriffe={Hl10,Hl7,Hl1},Beschreibung="Vorsignal"}
|
end
|
||||||
Hl_Signal_Vorsignalwiederholer_V40=Signal{Begriffe={Hl10,Hl7,Hl1},Beschreibung="Vorsignalwdh"}
|
|
||||||
|
|
||||||
-- V11NHK10025 HL-Signale der DR *V60* - Erweiterungsset
|
|
||||||
Hl_Signal_Ausfahrt_V60=Signal{Begriffe={Hl13,Hl1,Hl3b,Hl3a,Zs1,Sh1,Hl13}, Beschreibung="Ausfahrsignal"}
|
|
||||||
Hl_Signal_Einfahrt_V60=Signal{Begriffe={Hl13,Hl1,Hl4,Hl7,Hl10,Hl3b,Hl6b,Hl9b,Hl12b,Hl3a,Hl6a,Hl9a,Hl12a,Zs1,Hl13}, Beschreibung="Einfahrsignal"}
|
|
||||||
-- V40 und V60 werden bei Hl gleich vorsignalisiert, keine Ahnung warum das ueberhaupt verschiedene Modelle hat
|
|
||||||
Hl_Signal_Vorsignal_V60=Hl_Signal_Vorsignal_V40
|
|
||||||
Hl_Signal_Vorsignalwiederholer_V60=Hl_Signal_Vorsignalwiederholer_V40
|
|
||||||
|
|
||||||
-- Bahnhofsset
|
|
||||||
Hl_Zwerg_Rangiersignal=Signal{Begriffe={Ra11,Sh1},Beschreibung="Rangierhaltsignal"}
|
|
||||||
|
|
||||||
-- Irgendein anderes set
|
|
||||||
Hl_Signal_AZ=Signal{Begriffe={Hl13,Hl1,Hl4,Hl7,Hl10,Hl3a,Hl9a,Hl6a,Hl12a,Sh1,Zs1,Hl13,{}}, Beschreibung="Ausfahrsignal"}
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue