135 lines
3.8 KiB
Lua
135 lines
3.8 KiB
Lua
--[[
|
|
Mod Telepro para Minetest
|
|
Copyright (C) 2017 BrunoMine (https://github.com/BrunoMine)
|
|
|
|
Recebeste uma cópia da GNU Lesser General
|
|
Public License junto com esse software,
|
|
se não, veja em <http://www.gnu.org/licenses/>.
|
|
|
|
Visitas
|
|
]]
|
|
|
|
-- Acesar interface do jogador para visitas
|
|
telepro.acessar_visitas = function(player, tipo)
|
|
if not player then
|
|
minetest.log("error", "[Telepro] player == nil (em telepro.acessar_visitas)")
|
|
return false
|
|
end
|
|
|
|
local formspec
|
|
local temp = telepro.online[player:get_player_name()]
|
|
|
|
if not temp.pedidos_visita then temp.pedidos_visita = {} end
|
|
|
|
if tipo == "proprio" then
|
|
local visitas = ""
|
|
for n,v in pairs(temp.pedidos_visita) do
|
|
if visitas ~= "" then visitas = visitas .. "," end
|
|
visitas = visitas .. n
|
|
end
|
|
|
|
-- Cria formspec
|
|
formspec = "size[5,3]"
|
|
..default.gui_bg
|
|
..default.gui_bg_img
|
|
.."label[0,0;Pedidos recebidos]"
|
|
.."dropdown[0,0.5;5.25,1;visita;"..visitas..";]"
|
|
.."button[0,1.15;5,1;receber_visita;Receber seguidor]"
|
|
|
|
.."image[0.4,2;1.5,1.5;telepro_aceitar_visita.png]"
|
|
.."button[2,2.25;3,1;voltar;Voltar]"
|
|
|
|
elseif tipo == "centro" then
|
|
-- Cria formspec
|
|
formspec = "size[5,3]"
|
|
..default.gui_bg
|
|
..default.gui_bg_img
|
|
.."field[0.28,0.8;5,1;visitado;Seguir jogador;]"
|
|
.."button_exit[0,1.25;5,1;enviar_pedido;Enviar pedido]"
|
|
|
|
.."image[0.4,2;1.5,1.5;telepro_visitar.png]"
|
|
.."button[2,2.25;3,1;voltar;Voltar]"
|
|
end
|
|
|
|
-- Exibir formspec
|
|
minetest.show_formspec(player:get_player_name(), "telepro:jogador_visitas_"..tipo, formspec)
|
|
end
|
|
|
|
|
|
-- Receber botoes
|
|
minetest.register_on_player_receive_fields(function(player, formname, fields)
|
|
|
|
if formname == "telepro:jogador_visitas_centro" then
|
|
|
|
if fields.enviar_pedido and fields.visitado ~= "" then -- Jogador online
|
|
|
|
local name = player:get_player_name()
|
|
|
|
if name == fields.visitado then
|
|
minetest.chat_send_player(name, "Nao podes seguir a si mesmo")
|
|
return
|
|
end
|
|
|
|
if not telepro.online[fields.visitado] then
|
|
minetest.chat_send_player(name, "\""..fields.visitado.."\" offline ou inexistente")
|
|
return
|
|
end
|
|
|
|
local temp = telepro.online[fields.visitado]
|
|
|
|
if not temp.pedidos_visita then temp.pedidos_visita = {} end
|
|
|
|
-- Insere nome na tabela de pedidos
|
|
temp.pedidos_visita[name] = true
|
|
|
|
minetest.chat_send_player(name, "Pedido enviado a \""..fields.visitado.."\". Avise para aceitar")
|
|
|
|
elseif fields.voltar then
|
|
telepro.acessar_bau_spawn(player)
|
|
return
|
|
end
|
|
|
|
elseif formname == "telepro:jogador_visitas_proprio" then
|
|
|
|
|
|
if fields.receber_visita and fields.visita ~= "" then
|
|
|
|
local name = player:get_player_name()
|
|
local temp = telepro.online[name]
|
|
|
|
-- Verifica se pedido ainda existe
|
|
if not fields.visita or not temp.pedidos_visita[fields.visita] then
|
|
minetest.chat_send_player(name, "Pedido invalido "..dump(fields.visita))
|
|
return
|
|
end
|
|
|
|
-- Verifica se o visitante ainda esta online
|
|
if not telepro.online[fields.visita] then
|
|
minetest.chat_send_player(name, "\""..fields.visita.."\" offline")
|
|
return
|
|
end
|
|
|
|
local visitante = minetest.get_player_by_name(fields.visita)
|
|
|
|
-- Verifica se visitante esta perto do balao de centro
|
|
if not minetest.find_node_near(visitante:getpos(), 25, {"telepro:bau_spawn"}) then
|
|
minetest.chat_send_player(name, "\""..fields.visita.."\" saiu de perto do balao do centro")
|
|
minetest.chat_send_player(fields.visita, "Seu pedido para seguir \""..name.."\" foi aceito mas voce se afastou do balao")
|
|
return
|
|
end
|
|
|
|
-- Teleporta jogador
|
|
visitante:setpos(player:getpos())
|
|
temp.pedidos_visita[fields.visita] = nil
|
|
minetest.chat_send_player(name, "\""..fields.visita.."\" te seguiu")
|
|
minetest.chat_send_player(fields.visita, "Voce seguiu \""..name.."\"")
|
|
|
|
elseif fields.voltar then
|
|
telepro.acessar_bau(player)
|
|
return
|
|
end
|
|
|
|
end
|
|
|
|
end)
|