1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
local hud_refresh_interval = mesecons_debug.settings.hud_refresh_interval
mesecons_debug.settings._subscribe_for_modification("hud_refresh_interval",
function(value) hud_refresh_interval = value end)
local HUD_POSITION = { x = 0.1, y = 0.8 }
local HUD_ALIGNMENT = { x = 1, y = 0 }
local hudid_by_playername = {}
minetest.register_on_leaveplayer(function(player)
hudid_by_playername[player:get_player_name()] = nil
end)
local function get_info(player)
local pos = player:get_pos()
local blockpos = mesecons_debug.get_blockpos(pos)
local ctx = mesecons_debug.get_context(pos)
local total = mesecons_debug.avg_total_micros_per_second
if total == 0 then total = 1 end
local percent = ctx.avg_micros_per_second * 100 / total
local txt = ("mesecons @ %s\n"):format(
minetest.pos_to_string(blockpos)
)
if ctx.whitelisted then
txt = txt .. "whitelisted, no limits"
return txt, 0x00FFFF
end
txt = txt .. ("usage: %.0f us/s .. (%.1f%%) penalty: %.2fs"):format(
ctx.avg_micros_per_second,
percent,
ctx.penalty
)
txt = txt .. ("\nlag: %.2f (%s); mesecons load = %s"):format(
mesecons_debug.avg_lag,
mesecons_debug.lag_level,
mesecons_debug.load_level
)
if minetest.get_server_max_lag then
txt = txt .. ("; max_lag: %.2f"):format(
minetest.get_server_max_lag()
)
end
txt = txt .. ("; #players = %i"):format(
#minetest.get_connected_players()
)
txt = txt .. ("\npenalties enabled = %s; mesecons enabled = %s"):format(
mesecons_debug.enabled,
mesecons_debug.mesecons_enabled
)
if ctx.penalty <= 1 then
return txt, 0x00FF00
elseif ctx.penalty <= 10 then
return txt, 0xFFFF00
else
return txt, 0xFF0000
end
end
local timer = 0
minetest.register_globalstep(function(dtime)
timer = timer + dtime
if timer < hud_refresh_interval then
return
end
timer = 0
for _, player in ipairs(minetest.get_connected_players()) do
local playername = player:get_player_name()
local hudid = hudid_by_playername[playername]
local hud_enabled = mesecons_debug.hud_enabled_by_playername[playername]
if hud_enabled then
local text, color = get_info(player)
if hudid then
player:hud_change(hudid, "text", text)
player:hud_change(hudid, "number", color)
else
hudid_by_playername[playername] = player:hud_add({
hud_elem_type = "text",
position = HUD_POSITION,
offset = { x = 0, y = 0 },
text = text,
number = color,
alignment = HUD_ALIGNMENT,
scale = { x = 100, y = 100 },
})
end
else
if hudid then
player:hud_remove(hudid)
hudid_by_playername[playername] = nil
end
end
end
end)
|
