Implement mod communication channels (#6351)
[oweals/minetest.git] / games / minimal / mods / experimental / init.lua
1 --
2 -- Experimental things
3 --
4
5 dofile(minetest.get_modpath("experimental").."/modchannels.lua")
6
7 -- For testing random stuff
8
9 experimental = {}
10
11 function experimental.print_to_everything(msg)
12         minetest.log("action", msg)
13         minetest.chat_send_all(msg)
14 end
15
16 --[[
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"})
22                 else
23                         obj:set_properties({visual="cube"})
24                 end
25         end
26         experimental.player_visual_index = (experimental.player_visual_index + 1) % 2
27         minetest.after(1.0, switch_player_visual)
28 end
29 minetest.after(1.0, switch_player_visual)
30 ]]
31
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},
39 })
40
41 minetest.register_alias("sb", "experimental:soundblock")
42
43 minetest.register_abm({
44         nodenames = {"experimental:soundblock"},
45         interval = 1,
46         chance = 1,
47         action = function(p0, node, _, _)
48                 minetest.sound_play("default_grass_footstep", {pos=p0, gain=0.5})
49         end,
50 })
51
52 --[[
53 stepsound = -1
54 function test_sound()
55         print("test_sound")
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)
59 end
60 function test_sound_stop()
61         print("test_sound_stop")
62         minetest.sound_stop(stepsound)
63         minetest.after(2.0, test_sound)
64 end
65 test_sound()
66 --]]
67
68 function on_step(dtime)
69         -- print("experimental on_step")
70         --[[
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()
74                 if name then
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()))
79                 else
80                         print("Some object at "..dump(obj:getpos()))
81                 end
82         end
83         --]]
84         --[[
85         if experimental.t1 == nil then
86                 experimental.t1 = 0
87         end
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)
96                 else
97                         minetest.log("forcing night->day")
98                         experimental.day = true
99                         minetest.set_timeofday(0.5)
100                 end
101                 minetest.log("time of day is "..minetest.get_timeofday())
102         end
103         --]]
104 end
105 minetest.register_globalstep(on_step)
106
107 --
108 -- Random stuff
109 --
110
111 --
112 -- TNT (not functional)
113 --
114
115 minetest.register_craft({
116         output = 'experimental:tnt',
117         recipe = {
118                 {'default:wood'},
119                 {'default:coal_lump'},
120                 {'default:wood'}
121         }
122 })
123
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
131         material = {
132                 diggability = "not",
133         },
134 })
135
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)
141         end
142 end)
143
144 local TNT = {
145         -- Static definition
146         physical = true, -- Collides with things
147         -- weight = 5,
148         collisionbox = {-0.5,-0.5,-0.5, 0.5,0.5,0.5},
149         visual = "cube",
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
154         timer = 0,
155         -- Number of punches required to defuse
156         health = 1,
157         blinktimer = 0,
158         blinkstatus = true,
159 }
160
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})
168 end
169
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("")
179                 else
180                         self.object:settexturemod("^[brighten")
181                 end
182                 self.blinkstatus = not self.blinkstatus
183         end
184 end
185
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
191                 self.object:remove()
192                 hitter:get_inventory():add_item("main", "experimental:tnt")
193                 --hitter:set_hp(hitter:get_hp() - 1)
194         end
195 end
196
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)
202 end
203
204 --print("TNT dump: "..dump(TNT))
205 --print("Registering TNT");
206 minetest.register_entity("experimental:tnt", TNT)
207
208 -- Add TNT's old name also
209 minetest.register_alias("TNT", "experimental:tnt")
210
211 --
212 -- The dummyball!
213 --
214
215 minetest.register_entity("experimental:dummyball", {
216         initial_properties = {
217                 hp_max = 20,
218                 physical = false,
219                 collisionbox = {-0.4,-0.4,-0.4, 0.4,0.4,0.4},
220                 visual = "sprite",
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},
225         },
226
227         phase = 0,
228         phasetimer = 0,
229
230         on_activate = function(self, staticdata)
231                 minetest.log("Dummyball activated!")
232         end,
233
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
240                                 self.phase = 0
241                         end
242                         self.object:setsprite({x=0, y=self.phase})
243                         phasearmor = {
244                                 [0]={cracky=3},
245                                 [1]={crumbly=3},
246                                 [2]={fleshy=3}
247                         }
248                         self.object:set_armor_groups(phasearmor[self.phase])
249                 end
250         end,
251
252         on_punch = function(self, hitter)
253         end,
254 })
255
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
263                 end
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
267                 end
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
273                 end
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
278                 end
279                 local entityname = "experimental:dummyball"
280                 local p = player:getpos()
281                 p.y = p.y + 1
282                 for i = 1,count do
283                         minetest.add_entity(p, entityname)
284                 end
285                 minetest.chat_send_player(name, '"'..entityname
286                                 ..'" spawned '..tostring(count)..' time(s).');
287                 return true -- Handled chat message
288         end
289 end)
290
291 --
292 -- A test entity for testing animated and yaw-modulated sprites
293 --
294
295 minetest.register_entity("experimental:testentity", {
296         -- Static definition
297         physical = true, -- Collides with things
298         -- weight = 5,
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},
301         visual = "sprite",
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},
306
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)
311
312                 -- Set gravity
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})
316         end,
317
318         on_punch = function(self, hitter)
319                 self.object:remove()
320                 hitter:add_to_inventory('craft testobject1 1')
321         end,
322         on_death = function(self, killer)
323                 print("testentity.on_death")
324         end
325 })
326
327 --
328 -- More random stuff
329 --
330
331 minetest.register_on_respawnplayer(function(player)
332         print("on_respawnplayer")
333         -- player:setpos({x=0, y=30, z=0})
334         -- return true
335 end)
336
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"})
341 end)
342
343 -- Example setting get
344 --print("setting max_users = " .. dump(minetest.setting_get("max_users")))
345 --print("setting asdf = " .. dump(minetest.setting_get("asdf")))
346
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")
352                 return true
353         end
354         local cmd = "/help"
355         if message:sub(0, #cmd) == cmd then
356                 print("script-overridden help command")
357                 minetest.chat_send_all("script-overridden help command")
358                 return true
359         end]]
360 end)
361
362 -- Grow papyrus on TNT every 10 seconds
363 --[[minetest.register_abm({
364         nodenames = {"TNT"},
365         interval = 10.0,
366         chance = 1,
367         action = function(pos, node, active_object_count, active_object_count_wider)
368                 print("TNT ABM action")
369                 pos.y = pos.y + 1
370                 minetest.add_node(pos, {name="papyrus"})
371         end,
372 })]]
373
374 -- Replace texts of alls signs with "foo" every 10 seconds
375 --[[minetest.register_abm({
376         nodenames = {"sign_wall"},
377         interval = 10.0,
378         chance = 1,
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)
382                 meta:set_text("foo")
383         end,
384 })]]
385
386 --[[local ncpos = nil
387 local ncq = 1
388 local ncstuff = {
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}
394 }
395 local ncold = {}
396 local nctime = nil
397
398 minetest.register_abm({
399     nodenames = {"dirt_with_grass"},
400     interval = 100000.0,
401     chance = 1,
402     action = function(pos, node, active_object_count, active_object_count_wider)
403         if ncpos ~= nil then
404             return
405         end
406
407         if pos.x % 16 ~= 8 or pos.z % 16 ~= 8 then
408             return
409         end
410
411         pos.y = pos.y + 1
412         n = minetest.get_node(pos)
413         print(dump(n))
414         if n.name ~= "air" then
415             return
416         end
417
418         pos.y = pos.y + 2
419         ncpos = pos
420         nctime = os.clock()
421         minetest.add_node(ncpos, {name="nyancat"})
422     end
423 })
424
425 minetest.register_abm({
426     nodenames = {"nyancat"},
427     interval = 1.0,
428     chance = 1,
429     action = function(pos, node, active_object_count, active_object_count_wider)
430         if ncpos == nil then
431             return
432         end
433         if pos.x == ncpos.x and pos.y == ncpos.y and pos.z == ncpos.z then
434             clock = os.clock()
435             if clock - nctime < 0.1 then
436                 return
437             end
438             nctime = clock
439
440             s0 = ncstuff[ncq]
441             ncq = s0[1]
442             s1 = ncstuff[ncq]
443             p0 = pos
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)
450             end
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"})
454             ncpos = p1
455         end
456     end,
457 })--]]
458
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",
467
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)
473                 timer:start(4, 3)
474         end,
475
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")
481                 else
482                         experimental.print_to_everything("incorrect metadata found")
483                 end
484         end,
485
486         on_destruct = function(pos)
487                 experimental.print_to_everything("experimental:tester_node_1:on_destruct("..minetest.pos_to_string(pos)..")")
488         end,
489
490         after_destruct = function(pos)
491                 experimental.print_to_everything("experimental:tester_node_1:after_destruct("..minetest.pos_to_string(pos)..")")
492         end,
493
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)..")")
496         end,
497
498         on_timer = function(pos, elapsed)
499                 experimental.print_to_everything("on_timer(): elapsed="..dump(elapsed))
500                 return true
501         end,
502 })
503
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
515                                         minetest.dig_node(p)
516                                 else
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.")
519                                 end
520                         else
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"})
524                         end
525                 end
526         end,
527 })
528
529 minetest.register_craft({
530         output = 'experimental:tester_tool_1',
531         recipe = {
532                 {'group:crumbly'},
533                 {'group:crumbly'},
534         }
535 })
536
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})
544                 local tex, anim
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}
548                 else
549                         tex = "default_lava_flowing_animated.png"
550                         anim = {type="vertical_frames", aspect_w=16, aspect_h=16, length=3.3}
551                 end
552
553                 minetest.add_particle({
554                         pos = pos,
555                         velocity = {x=0, y=0, z=0},
556                         acceleration = {x=0, y=0.04, z=0},
557                         expirationtime = 6,
558                         collisiondetection = true,
559                         texture = tex,
560                         animation = anim,
561                         size = 4,
562                         glow = math.random(0, 5),
563                 })
564         end,
565 })
566
567 minetest.register_craft({
568         output = 'experimental:tester_tool_2',
569         recipe = {
570                 {'group:crumbly','group:crumbly'},
571         }
572 })
573
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;]")
581         end)
582 end)]]
583
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
589         end,
590     allow_put = function(inv, listname, index, stack, player)
591                 experimental.print_to_everything("allow put asked")
592                 return 1 -- Allow only 1
593         end,
594     allow_take = function(inv, listname, index, stack, player)
595                 experimental.print_to_everything("allow take asked")
596                 return 4 -- Allow 4 at max
597         end,
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")
600         end,
601     on_put = function(inv, listname, index, stack, player)
602                 experimental.print_to_everything(player:get_player_name().." put items")
603         end,
604     on_take = function(inv, listname, index, stack, player)
605                 experimental.print_to_everything(player:get_player_name().." took items")
606         end,
607 })
608 inv:set_size("main", 4*6)
609 inv:add_item("main", "experimental:tester_tool_1")
610 inv:add_item("main", "experimental:tnt 5")
611
612 minetest.register_chatcommand("test1", {
613         params = "",
614         description = "Test 1: Modify player's inventory view",
615         func = function(name, param)
616                 local player = minetest.get_player_by_name(name)
617                 if not player then
618                         return
619                 end
620                 player:set_inventory_formspec(
621                                 "size[13,7.5]"..
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]"
629                 )
630                 minetest.chat_send_player(name, "Done.");
631         end,
632 })
633
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))
636 end)
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
640 end)
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))
643 end)
644
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()))
648
649 -- END