afa136777a748c62bd7b87fc32f07ed229d72581
[oweals/minetest.git] / games / minimal / mods / experimental / init.lua
1 --
2 -- Experimental things
3 --
4
5 -- For testing random stuff
6
7 experimental = {}
8
9 function experimental.print_to_everything(msg)
10         minetest.log("action", msg)
11         minetest.chat_send_all(msg)
12 end
13
14 --[[
15 experimental.player_visual_index = 0
16 function switch_player_visual()
17         for _, obj in pairs(minetest.get_connected_players()) do
18                 if experimental.player_visual_index == 0 then
19                         obj:set_properties({visual="upright_sprite"})
20                 else
21                         obj:set_properties({visual="cube"})
22                 end
23         end
24         experimental.player_visual_index = (experimental.player_visual_index + 1) % 2
25         minetest.after(1.0, switch_player_visual)
26 end
27 minetest.after(1.0, switch_player_visual)
28 ]]
29
30 minetest.register_node("experimental:soundblock", {
31         tiles = {"unknown_node.png", "default_tnt_bottom.png",
32                         "default_tnt_side.png", "default_tnt_side.png",
33                         "default_tnt_side.png", "default_tnt_side.png"},
34         inventory_image = minetest.inventorycube("unknown_node.png",
35                         "default_tnt_side.png", "default_tnt_side.png"),
36         groups = {dig_immediate=3},
37 })
38
39 minetest.register_alias("sb", "experimental:soundblock")
40
41 minetest.register_abm({
42         nodenames = {"experimental:soundblock"},
43         interval = 1,
44         chance = 1,
45         action = function(p0, node, _, _)
46                 minetest.sound_play("default_grass_footstep", {pos=p0, gain=0.5})
47         end,
48 })
49
50 --[[
51 stepsound = -1
52 function test_sound()
53         print("test_sound")
54         stepsound = minetest.sound_play("default_grass_footstep", {gain=1.0})
55         minetest.after(2.0, test_sound)
56         --minetest.after(0.1, test_sound_stop)
57 end
58 function test_sound_stop()
59         print("test_sound_stop")
60         minetest.sound_stop(stepsound)
61         minetest.after(2.0, test_sound)
62 end
63 test_sound()
64 --]]
65
66 function on_step(dtime)
67         -- print("experimental on_step")
68         --[[
69         objs = minetest.get_objects_inside_radius({x=0,y=0,z=0}, 10)
70         for k, obj in pairs(objs) do
71                 name = obj:get_player_name()
72                 if name then
73                         print(name.." at "..dump(obj:getpos()))
74                         print(name.." dir: "..dump(obj:get_look_dir()))
75                         print(name.." pitch: "..dump(obj:get_look_pitch()))
76                         print(name.." yaw: "..dump(obj:get_look_yaw()))
77                 else
78                         print("Some object at "..dump(obj:getpos()))
79                 end
80         end
81         --]]
82         --[[
83         if experimental.t1 == nil then
84                 experimental.t1 = 0
85         end
86         experimental.t1 = experimental.t1 + dtime
87         if experimental.t1 >= 2 then
88                 experimental.t1 = experimental.t1 - 2
89                 minetest.log("time of day is "..minetest.get_timeofday())
90                 if experimental.day then
91                         minetest.log("forcing day->night")
92                         experimental.day = false
93                         minetest.set_timeofday(0.0)
94                 else
95                         minetest.log("forcing night->day")
96                         experimental.day = true
97                         minetest.set_timeofday(0.5)
98                 end
99                 minetest.log("time of day is "..minetest.get_timeofday())
100         end
101         --]]
102 end
103 minetest.register_globalstep(on_step)
104
105 --
106 -- Random stuff
107 --
108
109 --
110 -- TNT (not functional)
111 --
112
113 minetest.register_craft({
114         output = 'experimental:tnt',
115         recipe = {
116                 {'default:wood'},
117                 {'default:coal_lump'},
118                 {'default:wood'}
119         }
120 })
121
122 minetest.register_node("experimental:tnt", {
123         tiles = {"default_tnt_top.png", "default_tnt_bottom.png",
124                         "default_tnt_side.png", "default_tnt_side.png",
125                         "default_tnt_side.png", "default_tnt_side.png"},
126         inventory_image = minetest.inventorycube("default_tnt_top.png",
127                         "default_tnt_side.png", "default_tnt_side.png"),
128         drop = '', -- Get nothing
129         material = {
130                 diggability = "not",
131         },
132 })
133
134 minetest.register_on_punchnode(function(p, node)
135         if node.name == "experimental:tnt" then
136                 minetest.remove_node(p)
137                 minetest.add_entity(p, "experimental:tnt")
138                 minetest.check_for_falling(p)
139         end
140 end)
141
142 local TNT = {
143         -- Static definition
144         physical = true, -- Collides with things
145         -- weight = 5,
146         collisionbox = {-0.5,-0.5,-0.5, 0.5,0.5,0.5},
147         visual = "cube",
148         textures = {"default_tnt_top.png", "default_tnt_bottom.png",
149                         "default_tnt_side.png", "default_tnt_side.png",
150                         "default_tnt_side.png", "default_tnt_side.png"},
151         -- Initial value for our timer
152         timer = 0,
153         -- Number of punches required to defuse
154         health = 1,
155         blinktimer = 0,
156         blinkstatus = true,
157 }
158
159 -- Called when a TNT object is created
160 function TNT:on_activate(staticdata)
161         print("TNT:on_activate()")
162         self.object:setvelocity({x=0, y=4, z=0})
163         self.object:setacceleration({x=0, y=-10, z=0})
164         self.object:settexturemod("^[brighten")
165         self.object:set_armor_groups({immortal=1})
166 end
167
168 -- Called periodically
169 function TNT:on_step(dtime)
170         --print("TNT:on_step()")
171         self.timer = self.timer + dtime
172         self.blinktimer = self.blinktimer + dtime
173         if self.blinktimer > 0.5 then
174                 self.blinktimer = self.blinktimer - 0.5
175                 if self.blinkstatus then
176                         self.object:settexturemod("")
177                 else
178                         self.object:settexturemod("^[brighten")
179                 end
180                 self.blinkstatus = not self.blinkstatus
181         end
182 end
183
184 -- Called when object is punched
185 function TNT:on_punch(hitter)
186         print("TNT:on_punch()")
187         self.health = self.health - 1
188         if self.health <= 0 then
189                 self.object:remove()
190                 hitter:get_inventory():add_item("main", "experimental:tnt")
191                 --hitter:set_hp(hitter:get_hp() - 1)
192         end
193 end
194
195 -- Called when object is right-clicked
196 function TNT:on_rightclick(clicker)
197         --pos = self.object:getpos()
198         --pos = {x=pos.x, y=pos.y+0.1, z=pos.z}
199         --self.object:moveto(pos, false)
200 end
201
202 --print("TNT dump: "..dump(TNT))
203 --print("Registering TNT");
204 minetest.register_entity("experimental:tnt", TNT)
205
206 -- Add TNT's old name also
207 minetest.register_alias("TNT", "experimental:tnt")
208
209 --
210 -- The dummyball!
211 --
212
213 minetest.register_entity("experimental:dummyball", {
214         initial_properties = {
215                 hp_max = 20,
216                 physical = false,
217                 collisionbox = {-0.4,-0.4,-0.4, 0.4,0.4,0.4},
218                 visual = "sprite",
219                 visual_size = {x=1, y=1},
220                 textures = {"experimental_dummyball.png"},
221                 spritediv = {x=1, y=3},
222                 initial_sprite_basepos = {x=0, y=0},
223         },
224
225         phase = 0,
226         phasetimer = 0,
227
228         on_activate = function(self, staticdata)
229                 minetest.log("Dummyball activated!")
230         end,
231
232         on_step = function(self, dtime)
233                 self.phasetimer = self.phasetimer + dtime
234                 if self.phasetimer > 2.0 then
235                         self.phasetimer = self.phasetimer - 2.0
236                         self.phase = self.phase + 1
237                         if self.phase >= 3 then
238                                 self.phase = 0
239                         end
240                         self.object:setsprite({x=0, y=self.phase})
241                         phasearmor = {
242                                 [0]={cracky=3},
243                                 [1]={crumbly=3},
244                                 [2]={fleshy=3}
245                         }
246                         self.object:set_armor_groups(phasearmor[self.phase])
247                 end
248         end,
249
250         on_punch = function(self, hitter)
251         end,
252 })
253
254 minetest.register_on_chat_message(function(name, message)
255         local cmd = "/dummyball"
256         if message:sub(0, #cmd) == cmd then
257                 count = tonumber(message:sub(#cmd+1)) or 1
258                 if not minetest.get_player_privs(name)["give"] then
259                         minetest.chat_send_player(name, "you don't have permission to spawn (give)")
260                         return true -- Handled chat message
261                 end
262                 if not minetest.get_player_privs(name)["interact"] then
263                         minetest.chat_send_player(name, "you don't have permission to interact")
264                         return true -- Handled chat message
265                 end
266                 if count >= 2 and not minetest.get_player_privs(name)["server"] then
267                         minetest.chat_send_player(name, "you don't have " ..
268                                         "permission to spawn multiple " ..
269                                         "dummyballs (server)")
270                         return true -- Handled chat message
271                 end
272                 local player = minetest.get_player_by_name(name)
273                 if player == nil then
274                         print("Unable to spawn entity, player is nil")
275                         return true -- Handled chat message
276                 end
277                 local entityname = "experimental:dummyball"
278                 local p = player:getpos()
279                 p.y = p.y + 1
280                 for i = 1,count do
281                         minetest.add_entity(p, entityname)
282                 end
283                 minetest.chat_send_player(name, '"'..entityname
284                                 ..'" spawned '..tostring(count)..' time(s).');
285                 return true -- Handled chat message
286         end
287 end)
288
289 --
290 -- A test entity for testing animated and yaw-modulated sprites
291 --
292
293 minetest.register_entity("experimental:testentity", {
294         -- Static definition
295         physical = true, -- Collides with things
296         -- weight = 5,
297         collisionbox = {-0.7,-1.35,-0.7, 0.7,1.0,0.7},
298         --collisionbox = {-0.5,-0.5,-0.5, 0.5,0.5,0.5},
299         visual = "sprite",
300         visual_size = {x=2, y=3},
301         textures = {"dungeon_master.png^[makealpha:128,0,0^[makealpha:128,128,0"},
302         spritediv = {x=6, y=5},
303         initial_sprite_basepos = {x=0, y=0},
304
305         on_activate = function(self, staticdata)
306                 print("testentity.on_activate")
307                 self.object:setsprite({x=0,y=0}, 1, 0, true)
308                 --self.object:setsprite({x=0,y=0}, 4, 0.3, true)
309
310                 -- Set gravity
311                 self.object:setacceleration({x=0, y=-10, z=0})
312                 -- Jump a bit upwards
313                 self.object:setvelocity({x=0, y=10, z=0})
314         end,
315
316         on_punch = function(self, hitter)
317                 self.object:remove()
318                 hitter:add_to_inventory('craft testobject1 1')
319         end,
320         on_death = function(self, killer)
321                 print("testentity.on_death")
322         end
323 })
324
325 --
326 -- More random stuff
327 --
328
329 minetest.register_on_respawnplayer(function(player)
330         print("on_respawnplayer")
331         -- player:setpos({x=0, y=30, z=0})
332         -- return true
333 end)
334
335 minetest.register_on_generated(function(minp, maxp)
336         --print("on_generated: minp="..dump(minp).." maxp="..dump(maxp))
337         --cp = {x=(minp.x+maxp.x)/2, y=(minp.y+maxp.y)/2, z=(minp.z+maxp.z)/2}
338         --minetest.add_node(cp, {name="sand"})
339 end)
340
341 -- Example setting get
342 --print("setting max_users = " .. dump(minetest.setting_get("max_users")))
343 --print("setting asdf = " .. dump(minetest.setting_get("asdf")))
344
345 minetest.register_on_chat_message(function(name, message)
346         --[[print("on_chat_message: name="..dump(name).." message="..dump(message))
347         local cmd = "/testcommand"
348         if message:sub(0, #cmd) == cmd then
349                 print(cmd.." invoked")
350                 return true
351         end
352         local cmd = "/help"
353         if message:sub(0, #cmd) == cmd then
354                 print("script-overridden help command")
355                 minetest.chat_send_all("script-overridden help command")
356                 return true
357         end]]
358 end)
359
360 -- Grow papyrus on TNT every 10 seconds
361 --[[minetest.register_abm({
362         nodenames = {"TNT"},
363         interval = 10.0,
364         chance = 1,
365         action = function(pos, node, active_object_count, active_object_count_wider)
366                 print("TNT ABM action")
367                 pos.y = pos.y + 1
368                 minetest.add_node(pos, {name="papyrus"})
369         end,
370 })]]
371
372 -- Replace texts of alls signs with "foo" every 10 seconds
373 --[[minetest.register_abm({
374         nodenames = {"sign_wall"},
375         interval = 10.0,
376         chance = 1,
377         action = function(pos, node, active_object_count, active_object_count_wider)
378                 print("ABM: Sign text changed")
379                 local meta = minetest.get_meta(pos)
380                 meta:set_text("foo")
381         end,
382 })]]
383
384 --[[local ncpos = nil
385 local ncq = 1
386 local ncstuff = {
387     {2, 1, 0, 3}, {3, 0, 1, 2}, {4, -1, 0, 1}, {5, -1, 0, 1}, {6, 0, -1, 0},
388     {7, 0, -1, 0}, {8, 1, 0, 3}, {9, 1, 0, 3}, {10, 1, 0, 3}, {11, 0, 1, 2},
389     {12, 0, 1, 2}, {13, 0, 1, 2}, {14, -1, 0, 1}, {15, -1, 0, 1}, {16, -1, 0, 1},
390     {17, -1, 0, 1}, {18, 0, -1, 0}, {19, 0, -1, 0}, {20, 0, -1, 0}, {21, 0, -1, 0},
391     {22, 1, 0, 3}, {23, 1, 0, 3}, {24, 1, 0, 3}, {25, 1, 0, 3}, {10, 0, 1, 2}
392 }
393 local ncold = {}
394 local nctime = nil
395
396 minetest.register_abm({
397     nodenames = {"dirt_with_grass"},
398     interval = 100000.0,
399     chance = 1,
400     action = function(pos, node, active_object_count, active_object_count_wider)
401         if ncpos ~= nil then
402             return
403         end
404
405         if pos.x % 16 ~= 8 or pos.z % 16 ~= 8 then
406             return
407         end
408
409         pos.y = pos.y + 1
410         n = minetest.get_node(pos)
411         print(dump(n))
412         if n.name ~= "air" then
413             return
414         end
415
416         pos.y = pos.y + 2
417         ncpos = pos
418         nctime = os.clock()
419         minetest.add_node(ncpos, {name="nyancat"})
420     end
421 })
422
423 minetest.register_abm({
424     nodenames = {"nyancat"},
425     interval = 1.0,
426     chance = 1,
427     action = function(pos, node, active_object_count, active_object_count_wider)
428         if ncpos == nil then
429             return
430         end
431         if pos.x == ncpos.x and pos.y == ncpos.y and pos.z == ncpos.z then
432             clock = os.clock()
433             if clock - nctime < 0.1 then
434                 return
435             end
436             nctime = clock
437
438             s0 = ncstuff[ncq]
439             ncq = s0[1]
440             s1 = ncstuff[ncq]
441             p0 = pos
442             p1 = {x = p0.x + s0[2], y = p0.y, z = p0.z + s0[3]}
443             p2 = {x = p1.x + s1[2], y = p1.y, z = p1.z + s1[3]}
444             table.insert(ncold, 1, p0)
445             while #ncold >= 10 do
446                 minetest.add_node(ncold[#ncold], {name="air"})
447                 table.remove(ncold, #ncold)
448             end
449             minetest.add_node(p0, {name="nyancat_rainbow"})
450             minetest.add_node(p1, {name="nyancat", param1=s0[4]})
451             minetest.add_node(p2, {name="air"})
452             ncpos = p1
453         end
454     end,
455 })--]]
456
457 minetest.register_node("experimental:tester_node_1", {
458         description = "Tester Node 1 (construct/destruct/timer)",
459         tiles = {"wieldhand.png"},
460         groups = {oddly_breakable_by_hand=2},
461         sounds = default.node_sound_wood_defaults(),
462         -- This was known to cause a bug in minetest.item_place_node() when used
463         -- via minetest.place_node(), causing a placer with no position
464         paramtype2 = "facedir",
465
466         on_construct = function(pos)
467                 experimental.print_to_everything("experimental:tester_node_1:on_construct("..minetest.pos_to_string(pos)..")")
468                 local meta = minetest.get_meta(pos)
469                 meta:set_string("mine", "test")
470                 local timer = minetest.get_node_timer(pos)
471                 timer:start(4, 3)
472         end,
473
474     after_place_node = function(pos, placer)
475                 experimental.print_to_everything("experimental:tester_node_1:after_place_node("..minetest.pos_to_string(pos)..")")
476                 local meta = minetest.get_meta(pos)
477                 if meta:get_string("mine") == "test" then
478                         experimental.print_to_everything("correct metadata found")
479                 else
480                         experimental.print_to_everything("incorrect metadata found")
481                 end
482         end,
483
484         on_destruct = function(pos)
485                 experimental.print_to_everything("experimental:tester_node_1:on_destruct("..minetest.pos_to_string(pos)..")")
486         end,
487
488         after_destruct = function(pos)
489                 experimental.print_to_everything("experimental:tester_node_1:after_destruct("..minetest.pos_to_string(pos)..")")
490         end,
491
492         after_dig_node = function(pos, oldnode, oldmetadata, digger)
493                 experimental.print_to_everything("experimental:tester_node_1:after_dig_node("..minetest.pos_to_string(pos)..")")
494         end,
495
496         on_timer = function(pos, elapsed)
497                 experimental.print_to_everything("on_timer(): elapsed="..dump(elapsed))
498                 return true
499         end,
500 })
501
502 minetest.register_craftitem("experimental:tester_tool_1", {
503         description = "Tester Tool 1",
504         inventory_image = "experimental_tester_tool_1.png",
505     on_use = function(itemstack, user, pointed_thing)
506                 --print(dump(pointed_thing))
507                 if pointed_thing.type == "node" then
508                         local node = minetest.get_node(pointed_thing.under)
509                         if node.name == "experimental:tester_node_1" or node.name == "default:chest" then
510                                 local p = pointed_thing.under
511                                 minetest.log("action", "Tester tool used at "..minetest.pos_to_string(p))
512                                 if node.name == "experimental:tester_node_1" then
513                                         minetest.dig_node(p)
514                                 else
515                                         minetest.get_meta(p):mark_as_private({"infotext", "formspec"})
516                                         minetest.chat_send_player(user:get_player_name(), "Verify that chest is unusable now.")
517                                 end
518                         else
519                                 local p = pointed_thing.above
520                                 minetest.log("action", "Tester tool used at "..minetest.pos_to_string(p))
521                                 minetest.place_node(p, {name="experimental:tester_node_1"})
522                         end
523                 end
524         end,
525 })
526
527 minetest.register_craft({
528         output = 'experimental:tester_tool_1',
529         recipe = {
530                 {'group:crumbly'},
531                 {'group:crumbly'},
532         }
533 })
534
535 minetest.register_craftitem("experimental:tester_tool_2", {
536         description = "Tester Tool 2",
537         inventory_image = "experimental_tester_tool_1.png^[invert:g",
538         on_use = function(itemstack, user, pointed_thing)
539                 local pos = minetest.get_pointed_thing_position(pointed_thing, true)
540                 if pos == nil then return end
541                 pos = vector.add(pos, {x=0, y=0.5, z=0})
542                 local tex, anim
543                 if math.random(0, 1) == 0 then
544                         tex = "default_lava_source_animated.png"
545                         anim = {type="sheet_2d", frames_w=3, frames_h=2, frame_length=0.5}
546                 else
547                         tex = "default_lava_flowing_animated.png"
548                         anim = {type="vertical_frames", aspect_w=16, aspect_h=16, length=3.3}
549                 end
550
551                 minetest.add_particle({
552                         pos = pos,
553                         velocity = {x=0, y=0, z=0},
554                         acceleration = {x=0, y=0.04, z=0},
555                         expirationtime = 6,
556                         collisiondetection = true,
557                         texture = tex,
558                         animation = anim,
559                         size = 4,
560                         glow = math.random(0, 5),
561                 })
562         end,
563 })
564
565 minetest.register_craft({
566         output = 'experimental:tester_tool_2',
567         recipe = {
568                 {'group:crumbly','group:crumbly'},
569         }
570 })
571
572 --[[minetest.register_on_joinplayer(function(player)
573         minetest.after(3, function()
574                 player:set_inventory_formspec("size[8,7.5]"..
575                         "image[1,0.6;1,2;player.png]"..
576                         "list[current_player;main;0,3.5;8,4;]"..
577                         "list[current_player;craft;3,0;3,3;]"..
578                         "list[current_player;craftpreview;7,1;1,1;]")
579         end)
580 end)]]
581
582 -- Create a detached inventory
583 local inv = minetest.create_detached_inventory("test_inventory", {
584         allow_move = function(inv, from_list, from_index, to_list, to_index, count, player)
585                 experimental.print_to_everything("allow move asked")
586                 return count -- Allow all
587         end,
588     allow_put = function(inv, listname, index, stack, player)
589                 experimental.print_to_everything("allow put asked")
590                 return 1 -- Allow only 1
591         end,
592     allow_take = function(inv, listname, index, stack, player)
593                 experimental.print_to_everything("allow take asked")
594                 return 4 -- Allow 4 at max
595         end,
596         on_move = function(inv, from_list, from_index, to_list, to_index, count, player)
597                 experimental.print_to_everything(player:get_player_name().." moved items")
598         end,
599     on_put = function(inv, listname, index, stack, player)
600                 experimental.print_to_everything(player:get_player_name().." put items")
601         end,
602     on_take = function(inv, listname, index, stack, player)
603                 experimental.print_to_everything(player:get_player_name().." took items")
604         end,
605 })
606 inv:set_size("main", 4*6)
607 inv:add_item("main", "experimental:tester_tool_1")
608 inv:add_item("main", "experimental:tnt 5")
609
610 minetest.register_chatcommand("test1", {
611         params = "",
612         description = "Test 1: Modify player's inventory view",
613         func = function(name, param)
614                 local player = minetest.get_player_by_name(name)
615                 if not player then
616                         return
617                 end
618                 player:set_inventory_formspec(
619                                 "size[13,7.5]"..
620                                 "image[6,0.6;1,2;player.png]"..
621                                 "list[current_player;main;5,3.5;8,4;]"..
622                                 "list[current_player;craft;8,0;3,3;]"..
623                                 "list[current_player;craftpreview;12,1;1,1;]"..
624                                 "list[detached:test_inventory;main;0,0;4,6;0]"..
625                                 "button[0.5,7;2,1;button1;Button 1]"..
626                                 "button_exit[2.5,7;2,1;button2;Exit Button]"
627                 )
628                 minetest.chat_send_player(name, "Done.");
629         end,
630 })
631
632 minetest.register_on_player_receive_fields(function(player, formname, fields)
633         experimental.print_to_everything("Inventory fields 1: player="..player:get_player_name()..", fields="..dump(fields))
634 end)
635 minetest.register_on_player_receive_fields(function(player, formname, fields)
636         experimental.print_to_everything("Inventory fields 2: player="..player:get_player_name()..", fields="..dump(fields))
637         return true -- Disable the first callback
638 end)
639 minetest.register_on_player_receive_fields(function(player, formname, fields)
640         experimental.print_to_everything("Inventory fields 3: player="..player:get_player_name()..", fields="..dump(fields))
641 end)
642
643 minetest.log("experimental modname="..dump(minetest.get_current_modname()))
644 minetest.log("experimental modpath="..dump(minetest.get_modpath("experimental")))
645 minetest.log("experimental worldpath="..dump(minetest.get_worldpath()))
646
647 -- END