161 lines
4.6 KiB
Lua
161 lines
4.6 KiB
Lua
--
|
|
-- cora's defensive combat hax
|
|
|
|
|
|
|
|
local karange=14
|
|
|
|
local function checkair(pos)
|
|
local n=minetest.get_node_or_nil(pos)
|
|
if n==nil or n['name'] == 'air' then return true end
|
|
return false
|
|
end
|
|
|
|
local function checkbadblocks(pos)
|
|
local n=minetest.find_node_near(pos, 2, {'mcl_core:gravel','mcl_core:sand','mcl_core:lava_source','mcl_core:lava_flowing','mcl_core:water_source','mcl_core:water_flowing',
|
|
'mcl_core:obsidian','mcl_core:bedrock'}, true)
|
|
if n == nil then return false end
|
|
return true
|
|
end
|
|
local function checktrap()
|
|
local lp=minetest.localplayer:get_pos()
|
|
local air,nd=minetest.line_of_sight(vector.add(lp,{x=0,y=-2,z=0}), vector.add(lp,{x=0,y=50,z=0}))
|
|
if(not air) then
|
|
local tn=minetest.get_node_or_nil(nd)
|
|
if(tn == nil) then return false end
|
|
for k,v in ipairs({'mcl_core:lava_source','mcl_core:lava_flowing','mcl_core:water_source','mcl_core:water_flowing'}) do
|
|
if tn.name == v then return true end
|
|
end
|
|
end
|
|
return false
|
|
end
|
|
|
|
local function checkhead()
|
|
local ppos=vector.add(minetest.localplayer:get_pos(),{x=0,y=1,z=0})
|
|
if (checkair(ppos)) then return true end
|
|
return false
|
|
end
|
|
|
|
|
|
local function checkprojectile()
|
|
for k, v in ipairs(minetest.localplayer.get_nearby_objects(karange)) do
|
|
if ( v:get_item_textures():sub(-9) == "arrow_box") or ( v:get_item_textures():sub(-7) == "_splash") then
|
|
local vel=v:get_velocity()
|
|
if (vel.x == 0 and vel.y == 0 and vel.z ==0 ) then return false end
|
|
return true
|
|
end
|
|
end
|
|
return false
|
|
end
|
|
|
|
|
|
local function amautotool(pos)
|
|
local node=minetest.get_node_or_nil(pos)
|
|
if node == nil then return end
|
|
local player = minetest.localplayer
|
|
local inventory = minetest.get_inventory("current_player")
|
|
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 = autotool.check_tool(player:get_wielded_item(), node_groups, best_time)
|
|
for index, stack in pairs(inventory.main) do
|
|
is_better, best_time = autotool.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 get_2dpos_from_yaw(r,yaw)
|
|
local tg={x=0,y=0,z=0}
|
|
tg.x= r * math.sin(yaw)
|
|
tg.z= r * math.cos(yaw)
|
|
return tg
|
|
end
|
|
local function get_3dpos_from_yaw_and_pitch(r,yaw,pitch)
|
|
local tg={x=0,y=0,z=0}
|
|
tg.x= r * math.sin(yaw)
|
|
tg.y= r * math.sin(pitch)
|
|
tg.z= r * math.cos(yaw)
|
|
return tg
|
|
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})
|
|
local nd=minetest.get_node_or_nil(n)
|
|
if nd == nil then return end
|
|
while nd.name ~= "air" do
|
|
amautotool(n)
|
|
minetest.dig_node(n)
|
|
minetest.dig_node(vector.add(n,{x=0,y=-1,z=0}))
|
|
nd=minetest.get_node_or_nil(n)
|
|
end
|
|
end
|
|
local lastwrp=0
|
|
local function mwarp(pos)
|
|
if os.time() < lastwrp+1 then return end
|
|
lastwrp=os.time();
|
|
minetest.after("0.1",function() dhfree() end)
|
|
minetest.localplayer:set_pos(pos)
|
|
end
|
|
|
|
local function get_target(epos)
|
|
math.randomseed(os.time())
|
|
local t=vector.add(epos,get_3dpos_from_yaw_and_pitch(karange+1,math.random(90,240),math.random(90,135)))
|
|
if (checkbadblocks(t)) then
|
|
return get_target(epos)
|
|
elseif checkair(t) then
|
|
return t
|
|
else
|
|
amautotool(t)
|
|
end
|
|
return t
|
|
end
|
|
|
|
|
|
local function evade(ppos)
|
|
mwarp(get_target(ppos))
|
|
end
|
|
|
|
local function rro() -- reverse restraining order
|
|
|
|
for k, v in ipairs(minetest.localplayer.get_nearby_objects(karange+5)) do
|
|
local name=v:get_name()
|
|
if (v:is_player() and name ~= minetest.localplayer:get_name()) then
|
|
if fren.is_friend(name) then
|
|
minetest.settings:set_bool("killaura",false)
|
|
return end
|
|
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
|
|
local trg=get_target(pos)
|
|
mwarp(trg)
|
|
minetest.after("0.2",function() autofly.aim(pos) end)
|
|
return
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
minetest.register_globalstep(function()
|
|
if minetest.settings:get_bool("goddess") then
|
|
local ppos=minetest.localplayer:get_pos()
|
|
rro()
|
|
if(checkprojectile()) then evade(ppos) end
|
|
if(checktrap()) then evade(ppos) end
|
|
if(not checkhead()) then dhfree() end
|
|
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
|