2021-08-28 23:01:08 -05:00

129 lines
3.6 KiB
Lua

--
-- cora's defensive combat hax
local tprange=50
local function sleep(n) -- seconds
local t0 = os.clock()
while os.clock() - t0 <= n do end
end
local function mwarp(pos)
minetest.localplayer:set_pos(pos)
end
local tprangeh=20
local tprangepy=50
local tprangeny=60
local karange=10
local function get_target(epos)
math.randomseed(os.time())
local angle=math.random(110,250)
local tg={x=0,y=0,z=0}
tg.x=( karange + 2 ) * math.sin(angle)
tg.z=( karange + 2 ) * math.cos(angle)
local t=vector.add(epos,tg)
if (checklava(t) or checkgravel(t)) then
return get_target(epos)
elseif checkair(t) then
return t
else
amautotool(t)
end
return t
end
local function checkair(pos)
local n=get_node_or_nil(pos)
if n==nil or n['name'] == 'air' then return true end
return false
end
local function checklava(pos)
local n=minetest.find_node_near(pos, 2, {'mcl_core:lava_source','mcl_core:lava_flowing'}, true)
if n == nil then return false end
return true
end
local function checkgravel(pos)
local n=minetest.find_node_near(pos, 1, {'mcl_core:gravel','mcl_core:sand'}, true)
if n == nil then return false end
return true
end
local function check_tool(stack, node_groups, old_best_time)
local toolcaps = stack:get_tool_capabilities()
if not toolcaps then return end
local best_time = old_best_time
for group, groupdef in pairs(toolcaps.groupcaps) do
local level = node_groups[group]
if level then
local this_time = groupdef.times[level]
if this_time < best_time then
best_time = this_time
end
end
end
return best_time < old_best_time, best_time
end
local function amautotool(pos)
local player = minetest.localplayer
local inventory = minetest.get_inventory("current_player")
local node=minetest.get_node_or_nil(pos)
local node_groups = minetest.get_node_def(node.name).groups
local new_index = player:get_wield_index()
local is_better, best_time = false, math.huge
is_better, best_time = check_tool(player:get_wielded_item(), node_groups, best_time)
is_better, best_time = check_tool(inventory.hand[1], node_groups, best_time)
for index, stack in pairs(inventory.main) do
is_better, best_time = check_tool(stack, node_groups, best_time)
if is_better then
new_index = index - 1
end
end
player:set_wield_index(new_index)
end
local function dhfree()
if not minetest.localplayer then return end
local n=vector.add(minetest.localplayer:get_pos(),{x=0,y=2,z=0})
if n==nil or n['name'] == 'air' then return end
amautotool(n)
minetest.dig_node(n)
--minetest.dig_node(vector.add(ppos,{x=0,y=1,z=0}))
end
local function rro() -- reverse restraining order
for k, v in ipairs(minetest.localplayer.get_nearby_objects(karange+5)) do
if (v:is_player() and v:get_name() ~= minetest.localplayer:get_name()) then
-- if (v:is_player() and v:get_name() == "antigone" then
local pos = v:get_pos()
pos.y = pos.y - 1
local mpos=minetest.localplayer:get_pos()
local distance=vector.distance(mpos,pos)
if distance < karange then
mwarp(get_target(pos))
minetest.after(0.2,function() autofly.aim(pos) end)
minetest.after(0.1,function() dhfree() end)
return
end
end
end
end
minetest.register_globalstep(function()
if minetest.settings:get_bool("goddess") then
rro()
end
end)
minetest.register_chatcommand("dhf", { description = "", func = dhfree })
-- REG cheats on DF
if (_G["minetest"]["register_cheat"] ~= nil) then
minetest.register_cheat("Goddess Mode", "Combat", "goddess")
else
minetest.settings:set_bool('goddess',true)
end