Es geht voran...

Install_00/Begriffe.lua

@@ -0,0 +1,62 @@
+-- Grundsätzliche Typen von Signalbildern
+HALT=1
+FAHRT=2
+RANGIERFAHRT=3
+ERSATZFAHRT=4
+AUS=5
+
+-- Hv-Signalsystem
+Hp0={HALT}
+Hp1={FAHRT}
+Hp2={FAHRT, V_max=40}
+Hp1Vr0={FAHRT, H_erwarten=true}
+Hp1Vr1={FAHRT}
+Hp1Vr2={FAHRT, V_erwarten=40}
+Hp2Vr0={FAHRT, V_max=40, H_erwarten=true}
+Hp2Vr1={FAHRT, V_max=40}
+Hp2Vr2={FAHRT, V_max=40, V_erwarten=40}
+
+-- OSJD/EZMG/Hl-Signale des Ostblocks
+-- V_erwarten=60 wird durch V_erwarten=40 signalisiert
+Hl1={FAHRT}
+Hl2={FAHRT, V_max=100}
+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 (DS 301 Namen)
+Zs1={ERSATZFAHRT}
+Sh1={RANGIERFAHRT} -- war Ra12 bei DR
+
+function BegriffErklaeren(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.H_erwarten ~= nil then
+    txt = "Halt erwarten"
+    if Begriff.kurz ~= nil then
+      txt = "Halt im verkürzten Abstand"
+    end
+  end
+  if Begriff.V_max then
+    txt = txt.." mit "..tostring(Begriff.V_max).." km/h"
+  end
+  if Begriff.V_erwarten then
+    txt = txt..", "..tostring(Begriff.V_erwarten).." km/h erwarten"
+  end
+  return txt
+end

Install_00/Install.ini

@@ -3,3 +3,4 @@ EEPVersion	 = 10
 File001	 = "On.lua","LUA\On.lua"
 File002	 = "Prototype.lua","LUA\Prototype.lua"
 File003	 = "kskit.lua","LUA\kskit.lua"
+File004	 = "Begriffe.lua","LUA\Begriffe.lua"

Install_00/kskit.lua

@@ -1,3 +1,6 @@
+require("BetterContacts_BH2"){printErrors=true, deprecatedUseGlobal=true}
+require("Begriffe")
+
 -- Tabelle in einen String umwandeln, rekursiv
 -- Funktionswerte werden ignoriert
 function __tostring(self)
@@ -111,9 +114,6 @@ function AnimiereZugStromabnehmer(Zug, Richtung)
   end
 end
 
-FAHRT=1
-HALT=2
-
 function leseSignal(Signal)
   if EEPGetSignal(Signal) == 1 then
     return {FAHRT}
@@ -123,7 +123,8 @@ function leseSignal(Signal)
 end
 
 local GefundeneSignale={}
-local Zugaktionen={}
+local Zugaktionen=ladeTabelle(1)
+local SignalChanged={}
 
 setmetatable(Zugaktionen, {
   __index=function(table, key)
@@ -134,7 +135,6 @@ setmetatable(Zugaktionen, {
 
 function KsKitInit()
   GefundeneSignale={}
-  Zugaktionen=ladeTabelle(1)
 
   for Signal=1,1000 do
     if EEPGetSignal(Signal) > 0 and EEPGetSignal(Signal+1000) > 0 then
@@ -144,14 +144,16 @@ function KsKitInit()
 
   for i=1,#GefundeneSignale do
     local Signal = GefundeneSignale[i]
+    local FSignal = Signal + 1000
     EEPRegisterSignal(Signal)
     _G["EEPOnSignal_"..tostring(Signal)]=function(Stellung)
-
+      SignalChanged[Signal]=true
     end
-    EEPRegisterSignal(Signal+1000)
-    _G["EEPOnSignal_"..tostring(Signal+1000)]=function(FStellung)
+    EEPRegisterSignal(FSignal)
+    _G["EEPOnSignal_"..tostring(FSignal)]=function(FStellung)
+      SignalChanged[FSignal]=true
       if FStellung > 1 then
-        print("Fahrstrasse ",string.format("%04d-%02d", Signal+1000, FStellung-1)," geschalten")
+        print("Fahrstrasse ",string.format("%04d-%02d", FSignal, FStellung-1)," geschalten")
       end
     end
   end
@@ -174,12 +176,18 @@ function KsKitMain()
   local SignalHaltegruende = {}
 
   for Zugname, Data in pairs(Zugaktionen) do
-    local ok, V = EEPGetTrainSpeed(Zugname)
-    if ok then
+    local ok, V_ist = EEPGetTrainSpeed(Zugname)
+    if not ok or next(Zugaktionen[Zugname]) == nil then
+      Zugaktionen[Zugname] = nil
+    end
+  end
+
+  for Zugname, Data in pairs(Zugaktionen) do
     local Haltegrund = "Kein Plan"
+    local ok, V_ist = EEPGetTrainSpeed(Zugname)
 
     -- Wenn wir stehen, merken wir uns unsere Ankunftszeit
-      if V > -5 and V < 5 then
+    if V_ist == 0 then
       if Zugaktionen[Zugname].A == nil then
         Zugaktionen[Zugname].A = EEPTime
         if Zugaktionen[Zugname].V then
@@ -254,10 +262,6 @@ function KsKitMain()
       end
     end
 
-    else
-      -- Zug aus den Augen verloren...
-      Zugaktionen[Zugname]=nil
-    end
   end
 
   speicherTabelle(1, Zugaktionen)
@@ -272,12 +276,16 @@ function KsKitMain()
       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>"
+      local Begriff = leseSignal(Signal)
+      local Farbe = "<fgrgb=255,255,255><bgrgb=255,0,0>"
+      if Begriff[1] ~= HALT then
+        if Begriff.H_erwarten or Begriff.V_max then
+          Farbe = "<fgrgb=0,0,0><bgrgb=255,255,0>"
         else
-        txt = txt.."\n<c><b><fgrgb=255,255,255><bgrgb=255,0,0>Halt</b>"
+          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
@@ -306,18 +314,16 @@ end
 
 function S(Signal)
   Zugaktionen[Zugname].S = Signal
-  -- Geschwindigkeit fuer Weiterfahrt ermitteln
-  local _, V = EEPGetTrainSpeed(Zugname)
-  Zugaktionen[Zugname].V = math.floor(V)
   speicherTabelle(1, Zugaktionen)
 end
 
-function R(Signal)
-  Zugaktionen[Zugname].S = Signal
-  -- Geschwindigkeit fuer Weiterfahrt ermitteln
-  local _, V = EEPGetTrainSpeed(Zugname)
-  Zugaktionen[Zugname].V = math.floor(-V)
-  -- Merken, das ein Richtungswechsel animiert werden soll
-  Zugaktionen[Zugname].R = 1
+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