star_wars/mods/adv_lightsabers/force_api.lua

--------------------------
-- Advanced Lightsabers --
--------------------------
------- Ver 1.1 ----------

local force_ability = {}
local ability_cooldown = {}
local stunned = {}
local floating = {}
local player_physics = {}

minetest.register_privilege("force_abilities", {
	description = "Allows player touse Force Abilities",
	give_to_singleplayer = false
})

minetest.register_on_joinplayer(function(player)
    ability_cooldown[player:get_player_name()] = 0.0
    force_ability[player:get_player_name()] = {}
    stunned[player:get_player_name()] = false
    floating[player:get_player_name()] = false
    player_physics[player:get_player_name()] = player:get_physics_override()
end)

minetest.register_on_leaveplayer(function(player)
    ability_cooldown[player:get_player_name()] = nil
    force_ability[player:get_player_name()] = nil
    floating[player:get_player_name()] = nil
    stunned[player:get_player_name()] = nil
end)

local function cooldown(player,duration)
    local playername = player:get_player_name()
    ability_cooldown[playername] = duration
    minetest.after(duration,function()
        ability_cooldown[playername] = 0.0
        minetest.chat_send_player(playername, "Force Cooldown is up")
    end)
    return ability_cooldown[playername]
end


-------------------
-- Menu Formspec --
-------------------

local function force_menu_form()
    local formspec = {
        "size[6,3.476]",
        "real_coordinates[true]",
        "button[0.5,2.3;1.6,0.8;jump;Force Jump]",
        "button[2.25,2.3;1.6,0.8;throw;Saber Throw]",
        "button[4,2.3;1.6,0.8;push;Force Push]",
        "button[0.5,1.3;1.6,0.8;choke;Force Choke]",
        "button[2.25,1.3;1.6,0.8;bond;Crystal Bond]",
        "button[4,1.3;1.6,0.8;dash;Force Dash]",
        "button[0.5,0.3;1.6,0.8;heal;Force Heal]",
        "button[2.25,0.3;1.6,0.8;bleed;Crystal Bleed]",
        "button[4,0.3;1.6,0.8;stun;Force Stun]"
    }
    return table.concat(formspec, "")
end

local function show_force_menu(player)
    minetest.show_formspec(player, "adv_lightsabers:force_menu", force_menu_form(player))
end

--------------------------------------
-- Use raycast to get pointed_thing --
--------------------------------------

local function ray_pointed_thing(player)
    local dir = player:get_look_dir()
    local pos = player:get_pos()
    pos.y = pos.y + player:get_properties().eye_height or 1.625
    local dest = vector.add(pos, vector.multiply(dir, 20))
    local ray = minetest.raycast(pos, dest, true, false)
    for pointed_thing in ray do
        if pointed_thing.type == "object" then
            local pointedobject = pointed_thing.ref
            if pointedobject:is_player() and pointedobject:get_player_name() ~= player:get_player_name() then
                return pointedobject
            end
        end
    end
end

---------------------
-- Force Abilities --
---------------------

local function force_jump(player) -- Heightened Jump
    if player:get_player_control().sneak == true and player:get_player_control().jump == true then
        player:add_player_velocity({x=0,y=8,z=0})
        cooldown(player,20)
    end
end

local function force_push(player) -- Push entities a far distance
    local pointedobject = ray_pointed_thing(player)
    if player:get_player_control().sneak == true and player:get_player_control().LMB == true then
        if pointedobject and pointedobject:is_player() then
            local dir = player:get_look_dir()
            pointedobject:add_player_velocity(vector.multiply(dir,25))
            cooldown(player,20)
        end
    end
end

local function force_choke(player) -- Lift a Player off the ground and slowly choke them
    local pointedobject = ray_pointed_thing(player)
    if player:get_player_control().sneak == true and player:get_player_control().LMB == true then
        if pointedobject and pointedobject:is_player() then
            pointedobject:add_player_velocity({x=0,y=5,z=0})
            floating[pointedobject:get_player_name()] = true
            pointedobject:punch(player,1.0,{full_punch_interval = 0.1,damage_groups = {fleshy = 1}},nil)
            minetest.after(1,function()
                pointedobject:punch(player,1.0,{full_punch_interval = 0.1,damage_groups = {fleshy = 1}},nil)
            end)
            minetest.after(2,function()
                pointedobject:punch(player,1.0,{full_punch_interval = 0.1,damage_groups = {fleshy = 1}},nil)
            end)
            minetest.after(3,function()
                pointedobject:punch(player,1.0,{full_punch_interval = 0.1,damage_groups = {fleshy = 1}},nil)
            end)
            minetest.after(7.5,function()
                pointedobject:set_physics_override(1.0,1.0,1.0,true,true,false)
            end)
            cooldown(player,20)
        end
    end
end

local function force_dash(player) -- Give yourself a short but quick burst of speed
    if player:get_player_control().sneak == true
    and player:get_player_control().up == true
    and player:get_player_control().down == true then
        local dir = player:get_look_dir()
        dir.y = dir.y * 0.1
        player:add_player_velocity(vector.multiply(dir,25))
        cooldown(player,20)
    end
end

local function force_heal(player) -- Heal yourself by 4 hearts
    if player:get_player_control().sneak == true and player:get_player_control().RMB then
        local hp = player:get_hp()
        player:set_hp(hp + 8)
        cooldown(player,20)
    end
end

local function force_stun(player) -- Freeze Players in place for 5 seconds
    local pointedobject = ray_pointed_thing(player)
    if player:get_player_control().sneak == true and player:get_player_control().LMB == true then
        if pointedobject and pointedobject:is_player() then
            stunned[pointedobject:get_player_name()] = true
            minetest.after(5,function()
                stunned[pointedobject:get_player_name()] = false
            end)
            cooldown(player,20)
        end
    end
end

---------------
-- Overrides --
---------------

local function stun()
    for _,player in ipairs(minetest.get_connected_players()) do
        local playername = player:get_player_name()
        if stunned[playername] == true then
            player:set_physics_override({speed = 0})
            minetest.after(10,function()
                stunned[player:get_player_name()] = false
                player:set_physics_override({speed = player_physics[player:get_player_name()].speed})
            end)
        end
	end
end

local function levitate()
    for _,player in ipairs(minetest.get_connected_players()) do
        local playername = player:get_player_name()
        if floating[playername] == true then
            player:set_physics_override({speed = 0, gravity = 0})
            minetest.after(4,function()
                floating[player:get_player_name()] = false
                player:set_physics_override({speed = player_physics[player:get_player_name()].speed,
                gravity = player_physics[player:get_player_name()].gravity
            })
            end)
        end
	end
end

----------
-- Menu --
----------

local function force_menu()
    for _,player in ipairs(minetest.get_connected_players()) do
        if minetest.check_player_privs(player:get_player_name(), {force_abilities = true}) then
            local playername = player:get_player_name()
            if player:get_player_control().LMB == true
            and player:get_player_control().up == true
            and player:get_player_control().down == true then
                show_force_menu(player:get_player_name())
            end
            if force_ability[playername] == "force_jump" and ability_cooldown[playername] == 0.0 then
                force_jump(player)
            elseif force_ability[playername] == "force_push" and ability_cooldown[playername] == 0.0 then
                force_push(player)
            elseif force_ability[playername] == "force_choke" and ability_cooldown[playername] == 0.0 then
                force_choke(player)
            elseif force_ability[playername] == "force_dash" and ability_cooldown[playername] == 0.0 then
                force_dash(player)
            elseif force_ability[playername] == "force_heal" and ability_cooldown[playername] == 0.0 then
                force_heal(player)
            elseif force_ability[playername] == "force_stun" and ability_cooldown[playername] == 0.0 then
                force_stun(player)
            end
        end
	end
end

minetest.register_on_player_receive_fields(function(player, formname, fields)
    if formname ~= "adv_lightsabers:force_menu" then
        return
    end
    if fields.jump then
        local playername = player:get_player_name()
        force_ability[playername] = "force_jump"
        minetest.chat_send_player(playername,"Force Ability:Force Jump")
    end
    if fields.throw then
        local playername = player:get_player_name()
        force_ability[playername] = "saber_throw"
        minetest.chat_send_player(playername,"Force Ability:Saber Throw")
    end
    if fields.push then
        local playername = player:get_player_name()
        force_ability[playername] = "force_push"
        minetest.chat_send_player(playername,"Force Ability:Force Push")
    end
    if fields.choke then
        local playername = player:get_player_name()
        force_ability[playername] = "force_choke"
        minetest.chat_send_player(playername,"Force Ability:Force Choke")
    end
    if fields.bond then
        local playername = player:get_player_name()
        if player:get_wielded_item():get_name() == "adv_lightsabers:kyber_crystal" then
            minetest.chat_send_player(playername,"You have bonded with your Kyber Crystal")
            if math.random(1,10) == 1 then
                player:set_wielded_item("adv_lightsabers:kyber_crystal_blue")
            elseif math.random(1,10) == 2 then
                player:set_wielded_item("adv_lightsabers:kyber_crystal_blue")
            elseif math.random(1,10) == 3 then
                player:set_wielded_item("adv_lightsabers:kyber_crystal_blue")
            elseif math.random(1,10) == 4 then
                player:set_wielded_item("adv_lightsabers:kyber_crystal_blue")
            elseif math.random(1,10) == 5 then
                player:set_wielded_item("adv_lightsabers:kyber_crystal_green")
            elseif math.random(1,10) == 6 then
                player:set_wielded_item("adv_lightsabers:kyber_crystal_green")
            elseif math.random(1,10) == 7 then
                player:set_wielded_item("adv_lightsabers:kyber_crystal_green")
            elseif math.random(1,10) == 8 then
                player:set_wielded_item("adv_lightsabers:kyber_crystal_green")
            elseif math.random(1,10) == 9 then
                player:set_wielded_item("adv_lightsabers:kyber_crystal_yellow")
            else
                player:set_wielded_item("adv_lightsabers:kyber_crystal_purple")
            end
        elseif player:get_wielded_item():get_name() == "adv_lightsabers:kyber_crystal_red" then
            minetest.chat_send_player(playername,"You have healed your Kyber Crystal")
            player:set_wielded_item("adv_lightsabers:kyber_crystal_white")
        end
    end
    if fields.dash then
        local playername = player:get_player_name()
        force_ability[playername] = "force_dash"
        minetest.chat_send_player(playername,"Force Ability:Force Dash")
    end
    if fields.heal then
        local playername = player:get_player_name()
        force_ability[playername] = "force_heal"
        minetest.chat_send_player(playername,"Force Ability:Force Heal")
    end
    if fields.bleed then
        local playername = player:get_player_name()
        if player:get_wielded_item():get_name() == "adv_lightsabers:kyber_crystal_blue"
        or player:get_wielded_item():get_name() == "adv_lightsabers:kyber_crystal_green"
        or player:get_wielded_item():get_name() == "adv_lightsabers:kyber_crystal_yellow"
        or player:get_wielded_item():get_name() == "adv_lightsabers:kyber_crystal_purple"
        or player:get_wielded_item():get_name() == "adv_lightsabers:kyber_crystal_white" then
            minetest.chat_send_player(playername,"You have bled your Kyber Crystal")
            player:set_wielded_item("adv_lightsabers:kyber_crystal_red")
        end
    end
    if fields.stun then
        local playername = player:get_player_name()
        force_ability[playername] = "force_stun"
        minetest.chat_send_player(playername,"Force Ability:Force Stun")
    end
end)

minetest.register_globalstep(function()
    force_menu()
    stun()
    levitate()
end)