Convert source to tabs.

master
David G 2018-12-31 13:05:06 -07:00
parent 3c6084b82f
commit 022d129cce
1 changed files with 621 additions and 622 deletions

View File

@ -79,23 +79,23 @@ minetest.register_globalstep(function(dtime)
local wielded=false
local activeinv=nil
local stackidx=0
--first check to see if the user has a tunnelmaker, because if they don't
--there is no reason to waste time calculating bookmarks or spawnpoints.
-- first check to see if the user has a tunnelmaker, because if they don't
-- there is no reason to waste time calculating bookmarks or spawnpoints.
local wielded_item = player:get_wielded_item():get_name()
if string.sub(wielded_item, 0, 12) == "tunnelmaker:" then
--if the player is wielding a tunnelmaker, change the wielded image
-- if the player is wielding a tunnelmaker, change the wielded image
wielded=true
stackidx=player:get_wield_index()
gotatunnelmaker=true
else
--check to see if tunnelmaker is in active inventory
-- check to see if tunnelmaker is in active inventory
if player:get_inventory() then
--is there a way to only check the activewidth items instead of entire list?
--problem being that arrays are not sorted in lua
-- is there a way to only check the activewidth items instead of entire list?
-- problem being that arrays are not sorted in lua
for i,stack in ipairs(player:get_inventory():get_list("main")) do
if i<=activewidth and string.sub(stack:get_name(), 0, 12) == "tunnelmaker:" then
activeinv=stack --store the stack so we can update it later with new image
stackidx=i --store the index so we can add image at correct location
activeinv=stack -- store the stack so we can update it later with new image
stackidx=i -- store the index so we can add image at correct location
gotatunnelmaker=true
break
end
@ -103,13 +103,12 @@ minetest.register_globalstep(function(dtime)
end
end
--don't mess with the rest of this if they don't have a tunnelmaker
-- don't mess with the rest of this if they don't have a tunnelmaker
if gotatunnelmaker then
local pname = player:get_player_name()
local dir = player:get_look_horizontal()
local angle_relative = math.deg(dir)
local rawdir = math.floor((angle_relative/22.5) + 0.5)%16
local distance2 = function(x, y, z)
return x*x + y*y + z*z
end
@ -128,7 +127,7 @@ minetest.register_globalstep(function(dtime)
if tunnelmaker[pname].updown ~= 0 and rawdir % 2 == 0 then -- only 0,45,90 are updown capable (U:16-23,D:24-31)
tunnelmaker_image = 16 + (tunnelmaker[pname].updown - 1) * 8 + (rawdir / 2)
end
--update tunnelmaker image to point at target
-- update tunnelmaker image to point at target
if wielded then
player:set_wielded_item("tunnelmaker:"..tunnelmaker_image)
elseif activeinv then
@ -351,7 +350,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
if not tunnel_arch then a = tunnel_height end
-- Dig horizontal
if cdir == 0 then -- pointed north
run_list( {{aw,-3, 0, a, 0},{aw,-3, 0, a, 1},{aw,-3, 0, a, 2},
run_list({{aw,-3, 0, a, 0},{aw,-3, 0, a, 1},{aw,-3, 0, a, 2},
{aw, 3, 0, a, 0},{aw, 3, 0, a, 1},{aw, 3, 0, a, 2},
{ec,-3, 0, a, 3},{ec,-2, 0, a+1, 3},{ec,-1, 0, c+1, 3},{ec, 0, 0, c+1, 3},{ec, 1, 0, c+1, 3},{ec, 2, 0, a+1, 3},{ec, 3, 0, a, 3},
{ds,-2, 0, a, 0},{dt,-1, 0, c, 0},{dt, 0, 0, c, 0},{dt, 1, 0, c, 0},{ds, 2, 0, a, 0},
@ -360,7 +359,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_ref, 0, 0, 0, 2}}, user, pointed_thing)
elseif cdir == 1 then -- pointed north-northwest
run_list( {{aw,-3, 0, a, 0},{aw,-4, 0, a, 1},{aw,-4, 0, a, 2},
run_list({{aw,-3, 0, a, 0},{aw,-4, 0, a, 1},{aw,-4, 0, a, 2},
{aw, 3, 0, a, 1},{aw, 2, 0, a, 2},{aw, 2, 0, a, 3},
{ec,-4, 0, a, 3},{ec,-3, 0, a+1, 3},{ec,-2, 0, c+1, 3},{ec,-1, 0, c+1, 3},{ec, 0, 0, c+1, 3},{ec, 1, 0, a+1, 3},
{ds,-2, 0, a, 0},{dt,-1, 0, c, 0},{dt, 0, 0, c, 0},{dt, 1, 0, c, 0},
@ -369,7 +368,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_ref,-1, 0, 0, 2}}, user, pointed_thing)
elseif cdir == 2 then -- pointed northwest
run_list( {{aw,-2, 0, a,-2},{aw,-3, 0, a,-1},
run_list({{aw,-2, 0, a,-2},{aw,-3, 0, a,-1},
{aw, 2, 0, a, 2},{aw, 1, 0, a, 3},
{ec,-4, 0, a, 0},{ec,-3, 0, a, 1},{ec,-2, 0, c, 1},{ec,-1, 0, c, 2},{ec,-1, 0, a, 3},{ec, 0, 0, a, 4},
{ds,-1, 0, a,-2},
@ -381,7 +380,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_ref,-1, 0, 0, 1}}, user, pointed_thing)
elseif cdir == 3 then -- pointed west-northwest
run_list( {{aw,-1, 0, a,-3},{aw,-2, 0, a,-2},{aw,-3, 0, a,-2},
run_list({{aw,-1, 0, a,-3},{aw,-2, 0, a,-2},{aw,-3, 0, a,-2},
{aw, 0, 0, a, 3},{aw,-1, 0, a, 4},{aw,-2, 0, a, 4},
{ec,-3, 0, a+1,-1},{ec,-3, 0, c+1, 0},{ec,-3, 0, c+1, 1},{ec,-3, 0, c+1, 2},{ec,-3, 0, a+1, 3},{ec,-3, 0, a, 4},
{ds,-1, 0, a,-2},
@ -393,7 +392,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_ref,-2, 0, 0, 1}}, user, pointed_thing)
elseif cdir == 4 then -- pointed west
run_list( {{aw, 0, 0, a,-3},{aw,-1, 0, a,-3},{aw,-2, 0, a,-3},
run_list({{aw, 0, 0, a,-3},{aw,-1, 0, a,-3},{aw,-2, 0, a,-3},
{aw, 0, 0, a, 3},{aw,-1, 0, a, 3},{aw,-2, 0, a, 3},
{ec,-3, 0, a,-3},{ec,-3, 0, a+1,-2},{ec,-3, 0, c+1,-1},{ec,-3, 0, c+1, 0},{ec,-3, 0, c+1, 1},{ec,-3, 0, a+1, 2},{ec,-3, 0, a, 3},
{ds,-2, 0, a,-2},{ds,-1, 0, a,-2},{ds, 0, 0, a,-2},
@ -404,7 +403,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_ref,-2, 0, 0, 0}}, user, pointed_thing)
elseif cdir == 5 then -- pointed west-southwest
run_list( {{aw, 0, 0, a,-3},{aw,-1, 0, a,-4},{aw,-2, 0, a,-4},
run_list({{aw, 0, 0, a,-3},{aw,-1, 0, a,-4},{aw,-2, 0, a,-4},
{aw,-1, 0, a, 3},{aw,-2, 0, a, 2},{aw,-3, 0, a, 2},
{ec,-3, 0, a,-4},{ec,-3, 0, a+1,-3},{ec,-3, 0, c+1,-2},{ec,-3, 0, c+1,-1},{ec,-3, 0, c+1, 0},{ec,-3, 0, a+1, 1},
{ds,-2, 0, a,-3},{ds,-1, 0, a,-3},
@ -416,7 +415,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_ref,-2, 0, 0,-1}}, user, pointed_thing)
elseif cdir == 6 then -- pointed southwest
run_list( {{aw, 2, 0, a,-2},{aw, 1, 0, a,-3},
run_list({{aw, 2, 0, a,-2},{aw, 1, 0, a,-3},
{aw,-2, 0, a, 2},{aw,-3, 0, a, 1},
{ec, 0, 0, a,-4},{ec,-1, 0, a,-3},{ec,-1, 0, c,-2},{ec,-2, 0, c,-1},{ec,-3, 0, a,-1},{ec,-4, 0, a, 0},
{ds, 0, 0, a,-3},
@ -428,7 +427,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_ref,-1, 0, 0,-1}}, user, pointed_thing)
elseif cdir == 7 then -- pointed south-southwest
run_list( {{aw, 3, 0, a,-1},{aw, 2, 0, a,-2},{aw, 2, 0, a,-3},
run_list({{aw, 3, 0, a,-1},{aw, 2, 0, a,-2},{aw, 2, 0, a,-3},
{aw,-3, 0, a, 0},{aw,-4, 0, a,-1},{aw,-4, 0, a,-2},
{ec, 1, 0, a+1,-3},{ec, 0, 0, c+1,-3},{ec,-1, 0, c+1, -3},{ec,-2, 0, c+1,-3},{ec,-3, 0, a+1,-3},{ec,-4, 0, a,-3},
{ds,-3, 0, a,-2},{dt,-2, 0, c,-2},{dt,-1, 0, c,-2},{dt, 0, 0, c,-2},{ds, 1, 0, a,-2},
@ -437,7 +436,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_ref,-1, 0, 0,-2}}, user, pointed_thing)
elseif cdir == 8 then -- pointed south
run_list( {{aw, 3, 0, a, 0},{aw, 3, 0, a,-1},{aw, 3, 0, a,-2},
run_list({{aw, 3, 0, a, 0},{aw, 3, 0, a,-1},{aw, 3, 0, a,-2},
{aw,-3, 0, a, 0},{aw,-3, 0, a,-1},{aw,-3, 0, a,-2},
{ec, 3, 0, a,-3},{ec, 2, 0, a+1,-3},{ec, 1, 0, c+1,-3},{ec, 0, 0, c+1,-3},{ec,-1, 0, c+1,-3},{ec,-2, 0, a+1,-3},{ec,-3, 0, a,-3},
{ds,-2, 0, a,-2},{dt,-1, 0, c,-2},{dt, 0, 0, c,-2},{dt, 1, 0, c,-2},{ds, 2, 0, a,-2},
@ -446,7 +445,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_ref,0, 0, 0,-2}}, user, pointed_thing)
elseif cdir == 9 then -- pointed south-southeast
run_list( {{aw, 3, 0, a, 0},{aw, 4, 0, a,-1},{aw, 4, 0, a,-2},
run_list({{aw, 3, 0, a, 0},{aw, 4, 0, a,-1},{aw, 4, 0, a,-2},
{aw,-3, 0, a,-1},{aw,-2, 0, a,-2},{aw,-2, 0, a,-3},
{ec, 4, 0, a,-3},{ec, 3, 0, a+1,-3},{ec, 2, 0, c+1,-3},{ec, 1, 0, c+1,-3},{ec, 0, 0, c+1,-3},{ec,-1, 0, a+1,-3},
{ds,-1, 0, a,-2},{dt, 0, 0, c,-2},{dt, 1, 0, c,-2},{dt, 2, 0, c,-2},{ds, 3, 0, a,-2},
@ -455,7 +454,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_ref,1, 0, 0,-2}}, user, pointed_thing)
elseif cdir == 10 then -- pointed southeast
run_list( {{aw, 2, 0, a, 2},{aw, 3, 0, a, 1},
run_list({{aw, 2, 0, a, 2},{aw, 3, 0, a, 1},
{aw,-2, 0, a,-2},{aw,-1, 0, a,-3},
{ec, 4, 0, a, 0},{ec, 3, 0, a,-1},{ec, 2, 0, c,-1},{ec, 1, 0, c,-2},{ec, 1, 0, a,-3},{ec, 0, 0, a,-4},
{ds, 0, 0, a,-3},
@ -467,7 +466,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_ref, 1, 0, 0,-1}}, user, pointed_thing)
elseif cdir == 11 then -- pointed east-southeast
run_list( {{aw, 1, 0, a, 3},{aw, 2, 0, a, 2},{aw, 3, 0, a, 2},
run_list({{aw, 1, 0, a, 3},{aw, 2, 0, a, 2},{aw, 3, 0, a, 2},
{aw, 0, 0, a,-3},{aw, 1, 0, a,-4},{aw, 2, 0, a,-4},
{ec, 3, 0, a+1, 1},{ec, 3, 0, c+1, 0},{ec, 3, 0, c+1,-1},{ec, 3, 0, c+1,-2},{ec, 3, 0, a+1,-3},{ec, 3, 0, a,-4},
{ds, 1, 0, a,-3},{ds, 2, 0, a,-3},
@ -479,7 +478,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_ref, 2, 0, 0,-1}}, user, pointed_thing)
elseif cdir == 12 then -- pointed east
run_list( {{aw, 0, 0, a, 3},{aw, 1, 0, a, 3},{aw, 2, 0, a, 3},
run_list({{aw, 0, 0, a, 3},{aw, 1, 0, a, 3},{aw, 2, 0, a, 3},
{aw, 0, 0, a,-3},{aw, 1, 0, a,-3},{aw, 2, 0, a,-3},
{ec, 3, 0, a, 3},{ec, 3, 0, a+1, 2},{ec, 3, 0, c+1, 1},{ec, 3, 0, c+1, 0},{ec, 3, 0, c+1,-1},{ec, 3, 0, a+1,-2},{ec, 3, 0, a,-3},
{ds, 0, 0, a,-2},{ds, 1, 0, a,-2},{ds, 2, 0, a,-2},
@ -490,7 +489,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_ref, 2, 0, 0, 0}}, user, pointed_thing)
elseif cdir == 13 then -- pointed east-northeast
run_list( {{aw, 0, 0, a, 3},{aw, 1, 0, a, 4},{aw, 2, 0, a, 4},
run_list({{aw, 0, 0, a, 3},{aw, 1, 0, a, 4},{aw, 2, 0, a, 4},
{aw, 1, 0, a,-3},{aw, 2, 0, a,-2},{aw, 3, 0, a,-2},
{ec, 3, 0, a, 4},{ec, 3, 0, a+1, 3},{ec, 3, 0, c+1, 2},{ec, 3, 0, c+1, 1},{ec, 3, 0, c+1, 0},{ec, 3, 0, a+1,-1},
{ds, 1, 0, a,-2},
@ -502,7 +501,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_ref, 2, 0, 0, 1}}, user, pointed_thing)
elseif cdir == 14 then -- pointed northeast
run_list( {{aw,-2, 0, a, 2},{aw,-1, 0, a, 3},
run_list({{aw,-2, 0, a, 2},{aw,-1, 0, a, 3},
{aw, 2, 0, a,-2},{aw, 3, 0, a,-1},
{ec, 0, 0, a, 4},{ec, 1, 0, a, 3},{ec, 1, 0, c, 2},{ec, 2, 0, c, 1},{ec, 3, 0, a, 1},{ec, 4, 0, a, 0},
{ds, 1, 0, a,-2},
@ -514,7 +513,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_ref, 1, 0, 0, 1}}, user, pointed_thing)
elseif cdir == 15 then -- pointed north-northeast
run_list( {{aw,-3, 0, a, 1},{aw,-2, 0, a, 2},{aw,-2, 0, a, 3},
run_list({{aw,-3, 0, a, 1},{aw,-2, 0, a, 2},{aw,-2, 0, a, 3},
{aw, 3, 0, a, 0},{aw, 4, 0, a, 1},{aw, 4, 0, a, 2},
{ec,-1, 0, a+1, 3},{ec, 0, 0, c+1, 3},{ec, 1, 0, c+1, 3},{ec, 2, 0, c+1, 3},{ec, 3, 0, a+1, 3},{ec, 4, 0, a, 3},
{dt,-1, 0, c, 0},{dt, 0, 0, c, 0},{dt, 1, 0, c, 0},{ds, 2, 0, a, 0},
@ -524,7 +523,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
-- Dig for slope up
elseif cdir == 16 then -- pointed north (0, dig up)
run_list( {{aw,-3, 0, a, 0},{aw,-3, 0, a+1, 1},{aw,-3, 1, a+1, 2},
run_list({{aw,-3, 0, a, 0},{aw,-3, 0, a+1, 1},{aw,-3, 1, a+1, 2},
{aw, 3, 0, a, 0},{aw, 3, 0, a+1, 1},{aw, 3, 1, a+1, 2},
{ec,-3, 1, a+1, 3},{ec,-2, 1, a+2, 3},{ec,-1, 1, c+2, 3},{ec, 0, 1, c+2, 3},{ec, 1, 1, c+2, 3},{ec, 2, 1, a+2, 3},{ec, 3, 1, a+1, 3},
{ds,-2, 0, a, 0},{dt,-1, 0, c, 0},{dt, 0, 0, c, 0},{dt, 1, 0, c, 0},{ds, 2, 0, a, 0},
@ -535,7 +534,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_brace, 1, 0, 0, 2}}, user, pointed_thing)
elseif cdir == 17 then -- pointed northwest (2, dig up)
run_list( {{aw,-2, 0, a+1,-2},{aw,-3, 1, a+1,-1},
run_list({{aw,-2, 0, a+1,-2},{aw,-3, 1, a+1,-1},
{aw, 2, 0, a+1, 2},{aw, 1, 1, a+1, 3},
{ec,-4, 1, a+1, 0},{ec,-3, 1, c+1, 1},{ec,-2, 1, c+2, 1},{ec,-1, 1, c+2, 2},{ec,-1, 1, c+1, 3},{ec, 0, 1, a+1, 4},
{ds,-1, 0, a,-2},
@ -549,7 +548,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_brace, 0, 0, 0, 2}}, user, pointed_thing)
elseif cdir == 18 then -- pointed west (4, dig up)
run_list( {{aw, 0, 0, a,-3},{aw,-1, 0, a+1,-3},{aw,-2, 1, a+1,-3},
run_list({{aw, 0, 0, a,-3},{aw,-1, 0, a+1,-3},{aw,-2, 1, a+1,-3},
{aw, 0, 0, a, 3},{aw,-1, 0, a+1, 3},{aw,-2, 1, a+1, 3},
{ec,-3, 1, a+1,-3},{ec,-3, 1, a+2,-2},{ec,-3, 1, c+2,-1},{ec,-3, 1, c+2, 0},{ec,-3, 1, c+2, 1},{ec,-3, 1, a+2, 2},{ec,-3, 1, a+1, 3},
{ds,-2, 1, a+1,-2},{ds,-1, 0, a+1,-2},{ds, 0, 0, a,-2},
@ -562,7 +561,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_brace,-2, 0, 0, 1}}, user, pointed_thing)
elseif cdir == 19 then -- pointed southwest (6, dig up)
run_list( {{aw, 2, 0, a+1,-2},{aw, 1, 1, a+1,-3},
run_list({{aw, 2, 0, a+1,-2},{aw, 1, 1, a+1,-3},
{aw,-2, 0, a+1, 2},{aw,-3, 1, a+1, 1},
{ec, 0, 1, a+1,-4},{ec,-1, 1, c+1,-3},{ec,-1, 1, c+2,-2},{ec,-2, 1, c+2,-1},{ec,-3, 1, c+1,-1},{ec,-4, 1, a+1, 0},
{ds, 0, 1, a+1,-3},
@ -576,7 +575,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_brace, 0, 0, 0,-2}}, user, pointed_thing)
elseif cdir == 20 then -- pointed south (8, dig up)
run_list( {{aw, 3, 0, a, 0},{aw, 3, 0, a+1,-1},{aw, 3, 1, a+1,-2},
run_list({{aw, 3, 0, a, 0},{aw, 3, 0, a+1,-1},{aw, 3, 1, a+1,-2},
{aw,-3, 0, a, 0},{aw,-3, 0, a+1,-1},{aw,-3, 1, a+1,-2},
{ec, 3, 1, a+1,-3},{ec, 2, 1, a+2,-3},{ec, 1, 1, c+2,-3},{ec, 0, 1, c+2,-3},{ec,-1, 1, c+2,-3},{ec,-2, 1, a+2,-3},{ec,-3, 1, a+1,-3},
{ds,-2, 1, a+1,-2},{dt,-1, 1, c+1,-2},{dt, 0, 1, c+1,-2},{dt, 1, 1, c+1,-2},{ds, 2, 1, a+1,-2},
@ -587,7 +586,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_brace, 1, 0, 0,-2}}, user, pointed_thing)
elseif cdir == 21 then -- pointed southeast (10, dig up)
run_list( {{aw, 2, 0, a+1, 2},{aw, 3, 1, a+1, 1},
run_list({{aw, 2, 0, a+1, 2},{aw, 3, 1, a+1, 1},
{aw,-2, 0, a+1,-2},{aw,-1, 1, a+1,-3},
{ec, 4, 1, a+1, 0},{ec, 3, 1, c+1,-1},{ec, 2, 1, c+2,-1},{ec, 1, 1, c+2,-2},{ec, 1, 1, c+1,-3},{ec, 0, 1, a+1,-4},
{ds, 0, 1, a+1,-3},
@ -601,7 +600,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_brace, 0, 0, 0,-2}}, user, pointed_thing)
elseif cdir == 22 then -- pointed east (12, dig up)
run_list( {{aw, 0, 0, a, 3},{aw, 1, 0, a+1, 3},{aw, 2, 1, a+1, 3},
run_list({{aw, 0, 0, a, 3},{aw, 1, 0, a+1, 3},{aw, 2, 1, a+1, 3},
{aw, 0, 0, a,-3},{aw, 1, 0, a+1,-3},{aw, 2, 1, a+1,-3},
{ec, 3, 1, a+1, 3},{ec, 3, 1, a+2, 2},{ec, 3, 1, c+2, 1},{ec, 3, 1, c+2, 0},{ec, 3, 1, c+2,-1},{ec, 3, 1, a+2,-2},{ec, 3, 1, a+1,-3},
{ds, 0, 0, a,-2},{ds, 1, 0, a+1,-2},{ds, 2, 1, a+1,-2},
@ -614,7 +613,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_brace, 2, 0, 0,-1}}, user, pointed_thing)
elseif cdir == 23 then -- pointed northeast (14, dig up)
run_list( {{aw,-2, 0, a+1, 2},{aw,-1, 1, a+1, 3},
run_list({{aw,-2, 0, a+1, 2},{aw,-1, 1, a+1, 3},
{aw, 2, 0, a+1,-2},{aw, 3, 1, a+1,-1},
{ec, 0, 1, a+1, 4},{ec, 1, 1, c+1, 3},{ec, 1, 1, c+2, 2},{ec, 2, 1, c+2, 1},{ec, 3, 1, c+1, 1},{ec, 4, 1, a+1, 0},
{ds, 1, 0, a,-2},
@ -629,7 +628,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
-- Dig for slope down
elseif cdir == 24 then -- pointed north (0, dig down)
run_list( {{aw,-3, 0, a, 0},{aw,-3,-1, a, 1},{aw,-3,-1, a-1, 2},
run_list({{aw,-3, 0, a, 0},{aw,-3,-1, a, 1},{aw,-3,-1, a-1, 2},
{aw, 3, 0, a, 0},{aw, 3,-1, a, 1},{aw, 3,-1, a-1, 2},
{ec,-3,-1, a-1, 3},{ec,-2,-1, a, 3},{ec,-1,-1, c, 3},{ec, 0,-1, c, 3},{ec, 1,-1, c, 3},{ec, 2,-1, a, 3},{ec, 3,-1, a-1, 3},
{ds,-2, 0, a, 0},{dt,-1, 0, c, 0},{dt, 0, 0, c, 0},{dt, 1, 0, c, 0},{ds, 2, 0, a, 0},
@ -640,7 +639,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_brace, 1,-1, 0, 0}}, user, pointed_thing)
elseif cdir == 25 then -- pointed northwest (2, dig down)
run_list( {{aw,-2,-1, a,-2},{aw,-3,-1, a,-1},
run_list({{aw,-2,-1, a,-2},{aw,-3,-1, a,-1},
{aw, 2,-1, a, 2},{aw, 1,-1, a, 3},
{ec,-4,-1, a-1, 0},{ec,-3,-1, a, 1},{ec,-2,-1, c, 1},{ec,-1,-1, c, 2},{ec,-1,-1, a, 3},{ec, 0,-1, a-1, 4},
{ds,-1, 0, a,-2},
@ -654,7 +653,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_brace, 1,-1, 0, 1}}, user, pointed_thing)
elseif cdir == 26 then -- pointed west (4, dig down)
run_list( {{aw, 0, 0, a,-3},{aw,-1,-1, a,-3},{aw,-2,-1, a-1,-3},
run_list({{aw, 0, 0, a,-3},{aw,-1,-1, a,-3},{aw,-2,-1, a-1,-3},
{aw, 0, 0, a, 3},{aw,-1,-1, a, 3},{aw,-2,-1, a-1, 3},
{ec,-3,-1, a-1,-3},{ec,-3,-1, a,-2},{ec,-3,-1, c,-1},{ec,-3,-1, c, 0},{ec,-3,-1, c, 1},{ec,-3,-1, a, 2},{ec,-3,-1, a-1, 3},
{ds,-2,-1, a-1,-2},{ds,-1,-1, a,-2},{ds, 0, 0, a,-2},
@ -667,7 +666,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_brace, 0,-1, 0,-1}}, user, pointed_thing)
elseif cdir == 27 then -- pointed southwest (6, dig down)
run_list( {{aw, 2,-1, a,-2},{aw, 1,-1, a,-3},
run_list({{aw, 2,-1, a,-2},{aw, 1,-1, a,-3},
{aw,-2,-1, a, 2},{aw,-3,-1, a, 1},
{ec, 0,-1, a-1,-4},{ec,-1,-1, a,-3},{ec,-1, -1, c,-2},{ec,-2,-1, c,-1},{ec,-3,-1, a,-1},{ec,-4,-1, a-1, 0},
{ds, 0,-1, a-1,-3},
@ -681,7 +680,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_brace, 1,-1, 0,-1}}, user, pointed_thing)
elseif cdir == 28 then -- pointed south (8, dig down)
run_list( {{aw, 3, 0, a, 0},{aw, 3,-1, a,-1},{aw, 3,-1, a-1,-2},
run_list({{aw, 3, 0, a, 0},{aw, 3,-1, a,-1},{aw, 3,-1, a-1,-2},
{aw,-3, 0, a, 0},{aw,-3,-1, a,-1},{aw,-3,-1, a-1,-2},
{ec, 3,-1, a-1,-3},{ec, 2,-1, a,-3},{ec, 1,-1, c,-3},{ec, 0,-1, c,-3},{ec,-1,-1, c,-3},{ec,-2,-1, a,-3},{ec,-3,-1, a-1,-3},
{ds,-2,-1, a-1,-2},{dt,-1,-1, c-1,-2},{dt, 0,-1, c-1,-2},{dt, 1,-1, c-1,-2},{ds, 2,-1, a-1,-2},
@ -692,7 +691,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_brace, 1,-1, 0, 0}}, user, pointed_thing)
elseif cdir == 29 then -- pointed southeast (10, dig down)
run_list( {{aw, 2,-1, a, 2},{aw, 3,-1, a, 1},
run_list({{aw, 2,-1, a, 2},{aw, 3,-1, a, 1},
{aw,-2,-1, a,-2},{aw,-1,-1, a,-3},
{ec, 4,-1, a-1, 0},{ec, 3,-1, a,-1},{ec, 2,-1, c,-1},{ec, 1,-1, c,-2},{ec, 1,-1, a,-3},{ec, 0,-1, a-1,-4},
{ds, 0,-1, a-1,-3},
@ -706,7 +705,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_brace, 1,-1, 0, 1}}, user, pointed_thing)
elseif cdir == 30 then -- pointed east (12, dig down)
run_list( {{aw, 0, 0, a, 3},{aw, 1,-1, a, 3},{aw, 2,-1, a-1, 3},
run_list({{aw, 0, 0, a, 3},{aw, 1,-1, a, 3},{aw, 2,-1, a-1, 3},
{aw, 0, 0, a,-3},{aw, 1,-1, a,-3},{aw, 2,-1, a-1,-3},
{ec, 3,-1, a-1, 3},{ec, 3,-1, a, 2},{ec, 3,-1, c, 1},{ec, 3,-1, c, 0},{ec, 3,-1, c,-1},{ec, 3,-1, a,-2},{ec, 3,-1, a-1,-3},
{ds, 0, 0, a,-2},{ds, 1,-1, a,-2},{ds, 2,-1, a-1,-2},
@ -719,7 +718,7 @@ local dig_tunnel = function(cdir, user, pointed_thing)
{add_brace, 0,-1, 0,-1}}, user, pointed_thing)
elseif cdir == 31 then -- pointed northeast (14, dig down)
run_list( {{aw,-2,-1, a, 2},{aw,-1,-1, a, 3},
run_list({{aw,-2,-1, a, 2},{aw,-1,-1, a, 3},
{aw, 2,-1, a,-2},{aw, 3,-1, a,-1},
{ec, 0,-1, a-1, 4},{ec, 1,-1, a, 3},{ec, 1,-1, c, 2},{ec, 2,-1, c, 1},{ec, 3,-1, a, 1},{ec, 4,-1, a-1, 0},
{ds, 1, 0, a,-2},
@ -762,7 +761,7 @@ for i,img in ipairs(images) do
damage_groups = {fleshy=4},
},
-- dig tunnel with right mouse click (double tap on android)
-- Dig tunnel with right mouse click (double tap on android)
-- tunneling only works if in creative mode
on_place = function(itemstack, placer, pointed_thing)
local pname = placer and placer:get_player_name() or ""