Mercurial > prosody-modules
view mod_muc_dicebot/mod_muc_dicebot.lua @ 4976:75b6e5df65f9
various: Improve error reporting if missing file server module on 0.12
If there is some error loading net.http.files then it would be swallowed
by the pcall and then it would proceed to trying mod_http_files, which
might cause unexpected behavior on 0.12
Ref #1765
author | Kim Alvefur <zash@zash.se> |
---|---|
date | Mon, 18 Jul 2022 22:47:54 +0200 |
parents | 785389a2d2b3 |
children |
line wrap: on
line source
local muc = module:depends("muc"); local rand = require"util.random"; local s_match = string.match; local s_gmatch = string.gmatch; local t_insert = table.insert; local t_concat = table.concat; local rooms = module:get_option_set("muc_dicebot_rooms", nil); local xmlns_nick = "http://jabber.org/protocol/nick"; local function is_room_affected(roomjid) return not rooms or rooms:contains(roomjid) end local function roll(sides) if sides > 256 then return nil, "too many sides" end local factor = math.floor(256 / sides); local cutoff = sides * factor; module:log("error", "%d -> %d %d %d", sides, max, factor, cutoff); for i=1,10 do local randomness = string.byte(rand.bytes(1), 1); module:log("error", "%d", randomness); if randomness < cutoff then return (randomness % sides) + 1 end end return nil, "failed to find valid number" end local function muc_broadcast_message(event) if not is_room_affected(event.room.jid) then return end local stanza = event.stanza; local body = stanza:get_child("body"); if not body then return end local text = body:get_text(); module:log("error", "%q %q %q", stanza, body, text); local dice = s_match(text, "^[%.!]r%s(.+)$"); if not dice or dice == "" then return end local results = {}; local count = 0; local sum = 0; for ndice, sep, sides in s_gmatch(dice, "(%d*)([wd]?)(%d+)") do if not sep or sep == "" then sides = ndice .. sides ndice = "1" end local ndice = tonumber(ndice); count = count + ndice; if count > 100 then return true end local sides = tonumber(sides); for i=1,ndice do local value = roll(sides); t_insert(results, tostring(value)); sum = sum + value; end end body:text("\n⇒ "..t_concat(results, " ").." (sum: "..sum..")"); end module:hook("muc-broadcast-message", muc_broadcast_message);