BrunoMine
parent
32af53922a
commit
c51bece24c
3
init.lua
3
init.lua
|
|
@ -23,8 +23,9 @@ macroloja = {}
|
|||
|
||||
-- Carregar scripts
|
||||
notificar("Carregando...")
|
||||
dofile(modpath.."/shop.lua")
|
||||
dofile(modpath.."/drop.lua")
|
||||
dofile(modpath.."/shop.lua")
|
||||
dofile(modpath.."/shop_admin.lua")
|
||||
notificar("OK")
|
||||
|
||||
|
||||
|
|
|
|||
3
shop.lua
3
shop.lua
|
|
@ -414,9 +414,6 @@ minetest.register_on_player_receive_fields(function(player, formname, fields)
|
|||
|
||||
end
|
||||
|
||||
-- Tocar som de troca feita
|
||||
tocar_som_troca(pos)
|
||||
|
||||
return
|
||||
|
||||
elseif fields.quit then
|
||||
|
|
|
|||
|
|
@ -0,0 +1,421 @@
|
|||
--[[
|
||||
Mod MacroLoja 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/>.
|
||||
|
||||
Bau de trocas
|
||||
]]
|
||||
|
||||
|
||||
|
||||
-- Controle de bau acessado
|
||||
local acesso_bau = {}
|
||||
-- Remove valor quando jogador sair
|
||||
minetest.register_on_leaveplayer(function(player)
|
||||
acesso_bau[player:get_player_name()] = nil
|
||||
end)
|
||||
|
||||
-- Tocar som de troca feita
|
||||
local tocar_som_troca = function(pos)
|
||||
minetest.sound_play("macroloja_troca", {
|
||||
pos = pos,
|
||||
max_hear_distance = 5,
|
||||
gain = 1.0,
|
||||
})
|
||||
end
|
||||
|
||||
|
||||
-- Trocar
|
||||
--[[
|
||||
Retorna nil caso os dados sejam invalidos
|
||||
Retorna 1 quando tudo deu certo
|
||||
Retorna 2 quando o vendedor esta lotado
|
||||
Retorna 3 quando o vendedor nao tem mais estoque
|
||||
Retorna 4 quando o jogador esta lotado
|
||||
Retorna 5 quando o jogador nao consegue pagar
|
||||
]]
|
||||
local trocar = function(inv_comprador, list_pagante, list_recebedor, inv_vendedor, list_estoque, list_lucro, list_custo, list_oferta)
|
||||
|
||||
-- Ajustar tabelas
|
||||
local tb_custo = {}
|
||||
local tb_oferta = {}
|
||||
for i=1, 4, 1 do
|
||||
local item = inv_vendedor:get_stack(list_custo, i)
|
||||
if item:get_name() ~= "" then
|
||||
if not tb_custo[item:get_name()] then
|
||||
tb_custo[item:get_name()] = item:get_count()
|
||||
else
|
||||
tb_custo[item:get_name()] = tb_custo[item:get_name()] + item:get_count()
|
||||
end
|
||||
end
|
||||
end
|
||||
for i=1, 4, 1 do
|
||||
local item = inv_vendedor:get_stack(list_oferta, i)
|
||||
if item:get_name() ~= "" then
|
||||
if not tb_oferta[item:get_name()] then
|
||||
tb_oferta[item:get_name()] = item:get_count()
|
||||
else
|
||||
tb_oferta[item:get_name()] = tb_oferta[item:get_name()] + item:get_count()
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
-- Verificar se vendedor consegue vender [DESATIVADO PARA ADMIN]
|
||||
-- Verifica se vendedor possui estoque
|
||||
-- for item, qtd in pairs(tb_oferta) do
|
||||
-- if inv_vendedor:contains_item(list_estoque, item.." "..qtd) == false then
|
||||
-- return 3
|
||||
-- end
|
||||
-- end
|
||||
-- Verifica se vendedor esta lotado
|
||||
-- for item, qtd in pairs(tb_custo) do
|
||||
-- if inv_vendedor:room_for_item(list_lucro, item.." "..qtd) == false then
|
||||
-- return 2
|
||||
-- end
|
||||
-- end
|
||||
|
||||
-- Veriica se o comprador consegue comprar
|
||||
-- Verifica se comprador consegue pagar
|
||||
for item, qtd in pairs(tb_custo) do
|
||||
if inv_comprador:contains_item(list_pagante, item.." "..qtd) == false then
|
||||
return 5
|
||||
end
|
||||
end
|
||||
-- Verifica se comprador esta lotado
|
||||
for item, qtd in pairs(tb_oferta) do
|
||||
if inv_comprador:room_for_item(list_recebedor, item.." "..qtd) == false then
|
||||
return 4
|
||||
end
|
||||
end
|
||||
|
||||
-- Realiza a troca
|
||||
-- Retira itens do comprador e passa para o vendedor
|
||||
for item, qtd in pairs(tb_custo) do
|
||||
-- Retira itens do comprador
|
||||
inv_comprador:remove_item(list_pagante, item.." "..qtd)
|
||||
-- Adiciona itens ao vendedor [DESATIVADO PARA ADMIN]
|
||||
-- inv_vendedor:add_item(list_lucro, item.." "..qtd)
|
||||
end
|
||||
-- Retira itens do vendedor e passa para o comprador
|
||||
for item, qtd in pairs(tb_oferta) do
|
||||
-- Retira itens do vendedor [DESATIVADO PARA ADMIN]
|
||||
-- inv_vendedor:remove_item(list_estoque, item.." "..qtd)
|
||||
-- Adiciona itens ao comprador
|
||||
inv_comprador:add_item(list_recebedor, item.." "..qtd)
|
||||
end
|
||||
|
||||
return 1
|
||||
|
||||
end
|
||||
|
||||
-- Verificar se bau pode estar ativo
|
||||
local verif_bau_ativo = function(pos)
|
||||
local meta = minetest.get_meta(pos)
|
||||
local inv = meta:get_inventory()
|
||||
|
||||
-- Zerar numero de vendas
|
||||
meta:set_float("vendas", 0)
|
||||
|
||||
-- Verifica se um dos dois esta vazio
|
||||
if inv:is_empty("oferta") == true or inv:is_empty("custo") == true then
|
||||
meta:set_string("status", "inativo")
|
||||
return
|
||||
end
|
||||
|
||||
-- Verifica cada um dos itens de oferta
|
||||
for i=1, 4, 1 do
|
||||
local item = inv:get_stack("oferta", i)
|
||||
if item:get_wear() ~= 0 or item:get_metadata() ~= "" then
|
||||
meta:set_string("status", "inativo")
|
||||
return
|
||||
end
|
||||
end
|
||||
-- Verifica cada um dos itens de custo
|
||||
for i=1, 4, 1 do
|
||||
local item = inv:get_stack("custo", i)
|
||||
if item:get_wear() ~= 0 or item:get_metadata() ~= "" then
|
||||
meta:set_string("status", "inativo")
|
||||
return
|
||||
end
|
||||
end
|
||||
|
||||
-- Ativa o bau para vendas
|
||||
meta:set_string("status", "ativo")
|
||||
|
||||
end
|
||||
|
||||
-- Bau de venda
|
||||
minetest.register_node("macroloja:shop_admin", {
|
||||
|
||||
description = "Bau de Venda Administrativo",
|
||||
paramtype2 = "facedir",
|
||||
tiles = {
|
||||
"default_chest_top.png",
|
||||
"default_chest_top.png^macroloja_shop_top.png",
|
||||
"default_chest_side.png",
|
||||
"default_chest_side.png",
|
||||
"default_chest_front.png",
|
||||
"default_chest_inside.png^macroloja_shop_front.png"
|
||||
},
|
||||
tiles = {
|
||||
"default_chest_top.png^macroloja_shop_top.png",
|
||||
"default_chest_top.png",
|
||||
"default_chest_side.png",
|
||||
"default_chest_side.png",
|
||||
"default_chest_side.png",
|
||||
"default_chest_front.png^macroloja_shop_front.png"
|
||||
},
|
||||
groups = {choppy=2,oddly_breakable_by_hand=2},
|
||||
sounds = default.node_sound_wood_defaults(),
|
||||
|
||||
|
||||
can_dig = function(pos, player)
|
||||
if minetest.check_player_privs(player:get_player_name(), {protection_bypass=true})
|
||||
then
|
||||
return true
|
||||
else
|
||||
return false
|
||||
end
|
||||
end,
|
||||
|
||||
after_place_node = function(pos, placer, itemstack)
|
||||
|
||||
-- Salvar metadados iniciais
|
||||
local meta = minetest.get_meta(pos)
|
||||
meta:set_string("infotext", "Bau de Venda")
|
||||
meta:set_string("status", "inativo")
|
||||
meta:set_float("vendas", 0)
|
||||
|
||||
-- Inventarios do bau
|
||||
local inv = meta:get_inventory()
|
||||
inv:set_size("oferta", 4*1)
|
||||
inv:set_size("custo", 4*1)
|
||||
inv:set_size("estoque", 2*4)
|
||||
inv:set_size("lucro", 2*4)
|
||||
|
||||
end,
|
||||
|
||||
on_rightclick = function(pos, node, clicker, itemstack)
|
||||
|
||||
local name = clicker:get_player_name()
|
||||
local meta = minetest.get_meta(pos)
|
||||
|
||||
-- Armazena o bau acessado
|
||||
acesso_bau[name] = pos
|
||||
|
||||
-- Acesso do dono
|
||||
if minetest.check_player_privs(name, {protection_bypass=true}) then
|
||||
|
||||
-- Exibe formspec
|
||||
minetest.show_formspec(name, "macroloja:shop_admin_dono",
|
||||
"size[10,9]"
|
||||
|
||||
-- Inventario do jogador
|
||||
..default.gui_bg
|
||||
..default.gui_bg_img
|
||||
..default.gui_slots
|
||||
.."list[current_player;main;1,4.85;8,1;]"
|
||||
.."list[current_player;main;1,6.08;8,3;8]"
|
||||
.."listring[current_player;main]"
|
||||
..default.get_hotbar_bg(1,4.85)
|
||||
|
||||
-- Estoque [CANCELADO PARA ADMIN]
|
||||
-- .."label[0,-0.1;Estoque]"
|
||||
-- .."list[nodemeta:"..pos.x..","..pos.y..","..pos.z..";estoque;0,0.3;2,4;]"
|
||||
-- .."listring[nodemeta:"..pos.x..","..pos.y..","..pos.z..";estoque]"
|
||||
|
||||
-- Lucro [CANCELADO PARA ADMIN]
|
||||
-- .."label[8,-0.1;Lucro]"
|
||||
-- .."list[nodemeta:"..pos.x..","..pos.y..","..pos.z..";lucro;8,0.3;2,4;]"
|
||||
-- .."listring[nodemeta:"..pos.x..","..pos.y..","..pos.z..";lucro]"
|
||||
|
||||
-- Oferta
|
||||
.."label[3,0.3;Oferta]"
|
||||
.."list[nodemeta:"..pos.x..","..pos.y..","..pos.z..";oferta;3,0.8;4,1;]"
|
||||
.."listring[nodemeta:"..pos.x..","..pos.y..","..pos.z..";oferta]"
|
||||
-- .."image[2,0.8;1,1;gui_furnace_arrow_bg.png^[transformR270]"
|
||||
|
||||
-- Custo
|
||||
.."label[3,2.3;Custo]"
|
||||
.."list[nodemeta:"..pos.x..","..pos.y..","..pos.z..";custo;3,2.8;4,1;]"
|
||||
.."listring[nodemeta:"..pos.x..","..pos.y..","..pos.z..";custo]"
|
||||
-- .."image[7,2.8;1,1;gui_furnace_arrow_bg.png^[transformR270]"
|
||||
|
||||
-- Seta pra baixo
|
||||
.."image[4.5,1.8;1,1;gui_furnace_arrow_bg.png^[transformR180]"
|
||||
|
||||
-- Trocas feitas
|
||||
.."label[3,3.8;Vendas feitas: "..meta:get_float("vendas").."]"
|
||||
|
||||
-- Botoes de troca rapida [CANCELADOS]
|
||||
--.."image_button[0,4.3;1,1;macroloja_bt_fast_up.png;reabastecer;]"
|
||||
--.."image_button[9,4.3;1,1;macroloja_bt_fast_down.png;receber;]"
|
||||
|
||||
)
|
||||
|
||||
return
|
||||
end
|
||||
|
||||
-- Exibe formspec
|
||||
minetest.show_formspec(name, "macroloja:shop_admin",
|
||||
"size[8,9]"
|
||||
|
||||
-- Inventario do jogador
|
||||
..default.gui_bg
|
||||
..default.gui_bg_img
|
||||
..default.gui_slots
|
||||
.."list[current_player;main;0,4.85;8,1;]"
|
||||
.."list[current_player;main;0,6.08;8,3;8]"
|
||||
.."listring[current_player;main]"
|
||||
..default.get_hotbar_bg(0,4.85)
|
||||
|
||||
-- Custo
|
||||
.."label[2,0.3;Custo]"
|
||||
.."list[nodemeta:"..pos.x..","..pos.y..","..pos.z..";custo;2,0.8;4,1;]"
|
||||
.."listring[nodemeta:"..pos.x..","..pos.y..","..pos.z..";custo]"
|
||||
|
||||
-- Oferta
|
||||
.."label[2,2.8;Oferta]"
|
||||
.."list[nodemeta:"..pos.x..","..pos.y..","..pos.z..";oferta;2,3.3;4,1;]"
|
||||
.."listring[nodemeta:"..pos.x..","..pos.y..","..pos.z..";oferta]"
|
||||
|
||||
-- Seta pra baixo
|
||||
.."image[2,1.8;1,1;gui_furnace_arrow_bg.png^[transformR180]"
|
||||
|
||||
-- Botão de troca
|
||||
.."button[3,1.8;2,1;trocar;Comprar]"
|
||||
|
||||
-- Botoes de troca rapida
|
||||
.."image_button[5,1.8;1,1;macroloja_bt_fast_down.png;trocar10x;10x]"
|
||||
|
||||
)
|
||||
|
||||
end,
|
||||
|
||||
on_destruct = function(pos)
|
||||
local meta = minetest.get_meta(pos)
|
||||
local inv = meta:get_inventory()
|
||||
|
||||
-- Dropar itens
|
||||
macroloja.drop_inventory(pos, inv, "estoque")
|
||||
macroloja.drop_inventory(pos, inv, "oferta")
|
||||
macroloja.drop_inventory(pos, inv, "custo")
|
||||
macroloja.drop_inventory(pos, inv, "lucro")
|
||||
|
||||
end,
|
||||
|
||||
-- Verificar permissão de acesso ao bau
|
||||
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
|
||||
if minetest.check_player_privs(player:get_player_name(), {protection_bypass=true}) then return count else return 0 end
|
||||
end,
|
||||
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
|
||||
if minetest.check_player_privs(player:get_player_name(), {protection_bypass=true})
|
||||
then return stack:get_count() else return 0 end
|
||||
end,
|
||||
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
|
||||
if minetest.check_player_privs(player:get_player_name(), {protection_bypass=true})
|
||||
then return stack:get_count() else return 0 end
|
||||
end,
|
||||
|
||||
-- Verificar se mudança no inventario permite ativar trocas
|
||||
on_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
|
||||
if from_list == "oferta" or from_list == "custo"
|
||||
or to_list == "oferta" or to_list == "custo"
|
||||
then verif_bau_ativo(pos) end
|
||||
end,
|
||||
on_metadata_inventory_put = function(pos, listname, index, stack, player)
|
||||
if listname == "custo" or listname == "oferta" then verif_bau_ativo(pos) end
|
||||
end,
|
||||
on_metadata_inventory_take = function(pos, listname, index, stack, player)
|
||||
if listname == "custo" or listname == "oferta" then verif_bau_ativo(pos) end
|
||||
end,
|
||||
})
|
||||
|
||||
|
||||
minetest.register_on_player_receive_fields(function(player, formname, fields)
|
||||
|
||||
-- Clientes
|
||||
if formname == "macroloja:shop_admin" then
|
||||
local name = player:get_player_name()
|
||||
local pos = acesso_bau[name]
|
||||
local meta = minetest.get_meta(pos)
|
||||
|
||||
|
||||
-- Troca
|
||||
if fields.trocar and meta:get_string("status") == "ativo" then
|
||||
|
||||
-- Tentativa de troca
|
||||
local troca = trocar(player:get_inventory(), "main", "main", meta:get_inventory(), "estoque", "lucro", "custo", "oferta")
|
||||
|
||||
if troca == 2 then
|
||||
minetest.chat_send_player(name, "Bau com problemas de estoque. Aguarde o vendedor verificar.")
|
||||
elseif troca == 3 then
|
||||
minetest.chat_send_player(name, "Bau com problemas de estoque. Aguarde o vendedor verificar.")
|
||||
elseif troca == 4 then
|
||||
minetest.chat_send_player(name, "Inventario lotado. Esvazie um pouco seu inventario.")
|
||||
elseif troca == 5 then
|
||||
minetest.chat_send_player(name, "Itens insuficientes para pagar pela compra.")
|
||||
end
|
||||
|
||||
if troca == 1 then
|
||||
|
||||
meta:set_float("vendas", meta:get_float("vendas") + 1)
|
||||
|
||||
-- Tocar som de troca feita
|
||||
tocar_som_troca(pos)
|
||||
|
||||
end
|
||||
|
||||
return
|
||||
|
||||
elseif fields.trocar10x then
|
||||
|
||||
-- Tentativa de primeira troca
|
||||
local troca = trocar(player:get_inventory(), "main", "main", meta:get_inventory(), "estoque", "lucro", "custo", "oferta")
|
||||
|
||||
if troca == 2 then
|
||||
minetest.chat_send_player(name, "Bau com problemas de estoque. Aguarde o vendedor verificar.")
|
||||
elseif troca == 3 then
|
||||
minetest.chat_send_player(name, "Bau com problemas de estoque. Aguarde o vendedor verificar.")
|
||||
elseif troca == 4 then
|
||||
minetest.chat_send_player(name, "Inventario lotado. Esvazie um pouco seu inventario.")
|
||||
elseif troca == 5 then
|
||||
minetest.chat_send_player(name, "Itens insuficientes para pagar pela compra.")
|
||||
end
|
||||
|
||||
if troca == 1 then
|
||||
|
||||
meta:set_float("vendas", meta:get_float("vendas") + 1)
|
||||
|
||||
-- Tocar som de troca feita
|
||||
tocar_som_troca(pos)
|
||||
|
||||
-- Tenta trocar mais 9
|
||||
do
|
||||
local i = 0
|
||||
while i < 9
|
||||
and trocar(player:get_inventory(), "main", "main", meta:get_inventory(), "estoque", "lucro", "custo", "oferta") == 1
|
||||
do
|
||||
meta:set_float("vendas", meta:get_float("vendas") + 1)
|
||||
i = i + 1
|
||||
end
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
return
|
||||
|
||||
elseif fields.quit then
|
||||
|
||||
return
|
||||
|
||||
-- Nenhum botao valido ate aqui
|
||||
else
|
||||
minetest.chat_send_player(name, "Bau de venda inativo")
|
||||
end
|
||||
end
|
||||
end)
|
||||
|
||||
Loading…
Reference in New Issue