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
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
|
celevator.dbdkiosk = {}
function celevator.dbdkiosk.checkprot(pos,name)
if minetest.is_protected(pos,name) and not minetest.check_player_privs(name,{protection_bypass=true}) then
minetest.chat_send_player(name,"Can't open cabinet - cabinet is locked.")
minetest.record_protection_violation(pos,name)
return false
end
return true
end
function celevator.dbdkiosk.updatefields(pos)
if minetest.get_node(pos).name ~= "celevator:dbdkiosk" then return end
local meta = minetest.get_meta(pos)
local screenstate = meta:get_string("screenstate")
if screenstate == "connect" then
meta:set_string("formspec","formspec_version[7]size[8,5]field[0.5,0.5;7,1;carid;Dispatcher ID;]field[0.5,2;7,1;landing;Landing Number;]button[3,3.5;2,1;save;Save]")
elseif screenstate == "main" then
local landing = meta:get_int("landing")
local fs = "formspec_version[7]"
fs = fs.."size[8,14]"
fs = fs.."label[3,0.5;Please select a floor\\:]"
local floornames = minetest.deserialize(meta:get_string("floornames"))
local floorsavailable = minetest.deserialize(meta:get_string("floorsavailable"))
local showfloors = {}
for i=1,#floornames,1 do
if floorsavailable[i] then
table.insert(showfloors,i)
end
end
local startfloor = (meta:get_int("screenpage")-1)*10+1
for i=1,10,1 do
local floornum = showfloors[startfloor+i-1]
local floorname = floornum and floornames[floornum]
if floorname and floornum ~= landing then
fs = fs..string.format("button[2,%f;4,1;floor%d;%s]",12-i,floornum,minetest.formspec_escape(floorname))
end
end
if startfloor > 1 then
fs = fs.."button[3.75,12.2;0.8,0.8;scrolldown;vvv]"
end
if startfloor+9 < #showfloors then
fs = fs.."button[3.75,1;0.8,0.8;scrollup;^^^]"
end
meta:set_string("formspec",fs)
elseif screenstate == "assignment" then
local fs = "formspec_version[7]"
fs = fs.."size[8,14]"
fs = fs.."label[3,3;Please use elevator]"
fs = fs.."style_type[label;font_size=*4]"
fs = fs.."label[3.5,5;"..meta:get_string("assignedcar").."]"
meta:set_string("formspec",fs)
elseif screenstate == "error" then
local fs = "formspec_version[7]"
fs = fs.."size[8,14]"
fs = fs.."label[3.5,0.5;ERROR]"
fs = fs.."label[2.5,3;Could not find a suitable elevator]"
fs = fs.."label[2.5,3.5;Please try again later]"
meta:set_string("formspec",fs)
end
end
function celevator.dbdkiosk.handlefields(pos,_,fields,player)
local name = player:get_player_name()
local meta = minetest.get_meta(pos)
local screenstate = meta:get_string("screenstate")
if screenstate == "connect" then
if not (fields.save and celevator.dbdkiosk.checkprot(pos,name)) then return end
if not (tonumber(fields.carid) and tonumber(fields.landing)) then return end
local carinfo = minetest.deserialize(celevator.storage:get_string(string.format("car%d",fields.carid)))
if not carinfo then return end
if not (carinfo.dispatcherpos and celevator.dispatcher.isdispatcher(carinfo.dispatcherpos)) then return end
local dmem = minetest.deserialize(minetest.get_meta(carinfo.dispatcherpos):get_string("mem"))
if not dmem then return end
local floornames = dmem.params.floornames
local floorsavailable = {}
for i=1,#floornames,1 do
floorsavailable[i] = true
end
meta:set_string("floornames",minetest.serialize(floornames))
meta:set_string("floorsavailable",minetest.serialize(floorsavailable))
meta:set_int("screenpage",1)
meta:set_string("screenstate","main")
meta:set_int("carid",tonumber(fields.carid))
meta:set_int("landing",tonumber(fields.landing))
celevator.dbdkiosk.updatefields(pos)
elseif screenstate == "main" then
for k,v in pairs(fields) do
if v and string.sub(k,1,5) == "floor" then
local floor = tonumber(string.sub(k,6,-1))
if not floor then return end
local carid = meta:get_int("carid")
local carinfo = minetest.deserialize(celevator.storage:get_string(string.format("car%d",carid)))
if not carinfo then return end
if not (carinfo.dispatcherpos and celevator.dispatcher.isdispatcher(carinfo.dispatcherpos)) then return end
local dmem = minetest.deserialize(minetest.get_meta(carinfo.dispatcherpos):get_string("mem"))
if dmem then
local floornames = dmem.params.floornames
meta:set_string("floornames",minetest.serialize(floornames))
end
local event = {
type = "dbdkiosk",
source = minetest.hash_node_position(pos),
player = name,
srcfloor = meta:get_int("landing"),
destfloor = floor,
}
celevator.dispatcher.run(carinfo.dispatcherpos,event)
end
end
if fields.scrollup then
local page = meta:get_int("screenpage")
meta:set_int("screenpage",page+1)
elseif fields.scrolldown then
local page = meta:get_int("screenpage")
meta:set_int("screenpage",math.max(1,page-1))
end
celevator.dbdkiosk.updatefields(pos)
elseif screenstate == "assignment" or screenstate == "error" then
meta:set_string("screenstate","main")
celevator.dbdkiosk.updatefields(pos)
end
end
function celevator.dbdkiosk.showassignment(pos,assignment)
local meta = minetest.get_meta(pos)
if meta:get_string("screenstate") == "main" then
local carnames = {"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P"}
if carnames[assignment] then
meta:set_string("screenstate","assignment")
meta:set_string("assignedcar",carnames[assignment])
else
meta:set_string("screenstate","error")
end
celevator.dbdkiosk.updatefields(pos)
minetest.after(5,function()
meta:set_string("screenstate","main")
celevator.dbdkiosk.updatefields(pos)
end)
end
end
minetest.register_node("celevator:dbdkiosk",{
description = "Elevator Destination Entry Kiosk",
drawtype = "nodebox",
paramtype = "light",
paramtype2 = "4dir",
groups = {
cracky = 1,
},
node_box = {
type = "fixed",
fixed = {
{-0.2,-0.5,0.4,0.2,0.1,0.5},
},
},
tiles = {
"celevator_cabinet_sides.png",
"celevator_cabinet_sides.png",
"celevator_cabinet_sides.png",
"celevator_cabinet_sides.png",
"celevator_cabinet_sides.png",
"celevator_cabinet_sides.png^celevator_dbdkiosk.png",
},
on_construct = function(pos)
local meta = minetest.get_meta(pos)
meta:set_string("screenstate","connect")
celevator.dbdkiosk.updatefields(pos)
end,
on_receive_fields = celevator.dbdkiosk.handlefields,
})
|
