inrealm.lua

-- data saved to moderation.json
-- check moderation plugin
do

local function create_group(msg)
     -- superuser and admins only (because sudo are always has privilege)
    if is_sudo(msg) or is_realm(msg) and is_admin1(msg) then
		local group_creator = msg.from.print_name
		create_group_chat (group_creator, group_name, ok_cb, false)
		return 'Group [ '..string.gsub(group_name, '_', ' ')..' ] has been created.'
	end
end

local function create_realm(msg)
        -- superuser and admins only (because sudo are always has privilege)
	if is_sudo(msg) or is_realm(msg) and is_admin1(msg) then
		local group_creator = msg.from.print_name
		create_group_chat (group_creator, group_name, ok_cb, false)
		return 'Realm [ '..string.gsub(group_name, '_', ' ')..' ] has been created.'
	end
end


local function killchat(cb_extra, success, result)
  local receiver = cb_extra.receiver
  local chat_id = "chat#id"..result.peer_id
  local chatname = result.print_name
  for k,v in pairs(result.members) do
    kick_user_any(v.peer_id, result.peer_id)
  end
end

local function killrealm(cb_extra, success, result)
  local receiver = cb_extra.receiver
  local chat_id = "chat#id"..result.peer_id
  local chatname = result.print_name
  for k,v in pairs(result.members) do
    kick_user_any(v.peer_id, result.peer_id)
  end
end

local function get_group_type(msg)
  local data = load_data(_config.moderation.data)
  if data[tostring(msg.to.id)] then
    if not data[tostring(msg.to.id)]['group_type'] then
		if msg.to.type == 'chat' and not is_realm(msg) then
			data[tostring(msg.to.id)]['group_type'] = 'Group'
			save_data(_config.moderation.data, data)
		elseif msg.to.type == 'channel' then
			data[tostring(msg.to.id)]['group_type'] = 'SuperGroup'
			save_data(_config.moderation.data, data)
		end
    end
		local group_type = data[tostring(msg.to.id)]['group_type']
		return group_type
	else
    return 'Chat type not found.'
  end
end

local function callbackres(extra, success, result)
--vardump(result)
  local user = result.peer_id
  local name = string.gsub(result.print_name, "_", " ")
  local chat = 'chat#id'..extra.chatid
  local channel = 'channel#id'..extra.chatid
  send_large_msg(chat, user..'\n'..name)
  send_large_msg(channel, user..'\n'..name)
  return user
end

local function set_description(msg, data, target, about)
    if not is_admin1(msg) then
        return "For admins only!"
    end
    local data_cat = 'description'
        data[tostring(target)][data_cat] = about
        save_data(_config.moderation.data, data)
        return 'Set group description to:\n'..about
end

local function set_rules(msg, data, target)
    if not is_admin1(msg) then
        return "For admins only!"
    end
    local data_cat = 'rules'
        data[tostring(target)][data_cat] = rules
        save_data(_config.moderation.data, data)
        return 'Set group rules to:\n'..rules
end
-- lock/unlock group name. bot automatically change group name when locked
local function lock_group_name(msg, data, target)
    if not is_admin1(msg) then
        return "For admins only!"
    end
    local group_name_set = data[tostring(target)]['settings']['set_name']
    local group_name_lock = data[tostring(target)]['settings']['lock_name']
        if group_name_lock == 'yes' then
            return 'Group name is already locked'
        else
            data[tostring(target)]['settings']['lock_name'] = 'yes'
                save_data(_config.moderation.data, data)
                rename_chat('chat#id'..target, group_name_set, ok_cb, false)
        return 'Group name has been locked'
    end
end

local function unlock_group_name(msg, data, target)
    if not is_admin1(msg) then
        return "For admins only!"
    end
    local group_name_set = data[tostring(target)]['settings']['set_name']
    local group_name_lock = data[tostring(target)]['settings']['lock_name']
        if group_name_lock == 'no' then
            return 'Group name is already unlocked'
        else
            data[tostring(target)]['settings']['lock_name'] = 'no'
            save_data(_config.moderation.data, data)
        return 'Group name has been unlocked'
    end
end
--lock/unlock group member. bot automatically kick new added user when locked
local function lock_group_member(msg, data, target)
    if not is_admin1(msg) then
        return "For admins only!"
    end
    local group_member_lock = data[tostring(target)]['settings']['lock_member']
        if group_member_lock == 'yes' then
            return 'Group members are already locked'
        else
            data[tostring(target)]['settings']['lock_member'] = 'yes'
            save_data(_config.moderation.data, data)
        end
        return 'Group members has been locked'
end

local function unlock_group_member(msg, data, target)
    if not is_admin1(msg) then
        return "For admins only!"
    end
    local group_member_lock = data[tostring(target)]['settings']['lock_member']
        if group_member_lock == 'no' then
            return 'Group members are not locked'
        else
            data[tostring(target)]['settings']['lock_member'] = 'no'
            save_data(_config.moderation.data, data)
        return 'Group members has been unlocked'
	end
end

--lock/unlock group photo. bot automatically keep group photo when locked
local function lock_group_photo(msg, data, target)
    if not is_admin1(msg) then
        return "For admins only!"
    end
    local group_photo_lock = data[tostring(target)]['settings']['lock_photo']
        if group_photo_lock == 'yes' then
            return 'Group photo is already locked'
        else
            data[tostring(target)]['settings']['set_photo'] = 'waiting'
            save_data(_config.moderation.data, data)
        end
	return 'Please send me the group photo now'
end

local function unlock_group_photo(msg, data, target)
    if not is_admin1(msg) then
        return "For admins only!"
    end
    local group_photo_lock = data[tostring(target)]['settings']['lock_photo']
        if group_photo_lock == 'no' then
            return 'Group photo is not locked'
        else
            data[tostring(target)]['settings']['lock_photo'] = 'no'
            save_data(_config.moderation.data, data)
        return 'Group photo has been unlocked'
	end
end

local function lock_group_flood(msg, data, target)
    if not is_admin1(msg) then
        return "For admins only!"
    end
    local group_flood_lock = data[tostring(target)]['settings']['flood']
        if group_flood_lock == 'yes' then
            return 'Group flood is locked'
        else
            data[tostring(target)]['settings']['flood'] = 'yes'
            save_data(_config.moderation.data, data)
        return 'Group flood has been locked'
	end
end

local function unlock_group_flood(msg, data, target)
    if not is_admin1(msg) then
        return "For admins only!"
    end
    local group_flood_lock = data[tostring(target)]['settings']['flood']
        if group_flood_lock == 'no' then
            return 'Group flood is not locked'
        else
            data[tostring(target)]['settings']['flood'] = 'no'
            save_data(_config.moderation.data, data)
        return 'Group flood has been unlocked'
	end
end

local function lock_group_arabic(msg, data, target)
    if not is_admin1(msg) then
        return "For admins only!"
    end
  local group_arabic_lock = data[tostring(target)]['settings']['lock_arabic']
  if group_arabic_lock == 'yes' then
    return 'Arabic is already locked'
  else
    data[tostring(target)]['settings']['lock_arabic'] = 'yes'
    save_data(_config.moderation.data, data)
    return 'Arabic has been locked'
  end
end

local function unlock_group_arabic(msg, data, target)
    if not is_admin1(msg) then
        return "For admins only!"
    end
  local group_arabic_lock = data[tostring(target)]['settings']['lock_arabic']
  if group_arabic_lock == 'no' then
    return 'Arabic/Persian is already unlocked'
  else
    data[tostring(target)]['settings']['lock_arabic'] = 'no'
    save_data(_config.moderation.data, data)
    return 'Arabic/Persian has been unlocked'
  end
end

local function lock_group_rtl(msg, data, target)
  if not is_momod(msg) then
    return
  end
  local group_rtl_lock = data[tostring(target)]['settings']['lock_rtl']
  if group_rtl_lock == 'yes' then
    return 'RTL char. in names is already locked'
  else
    data[tostring(target)]['settings']['lock_rtl'] = 'yes'
    save_data(_config.moderation.data, data)
    return 'RTL char. in names has been locked'
  end
end

local function unlock_group_rtl(msg, data, target)
  if not is_momod(msg) then
    return
  end
  local group_rtl_lock = data[tostring(target)]['settings']['lock_rtl']
  if group_rtl_lock == 'no' then
    return 'RTL char. in names is already unlocked'
  else
    data[tostring(target)]['settings']['lock_rtl'] = 'no'
    save_data(_config.moderation.data, data)
    return 'RTL char. in names has been unlocked'
  end
end

local function lock_group_links(msg, data, target)
    if not is_admin1(msg) then
        return "For admins only!"
    end
  local group_link_lock = data[tostring(target)]['settings']['lock_link']
  if group_link_lock == 'yes' then
    return 'Link posting is already locked'
  else
    data[tostring(target)]['settings']['lock_link'] = 'yes'
    save_data(_config.moderation.data, data)
    return 'Link posting has been locked'
  end
end

local function unlock_group_links(msg, data, target)
    if not is_admin1(msg) then
        return "For admins only!"
    end
  local group_link_lock = data[tostring(target)]['settings']['lock_link']
  if group_link_lock == 'no' then
    return 'Link posting is not locked'
  else
    data[tostring(target)]['settings']['lock_link'] = 'no'
    save_data(_config.moderation.data, data)
    return 'Link posting has been unlocked'
  end
end

local function lock_group_spam(msg, data, target)
    if not is_admin1(msg) then
        return "For admins only!"
    end
  local group_spam_lock = data[tostring(target)]['settings']['lock_spam']
  if group_spam_lock == 'yes' then
    return 'SuperGroup spam is already locked'
  else
    data[tostring(target)]['settings']['lock_spam'] = 'yes'
    save_data(_config.moderation.data, data)
    return 'SuperGroup spam has been locked'
  end
end

local function unlock_group_spam(msg, data, target)
    if not is_admin1(msg) then
        return "For admins only!"
    end
  local group_spam_lock = data[tostring(target)]['settings']['lock_spam']
  if group_spam_lock == 'no' then
    return 'SuperGroup spam is not locked'
  else
    data[tostring(target)]['settings']['lock_spam'] = 'no'
    save_data(_config.moderation.data, data)
    return 'SuperGroup spam has been unlocked'
  end
end

local function lock_group_rtl(msg, data, target)
    if not is_admin1(msg) then
        return "For admins only!"
    end
  local group_rtl_lock = data[tostring(target)]['settings']['lock_rtl']
  if group_rtl_lock == 'yes' then
    return 'RTL char. in names is already locked'
  else
    data[tostring(target)]['settings']['lock_rtl'] = 'yes'
    save_data(_config.moderation.data, data)
    return 'RTL char. in names has been locked'
  end
end

local function unlock_group_rtl(msg, data, target)
    if not is_admin1(msg) then
        return "For admins only!"
    end
  local group_rtl_lock = data[tostring(target)]['settings']['lock_rtl']
  if group_rtl_lock == 'no' then
    return 'RTL char. in names is already unlocked'
  else
    data[tostring(target)]['settings']['lock_rtl'] = 'no'
    save_data(_config.moderation.data, data)
    return 'RTL char. in names has been unlocked'
  end
end

local function lock_group_sticker(msg, data, target)
    if not is_admin1(msg) then
        return "For admins only!"
    end
  local group_sticker_lock = data[tostring(target)]['settings']['lock_sticker']
  if group_sticker_lock == 'yes' then
    return 'Sticker posting is already locked'
  else
    data[tostring(target)]['settings']['lock_sticker'] = 'yes'
    save_data(_config.moderation.data, data)
    return 'Sticker posting has been locked'
  end
end

local function unlock_group_sticker(msg, data, target)
    if not is_admin1(msg) then
        return "For admins only!"
    end
	local group_sticker_lock = data[tostring(target)]['settings']['lock_sticker']
	if group_sticker_lock == 'no' then
		return 'Sticker posting is already unlocked'
	else
		data[tostring(target)]['settings']['lock_sticker'] = 'no'
		save_data(_config.moderation.data, data)
		return 'Sticker posting has been unlocked'
	end
end

local function set_public_membermod(msg, data, target)
    if not is_admin1(msg) then
        return "For admins only!"
    end
	local group_public_lock = data[tostring(target)]['settings']['public']
	if group_public_lock == 'yes' then
		return 'Group is already public'
	else
		data[tostring(target)]['settings']['public'] = 'yes'
		save_data(_config.moderation.data, data)
	end
  return 'SuperGroup is now: public'
end

local function unset_public_membermod(msg, data, target)
    if not is_admin1(msg) then
        return "For admins only!"
    end
	local group_public_lock = data[tostring(target)]['settings']['public']
	if group_public_lock == 'no' then
		return 'Group is not public'
	else
		data[tostring(target)]['settings']['public'] = 'no'
		save_data(_config.moderation.data, data)
		return 'SuperGroup is now: not public'
	end
end

-- show group settings
local function show_group_settings(msg, data, target)
    local data = load_data(_config.moderation.data, data)
    if not is_admin1(msg) then
        return "For admins only!"
    end
	if data[tostring(target)]['settings'] then
		if not data[tostring(target)]['settings']['public'] then
			data[tostring(target)]['settings']['public'] = 'no'
		end
	end
    local settings = data[tostring(target)]['settings']
    local text = "Group settings for "..target..":\nLock group name : "..settings.lock_name.."\nLock group photo : "..settings.lock_photo.."\nLock group member : "..settings.lock_member.."\nPublic: "..settings.public
end

-- show SuperGroup settings
local function show_super_group_settings(msg, data, target)
    local data = load_data(_config.moderation.data, data)
    if not is_admin1(msg) then
        return "For admins only!"
    end
	if data[tostring(msg.to.id)]['settings'] then
		if not data[tostring(msg.to.id)]['settings']['public'] then
			data[tostring(msg.to.id)]['settings']['public'] = 'no'
		end
	end
		if data[tostring(target)]['settings'] then
		if not data[tostring(target)]['settings']['lock_rtl'] then
			data[tostring(target)]['settings']['lock_rtl'] = 'no'
		end
	end
	if data[tostring(target)]['settings'] then
		if not data[tostring(target)]['settings']['lock_member'] then
			data[tostring(target)]['settings']['lock_member'] = 'no'
		end
	end
    local settings = data[tostring(target)]['settings']
    local text = "SuperGroup settings for "..target..":\nLock links : "..settings.lock_link.."\nLock flood: "..settings.flood.."\nLock spam: "..settings.lock_spam.."\nLock Arabic: "..settings.lock_arabic.."\nLock Member: "..settings.lock_member.."\nLock RTL: "..settings.lock_rtl.."\nLock sticker: "..settings.lock_sticker.."\nPublic: "..settings.public.."\nStrict settings: "..settings.strict
    return text
end

local function returnids(cb_extra, success, result)
	local i = 1
    local receiver = cb_extra.receiver
    local chat_id = "chat#id"..result.peer_id
    local chatname = result.print_name
    local text = 'Users in '..string.gsub(chatname,"_"," ")..' (ID: '..result.peer_id..'):\n\n'
    for k,v in pairs(result.members) do
		if v.print_name then
			local username = ""
			text = text ..i..' - '.. string.gsub(v.print_name,"_"," ") .. "  [" .. v.peer_id .. "] \n\n"
		    i = i + 1
		end
    end
	local file = io.open("./groups/lists/"..result.peer_id.."memberlist.txt", "w")
	file:write(text)
	file:flush()
	file:close()
end

local function cb_user_info(cb_extra, success, result)
	local receiver = cb_extra.receiver
	if result.first_name then
		first_name = result.first_name:gsub("_", " ")
	else
		first_name = "None"
	end
	if result.last_name then
		last_name = result.last_name:gsub("_", " ")
	else
		last_name = "None"
	end
	if result.username then
		username = "@"..result.username
	else
		username = "@[none]"
	end
	text = "User Info:\n\nID: "..result.peer_id.."\nFirst: "..first_name.."\nLast: "..last_name.."\nUsername: "..username
	send_large_msg(receiver, text)
end

local function admin_promote(msg, admin_id)
	if not is_sudo(msg) then
        return "Access denied!"
    end
	local admins = 'admins'
	if not data[tostring(admins)] then
		data[tostring(admins)] = {}
		save_data(_config.moderation.data, data)
	end
	if data[tostring(admins)][tostring(admin_id)] then
		return admin_id..' is already an admin.'
	end
	data[tostring(admins)][tostring(admin_id)] = admin_id
	save_data(_config.moderation.data, data)
	return admin_id..' has been promoted as admin.'
end

local function admin_demote(msg, admin_id)
    if not is_sudo(msg) then
        return "Access denied!"
    end
    local data = load_data(_config.moderation.data)
        local admins = 'admins'
	if not data[tostring(admins)] then
		data[tostring(admins)] = {}
		save_data(_config.moderation.data, data)
	end
	if not data[tostring(admins)][tostring(admin_id)] then
		return admin_id..' is not an admin.'
	end
	data[tostring(admins)][tostring(admin_id)] = nil
	save_data(_config.moderation.data, data)
	return admin_id..' has been demoted from admin.'
end

local function admin_list(msg)
    local data = load_data(_config.moderation.data)
	local admins = 'admins'
	if not data[tostring(admins)] then
		data[tostring(admins)] = {}
		save_data(_config.moderation.data, data)
	end
	local message = 'List of global admins:\n'
	for k,v in pairs(data[tostring(admins)]) do
		message = message .. '- (at)' .. v .. ' [' .. k .. '] ' ..'\n'
	end
	return message
end

local function groups_list(msg)
	local data = load_data(_config.moderation.data)
	local groups = 'groups'
	if not data[tostring(groups)] then
		return 'No groups at the moment'
	end
	local message = 'List of groups:\n'
	for k,v in pairs(data[tostring(groups)]) do
		if data[tostring(v)] then
			if data[tostring(v)]['settings'] then
			local settings = data[tostring(v)]['settings']
				for m,n in pairs(settings) do
					if m == 'set_name' then
						name = n
					end
				end
                local group_owner = "No owner"
                if data[tostring(v)]['set_owner'] then
                        group_owner = tostring(data[tostring(v)]['set_owner'])
                end
                local group_link = "No link"
                if data[tostring(v)]['settings']['set_link'] then
					group_link = data[tostring(v)]['settings']['set_link']
				end
				message = message .. '- '.. name .. ' (' .. v .. ') ['..group_owner..'] \n {'..group_link.."}\n"
			end
		end
	end
    local file = io.open("./groups/lists/groups.txt", "w")
	file:write(message)
	file:flush()
	file:close()
    return message
end
local function realms_list(msg)
    local data = load_data(_config.moderation.data)
	local realms = 'realms'
	if not data[tostring(realms)] then
		return 'No Realms at the moment'
	end
	local message = 'List of Realms:\n'
	for k,v in pairs(data[tostring(realms)]) do
		local settings = data[tostring(v)]['settings']
		for m,n in pairs(settings) do
			if m == 'set_name' then
				name = n
			end
		end
		local group_owner = "No owner"
		if data[tostring(v)]['admins_in'] then
			group_owner = tostring(data[tostring(v)]['admins_in'])
		end
		local group_link = "No link"
		if data[tostring(v)]['settings']['set_link'] then
			group_link = data[tostring(v)]['settings']['set_link']
		end
		message = message .. '- '.. name .. ' (' .. v .. ') ['..group_owner..'] \n {'..group_link.."}\n"
	end
	local file = io.open("./groups/lists/realms.txt", "w")
	file:write(message)
	file:flush()
	file:close()
    return message
end
local function admin_user_promote(receiver, member_username, member_id)
        local data = load_data(_config.moderation.data)
        if not data['admins'] then
                data['admins'] = {}
            save_data(_config.moderation.data, data)
        end
        if data['admins'][tostring(member_id)] then
            return send_large_msg(receiver, '@'..member_username..' is already an admin.')
        end
        data['admins'][tostring(member_id)] = member_username
        save_data(_config.moderation.data, data)
	return send_large_msg(receiver, '@'..member_username..' has been promoted as admin.')
end

local function admin_user_demote(receiver, member_username, member_id)
    local data = load_data(_config.moderation.data)
    if not data['admins'] then
		data['admins'] = {}
        save_data(_config.moderation.data, data)
	end
	if not data['admins'][tostring(member_id)] then
		send_large_msg(receiver, "@"..member_username..' is not an admin.')
		return
    end
	data['admins'][tostring(member_id)] = nil
	save_data(_config.moderation.data, data)
	send_large_msg(receiver, 'Admin @'..member_username..' has been demoted.')
end

local function username_id(cb_extra, success, result)
   local mod_cmd = cb_extra.mod_cmd
   local receiver = cb_extra.receiver
   local member = cb_extra.member
   local text = 'No user @'..member..' in this group.'
   for k,v in pairs(result.members) do
      vusername = v.username
      if vusername == member then
        member_username = member
        member_id = v.peer_id
        if mod_cmd == 'addadmin' then
            return admin_user_promote(receiver, member_username, member_id)
        elseif mod_cmd == 'removeadmin' then
            return admin_user_demote(receiver, member_username, member_id)
        end
      end
   end
   send_large_msg(receiver, text)
end

local function res_user_support(cb_extra, success, result)
   local receiver = cb_extra.receiver
   local get_cmd = cb_extra.get_cmd
   local support_id = result.peer_id
	if get_cmd == 'addsupport' then
		support_add(support_id)
		send_large_msg(receiver, "User ["..support_id.."] has been added to the support team")
	elseif get_cmd == 'removesupport' then
		support_remove(support_id)
		send_large_msg(receiver, "User ["..support_id.."] has been removed from the support team")
	end
end

local function set_log_group(target, data)
  if not is_admin1(msg) then
    return
  end
  local log_group = data[tostring(target)]['log_group']
  if log_group == 'yes' then
    return 'Log group is already set'
  else
    data[tostring(target)]['log_group'] = 'yes'
    save_data(_config.moderation.data, data)
    return 'Log group has been set'
  end
end

local function unset_log_group(msg)
  if not is_admin1(msg) then
    return
  end
  local log_group = data[tostring(target)]['log_group']
  if log_group == 'no' then
    return 'Log group is not set'
  else
    data[tostring(target)]['log_group'] = 'no'
    save_data(_config.moderation.data, data)
    return 'log group has been disabled'
  end
end

local function help()
local help_text = tostring(_config.help_text_realm)
  return help_text
end

function run(msg, matches)
   	local name_log = user_print_name(msg.from)
		if matches[1] == 'log' and is_owner(msg) then
		local receiver = get_receiver(msg)
		savelog(msg.to.id, "log file created by owner/support/admin")
		send_document(receiver,"./groups/logs/"..msg.to.id.."log.txt", ok_cb, false)
    end

	if matches[1] == 'who' and msg.to.type == 'chat' and is_momod(msg) then
		local name = user_print_name(msg.from)
		savelog(msg.to.id, name.." ["..msg.from.id.."] requested member list ")
		local receiver = get_receiver(msg)
		chat_info(receiver, returnids, {receiver=receiver})
		local file = io.open("./groups/lists/"..msg.to.id.."memberlist.txt", "r")
		text = file:read("*a")
        send_large_msg(receiver,text)
        file:close()
	end
	if matches[1] == 'wholist' and is_momod(msg) then
		local name = user_print_name(msg.from)
		savelog(msg.to.id, name.." ["..msg.from.id.."] requested member list in a file")
		local receiver = get_receiver(msg)
		chat_info(receiver, returnids, {receiver=receiver})
		send_document("chat#id"..msg.to.id,"./groups/lists/"..msg.to.id.."memberlist.txt", ok_cb, false)
	end

	if matches[1] == 'whois' and is_momod(msg) then
		local receiver = get_receiver(msg)
		local user_id = "user#id"..matches[2]
		user_info(user_id, cb_user_info, {receiver = receiver})
	end

	if not is_sudo(msg) and not is_realm(msg) and is_admin1(msg) then
		return
 	end

    if matches[1] == 'creategroup' and matches[2] then
	if not is_momod(msg) then 
		return 
	end
	if not is_sudo(msg) or is_admin1(msg) and is_realm(msg) then
		return "You cant create groups!"
	end
        group_name = matches[2]
        group_type = 'group'
        return create_group(msg)
    end

	--[[ Experimental
	if matches[1] == 'createsuper' and matches[2] then
	if not is_sudo(msg) or is_admin1(msg) and is_realm(msg) then
		return "You cant create groups!"
	end
        group_name = matches[2]
        group_type = 'super_group'
        return create_group(msg)
    end]]

    if matches[1] == 'createrealm' and matches[2] then
	if not is_sudo(msg) or not is_admin1(msg) and is_realm(msg) then
		return  "You cant create groups!"
	end
        group_name = matches[2]
        group_type = 'realm'
        return create_realm(msg)
    end

    local data = load_data(_config.moderation.data)
    local receiver = get_receiver(msg)
			if matches[1] == 'setabout' and matches[2] == 'group' and is_realm(msg) then
				local target = matches[3]
				local about = matches[4]
				return set_description(msg, data, target, about)
			end
			if matches[1] == 'setabout' and matches[2] == 'sgroup'and is_realm(msg) then
				local channel = 'channel#id'..matches[3]
				local about_text = matches[4]
				local data_cat = 'description'
				local target = matches[3]
				channel_set_about(channel, about_text, ok_cb, false)
				data[tostring(target)][data_cat] = about_text
				save_data(_config.moderation.data, data)
				return "Description has been set for ["..matches[2]..']'
			end
			if matches[1] == 'setrules' then
				rules = matches[3]
				local target = matches[2]
				return set_rules(msg, data, target)
			end
			if matches[1] == 'lock' then
				local target = matches[2]
				if matches[3] == 'name' then
					return lock_group_name(msg, data, target)
				end
				if matches[3] == 'member' then
					return lock_group_member(msg, data, target)
				end
				if matches[3] == 'photo' then
					return lock_group_photo(msg, data, target)
				end
				if matches[3] == 'flood' then
					return lock_group_flood(msg, data, target)
				end
				if matches[2] == 'arabic' then
					return lock_group_arabic(msg, data, target)
				end
				if matches[3] == 'links' then
					return lock_group_links(msg, data, target)
				end
				if matches[3] == 'spam' then

					return lock_group_spam(msg, data, target)
				end
				if matches[3] == 'rtl' then
					return unlock_group_rtl(msg, data, target)
				end
				if matches[3] == 'sticker' then
					return lock_group_sticker(msg, data, target)
				end
			end
			if matches[1] == 'unlock' then
				local target = matches[2]
				if matches[3] == 'name' then
					return unlock_group_name(msg, data, target)
				end
				if matches[3] == 'member' then
					return unlock_group_member(msg, data, target)
				end
				if matches[3] == 'photo' then
					return unlock_group_photo(msg, data, target)
				end
				if matches[3] == 'flood' then
					return unlock_group_flood(msg, data, target)
				end
				if matches[3] == 'arabic' then
					return unlock_group_arabic(msg, data, target)
				end
				if matches[3] == 'links' then
					return unlock_group_links(msg, data, target)
				end
				if matches[3] == 'spam' then
					return unlock_group_spam(msg, data, target)
				end
				if matches[3] == 'rtl' then
					return unlock_group_rtl(msg, data, target)
				end
				if matches[3] == 'sticker' then
					return unlock_group_sticker(msg, data, target)
				end
			end

		if matches[1] == 'settings' and matches[2] == 'group' and data[tostring(matches[3])]['settings'] then
			local target = matches[3]
			text = show_group_settingsmod(msg, target)
			return text.."\nID: "..target.."\n"
		end
		if  matches[1] == 'settings' and matches[2] == 'sgroup' and data[tostring(matches[3])]['settings'] then
			local target = matches[3]
			text = show_supergroup_settingsmod(msg, target)
			return text.."\nID: "..target.."\n"
		end

		if matches[1] == 'setname' and is_realm(msg) then
			local settings = data[tostring(matches[2])]['settings']
			local new_name = string.gsub(matches[2], '_', ' ')
			data[tostring(msg.to.id)]['settings']['set_name'] = new_name
			save_data(_config.moderation.data, data)
			local group_name_set = data[tostring(msg.to.id)]['settings']['set_name']
			local to_rename = 'chat#id'..msg.to.id
			rename_chat(to_rename, group_name_set, ok_cb, false)
			savelog(msg.to.id, "Realm { "..msg.to.print_name.." }  name changed to [ "..new_name.." ] by "..name_log.." ["..msg.from.id.."]")
        end

		if matches[1] == 'setgpname' and is_admin1(msg) then
		    local new_name = string.gsub(matches[3], '_', ' ')
		    data[tostring(matches[2])]['settings']['set_name'] = new_name
		    save_data(_config.moderation.data, data)
		    local group_name_set = data[tostring(matches[2])]['settings']['set_name']
		    local chat_to_rename = 'chat#id'..matches[2]
			local channel_to_rename = 'channel#id'..matches[2]
		    rename_chat(to_rename, group_name_set, ok_cb, false)
			rename_channel(channel_to_rename, group_name_set, ok_cb, false)
			savelog(matches[3], "Group { "..group_name_set.." }  name changed to [ "..new_name.." ] by "..name_log.." ["..msg.from.id.."]")
		end

    	if matches[1] == 'help' and is_realm(msg) then
      		savelog(msg.to.id, name_log.." ["..msg.from.id.."] Used /help")
     		return help()
    	end
		--[[if matches[1] == 'set' then
			if matches[2] == 'loggroup' and is_sudo(msg) then
				local target = msg.to.peer_id
                savelog(msg.to.peer_id, name_log.." ["..msg.from.id.."] set as log group")
				return set_log_group(target, data)
			end
		end
		if matches[1] == 'rem' then
			if matches[2] == 'loggroup' and is_sudo(msg) then
				local target = msg.to.id
				savelog(msg.to.id, name_log.." ["..msg.from.id.."] set as log group")
				return unset_log_group(target, data)
			end
		end]]
		if matches[1] == 'kill' and matches[2] == 'chat' and matches[3] then
			if not is_admin1(msg) then
				return
			end
			if is_realm(msg) then
				local receiver = 'chat#id'..matches[3]
				return modrem(msg),
				print("Closing Group: "..receiver),
				chat_info(receiver, killchat, {receiver=receiver})
			else
				return 'Error: Group '..matches[3]..' not found'
			end
		end
		if matches[1] == 'kill' and matches[2] == 'realm' and matches[3] then
			if not is_admin1(msg) then
				return
			end
			if is_realm(msg) then
				local receiver = 'chat#id'..matches[3]
				return realmrem(msg),
				print("Closing realm: "..receiver),
				chat_info(receiver, killrealm, {receiver=receiver})
			else
				return 'Error: Realm '..matches[3]..' not found'
			end
		end
		if matches[1] == 'rem' and matches[2] then
			-- Group configuration removal
			data[tostring(matches[2])] = nil
			save_data(_config.moderation.data, data)
			local groups = 'groups'
			if not data[tostring(groups)] then
				data[tostring(groups)] = nil
				save_data(_config.moderation.data, data)
			end
			data[tostring(groups)][tostring(matches[2])] = nil
			save_data(_config.moderation.data, data)
			send_large_msg(receiver, 'Chat '..matches[2]..' removed')
		end

		if matches[1] == 'chat_add_user' then
		    if not msg.service then
		        return
		    end
		    local user = 'user#id'..msg.action.user.id
		    local chat = 'chat#id'..msg.to.id
		    if not is_admin1(msg) and is_realm(msg) then
				  chat_del_user(chat, user, ok_cb, true)
			end
		end
		if matches[1] == 'addadmin' then
		    if not is_sudo(msg) then-- Sudo only
				return
			end
			if string.match(matches[2], '^%d+$') then
				local admin_id = matches[2]
				print("user "..admin_id.." has been promoted as admin")
				return admin_promote(msg, admin_id)
			else
			  local member = string.gsub(matches[2], "@", "")
				local mod_cmd = "addadmin"
				chat_info(receiver, username_id, {mod_cmd= mod_cmd, receiver=receiver, member=member})
			end
		end
		if matches[1] == 'removeadmin' then
		    if not is_sudo(msg) then-- Sudo only
				return
			end
			if string.match(matches[2], '^%d+$') then
				local admin_id = matches[2]
				print("user "..admin_id.." has been demoted")
				return admin_demote(msg, admin_id)
			else
			local member = string.gsub(matches[2], "@", "")
				local mod_cmd = "removeadmin"
				chat_info(receiver, username_id, {mod_cmd= mod_cmd, receiver=receiver, member=member})
			end
		end
		if matches[1] == 'support' and matches[2] then
			if string.match(matches[2], '^%d+$') then
				local support_id = matches[2]
				print("User "..support_id.." has been added to the support team")
				support_add(support_id)
				return "User ["..support_id.."] has been added to the support team"
			else
				local member = string.gsub(matches[2], "@", "")
				local receiver = get_receiver(msg)
				local get_cmd = "addsupport"
				resolve_username(member, res_user_support, {get_cmd = get_cmd, receiver = receiver})
			end
		end
		if matches[1] == '-support' then
			if string.match(matches[2], '^%d+$') then
				local support_id = matches[2]
				print("User "..support_id.." has been removed from the support team")
				support_remove(support_id)
				return "User ["..support_id.."] has been removed from the support team"
			else
				local member = string.gsub(matches[2], "@", "")
				local receiver = get_receiver(msg)
				local get_cmd = "removesupport"
				resolve_username(member, res_user_support, {get_cmd = get_cmd, receiver = receiver})
			end
		end
		if matches[1] == 'type'then
             local group_type = get_group_type(msg)
			return group_type
		end
		if matches[1] == 'list' then
			if matches[2] == 'admins' then
				return admin_list(msg)
			end
		--	if matches[2] == 'support' and not matches[2] then
			--	return support_list()
		--	end
		end
		
		if matches[1] == 'list' and matches[2] == 'groups' then
			if msg.to.type == 'chat' or msg.to.type == 'channel' then
				groups_list(msg)
				send_document("chat#id"..msg.to.id, "./groups/lists/groups.txt", ok_cb, false)
				send_document("channel#id"..msg.to.id, "./groups/lists/groups.txt", ok_cb, false)
				return "Group list created" --group_list(msg)
			elseif msg.to.type == 'user' then
				groups_list(msg)
				send_document("user#id"..msg.from.id, "./groups/lists/groups.txt", ok_cb, false)
				return "Group list created" --group_list(msg)
			end
		end
		if matches[1] == 'list' and matches[2] == 'realms' then
			if msg.to.type == 'chat' or msg.to.type == 'channel' then
				realms_list(msg)
				send_document("chat#id"..msg.to.id, "./groups/lists/realms.txt", ok_cb, false)
				send_document("channel#id"..msg.to.id, "./groups/lists/realms.txt", ok_cb, false)
				return "Realms list created" --realms_list(msg)
			elseif msg.to.type == 'user' then
				realms_list(msg)
				send_document("user#id"..msg.from.id, "./groups/lists/realms.txt", ok_cb, false)
				return "Realms list created" --realms_list(msg)
			end
		end
   		if matches[1] == 'res' and is_momod(msg) then
      		local cbres_extra = {
        		chatid = msg.to.id
     		}
      	local username = matches[2]
      	local username = username:gsub("@","")
      	savelog(msg.to.id, name_log.." ["..msg.from.id.."] Used /res "..username)
      	return resolve_username(username,  callbackres, cbres_extra)
    end
end

return {
  patterns = {
    "^[#!/](creategroup) (.*)$",
	"^[#!/](createsuper) (.*)$",
    "^[#!/](createrealm) (.*)$",
    "^[#!/](setabout) (%d+) (.*)$",
    "^[#!/](setrules) (%d+) (.*)$",
    "^[#!/](setname) (.*)$",
    "^[#!/](setgpname) (%d+) (.*)$",
    "^[#!/](setname) (%d+) (.*)$",
    "^[#!/](lock) (%d+) (.*)$",
    "^[#!/](unlock) (%d+) (.*)$",
	"^[#!/](mute) (%d+)$",
	"^[#!/](unmute) (%d+)$",
    "^[#!/](settings) (.*) (%d+)$",
    "^[#!/](wholist)$",
    "^[#!/](who)$",
	"^[#!/]([Ww]hois) (.*)",
    "^[#!/](type)$",
    "^[#!/](kill) (chat) (%d+)$",
    "^[#!/](kill) (realm) (%d+)$",
	"^[#!/](rem) (%d+)$",
    "^[#!/](addadmin) (.*)$", -- sudoers only
    "^[#!/](removeadmin) (.*)$", -- sudoers only
	"[#!/ ](support)$",
	"^[#!/](support) (.*)$",
    "^[#!/](-support) (.*)$",
    "^[#!/](list) (.*)$",
    "^[#!/](log)$",
    "^[#!/](help)$",
    "^(creategroup) (.*)$",
	"^(createsuper) (.*)$",
    "^(createrealm) (.*)$",
    "^(setabout) (%d+) (.*)$",
    "^(setrules) (%d+) (.*)$",
    "^(setname) (.*)$",
    "^(setgpname) (%d+) (.*)$",
    "^(setname) (%d+) (.*)$",
    "^(lock) (%d+) (.*)$",
    "^(unlock) (%d+) (.*)$",
	"^(mute) (%d+)$",
	"^(unmute) (%d+)$",
    "^(settings) (.*) (%d+)$",
    "^(wholist)$",
    "^(who)$",
	"^([Ww]hois) (.*)",
    "^(type)$",
    "^(kill) (chat) (%d+)$",
    "^(kill) (realm) (%d+)$",
	"^(rem) (%d+)$",
    "^(addadmin) (.*)$", -- sudoers only
    "^(removeadmin) (.*)$", -- sudoers only
	"(support)$",
	"^(support) (.*)$",
    "^(-support) (.*)$",
    "^(list) (.*)$",
    "^(log)$",
    "^(help)$",
    "^!!tgservice (.+)$",
  },
  run = run
}
end