Refactor watch mod to mcl_clock

master
Wuzzy 2017-01-09 03:02:23 +01:00
parent f8f6f57611
commit 2e732c9085
11 changed files with 92 additions and 566 deletions

View File

@ -1,452 +0,0 @@
--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

View File

@ -1,6 +0,0 @@
domb = {}
--DOM base system library
dofile(minetest.get_modpath("domb").."/domb.lua")
DOM_registra_comandos_de_uso_geral()

View File

View File

@ -1,16 +0,0 @@
--[[
DOM, renew of the watch mod
Original from Echo, here: http://forum.minetest.net/viewtopic.php?id=3795
]]--
local init = os.clock()
--Rotinas usadas pelo mod
dofile(minetest.get_modpath("watch").."/rotinas.lua")
--Declarações dos objetos
dofile(minetest.get_modpath("watch").."/itens.lua")
local time_to_load= os.clock() - init
print(string.format("[MOD] "..minetest.get_current_modname().." loaded in %.4f s", time_to_load))

View File

@ -1,26 +0,0 @@
-- Watch recipe
minetest.register_craft({
description = "Clock",
output = 'watch:watch',
groups = {not_in_creative_inventory=1},
recipe = {
{'', 'default:gold_ingot', ''},
{'default:gold_ingot', 'mesecons:redstone_dust', 'default:gold_ingot'},
{'', 'default:gold_ingot', ''}
}
})
--Watch tool
watch.registra_item("watch:watch",watch.images[3],true)
--Faces
for a=0,63,1 do
local b = a
if b > 31 then
b = b - 32
else
b = b + 32
end
watch.registra_item("watch:watch_"..tostring(a),watch.images[b+1],false)
end

View File

@ -1,65 +0,0 @@
--[[
DOM, renew of the watch mod
Original from Echo, here: http://forum.minetest.net/viewtopic.php?id=3795
]]--
watch = {}
watch.ultimo_tempo = -1
-- Image of all 64 possible faces
watch.images = {}
for frame=0,63 do
table.insert(watch.images, "clock_clock.png^[verticalframe:64:"..frame)
end
local function round(num)
return math.floor(num + 0.5)
end
function watch.pega_hora()
local t = 64 * minetest.get_timeofday()
return tostring(round(t))
end
-- Register itens
function watch.registra_item(nome,imagem,aparece_nas_receitas)
local g = 1
if aparece_nas_receitas then
g = 0
end
minetest.register_tool(nome, {
description = "Clock",
inventory_image = imagem,
groups = {not_in_creative_inventory=g},
metadata = {w_type="d"},
wield_image = "",
stack_max = 1,
})
end
minetest.register_globalstep(function(dtime)
local now = watch.pega_hora()
if watch.ultimo_tempo == now then
-- return
end
watch.ultimo_tempo = now
local players = minetest.get_connected_players()
for i,player in ipairs(players) do
if string.sub(player:get_wielded_item():get_name(), 0, 63) == "watch:watch" then
player:set_wielded_item("watch:watch_"..now)
end
for i,stack in ipairs(player:get_inventory():get_list("main")) do
if i<10 and string.sub(stack:get_name(), 0, 11) == "watch:watch" then
player:get_inventory():remove_item("main", stack:get_name())
player:get_inventory():add_item("main", "watch:watch_"..now)
end
end
end
end)

59
mods/mcl_clock/clock.lua Normal file
View File

@ -0,0 +1,59 @@
--[[
mcl_clock, renew of the renew of the watch mod
Original from Echo, here: http://forum.minetest.net/viewtopic.php?id=3795
]]--
watch = {}
watch.old_time = -1
-- Image of all 64 possible faces
watch.images = {}
for frame=0,63 do
table.insert(watch.images, "mcl_clock_clock.png^[verticalframe:64:"..frame)
end
local function round(num)
return math.floor(num + 0.5)
end
function watch.get_clock_frame()
local t = 64 * minetest.get_timeofday()
return tostring(round(t))
end
-- Register items
function watch.register_item(name, image, creative)
local g = 1
if creative then
g = 0
end
minetest.register_tool(name, {
description = "Clock",
inventory_image = image,
groups = {not_in_creative_inventory=g, clock=1},
wield_image = "",
stack_max = 1,
})
end
minetest.register_globalstep(function(dtime)
local now = watch.get_clock_frame()
if watch.old_time == now then
return
end
watch.old_time = now
local players = minetest.get_connected_players()
for p, player in ipairs(players) do
for s, stack in ipairs(player:get_inventory():get_list("main")) do
if stack:get_name() == "mcl_clock:clock" then
player:get_inventory():set_stack("main", s, "mcl_clock:clock_"..now)
elseif string.sub(stack:get_name(), 1, 16) == "mcl_clock:clock_" then
player:get_inventory():set_stack("main", s, "mcl_clock:clock_"..now)
end
end
end
end)

View File

@ -1,3 +1,2 @@
default
domb
mesecons

8
mods/mcl_clock/init.lua Normal file
View File

@ -0,0 +1,8 @@
--[[
mcl_clock, renew of the renew of the watch mod
Original from Echo, here: http://forum.minetest.net/viewtopic.php?id=3795
]]--
dofile(minetest.get_modpath("mcl_clock").."/clock.lua")
dofile(minetest.get_modpath("mcl_clock").."/items.lua")

25
mods/mcl_clock/items.lua Normal file
View File

@ -0,0 +1,25 @@
-- Clock recipe
minetest.register_craft({
description = "Clock",
output = 'mcl_clock:clock',
groups = {not_in_creative_inventory=1},
recipe = {
{'', 'default:gold_ingot', ''},
{'default:gold_ingot', 'mesecons:redstone_dust', 'default:gold_ingot'},
{'', 'default:gold_ingot', ''}
}
})
-- Clock tool
watch.register_item("mcl_clock:clock", watch.images[1], true)
-- Faces
for a=0,63,1 do
local b = a
if b > 31 then
b = b - 32
else
b = b + 32
end
watch.register_item("mcl_clock:clock_"..tostring(a), watch.images[b+1], false)
end

View File

Before

Width:  |  Height:  |  Size: 6.4 KiB

After

Width:  |  Height:  |  Size: 6.4 KiB