Memeclone/mods/DOM/watch/rotinas.lua

140 lines
3.4 KiB
Lua

--[[
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 12 possible faces, only cover hours, a day is to short to lost time with game minutes... :-P
watch.images_a = {
"watch_a0.png",
"watch_a1.png",
"watch_a2.png",
"watch_a3.png",
"watch_a4.png",
"watch_a5.png",
"watch_a6.png",
"watch_a7.png",
"watch_a8.png",
"watch_a9.png",
"watch_a10.png",
"watch_a11.png",
}
watch.images_d={
"watch_d0.png",
"watch_d1.png",
"watch_d2.png",
"watch_d3.png",
"watch_d4.png",
"watch_d5.png",
"watch_d6.png",
"watch_d7.png",
"watch_d8.png",
"watch_d9.png",
"watch_d10.png",
"watch_d11.png",
}
--Catch the sever time and convert to hour, 12000 = 12h = 0.5, 6000 = 6h = 0.25
function watch.pega_hora(tipo)
local tempo_r = "12:00"
local t = minetest.env:get_timeofday()
local tempo = t*24 -- Get the time
local tempo_h = math.floor(tempo) -- Get 24h only, losting minutes
local tempo_m =math.floor((tempo - tempo_h)*60) --Get only minutes
--Hour
local tempo_h_12 = tempo_h
if tempo_h > 12 then -- Converte time to time in 12h format
tempo_h_12 = tempo_h - 12
end
if tipo==2 then -- hh
return(tostring(tempo_h_12))
end
tempo_r = tostring(tempo_h) .. ":"
--Minutes
if tempo_m < 10 then -- Add a zero at left if need.
tempo_r = tempo_r .. "0"
end
tempo_r = tempo_r .. tostring(tempo_m)
return(tempo_r) --HH:MM
end
--When someone try use the watch.
function watch.usa (itemstack, user, pointed_thing)
item=itemstack:to_table()
local meta=DOM_get_item_meta(item)
local w_type="a"
if meta~=nil then
w_type = meta["w_type"]
end
--DOM_inspeciona_r("Valores no meta:"..dump(meta))
--print("Relógio em modo: "..w_type)
meta["time"] = watch.pega_hora(1)
meta["w_type"] = w_type
DOM_set_item_meta(item, meta)
meta=DOM_get_item_meta(item)
--DOM_inspeciona_r("Valores no meta:"..dump(meta))
minetest.chat_send_player(user:get_player_name(), "[Watch] Time now is:" .. meta["time"])
itemstack:replace(item)
return itemstack
end
-- Register itens
function watch.registra_item(nome,imagem,aparece_nas_receitas)
local g = 1
if aparece_nas_receitas then
g = 0
end
--DOM_inspeciona_r("Registrando item "..nome..","..imagem)
minetest.register_tool(nome, {
description = "Clock",
inventory_image = imagem,
groups = {not_in_creative_inventory=g},
metadata = {w_type="d"},
wield_image = "",
stack_max = 1,
on_use = watch.usa,
})
end
minetest.register_globalstep(function(dtime)
local t="a" -- d to digital, a to analogic
local now = watch.pega_hora(2)
--DOM_inspeciona_r("Hora:"..now)
if now == "12" then now = "0" end
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, 11) == "watch:watch" then
player:set_wielded_item("watch:watch_"..t..now)
end
for i,stack in ipairs(player:get_inventory():get_list("main")) do
if i<9 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_"..t..now)
end
end
end
end)