tpa/command.lua at master · d-stephane/tpa · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87

local S = tpa.intllib
local P = ""


-- Copied from Celeron-55's /teleport command. Thanks Celeron!
local function find_free_position_near(pos)
    local tries = {
        {x=1,y=0,z=0},
        {x=-1,y=0,z=0},
        {x=0,y=0,z=1},
        {x=0,y=0,z=-1},
    }
    for _,d in pairs(tries) do
        local p = vector.add(pos, d)
        if not minetest.registered_nodes[minetest.get_node(p).name].walkable then
            return p, true
        end
    end
    return pos, false
end


minetest.register_chatcommand("tpa", {
    privs = {
        interact = true
    },
    func = function(name, param)
        if param == "" then
            -- Nom du joueur non saisie
            minetest.show_formspec(name, "tpa:error_empty_player_name",
                "size[7,2]" ..
                "label[0,0;" .. S("Attention, please enter the name of the player you wish you teleporter") .. "]" ..
                "button_exit[0,1;2,1;exit;" .. S("Close") .. "]")
            return false, ""
        else
            -- Verification de la présence du joueur auquel on veut se téléporter
            local player = minetest.get_player_by_name(param)

            if not player then
                -- Joeuur non présent
                minetest.show_formspec(name, "tpa:error_player_not_connected",
                    "size[7,2]" ..
                    "label[0,0;" .. S("Note that the player you are trying to teleport you is not connected") .. "]" ..
                    "button_exit[0,1;2,1;exit;" .. S("Close") .. "]")
                return false, ""
            end

            -- Le joueur est présent, on affiche une demande de TP
            minetest.show_formspec(param, "tpa:ok_ask_player",
                "size[7,2]" ..
                "label[0,0;\"" .. name .. "\" " .. S("wants to teleport to you") .. "]" ..
                "button_exit[0,1;2,1;button_yes;" .. S("Yes") .. "]" ..
                "button_exit[2,1;2,1;button_no;" .. S("No") .. "]")

            P = name;
        end

        return true, ""
    end
})


minetest.register_on_player_receive_fields(function(player, formname, fields)
    if formname ~= "tpa:ok_ask_player" then
        -- Le nom du formulaire n'est pas tpa:ok_ask_player, exit
        return false
    end

    local receiver = player:get_player_name()

    if fields.button_yes then
        -- Acceptation du TP
        local sender = minetest.get_player_by_name(P)
        local pos    = player:getpos()
        sender:setpos(find_free_position_near(pos))
        minetest.log("action", "[tpa] Joueur " .. P .. " téléporté vers " .. receiver .. " à la position " .. minetest.serialize(pos))
    else
        -- Refus du TP
        minetest.show_formspec(P, "tpa:no_tp_cancelled",
            "size[7,2]" ..
            "label[0,0;\"" .. receiver .. "\" " .. S("do not want you to teleport to him") .. "]" ..
            "button_exit[0,1;2,1;exit;" .. S("Close") .. "]")
    end

    return true
end)