remade message event, add utf8

etc/utf8.lua

@@ -0,0 +1,101 @@
+-- Unicode library
+
+local pattern = '[%z\1-\127\194-\244][\128-\191]*'
+
+-- helper function
+local function posrelat(pos, len)
+  if pos < 0 then
+    pos = len + pos + 1
+  end
+  return pos
+end
+
+local utf8 = {}
+
+-- THE MEAT
+
+function utf8.map(s, f, no_subs)
+  local i = 0
+
+  if no_subs then
+    for b, e in s:gmatch('()' .. pattern .. '()') do
+      i = i + 1
+      local c = e - b
+      f(i, c, b)
+    end
+  else
+    for b, c in s:gmatch('()(' .. pattern .. ')') do
+      i = i + 1
+      f(i, c, b)
+    end
+  end
+end
+
+-- THE REST
+
+function utf8.chars(s, no_subs)
+  return coroutine.wrap(function()
+    return utf8.map(s, coroutine.yield, no_subs)
+  end)
+end
+
+function utf8.len(s)
+  return select(2, s:gsub('[^\128-\193]', ''))
+end
+
+function utf8.replace(s, map)
+  return s:gsub(pattern, map)
+end
+
+function utf8.reverse(s)
+  s = s:gsub(pattern, function(c)
+    return #c > 1 and c:reverse()
+  end)
+  return s:reverse()
+end
+
+function utf8.strip(s)
+  return s:gsub(pattern, function(c)
+    return #c > 1 and ''
+  end)
+end
+
+function utf8.sub(s, i, j)
+  local l = utf8.len(s)
+
+  i = posrelat(i, l)
+  j = j and posrelat(j, l) or l
+
+  if i < 1 then i = 1 end
+  if j > l then j = l end
+  if i > j then return '' end
+
+  local diff = j - i
+  local iter = utf8.chars(s, true)
+
+  for _ = 1, i - 1 do iter() end
+  local c, b = select(2, iter())
+
+  if diff == 0
+  then return s:sub(b, b + c - 1) end
+
+  i = b
+  for _ = 1, diff - 1 do iter() end
+  local c, b = select(2, iter())
+
+  return s:sub(i, b + c - 1)
+end
+
+-- ADDITION
+
+require 'etc.utf8data'
+
+function utf8.upper(s)
+  return utf8.replace(s, utf8_lc_uc)
+end
+
+function utf8.lower(s)
+  return utf8.replace(s, utf8_uc_lc)
+end
+
+return utf8

src/events/message.lua

@@ -1,23 +1,25 @@
 local reg = {
-  {'эх', 'хуех'}, -- надоели эхать
+  {'эх',         'хуех'}, -- надоели эхать
-  {'мета', 'хуета'},
+  {'мета',       'хуета'},
-  {'meta', 'xueta'},
+  {'meta',       'xueta'},
-  {'цукерберг', 'цукерхуй'},
+  {'цукерберг',  'цукерхуй'},
   {'zuckerberg', 'zuckerhui'},
-  {'whatsapp', 'вадзад'},
+  {'whatsapp',   'вадзад'},
-  {'TikTok', 'деградация'},
+  {'tiktok',     'деградация'},
-  {'.*че%?*$', 'пиши ё, грамотей'},
+  {'.*че%?*$',   'пиши ё, грамотей'},
-  {'.*чё%?*$', 'ничё'}
+  {'.*чё%?*$',   'ничё'}
 }
 
 return function(C, api, msg)
   if msg.text then
-    local t = msg.text
+    msg.text = utf8.lower(msg.text)
+    local t = ''
     for _, v in pairs(reg) do
-      t = t:gsub(v[1], v[2])
+      if msg.text:match(v[1])
-    end
+      then t = t.. v[2] ..' '
-    if msg.text ~= t
+      end
-    then api:reply(msg, t)
     end
+    if t ~= ''
+    then api:reply(msg, t) end
   end
 end

src/parts/core.lua

@@ -42,6 +42,8 @@ end
 function Core:init()
   self:load 'parts'
 
+  utf8 = require 'etc.utf8'
+
   print 'Done!'
   self:emit 'ready'
 end