Refactor watch mod to mcl_clock
This commit is contained in:
Wuzzy
parent
f8f6f57611
commit
2e732c9085
|
|
@ -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
|
|
||||||
|
|
@ -1,6 +0,0 @@
|
||||||
domb = {}
|
|
||||||
|
|
||||||
--DOM base system library
|
|
||||||
dofile(minetest.get_modpath("domb").."/domb.lua")
|
|
||||||
|
|
||||||
DOM_registra_comandos_de_uso_geral()
|
|
||||||
|
|
@ -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))
|
|
||||||
|
|
@ -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
|
|
||||||
|
|
@ -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
59
mods/mcl_clock/clock.lua
Normal 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)
|
||||||
|
|
@ -1,3 +1,2 @@
|
||||||
default
|
default
|
||||||
domb
|
|
||||||
mesecons
|
mesecons
|
||||||
8
mods/mcl_clock/init.lua
Normal file
8
mods/mcl_clock/init.lua
Normal 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
25
mods/mcl_clock/items.lua
Normal 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
|
||||||
|
Before Width: | Height: | Size: 6.4 KiB After Width: | Height: | Size: 6.4 KiB |
Loading…
Reference in New Issue
Block a user