mods/tnt/init.lua

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