nalc/pipeworks
1
0
Fork 0
forked from mtcontrib/pipeworks
Code Issues Pull Requests Releases Wiki Activity

Make sorting tube dialog lag-resistant

Browse Source
This commit is contained in:
Zefram 2014-07-21 18:34:46 +01:00 committed by Vanessa Ezekowitz
parent c5ab801741
commit bd37e96222
1 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
tubes.lua
View File

@ -302,12 +302,12 @@ if pipeworks.enable_mese_tube then
"image[0,3;1,1;pipeworks_yellow.png]".. "image[0,3;1,1;pipeworks_yellow.png]"..
"image[0,4;1,1;pipeworks_blue.png]".. "image[0,4;1,1;pipeworks_blue.png]"..
"image[0,5;1,1;pipeworks_red.png]".. "image[0,5;1,1;pipeworks_red.png]"..
"button[7,0;1,1;button1;On]".. "button[7,0;1,1;button10;On]"..
"button[7,1;1,1;button2;On]".. "button[7,1;1,1;button20;On]"..
"button[7,2;1,1;button3;On]".. "button[7,2;1,1;button30;On]"..
"button[7,3;1,1;button4;On]".. "button[7,3;1,1;button40;On]"..
"button[7,4;1,1;button5;On]".. "button[7,4;1,1;button50;On]"..
"button[7,5;1,1;button6;On]".. "button[7,5;1,1;button60;On]"..
"list[current_player;main;0,7;8,4;]") "list[current_player;main;0,7;8,4;]")
meta:set_string("infotext", "Sorting Pneumatic Tube Segment") meta:set_string("infotext", "Sorting Pneumatic Tube Segment")
end, end,
@ -315,11 +315,14 @@ if pipeworks.enable_mese_tube then
local meta = minetest.get_meta(pos) local meta = minetest.get_meta(pos)
local i local i
if fields.quit then return end if fields.quit then return end
for key, _ in pairs(fields) do i = key end for key, _ in pairs(fields) do
if i == nil then return end if key:sub(1, 6) == "button" then
i = string.sub(i,-1) local i = key:sub(7, 7)
newstate = 1 - meta:get_int("l"..i.."s") local s = key:sub(8, 8)
meta:set_int("l"..i.."s",newstate) if s == "" then s = 1 - meta:get_int("l"..i.."s") end
meta:set_int("l"..i.."s", s)
end
end
local frm = "size[8,11]".. local frm = "size[8,11]"..
"list[current_name;line1;1,0;6,1;]".. "list[current_name;line1;1,0;6,1;]"..
"list[current_name;line2;1,1;6,1;]".. "list[current_name;line2;1,1;6,1;]"..
@ -336,9 +339,9 @@ if pipeworks.enable_mese_tube then
for i = 1, 6 do for i = 1, 6 do
local st = meta:get_int("l"..tostring(i).."s") local st = meta:get_int("l"..tostring(i).."s")
if st == 0 then if st == 0 then
frm = frm.."button[7,"..tostring(i-1)..";1,1;button"..tostring(i)..";Off]" frm = frm.."button[7,"..tostring(i-1)..";1,1;button"..tostring(i).."1;Off]"
else else
frm = frm.."button[7,"..tostring(i-1)..";1,1;button"..tostring(i)..";On]" frm = frm.."button[7,"..tostring(i-1)..";1,1;button"..tostring(i).."0;On]"
end end
end end
frm = frm.."list[current_player;main;0,7;8,4;]" frm = frm.."list[current_player;main;0,7;8,4;]"