5 dofile(minetest.get_modpath("experimental").."/modchannels.lua")
7 -- For testing random stuff
11 function experimental.print_to_everything(msg)
12 minetest.log("action", msg)
13 minetest.chat_send_all(msg)
17 experimental.player_visual_index = 0
18 function switch_player_visual()
19 for _, obj in pairs(minetest.get_connected_players()) do
20 if experimental.player_visual_index == 0 then
21 obj:set_properties({visual="upright_sprite"})
23 obj:set_properties({visual="cube"})
26 experimental.player_visual_index = (experimental.player_visual_index + 1) % 2
27 minetest.after(1.0, switch_player_visual)
29 minetest.after(1.0, switch_player_visual)
32 minetest.register_node("experimental:soundblock", {
33 tiles = {"unknown_node.png", "default_tnt_bottom.png",
34 "default_tnt_side.png", "default_tnt_side.png",
35 "default_tnt_side.png", "default_tnt_side.png"},
36 inventory_image = minetest.inventorycube("unknown_node.png",
37 "default_tnt_side.png", "default_tnt_side.png"),
38 groups = {dig_immediate=3},
41 minetest.register_alias("sb", "experimental:soundblock")
43 minetest.register_abm({
44 nodenames = {"experimental:soundblock"},
47 action = function(p0, node, _, _)
48 minetest.sound_play("default_grass_footstep", {pos=p0, gain=0.5})
56 stepsound = minetest.sound_play("default_grass_footstep", {gain=1.0})
57 minetest.after(2.0, test_sound)
58 --minetest.after(0.1, test_sound_stop)
60 function test_sound_stop()
61 print("test_sound_stop")
62 minetest.sound_stop(stepsound)
63 minetest.after(2.0, test_sound)
68 function on_step(dtime)
69 -- print("experimental on_step")
71 objs = minetest.get_objects_inside_radius({x=0,y=0,z=0}, 10)
72 for k, obj in pairs(objs) do
73 name = obj:get_player_name()
75 print(name.." at "..dump(obj:getpos()))
76 print(name.." dir: "..dump(obj:get_look_dir()))
77 print(name.." pitch: "..dump(obj:get_look_pitch()))
78 print(name.." yaw: "..dump(obj:get_look_yaw()))
80 print("Some object at "..dump(obj:getpos()))
85 if experimental.t1 == nil then
88 experimental.t1 = experimental.t1 + dtime
89 if experimental.t1 >= 2 then
90 experimental.t1 = experimental.t1 - 2
91 minetest.log("time of day is "..minetest.get_timeofday())
92 if experimental.day then
93 minetest.log("forcing day->night")
94 experimental.day = false
95 minetest.set_timeofday(0.0)
97 minetest.log("forcing night->day")
98 experimental.day = true
99 minetest.set_timeofday(0.5)
101 minetest.log("time of day is "..minetest.get_timeofday())
105 minetest.register_globalstep(on_step)
112 -- TNT (not functional)
115 minetest.register_craft({
116 output = 'experimental:tnt',
119 {'default:coal_lump'},
124 minetest.register_node("experimental:tnt", {
125 tiles = {"default_tnt_top.png", "default_tnt_bottom.png",
126 "default_tnt_side.png", "default_tnt_side.png",
127 "default_tnt_side.png", "default_tnt_side.png"},
128 inventory_image = minetest.inventorycube("default_tnt_top.png",
129 "default_tnt_side.png", "default_tnt_side.png"),
130 drop = '', -- Get nothing
136 minetest.register_on_punchnode(function(p, node)
137 if node.name == "experimental:tnt" then
138 minetest.remove_node(p)
139 minetest.add_entity(p, "experimental:tnt")
140 minetest.check_for_falling(p)
146 physical = true, -- Collides with things
148 collisionbox = {-0.5,-0.5,-0.5, 0.5,0.5,0.5},
150 textures = {"default_tnt_top.png", "default_tnt_bottom.png",
151 "default_tnt_side.png", "default_tnt_side.png",
152 "default_tnt_side.png", "default_tnt_side.png"},
153 -- Initial value for our timer
155 -- Number of punches required to defuse
161 -- Called when a TNT object is created
162 function TNT:on_activate(staticdata)
163 print("TNT:on_activate()")
164 self.object:setvelocity({x=0, y=4, z=0})
165 self.object:setacceleration({x=0, y=-10, z=0})
166 self.object:settexturemod("^[brighten")
167 self.object:set_armor_groups({immortal=1})
170 -- Called periodically
171 function TNT:on_step(dtime)
172 --print("TNT:on_step()")
173 self.timer = self.timer + dtime
174 self.blinktimer = self.blinktimer + dtime
175 if self.blinktimer > 0.5 then
176 self.blinktimer = self.blinktimer - 0.5
177 if self.blinkstatus then
178 self.object:settexturemod("")
180 self.object:settexturemod("^[brighten")
182 self.blinkstatus = not self.blinkstatus
186 -- Called when object is punched
187 function TNT:on_punch(hitter)
188 print("TNT:on_punch()")
189 self.health = self.health - 1
190 if self.health <= 0 then
192 hitter:get_inventory():add_item("main", "experimental:tnt")
193 --hitter:set_hp(hitter:get_hp() - 1)
197 -- Called when object is right-clicked
198 function TNT:on_rightclick(clicker)
199 --pos = self.object:getpos()
200 --pos = {x=pos.x, y=pos.y+0.1, z=pos.z}
201 --self.object:moveto(pos, false)
204 --print("TNT dump: "..dump(TNT))
205 --print("Registering TNT");
206 minetest.register_entity("experimental:tnt", TNT)
208 -- Add TNT's old name also
209 minetest.register_alias("TNT", "experimental:tnt")
215 minetest.register_entity("experimental:dummyball", {
216 initial_properties = {
219 collisionbox = {-0.4,-0.4,-0.4, 0.4,0.4,0.4},
221 visual_size = {x=1, y=1},
222 textures = {"experimental_dummyball.png"},
223 spritediv = {x=1, y=3},
224 initial_sprite_basepos = {x=0, y=0},
230 on_activate = function(self, staticdata)
231 minetest.log("Dummyball activated!")
234 on_step = function(self, dtime)
235 self.phasetimer = self.phasetimer + dtime
236 if self.phasetimer > 2.0 then
237 self.phasetimer = self.phasetimer - 2.0
238 self.phase = self.phase + 1
239 if self.phase >= 3 then
242 self.object:setsprite({x=0, y=self.phase})
248 self.object:set_armor_groups(phasearmor[self.phase])
252 on_punch = function(self, hitter)
256 minetest.register_on_chat_message(function(name, message)
257 local cmd = "/dummyball"
258 if message:sub(0, #cmd) == cmd then
259 count = tonumber(message:sub(#cmd+1)) or 1
260 if not minetest.get_player_privs(name)["give"] then
261 minetest.chat_send_player(name, "you don't have permission to spawn (give)")
262 return true -- Handled chat message
264 if not minetest.get_player_privs(name)["interact"] then
265 minetest.chat_send_player(name, "you don't have permission to interact")
266 return true -- Handled chat message
268 if count >= 2 and not minetest.get_player_privs(name)["server"] then
269 minetest.chat_send_player(name, "you don't have " ..
270 "permission to spawn multiple " ..
271 "dummyballs (server)")
272 return true -- Handled chat message
274 local player = minetest.get_player_by_name(name)
275 if player == nil then
276 print("Unable to spawn entity, player is nil")
277 return true -- Handled chat message
279 local entityname = "experimental:dummyball"
280 local p = player:getpos()
283 minetest.add_entity(p, entityname)
285 minetest.chat_send_player(name, '"'..entityname
286 ..'" spawned '..tostring(count)..' time(s).');
287 return true -- Handled chat message
292 -- A test entity for testing animated and yaw-modulated sprites
295 minetest.register_entity("experimental:testentity", {
297 physical = true, -- Collides with things
299 collisionbox = {-0.7,-1.35,-0.7, 0.7,1.0,0.7},
300 --collisionbox = {-0.5,-0.5,-0.5, 0.5,0.5,0.5},
302 visual_size = {x=2, y=3},
303 textures = {"dungeon_master.png^[makealpha:128,0,0^[makealpha:128,128,0"},
304 spritediv = {x=6, y=5},
305 initial_sprite_basepos = {x=0, y=0},
307 on_activate = function(self, staticdata)
308 print("testentity.on_activate")
309 self.object:setsprite({x=0,y=0}, 1, 0, true)
310 --self.object:setsprite({x=0,y=0}, 4, 0.3, true)
313 self.object:setacceleration({x=0, y=-10, z=0})
314 -- Jump a bit upwards
315 self.object:setvelocity({x=0, y=10, z=0})
318 on_punch = function(self, hitter)
320 hitter:add_to_inventory('craft testobject1 1')
322 on_death = function(self, killer)
323 print("testentity.on_death")
331 minetest.register_on_respawnplayer(function(player)
332 print("on_respawnplayer")
333 -- player:setpos({x=0, y=30, z=0})
337 minetest.register_on_generated(function(minp, maxp)
338 --print("on_generated: minp="..dump(minp).." maxp="..dump(maxp))
339 --cp = {x=(minp.x+maxp.x)/2, y=(minp.y+maxp.y)/2, z=(minp.z+maxp.z)/2}
340 --minetest.add_node(cp, {name="sand"})
343 -- Example setting get
344 --print("setting max_users = " .. dump(minetest.setting_get("max_users")))
345 --print("setting asdf = " .. dump(minetest.setting_get("asdf")))
347 minetest.register_on_chat_message(function(name, message)
348 --[[print("on_chat_message: name="..dump(name).." message="..dump(message))
349 local cmd = "/testcommand"
350 if message:sub(0, #cmd) == cmd then
351 print(cmd.." invoked")
355 if message:sub(0, #cmd) == cmd then
356 print("script-overridden help command")
357 minetest.chat_send_all("script-overridden help command")
362 -- Grow papyrus on TNT every 10 seconds
363 --[[minetest.register_abm({
367 action = function(pos, node, active_object_count, active_object_count_wider)
368 print("TNT ABM action")
370 minetest.add_node(pos, {name="papyrus"})
374 -- Replace texts of alls signs with "foo" every 10 seconds
375 --[[minetest.register_abm({
376 nodenames = {"sign_wall"},
379 action = function(pos, node, active_object_count, active_object_count_wider)
380 print("ABM: Sign text changed")
381 local meta = minetest.get_meta(pos)
386 --[[local ncpos = nil
389 {2, 1, 0, 3}, {3, 0, 1, 2}, {4, -1, 0, 1}, {5, -1, 0, 1}, {6, 0, -1, 0},
390 {7, 0, -1, 0}, {8, 1, 0, 3}, {9, 1, 0, 3}, {10, 1, 0, 3}, {11, 0, 1, 2},
391 {12, 0, 1, 2}, {13, 0, 1, 2}, {14, -1, 0, 1}, {15, -1, 0, 1}, {16, -1, 0, 1},
392 {17, -1, 0, 1}, {18, 0, -1, 0}, {19, 0, -1, 0}, {20, 0, -1, 0}, {21, 0, -1, 0},
393 {22, 1, 0, 3}, {23, 1, 0, 3}, {24, 1, 0, 3}, {25, 1, 0, 3}, {10, 0, 1, 2}
398 minetest.register_abm({
399 nodenames = {"dirt_with_grass"},
402 action = function(pos, node, active_object_count, active_object_count_wider)
407 if pos.x % 16 ~= 8 or pos.z % 16 ~= 8 then
412 n = minetest.get_node(pos)
414 if n.name ~= "air" then
421 minetest.add_node(ncpos, {name="nyancat"})
425 minetest.register_abm({
426 nodenames = {"nyancat"},
429 action = function(pos, node, active_object_count, active_object_count_wider)
433 if pos.x == ncpos.x and pos.y == ncpos.y and pos.z == ncpos.z then
435 if clock - nctime < 0.1 then
444 p1 = {x = p0.x + s0[2], y = p0.y, z = p0.z + s0[3]}
445 p2 = {x = p1.x + s1[2], y = p1.y, z = p1.z + s1[3]}
446 table.insert(ncold, 1, p0)
447 while #ncold >= 10 do
448 minetest.add_node(ncold[#ncold], {name="air"})
449 table.remove(ncold, #ncold)
451 minetest.add_node(p0, {name="nyancat_rainbow"})
452 minetest.add_node(p1, {name="nyancat", param1=s0[4]})
453 minetest.add_node(p2, {name="air"})
459 minetest.register_node("experimental:tester_node_1", {
460 description = "Tester Node 1 (construct/destruct/timer)",
461 tiles = {"wieldhand.png"},
462 groups = {oddly_breakable_by_hand=2},
463 sounds = default.node_sound_wood_defaults(),
464 -- This was known to cause a bug in minetest.item_place_node() when used
465 -- via minetest.place_node(), causing a placer with no position
466 paramtype2 = "facedir",
468 on_construct = function(pos)
469 experimental.print_to_everything("experimental:tester_node_1:on_construct("..minetest.pos_to_string(pos)..")")
470 local meta = minetest.get_meta(pos)
471 meta:set_string("mine", "test")
472 local timer = minetest.get_node_timer(pos)
476 after_place_node = function(pos, placer)
477 experimental.print_to_everything("experimental:tester_node_1:after_place_node("..minetest.pos_to_string(pos)..")")
478 local meta = minetest.get_meta(pos)
479 if meta:get_string("mine") == "test" then
480 experimental.print_to_everything("correct metadata found")
482 experimental.print_to_everything("incorrect metadata found")
486 on_destruct = function(pos)
487 experimental.print_to_everything("experimental:tester_node_1:on_destruct("..minetest.pos_to_string(pos)..")")
490 after_destruct = function(pos)
491 experimental.print_to_everything("experimental:tester_node_1:after_destruct("..minetest.pos_to_string(pos)..")")
494 after_dig_node = function(pos, oldnode, oldmetadata, digger)
495 experimental.print_to_everything("experimental:tester_node_1:after_dig_node("..minetest.pos_to_string(pos)..")")
498 on_timer = function(pos, elapsed)
499 experimental.print_to_everything("on_timer(): elapsed="..dump(elapsed))
504 minetest.register_craftitem("experimental:tester_tool_1", {
505 description = "Tester Tool 1",
506 inventory_image = "experimental_tester_tool_1.png",
507 on_use = function(itemstack, user, pointed_thing)
508 --print(dump(pointed_thing))
509 if pointed_thing.type == "node" then
510 local node = minetest.get_node(pointed_thing.under)
511 if node.name == "experimental:tester_node_1" or node.name == "default:chest" then
512 local p = pointed_thing.under
513 minetest.log("action", "Tester tool used at "..minetest.pos_to_string(p))
514 if node.name == "experimental:tester_node_1" then
517 minetest.get_meta(p):mark_as_private({"infotext", "formspec"})
518 minetest.chat_send_player(user:get_player_name(), "Verify that chest is unusable now.")
521 local p = pointed_thing.above
522 minetest.log("action", "Tester tool used at "..minetest.pos_to_string(p))
523 minetest.place_node(p, {name="experimental:tester_node_1"})
529 minetest.register_craft({
530 output = 'experimental:tester_tool_1',
537 minetest.register_craftitem("experimental:tester_tool_2", {
538 description = "Tester Tool 2",
539 inventory_image = "experimental_tester_tool_1.png^[invert:g",
540 on_use = function(itemstack, user, pointed_thing)
541 local pos = minetest.get_pointed_thing_position(pointed_thing, true)
542 if pos == nil then return end
543 pos = vector.add(pos, {x=0, y=0.5, z=0})
545 if math.random(0, 1) == 0 then
546 tex = "default_lava_source_animated.png"
547 anim = {type="sheet_2d", frames_w=3, frames_h=2, frame_length=0.5}
549 tex = "default_lava_flowing_animated.png"
550 anim = {type="vertical_frames", aspect_w=16, aspect_h=16, length=3.3}
553 minetest.add_particle({
555 velocity = {x=0, y=0, z=0},
556 acceleration = {x=0, y=0.04, z=0},
558 collisiondetection = true,
562 glow = math.random(0, 5),
567 minetest.register_craft({
568 output = 'experimental:tester_tool_2',
570 {'group:crumbly','group:crumbly'},
574 --[[minetest.register_on_joinplayer(function(player)
575 minetest.after(3, function()
576 player:set_inventory_formspec("size[8,7.5]"..
577 "image[1,0.6;1,2;player.png]"..
578 "list[current_player;main;0,3.5;8,4;]"..
579 "list[current_player;craft;3,0;3,3;]"..
580 "list[current_player;craftpreview;7,1;1,1;]")
584 -- Create a detached inventory
585 local inv = minetest.create_detached_inventory("test_inventory", {
586 allow_move = function(inv, from_list, from_index, to_list, to_index, count, player)
587 experimental.print_to_everything("allow move asked")
588 return count -- Allow all
590 allow_put = function(inv, listname, index, stack, player)
591 experimental.print_to_everything("allow put asked")
592 return 1 -- Allow only 1
594 allow_take = function(inv, listname, index, stack, player)
595 experimental.print_to_everything("allow take asked")
596 return 4 -- Allow 4 at max
598 on_move = function(inv, from_list, from_index, to_list, to_index, count, player)
599 experimental.print_to_everything(player:get_player_name().." moved items")
601 on_put = function(inv, listname, index, stack, player)
602 experimental.print_to_everything(player:get_player_name().." put items")
604 on_take = function(inv, listname, index, stack, player)
605 experimental.print_to_everything(player:get_player_name().." took items")
608 inv:set_size("main", 4*6)
609 inv:add_item("main", "experimental:tester_tool_1")
610 inv:add_item("main", "experimental:tnt 5")
612 minetest.register_chatcommand("test1", {
614 description = "Test 1: Modify player's inventory view",
615 func = function(name, param)
616 local player = minetest.get_player_by_name(name)
620 player:set_inventory_formspec(
622 "image[6,0.6;1,2;player.png]"..
623 "list[current_player;main;5,3.5;8,4;]"..
624 "list[current_player;craft;8,0;3,3;]"..
625 "list[current_player;craftpreview;12,1;1,1;]"..
626 "list[detached:test_inventory;main;0,0;4,6;0]"..
627 "button[0.5,7;2,1;button1;Button 1]"..
628 "button_exit[2.5,7;2,1;button2;Exit Button]"
630 minetest.chat_send_player(name, "Done.");
634 minetest.register_on_player_receive_fields(function(player, formname, fields)
635 experimental.print_to_everything("Inventory fields 1: player="..player:get_player_name()..", fields="..dump(fields))
637 minetest.register_on_player_receive_fields(function(player, formname, fields)
638 experimental.print_to_everything("Inventory fields 2: player="..player:get_player_name()..", fields="..dump(fields))
639 return true -- Disable the first callback
641 minetest.register_on_player_receive_fields(function(player, formname, fields)
642 experimental.print_to_everything("Inventory fields 3: player="..player:get_player_name()..", fields="..dump(fields))
645 minetest.log("experimental modname="..dump(minetest.get_current_modname()))
646 minetest.log("experimental modpath="..dump(minetest.get_modpath("experimental")))
647 minetest.log("experimental worldpath="..dump(minetest.get_worldpath()))