История Чата + Антирекламма, API2 | Ведет лог чата Рейтинг Опции

[NatUraL]

такой вопрос.. даже как то странно! у меня этот скрипт работает токо если его вывести на первое место в списке скрипттов в PtokaX, сами понимаете что это приводит к тому что последние сообшения выводятся перед "сообщением от хубы" а это ой как неудобно! кто может подсказать что можно сделать?? или из за чего это вызвано?

[PaN]

Кто-нибудь может сделать в этом скрипте так, чтобы функция приема лога 20 последних сообщений была по умолчанию отключена и тем кому надо пользоваться функцией, в меню бы её включали!?

[alcorp]

Стрелок:

/etc/ptokax/scripts/chatlogs.lua:276: bad argument #1 to 'pairs' (table expected, got nil)
/etc/ptokax/scripts/chatlogs.lua:152: attempt to index global 'Cmds' (a nil value)

Для исправления - берем из оригинальной версии, начиная со строки 345 и до конца файла:

Код

Cmds = {
    togglehistory = function(user,data)
        if user then
            local status,result = "убраны из","Теперь вы будете "..
                "получать истрию чата при заходе на хаб."
            local Exclude = CheckEx(user)
            if not Exclude then
                table.insert(Cfg.Exclude,user.sNick)
                status,result = "добавлены в","Больше вы "..
                "не будете получать историю чата при входе."
            else
                table.remove(Cfg.Exclude,Exclude)
            end
            SaveToFile(Cfg.UserFile,Cfg.Exclude,"Cfg.Exclude")
            return "Вы были "..status.." таблицы исключений. "..result
        else
            return "Активация сохранения истории чата","",""
        end
    end,
    history = function(user,data)
        local ChatLines = Cfg.MaxChat
        if user then
            local _,_,lines = data:find("%b<> %p%w+ (%d+)")
            if not lines then
                lines = ChatLines
            else
                lines = tonumber(lines)
            end
            return GetChat(lines)
        else
            return "Получить историю чата",
            " %[line:# Число линий для вывода (макс) "..ChatLines.."]",
            " %[line:# Число линий для вывода (макс) "..ChatLines.."]"
        end
    end,
    dayhistory = function(user,data)
        local today = tonumber(os.date("%Y") + os.date("%j"))
        if user then
            local _,_,days = data:find("%b<> %p%w+ (%d+)")
            if days then
                local past = today - tonumber(days)
                OnError(past)
                local str = "\r\n\r\n <"..string.rep("?",70)..
                "[ Last ( "..days.." ) days of chat ]??????????>\r\n"
                for i,v in ipairs(Cfg.Chat)do
                    if v[1] > past then
                        str = str.."\r\n ["..i.."] "..v[2].." "..v[3].." "..v[4]
                    end
                end
                str = str.."\r\n\r\n <"..string.rep("?",70).."[ Конец истории чата ]"..
                string.rep("?",string.len(days)).."??????????>\r\n\r\n"
                return str
            else
                return "You must specify how many days"
            end
        else
            return "История чата по дням",
            " %[line:За сколько дней показать историю?]",
            " %[line:За сколько дней показать историю?]"
        end
    end,
    delete = function(user,data)
        local ChatLines = #Cfg.Chat
        if user then
            if user.iProfile == Cfg.AdminProf then
                local _,_,lines = data:find("%b<> %p%w+ (%d+)")
                if not lines then
                    lines = ChatLines
                else
                    lines = tonumber(lines)
                end
                return DelChat(lines)
            else
                return "Sorry "..user.sNick..", this command is for "..
                ProfMan.GetProfile(Cfg.AdminProf).sProfileName.."'s only."
            end
        else
            return "Стереть историю чата",
            " %[line:# линий **ноль = все ("..ChatLines..") сообщения ]",
            " %[line:# линий **ноль = все ("..ChatLines..") сообщения ]"
        end
    end,
    delchat = function(user,data)
        local ChatLines = #Cfg.Chat
        if user then
            if user.iProfile == Cfg.AdminProf then
                local _,_,line = data:find("%b<> %p%w+ (%d+)")
                if line then
                    line = tonumber(line)
                    if Cfg.Chat[line] then
                        local str = Cfg.Chat[line][4]
                        table.remove(Cfg.Chat,line)
                        SaveToFile(Cfg.File,Cfg.Chat,"Cfg.Chat")
                        return "Линии истории чата "..line.." были удалены.\r\n"..
                        "Удаленная история: "..string.format("%q",str)
                    else
                        return line.." не верный ввод."..GetChat(Cfg.History)
                    end
                else
                    return "Вы должны указать что нужно удалить."
                end
            else
                return "Прости "..user.sNick..", эта команда только для "..
                ProfMan.GetProfile(Cfg.AdminProf).sProfileName.."пользователей."
            end
        else
            return "Удалить строку истории",
            " %[line:Какую трем?]",
            " %[line:Какую трем?]"
        end
    end,
    chathelp = function(user,data,to)
        if user then
            local reply = "Chat History Help\n\n\tCommand\t\tDescription\r\n"..
            "\t"..string.rep("?",40).."\r\n"
            for i,v in pairs(Cmds) do
                local desc,args = Cmds[i]()
                reply = reply.."\t"..Cfg.Pfx..string.format("%-15s",i).."\t"..desc.."\r\n"
            end
            return reply.."\n\t"..string.rep("?",40).."\r\n\r\n"
        else
            return "Помощь по истории чата","",""
        end
    end,
}

И добавляем в конец файла версии от СТРЕЛКА.

[ClubViper]

Вроде сам всё настроил, единственная просьба, подскажите плиз как сделать чтоб полная история выводилась в ЛС а не в чат?

[Артём]

Код

Core.SendPmToUser

[ClubViper]

Код

Core.SendPmToUser

не катит, ошибку пишет

[ClubViper]

Итак выкладываю полностью рабочую версию:
- История чата теперь присылается в личку (отсутствие прятания хистори в строку статуса клиента)
- Исправлены некоторые неточности в переводе
 Chat_History__clubviper_edition_.lua ( 16.34 килобайт ) Кол-во скачиваний: 113

[Rapid_82]

Всем привет.
Перехожу с PtokaX 0.3.6.0 на Ptokax 0.4.1.1. Установил скрипт хистори. Всё работает. Спасибо.
Только как бы убрать из юзерлиста бота История, не удаляя имя бота из скрипта, так как тогда в чате будет отображаться <>, вместо <История>?

[Alexey]

Закомментируй или удали строку, содержащую функцию Core.RegBot().

[Rapid_82]

спасибо =)

[Panda]

Итак выкладываю полностью рабочую версию:
- История чата теперь присылается в личку (отсутствие прятания хистори в строку статуса клиента)
- Исправлены некоторые неточности в переводе
 Chat_History__clubviper_edition_.lua ( 16.34 килобайт ) Кол-во скачиваний: 113

Перерыл весь форум в поисках скриптов истории, перепробовал наверное все, уже запутался в них ...
Собственно теперь появилась вот такая проблема, не хочет ни один скрипт работать под (с историей чата) Ptokax 0.4.1.2 (Ось Win7? пробовал и на ХР, такая же фигня). Скрипт как таковой запускается и ошибок в синтаксисе нет, но он не ведет история (не добавляет в базу сообщения). Могу предположить, что это из-за того, что используется Lua 5.1.4
Может кто поковырять и потестить на ptokax 0.4.1.2 данный скрипт?

[Wariner]

могу предположить что какой то скрипт стоящий выше истории чата блокирует сообщение и до истории оно не доходит))) пробуем менять местами или отключать скрипты!

[Panda]

могу предположить что какой то скрипт стоящий выше истории чата блокирует сообщение и до истории оно не доходит))) пробуем менять местами или отключать скрипты!

Тестировался на чистом хабе где был только один скрипт (история чата)