BrunoMine
/
xpro
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Melhorias

master
BrunoMine 2018-07-15 23:37:44 -03:00
parent 462dfb2381
commit a0febf9684
4 changed files with 261 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
init.lua
View File

@ -27,12 +27,16 @@ notificar("Carregando scripts...")
-- Criação do banco de dados
xpro.bd = dofile(modpath.."/lib/memor.lua")
-- Plucar itens "PLUS"
xpro.tror = dofile(modpath.."/lib/tror.lua")
-- Variaveis personalizaveis
xpro.var = {}
-- API
dofile(modpath.."/api.lua")
dofile(modpath.."/ligas.lua")
dofile(modpath.."/shop.lua")
dofile(modpath.."/sfinv.lua")
dofile(modpath.."/progresso.lua")
dofile(modpath.."/ranking.lua")

150
lib/tror.lua Normal file
View File

@ -0,0 +1,150 @@
--[[
Lib Tror 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/>.
Operações de troca de itens
]]
local tror = {}
-- Verificar viabilidade de uma troca
tror.verificar = function(player, item_rem, item_add)
if not player or not item_add or not item_rem then
minetest.log("error", "[Tror] Faltou dados em (em tror.verificar)")
return false
end
local inv = player:get_inventory()
-- Verificar jogador
if not inv:contains_item("main", item_rem) then
return 1 -- Jogador nao pode pagar
elseif not inv:room_for_item("main", item_add) then
return 2 -- Jogador com inventario lotado
end
return true
end
-- Realizar uma troca entre com um jogador
tror.trocar = function(player, item_rem, item_add, msg)
if not player or not item_add or not item_rem then
minetest.log("error", "[Tror] Faltou dados em (em tror.trocar)")
return false
end
local v = tror.verificar(player, item_rem, item_add)
if v ~= true then
if v == 1 then
if msg and msg.ins then
minetest.chat_send_player(player:get_player_name(), msg.ins)
end
return 1
elseif v == 2 then
if msg and msg.lot then
minetest.chat_send_player(player:get_player_name(), msg.lot)
end
return 2
else
minetest.log("error", "[Tror] Resultado inesperado em tror.trocar (v = "..dump(v)..")")
return false
end
end
local inv = player:get_inventory()
-- Retirar itens do inventario
local i = string.split(item_rem, " ")
local n = i[2] or 1
i = i[1]
for r=1, tonumber(n) do -- 1 eh o tanto que quero tirar
inv:remove_item("main", i) -- tira 1 por vez
end
inv:add_item("main", item_add)
if msg and msg.ok then
minetest.chat_send_player(player:get_player_name(), msg.ok)
end
return true
end
-- Realizar uma troca com um jogador
--[[
Retorna false caso o jogador nao tenha os itens requisitados
e dropa no local todos os itens que não couberem no inventario
]]
tror.trocar_plus = function(player, item_rem, item_add)
if not player then
minetest.log("error", "[Tror] Faltou player (em tror.trocar_plus)")
return false
end
if item_rem and not item_rem[1] then
minetest.log("error", "[Tror] argumento item_rem invalido (em tror.trocar_plus)")
return false
end
if item_add and not item_add[1] then
minetest.log("error", "[Tror] argumento item_add invalido (em tror.trocar_plus)")
return false
end
local pos = player:getpos()
local inv = player:get_inventory()
-- Verificar se o jogador possui os itens requisitados
local possui = true
if item_rem ~= nil then
for _,item in ipairs(item_rem) do
if not inv:contains_item("main", item) then
possui = false
break
end
end
end
-- Retorna false por jogador não ter os itens requisitados
if possui == false then
return false
end
-- Retira itens do jogador
if item_rem ~= nil then
for _,item in ipairs(item_rem) do
local i = string.split(item, " ")
local n = i[2] or 1
i = i[1]
for r=1, tonumber(n) do -- 1 eh o tanto que quero tirar
inv:remove_item("main", i) -- tira 1 por vez
end
end
end
-- Transfere todos os itens ao jogador (e dropa os que nao couberem no inventario)
local dropou = false
for _,item in ipairs(item_add) do
if inv:room_for_item("main", item) then
inv:add_item("main", item)
else
dropou = true
minetest.env:add_item({x = pos.x + math.random() * 2 - 1, y = pos.y+1, z = pos.z + math.random() * 2 - 1}, item)
end
end
return true
end
return tror

6
sfinv.lua
View File

@ -22,6 +22,8 @@ sfinv.register_page("xpro:info", {
local my_xp = xpro.get_player_xp(name)
local my_lvl = xpro.get_player_lvl(name)
local xp_gasto = player:get_attribute("xpro_xp_gasto")
local xp_disp = my_xp-xp_gasto
-- Calcula progresso da barra
local progresso = 1
@ -33,6 +35,8 @@ sfinv.register_page("xpro:info", {
local formspec = "label[0,0;Nivel "..my_lvl.."]"
.."label[0,0.5;Pontos: "..my_xp.."]"
.."label[0,1;Cash XP: "..xp_disp.."]"
.."button[0,1.5;3,1;shop;Loja de Premios]"
.."button[0,2.5;3,1;ranking;Ranking Global]"
-- Liga
@ -49,6 +53,8 @@ sfinv.register_page("xpro:info", {
on_player_receive_fields = function(self, player, context, fields)
if fields.ranking then
minetest.show_formspec(player:get_player_name(), "xpro:ranking", xpro.ranking_formspec)
elseif fields.shop then
xpro.acessar_shop(player:get_player_name())
end
end,

101
shop.lua
View File

@ -11,10 +11,111 @@
local S = xpro.S
-- Assegurar dados
minetest.register_on_joinplayer(function(player)
if not player:get_attribute("xpro_xp_gasto") then
player:set_attribute("xpro_xp_gasto", 0)
end
end)
-- Controle de acessos
local acessos = {}
minetest.register_on_joinplayer(function(player)
acessos[player:get_player_name()] = {}
end)
minetest.register_on_leaveplayer(function(player)
acessos[player:get_player_name()] = nil
end)
-- Itens a venda
xpro.premios = {
{name="Terra", item="default:dirt", qtd=20, custo=5000},
{name="Pedregulho", item="default:cobble", qtd=25, custo=50},
}
-- Lista de itens do menu do shop em formato de string
local string_menu_shop = ""
local atualizar_string_menu_shop = function()
for _,d in pairs(xpro.premios) do
if string_menu_shop ~= "" then string_menu_shop = string_menu_shop .. "," end
string_menu_shop = string_menu_shop .. d.name
end
end
atualizar_string_menu_shop()
-- Acessar shop
xpro.acessar_shop = function(name, aviso)
local player = minetest.get_player_by_name(name)
local acesso = acessos[name]
local xp_gasto = player:get_attribute("xpro_xp_gasto")
local my_xp = xpro.get_player_xp(name)
local xp_disp = my_xp-xp_gasto
local formspec = "size[8,5]"
..default.gui_bg
..default.gui_bg_img
.."label[0,0;Loja de Itens por XP]"
.."label[0,0.5;Cash XP: "..xp_disp.."]"
.."textlist[3.2,0;4.5,5;menu;"..string_menu_shop.."]"
if aviso then
formspec = formspec .. "textarea[0.36,1.1;3.2,1;;"..aviso..";]"
end
-- Nenhum item escolhido
if acesso.escolha == nil then
formspec = formspec .. "label[0,2;Escolha um Item]"
-- Exibir item escolhido
else
local escolha = xpro.premios[acesso.escolha]
formspec = formspec .. "label[0,2;Custo: "..escolha.custo.."XP]"
.."label[0,2.5;Unidades: "..escolha.qtd.."]"
.."item_image_button[0,3;2.1,2.1;"..escolha.item..";comprar;Comprar]"
end
minetest.show_formspec(name, "xpro:shop", formspec)
end
-- Receber Botoes
minetest.register_on_player_receive_fields(function(player, formname, fields)
if formname == "xpro:shop" then
-- Escolher um item
if fields.menu then
local name = player:get_player_name()
local n = string.split(fields.menu, ":")
acessos[name].escolha = tonumber(n[2]) or 1
xpro.acessar_shop(name)
-- Comprar
elseif fields.comprar then
local name = player:get_player_name()
local acesso = acessos[name]
local escolha = xpro.premios[acesso.escolha]
local my_xp = xpro.get_player_xp(name)
local xp_gasto = player:get_attribute("xpro_xp_gasto")
local xp_disp = my_xp-xp_gasto
-- Tenta trocar
if xp_disp < escolha.custo then
xpro.acessar_shop(name, "Cash XP insuficiente")
else
if xpro.tror.trocar_plus(player, nil, {escolha.item.." "..escolha.qtd}) == false then
xpro.acessar_shop(name, "Inventario lotado")
else
player:set_attribute("xpro_xp_gasto", (xp_gasto+escolha.custo))
xpro.acessar_shop(name, "Adiquirido")
end
end
end
end
end)