Версия для печати темы

NewUserConnected = function(user)
user:SendData("$UserCommand 1 2 "..wMenu.."\\Объявления\\Смотреть$<%[mynick]> !news||")
user:SendData("$UserCommand 1 2 "..wMenu.."\\Объявления\\Добавить$<%[mynick]> !addnews %[line:Введите текст вашего сообщения:]||")
user:SendData("$UserCommand 1 2 "..wMenu.."\\Запросник\\Смотреть$<%[mynick]> !showrequests||")
user:SendData("$UserCommand 1 2 "..wMenu.."\\Запросник\\Добавить$<%[mynick]> !addrequest %[line:Введите текст вашего сообщения:]||")
user:SendData("$UserCommand 1 2 "..wMenu.."\\Релизы\\Смотреть$<%[mynick]> !showreleases||")
user:SendData("$UserCommand 1 2 "..wMenu.."\\Релизы\\Добавить$<%[mynick]> !addrelease %[line:Введите описание и магнет на релиз:]||")
if user.bRegistered then
if t = 0 or t = 4 then
showshit2(user,entries,gbname,gbfile,levgbcmd1,"MAIN")
end
end
end

-- меню для ОПов
OpConnected = function(user)
NewUserConnected(user)
user:SendData("$UserCommand 1 2 "..wMenu.."\\Объявления\\Удалить$<%[mynick]> !delnews %[line:Введите номер записи:]||")
user:SendData("$UserCommand 1 2 "..wMenu.."\\Запросник\\Удалить$<%[mynick]> !delrequest %[line:Введите номер записи:]||")
user:SendData("$UserCommand 1 2 "..wMenu.."\\Релизы\\Удалить$<%[mynick]> !delrelease %[line:Введите номер записи:]||")
end

iWeNeedNumberCount = 3    -- кол-во записей нужных нам

function showshit2(user,container,wtf,file,cmdlevel,env)
    if cmdlevel~=0 then
        if CheckUserLevel(user) >= cmdlevel then
            local container=loadshit(file)
            local msg="\r\nПеред вами "..iWeNeedNumberCount.." последние записи из Новости-Релизы (см. меню на правой кнопке) :\r\n\r\n"
            if number>0 then
                local iToDo
                if number <= iWeNeedNumberCount then
                    iToDo = 1
                else
                    iToDo = number - iWeNeedNumberCount + 1
                end
                for i=iToDo,number do
                    s,e,who,when,entry=string.find(container[i], "(.+)|(.+)|(.+)")
                    msg=msg..i..".\t"..who.." - "..when.." ---> "..entry.."\r\n"
                end
                                
                user:SendData(Bot,msg)
            end
        end
    end
end

t = 0

function UserDisconnected(user)
t = t + 1
if t = 5 then
t = 0
end
end
OpDisconnected = UserDisconnected