- Версия MoonLoader
- Другое
Я сдедал свой луа на imgui , как мне сделать , чтобы было постоянная ширина и высота и изменить название mumgui окна.
Версия moonloader v.026.5-beta
Версия moonloader v.026.5-beta
Этот луа:
local imgui = require 'mimgui'
local encoding = require 'encoding'
encoding.default = 'CP1251'
local u8 = encoding.UTF8
local new = imgui.new
local arr = os.date("*t")
local WinState = new.bool()
imgui.OnFrame(function() return WinState[0] end, function(player)
imgui.SetNextWindowPos(imgui.ImVec2(500,500), imgui.Cond.FirstUseEver, imgui.ImVec2(0.5, 0.5))
imgui.SetNextWindowSize(imgui.ImVec2(1240, 400), imgui.Cond.Always)
imgui.Text('Текущее время: '..os.date('%H:%M:%S'))
imgui.Text('Текущая дата: '..arr.day..':'.. arr.month..':'..arr.year)
if imgui.CollapsingHeader('Статья 24. Убийство.') then
imgui.TextWrapped('24.1. Убийство, то есть причинение смерти другому человеку - 5')
imgui.TextWrapped('24.2. Убийство, совершенное в состоянии внезапно возникшего сильного душевного волнения - 3')
end
if imgui.CollapsingHeader('Статья 25. Причинение вреда здоровью.') then
imgui.TextWrapped('25.1. Причинение легкого вреда здоровью человека (( от 10 до 50 хп )) - 2')
imgui.TextWrapped('25.2. Причинение тяжкого вреда здоровью человека (( от 50 до 99 хп )) - 2')
imgui.TextWrapped('25.3. Причинение легкого или тяжкого вреда здоровью, совершенное в состоянии внезапно возникшего сильного душевного волнения - 2')
end
if imgui.CollapsingHeader('Статья 26. Угроза убийством или причинением вреда здоровью.') then
imgui.TextWrapped('26. Угроза убийством или причинением тяжкого вреда здоровью - 2')
end
if imgui.CollapsingHeader('Статья 27. Воспрепятствование оказанию медицинской помощи.') then
imgui.TextWrapped('27. Воспрепятствование в какой бы то ни было форме законной деятельности медицинского работника по оказанию медицинской помощи, если оно повлекло по неосторожности смерть пациента - 3')
end
if imgui.CollapsingHeader('Статья 28. Похищение человека, нарушение прав на свободу.') then
imgui.TextWrapped('В доработке')
end
if imgui.CollapsingHeader('Статья 29. Клевета.') then
imgui.TextWrapped('29.1. Клевета, то есть распространение заведомо ложных сведений, порочащих честь и достоинство другого лица или подрывающих его репутацию - 1')
imgui.TextWrapped('29.2. Клевета, совершенная с использованием своего служебного положения')
end
if imgui.CollapsingHeader('Статья 30. Противоправные действия сексуального характера.') then
imgui.TextWrapped('30.1. Мужеложство, лесбиянство или иные действия сексуального характера с применением насилия или с угрозой его применения к потерпевшему (потерпевшей) или к другим лицам либо с использованием беспомощного состояния потерпевшего (потерпевшей) - 4')
end
if imgui.CollapsingHeader('Статья 31. Истязание, пытки.') then
imgui.TextWrapped('31.1. Причинение физических или психических страданий путем систематического нанесения побоев либо иными насильственными действиями, если это не повлекло последствий - 5')
end
if imgui.CollapsingHeader('Статья 32. Побои.') then
imgui.TextWrapped('32.1. Побои или иные насильственные действия, причинившие физическую боль, но не повлекшие последствий, совершенные из хулиганских побуждений, а равно по мотивам политической, идеологической, расовой, национальной или религиозной ненависти или вражды либо по мотивам ненависти или вражды в отношении какой-либо социальной группы - 2')
end
if imgui.CollapsingHeader('Статья 33. Кража.') then
imgui.TextWrapped('33.1. Кража, то есть тайное хищение чужого имущества - 2')
imgui.TextWrapped('33.2. Кража государственной собственности - 3')
end
if imgui.CollapsingHeader('Статья 34. Грабеж.') then
imgui.TextWrapped('Грабеж, то есть открытое хищение чужого имущества, с применением насилия или угрозой - 3')
end
if imgui.CollapsingHeader('Статья 35. Вымогательство.') then
imgui.TextWrapped('Вымогательство, то есть требование передачи чужого имущества или права на имущество или совершения других действий имущественного характера под какой-либо угрозой - 3')
end
if imgui.CollapsingHeader('Статья 36. Угон транспортного средства.') then
imgui.TextWrapped('36.1. Угон автомобиля - 2')
imgui.TextWrapped('36.2. Угон воздушного или водного транспорта - 3')
end
if imgui.CollapsingHeader('Статья 37. Террористический акт.') then
imgui.TextWrapped('Совершение взрыва, захвата заложников в целях воздействия на органы власти, принятия какого-либо решения или получения другой выгоды является терроризмом - 6')
end
if imgui.CollapsingHeader('Статья 38. Содействие террористическим действиям') then
imgui.TextWrapped('38.1. Склонение, вербовка или иное вовлечение лица в террористическую группу или признанной террористической организацией - 3')
imgui.TextWrapped('38.2. Пособничество в совершении террористического акта - 3')
end
if imgui.CollapsingHeader('Статья 39. Призывы к осуществлению террористической деятельности.') then
imgui.TextWrapped('39. Публичный призыв к осуществлению к террористической деятельности - 1')
end
if imgui.CollapsingHeader('Статья 40. Террористическая деятельность.') then
imgui.TextWrapped('40. Создание, подготовка, вербовка а равно как и участие в террористическом объединении, т.е. объединении целью и действиями которого является осуществление террористических актов - 5')
end
if imgui.CollapsingHeader('Статья 41. Захват заложника.') then
imgui.TextWrapped('41. Захват или удержание лица в качестве заложника, совершенное в целях принуждения какого-либо лица или организации, совершить какое-либо действие или воздержаться от него - 6')
end
if imgui.CollapsingHeader('Статья 44. Неисполнение воинской повинности в мобилизационный период.') then
imgui.TextWrapped('44. Неисполнение воинской повинности в мобилизационный период - 2-5 по ситуации')
end
if imgui.CollapsingHeader('Статья 46. Незаконное проникновение на охраняемый объект.') then
imgui.TextWrapped('46.1. Незаконное проникновение на охраняемый объект, установленный в соответствии с законодательством или иными нормативно-правовыми актами - 2')
imgui.TextWrapped('46.2. Незаконное проникновение на военную базу или территорию Тюрьмы Строгого Режима - 5')
end
if imgui.CollapsingHeader('Статья 47. Незаконное приобретение,передача,продажа,хранение огнестрельного оружия.') then
imgui.TextWrapped('47.1. Незаконное приобретение, хранение огнестрельного оружия, т.е. не имея лицензии на него - 4')
imgui.TextWrapped('47.2. Незаконная продажа, попытка продажи или иная попытка сбыта огнестрельного оружия - 6')
imgui.TextWrapped('47.3. Лицо, добровольно сдавшее предметы, указанные в настоящей статье части 1 и 2, освобождается от уголовной ответственности по данной статье. Не может признаваться добровольной сдачей предметов их изъятие при задержании лица, а также при производстве следственных действий по их обнаружению и изъятию.')
end
if imgui.CollapsingHeader('Статья 48. Ношение оружия в открытом виде в городе, любом другом населенном пункте или в публичном месте.') then
imgui.TextWrapped('48. Ношение огнестрельного оружия в открытом виде в городе, любом другом населенном пункте или в публичном месте - 2')
imgui.TextWrapped('| Примечание: под публичным местом подразумевается: праздничные площади находящиеся вне населенных пунктах, жилищные комплексы, фермы, шахты и т.п. виды мест.')
end
if imgui.CollapsingHeader('Статья 49. Незаконное изготовление, хранение, передача, попытка сбыта взрывчатых веществ.') then
imgui.TextWrapped('49. Незаконное изготовление взрывчатых веществ, а равно как хранение, передача, попытка сбыта - 4')
end
if imgui.CollapsingHeader('Статья 50. Пиратство.') then
imgui.TextWrapped('50. Нападение на водное судно или наземный транспорт в целях завладения чужим имуществом - 3')
end
if imgui.CollapsingHeader('Статья 51. Дубликаты ключа.') then
imgui.TextWrapped('51.1 За создание, сбыт, попытка сбыта, дубликата ключа от Тюрьмы Строгого Режима - 3')
imgui.TextWrapped('51.2 За создание,сбыт, попытка сбыта,дубликата ключей чужих автомобилей (отмычки для угона) - 3')
end
if imgui.CollapsingHeader('Статья 53. Приобретение, сбыт или его попытка, хранение, изготовление наркотических веществ.') then
imgui.TextWrapped('53.1. Незаконное приобретение, хранение более 20 грамм, изготовление наркотических веществ - 3')
imgui.TextWrapped('53.2. Незаконный сбыт или его попытка наркотических веществ - 4')
imgui.TextWrapped('53.3. Лицо, добровольно сдавшее в органы министерства юстиции наркотические вещества сверх допустимой нормы хранения (не более 100 сверх нормы), освобождается от уголовной ответственности за хранение и приобретение наркотических средств.')
imgui.TextWrapped('| Примечание: семена наркотиков также попадают под данную статью, но должны быть доказательства, что это именно семена наркотиков')
imgui.TextWrapped('| Примечание: Добровольной сдачей считается самостоятельное желание лица передать наркотические средства правоохранительным органам, исключая ситуации, когда к лицу применяются процессуальные действия.')
end
if imgui.CollapsingHeader('Статья 55. Незаконное выращивание растений, содержащие наркотические вещества.') then
imgui.TextWrapped('55. Незаконное выращивание растений, содержащие наркотические вещества - 3')
end
if imgui.CollapsingHeader('Статья 58. Государственная измена.') then
imgui.TextWrapped('58.1. Государственная измена в случае предоставления сведений от гражданина сведений, предоставляющую государственную тайну и являющуюся секретной информацией, доверенную лицу или ставшую известной ему по службе, работе или иных случаях, предусмотренных законодательством Штата Квин-Крик - 5')
end
if imgui.CollapsingHeader('Статья 59. Посягательство на жизнь государственного деятеля.') then
imgui.TextWrapped('Посягательство на жизнь государственного деятеля, совершенное в целях прекращения его государственной или иной политической деятельности либо из мести за такую деятельность - 3')
end
if imgui.CollapsingHeader('Статья 60. Насильственный захват власти или насильственное удержание власти.') then
imgui.TextWrapped('60. Действия, направленные на насильственный захват власти или насильственное удержание власти в нарушение Конституции Штата Квин-Крик - 6')
end
if imgui.CollapsingHeader('Статья 61. Вооруженный мятеж.') then
imgui.TextWrapped('61. Организация вооруженного мятежа либо активное участие в нем в целях свержения или насильственного изменения власти - 6')
end
if imgui.CollapsingHeader('Статья 62. Возбуждение ненависти либо вражды, а равно унижение человеческого достоинства.') then
imgui.TextWrapped('62. Действия, направленные на возбуждение ненависти либо вражды, а также на унижение достоинства человека либо группы лиц по признакам пола, расы, национальности, происхождения, отношения к религии, а равно принадлежности к какой-либо социальной группе - 2')
end
if imgui.CollapsingHeader('Статья 63. Экстремистская деятельность и участие в преступных группировках.') then
imgui.TextWrapped('63.1 Создание, подготовка, вербовка а равно как и участие в сообществе признанном Верховным судом Штата Квин-Крик экстремистским - 5')
imgui.TextWrapped('63.2 Создание, вербовка а также участие в преступных группировках и организациях - 6')
end
if imgui.CollapsingHeader('Статья 64. Злоупотребление должностными полномочиями') then
imgui.TextWrapped('64. Использование должностным лицом своих полномочий, с корыстной целью или иной личной заинтересованностью - 3')
end
if imgui.CollapsingHeader('Статья 65. Превышение должностных полномочий.') then
imgui.TextWrapped('65.1. Совершение должностным лицом действий, явно выходящих за пределы его полномочий - 4')
imgui.TextWrapped('65.2. Самоуправство, то есть самовольное, вопреки установленному законом или иным нормативным правовым актом порядку совершение каких-либо действий, правомерность которых оспаривается организацией или гражданином, если такими действиями причинен существенный вред - 1')
end
if imgui.CollapsingHeader('Статья 66. Неисполнение приказа сотрудником правоохранительных органов.') then
imgui.TextWrapped('66.1 Умышленное неисполнение законного приказа сотрудников правоохранительных органов - 2')
imgui.TextWrapped('66.2. Неподчинение законному письменному или устному приказу представителя власти - 4')
end
if imgui.CollapsingHeader('Статья 68. Получение взятки.') then
imgui.TextWrapped('68. Получение должностным лицом взятки за оказание каких-либо незаконных услуг - 3')
end
if imgui.CollapsingHeader('Статья 70. Служебный подлог.') then
imgui.TextWrapped('70. Служебный подлог, то есть внесение должностным лицом, а также государственным служащим или муниципальным служащим, не являющимся должностным лицом, в официальные документы заведомо ложных сведений, а равно внесение в указанные документы исправлений, искажающих их действительное содержание, если эти деяния совершены из корыстной или иной личной заинтересованности - 3')
end
if imgui.CollapsingHeader('Статья 71. Халатность.') then
imgui.TextWrapped('71. Халатность, то есть неисполнение или ненадлежащее исполнение должностным лицом своих обязанностей вследствие недобросовестного или небрежного отношения к обязанностям по должности - 2')
end
if imgui.CollapsingHeader('Статья 72. Посягательство на жизнь судьи или сотрудника правоохранительных органов.') then
imgui.TextWrapped('72. Посягательство на жизнь судьи или сотрудника правоохранительных органов, прокуроров, совершенное в целях воспрепятствования законной деятельности указанных лиц либо из мести за такую деятельность - 6')
end
if imgui.CollapsingHeader('Статья 73. Угроза судье или сотруднику правоохранительных органов или прокурорам.') then
imgui.TextWrapped('73. Угроза судье или сотруднику правоохранительных органов или прокурорам Угроза судье или сотруднику правоохранительных органов - 4')
end
if imgui.CollapsingHeader('Статья 76. Незаконное освобождение лица из под стражи.') then
imgui.TextWrapped('76.1 Незаконное освобождение (побег) лица из под стражи - х2 срок')
imgui.TextWrapped('76.2 Помощь в побеге или ее попытка - 3')
end
if imgui.CollapsingHeader('Статья 77. Принуждение к даче показаний.') then
imgui.TextWrapped('77.1 Принуждения лица к даче показаний - 3')
end
if imgui.CollapsingHeader('Статья 78. Дача заведомо ложных показаний или сведений.') then
imgui.TextWrapped('78. Дача заведомо ложных показаний или сведений - 2')
end
if imgui.CollapsingHeader('Статья 79. Неисполнение приговора суда.') then
imgui.TextWrapped('79. Злостное неисполнение приговора суда должностным лицом - 400.000$')
end
if imgui.CollapsingHeader('Статья 82. Отказ от уплаты штрафа.') then
imgui.TextWrapped('82.1 Безосновательный отказ от уплаты штрафа - 2')
end
if imgui.CollapsingHeader('Статья 83. Помеха сотрудникам правоохранительных органов.') then
imgui.TextWrapped('83.1 Помеха сотрудникам правоохранительных органов при исполнении - 1')
end
if imgui.CollapsingHeader('Статья 84. Неисполнение постановления суда.') then
imgui.TextWrapped('84.1 Злостное неисполнение постановления суда - 200.000$')
imgui.TextWrapped('84.2 Злостное неисполнение постановления суда должностным лицом - 500.000$')
end
if imgui.CollapsingHeader('Статья 85. Неисполнение требований прокурора.') then
imgui.TextWrapped('85.1. Неисполнение законных требований сотрудника прокуратуры - 1')
imgui.TextWrapped('85.2. Неисполнение законных требований сотрудника прокуратуры должностным лицом - 2')
imgui.TextWrapped('85.3. Неисполнение законных требований сотрудника прокуратуры должностным лицом с явным злоупотреблением полномочиями - увольнение и 600.000$')
end
if imgui.CollapsingHeader('Статья 86. Неисполнение антитрестовского законодательства.') then
imgui.TextWrapped('Статья 86.1. Любой контракт, объединение в форме монополии или какой-либо иной форме или сговор с целью ограничить торговлю или коммерческую деятельность в штате Квин-Крик - 1 млн и 6')
imgui.TextWrapped('Статья 86.2. Любое лицо, которое монополизирует или пытается монополизировать или объединить, принимает участие в сговоре с любым другим лицом или лицами с целью монополизации любого вида торговли или коммерческой деятельности - 1 млн и 6')
end
if imgui.CollapsingHeader('Статья 87. Хищение и нецелесообразная трата бюджетных средств.') then
imgui.TextWrapped('87.1 Присвоение бюджетных средств должностным лицом, равно как и растрата бюджета не в обозначенных при их выделении целях - 6')
imgui.Separator()
end
imgui.End()
end)
function main()
sampRegisterChatCommand('yk', function() WinState[0] = not WinState[0] end)
wait(-1)
end
Последнее редактирование:
