From 2e732c908589390f3501af51b1683a07091f90a0 Mon Sep 17 00:00:00 2001
From: Wuzzy <almikes@aol.com>
Date: Mon, 9 Jan 2017 03:02:23 +0100
Subject: [PATCH] Refactor watch mod to mcl_clock

---
 mods/DOM/domb/domb.lua                        | 452 ------------------
 mods/DOM/domb/init.lua                        |   6 -
 mods/DOM/modpack.txt                          |   0
 mods/DOM/watch/init.lua                       |  16 -
 mods/DOM/watch/itens.lua                      |  26 -
 mods/DOM/watch/rotinas.lua                    |  65 ---
 mods/mcl_clock/clock.lua                      |  59 +++
 mods/{DOM/watch => mcl_clock}/depends.txt     |   1 -
 mods/mcl_clock/init.lua                       |   8 +
 mods/mcl_clock/items.lua                      |  25 +
 .../textures/mcl_clock_clock.png}             | Bin
 11 files changed, 92 insertions(+), 566 deletions(-)
 delete mode 100644 mods/DOM/domb/domb.lua
 delete mode 100644 mods/DOM/domb/init.lua
 delete mode 100644 mods/DOM/modpack.txt
 delete mode 100644 mods/DOM/watch/init.lua
 delete mode 100644 mods/DOM/watch/itens.lua
 delete mode 100644 mods/DOM/watch/rotinas.lua
 create mode 100644 mods/mcl_clock/clock.lua
 rename mods/{DOM/watch => mcl_clock}/depends.txt (77%)
 create mode 100644 mods/mcl_clock/init.lua
 create mode 100644 mods/mcl_clock/items.lua
 rename mods/{DOM/watch/textures/clock_clock.png => mcl_clock/textures/mcl_clock_clock.png} (100%)

diff --git a/mods/DOM/domb/domb.lua b/mods/DOM/domb/domb.lua
deleted file mode 100644
index b86dee9d..00000000
--- a/mods/DOM/domb/domb.lua
+++ /dev/null
@@ -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
diff --git a/mods/DOM/domb/init.lua b/mods/DOM/domb/init.lua
deleted file mode 100644
index e4d8560d..00000000
--- a/mods/DOM/domb/init.lua
+++ /dev/null
@@ -1,6 +0,0 @@
-domb = {}
-
---DOM base system library
-dofile(minetest.get_modpath("domb").."/domb.lua")
-
-DOM_registra_comandos_de_uso_geral()
diff --git a/mods/DOM/modpack.txt b/mods/DOM/modpack.txt
deleted file mode 100644
index e69de29b..00000000
diff --git a/mods/DOM/watch/init.lua b/mods/DOM/watch/init.lua
deleted file mode 100644
index 31640ae7..00000000
--- a/mods/DOM/watch/init.lua
+++ /dev/null
@@ -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))
diff --git a/mods/DOM/watch/itens.lua b/mods/DOM/watch/itens.lua
deleted file mode 100644
index d35ec798..00000000
--- a/mods/DOM/watch/itens.lua
+++ /dev/null
@@ -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
diff --git a/mods/DOM/watch/rotinas.lua b/mods/DOM/watch/rotinas.lua
deleted file mode 100644
index c8e60332..00000000
--- a/mods/DOM/watch/rotinas.lua
+++ /dev/null
@@ -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)
diff --git a/mods/mcl_clock/clock.lua b/mods/mcl_clock/clock.lua
new file mode 100644
index 00000000..9db741a6
--- /dev/null
+++ b/mods/mcl_clock/clock.lua
@@ -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)
diff --git a/mods/DOM/watch/depends.txt b/mods/mcl_clock/depends.txt
similarity index 77%
rename from mods/DOM/watch/depends.txt
rename to mods/mcl_clock/depends.txt
index 2229279b..aca967d6 100644
--- a/mods/DOM/watch/depends.txt
+++ b/mods/mcl_clock/depends.txt
@@ -1,3 +1,2 @@
 default
-domb
 mesecons
diff --git a/mods/mcl_clock/init.lua b/mods/mcl_clock/init.lua
new file mode 100644
index 00000000..38b9513b
--- /dev/null
+++ b/mods/mcl_clock/init.lua
@@ -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")
diff --git a/mods/mcl_clock/items.lua b/mods/mcl_clock/items.lua
new file mode 100644
index 00000000..80a3a76b
--- /dev/null
+++ b/mods/mcl_clock/items.lua
@@ -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
diff --git a/mods/DOM/watch/textures/clock_clock.png b/mods/mcl_clock/textures/mcl_clock_clock.png
similarity index 100%
rename from mods/DOM/watch/textures/clock_clock.png
rename to mods/mcl_clock/textures/mcl_clock_clock.png