Illuna-Minetest/basic_robot
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

robots have inventory, take nodes from inventory when placing and receive when digging

Browse Source
This commit is contained in:
rnd1 2016-11-10 11:36:22 +01:00
parent 3dcc9915fc
commit ed4a66c5da
2 changed files with 96 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
commands.lua
View File

@ -50,6 +50,15 @@ basic_robot.commands.dig = function(obj,dir)
local pos = pos_in_dir(obj, dir)
local luaent = obj:get_luaentity();
if minetest.is_protected(pos,luaent.owner ) then return end
local nodename = minetest.get_node(pos).name;
if nodename == "air" then return end
local spos = obj:get_luaentity().spawnpos;
local inv = minetest.get_meta(spos):get_inventory();
if not inv then return end
inv:add_item("main",ItemStack( nodename ));
minetest.set_node(pos,{name = "air"})
end
@ -64,5 +73,12 @@ basic_robot.commands.place = function(obj,nodename, dir)
local luaent = obj:get_luaentity();
if minetest.is_protected(pos,luaent.owner ) then return end
if minetest.get_node(pos).name~="air" then return end
local spos = obj:get_luaentity().spawnpos;
local inv = minetest.get_meta(spos):get_inventory();
if not inv then return end
if not inv:contains_item("main", ItemStack(nodename)) then return end
inv:remove_item("main", ItemStack(nodename));
minetest.set_node(pos,{name = nodename})
end

116
init.lua
View File

@ -189,17 +189,48 @@ local function update_formspec_robot(self)
end
local robot_spawner_update_form = function (pos, mode)
local meta = minetest.get_meta(pos);
if not meta then return end
local x0,y0,z0;
x0=meta:get_int("x0");y0=meta:get_int("y0");z0=meta:get_int("z0"); -- direction of velocity
local code = minetest.formspec_escape(meta:get_string("code"));
local form =
"size[8,6]" .. -- width, height
"textarea[0.1,0.75;8.4,6.5;code;code;".. code.."]"..
"button_exit[-0.25,-0.25;1.5,1;spawn;START]"..
"button[1.25,-0.25;1.5,1;despawn;STOP]"..
"button[2.75,-0.25;1.5,1;inventory;inventory]"..
"button[5.25,-0.25;1,1;help;help]"..
"button_exit[6.25,-0.25;1,1;reset;clear]"..
"button_exit[7.25,-0.25;1,1;OK;OK]";
if mode ==1 then return form end
meta:set_string("formspec",form)
end
local function init_robot(self)
basic_robot.data[self.owner].obj = self.object;
self.object:set_properties({infotext = "robot " .. self.owner});
self.object:set_properties({nametag = "robot " .. self.owner,nametag_color = "LawnGreen"});
initSandbox ( self.owner )
end
minetest.register_entity("basic_robot:robot",{
energy = 1,
owner = "",
hp_max = 10,
code = "",
timer = 0,
timestep = 1,
timestep = 1, -- run every 1 second
spawnpos = "",
visual="cube",
visual_size={x=1,y=1},
running = 0,
running = 0, -- does it run code or is it idle?
collisionbox = {-0.5,-0.5,-0.5, 0.5,0.5,0.5},
physical=true,
@ -220,38 +251,38 @@ minetest.register_entity("basic_robot:robot",{
end
basic_robot.data[self.owner].obj = self.object;
initSandbox ( self.owner )
init_robot(self);
self.running = 1;
local pos = basic_robot.data[self.owner].spawnpos;
local meta = minetest.get_meta(pos);
if meta then self.code = meta:get_string("code") end
if meta then self.code = meta:get_string("code") end -- remember code
return
end
-- init robot
-- init robot TODO: rewrite for less buggy
minetest.after(0,
function()
if not basic_robot.data[self.owner] then
basic_robot.data[self.owner] = {};
end
basic_robot.data[self.owner].obj = self.object;
initSandbox ( self.owner )
local err = setCode( self.owner, self.code );
init_robot(self); -- set properties, init sandbox
local err = setCode( self.owner, self.code ); -- compile code
if err then
minetest.chat_send_player(self.owner,"#ROBOT CODE COMPILATION ERROR : " .. err)
self.running = 0; -- stop execution
self.object:remove();
end
basic_robot.data[self.owner].spawnpos = {x=self.spawnpos.x,y=self.spawnpos.y,z=self.spawnpos.z};
self.running = 1
end
)
self.object:setyaw(0);
end,
@ -265,7 +296,7 @@ minetest.register_entity("basic_robot:robot",{
on_step = function(self, dtime)
self.timer=self.timer+dtime
if self.timer>self.timestep and self.running ~= 0 then
if self.timer>self.timestep and self.running == 1 then
self.timer = 0;
local err = runSandbox(self.owner);
if err then
@ -281,32 +312,14 @@ minetest.register_entity("basic_robot:robot",{
end,
on_rightclick = function(self, clicker)
text = minetest.formspec_escape(self.code);
local form = "size [8,7] textarea[0,0;8.5,8.5;help;code;".. text.."]"
local text = minetest.formspec_escape(self.code);
local form = robot_spawner_update_form(self.spawnpos,1);
minetest.show_formspec(clicker:get_player_name(), "robot_code", form);
end,
})
local robot_spawner_update_form = function (pos)
local meta = minetest.get_meta(pos);
local x0,y0,z0;
x0=meta:get_int("x0");y0=meta:get_int("y0");z0=meta:get_int("z0"); -- direction of velocity
local code = minetest.formspec_escape(meta:get_string("code"));
local form =
"size[8,6]" .. -- width, height
"textarea[0.1,0.75;8.4,6.5;code;code;".. code.."]"..
"button_exit[-0.25,-0.25;2,1;spawn;START]"..
"button[1.75,-0.25;2,1;despawn;STOP]"..
"button[5.25,-0.25;1,1;help;help]"..
"button_exit[6.25,-0.25;1,1;reset;reset]"..
"button_exit[7.25,-0.25;1,1;OK;OK]";
meta:set_string("formspec",form);
end
local spawn_robot = function(pos,node,ttl)
if ttl<0 then return end
@ -366,8 +379,11 @@ minetest.register_node("basic_robot:spawner", {
local privs = minetest.get_player_privs(placer:get_player_name()); if privs.privs then meta:set_int("admin",1) end
meta:set_string("code","");
meta:set_string("infotext", "robot spawner (owned by ".. placer:get_player_name() .. ")")
robot_spawner_update_form(pos);
local inv = meta:get_inventory(); -- spawner inventory
inv:set_size("main",32);
end,
mesecons = {effector = {
@ -409,7 +425,7 @@ minetest.register_node("basic_robot:spawner", {
"move.direction(), where direction is forward, backward, left,right, up, down\n"..
"turn.left(), turn.right(), turn.angle(45)\n"..
"dig.direction(), place.direction(\"default:dirt\")\nread_node.direction() tells you names of nodes\n"..
"find_nodes(3,\"default:dirt\") is true if node can be found at radius 3 around robot, otherwise false\n"..
"find_nodes(\"default:dirt\",3) is true if node can be found at radius 3 around robot, otherwise false\n"..
"selfpos() returns table {x=pos.x,y=pos.y,z=pos.z}\n"..
"say(\"hello\") will speak";
@ -439,6 +455,34 @@ minetest.register_node("basic_robot:spawner", {
return
end
if fields.inventory then
local list_name = "nodemeta:"..pos.x..','..pos.y..','..pos.z ;
local form =
"size[8,8]" .. -- width, height
"list["..list_name..";main;0.,0;8,4;]"..
"list[current_player;main;0,4.25;8,4;]";
minetest.show_formspec(sender:get_player_name(), "robot_inventory", form);
end
end,
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
local meta = minetest.get_meta(pos);
local privs = minetest.get_player_privs(player:get_player_name());
if minetest.is_protected(pos, player:get_player_name()) and not privs.privs then return 0 end
return stack:get_count();
end,
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
local meta = minetest.get_meta(pos);
local privs = minetest.get_player_privs(player:get_player_name());
if minetest.is_protected(pos, player:get_player_name()) and not privs.privs then return 0 end
return stack:get_count();
end,
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
return 0;
end,
})