Zeugs weghauen was ich nicht publishen will
This commit is contained in:
parent
361897450b
commit
bb9b2d7379
51
On.lua
51
On.lua
@ -1,51 +0,0 @@
|
|||||||
local Callbacks = {}
|
|
||||||
|
|
||||||
function On(Name, Funktion)
|
|
||||||
-- Nur Strings erlaubt!
|
|
||||||
if type(Name) ~= "string" then
|
|
||||||
error("Ungueltiger Callback-Name "..tostring(Name))
|
|
||||||
return
|
|
||||||
end
|
|
||||||
if not Callbacks[Name] then
|
|
||||||
-- Bestehende globale Funktionen duerfen nicht ueberschrieben werden
|
|
||||||
if _G[Name] ~= nil then
|
|
||||||
error(Name.."() bereits definiert")
|
|
||||||
return
|
|
||||||
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
|
|
||||||
local Registration = "EEPRegister"..Item
|
|
||||||
if _G[Registration](Number) == 0 then
|
|
||||||
error(Registration.."("..tostring(Number)..") fehlgeschlagen")
|
|
||||||
end
|
|
||||||
end
|
|
||||||
-- Lambda-Untertabelle fuer diesen EEP Callback eroeffnen
|
|
||||||
Callbacks[Name] = {}
|
|
||||||
-- Handler installieren, der alle Lambdas ausfuehrt
|
|
||||||
_G[Name] = function(...)
|
|
||||||
for cnt = 1, #Callbacks[Name] do
|
|
||||||
Callbacks[Name][cnt](...)
|
|
||||||
end
|
|
||||||
-- EEPMain stoppt, geben wir hier nicht 1 zurueck
|
|
||||||
return 1
|
|
||||||
end
|
|
||||||
end
|
|
||||||
table.insert(Callbacks[Name], Funktion)
|
|
||||||
end
|
|
||||||
|
|
||||||
-- EEPMain-Callback registrieren
|
|
||||||
function Main(Funktion)
|
|
||||||
On("EEPMain", Funktion)
|
|
||||||
end
|
|
||||||
|
|
||||||
-- Signal-Callback registrieren
|
|
||||||
function OnSignal(Signal, Funktion)
|
|
||||||
On("EEPOnSignal_"..tostring(Signal), Funktion)
|
|
||||||
end
|
|
||||||
|
|
||||||
-- Weichen-Callbacks registrieren
|
|
||||||
function OnSwitch(Switch, Funktion)
|
|
||||||
On("EEPOnSwitch_"..tostring(Switch), Funktion)
|
|
||||||
end
|
|
||||||
@ -1,54 +0,0 @@
|
|||||||
Prototype={}
|
|
||||||
|
|
||||||
function Prototype:init() end -- dummy constructor
|
|
||||||
|
|
||||||
-- function for injecting our functionality into an table
|
|
||||||
function Prototype:__set_parent(newparent)
|
|
||||||
setmetatable(self, {
|
|
||||||
-- non-overwritten keys are to be fetched from parent
|
|
||||||
__index=newparent,
|
|
||||||
-- construct a child when called directly
|
|
||||||
__call=function(parent, ...)
|
|
||||||
local newchild = {}
|
|
||||||
self.__set_parent(newchild, parent)
|
|
||||||
newchild:init(...)
|
|
||||||
return newchild
|
|
||||||
end
|
|
||||||
})
|
|
||||||
end
|
|
||||||
|
|
||||||
-- serialize our object into a string
|
|
||||||
function Prototype:__tostring()
|
|
||||||
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 = Prototype.__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.."["..Prototype.__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
|
|
||||||
|
|
||||||
Prototype:__set_parent(nil) -- enable __call
|
|
||||||
14
import.sh
14
import.sh
@ -1,14 +0,0 @@
|
|||||||
#!/bin/sh
|
|
||||||
SOURCE="$1"
|
|
||||||
fail() {
|
|
||||||
echo "$1" >&2
|
|
||||||
exit 1
|
|
||||||
}
|
|
||||||
verbose() {
|
|
||||||
echo "$@"
|
|
||||||
"$@"
|
|
||||||
}
|
|
||||||
grep ^File Install_00/Install.ini|sed 's/","/ /;s/"//g;s|\\|/|'|while read _ _ lname rname; do
|
|
||||||
test -f "${SOURCE}/${rname}" || fail "${rname} not found"
|
|
||||||
verbose cp "${SOURCE}/${rname}" "Install_00/${lname}"
|
|
||||||
done
|
|
||||||
266
kskit.lua
266
kskit.lua
@ -1,266 +0,0 @@
|
|||||||
require("BetterContacts_BH2"){printErrors=true, deprecatedUseGlobal=true}
|
|
||||||
require("Begriffe")
|
|
||||||
require("Serializer")
|
|
||||||
|
|
||||||
function AnimiereFahrzeugStromabnehmer(Fahrzeug, Richtung)
|
|
||||||
local Index, _ = Fahrzeug:gsub(";%d*$","")
|
|
||||||
local Angelegt = false
|
|
||||||
if Stromabnehmer[Index] then
|
|
||||||
local Achsen = Stromabnehmer[Index]
|
|
||||||
for i=1,#Achsen do
|
|
||||||
if (i == 1 and Richtung == -1) or (i == #Achsen and Richtung == 1) then
|
|
||||||
EEPRollingstockSetAxis(Fahrzeug, Achsen[i], 100)
|
|
||||||
Angelegt = true
|
|
||||||
else
|
|
||||||
EEPRollingstockSetAxis(Fahrzeug, Achsen[i], 0)
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
return Angelegt
|
|
||||||
end
|
|
||||||
|
|
||||||
-- Richtung: -1, 0 oder 1
|
|
||||||
function setzeStromabnehmer(Zug, Richtung)
|
|
||||||
local AnzahlFahrzeuge = EEPGetRollingstockItemsCount(Zug)
|
|
||||||
local Startwert = 1
|
|
||||||
local Endwert = AnzahlFahrzeuge
|
|
||||||
local Schritt = 1
|
|
||||||
if Richtung > 0 then
|
|
||||||
Startwert = AnzahlFahrzeuge
|
|
||||||
Endwert = 1
|
|
||||||
Schritt = -1
|
|
||||||
end
|
|
||||||
for i=Startwert,Endwert,Schritt do
|
|
||||||
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
|
|
||||||
|
|
||||||
function leseSignal(Signal)
|
|
||||||
if EEPGetSignal(Signal) == 1 then
|
|
||||||
return {FAHRT}
|
|
||||||
else
|
|
||||||
return {HALT}
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
local GefundeneSignale={}
|
|
||||||
local Zugaktionen=ladeTabelle(1)
|
|
||||||
local SignalChanged={}
|
|
||||||
|
|
||||||
setmetatable(Zugaktionen, {
|
|
||||||
__index=function(table, key)
|
|
||||||
table[key]={}
|
|
||||||
return table[key]
|
|
||||||
end
|
|
||||||
})
|
|
||||||
|
|
||||||
function KsKitInit()
|
|
||||||
GefundeneSignale={}
|
|
||||||
|
|
||||||
for Signal=1,1000 do
|
|
||||||
if EEPGetSignal(Signal) > 0 and EEPGetSignal(Signal+1000) > 0 then
|
|
||||||
table.insert(GefundeneSignale, Signal)
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
local function KsKitZugSteuern(Zugname, Aktion)
|
|
||||||
-- Wartezeit abarbeiten
|
|
||||||
-- Wie ist .D zu interpretieren?
|
|
||||||
-- nil -> kein Timer laufend
|
|
||||||
-- 0 -> Timer abgelaufen
|
|
||||||
-- >0 -> Timer laeuft noch
|
|
||||||
if Aktion.D and Aktion.D > 0 then
|
|
||||||
Aktion.D = Aktion.D - 1
|
|
||||||
return
|
|
||||||
end
|
|
||||||
|
|
||||||
local ok, V_ist = EEPGetTrainSpeed(Zugname)
|
|
||||||
|
|
||||||
-- Wenn wir stehen, merken wir uns unsere Ankunftszeit
|
|
||||||
if V_ist == 0 and Aktion.A == nil then
|
|
||||||
-- 2 Sekunden Wartezeit bevor Ankunft registriert wird
|
|
||||||
if Aktion.D == nil then
|
|
||||||
Aktion.D = 10
|
|
||||||
return
|
|
||||||
end
|
|
||||||
-- Timer erfuellt, Ankunft registrieren
|
|
||||||
Aktion.D = nil
|
|
||||||
Aktion.A = EEPTime
|
|
||||||
-- Falls wir eine Abfahrtsgeschwindigkeit haben
|
|
||||||
if Aktion.V then
|
|
||||||
-- ... von Signalbeeinflussing trennen
|
|
||||||
EEPSetTrainSpeed(Zugname, 0)
|
|
||||||
-- Falls wir einen Fahrrichtungswechsel planen
|
|
||||||
-- fahren wir jetzt die Stromabnehmer herunter
|
|
||||||
if Aktion.R then
|
|
||||||
if _G["setzeStromabnehmer"] then
|
|
||||||
setzeStromabnehmer(Zugname, 0)
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
-- Ankunftszeit loeschen falls wir schon wieder beschleunigen
|
|
||||||
if V_ist ~=0 and Aktion.A then
|
|
||||||
Aktion.A = nil
|
|
||||||
Aktion.S = nil
|
|
||||||
Aktion.R = nil
|
|
||||||
Aktion.V = nil
|
|
||||||
end
|
|
||||||
|
|
||||||
-- Wartezeit in Delay-Aktion uebertragen
|
|
||||||
if Aktion.W and Aktion.A then
|
|
||||||
if Aktion.D == nil then
|
|
||||||
Aktion.D = 5 * Aktion.W
|
|
||||||
return
|
|
||||||
end
|
|
||||||
Aktion.D = nil
|
|
||||||
Aktion.W = nil
|
|
||||||
return
|
|
||||||
end
|
|
||||||
|
|
||||||
-- Nichts mehr tun wenn Warten ansteht
|
|
||||||
if Aktion.W then return end
|
|
||||||
|
|
||||||
-- Signal austragen, wenn wir einen Fahrtbegriff sehen
|
|
||||||
if Aktion.S then
|
|
||||||
local Begriff = leseSignal(Aktion.S)
|
|
||||||
if Begriff[1] ~= HALT then
|
|
||||||
Aktion.S = nil
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
-- Fahrstrasse schalten (greift nur wenn Signal auf Halt)
|
|
||||||
if Aktion.S then
|
|
||||||
local ZSignal = Aktion.S
|
|
||||||
local FSignal = ZSignal + 1000
|
|
||||||
local Fahrstrassen = {}
|
|
||||||
if Aktion.FS then
|
|
||||||
Fahrstrassen = Aktion.FS
|
|
||||||
elseif Selbstblock_Default then
|
|
||||||
Fahrstrassen = {1}
|
|
||||||
end
|
|
||||||
if #Fahrstrassen > 0 then
|
|
||||||
if EEPGetSignal(FSignal) == 1 then
|
|
||||||
EEPSetSignal(FSignal, 1+Fahrstrassen[math.random(#Fahrstrassen)])
|
|
||||||
--print("FS ",FSignal)
|
|
||||||
--Schaltauftraege[FSignal] = 1+Fahrstrassen[math.random(#Fahrstrassen)]
|
|
||||||
end
|
|
||||||
end
|
|
||||||
return
|
|
||||||
end
|
|
||||||
|
|
||||||
-- Sobald wir nicht mehr ans Signal gebunden sind, Abfahrt via EEPSetTrainSpeed
|
|
||||||
if Aktion.V and Zugaktionen[Zugname].A then
|
|
||||||
if _G["setzeStromabnehmer"] and Aktion.D == nil then
|
|
||||||
setzeStromabnehmer(Zugname, Aktion.V>0 and 1 or -1)
|
|
||||||
Aktion.D = 20
|
|
||||||
return
|
|
||||||
end
|
|
||||||
-- Timer erfuellt, Ankunft registrieren
|
|
||||||
Aktion.D = nil
|
|
||||||
EEPSetTrainSpeed(Zugname, Aktion.V)
|
|
||||||
Aktion.V = nil
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
function KsKitMain()
|
|
||||||
-- Signale abfragen, ob vielleicht ein Zug vor ihnen steht
|
|
||||||
for i=1,#GefundeneSignale do
|
|
||||||
local Signal = GefundeneSignale[i]
|
|
||||||
if EEPGetSignalTrainsCount(Signal) > 0 then
|
|
||||||
Zugname = EEPGetSignalTrainName(Signal, 1)
|
|
||||||
if not Zugaktionen[Zugname].S then
|
|
||||||
Zugaktionen[Zugname].S = Signal
|
|
||||||
print("Zug ",Zugname," vom Signal ",Signal, " eingefangen")
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
-- Signalstellauftraege
|
|
||||||
local Schaltauftraege = {}
|
|
||||||
local SignalHaltegruende = {}
|
|
||||||
|
|
||||||
for Zugname, Data in pairs(Zugaktionen) do
|
|
||||||
local ok, V_ist = EEPGetTrainSpeed(Zugname)
|
|
||||||
if not ok or next(Zugaktionen[Zugname]) == nil then
|
|
||||||
Zugaktionen[Zugname] = nil
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
for Zugname, Aktion in pairs(Zugaktionen) do
|
|
||||||
KsKitZugSteuern(Zugname, Aktion)
|
|
||||||
end
|
|
||||||
|
|
||||||
speicherTabelle(1, Zugaktionen)
|
|
||||||
EEPChangeInfoSignal(1, __tostring(Zugaktionen))
|
|
||||||
for k,v in pairs(Schaltauftraege) do
|
|
||||||
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 Begriff = leseSignal(Signal)
|
|
||||||
local Farbe = "<fgrgb=255,255,255><bgrgb=255,0,0>"
|
|
||||||
if Begriff[1] == AUS then
|
|
||||||
Farbe = ""
|
|
||||||
elseif Begriff[1] ~= HALT then
|
|
||||||
if Begriff.H_erwarten or Begriff.V_max then
|
|
||||||
Farbe = "<fgrgb=0,0,0><bgrgb=255,255,0>"
|
|
||||||
else
|
|
||||||
Farbe = "<fgrgb=0,0,0><bgrgb=0,255,0>"
|
|
||||||
end
|
|
||||||
end
|
|
||||||
txt = txt.."\n<c><b>"..Farbe..BegriffErklaeren(Begriff).."</b>"
|
|
||||||
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
|
|
||||||
|
|
||||||
function FS(...)
|
|
||||||
Zugaktionen[Zugname].FS = {...}
|
|
||||||
speicherTabelle(1, Zugaktionen)
|
|
||||||
end
|
|
||||||
|
|
||||||
function W(Dauer)
|
|
||||||
Zugaktionen[Zugname].W = Dauer
|
|
||||||
speicherTabelle(1, Zugaktionen)
|
|
||||||
end
|
|
||||||
|
|
||||||
function S(Signal)
|
|
||||||
Zugaktionen[Zugname].S = Signal
|
|
||||||
speicherTabelle(1, Zugaktionen)
|
|
||||||
end
|
|
||||||
|
|
||||||
function V(V_soll)
|
|
||||||
local _, V_ist = EEPGetTrainSpeed(Zugname)
|
|
||||||
-- Negieren, falls Zug rueckwarts faehrt
|
|
||||||
if V_ist < 0 then V_soll = -V_soll end
|
|
||||||
-- Mit dieser Division teste ich, ob beide Geschwindigkeiten das selbe Vorzeichen haben
|
|
||||||
-- Falls Vorzeichen ungleich, beim naechsten Halt Fahrtrichtungswechsel
|
|
||||||
if V_soll/V_ist < 0 then Zugaktionen[Zugname].R = 1 end
|
|
||||||
Zugaktionen[Zugname].V = V_soll
|
|
||||||
speicherTabelle(1, Zugaktionen)
|
|
||||||
end
|
|
||||||
Loading…
Reference in New Issue
Block a user