VoxeLibre/mods/DOM/domb/domb.lua
2015-06-29 19:55:58 +02:00

452 lines
12 KiB
Lua

--Para ser usado no gerador aleatório.
domb.aleatorio = nil
--Inicialização da variável aleatoria para que seja usada quando necessário.
minetest.after(0.01, function()
domb.aleatorio=PseudoRandom(200 + (minetest.env:get_timeofday()*100000))
end)
-- Identifica vizinhança de um ponto, os pontos retornados tem a parte superior como ponto 1.
-- Totaliza atualmente água, lava e ar. Contabiliza totais e separando fontes de fluindo.
function DOM_vizinhos(ponto)
local p = {}
local vx=0
local vy=0
local vz=0
local tipo = ''
local pontos = 0
-- p.total = 0
p.total_ar = 0
p.total_lava = 0
p.total_lava_fonte = 0
p.total_agua = 0
p.total_agua_fonte = 0
p.n = {'','','','','',''}
--Começa pelo y (altura) de baixo para cima, sendo assim os 3 últimos testes serão os
for vy=-1,1 do
for vx=-1, 1 do
for vz=-1,1 do
p.n[pontos] = ''
tipo = minetest.env:get_node({x=(ponto.x + vx), y=(ponto.y + vy), z=(ponto.z + vz)}).name
--print("Ponto pego: " .. tipo)
-- Busca pontos onde dois eixos estejam zerados e um outro tenha valor.
if vx==0 and vy==0 and vz==0 then
-- Ignora caso seja exatamente o ponto testado.
elseif (vx==0 and vy==0 and vz~= 0) or (vx==0 and vz==0 and vy~=0) or (vy==0 and vz==0 and vx~=0) then
--print("Ponto: " .. tostring(vx) .. " " .. tostring(vy) .. " " .. tostring(vz) .. " (Pontos: " .. tostring(pontos) .. ")")
--print("Tipo: " .. tipo)
if tipo == "default:air" or tipo == "air" then
p.total_ar = p.total_ar + 1
--print("Ar contado, total de " .. tostring(p.total_ar))
elseif tipo == "default:water_source" or tipo == "default:water_flowing" or tipo == "default:water" then
p.total_agua = p.total_agua + 1
--print("Agua contada, total de " .. tostring(p.total_agua) .. ", tipo:" .. tipo)
if tipo == "default:water_source" then
p.total_agua_fonte = p.total_agua_fonte + 1
end
elseif tipo == "default:lava_source" or tipo == "default:lava_flowing" then
p.total_lava = p.total_lava + 1
if tipo == "default:lava_source" then
p.total_lava_fonte = p.total_lava_fonte + 1
end
end
p.n[pontos] = tipo
pontos = pontos + 1
--if(vx==0 and vz==0 and vy==-1) then
--print("Ponto n para x=0, y=-1 e z=0 é o : " .. tostring(pontos))
--end
end
end
end
end
p.total_lava_corrente = p.total_lava - p.total_lava_fonte
p.total_agua_corrente = p.total_agua - p.total_agua_fonte
-- print("Retornando total ar de :" .. tostring(p.total_ar))
return(p)
end
--[[
Rotina que pega o texto e remove eventuais símbolos não desejados.
]]--
function DOM_remove_simbolos(texto)
local t = ""
if texto == "" or texto == nil then
return("")
end
-- Remoção de símbolos proibidos.
t=string.gsub(texto, "(%[)", "")
t=string.gsub(t, "(%])", "")
t=string.gsub(t, "(%()", "")
t=string.gsub(t, "(%))", "")
t=string.gsub(t, "(#)", "")
t=string.gsub(t, "(@)", "")
t=string.gsub(t, "(?)", "")
t=string.gsub(t, "(!)", "")
t=string.gsub(t, "($)", "")
t=string.gsub(t, "(%%)", "")
t=string.gsub(t, "(&)", "")
t=string.gsub(t, "(*)", "")
t=string.gsub(t, "(=)", "")
return(t)
end
--[[
Rotina que pega o texto e remove eventuais espaços no inicio, no final e espacos duplos no meio da string.
]]--
function DOM_remove_espacos(texto)
local t = ""
if texto == "" or texto == nil then
return("")
end
t = texto
--Remove todos os espaços duplos que encontrar.
while string.find(t," ") do
t=string.gsub(texto, "( )", " ")
end
--Remove espaços no final e no início do texto.
t=string.trim(t)
return t
end
--[[
Rotina usada para inspecionar elementos retornando um relatório na linha de comando.
Aceita quantidade variável de parâmetros sendo:
1) Arquivo
2) Linha
3) Teste
4) Parâmetros
]]--
function DOM_inspeciona_condicional(...)
if(arg[3] ~= true) then return end
local a=0
local linha= {tostring(debug.getinfo(2, 'l').currentline)}
local arquivo = debug.getinfo(2, 'S').short_src or debug.getinfo(2,'S').source
if string.len(arquivo) > 25 then
arquivo = "..." arquivo:sub(string.len(arquivo)- 22)
end
if arg[2] ~= nil then
linha = arg[2]
end
if arg[1] ~= nil then
arquivo = arg[1]
end
print("====================================== [DOM Inspeciona] =======")
print(arquivo .. " [" .. linha .. "]")
print(tostring(arg[4]))
print("---------------------------------------------------------------")
for a=5,#arg,1 do
print(string.format("%s", dump(arg[a])))
end
print("");
print("-------------------------------------- [DOM Inspeciona] ---Fim-")
print(arquivo .. " [" .. linha .. "]")
print("===============================================================")
end
--[[
Chama a rotina de inpecao sem a necessidade de passar a condicao.
]]--
function DOM_inspeciona(...)
local linha = debug.getinfo(2, 'l').currentline
local arquivo = debug.getinfo(2, 'S').short_src or debug.getinfo(2,'S').source
if string.len(arquivo) > 25 then
arquivo = "..." .. arquivo:sub(arquivo:len(arquivo)- 22)
end
DOM_inspeciona_condicional(arquivo,linha,true,...)
end
--[[
Inspeção simplificada que não necessita de valores adicionais, apenas o titulo. Mostra a linha
--]]
function DOM_inspeciona_r(titulo)
if titulo == nil then
titulo = ""
end
local linha = debug.getinfo(2, 'l').currentline
local arquivo = debug.getinfo(2, 'S').short_src or debug.getinfo(2,'S').source
if string.len(arquivo) > 25 then
arquivo = "..." arquivo:sub(string.len(arquivo)- 22)
end
print(arquivo .. " [" .. linha .. "] " .. titulo)
end
--[[
Realiza a união do string.format com o print simulando o printf do C++.
--]]
function DOM_print(...)
print(string.format(...))
end
--[[
Permite envio de mensagens para o log no minitest ao invés do terminal, segue a formatação do string.format
--]]
function DOM_log(...)
-- action, error, info
minetest.log("action", "[DOM]"..string.format(...))
end
--[[
Centraliza os valores na matriz 5x5 de acordo com a largura e altura recebidas gerando automaticamente uma margem ao redor da fórmula.
--]]
function DOM_centraliza_matriz_5x5(matriz, largura, altura)
--Centraliza se largura ou altura forem menores que 5.
--Largura ou Altura/Critério: 5/Ignora, 4/Ignora, 3/1 de margem, 2/1 de margem, 1/2 de margem
local i = 0
a=matriz[1][3]
if a~=nil then
if string.find(a,"gravel") then
i = 1
end
end
--DOM_inspeciona("Rotina centraliza matriz: ",matriz)
local margem_superior = math.floor((5-altura)/2)
local margem_lateral = math.floor((5-largura)/2)
local d_a = margem_lateral
local d_b = margem_superior
if margem_superior > 0 or margem_lateral > 0 then
for a=5,margem_lateral+1,-1 do --Colunas
for b=5,margem_superior+1,-1 do --Linhas
-- Transfere valor da posição original para a deslocada tornando o valor da posição original como nulo.
matriz[a][b] = matriz[a-d_a][b-d_b]
matriz[a-d_a][b-d_b] = nil
end
end
end
--DOM_inspeciona("Matriz convertida:",matriz)
---DOM_inspeciona("Saida da rotina centraliza matriz: ",matriz)
return matriz
end
--[[
Cria matriz 5x5 a patir de uma linha de itens separados por virgulas
- Ignora itens a partir do sexto...
--]]
function DOM_cria_matriz_5x5(itens)
local m_5x5={{nil,nil,nil,nil,nil},{nil,nil,nil,nil,nil},{nil,nil,nil,nil,nil},{nil,nil,nil,nil,nil},{nil,nil,nil,nil,nil}},{{nil,nil,nil,nil,nil},{nil,nil,nil,nil,nil},{nil,nil,nil,nil,nil},{nil,nil,nil,nil,nil},{nil,nil,nil,nil,nil}},{{nil,nil,nil,nil,nil},{nil,nil,nil,nil,nil},{nil,nil,nil,nil,nil},{nil,nil,nil,nil,nil},{nil,nil,nil,nil,nil}},{{nil,nil,nil,nil,nil},{nil,nil,nil,nil,nil},{nil,nil,nil,nil,nil},{nil,nil,nil,nil,nil},{nil,nil,nil,nil,nil}},{{nil,nil,nil,nil,nil},{nil,nil,nil,nil,nil},{nil,nil,nil,nil,nil},{nil,nil,nil,nil,nil},{nil,nil,nil,nil,nil}}
local i = {}
local a = 0
local largura = 0
if itens ~= "" and itens ~= nil then
if itens.find(itens,",") then
else
table.insert(i,itens)
a = a + 1
end
end
while string.find(itens,",") do
lido = string.sub(itens,1,itens.find(","))
itens = string.sub(itens,itens.find(",")+1)
table.insert(i,lido)
a = a + 1
end
largura = a
while a < 5 do
table.insert(i,nil)
a = a + 1
end
for a=1,5,1 do --Colunas
-- Transfere valores para a linha 3.
m_5x5[3][a] = i[a]
end
m_5x5 = DOM_centraliza_matriz_5x5(m_5x5,largura,5)
return m_5x5
end
--[[
Converte valor posicional xyz para valor em texto separados por virgulas e sem espaços:
<classe> -> "x,y,z"
]]--
function DOM_de_xyz_para_texto(valor)
if valor==nil then
return "0,0,0"
end
local r = ""
r = tostring(valor.x)..",".. tostring(valor.y) ..",".. tostring(valor.z)
return r
end
--[[
Converte valor posicional de texto para a classe xyz:
"x,y,z" -> <classe>
Convert values x,y,z in text to the class xyz:
"x,y,z" -> <classe>
]]--
function DOM_de_texto_para_xyz(valor)
if valor==nil or recebido == "" then
return {x=0,y=0,z=0}
end
--print("Recebido:".. dump(valor))
local r={x=0,y=0,z=0}
local d=valor
r.x=tonumber(d:sub(1,string.find(d,",")-1))
d=d:sub(string.find(d,",")+1)
r.y= tonumber(d:sub(1,string.find(d,",")-1))
d=d:sub(string.find(d,",")+1)
r.z= tonumber(d)
--print("Retorno:".. dump(r))
return r
end
--[[
Mensagem básica de carga
Recebe:
nome do modulo, caminho do modulo
Basic load message
Params:
module name, path of the module
]]--
function DOM_mb(m,c)
-- minetest.log("action", "[DOM]"..m.." loaded from "..minetest.get_modpath(minetest.get_current_modname()))
minetest.log("action", "[DOM]"..m.." is ready.")
end
--[[
Registra comando para chamar rotinas de apoio pelo chat com o comando /dom_util <comando> <parametros...>
Comandos:
apaga x y z Apaga node no lugar especificado.
if comando == "comando" then -- Comando?
minetest.chat_send_player(name, "[DOM]dom_util: ".."Comando?")
elseif comando == "comando2" then -- Comando?
minetest.chat_send_player(name, "[DOM]dom_util: ".."Comando2?")
end
end
--]]
function DOM_registra_comandos_de_uso_geral()
end
--[[
Quebra texto em lista utilizando espaços como delimitadores.
--]]
function DOM_quebra_texto_em_lista (texto)
local lista = {}
lista = DOM_quebra_texto_em_lista_por_delimitador (texto, " ")
return lista
end
--[[
Quebra texto em lista utilizando delimitador pedido.
--]]
function DOM_quebra_texto_em_lista_por_delimitador (texto, delimitador)
local lista = {}
lista.tamanho = 0
local t = ""
local fatia = ""
if texto==nil or texto =="" then return nil end -- Caso texto recebido não seja válido retorna nulo
if delimitador==nil or delimitador =="" then return nil end -- Caso delimitador recebido não seja válido retorna nulo
--print("Texto: \'"..dump(texto).."\'")
t = texto
if not t:find(delimitador) then -- Cria lista com um item caso não seja encontrado nenhum delimitador.
table.insert(lista, t)
lista.tamanho = 1
end
while t:find(delimitador) do -- Enquanto o delimitador puder ser encontrado no texto, fica no laço.
fatia = t:sub(1,t:find(delimitador)-1)
table.insert(lista,fatia)
lista.tamanho= lista.tamanho + 1
t = t:sub(t:find(delimitador)+1)
if not t:find(delimitador) then -- Adiciona o item que sobra ao final após o último delimitador ser removido.
table.insert(lista,t)
lista.tamanho= lista.tamanho + 1
end
end
--print("saída: "..dump(table.tamanho).." => "..dump(table))
return lista
end
--[[
Copia ponto evitando que seja passada matriz por referência
--]]
function DOM_copia_ponto(origem,destino)
--DOM_inspeciona("Copia ponto:",origem,destino)
if destino == nil then
destino = {}
end
destino.x = tonumber(origem.x)
destino.y = tonumber(origem.y)
destino.z = tonumber(origem.z)
return destino
end
-- Pega valores meta de um item, provavelmente se aplica a nodos.
function DOM_get_item_meta (item)
local r = {}
local v = item["metadata"]
if v==nil then
return r
end
if string.find(v,"return {") then
r = minetest.deserialize(v)
end
return r
end
-- Associa valores meta a um item, provavelmente se aplica a nodos.
function DOM_set_item_meta(i, v)
local t = minetest.serialize(v)
i["metadata"]=t
end