ac-minetest
/
basic_robot
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

new demo scripts

master
rnd 2018-07-24 16:04:22 +02:00
parent 0a4ae08a9d
commit 4e6e431efd
4 changed files with 242 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
init.lua
View File

@ -472,7 +472,7 @@ function getSandboxEnv (name)
maxn = table.maxn,
remove = table.remove,
sort = table.sort,
},
}
env.code.run = function(script)
if basic_robot.data[name].authlevel < 3 then
@ -1936,7 +1936,7 @@ end
minetest.register_craftitem("basic_robot:control", {
description = "Robot remote control",
inventory_image = "control.png",
groups = {book = 1, not_in_creative_inventory = 1},
groups = {book = 1}, --not_in_creative_inventory = 1
stack_max = 1,
on_secondary_use = function(itemstack, user, pointed_thing)

108
scripts/gui/craft_guide.lua Normal file
View File

@ -0,0 +1,108 @@
-- ROBOT craft guide by rnd, 2017
if not list then
tname = "rnd";
list = {};
tmplist = _G.minetest.registered_items;
for k,v in pairs(tmplist) do
local texture = v.inventory_image or "";
if texture=="" and v.tiles then texture = v.tiles[1] or "" end
if (not v.groups.not_in_craft_guide or v.groups.not_in_craft_guide == 0) and type(texture)=="string" and texture~="" then
list[#list+1] = {_G.minetest.formspec_escape(k),_G.minetest.formspec_escape(v.description),_G.minetest.formspec_escape(texture)}; -- v.inventory_image, k, v.description
end
end
idx = 1; n = 35; row = 6; size = 1.25;
filter = "" item = "" recipeid = 1
filterlist = {}; for i = 1,#list do filterlist[i] = i end
get_texture = function(ritem)
local v = _G.minetest.registered_items[ritem]; if not v then return "" end
local texture = v.inventory_image or "";
if texture=="" and v.tiles then texture = v.tiles[1] or "" end
if type(texture)~="string" then return "" end
return texture
end
get_form = function()
local form = "size[7.5,8.5]";
local x,y,i; local idxt = idx+n; if idxt > #filterlist then idxt = #filterlist end
for i = idx, idxt do
local id = filterlist[i];
if list[id] and list[id][3] then
x = ((i-idx) % row)
y = (i-idx-x)/row;
form = form .. "image_button[".. x*size ..",".. y*size+0.75 .. ";"..size.."," .. size .. ";" .. list[id][3] ..";".."item"..";".. list[id][1] .."]"
end
end
form = form .. "textarea[0.25,0;2,0.75;filter;filter;"..filter .. "]" .. "button[2.,0;1,0.5;search;search]"..
"button[5.5,0;1,0.5;prev;PREV]" .. "button[6.5,0;1,0.5;next;NEXT]" .. "label[4,0;".. idx .. "-"..idxt .. "/" .. #filterlist.."]";
return form
end
get_recipe = function()
local form = "size[7.5,8.5]";
local recipes = _G.minetest.get_all_craft_recipes(item); if not recipes then return end;
local recipe = recipes[recipeid]; if not recipe then return end
local items = recipe.items
local x,y,i;
for i = 0, 8 do
local ritem = items[i+1] or ""; local sritem = "";
local j = string.find(ritem,":"); if j then sritem = string.sub(ritem,j+1) end; --ritem = _G.minetest.formspec_escape(ritem);
x = (i % 3)
y = (i-x)/3;
form = form .. "image_button[".. x*size ..",".. y*size+0.75 .. ";"..size.."," .. size .. ";" .. get_texture(ritem) ..";".."item"..";".. sritem .."]"
end
form = form .. "textarea[0.25,0;2,0.75;recipeid;recipeid ".. #recipes .. ";"..recipeid .. "]" .. "button[2.,0;1,0.5;go;go]"..
"label[3,0;" .. item .. "]" .. "button[6.5,0;1,0.5;back;BACK]" ;
return form
end
s=0
end
if s==0 then
local p = find_player(4); s = 1
if p then
self.show_form(p[1],get_form())
else
self.remove()
end
end
sender,fields = self.read_form()
if sender then
if fields.search then
filter = fields.filter or ""
filterlist = {};
for i = 1,#list do
if string.find(list[i][1],filter) then filterlist[#filterlist+1] = i end
end
idx=1;self.show_form(sender,get_form())
elseif fields.prev then
idx = idx - n; if idx<1 then idx =#filterlist-n end
self.show_form(sender,get_form())
elseif fields.next then
idx = idx+n; if idx > #filterlist then idx = 1 end
self.show_form(sender,get_form())
elseif fields.back then
self.show_form(sender,get_form())
elseif fields.recipeid then
recipeid = tonumber(fields.recipeid) or 1;
self.show_form(sender,get_recipe())
elseif fields.item then
item = fields.item;
local recipes = _G.minetest.get_all_craft_recipes(item);
local count = 0; if recipes then count = #recipes end
if count>0 then
recipeid = 1
self.show_form(sender,get_recipe() or "")
end
elseif fields.quit then
self.remove()
end
end

82
scripts/gui/gui_deposit_withdraw_demo.lua Normal file
View File

@ -0,0 +1,82 @@
if not init then init = true
deposit = function(pname)
_, text = book.read(1);
local data = deserialize(text) or {};
local player = _G.minetest.get_player_by_name(pname)
local inv = player:get_inventory();
local pstack = inv:get_stack("main", 1);
local iname = pstack:to_string()
item, count = _G.string.match(iname,"(%S+)%s?(%d*)");
item = item or "";if item == "" then return end
count = tonumber(count) or 1;
--say("item " .. item .. ", count " .. count)
data[pname] = data[pname] or {};
local pdata = data[pname];
pdata[item] = (pdata[item] or 0) + count
inv:set_stack("main", 1, _G.ItemStack(""))
book.write(1,"",serialize(data))
local form = "size [5,5] label[0,0; You deposited " .. item .. "( " .. count .. " pieces)]"
self.show_form(pname, form)
--say(pname .. " deposited " .. item .. "( " .. count .. " pieces) ")
end
check = function(pname)
_, text = book.read(1);
local data = deserialize(text) or {};
data[pname] = data[pname] or {};
--say(serialize(data[pname]))
local text = serialize(data[pname])
local form = "size[5,5] textarea[0,0;6,6;STORAGE;STORAGE;"..
"YOU HAVE STORED FOLLOWING ITEMS:\n\n".. minetest.formspec_escape(text) .. "\n\nUse WITHDRAW to get items back]"
self.show_form(pname, form)
--say(pname .. " deposited " .. item .. "( " .. count .. " pieces) ")
end
withdraw = function(pname)
_, text = book.read(1);
local data = deserialize(text) or {};
data[pname] = data[pname] or {};
local player = _G.minetest.get_player_by_name(pname)
local inv = player:get_inventory();
local pdata = data[pname]
for k,v in pairs(pdata) do
inv:add_item("main", _G.ItemStack(k .. " " .. v))
end
data[pname] = nil;
book.write(1,"",serialize(data))
end
local players = find_player(4)
if not players then self.remove() end
pname = players[1]
local form = "size [5,5] button[0,0;2,1;DEPOSIT;DEPOSIT] button[0,1;2,1;CHECK;CHECK] button[0,2;2,1;WITHDRAW;WITHDRAW]"
self.show_form(pname, form)
end
sender,fields = self.read_form()
if sender then
if fields.DEPOSIT then
deposit(sender)
elseif fields.CHECK then
check(sender)
elseif fields.WITHDRAW then
withdraw(sender)
end
--say(sender .. " clicked " .. serialize(fields))
end

50
scripts/server mods/chatlog.lua Normal file
View File

@ -0,0 +1,50 @@
--rnd 2017
if not logdata then
self.label("chatlog bot");
_G.minetest.forceload_block(self.pos(),true)
n = 500; -- store so many messsages before repeating
maxresults = 100 -- display at most 'this' result
logdata = {}; -- circular array to hold messages
idx = 1;
insert_log = function(logdata,text) -- store new message
idx = idx +1;
if idx > n then idx = 1 end
logdata[idx] = text;
end
retrieve_log = function(logdata,count,filter) -- return last k messages, with filter only selected messages
local k = 0;
local i=idx; local j=0; local ret = {}
for j = 1,n do
if not logdata[i] then break end
if filter and not string.find(logdata[i], filter) then
else
ret[#ret+1] = logdata[i]
k=k+1
if k>=count then break end -- enough results
end
i=i-1; if i < 1 then i = n end
end
return table.concat(ret,"\n")
end
self.listen(1)
end
speaker, msg = self.listen_msg()
if msg then
if string.sub(msg,1,4) == "?log" then
local j = string.find(msg," ",7); -- find first argument
local k;local text;
if j then k = tonumber(string.sub(msg,6,j-1)) else k = tonumber(string.sub(msg,6)) end -- if there was first argument find second
k = k or maxresults;
if j then text = retrieve_log(logdata,k,string.sub(msg,j+1)) else text = retrieve_log(logdata,k) end
local form = "size[8,8]".. "textarea[0.,0;11.,9.5;text;chatlog;".. text .. "]"
self.show_form(speaker, form)
else
insert_log(logdata, os.date("%X") .. " " .. speaker .. "> " .. msg)
end
end