elseif ImguiPage == 4 then --------- #EVENTS #MYEVENTS ------------------------------
imgui.BeginChild('##MyEvents', imgui.ImVec2(500, 440), true)
tbl_MyEvents = {}
for line in io.lines('moonloader\\config\\Telegram Control SAMP\\My Events.txt') do
table.insert(tbl_MyEvents,line)
end
for k,v in pairs(tbl_MyEvents) do
imgui.Selectable((v), false)
end
imgui.CenterText(u8'Сохраняется по пути moonloader/config/Telegram Control SAMP/My Events.txt')
imgui.Separator()
if imgui.ButtonHex(u8'Очистить ' .. fa.ICON_TIMES_CIRCLE, 0x00FF629b, imgui.ImVec2(-1,25)) then imgui.OpenPopup('clear events?') end
if imgui.ButtonHex(u8'Редактировать Add Events.txt '.. fa.ICON_COG, 0x00ffaa00, imgui.ImVec2(-1,35) ) then imgui.OpenPopup('Edit Add Events.txt') end
if imgui.ButtonHex(u8'Добавить ' .. fa.ICON_PLUS, 0x006FF253, imgui.ImVec2(-1,50) ) then imgui.OpenPopup('Add Events') end
---------------------------------------------------------------------------------------------------------------------
if imgui.BeginPopup('clear events?') then
imgui.TextColored(imgui.ImVec4(1,0,0,1), u8'Очистить My Events.txt?')
if imgui.Button(u8'Да', imgui.ImVec2(-1, 30)) then
file = io.open(path..'\\My Events.txt', 'w')
file:write('')
file:close()
imgui.CloseCurrentPopup()
end
if imgui.Button(u8'Нет', imgui.ImVec2(-1,30)) then imgui.CloseCurrentPopup() end
imgui.EndPopup()
end
imgui.SetNextWindowSize(imgui.ImVec2(650, 400), imgui.Cond.FirstUseEver)
if imgui.BeginPopupModal('Edit Add Events.txt', nil, imgui.WindowFlags.NoResize + imgui.WindowFlags.NoCollapse + imgui.WindowFlags.NoTitleBar) then
if imgui.ButtonHex(u8'Закрыть ' .. fa.ICON_TIMES, 0x00FF0000, imgui.ImVec2(-1, 30), 5) then imgui.CloseCurrentPopup() end
imgui.Separator()
if imgui.ButtonHex(u8'Обновить '..fa.ICON_REFRESH, 0x008a968b, imgui.ImVec2(-1,25)) then
Input.MyEvents_MultilineText1.v = ''
tbl_MyEvents = {}
for line in io.lines('moonloader\\config\\Telegram Control SAMP\\My Events.txt') do
table.insert(tbl_MyEvents,line)
end
for k,v in pairs(tbl_MyEvents) do
Input.MyEvents_MultilineText1.v = Input.MyEvents_MultilineText1.v .. v .. '\n'
end
end
imgui.InputTextMultiline('##edit_my_events', Input.MyEvents_MultilineText1, imgui.ImVec2(-1,295))
if imgui.ButtonHex(u8'Сохранить '..fa.ICON_FLOPPY_O, 0x0000FF00, imgui.ImVec2(-1,20), 5) then
f = io.open('moonloader\\config\\Telegram Control SAMP\\My Events.txt', 'w')
f:write(Input.MyEvents_MultilineText1.v)
f:close()
imgui.CloseCurrentPopup()
end
imgui.EndPopup()
end
imgui.SetNextWindowSize(imgui.ImVec2(500, 350), imgui.Cond.FirstUseEver)
if imgui.BeginPopupModal('Add Events', nil, imgui.WindowFlags.NoResize + imgui.WindowFlags.NoCollapse + imgui.WindowFlags.NoTitleBar) then
if imgui.ButtonHex(u8'Закрыть ' .. fa.ICON_TIMES, 0x00FF0000, imgui.ImVec2(-1, 30), 5) then imgui.CloseCurrentPopup() end
imgui.Separator()
imgui.Text(u8'Если скрипт..') imgui.SameLine()
imgui.PushItemWidth(200)
imgui.Combo('##1', ImInt.MyEvents_Combo1,
{'',u8'найдет в чате текст..', u8'увидит что у машины меньше..', u8'увидит в диалоге..', u8'увидит по времени..' })
imgui.PopItemWidth()
if ImInt.MyEvents_Combo1.v == 1 then -- chat
--imgui.SameLine()
imgui.PushItemWidth(-1)
imgui.InputText('##text1', Input.MyEvents_Text1)
imgui.PopItemWidth()
elseif ImInt.MyEvents_Combo1.v == 2 then -- CAR HP
imgui.SliderInt('##hp_car', ImInt.MyEvents_Slider1, 100, 1500)
imgui.SameLine() imgui.Text('HP') imgui.TextQuestion(u8'Если у машины будет меньше ' .. ImInt.MyEvents_Slider1.v .. u8' ХП,тоо..')
elseif ImInt.MyEvents_Combo1.v == 3 then -- Dialog
imgui.PushItemWidth(200)
imgui.Combo('##dialogs', ImInt.MyEvents_Combo2, {'ID', u8'В заголовке Текст', u8'В самому диалоге текст'})
imgui.PopItemWidth()
imgui.PushItemWidth(-1)
imgui.NewInputText('##text1', Input.MyEvents_Text1, 460, 'vespanwho?')
imgui.PopItemWidth()
elseif ImInt.MyEvents_Combo1.v == 4 then -- время os.date
-- imgui.InputText('##time', Input.MyEvents_Text1)--
imgui.PushItemWidth(30)
imgui.InputInt('##h', ImInt.MyEvents_H,0,0)
imgui.SameLine() imgui.Text(':') imgui.SameLine()
imgui.InputInt('##m',ImInt.MyEvents_M,0,0)
imgui.SameLine() imgui.Text(':') imgui.SameLine()
imgui.InputInt('##s',ImInt.MyEvents_S,0,0)
imgui.PopItemWidth(3)
--
imgui.TextDisabled(u8'Указывать время ЧЧ:ММ:СС(>12:30:00) | 24формат часов!('..os.date('%H:%M:%S')..')')
end
if ImInt.MyEvents_Combo1.v > 0 then
imgui.Text(u8'То..')
imgui.PushItemWidth(200) imgui.InputText('##sendclient', Input.MyEvents_SendClient)
imgui.TextQuestion(u8'Отправит команду клиенту(к премеру /rec что бы перезайти или /q)\nЧто бы отключить функцию - оставьте поле пустым.\nЕсли вы напишите не команду а ТЕКСТ(без /) то - краш\nЕсли напишите команду к премеру /repcar /mm(СЕРВЕРНЫЕ КОМАНДЫ) то - краш')
imgui.ToggleButton(u8'Делаем скриншот(F8)',ToggleButton.MyEvents_Screenshot)
end
if ImInt.MyEvents_Combo1.v > 0 then
imgui.Separator()
if imgui.ButtonHex(u8'Сохранить '..fa.ICON_FLOPPY_O, 0x0000FF00, imgui.ImVec2(-1,20), 5) then
file = io.open(path..'\\My Events.txt', 'r+')
file:seek("end", 0);
-- '%[(.+)-(%d+)]% (%d+) | (.+)
local function SendClient()
if #Input.MyEvents_SendClient.v > 0 then
return Input.MyEvents_SendClient.v
else
return 'nil'
end
end
local function Screenshot()
if ToggleButton.MyEvents_Screenshot.v then
return 'true'
else
return 'false'
end
end
if ImInt.MyEvents_Combo1.v == 1 then -- чат
file:write(string.format('[Chat-0] SendClient:%s Screenshot:%s | %s\n', SendClient(), Screenshot(), Input.MyEvents_Text1.v))
elseif ImInt.MyEvents_Combo1.v == 2 then -- кар хп
file:write(string.format('[HP Car-0] SendClient:%s Screenshot:%s | %s\n',SendClient(), Screenshot(), ImInt.MyEvents_Slider1.v))
elseif ImInt.MyEvents_Combo1.v == 3 then -- диалоги
a = {'ID', u8'Title', u8'Text'}
file:write(string.format('[Dialog-%s] SendClient:%s Screenshot:%s | %s\n',a[ImInt.MyEvents_Combo2.v+1], SendClient(), Screenshot(), Input.MyEvents_Text1.v))
elseif ImInt.MyEvents_Combo1.v == 4 then -- время
file:write(string.format('[Time-0] SendClient:%s Screenshot:%s | %s:%s:%s\n',SendClient(), Screenshot(), ImInt.MyEvents_H.v,ImInt.MyEvents_M.v,ImInt.MyEvents_S.v))
end
file:flush()
file:close()
imgui.CloseCurrentPopup()
ImInt.MyEvents_Combo2.v = 0
end --
end
imgui.EndPopup()
end --------ADD EVENTS----------------------------------------------------------------
imgui.EndChild()
end -- end ImguiPage
imgui.EndChild()
imgui.End()
end
