kskit/init.lua

214 lines
5.6 KiB
Lua
Raw Normal View History

2022-04-07 18:39:46 +02:00
-- Versionsnummer. Diese dient vor allem zu Diagnosezwecken.
-- Ich weiss jetzt noch nicht, wie viele verschiedene Versionen von dem Script spaeter herumfliegen werden.
KsKitVer=0
2022-04-07 18:39:46 +02:00
2022-05-19 23:36:24 +02:00
Kennziffer=34
2022-04-08 21:49:24 +02:00
2022-05-19 23:36:24 +02:00
local Callbacks = {}
2022-04-07 18:39:46 +02:00
2022-05-19 23:36:24 +02:00
function On(Name, Funktion)
-- Erlaube es, Signal und Weichen via Nummer zu referenzieren
if type(Name) == "number" then
if EEPGetSwitch(Name) > 0 then
Name = "EEPOnSwitch_"..tostring(Name)
elseif EEPGetSignal(Name) > 0 then
Name = "EEPOnSignal_"..tostring(Name)
end
2022-04-07 18:39:46 +02:00
end
2022-05-19 23:36:24 +02:00
if type(Name) == "table" then
for _, Newname in pairs(Name) do
On(Newname, Funktion)
end
return
end
if type(Name) ~= "string" or string.match(Name, "EEP.+") == nil then
print("Verweigere Callback von "..type(Name).." "..tostring(Name))
return
end
if not Callbacks[Name] then
Callbacks[Name] = {}
if _G[Name] ~= nil then
print("Warnung: "..Name.."() von KsKit adoptiert")
table.insert(Callbacks[Name], _G[Name])
end
_G[Name] = function(...)
for cnt = 1, #Callbacks[Name] do
Callbacks[Name][cnt](...)
2022-04-07 18:39:46 +02:00
end
2022-05-19 23:36:24 +02:00
-- Nur EEPMain braucht dies, aber dringends
return 1
end
-- Bei Weichen und Signalen muss EEP vorher informiert werden
-- Item ist normal "Switch" oder "Signal"
local Item, Number = string.match(Name, 'EEPOn(.+)_(%d+)')
if Number ~= nil then
_G["EEPRegister"..Item](Number)
2022-04-07 18:39:46 +02:00
end
end
2022-05-19 23:36:24 +02:00
table.insert(Callbacks[Name], Funktion)
end
-- EEPMain-Callback registrieren
function Main(Funktion)
On("EEPMain", Funktion)
end
-- Signal-Callback registrieren
function OnSignal(Signal, Funktion)
EEPRegisterSignal(Signal)
On("EEPOnSignal_"..tostring(Signal), Funktion)
end
-- Weichen-Callbacks registrieren
function OnSwitch(Switch, Funktion)
EEPRegisterSwitch(Switch)
On("EEPOnSwitch_"..tostring(Switch), Funktion)
2022-04-07 18:39:46 +02:00
end
2022-04-08 21:49:24 +02:00
-- Lua-Serializer und Deserializer laden
serpent=require("kskit/serpent")
-- Lua-Tabelle aus EEP Slot laden
function ladeTabelle(Slot)
local roh, geparst
ok, roh = EEPLoadData(Slot)
if not ok then return {} end
ok, geparst = serpent.load(roh)
if not ok then return {} end
if type(geparst) ~= "table" then return {} end
return geparst
end
-- Lua-Tabelle in EEP Slot speichern
function speicherTabelle(Slot, Tabelle)
EEPSaveData(Slot, serpent.line(Tabelle, {comment = false}))
end
2022-05-19 23:36:24 +02:00
-- Referenz-Datenbank mit Signalen, Fahrstrassen & Weichen
-- Geordnet nach Signal/Weichen-ID
KsSignale = {}
2022-04-08 21:49:24 +02:00
2022-05-19 23:36:24 +02:00
-- KsSignale von GK3 sind sehr systematisch benannt, die moeglichen Stellungen lassen sich aus dem Namen herleiten
function GK3KsBegriffe(Modell)
local Teile = {}
for str in string.gmatch(Modell, "([^_ ]+)") do
Teile[str]=true
2022-04-08 21:49:24 +02:00
end
2022-05-19 23:36:24 +02:00
local Stellungen = {}
-- Halt am Hauptsignal
if Teile["A"] or Teile["B"] then
table.insert(Stellungen, {"Hp0"})
end
-- Halt erwarten
-- ... am Wiederholer
if Teile["VSigWdh"] then
table.insert(Stellungen, {"Ks2","Kl"})
end
-- ... An MAS oder Vorsignalen
if Teile["MAS"] or Teile["VSig"] then
if Teile["verkuerzt"] then
table.insert(Stellungen, {"Ks2","Kl"})
end
table.insert(Stellungen, {"Ks2"})
if Teile["Kl"] then
table.insert(Stellungen, {"Ks2","Kl"})
2022-04-08 21:49:24 +02:00
end
end
2022-05-19 23:36:24 +02:00
-- Fahrt/Fahrt erwarten
table.insert(Stellungen, {"Ks1"})
-- Langsamfahrt erwarten
-- ... am Wiederholer
if Teile["VSigWdh"] then
table.insert(Stellungen, {"Ks1bl","Kl"})
end
-- ... am MAS oder Vorsignalen
if Teile["MAS"] or Teile["VSig"] or Teile["VSigWdh"] then
if Teile["verkuerzt"] then
table.insert(Stellungen, {"Ks1bl","Kl"})
end
table.insert(Stellungen, {"Ks1bl"})
if Teile["Kl"] then
table.insert(Stellungen, {"Ks1bl","Kl"})
end
end
-- Rangierfahrt an Ausfahrsignalen
if Teile["A"] then
table.insert(Stellungen, {"Sh1"})
end
-- Ersatzfahrt an Ausfahrsignalen und Blocksignalen ohne Vorsichtssignal
if Teile["A"] or (Teile["B"] and not Teile["V"]) then
table.insert(Stellungen, {"Zs1"})
end
-- Vorsichtssignal an Hauptsignalen
if Teile["V"] then
table.insert(Stellungen, {"Zs7"})
end
-- Kennlicht
if Teile["Kl"] or Teile["VSigWdh"] or Teile["verkuerzt"] then
table.insert(Stellungen, {"Kl"})
2022-04-08 21:49:24 +02:00
end
2022-05-19 23:36:24 +02:00
-- Dunkel geschaltet
table.insert(Stellungen, {})
return Stellungen
end
local GK3KsBauarten={
"Ks_Sig_A",
"Ks_Sig_A_MAS",
"Ks_Sig_A_MAS_Kl",
"Ks_Sig_A_V",
"Ks_Sig_A_V_MAS",
"Ks_Sig_A_V_MAS_Kl",
"Ks_Sig_B",
"Ks_Sig_B_MAS",
"Ks_Sig_B_V",
"Ks_Sig_B_V_MAS",
"Ks_Sig_B_V_MAS_Kl",
"Ks_Sig_VSig",
"Ks_Sig_VSigWdh",
"Ks_Sig_VSig_verkuerzt"
}
for cnt=1, #GK3KsBauarten do
_G[GK3KsBauarten[cnt]]=function(Signal, Meta)
-- Falls kein name gegeben, einen generieren
if Meta.Name == nil then
Meta.Name = string.format("%d", Signal)
end
Meta.Kennziffer = Kennziffer
Meta.Begriffe = GK3KsBegriffe(GK3KsBauarten[cnt])
for _, Var in ipairs({"Schild","Mastschild","Immobilie", "PZB"}) do
if type(Meta[Var]) == "number" then
Meta[Var]=tostring("#"..Meta[Var])
2022-04-08 21:49:24 +02:00
end
2022-05-19 23:36:24 +02:00
if Meta[Var] then
local ok,x,y,z = EEPStructureGetPosition(Meta[Var])
if ok then
if not Meta.Ort then
Meta.Ort = {x,y,z}
end
else
print("Warnung: Signal ",Signal," ",Var," ",Meta[Var]," nicht gefunden")
2022-04-08 21:49:24 +02:00
end
end
end
2022-05-19 23:36:24 +02:00
if not Meta.Ort then
print("Warnung: Signal ",Signal," hat keine Immobilie, um die eigene Position zu ermitteln")
2022-04-08 21:49:24 +02:00
end
2022-05-19 23:36:24 +02:00
KsSignale[Signal] = Meta
if Meta.Schild then
EEPStructureSetTextureText(Meta.Schild, 1, Meta.Kennziffer)
EEPStructureSetTextureText(Meta.Schild, 2, Meta.Name)
2022-04-08 21:49:24 +02:00
end
end
end