1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
--
--
-- 1779,10,1235
local einblendung = {
{ " Bergbahn Zugpositionen", "", "", "" },
{ "", "", "", "" },
{ "", "", "", "" },
{ "", "Tal:", "Gleis A/B: %-6s %-6s", "Gleis A Gleis B" },
}
-- ------------------------------
local function disp_update()
for t=1,4 do
local tl = ""
for z=1,4 do
if z>1 then tl = tl.."\n" end
local h = einblendung[t][z]
if #h < 1 then h = " " end
tl = tl .. h
end
digiline_send("txt"..t,tl)
end
return
end
-- ------------------------------
if event.type == "punch" then
local text = " AUA!!!"
for i=1,4 do
digiline_send("txt"..i," "..i.."\n"..text)
end
interrupt(10,"clear")
return
end
if event.type == "int" then
if event.message == "clear" then
disp_update()
-- for i=1,4 do
-- digiline_send("txt"..i,i)
-- end
end
return
end
local zeilen = {"gleisa","gleisb","tal" }
if event.type == "ext_int" then
local nachricht = event.message
if nachricht == nil then return end
if type(nachricht) == "string" then
if nachricht == "update" then
local t
local z
local e=1
for t = 1,4 do
local ausgabe = ""
for z = 1,4 do
if z>1 then ausgabe = ausgabe.."\n" end
ausgabe = ausgabe .. S.daten[e]
e = e+1
end
digiline_send("txt"..t,ausgabe)
end
return
end
return
end
if type(nachricht) == "table" then
if not nachricht.von_pos then return end
return
end
return
end
|
