Add Zuglenkung

Zuglenkung.lua

@@ -0,0 +1,75 @@
+require("Serializer")
+
+Zuglenkung_Slot = 991
+Zuglenkung_Auftreage = ladeTabelle(Zuglenkung_Slot)
+
+function Zuglenkung(...)
+  local Weg = {...}
+  if #Weg % 2 == 1 then
+    print("Zuglenkung() erfordert eine gerade Anzahl Argumente")
+    return
+  end
+  local Auftrag=nil
+  for i=#Weg-1,1,-2 do
+    Auftrag={Weg[i],Weg[i+1],Auftrag,0}
+  end
+  Zuglenkung_Auftreage[Auftrag[1]]=Auftrag
+  speicherTabelle(Zuglenkung_Slot, Zuglenkung_Auftreage)
+end
+
+function Zuglenkung_Main(Optionen)
+  local ZuStellen={}
+  for k, Auftrag in pairs(Zuglenkung_Auftreage) do
+    local Stellung = EEPGetSignal(Auftrag[1])
+
+    -- Rumheulen, falls es unser FSignal nicht gibt
+    if Stellung == 0 then
+      print("Zuglenkung verworfen: FSignal ",Auftrag[1]," nicht gefunden")
+      Zuglenkung_Auftreage[k]=nil
+
+    -- Merken, das wir das FS-Signal schonmal aufgeloest gesehen haben
+    elseif Stellung == 1 then
+      Auftrag[4]=1
+      local Ziel = Auftrag[2]
+      if type(Ziel) == "number" then Ziel={Ziel} end
+      table.insert(ZuStellen, {Auftrag[1], Ziel[math.random(#Ziel)]})
+
+    -- Stellung > 1 und wir haben es vorher auf 1 gesehen -> wir waren das
+    elseif Auftrag[4] == 1 then
+      if Optionen.Meldung=true then
+        print("Zuglenkung: ", Auftrag[1], " auf ", Stellung, " gestellt")
+      end
+      Auftrag = Auftrag[3]
+      Zuglenkung_Auftreage[k]=nil
+      if Auftrag then
+        Zuglenkung_Auftreage[Auftrag[1]]=Auftrag
+      end
+    end
+  end
+
+  -- Stellversuche durchmischen
+  for i=#ZuStellen, 2, -1 do
+    local j = math.random(#ZuStellen)
+    ZuStellen[i], ZuStellen[j] = ZuStellen[j], ZuStellen[i]
+  end
+
+  -- Stellversuche durchfuehren
+  for i=1, #ZuStellen do
+    EEPSetSignal(ZuStellen[i][1], ZuStellen[i][2])
+  end
+
+  speicherTabelle(Zuglenkung_Slot, Zuglenkung_Auftreage)
+end
+
+function Zuglenkung_Beschreiben()
+  txt=""
+  for k, Auftrag in pairs(Zuglenkung_Auftreage) do
+    txt=txt.."FS "..Auftrag[1].." auf "..__tostring(Auftrag[2])
+    while Auftrag[3] do
+      Auftrag=Auftrag[3]
+      txt=txt..", dann "..Auftrag[1].." auf "..__tostring(Auftrag[2])
+    end
+    txt=txt.."\n"
+  end
+  return txt
+end