Lançamento
BrunoMine
parent
4262446774
commit
dddb15fa8a
|
|
@ -0,0 +1,165 @@
|
|||
GNU LESSER GENERAL PUBLIC LICENSE
|
||||
Version 3, 29 June 2007
|
||||
|
||||
Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
|
||||
Everyone is permitted to copy and distribute verbatim copies
|
||||
of this license document, but changing it is not allowed.
|
||||
|
||||
|
||||
This version of the GNU Lesser General Public License incorporates
|
||||
the terms and conditions of version 3 of the GNU General Public
|
||||
License, supplemented by the additional permissions listed below.
|
||||
|
||||
0. Additional Definitions.
|
||||
|
||||
As used herein, "this License" refers to version 3 of the GNU Lesser
|
||||
General Public License, and the "GNU GPL" refers to version 3 of the GNU
|
||||
General Public License.
|
||||
|
||||
"The Library" refers to a covered work governed by this License,
|
||||
other than an Application or a Combined Work as defined below.
|
||||
|
||||
An "Application" is any work that makes use of an interface provided
|
||||
by the Library, but which is not otherwise based on the Library.
|
||||
Defining a subclass of a class defined by the Library is deemed a mode
|
||||
of using an interface provided by the Library.
|
||||
|
||||
A "Combined Work" is a work produced by combining or linking an
|
||||
Application with the Library. The particular version of the Library
|
||||
with which the Combined Work was made is also called the "Linked
|
||||
Version".
|
||||
|
||||
The "Minimal Corresponding Source" for a Combined Work means the
|
||||
Corresponding Source for the Combined Work, excluding any source code
|
||||
for portions of the Combined Work that, considered in isolation, are
|
||||
based on the Application, and not on the Linked Version.
|
||||
|
||||
The "Corresponding Application Code" for a Combined Work means the
|
||||
object code and/or source code for the Application, including any data
|
||||
and utility programs needed for reproducing the Combined Work from the
|
||||
Application, but excluding the System Libraries of the Combined Work.
|
||||
|
||||
1. Exception to Section 3 of the GNU GPL.
|
||||
|
||||
You may convey a covered work under sections 3 and 4 of this License
|
||||
without being bound by section 3 of the GNU GPL.
|
||||
|
||||
2. Conveying Modified Versions.
|
||||
|
||||
If you modify a copy of the Library, and, in your modifications, a
|
||||
facility refers to a function or data to be supplied by an Application
|
||||
that uses the facility (other than as an argument passed when the
|
||||
facility is invoked), then you may convey a copy of the modified
|
||||
version:
|
||||
|
||||
a) under this License, provided that you make a good faith effort to
|
||||
ensure that, in the event an Application does not supply the
|
||||
function or data, the facility still operates, and performs
|
||||
whatever part of its purpose remains meaningful, or
|
||||
|
||||
b) under the GNU GPL, with none of the additional permissions of
|
||||
this License applicable to that copy.
|
||||
|
||||
3. Object Code Incorporating Material from Library Header Files.
|
||||
|
||||
The object code form of an Application may incorporate material from
|
||||
a header file that is part of the Library. You may convey such object
|
||||
code under terms of your choice, provided that, if the incorporated
|
||||
material is not limited to numerical parameters, data structure
|
||||
layouts and accessors, or small macros, inline functions and templates
|
||||
(ten or fewer lines in length), you do both of the following:
|
||||
|
||||
a) Give prominent notice with each copy of the object code that the
|
||||
Library is used in it and that the Library and its use are
|
||||
covered by this License.
|
||||
|
||||
b) Accompany the object code with a copy of the GNU GPL and this license
|
||||
document.
|
||||
|
||||
4. Combined Works.
|
||||
|
||||
You may convey a Combined Work under terms of your choice that,
|
||||
taken together, effectively do not restrict modification of the
|
||||
portions of the Library contained in the Combined Work and reverse
|
||||
engineering for debugging such modifications, if you also do each of
|
||||
the following:
|
||||
|
||||
a) Give prominent notice with each copy of the Combined Work that
|
||||
the Library is used in it and that the Library and its use are
|
||||
covered by this License.
|
||||
|
||||
b) Accompany the Combined Work with a copy of the GNU GPL and this license
|
||||
document.
|
||||
|
||||
c) For a Combined Work that displays copyright notices during
|
||||
execution, include the copyright notice for the Library among
|
||||
these notices, as well as a reference directing the user to the
|
||||
copies of the GNU GPL and this license document.
|
||||
|
||||
d) Do one of the following:
|
||||
|
||||
0) Convey the Minimal Corresponding Source under the terms of this
|
||||
License, and the Corresponding Application Code in a form
|
||||
suitable for, and under terms that permit, the user to
|
||||
recombine or relink the Application with a modified version of
|
||||
the Linked Version to produce a modified Combined Work, in the
|
||||
manner specified by section 6 of the GNU GPL for conveying
|
||||
Corresponding Source.
|
||||
|
||||
1) Use a suitable shared library mechanism for linking with the
|
||||
Library. A suitable mechanism is one that (a) uses at run time
|
||||
a copy of the Library already present on the user's computer
|
||||
system, and (b) will operate properly with a modified version
|
||||
of the Library that is interface-compatible with the Linked
|
||||
Version.
|
||||
|
||||
e) Provide Installation Information, but only if you would otherwise
|
||||
be required to provide such information under section 6 of the
|
||||
GNU GPL, and only to the extent that such information is
|
||||
necessary to install and execute a modified version of the
|
||||
Combined Work produced by recombining or relinking the
|
||||
Application with a modified version of the Linked Version. (If
|
||||
you use option 4d0, the Installation Information must accompany
|
||||
the Minimal Corresponding Source and Corresponding Application
|
||||
Code. If you use option 4d1, you must provide the Installation
|
||||
Information in the manner specified by section 6 of the GNU GPL
|
||||
for conveying Corresponding Source.)
|
||||
|
||||
5. Combined Libraries.
|
||||
|
||||
You may place library facilities that are a work based on the
|
||||
Library side by side in a single library together with other library
|
||||
facilities that are not Applications and are not covered by this
|
||||
License, and convey such a combined library under terms of your
|
||||
choice, if you do both of the following:
|
||||
|
||||
a) Accompany the combined library with a copy of the same work based
|
||||
on the Library, uncombined with any other library facilities,
|
||||
conveyed under the terms of this License.
|
||||
|
||||
b) Give prominent notice with the combined library that part of it
|
||||
is a work based on the Library, and explaining where to find the
|
||||
accompanying uncombined form of the same work.
|
||||
|
||||
6. Revised Versions of the GNU Lesser General Public License.
|
||||
|
||||
The Free Software Foundation may publish revised and/or new versions
|
||||
of the GNU Lesser General Public License from time to time. Such new
|
||||
versions will be similar in spirit to the present version, but may
|
||||
differ in detail to address new problems or concerns.
|
||||
|
||||
Each version is given a distinguishing version number. If the
|
||||
Library as you received it specifies that a certain numbered version
|
||||
of the GNU Lesser General Public License "or any later version"
|
||||
applies to it, you have the option of following the terms and
|
||||
conditions either of that published version or of any later version
|
||||
published by the Free Software Foundation. If the Library as you
|
||||
received it does not specify a version number of the GNU Lesser
|
||||
General Public License, you may choose any version of the GNU Lesser
|
||||
General Public License ever published by the Free Software Foundation.
|
||||
|
||||
If the Library as you received it specifies that a proxy can decide
|
||||
whether future versions of the GNU Lesser General Public License shall
|
||||
apply, that proxy's public statement of acceptance of any version is
|
||||
permanent authorization for you to choose that version for the
|
||||
Library.
|
||||
39
README.md
39
README.md
|
|
@ -1 +1,38 @@
|
|||
macroloja
|
||||
# Macroloja v1.0.0
|
||||
|
||||
[](https://github.com/BrunoMine/macroloja/archive/v1.0.0.zip)
|
||||
[](https://github.com/BrunoMine/macroloja)
|
||||
[](https://minetest-bower.herokuapp.com/mods/macroloja)
|
||||
[](https://github.com/BrunoMine/macroloja/blob/master/LICENSE)
|
||||
|
||||
## Descrição
|
||||
Adiciona um bau de troca de itens para lojas
|
||||
|
||||
## Recursos do projeto
|
||||
|
||||
* [Baixar](https://github.com/BrunoMine/macroloja/archive/v1.0.0.zip)
|
||||
* [Projeto](https://github.com/BrunoMine/macroloja)
|
||||
* [Bower](https://minetest-bower.herokuapp.com/mods/macroloja)
|
||||
|
||||
## Requisitos
|
||||
|
||||
* Minetest 0.4.16 ou superior
|
||||
* Mod default
|
||||
* Mod wool
|
||||
|
||||
## Privilégios
|
||||
|
||||
* `macroloja_admin` : Permite ver baus como administrador
|
||||
|
||||
## Licença
|
||||
Veja LICENSE.txt para informações detalhadas da licença LGPL 3.0
|
||||
|
||||
### Autores do código fonte
|
||||
Originalmente por BrunoMine, Bruno Borges <borgesdossantosbruno@gmail.com> (LGPL 3.0)
|
||||
|
||||
### Autores de mídias (texturas, modelos and sons)
|
||||
Todos que não estao listados aqui:
|
||||
BrunoMine, Bruno Borges <borgesdossantosbruno@gmail.com> (CC BY-SA 3.0)
|
||||
|
||||
Sir Smith (CC Sampling Plus 1.0)
|
||||
macroloja_troca.ogg
|
||||
|
|
|
|||
|
|
@ -0,0 +1,2 @@
|
|||
default
|
||||
wool
|
||||
|
|
@ -0,0 +1,62 @@
|
|||
|
||||
-- Arredondar coordenada
|
||||
local arredondar = function(pos)
|
||||
local r = {}
|
||||
if pos.x > (math.floor(pos.x)+0.5) then
|
||||
r.x = math.ceil(pos.x)
|
||||
else
|
||||
r.x = math.floor(pos.x)
|
||||
end
|
||||
if pos.y > (math.floor(pos.y)+0.5) then
|
||||
r.y = math.ceil(pos.y)
|
||||
else
|
||||
r.y = math.floor(pos.y)
|
||||
end
|
||||
if pos.z > (math.floor(pos.z)+0.5) then
|
||||
r.z = math.ceil(pos.z)
|
||||
else
|
||||
r.z = math.floor(pos.z)
|
||||
end
|
||||
return r
|
||||
end
|
||||
|
||||
-- Puxar item para o centro
|
||||
local puxar_centro = function(pos)
|
||||
local cp = arredondar(pos)
|
||||
local r = {x=pos.x, y=pos.y, z=pos.z}
|
||||
|
||||
if pos.x > cp.x + 0.25 then
|
||||
r.x = cp.x + 0.25
|
||||
elseif pos.x < cp.x - 0.25 then
|
||||
r.x = cp.x - 0.25
|
||||
end
|
||||
if pos.z > cp.z + 0.25 then
|
||||
r.z = cp.z + 0.25
|
||||
elseif pos.z < cp.z - 0.25 then
|
||||
r.z = cp.z - 0.25
|
||||
end
|
||||
|
||||
return r
|
||||
end
|
||||
|
||||
-- Dropar itens de um inventario
|
||||
macroloja.drop_inventory = function(pos, inv, name)
|
||||
if not inv or not pos or not name then return false end
|
||||
|
||||
local size = inv:get_size(name)
|
||||
|
||||
for i = 1, size, 1 do
|
||||
local item = inv:get_stack(name, i)
|
||||
|
||||
if item ~= nil then
|
||||
local pd = {x = pos.x + (math.random(1, 60)/100)*2-0.6, y = pos.y+0.5, z = pos.z + (math.random(1, 60)/100)*2-0.6}
|
||||
if minetest.get_node(pd).name ~= "air" then
|
||||
pd = {x = pos.x + (math.random(1, 30)/100)*2-0.3, y = pos.y+0.5, z = pos.z + (math.random(1, 30)/100)*2-0.3}
|
||||
end
|
||||
|
||||
minetest.add_item(puxar_centro(pd), item)
|
||||
inv:set_stack(name, i, "")
|
||||
end
|
||||
end
|
||||
|
||||
end
|
||||
|
|
@ -0,0 +1,27 @@
|
|||
--
|
||||
-- Mod macroloja
|
||||
--
|
||||
-- Inicializador
|
||||
--
|
||||
|
||||
-- Notificador de Inicializador
|
||||
local notificar = function(msg)
|
||||
if minetest.setting_get("log_mods") then
|
||||
minetest.debug("[Macroloja] "..msg)
|
||||
end
|
||||
end
|
||||
|
||||
local modpath = minetest.get_modpath("macroloja")
|
||||
|
||||
-- Variavel global
|
||||
macroloja = {}
|
||||
|
||||
-- Carregar scripts
|
||||
notificar("Carregando...")
|
||||
dofile(modpath.."/shop.lua")
|
||||
dofile(modpath.."/drop.lua")
|
||||
notificar("OK")
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,439 @@
|
|||
|
||||
-- Criar verificador se o bau está sendo editado
|
||||
|
||||
-- Verificador de ultimo bau
|
||||
|
||||
|
||||
-- Privilegio para administradores verem e mexerem nos baus
|
||||
minetest.register_privilege("macroloja_admin", "Mexer em todos os baus de venda")
|
||||
|
||||
|
||||
-- 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
|
||||
-- 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
|
||||
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
|
||||
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", {
|
||||
|
||||
description = "Bau de Venda",
|
||||
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 player:get_player_name() == minetest.get_meta(pos):get_string("dono")
|
||||
or minetest.check_player_privs(player:get_player_name(), {macroloja_admin=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 (Vendedor "..placer:get_player_name()..")")
|
||||
meta:set_string("dono", placer:get_player_name())
|
||||
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 name == minetest.get_meta(pos):get_string("dono")
|
||||
or minetest.check_player_privs(name, {macroloja_admin=true})
|
||||
then
|
||||
|
||||
-- Exibe formspec
|
||||
minetest.show_formspec(name, "macroloja:shop_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
|
||||
.."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
|
||||
.."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",
|
||||
"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 player:get_player_name() == minetest.get_meta(pos):get_string("dono")
|
||||
or minetest.check_player_privs(player:get_player_name(), {macroloja_admin=true})
|
||||
then return count else return 0 end
|
||||
end,
|
||||
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
|
||||
if player:get_player_name() == minetest.get_meta(pos):get_string("dono")
|
||||
or minetest.check_player_privs(player:get_player_name(), {macroloja_admin=true})
|
||||
then return stack:get_count() else return 0 end
|
||||
end,
|
||||
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
|
||||
if player:get_player_name() == minetest.get_meta(pos):get_string("dono")
|
||||
or minetest.check_player_privs(player:get_player_name(), {macroloja_admin=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" 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
|
||||
|
||||
-- Tocar som de troca feita
|
||||
tocar_som_troca(pos)
|
||||
|
||||
return
|
||||
|
||||
elseif fields.quit then
|
||||
|
||||
return
|
||||
|
||||
-- Nenhum botao valido ate aqui
|
||||
else
|
||||
minetest.chat_send_player(name, "Bau de venda inativo")
|
||||
end
|
||||
end
|
||||
end)
|
||||
|
||||
-- Bau de Venda
|
||||
minetest.register_craft({
|
||||
output = 'macroloja:shop',
|
||||
recipe = {
|
||||
{'wool:green', 'wool:white', 'wool:green'},
|
||||
{'wool:blue', 'default:chest_locked', 'wool:blue'},
|
||||
{'default:wood', 'default:wood', 'default:wood'},
|
||||
}
|
||||
})
|
||||
|
||||
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 9.4 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 505 B |
Binary file not shown.
|
After Width: | Height: | Size: 617 B |
Loading…
Reference in New Issue