mods/tnt/init.lua

   1 --here is where tnt is defined
   2 local function extreme_tnt(pos,range)
   3         local pos = vector.floor(vector.add(pos,0.5))
   4
   5         --kill
   6         --[[
   7         for _,object in ipairs(minetest.get_objects_inside_radius(pos, range)) do
   8                 if  object:is_player() then
   9                         object:set_hp(-50)
  10                 elseif object:get_luaentity() and object:get_luaentity().name == "__builtin:item" then
  11                         object:remove()
  12                 end
  13         end
  14         ]]--
  15
  16         local delay = 0
  17         for x=-1,0 do
  18         for y=-1,0 do
  19         for z=-1,0 do
  20                 minetest.after(delay, function(pos,range,x,y,z)
  21                         local min = vector.add(pos,vector.multiply(vector.new(x,y,z),range))
  22                         local max = vector.add(pos,vector.multiply(vector.new(x+1,y+1,z+1),range))
  23                         local vm = minetest.get_voxel_manip()
  24                         local emin, emax = vm:read_from_map(min,max)
  25                         local area = VoxelArea:new{MinEdge=emin, MaxEdge=emax}
  26                         local data = vm:get_data()
  27                         local air = minetest.get_content_id("air")
  28
  29                         for x=min.x, max.x do
  30                         for y=min.y, max.y do
  31                         for z=min.z, max.z do
  32                                 --if vector.distance(pos, vector.new(x,y,z)) <= range then
  33                                 --minetest.remove_node(vector.new(x,y,z))
  34                                 data[area:index(x,y,z)] = air
  35                                 --end
  36                         end
  37                         end
  38                         end
  39                         vm:set_data(data)
  40                         vm:write_to_map()
  41                 end,pos,range,x,y,z)
  42                 delay = delay + 1
  43         end
  44         end
  45         end
  46
  47         minetest.sound_play("tnt_explode", {pos = pos, gain = 1.0, max_hear_distance = range*range*range})
  48 end
  49 --[[
  50 minetest.register_globalstep(function(dtime)
  51         --collection
  52         for _,player in ipairs(minetest.get_connected_players()) do
  53                 local pos = player:get_pos()
  54                 pos.y = pos.y + player:get_properties().eye_height
  55                 local look_dir = player:get_look_dir()
  56                 look_dir = vector.multiply(look_dir,7)
  57                 local pos2 = vector.add(pos,look_dir)
  58
  59                 local ray = minetest.raycast(pos, pos2, false, false)
  60                 if ray then
  61                         print("------------------------------------------------------------")
  62                         for pointed_thing in ray do
  63                                 print(minetest.get_node(pointed_thing.under).name)
  64                                 --if pointed_thing then
  65                                 --      return({under=pointed_thing.under,above=pointed_thing.above})
  66                                 --end
  67                         end
  68                 end
  69         end
  70 end)
  71 ]]--
  72 --use raycasting to create actual explosion
  73 local old_node_table
  74 local p_pos
  75 local n_pos
  76 local n
  77 local node2
  78 local ray
  79 local stop
  80 local found
  81 local positional_data
  82 local pos2 = vector.new(0,0,0)
  83 function tnt(pos,range)
  84         local pos = vector.floor(vector.add(pos,0.5))
  85         local min = vector.add(pos,range)
  86         local max = vector.subtract(pos,range)
  87         local vm = minetest.get_voxel_manip()
  88         local emin, emax = vm:read_from_map(min,max)
  89         local area = VoxelArea:new{MinEdge=emin, MaxEdge=emax}
  90         local data = vm:get_data()
  91
  92         local air = minetest.get_content_id("air")
  93         local content_id = minetest.get_name_from_content_id
  94
  95         local insert = table.insert
  96
  97         vm:get_light_data()
  98
  99         --throw players and items
 100         for _,object in ipairs(minetest.get_objects_inside_radius(pos, range)) do
 101                 if object:is_player() or (object:get_luaentity() and object:get_luaentity().name == "__builtin:item") then
 102                         local ppos = object:getpos()
 103                         if object:is_player() then
 104                                 ppos.y = ppos.y + 1
 105                         end
 106                         ray = minetest.raycast(pos, ppos, false, false)
 107                         local clear = true
 108                         for pointed_thing in ray do
 109                                 n_pos = area:index(pointed_thing.under.x,pointed_thing.under.y,pointed_thing.under.z)
 110                                 node2 = content_id(data[n_pos])
 111                                 if node2 == "nether:obsidian" or node2 == "nether:bedrock" then
 112                                         clear = false
 113                                 end
 114                         end
 115
 116                         if clear == true then
 117                                 local power = (range - vector.distance(pos,ppos))*2
 118                                 local dir = vector.subtract(ppos,pos)
 119                                 local force = vector.multiply(dir,power)
 120                                 if object:is_player() then
 121                                         --damage the player
 122                                         local hp = object:get_hp()
 123                                         if hp then
 124                                                 object:set_hp(hp - math.floor(power*2))
 125                                         end
 126                                         object:add_player_velocity(force)
 127                                 elseif object:get_luaentity() and object:get_luaentity().name == "__builtin:item" then
 128                                         object:setvelocity(force)
 129                                 end
 130                         end
 131                 end
 132         end
 133
 134         --raycast explosion
 135         for x=-range, range do
 136         for y=-range, range do
 137         for z=-range, range do
 138                 local distance = vector.distance(pos2, vector.new(x,y,z))
 139                 if distance <= range and distance >= range-1 then
 140
 141                         p_pos = area:index(pos.x+x,pos.y+y,pos.z+z)
 142                         n = content_id(data[p_pos])
 143
 144                         ray = minetest.raycast(pos, vector.new(pos.x+x,pos.y+y,pos.z+z), false, false)
 145
 146                         for pointed_thing in ray do
 147                                 n_pos = area:index(pointed_thing.under.x,pointed_thing.under.y,pointed_thing.under.z)
 148                                 node2 = content_id(data[n_pos])
 149
 150                                 if node2 == "nether:obsidian" or node2 == "nether:bedrock" then
 151                                         break
 152                                 elseif node2 == "tnt:tnt" then
 153                                         data[n_pos] = air
 154                                         local obj = minetest.add_entity(vector.new(pointed_thing.under.x,pointed_thing.under.y,pointed_thing.under.z), "tnt:tnt")
 155                                         if obj then
 156                                                 obj:get_luaentity().timer = math.random()
 157                                         end
 158                                 else
 159                                         data[n_pos] = air
 160                                         minetest.after(0, function(pointed_thing)
 161                                                 minetest.check_for_falling(vector.new(pointed_thing.under.x,pointed_thing.under.y+1,pointed_thing.under.z))
 162                                         end,pointed_thing)
 163                                         if math.random()>0.99 then
 164                                                 local item = minetest.get_node_drops(n, "main:diamondpick")[1]
 165                                                 local ppos = vector.new(pointed_thing.under.x,pointed_thing.under.y,pointed_thing.under.z)
 166                                                 local obj = minetest.add_item(ppos, item)
 167                                                 if obj then
 168                                                         local power = (range - vector.distance(pos,ppos))*2
 169                                                         local dir = vector.subtract(ppos,pos)
 170                                                         local force = vector.multiply(dir,power)
 171                                                         obj:setvelocity(force)
 172                                                 end
 173
 174                                         end
 175                                 end
 176                         end
 177                 end
 178         end
 179         end
 180         end
 181         vm:set_data(data)
 182         vm:calc_lighting()
 183         vm:update_liquids()
 184         vm:write_to_map()
 185
 186
 187
 188         minetest.sound_play("tnt_explode", {pos = pos, gain = 1.0, max_hear_distance = range*range}) --hear twice as far away
 189
 190         --stop client from lagging
 191         local particle = range
 192         if particle > 15 then
 193                 particle = 15
 194         end
 195
 196
 197         minetest.add_particlespawner({
 198                 amount = particle*particle*particle,
 199                 time = 0.001,
 200                 minpos = pos,
 201                 maxpos = pos,
 202                 minvel = vector.new(-range,-range,-range),
 203                 maxvel = vector.new(range,range,range),
 204                 minacc = {x=0, y=0, z=0},
 205                 maxacc = {x=0, y=0, z=0},
 206                 minexptime = 1.1,
 207                 maxexptime = 1.5,
 208                 minsize = 1,
 209                 maxsize = 2,
 210                 collisiondetection = true,
 211                 collision_removal = true,
 212                 vertical = false,
 213                 texture = "smoke.png",
 214         })
 215
 216 end
 217
 218
 219 minetest.register_entity("tnt:tnt", {
 220         initial_properties = {
 221                 hp_max = 1,
 222                 physical = true,
 223                 collide_with_objects = false,
 224                 collisionbox = {-0.5, -0.5, -0.5, 0.5, 0.5, 0.5},
 225                 visual = "cube",
 226                 visual_size = {x = 1, y = 1},
 227                 textures = {"tnt_top.png", "tnt_bottom.png",
 228                         "tnt_side.png", "tnt_side.png",
 229                         "tnt_side.png", "tnt_side.png"},
 230                 is_visible = true,
 231                 pointable = true,
 232         },
 233
 234         timer = 5,
 235         range = 7,
 236
 237         get_staticdata = function(self)
 238                 return minetest.serialize({
 239                         range = self.range,
 240                         timer = self.timer,
 241                 })
 242         end,
 243
 244         on_activate = function(self, staticdata, dtime_s)
 245                 self.object:set_armor_groups({immortal = 1})
 246                 self.object:set_velocity({x = math.random(-5,5), y = 5, z = math.random(-5,5)})
 247                 self.object:set_acceleration({x = 0, y = -9.81, z = 0})
 248                 if string.sub(staticdata, 1, string.len("return")) == "return" then
 249                         local data = minetest.deserialize(staticdata)
 250                         if data and type(data) == "table" then
 251                                 self.range = data.range
 252                                 self.timer = data.timer
 253                         end
 254                 end
 255
 256                 minetest.add_particlespawner({
 257                         amount = 50,
 258                         time = 0,
 259                         minpos = pos,
 260                         maxpos = pos,
 261                         minvel = vector.new(-0.5,1,-0.5),
 262                         maxvel = vector.new(0.5,5,0.5),
 263                         minacc = {x=0, y=0, z=0},
 264                         maxacc = {x=0, y=0, z=0},
 265                         minexptime = 1.1,
 266                         maxexptime = 1.5,
 267                         minsize = 1,
 268                         maxsize = 2,
 269                         collisiondetection = false,
 270                         vertical = false,
 271                         texture = "smoke.png",
 272                         attached = self.object,
 273                 })
 274                 minetest.sound_play("tnt_ignite", {object = self.object, gain = 1.0, max_hear_distance = self.range*self.range*self.range})
 275         end,
 276
 277         on_punch = function(self, puncher, time_from_last_punch, tool_capabilities, dir)
 278                 local obj = minetest.add_item(self.object:getpos(), "tnt:tnt")
 279                 self.object:remove()
 280         end,
 281
 282         sound_played = false,
 283         on_step = function(self, dtime)
 284                 self.timer = self.timer - dtime
 285                 local vel = self.object:getvelocity()
 286                 vel = vector.multiply(vel,-0.05)
 287                 self.object:add_velocity(vector.new(vel.x,0,vel.z))
 288
 289                 if self.timer <= 0 then
 290                         local pos = self.object:getpos()
 291                         if not self.range then
 292                                 self.range = 7
 293                         end
 294                         if self.extreme == true then
 295                                 extreme_tnt(pos,self.range)
 296                         else
 297                                 tnt(pos,self.range)
 298                         end
 299                         self.object:remove()
 300                 end
 301         end,
 302 })
 303
 304
 305 minetest.register_node("tnt:tnt", {
 306     description = "Cobblestone",
 307     tiles = {"tnt_top.png", "tnt_bottom.png",
 308                         "tnt_side.png", "tnt_side.png",
 309                         "tnt_side.png", "tnt_side.png"},
 310     groups = {stone = 2, hard = 1, pickaxe = 2, hand = 4, redstone_activation = 1},
 311     sounds = main.stoneSound(),
 312     redstone_activation = function(pos)
 313                 local obj = minetest.add_entity(pos,"tnt:tnt")
 314                 local range = 7
 315                 obj:get_luaentity().range = range
 316                 minetest.remove_node(pos)
 317     end,
 318     on_punch = function(pos, node, puncher, pointed_thing)
 319                 local obj = minetest.add_entity(pos,"tnt:tnt")
 320                 local range = 7
 321                 obj:get_luaentity().range = range
 322                 minetest.remove_node(pos)
 323     end,
 324 })
 325
 326 minetest.register_node("tnt:uranium_tnt", {
 327     description = "Cobblestone",
 328     tiles = {"tnt_top.png^[colorize:green:100", "tnt_bottom.png^[colorize:green:100",
 329                         "tnt_side.png^[colorize:green:100", "tnt_side.png^[colorize:green:100",
 330                         "tnt_side.png^[colorize:green:100", "tnt_side.png^[colorize:green:100"},
 331     groups = {stone = 2, hard = 1, pickaxe = 2, hand = 4},
 332     sounds = main.stoneSound(),
 333     on_punch = function(pos, node, puncher, pointed_thing)
 334                 local obj = minetest.add_entity(pos,"tnt:tnt")
 335                 local range = 50
 336                 obj:get_luaentity().range = range
 337                 obj:get_luaentity().timer = 7
 338                 obj:get_luaentity().extreme = true
 339
 340                 minetest.remove_node(pos)
 341     end,
 342 })
 343
 344 minetest.register_node("tnt:uh_oh", {
 345     description = "Cobblestone",
 346     tiles = {"tnt_top.png", "tnt_bottom.png",
 347                         "tnt_side.png", "tnt_side.png",
 348                         "tnt_side.png", "tnt_side.png"},
 349     groups = {stone = 2, hard = 1, pickaxe = 2, hand = 4},
 350     sounds = main.stoneSound(),
 351     on_punch = function(pos, node, puncher, pointed_thing)
 352                 local range = 10
 353                 for x=-range, range do
 354                 for y=-range, range do
 355                 for z=-range, range do
 356                         minetest.add_node(vector.new(pos.x+x,pos.y+y,pos.z+z),{name="tnt:tnt"})
 357                 end
 358                 end
 359                 end
 360     end,
 361 })
 362
 363
 364
 365 minetest.register_craft({
 366         output = "tnt:tnt",
 367         recipe = {
 368                 {"main:wood", "main:wood", "main:wood"},
 369                 {"main:wood", "main:coal", "main:wood"},
 370                 {"main:wood", "main:wood", "main:wood"},
 371         },
 372 })