script_name('NEWS-HELPER')
script_author("Serhiy_Rubin")
local inicfg, sampev, milisec, vkeys = require 'inicfg', require 'lib.samp.events', require 'socket', require 'lib.vkeys'
require 'lib.sampfuncs'
require 'lib.moonloader'
local antiflood = os.clock() * 1000 ; timer = os.clock() ; adid = 21 ; arrayAD = {} ; ad_check = 0
function main()
if not isSampLoaded() or not isSampfuncsLoaded() then return end
while not isSampAvailable() do wait(100) end
repeat wait(0) until sampGetCurrentServerName() ~= 'SA-MP'
server = sampGetCurrentServerName():gsub('|', '')
server = (server:find('02') and 'Two' or (server:find('Revolution') and 'Revolution' or (server:find('Legacy') and 'Legacy' or (server:find('Classic') and 'Classic' or (server:find('02') and 'Two' or (server:find('TEST') and 'Test' or '')) ))))
if server == '' then thisScript():unload() end
_, my_id = sampGetPlayerIdByCharHandle(PLAYER_PED)
my_nick = sampGetPlayerNickname(my_id)
ini = inicfg.load({
Settings = {
send_number = 0,
mili_time = 100,
ad_cena = 100
},
Activation = {
[my_nick] = false,
},
Auto = {
[my_nick] = false,
},
Render = {
FontName='Segoe UI',
FontSize=10,
FontFlag=15,
Color='FFFFFF'
},
Pos = {
X = 0,
Y = 0
},
Key = {
read = 'VK_1',
send = 'VK_3',
auto = 'VK_4',
ad_list = 'VK_N',
check_ad = 'VK_O'
}
})
inicfg.save(ini)
font = renderCreateFont(ini.Render.FontName, ini.Render.FontSize, ini.Render.FontFlag)
-- Auto-Send settings
last_send = tonumber(os.date("%S")) ; next_second = math.fmod(last_send + 16, 60) ; status = false
if math.fmod(next_second, 2) ~= ini.Settings.send_number then
next_second = next_second - 1
end
while true do
wait(0)
if ini.Activation[my_nick] then
doAutoSend()
doRender()
doKeyCheck()
doPos()
doSetKey()
end
end
end
-- main
function doAutoSend()
local this_second = tonumber(os.date("%S"))
local this_milisecond = tonumber(tostring(milisec.gettime()):sub(12, 14))
if this_milisecond ~= nil and this_milisecond ~= 999 and this_second == next_second and this_milisecond > ini.Settings.mili_time then
status = true
end
if ini.Auto[my_nick] and status and (os.clock() * 1000 - antiflood) > 1000 then
sampSendChat("/adsend "..adid)
end
end
function doRender()
if sampIsScoreboardOpen() or not sampIsChatVisible() or isKeyDown(116) or isKeyDown(121) then return end
local S1 = os.clock() * 1000
local S2 = timer * 1000
local S3 = (S1 - S2) / 1000
local autot = (ini.Auto[my_nick] and '!' or '')
local rttext = string.format("{%s}%s%0.1f", ini.Render.Color, autot, S3)
renderFontDrawText(font, rttext, ini.Pos.X, ini.Pos.Y, 0xFFFFFFFF)
end
function doKeyCheck()
if (not sampIsDialogActive() or (sampGetCurrentDialogType() ~= 1 and sampGetCurrentDialogType() ~= 3)) and not sampIsChatInputActive() then
if wasKeyPressed(vkeys[ini.Key.read]) then
sampSendChat("/adedit "..adid)
end
if wasKeyPressed(vkeys[ini.Key.send]) then
sampSendChat("/adsend "..adid)
end
if wasKeyPressed(vkeys[ini.Key.auto]) then
ini.Auto[my_nick] = not ini.Auto[my_nick]
inicfg.save(ini)
end
if wasKeyPressed(vkeys[ini.Key.ad_list]) then
list_ad = 1
lua_thread.create(function()
repeat
wait(0)
if list_ad == 1 and (os.clock() * 1000) - antiflood > 1100 then
list_ad = -1
sampSendChat('/n')
end
until list_ad == 0
end)
end
if wasKeyPressed(vkeys[ini.Key.check_ad]) then
ad_check = 1
lua_thread.create(function()
repeat
wait(0)
if ad_check == 1 and (os.clock() * 1000) - antiflood > 1100 then
ad_check = -1
sampSendChat('/n')
end
until ad_check == 0
end)
end
end
end
function doPos()
if setpos ~= nil then
sampSetCursorMode(3)
curX, curY = getCursorPos()
ini.Pos.X = curX
ini.Pos.Y = curY
if isKeyJustPressed(1) then
sampSetCursorMode(0)
setpos = nil
inicfg.save(ini)
end
end
end
function doSetKey()
if setkey ~= nil then
local key = ""
for k, v in pairs(vkeys) do
if wasKeyPressed(v) and k ~= "VK_ESCAPE" and k ~= "VK_RETURN" then
key = k
end
end
if key ~= '' then
ini.Key[setkey] = key
inicfg.save(ini)
setkey = nil
Dialog()
start_dialog(dialog[1])
end
end
end
-- HOOK
function sampev.onSendChat(message) antiflood = os.clock() * 1000 end
function sampev.onSendCommand(cmd) antiflood = os.clock() * 1000
if cmd:lower() == "/nn" then
lua_thread.create(function()
Dialog()
start_dialog(dialog[1])
end)
return false
end
end
function sampev.onServerMessage(color, message)
if message:find("сотрудник News (.*): (.*)") and my_nick ~= nil then
if message:find(my_nick) and ini.Auto[my_nick] then
ini.Auto[my_nick] = false
inicfg.save(ini)
end
last_send = tonumber(os.date("%S"))
next_second = math.fmod(last_send + 16, 60)
if math.fmod(next_second, 2) ~= ini.Settings.send_number then
next_second = next_second - 1
end
timer = os.clock()
status = false
end
if message:find('Добавлено новое объявление от .+. Номер объявления (%d+)') then
local id = tonumber(message:match('Добавлено новое объявление от .+. Номер объявления (%d+)'))
arrayAD[id] = nil
end
if status and message == " Объявления с таким ID не существует" or message == ' Объявление больше не существует' then
status = false
end
if message == ' Не флуди!' then
if ad_check == -1 then
ad_check = 1
end
if list_ad == -1 then
list_ad = 1
end
end
if message == ' Вы не репортер' then
ad_check = 0
list_ad = 0
ini.Auto[my_nick] = false
end
end
function sampev.onShowDialog(dialogId, style, title, button1, button2, text)
if title == 'Репортеры' and text:find('%[3%] Объявления') then -- Меню /n
if ad_check == -1 then
ad_check = 2
ThreadSendDialog(90, dialogId, 1, 3, '[3] Объявления')
lua_thread.create(function()
checking, checkall = 0, 0
repeat wait(0)
local text = 'Checking '..checking..'/'..checkall
local x, y = getScreenResolution()
x = x - renderGetFontDrawTextLength(font, text)
y = y - renderGetFontDrawHeight(font)
renderFontDrawText(font, text, x, y, -1)
until ad_check == 0
end)
return false
end
if list_ad == -1 then
list_ad = 0
ThreadSendDialog(90, dialogId, 1, 3, '[3] Объявления')
return false
end
end
if title == 'Объявления' and text:find('%[id: ') then -- Объявления
local array = split(text, '\n')
local dialogText = ''
if ad_check == 2 then
dialogArray = {}
end
for k,v in pairs(array) do
local id = tonumber(v:match('%[id: (%d+)%]'))
if id ~= nil then
if ad_check == 2 and not v:find('Проверил') and arrayAD[id] == nil then
checkall = checkall + 1
dialogArray[#dialogArray + 1] = { text = v, list = k-1, id = id}
end
if arrayAD[id] ~= nil then
v = v:gsub('%[id', string.format('{59de00}[%s$]{FFFFFF} [id', arrayAD[id]))
end
dialogText = string.format('%s%s\n', dialogText, v)
end
end
if ad_check == 2 then ad_check = -2 end
if ad_check == -2 or ad_check == 3 then
if dialogArray[#dialogArray] ~= nil then
adstring = dialogArray[#dialogArray].text
adid = dialogArray[#dialogArray].id
ad_check = 3
ThreadSendDialog(90, 22, 1, dialogArray[#dialogArray].list, adstring)
dialogArray[#dialogArray] = nil
return false
else
ad_check = 0
end
end
return {dialogId, style, title, button1, button2, dialogText}
end
if title == 'Меню' and text:find('%[0%] Читать') then -- Меню редактировать, отправить
ShowNewsMenu = 1
if ad_check == 3 then
ad_check = -3
ThreadSendDialog(90, dialogId, 1, 0, '[0] Читать')
return false
end
if ad_check == 4 then
ad_check = -2
ThreadSendDialog(90, dialogId, 0, 0, '[0] Читать')
return false
end
end
if title == 'Сообщение' or title == 'Ввод параметра' and ShowNewsMenu ~= nil then -- Диалог с текстом объявления
ShowNewsMenu = nil
if adstring ~= nil and not adstring:find('Проверил') then
arrayAD[adid] = ((#text * ini.Settings.ad_cena) / 100) * 60
end
if ad_check == -3 then
ad_check = 4
checking = checking + 1
ThreadSendDialog(90, dialogId, 0, 0, '')
return false
end
end
end
function ThreadSendDialog(sleep, id, button, listitem, input)
lua_thread.create(function(sleep, id, button, listitem, input)
wait(sleep)
sampSendDialogResponse(id, button, listitem, input)
end, sleep, id, button, listitem, input)
end
function sampev.onSendDialogResponse(dialogId, button, listboxId, input)
-- Получаем ID последнего открытого объявления.
if string.find(sampGetDialogCaption(), "Объявления") and button == 1 then
local array = split(sampGetDialogText(), '\n')
for k,v in pairs(array) do
if listboxId == (k - 1) then
adid = tonumber(string.match(v, "%[id: (%d+)%]"))
adstring = input
end
end
end
end
-- Dialog
function Dialog()
dialog = {
{
settings = {title = "NEWS-HELPER" ,style = 4 ,btn1 = "Далее" ,btn2 = "Закрыть" ,forward = "{ffffff}" ,backwards = "\n" ,score = true},
{
{
title = "Таймер объявлений\t"..ON_OFF(ini.Activation[my_nick]),
click = function(button, list, input , outs)
if button == 1 then
ini.Activation[my_nick] = not ini.Activation[my_nick]
inicfg.save(ini)
Dialog()
return dialog[1]
end
end
},
{
title = "Сменить позицию таймера\t",
click = function(button, list, input , outs)
if button == 1 then
setpos = 1
Dialog()
return dialog[1]
end
end
},
{
title = "[AUTO] Условие 1\t"..(ini.Settings.send_number == 0 and 'Чётные' or 'Нечётные'),
click = function(button, list, input , outs)
if button == 1 then
ini.Settings.send_number = (ini.Settings.send_number == 0 and 1 or 0)
inicfg.save(ini)
Dialog()
return dialog[1]
end
end
},
{
title = "[AUTO] Условие 2\t"..ini.Settings.mili_time..' мс.',
click = function(button, list, input , outs)
if button == 1 then
return dialog[2]
end
end
},
{
title = "Кнопка для проверки\t"..ini.Key.read:gsub("VK_", ''),
click = function(button, list, input , outs)
if button == 1 then
setkey = 'read'
sampShowDialog(584, "SET POS", "{FFFFFF}Нажмите на нужную клавишу", "Сохранить", "Назад", 0)
end
end
},
{
title = "Кнопка для отправки\t"..ini.Key.send:gsub("VK_", ''),
click = function(button, list, input , outs)
if button == 1 then
setkey = 'send'
sampShowDialog(584, "SET POS", "{FFFFFF}Нажмите на нужную клавишу", "Сохранить", "Назад", 0)
end
end
},
{
title = "Кнопка для авто-отправки\t"..ini.Key.auto:gsub("VK_", ''),
click = function(button, list, input , outs)
if button == 1 then
setkey = 'auto'
sampShowDialog(584, "SET POS", "{FFFFFF}Нажмите на нужную клавишу", "Сохранить", "Назад", 0)
end
end
},
{
title = "Кнопка для открытия списка объявлений\t"..ini.Key.ad_list:gsub("VK_", ''),
click = function(button, list, input , outs)
if button == 1 then
setkey = 'ad_list'
sampShowDialog(584, "SET POS", "{FFFFFF}Нажмите на нужную клавишу", "Сохранить", "Назад", 0)
end
end
},
{
title = "Кнопка для проверки стоимости объявлений\t"..ini.Key.check_ad:gsub("VK_", ''),
click = function(button, list, input , outs)
if button == 1 then
setkey = 'check_ad'
sampShowDialog(584, "SET POS", "{FFFFFF}Нажмите на нужную клавишу", "Сохранить", "Назад", 0)
end
end
},
},
},
{
settings = {title = "NEWS-TIMER" ,style = 1 ,btn1 = "Сохранить",btn2 = "Назад",forward = "{ff0000}" ,backwards = "\n" ,score = false},
{
text = "{ffffff}Введите миллисекунды от 0 до 1000.",
{
click = function(button, list, input , outs)
if button == 0 then
return dialog[1]
else
sampAddChatMessage("Вы написали в диалог вот это: "..input, 0xffcecece)
if input:find('%d+') then
ini.Settings.mili_time = tonumber(input:match('%d+'))
inicfg.save(ini)
Dialog()
return dialog[1]
else
sampAddChatMessage("Ошибка. Введите число от 0 до 1000.", 0xffcecece)
return dialog[2]
end
end
end
}
}
},
}
end
function ON_OFF(bool)
return (bool and '{45d900}ON' or '{ff0000}OFF')
end
-- Function Dialog
function start_dialog(menu)
function _dialog(menu, id, outs)
sampShowDialog(id, menu.settings.title, tbl_split(menu.settings.style, menu, menu.settings.forward ,menu.settings.backwards ,menu.settings.score), menu.settings.btn1, (menu.settings.btn2 ~= nil and menu.settings.btn2 or _), menu.settings.style)
repeat
wait(0)
local result, button, list, input = sampHasDialogRespond(id)
if result then
local out, outs = menu[((menu.settings.style == 0 or menu.settings.style == 1 or menu.settings.style == 3) and 1 or ((list + 1) > #menu[1] and 2 or 1))][((menu.settings.style == 0 or menu.settings.style == 1 or menu.settings.style == 3) and 1 or ((list + 1) > #menu[1] and (list - #menu[1]) + 1 or list + 1))].click(button, list, input, outs)
if type(out) == "table" then
return _dialog(out, id - 1, outs)
elseif type(out) == "boolean" then
if not out then
return out
end
return _dialog(menu, id, outs)
end
end
until result
end
function tbl_split(style, tbl, forward ,backwards ,score)
if style == 2 or style == 4 or style == 5 then
text = (style == 5 and tbl[1].text.."\n" or "")
for i, val in ipairs(tbl[1]) do
text = text..""..forward..""..(score and "["..i.."]{ffffff} " or "")..""..val.title..""..backwards
end
if tbl[2] ~= nil then
for _, val in ipairs(tbl[2]) do
text = text..""..forward..""..val.title..""..backwards
end
end
return text
end
return tbl[1].text
end
return _dialog(menu, 1337, outs)
end
--- Function split
function split(str, delim, plain)
local tokens, pos, plain = {}, 1, not (plain == false) --[[ delimiter is plain text by default ]]
repeat
local npos, epos = string.find(str, delim, pos, plain)
table.insert(tokens, string.sub(str, pos, npos and npos - 1))
pos = epos and epos + 1
until not pos
return tokens
end
