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         tile_images = {"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         tile_images = {"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                 nodeupdate(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                 if not minetest.get_player_privs(name)["give"] then
 258                         minetest.chat_send_player(name, "you don't have permission to spawn (give)")
 259                         return true -- Handled chat message
 260                 end
 261                 if not minetest.get_player_privs(name)["interact"] then
 262                         minetest.chat_send_player(name, "you don't have permission to interact")
 263                         return true -- Handled chat message
 264                 end
 265                 local player = minetest.get_player_by_name(name)
 266                 if player == nil then
 267                         print("Unable to spawn entity, player is nil")
 268                         return true -- Handled chat message
 269                 end
 270                 local entityname = "experimental:dummyball"
 271                 local p = player:getpos()
 272                 p.y = p.y + 1
 273                 minetest.add_entity(p, entityname)
 274                 minetest.chat_send_player(name, '"'..entityname
 275                                 ..'" spawned.');
 276                 return true -- Handled chat message
 277         end
 278 end)
 279
 280 --
 281 -- A test entity for testing animated and yaw-modulated sprites
 282 --
 283
 284 minetest.register_entity("experimental:testentity", {
 285         -- Static definition
 286         physical = true, -- Collides with things
 287         -- weight = 5,
 288         collisionbox = {-0.7,-1.35,-0.7, 0.7,1.0,0.7},
 289         --collisionbox = {-0.5,-0.5,-0.5, 0.5,0.5,0.5},
 290         visual = "sprite",
 291         visual_size = {x=2, y=3},
 292         textures = {"dungeon_master.png^[makealpha:128,0,0^[makealpha:128,128,0"},
 293         spritediv = {x=6, y=5},
 294         initial_sprite_basepos = {x=0, y=0},
 295
 296         on_activate = function(self, staticdata)
 297                 print("testentity.on_activate")
 298                 self.object:setsprite({x=0,y=0}, 1, 0, true)
 299                 --self.object:setsprite({x=0,y=0}, 4, 0.3, true)
 300
 301                 -- Set gravity
 302                 self.object:setacceleration({x=0, y=-10, z=0})
 303                 -- Jump a bit upwards
 304                 self.object:setvelocity({x=0, y=10, z=0})
 305         end,
 306
 307         on_punch = function(self, hitter)
 308                 self.object:remove()
 309                 hitter:add_to_inventory('craft testobject1 1')
 310         end,
 311 })
 312
 313 --
 314 -- More random stuff
 315 --
 316
 317 minetest.register_on_respawnplayer(function(player)
 318         print("on_respawnplayer")
 319         -- player:setpos({x=0, y=30, z=0})
 320         -- return true
 321 end)
 322
 323 minetest.register_on_generated(function(minp, maxp)
 324         --print("on_generated: minp="..dump(minp).." maxp="..dump(maxp))
 325         --cp = {x=(minp.x+maxp.x)/2, y=(minp.y+maxp.y)/2, z=(minp.z+maxp.z)/2}
 326         --minetest.add_node(cp, {name="sand"})
 327 end)
 328
 329 -- Example setting get
 330 --print("setting max_users = " .. dump(minetest.setting_get("max_users")))
 331 --print("setting asdf = " .. dump(minetest.setting_get("asdf")))
 332
 333 minetest.register_on_chat_message(function(name, message)
 334         --[[print("on_chat_message: name="..dump(name).." message="..dump(message))
 335         local cmd = "/testcommand"
 336         if message:sub(0, #cmd) == cmd then
 337                 print(cmd.." invoked")
 338                 return true
 339         end
 340         local cmd = "/help"
 341         if message:sub(0, #cmd) == cmd then
 342                 print("script-overridden help command")
 343                 minetest.chat_send_all("script-overridden help command")
 344                 return true
 345         end]]
 346 end)
 347
 348 -- Grow papyrus on TNT every 10 seconds
 349 --[[minetest.register_abm({
 350         nodenames = {"TNT"},
 351         interval = 10.0,
 352         chance = 1,
 353         action = function(pos, node, active_object_count, active_object_count_wider)
 354                 print("TNT ABM action")
 355                 pos.y = pos.y + 1
 356                 minetest.add_node(pos, {name="papyrus"})
 357         end,
 358 })]]
 359
 360 -- Replace texts of alls signs with "foo" every 10 seconds
 361 --[[minetest.register_abm({
 362         nodenames = {"sign_wall"},
 363         interval = 10.0,
 364         chance = 1,
 365         action = function(pos, node, active_object_count, active_object_count_wider)
 366                 print("ABM: Sign text changed")
 367                 local meta = minetest.get_meta(pos)
 368                 meta:set_text("foo")
 369         end,
 370 })]]
 371
 372 --[[local ncpos = nil
 373 local ncq = 1
 374 local ncstuff = {
 375     {2, 1, 0, 3}, {3, 0, 1, 2}, {4, -1, 0, 1}, {5, -1, 0, 1}, {6, 0, -1, 0},
 376     {7, 0, -1, 0}, {8, 1, 0, 3}, {9, 1, 0, 3}, {10, 1, 0, 3}, {11, 0, 1, 2},
 377     {12, 0, 1, 2}, {13, 0, 1, 2}, {14, -1, 0, 1}, {15, -1, 0, 1}, {16, -1, 0, 1},
 378     {17, -1, 0, 1}, {18, 0, -1, 0}, {19, 0, -1, 0}, {20, 0, -1, 0}, {21, 0, -1, 0},
 379     {22, 1, 0, 3}, {23, 1, 0, 3}, {24, 1, 0, 3}, {25, 1, 0, 3}, {10, 0, 1, 2}
 380 }
 381 local ncold = {}
 382 local nctime = nil
 383
 384 minetest.register_abm({
 385     nodenames = {"dirt_with_grass"},
 386     interval = 100000.0,
 387     chance = 1,
 388     action = function(pos, node, active_object_count, active_object_count_wider)
 389         if ncpos ~= nil then
 390             return
 391         end
 392
 393         if pos.x % 16 ~= 8 or pos.z % 16 ~= 8 then
 394             return
 395         end
 396
 397         pos.y = pos.y + 1
 398         n = minetest.get_node(pos)
 399         print(dump(n))
 400         if n.name ~= "air" then
 401             return
 402         end
 403
 404         pos.y = pos.y + 2
 405         ncpos = pos
 406         nctime = os.clock()
 407         minetest.add_node(ncpos, {name="nyancat"})
 408     end
 409 })
 410
 411 minetest.register_abm({
 412     nodenames = {"nyancat"},
 413     interval = 1.0,
 414     chance = 1,
 415     action = function(pos, node, active_object_count, active_object_count_wider)
 416         if ncpos == nil then
 417             return
 418         end
 419         if pos.x == ncpos.x and pos.y == ncpos.y and pos.z == ncpos.z then
 420             clock = os.clock()
 421             if clock - nctime < 0.1 then
 422                 return
 423             end
 424             nctime = clock
 425
 426             s0 = ncstuff[ncq]
 427             ncq = s0[1]
 428             s1 = ncstuff[ncq]
 429             p0 = pos
 430             p1 = {x = p0.x + s0[2], y = p0.y, z = p0.z + s0[3]}
 431             p2 = {x = p1.x + s1[2], y = p1.y, z = p1.z + s1[3]}
 432             table.insert(ncold, 1, p0)
 433             while #ncold >= 10 do
 434                 minetest.add_node(ncold[#ncold], {name="air"})
 435                 table.remove(ncold, #ncold)
 436             end
 437             minetest.add_node(p0, {name="nyancat_rainbow"})
 438             minetest.add_node(p1, {name="nyancat", param1=s0[4]})
 439             minetest.add_node(p2, {name="air"})
 440             ncpos = p1
 441         end
 442     end,
 443 })--]]
 444
 445 minetest.register_node("experimental:tester_node_1", {
 446         description = "Tester Node 1 (construct/destruct/timer)",
 447         tile_images = {"wieldhand.png"},
 448         groups = {oddly_breakable_by_hand=2},
 449         sounds = default.node_sound_wood_defaults(),
 450         -- This was known to cause a bug in minetest.item_place_node() when used
 451         -- via minetest.place_node(), causing a placer with no position
 452         paramtype2 = "facedir",
 453
 454         on_construct = function(pos)
 455                 experimental.print_to_everything("experimental:tester_node_1:on_construct("..minetest.pos_to_string(pos)..")")
 456                 local meta = minetest.get_meta(pos)
 457                 meta:set_string("mine", "test")
 458                 local timer = minetest.get_node_timer(pos)
 459                 timer:start(4, 3)
 460         end,
 461
 462     after_place_node = function(pos, placer)
 463                 experimental.print_to_everything("experimental:tester_node_1:after_place_node("..minetest.pos_to_string(pos)..")")
 464                 local meta = minetest.get_meta(pos)
 465                 if meta:get_string("mine") == "test" then
 466                         experimental.print_to_everything("correct metadata found")
 467                 else
 468                         experimental.print_to_everything("incorrect metadata found")
 469                 end
 470         end,
 471
 472         on_destruct = function(pos)
 473                 experimental.print_to_everything("experimental:tester_node_1:on_destruct("..minetest.pos_to_string(pos)..")")
 474         end,
 475
 476         after_destruct = function(pos)
 477                 experimental.print_to_everything("experimental:tester_node_1:after_destruct("..minetest.pos_to_string(pos)..")")
 478         end,
 479
 480         after_dig_node = function(pos, oldnode, oldmetadata, digger)
 481                 experimental.print_to_everything("experimental:tester_node_1:after_dig_node("..minetest.pos_to_string(pos)..")")
 482         end,
 483
 484         on_timer = function(pos, elapsed)
 485                 experimental.print_to_everything("on_timer(): elapsed="..dump(elapsed))
 486                 return true
 487         end,
 488 })
 489
 490 minetest.register_craftitem("experimental:tester_tool_1", {
 491         description = "Tester Tool 1",
 492         inventory_image = "experimental_tester_tool_1.png",
 493     on_use = function(itemstack, user, pointed_thing)
 494                 --print(dump(pointed_thing))
 495                 if pointed_thing.type == "node" then
 496                         if minetest.get_node(pointed_thing.under).name == "experimental:tester_node_1" then
 497                                 local p = pointed_thing.under
 498                                 minetest.log("action", "Tester tool used at "..minetest.pos_to_string(p))
 499                                 minetest.dig_node(p)
 500                         else
 501                                 local p = pointed_thing.above
 502                                 minetest.log("action", "Tester tool used at "..minetest.pos_to_string(p))
 503                                 minetest.place_node(p, {name="experimental:tester_node_1"})
 504                         end
 505                 end
 506         end,
 507 })
 508
 509 minetest.register_craft({
 510         output = 'experimental:tester_tool_1',
 511         recipe = {
 512                 {'group:crumbly'},
 513                 {'group:crumbly'},
 514         }
 515 })
 516
 517 --[[minetest.register_on_joinplayer(function(player)
 518         minetest.after(3, function()
 519                 player:set_inventory_formspec("size[8,7.5]"..
 520                         "image[1,0.6;1,2;player.png]"..
 521                         "list[current_player;main;0,3.5;8,4;]"..
 522                         "list[current_player;craft;3,0;3,3;]"..
 523                         "list[current_player;craftpreview;7,1;1,1;]")
 524         end)
 525 end)]]
 526
 527 -- Create a detached inventory
 528 local inv = minetest.create_detached_inventory("test_inventory", {
 529         allow_move = function(inv, from_list, from_index, to_list, to_index, count, player)
 530                 experimental.print_to_everything("allow move asked")
 531                 return count -- Allow all
 532         end,
 533     allow_put = function(inv, listname, index, stack, player)
 534                 experimental.print_to_everything("allow put asked")
 535                 return 1 -- Allow only 1
 536         end,
 537     allow_take = function(inv, listname, index, stack, player)
 538                 experimental.print_to_everything("allow take asked")
 539                 return 4 -- Allow 4 at max
 540         end,
 541         on_move = function(inv, from_list, from_index, to_list, to_index, count, player)
 542                 experimental.print_to_everything(player:get_player_name().." moved items")
 543         end,
 544     on_put = function(inv, listname, index, stack, player)
 545                 experimental.print_to_everything(player:get_player_name().." put items")
 546         end,
 547     on_take = function(inv, listname, index, stack, player)
 548                 experimental.print_to_everything(player:get_player_name().." took items")
 549         end,
 550 })
 551 inv:set_size("main", 4*6)
 552 inv:add_item("main", "experimental:tester_tool_1")
 553 inv:add_item("main", "experimental:tnt 5")
 554
 555 minetest.register_chatcommand("test1", {
 556         params = "",
 557         description = "Test 1: Modify player's inventory view",
 558         func = function(name, param)
 559                 local player = minetest.get_player_by_name(name)
 560                 if not player then
 561                         return
 562                 end
 563                 player:set_inventory_formspec(
 564                                 "size[13,7.5]"..
 565                                 "image[6,0.6;1,2;player.png]"..
 566                                 "list[current_player;main;5,3.5;8,4;]"..
 567                                 "list[current_player;craft;8,0;3,3;]"..
 568                                 "list[current_player;craftpreview;12,1;1,1;]"..
 569                                 "list[detached:test_inventory;main;0,0;4,6;0]"..
 570                                 "button[0.5,7;2,1;button1;Button 1]"..
 571                                 "button_exit[2.5,7;2,1;button2;Exit Button]"
 572                 )
 573                 minetest.chat_send_player(name, "Done.");
 574         end,
 575 })
 576
 577 minetest.register_on_player_receive_fields(function(player, formname, fields)
 578         experimental.print_to_everything("Inventory fields 1: player="..player:get_player_name()..", fields="..dump(fields))
 579 end)
 580 minetest.register_on_player_receive_fields(function(player, formname, fields)
 581         experimental.print_to_everything("Inventory fields 2: player="..player:get_player_name()..", fields="..dump(fields))
 582         return true -- Disable the first callback
 583 end)
 584 minetest.register_on_player_receive_fields(function(player, formname, fields)
 585         experimental.print_to_everything("Inventory fields 3: player="..player:get_player_name()..", fields="..dump(fields))
 586 end)
 587
 588 minetest.log("experimental modname="..dump(minetest.get_current_modname()))
 589 minetest.log("experimental modpath="..dump(minetest.get_modpath("experimental")))
 590 minetest.log("experimental worldpath="..dump(minetest.get_worldpath()))
 591
 592 -- END