луа кодинг

RusGaming · 23 Апр 2020

как сделать активацию по команде и деактивацию тоже, что бы потом включить скрипт обратно

sᴀxᴏɴ · 23 Апр 2020

Lua:

local active = false
function main()
    repeat wait(0) until isSampAvailable()
    sampRegisterChatCommand('test', function()
        active = not active
        sampAddChatMessage('[Крутой скрипт] ' .. (active and 'включен' or 'выключен'), -1)
    end)
    wait(-1)
end

p0pc0rn · 23 Апр 2020

Lua:

local script_state = false -- ставим true, если хотим автоактивацию скрипта при входе в игру

function main() -- основная функция main
    while not isSampAvailable() or not isSampfuncsLoaded() do wait(0) end -- проверяем, работает ли самп и сампфункс, если не работает что-то - завершаем работу скрипта, чтобы избежать краша
    wait(0) -- нулевая задержка
    sampRegisterChatCommand('cmd', cmd) -- регистрируем команду 'cmd', которая основана на работе функции, указанной вторым оператором. Ниже создадим функцию для этой команды
end -- завершаем main

function cmd() -- функция для работспособности нашей команды. В теле этой функции написано, что произойдёт, если мы напишем /cmd
    if script_state == true then -- если script_state (переменная которую мы создали в начале скрипта, она отражает положение скрипта - включен он или выключен) истина (включен), то:
        sampAddChatMessage('Script deactivated', -1) -- добавить в чат сообщение Script deactivated, второй параметр это цвет
        script_state = false -- установить script_state выключен
    else -- иначе (то есть если script_state == false)
        sampAddChatMessage('Script activated', -1) -- добавить в чат сообщение script activated
        script_state = true -- установить статус включенного скрипту
    end -- выйти из цикла if
end -- закрыть function cmd()

RusGaming · 24 Апр 2020

p0pc0rn написал(а):

Lua:

local script_state = false -- ставим true, если хотим автоактивацию скрипта при входе в игру

function main() -- основная функция main
    while not isSampAvailable() or not isSampfuncsLoaded() do wait(0) end -- проверяем, работает ли самп и сампфункс, если не работает что-то - завершаем работу скрипта, чтобы избежать краша
    wait(0) -- нулевая задержка
    sampRegisterChatCommand('cmd', cmd) -- регистрируем команду 'cmd', которая основана на работе функции, указанной вторым оператором. Ниже создадим функцию для этой команды
end -- завершаем main

function cmd() -- функция для работспособности нашей команды. В теле этой функции написано, что произойдёт, если мы напишем /cmd
    if script_state == true then -- если script_state (переменная которую мы создали в начале скрипта, она отражает положение скрипта - включен он или выключен) истина (включен), то:
        sampAddChatMessage('Script deactivated', -1) -- добавить в чат сообщение Script deactivated, второй параметр это цвет
        script_state = false -- установить script_state выключен
    else -- иначе (то есть если script_state == false)
        sampAddChatMessage('Script activated', -1) -- добавить в чат сообщение script activated
        script_state = true -- установить статус включенного скрипту
    end -- выйти из цикла if
end -- закрыть function cmd()

можешь в скрипт мне впихнуть? я просто не знаю, как это правильно там сделать

alexandersaxon написал(а):

Lua:

local active = false
function main()
    repeat wait(0) until isSampAvailable()
    sampRegisterChatCommand('test', function()
        active = not active
        sampAddChatMessage('[Крутой скрипт] ' .. (active and 'включен' or 'выключен'), -1)
    end)
    wait(-1)
end

можешь в скрипт мне впихнуть? я просто не знаю, как это правильно там сделать

sᴀxᴏɴ · 24 Апр 2020

RusGaming написал(а):
можешь в скрипт мне впихнуть? я просто не знаю, как это правильно там сделать

можешь в скрипт мне впихнуть? я просто не знаю, как это правильно там сделать

Ну может быть ты код хотя бы дашь?

RusGaming · 24 Апр 2020

alexandersaxon написал(а):
Ну может быть ты код хотя бы дашь?

script_name("Script for FBI")
script_dependencies("SAMPFUNCS, SAMP")
require("lib.moonloader")
jstart = 1
-- [[ 1 - Текст в чат игры. 2 - Текст в чат СампФункса. ]]
function main()
if not isSampLoaded() or not isSampfuncsLoaded() then return end
while not isSampAvailable() do wait(1000) end
if jstart == 1 then
sampAddChatMessage("{ffffff}* [EN{ffffff}YAG]: {cd0000}Скрипт писал Rayli_Enyag. {ffffff}Основа: celvin.lua", 0xC1C1C1)
sampAddChatMessage("{ffffff}* [EN{ffffff}YAG]: {cd0000}Специальный скрипт для FBI успешно загружён. {ffffff}Версия скрипта: 3.0.", 0xC1C1C1)
sampAddChatMessage("{ffffff}* [EN{ffffff}YAG]: {cd0000}Помощь по скрипту, доступные команды: {ffffff}/fbihelp.", 0xC1C1C1)
sampAddChatMessage("{ffffff}* [EN{ffffff}YAG]: {cd0000}Помощь в добавлении отыгровок: {ffffff}Bracciale_Paciotti", 0xC1C1C1)
elseif jstart == 2 then
sampfuncsLog("{ffffff}* [AL{ffffff}MAS]: {cd0000}Помощь в добавлении отыгровок: B.Paciotti")
end
sampRegisterChatCommand("fbihelp", fbihelp)
sampRegisterChatCommand("inv1", inv1)
sampRegisterChatCommand("lec", lec)
sampRegisterChatCommand("raz", raz)
sampRegisterChatCommand("exper", exper)
lectnumb()
while true do wait(0)
if inv1id == '1' then
sampSendChat("/todo Приветствую! Я буду проводить вам собседования *встал со стула в знак приветствия.")
inv1id = nil
end
if inv1id =='2' then
sampSendChat("/todo Как вас зовут? * присев на стул,включил ноутбук,после чего открыл базу данных.")
inv1id = nil
end
if inv1id =='3' then
sampSendChat("Очень приятно. Где вы проживаете?")
inv1id = nil
end
if inv1id =='4' then
sampSendChat("Хорошо, есть ли у вас вредные привычки?")
inv1id = nil
end
if inv1id =='5' then
sampSendChat("А какие-то хобби, есть?")
inv1id = nil
end
if inv1id =='6' then
sampSendChat("Есть ли у Вас опыт работы в других силовых структурах?")
inv1id = nil
end
if inv1id =='7' then
sampSendChat("Умеете ли вы работать с компьютером?")
inv1id = nil
end
if inv1id =='8' then
sampSendChat("Какие у вас положительные и отрицательные качества?")
inv1id = nil
end
if inv1id =='9' then
sampSendChat("Назовите свой самый главный недостаток.")
inv1id = nil
end
if inv1id =='10' then
sampSendChat("А Вы что-нибудь делаете для того, что бы избавиться?")
inv1id = nil
end
if inv1id =='11' then
sampSendChat("А теперь назовите своё главное достоинство.")
inv1id = nil
end
if inv1id =='12' then
sampSendChat("Если бы вы могли создать свою собственную компанию, чем бы она занималась?")
inv1id = nil
end
if inv1id =='13' then
sampSendChat("Если бы у вас была возможность ответить повторно на один из предыдущих вопросов, что бы вы сказали?")
inv1id = nil
end
if inv1id =='14' then
sampSendChat("Поздравляю, вы приняты на стажировку.")
inv1id = nil
end
if inv1id =='15' then
sampSendChat("К сожелению вы провалили тест... Жду вашу заявку через 3 дня.")
inv1id = nil
end
end
end
function lectnumb()
lua_thread.create(function()
while true do wait(0)
if lecid == '1' then
sampSendChat("Дисциплинарное положение ФБР.")
wait(15000)
sampSendChat("Из преамбулы: Дисциплинарное положение - основной нормативно-правовой акт, который регламентирует как в общем...")
wait(12000)
sampSendChat("...так и в отдельных аспектах работу Федерального Бюро Расследований.")
wait(11500)
sampSendChat("Дисциплинарное положение является общепринятым к выполнению всеми агентами Федерального Бюро, вне зависимости от их должности.")
wait(15000)
sampSendChat("Единственное исключение, когда агент может нарушить установленные ограничения - это приказ руководства федерального Бюро.")
wait(10000)
sampSendChat("Подробно с дисциплинарным положением вы можете ознакомиться на офф.портале федерального Бюро.")
wait(4500)
sampSendChat("Лекция окончена.")
wait(3000)
sampSendChat("/b /time + F8")
lecid = nil
end
if lecid == '2' then
sampSendChat("Федеральное Бюро Расследований.")
wait(15000)
sampSendChat("Федеральное Бюро Расследований - ключевой орган правоохранительной власти. Спектр Федерального Бюро очень обширный.")
wait(13000)
sampSendChat("Основное отличие Федерального Бюро от полицейских департаментов в том, что юрисдикция Федерального Бюро...")
wait(12000)
sampSendChat("...не ограничивается определенным городом или округом штата, а распространяется на всю его территорию.")
wait(4500)
sampSendChat("Основным приоритеты Бюро:")
wait(1500)
sampSendChat(" - Защита Соединённых Штатов от террористических атак.")
wait(9000)
sampSendChat(" - Защита Соединённых Штатов от операций иностранной разведки и шпионажа.")
wait(6000)
sampSendChat(" - Борьба с коррупцией на всех уровнях.")
wait(4000)
sampSendChat(" - Защита прав гражданских.")
wait(6000)
sampSendChat(" - Борьба с национальными/транснациональными криминальными организациями.")
wait(4000)
sampSendChat(" - Борьба с насильственной преступностью.")
wait(7000)
sampSendChat(" - Борьба с крупной беловоротничковой преступностью.")
wait(5000)
sampSendChat("Лекция окончена.")
wait(4000)
sampSendChat("/b /time + F8")
lecid = nil
end
if lecid == '3' then
sampSendChat("Оформление отчета.")
wait(5600)
sampSendChat("В оформлении отчета от вас требуется максимально ответственный подход!")
wait(9000)
sampSendChat("Разрешено красиво оформлять отчет, при этом соблюдая строгость и норму.")
wait(8000)
sampSendChat("Вы имеете полное право оставить досрочный отчет о выполненной работе...")
wait(6000)
sampSendChat("...по истечению испытательного срока!")
wait(8000)
sampSendChat("Помните, ваш отчет - это ваше лицо! Проверяя отчеты, руководство ФБР делает...")
wait(4000)
sampSendChat("...соответствующие выводы о сотрудниках бюро!")
wait(5000)
sampSendChat("Лекция окончена.")
wait(4000)
sampSendChat("/b /time + F8")
lecid = nil
end
if lecid == '4' then
sampSendChat("Структура Федерального Бюро.")
wait(7000)
sampSendChat(" DEA - Drug Enforcement Administration - Управление по борьбе с наркотиками.")
wait(6000)
sampSendChat("Осуществляет контроль за производством препаратов, содержащих...")
wait(9000)
sampSendChat("наркотические вещества, ведёт борьбу с торговцами наркотиками, проводит рейды на наркопритоны ")
wait(8000)
sampSendChat("CID - Criminal Investigation Division - Криминально-следственный отдел, занимающийся...")
wait(6000)
sampSendChat("...раскрытием преступлений жестокого характера, киберпреступности, гос измены.")
wait(12000)
sampSendChat("Основной отдел, решающий вопросами национальной безопасности, предотвращении терактов и похищений.")
wait(9000)
sampSendChat("NSA- National Security Agensy - занимается слежкой за любой личностью в Штате...")
wait(13000)
sampSendChat("в зависимости от приказа главы, выявлением информации, внедрением в преступные группировки и законные организации.")
wait(5000)
sampSendChat("Лекция окончена.")
wait(4000)
sampSendChat("/b /time + F8")
lecid = nil
end
if lecid == '5' then
sampSendChat("Сбор информации или же просто досье.")
wait(9000)
sampSendChat("Досье - совокупность основных сведений о человека, на которого оно собирается. К этим сведениям относится:")
wait(8000)
sampSendChat("Имя, Фамилия, национальность, возраст, место жительства, имущество, хобби и так далее.")
wait(12000)
sampSendChat(" Сборы досье могут проводиться по разному. Так, иногда сотрудники собирают...")
wait(10000)
sampSendChat("...досье на людей открыто, в этом случае не требуется изощрятся...")
wait(7000)
sampSendChat("...а просто задать необходимый ряд вопросов.")
wait(9000)
sampSendChat("В другом случаи, когда это требуется провести скрытно, сотрудники должны максимально замаскировать...")
wait(4000)
sampSendChat("...себя под гражданское лицо.")
wait(12000)
sampSendChat("Это должно быть предельно неприметно. Гражданская одежда, неофициальная манера речи...")
wait(6000)
sampSendChat("...аппараты налаживания невербального контакта.")
wait(11000)
sampSendChat("Досье можно собирать, внедряясь человеку в доверие и установки дружеских отношений...")
wait(13000)
sampSendChat("...а можно представиться агентом какой-либо компании, которые проводят те, или иные опросы:")
wait(10000)
sampSendChat("Основную сводку , связанную со сбором досье, вы можете прочитать в разделе отдела CID.")
wait(4000)
sampSendChat("Лекция окончена.")
wait(5000)
sampSendChat("/b /time + F8")
lecid = nil
end
if lecid == '6' then
sampSendChat("Оказание ПМП")
wait(8000)
sampSendChat("ПМП - комплекс экстренных медицинских мер, проводимых внезапно заболевшему или пострадавшему...")
wait(6000)
sampSendChat("...на месте происшествия и в период доставки его в медицинское учреждение.")
wait(12000)
sampAddChatMessage("На данный момент термин не используется официально, считается устаревшим, хотя зачастую встречается в ПМП.")
wait(9000)
sampAddChatMessage("Один из основных навыков, которые так или иначе помогают...")
wait(10000)
sampAddChatMessage("...сотрудникам бюро оказать первичную помощь другим, а также самому себе.")
wait(11000)
sampAddChatMessage("ПМП предусматривает основные случаи получения травм практически любого рода, совместимых с жизнью.")
wait(8000)
sampAddChatMessage("При обнаружении пострадавшего, сотрудники обязаны убедиться в отсутствии внешних угроз...")
wait(9000)
sampAddChatMessage("...если таковы имеются, их требуется устранить, либо эвакуировать пострадавшего.")
wait(3000)
sampAddChatMessage("Комплекс мер:")
wait(4000)
sampAddChatMessage("- Сердечно-легочная реанимация.")
wait(5000)
sampAddChatMessage("- Проникающее ранение грудной клетки.")
wait(3000)
sampAddChatMessage("- Ранения брюшной полости.")
wait(6000)
sampAddChatMessage("- Кровотечение артерии и вены: височная, челюстная, сонная, лучевая, плечевая...")
wait(4000)
sampAddChatMessage("...подмышечная, бедренная, большеберцовая.")
wait(3000)
sampAddChatMessage("- Венозное повреждение:")
wait(5000)
sampAddChatMessage("- Иммобилизация при переломе.")
wait(6000)
sampSendChat("Лекция окончена.")
wait(5000)
sampSendChat("/b /time + F8")
lecid = nil
end
if lecid == '7' then
sampSendChat("Основы самозащиты")
wait(8000)
sampSendChat("Самозащита, один из важных навыков, наряду с ПМП. Каждый агент должен мочь за себя постоять.")
wait(9000)
sampSendChat("Помимо физ.подготовки, данный навык может спасти жизнь в тяжелых, критических ситуациях...")
wait(7000)
sampSendChat("...когда огнестрельное оружие бесполезно, а именно при телесном контакте.")
wait(8000)
sampSendChat(" В основу навыка входит комплекс мер, предпринимаемых для обезоруживания и...")
wait(5000)
sampSendChat("...обезвреживания преступника, представляющего угрозу.")
wait(8000)
sampSendChat("В случаи огнестрельного оружия, существует огромный перечень приемов, для устранения.")
wait(7000)
sampSendChat("В первую очередь сотрудник должен оценить возможность реализации приема.")
wait(9000)
sampSendChat("При решении сделать “свой” ход, сотрудник как можно быстро и технично исполнить затеянное.")
wait(10000)
sampSendChat(" В основном, методом обезоруживания является либо перехват руки, берущей на себя ключевую...")
wait(12000)
sampSendChat("...роль в эксплуатации оружия и отстранения её от прибора, либо отвод ствола оружия в сторону, изъятия магазина...")
wait(11000)
sampSendChat("...нажатием фиксатор удерживания его в шахте и спуск курка, когда ствол направлен в сторону, где никого нет. ")
wait(9000)
sampSendChat("При холодном же оружии, перехват рук и их залом, при совершении оппонентом наступательного приема. ")
wait(8000)
sampSendChat("Для устранения дальнейших угроз от человека, сотрудник должен зафиксировать...")
wait(7000)
sampSendChat("...подозреваемого в горизонтальном положении, заломив руки.")
wait(12000)
sampSendChat(" Если отсутствуют любые приборы устранения преступника, можно применить удушающие приемы, перекрыв кислород мозгу.")
wait(5000)
sampSendChat("Лекция окончена.")
wait(5000)
sampSendChat("/b /time + F8")
lecid = nil
end
if lecid == '8' then
sampSendChat("Задержание преступника")
wait(8000)
sampSendChat("Задержание преступника может происходить при разных обстоятельствах, в разных местах:")
wait(9000)
sampSendChat("Помещение, улица, машина, мотоцикл, вертолет, лодка. Для каждого из мест, свой метод.")
wait(6000)
sampSendChat("В случаи помещения все просто, перекрыть все отходы отступления...")
wait(8000)
sampSendChat("приказ сдаться, применения физ.силы, тазера, перцового баллончика, светошумовой гранаты...")
wait(10000)
sampSendChat("слезоточивого газа, шоковой гранаты, выстрела с летального оружия по органам, которые не...")
wait(5000)
sampSendChat("...остановят жизнедеятельность.")
wait(7000)
sampSendChat("При задержании преступника на авто, провести 10-66, в случае неподчинения...")
wait(8000)
sampSendChat("...вышвырнуть подозреваемого из машины, бросить на землю, оглушить и заковать.")
wait(10000)
sampSendChat("Для мотоцикла схожая ситуация, в отличии от машины, нет такого препятствия как крыша, или стекло.")
wait(13000)
sampSendChat("В случае же вертолета, не применять никакой физической силы, а тем более оружия, если заведен или прогрет двигатель.")
wait(9000)
sampSendChat("Для лодки все предельно ясно, предупреждение, в случаи если требуется - абордаж и задержания.")
wait(10000)
sampSendChat("При успешном обездвиживании и обезвреживании подозреваемого, необходимо провести осмотр...")
wait(10000)
sampSendChat("...довести до транспорта эвакуации, провести досмотр, после чего везти в ближайшее отделение...")
wait(6000)
sampSendChat("...и в исключительных случаях в бюро.")
wait(5000)
sampSendChat("Лекция окончена.")
wait(4000)
sampSendChat("/b /time + F8")
lecid = nil
end
if lecid == '9' then
sampSendChat("Экспертиза следов и веществ.")
wait(8000)
sampSendChat("Экспертиза веществ, тесно переплетающаяся с заведением дела.")
wait(10000)
sampSendChat("Любые улики должны быть собраны в не пачкающих инструментах, положены в зиплок и...")
wait(5000)
sampSendChat("...отправлены в архив.")
wait(14000)
sampSendChat("После этого, вещества можно брать из архива в лабораторию для исследований, после чего возвращать на дочернее место.")
wait(11000)
sampSendChat(" При экспертизе веществ, улик необходимо изучить состав и все оставленные отпечатки.")
wait(13000)
sampSendChat("Типы следов: кровяные, биологический материал, волосы, слюна, пот, подногтевое содержимое, перхоть.")
wait(11000)
sampSendChat("Каждый из следов обнаруживается в зависимости от типа преступления, а также его условий.")
wait(12000)
sampSendChat("При исследовании специфического материала изучается, в основном, его молекулы под микроскопом.")
wait(9000)
sampSendChat("Для каждого изучения каждого из следов вам обязательно помогут: Микроскоп...")
wait(8000)
sampSendChat(" Ультрафиолетовые лампы, аппараты AFIS (аппараты сбора отпечатков пальцев)...")
wait(9000)
sampSendChat("...пробирки с солевыми растворами( цоликлонами анти-А, анти-B ).")
wait(15000)
sampSendChat("С экспертизой наркотических препаратов вы можете подробно ознакомиться на офф.портале Федерального Бюро в разделе отдела DEA.")
wait(5000)
sampSendChat("Лекция окончена.")
wait(4000)
sampSendChat("/b /time + F8")
lecid = nil
end
if lecid == '10' then
sampSendChat("Способы дознания, допрос")
wait(9000)
sampSendChat("Дознание - процесс выявления правды. Допрос это способ устного дознания правды.")
wait(6000)
sampSendChat("При проведении допроса, обстановка в которой он проводится, должна...")
wait(7000)
sampSendChat("...быть максимально оптимальной, чтобы человек был настроен на то, чтобы корректно отвечать.")
wait(5000)
sampSendChat("Редки те случаи когда на допросах применяют силу, в...")
wait(6000)
sampSendChat("...основном, это нагнетающая обстановка безысходности.")
wait(12000)
sampSendChat("Применение силовых методов ограничивается только вашим воображением, главное что вы должны знать...")
wait(6000)
sampSendChat("...человеку нельзя причинять неустранимый вред.")
wait(5000)
sampSendChat("Следует обсудить исключительно про устный допрос.")
wait(5000)
sampSendChat("Сперва наперво сверяются данные с собранным досье.")
wait(11000)
sampSendChat("В случаи отсутствия готового досье, оно заполняется в процессе допроса и проверки базы данных.")
wait(15000)
sampSendChat(" После проверки или заполнения досье, проводиться допрос касательно самого преступления или явления, о котором идет речь.")
wait(9000)
sampSendChat("Задавать вопросы нужно четко, прикапываться к каждой мелочи.")
wait(8000)
sampSendChat("абы заинтересовать подозреваемого или информатора...")
wait(12000)
sampSendChat("...в диалоге, надо предрасположить его к себе как можно близко, относиться с пониманием, чтобы человек...")
wait(7000)
sampSendChat("как можно более открыто и эмоциональнее отвечал на ваши вопросы.")
wait(8000)
sampSendChat(" Для некоторых исключительно сила является инструментом дознания...")
wait(10100)
sampSendChat("...а поэтому единого метода к людям нет, надо провести первичный анализ личности и пробовать.")
wait(5000)
sampSendChat("Лекция окончена")
wait(4000)
sampSendChat("/b /time + F8")
lecid = nil
end
if lecid == '11' then
sampSendChat("Штурм здание.")
wait(9000)
sampSendChat("Штурм зданий - крайний метод устранения человеческой угрозы.")
wait(11000)
sampSendChat("При штурме здания недопустимо не соблюдать субординацию, задача при штурме обойтись в...")
wait(10000)
sampSendChat("...минимальные потери с обеих сторон и максимальному задержанию подозреваемых.")
wait(8000)
sampSendChat("Все, кто находятся внутри здания, где происходит тер.акт, ограбление и...")
wait(10000)
sampSendChat("...так далее, являются подозреваемыми, поэтому всех необходимо задерживать без разбирательств.")
wait(6000)
sampSendChat("Вы обязаны соблюдать строй перед штурмом.")
wait(13000)
sampSendChat("Обязательно запомните, что не нужно толпиться, распределитесь по позициям, прикрывайте своих товарищей!")
wait(9000)
sampSendChat("Если вы получили множество ранений, не нужно продолжать стрельбу насмерть!")
wait(9000)
sampSendChat("Найдите укрытие, залечите свои раны при помощи аптечки и смените бронежилет!")
wait(15000)
sampSendChat("Всегда есть командующий штурмом, поэтому внимательно слушайте его тактику, беспрекословно выполняйте его приказы и не перебивайте!")
wait(6000)
sampSendChat("Лекция окончена")
wait(5000)
sampSendChat("/b /time + F8")
lecid = nil
end
if lecid == '12' then
sampSendChat("Проведение переговоров")
wait(9000)
sampSendChat("Переговоры с террористами или похитителями - очень ответственная вещь!")
wait(10000)
sampSendChat("Поэтому при переговорах необходимо быть аккуратным в подбирании тех или иных слов.")
wait(11000)
sampSendChat("Основная задача переговорщика - найти компромисс для обеих сторон! Разрешено минимальное выставление собственных условий!")
wait(11000)
sampSendChat("Первым делом переговорщик должен связаться с похитителями или террористами, после чего договориться о личной встрече.")
wait(13000)
sampSendChat("Перед личной встречей переговорщик должен подготовить кейс с деньгами и заложить отслеживающий жучок в один из трех отсеков!")
wait(6000)
sampSendChat("Переговорщик имеет права удостовериться в том, что заложники живы.")
wait(11000)
sampSendChat("Также, перед началом переговоров, ФБР обязаны раздобыть информацию о внешнем виде похитителей или террористов...")
wait(15000)
sampSendChat("...после чего надеть соответствующую и маскировку и внедриться для получения информации изнутри во время спец. операции!")
wait(6000)
sampSendChat("Лекция окончена.")
wait(5000)
sampSendChat("/b /time + F8")
lecid = nil
end
if lecid == '13' then
sampSendChat("Поимка особо опасных преступников.")
wait(12000)
sampSendChat("ООП или же особо опасный преступник - это преступник находящийся в федеральном розыске с уровнем 5 или 6.")
wait(10000)
sampSendChat("Вы обязаны всегда производить видеофиксацию своей деятельности от задержания до передачи...")
wait(8000)
sampSendChat("...преступника в КПЗ, либо его нейтрализации в случае невозможности задержания!")
wait(8000)
sampSendChat("Поимка ООП разрешена со звания младший агент FBI")
wait(6000)
sampSendChat("Лекция окончена.")
wait(5000)
sampSendChat("/b /time + F8")
lecid = nil
end
if razid == '1' then
sampSendChat("/me достал чемоданчик с набором сапера")
wait(5000)
sampSendChat("/me положил чемоданчик рядом с собой")
wait(5000)
sampSendChat("/do На крышке бомбы 2 болта")
wait(6000)
sampSendChat("/me достал отвертку из чемодана с набором сапера")
wait(5000)
sampSendChat("/do Отвертка в руке")
wait(4000)
sampSendChat("/me откручивает болтики отверткой [1/2]")
wait(6000)
sampSendChat("/me откручивает болтики отверткой [2/2]")
wait(3000)
sampSendChat("/me открутил болтики")
wait(5000)
sampSendChat("/me убрал отвертку обратно в чемоданчик")
wait(5000)
sampSendChat("/me приоткрыл крышку бомбы")
wait(6000)
sampSendChat("/me просматривает бомбу")
wait(3000)
sampSendChat("/me заметил детонатор")
wait(5000)
sampSendChat("/me заметил таймер")
wait(4000)
sampSendChat("/do На таймере 3 минуты")
wait(5000)
sampSendChat("/do К детонатору 10 проводов")
wait(3000)
sampSendChat("/do В кармане лежит набор сапёра")
wait(5000)
sampSendChat("/me достал набор сапёра")
wait(2000)
sampSendChat("/me достал щипцы")
wait(3000)
sampSendChat("/me надрезал красный провод")
wait(5000)
sampSendChat("/try обезвредил бомбу")
razid = nil
end
if razid == '2' then
sampSendChat("/me надрезал синий провод")
wait(3000)
sampSendChat("/try обезвредил бомбу")
razid = nil
end
if razid == '3' then
sampSendChat("/me надрезал зеленый провод")
wait(3000)
sampSendChat("/try обезвредил бомбу")
razid = nil
end
if experid == '1' then
sampSendChat("/do В кармане лежали резиновые перчатки.")
wait(5000)
sampSendChat("/me сунув руку в карман, достал из него перчатки, затем натянул их на руки, размяв пальцы, произнёс:")
wait(3000)
sampSendChat("Ну, начнём...")
wait(5000)
sampSendChat("/do На столе стоит аппарат для экспертизы наркотиков, возле которого лежит респиратор.")
wait(6000)
sampSendChat("/me взяв респиратор в две руки, натянул его на лицо.")
wait(5000)
sampSendChat("/me сунув руку в карман, достал из него зип-лок с неизвестным веществом.")
wait(5000)
sampSendChat("/do Рядом с аппаратом стоит набор для экспертизы.")
wait(8000)
sampSendChat("/me открыв набор достал из него шприц, баночку триэтиламина и баночку этанола.")
wait(5000)
sampSendChat("/me взял колбочку из аппарата, затем, открыв зип-лок высыпал в неё вещество.....")
wait(10000)
sampSendChat("/do ....добавил 0.2мл триэтиламина, добавив каплю этанола, начал выставлять на аппарате следующие настройки:")
wait(9000)
sampSendChat("/do Температура инжектора и интерфейса детектора - 280 градусов.")
wait(8000)
sampSendChat("/do Начальная и конечная температура термостата колонки - 100 и 280 градусов.")
wait(3500)
sampSendChat("/me включил аппарат.")
wait(7000)
sampSendChat("/do Температура термостата колонки изменялась со скоростью 10 градусов в минуту.")
wait(6000)
sampSendChat("/do Спустя 10 минут компьютер начал сравнивать полученные масс-спектры с библиотечными и показал...")
wait(9000)
sampSendChat("/do ....что вещество, которое было в руках - кокаин.")
experid = nil
end
end
end)
end
function inv1(param)
inv1id = string.match(param, '(%d+)')
if inv1id ~= nil then
else
sampAddChatMessage("{cd0000}[ FBI ]:{ffffff} Помощь кураторам и не только {cd0000}[ /inv1 Номер ] | Номера:", 0xC1C1C1)
sampAddChatMessage("{cd0000}[{ffffff} 1 - приветствие | 2 - как зовут? | 3 - где живёшь {cd0000}]",0xC1C1C1)
sampAddChatMessage("{cd0000}[{ffffff} 4 - привычки | 5 - хобби | 6 - опыт в гос | 7 - опыт с пк {cd0000}]",0xC1C1C1)
sampAddChatMessage("{cd0000}[{ffffff} 8 - качества | 9 - недостаток {cd0000}]",0xC1C1C1)
sampAddChatMessage("{cd0000}[{ffffff} 10 - избавься фу | 11 - мужское достоинство | 12 - компания | 13 - повторный вопрос {cd0000}]",0xC1C1C1)
sampAddChatMessage("{cd0000}[{ffffff} 14 - принят | 15 - ну и пошёл нахуй {cd0000}]", 0xC1C1C1)
end
end
function lec(param)
lecid = string.match(param, '(%d+)')
if lecid ~= nil then
else
sampAddChatMessage("{cd0000}[ FBI ]:{ffffff} Лекция {cd0000}[ /lec Номер ] | Номера:", 0xC1C1C1)
sampAddChatMessage("{cd0000}[{ffffff} 1 - Дисциплинарное положение FBI | 2 - Федеральное Бюро Расследований {cd0000}]",0xC1C1C1)
sampAddChatMessage("{cd0000}[{ffffff} 3 - Оформление отчёта | 4 - Структура федерального бюро | 5 - Сбор информации(досье) {cd0000}]", 0xC1C1C1)
sampAddChatMessage("{cd0000}[{ffffff} 6 - Оказание ПМП | 7 - Самозащита | 8 - Задержания преступника {cd0000}]", 0xC1C1C1)
sampAddChatMessage("{cd0000}[{ffffff} 9 - Для ДЕА | 10 - Спсобоы дознания | 11 - Штурм здания {cd0000}]", 0xC1C1C1)
sampAddChatMessage("{cd0000}[{ffffff} 12 - Проведение переговоров | 13 - Поимка особо опасных преступников {cd0000}]", 0xC1C1C1)
end
end
function exper(param)
experid = string.match(param, '(%d+)')
if experid ~= nil then
else
sampAddChatMessage("{cd0000}[ FBI ]:{ffffff} Для экспертизы {cd0000}[ /exper Номер ] | Номера:", 0xC1C1C1)
sampAddChatMessage("{cd0000}[{ffffff} 1 - Экспертиза для показа стажёрам {cd0000}]",0xC1C1C1)
end
end

function raz(param)
razid = string.match(param, '(%d+)')
if razid ~= nil then
else
sampAddChatMessage("{cd0000}[ FBI ]:{ffffff} Для разминирование бомбы {cd0000}[ /raz Номер ] | Номера:", 0xC1C1C1)
sampAddChatMessage("{cd0000}[{ffffff} 1 - Неудачно красный провод | 2 - неудачно синий провод | 3 - зелёный провод. {cd0000}]",0xC1C1C1)
end
end

function fbihelp()
local fbihelp = [[
{cd0000}
{cd0000}_____________________________________________________________________________________________

Скрипт сделан для сотрудников FBI +8 ранга. Над скриптом работали: Rayli_Enyag and Bracciale_Paciotti
{cd0000}* И{ffffff}нформация о скрипте - {cd0000} /fbihelp ;
{cd0000}* Н{ffffff}абор для Федерального Бюро Расследований {cd0000}[ набор ] - {cd0000} /inv1 1-16 ;
{cd0000}* К{ffffff}оманды для отыгровки некоторых действий {cd0000}[ лекции ] - {cd0000} /lec 1-13 ;
{cd0000}* К{ffffff}оманды для отыгровки некоторых действий {cd0000}[ аттестация ] - {cd0000} в разработке ;
{cd0000}* Для{ffffff}глав подразделений была добавлена команда {cd0000} /exper отвечающая за проведение экспертизы.
{cd0000}* Сделана команда для разминирования бомбы, ВАЖНО: если в /try неудачно все 3 раза, то следует писать самому. /raz

{cd0000} * Важно! Enyag love Alves :*

{cd0000}_____________________________________________________________________________________________
]]
sampShowDialog(1010, "{cd0000} Информация о скрипте", fbihelp, "{ffffff}тыкай", "", 0)
end

Albertio · 24 Апр 2020

Lua:

script_name("Script for FBI")
script_dependencies("SAMPFUNCS, SAMP")

require "lib.moonloader"
require "lib.sampfuncs"

local activate = false
local jstart = 1
-- [[ 1 - Текст в чат игры. 2 - Текст в чат СампФункса. ]]

function main()
  if not isSampLoaded() or not isSampfuncsLoaded() then return end
  while not isSampAvailable() do wait(1000) end
  if jstart == 1 then
    sampAddChatMessage("{ffffff}* [EN{ffffff}YAG]: {cd0000}Скрипт писал Rayli_Enyag. {ffffff}Основа: celvin.lua", 0xC1C1C1)
    sampAddChatMessage("{ffffff}* [EN{ffffff}YAG]: {cd0000}Специальный скрипт для FBI успешно загружён. {ffffff}Версия скрипта: 3.0.", 0xC1C1C1)
    sampAddChatMessage("{ffffff}* [EN{ffffff}YAG]: {cd0000}Помощь по скрипту, доступные команды: {ffffff}/fbihelp.", 0xC1C1C1)
    sampAddChatMessage("{ffffff}* [EN{ffffff}YAG]: {cd0000}Помощь в добавлении отыгровок: {ffffff}Bracciale_Paciotti", 0xC1C1C1)
  elseif jstart == 2 then
    sampfuncsLog("{ffffff}* [AL{ffffff}MAS]: {cd0000}Помощь в добавлении отыгровок: B.Paciotti")
  end
  sampRegisterChatCommand("fbion", function()
    lua_thread.create(function()
    if activate == false then
            activate = true
      sampAddChatMessage("{ffffff}* [EN{ffffff}YAG]: {cd0000}Специальный скрипт для FBI активирован.", 0xC1C1C1)
    else
            activate = false
      sampAddChatMessage("{ffffff}* [EN{ffffff}YAG]: {cd0000}Специальный скрипт для FBI деактивирован.", 0xC1C1C1)
    end
  end)
end)
sampRegisterChatCommand("fbihelp", fbihelp)
sampRegisterChatCommand("inv1", inv1)
sampRegisterChatCommand("lec", lec)
sampRegisterChatCommand("raz", raz)
sampRegisterChatCommand("exper", exper)
lectnumb()
while true do
  wait(0)
  if inv1id == '1' then
    sampSendChat("/todo Приветствую! Я буду проводить вам собседования *встал со стула в знак приветствия.")
    inv1id = nil
  end
  if inv1id == '2' then
    sampSendChat("/todo Как вас зовут? * присев на стул,включил ноутбук,после чего открыл базу данных.")
    inv1id = nil
  end
  if inv1id == '3' then
    sampSendChat("Очень приятно. Где вы проживаете?")
    inv1id = nil
  end
  if inv1id == '4' then
    sampSendChat("Хорошо, есть ли у вас вредные привычки?")
    inv1id = nil
  end
  if inv1id == '5' then
    sampSendChat("А какие-то хобби, есть?")
    inv1id = nil
  end
  if inv1id == '6' then
    sampSendChat("Есть ли у Вас опыт работы в других силовых структурах?")
    inv1id = nil
  end
  if inv1id == '7' then
    sampSendChat("Умеете ли вы работать с компьютером?")
    inv1id = nil
  end
  if inv1id == '8' then
    sampSendChat("Какие у вас положительные и отрицательные качества?")
    inv1id = nil
  end
  if inv1id == '9' then
    sampSendChat("Назовите свой самый главный недостаток.")
    inv1id = nil
  end
  if inv1id == '10' then
    sampSendChat("А Вы что-нибудь делаете для того, что бы избавиться?")
    inv1id = nil
  end
  if inv1id == '11' then
    sampSendChat("А теперь назовите своё главное достоинство.")
    inv1id = nil
  end
  if inv1id == '12' then
    sampSendChat("Если бы вы могли создать свою собственную компанию, чем бы она занималась?")
    inv1id = nil
  end
  if inv1id == '13' then
    sampSendChat("Если бы у вас была возможность ответить повторно на один из предыдущих вопросов, что бы вы сказали?")
    inv1id = nil
  end
  if inv1id == '14' then
    sampSendChat("Поздравляю, вы приняты на стажировку.")
    inv1id = nil
  end
  if inv1id == '15' then
    sampSendChat("К сожелению вы провалили тест... Жду вашу заявку через 3 дня.")
    inv1id = nil
  end
end
end

function lectnumb()
lua_thread.create(function()
  if activate == true then
  while true do
    wait(0)
    if lecid == '1' then
      sampSendChat("Дисциплинарное положение ФБР.")
      wait(15000)
      sampSendChat("Из преамбулы: Дисциплинарное положение - основной нормативно-правовой акт, который регламентирует как в общем...")
      wait(12000)
      sampSendChat("...так и в отдельных аспектах работу Федерального Бюро Расследований.")
      wait(11500)
      sampSendChat("Дисциплинарное положение является общепринятым к выполнению всеми агентами Федерального Бюро, вне зависимости от их должности.")
      wait(15000)
      sampSendChat("Единственное исключение, когда агент может нарушить установленные ограничения - это приказ руководства федерального Бюро.")
      wait(10000)
      sampSendChat("Подробно с дисциплинарным положением вы можете ознакомиться на офф.портале федерального Бюро.")
      wait(4500)
      sampSendChat("Лекция окончена.")
      wait(3000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '2' then
      sampSendChat("Федеральное Бюро Расследований.")
      wait(15000)
      sampSendChat("Федеральное Бюро Расследований - ключевой орган правоохранительной власти. Спектр Федерального Бюро очень обширный.")
      wait(13000)
      sampSendChat("Основное отличие Федерального Бюро от полицейских департаментов в том, что юрисдикция Федерального Бюро...")
      wait(12000)
      sampSendChat("...не ограничивается определенным городом или округом штата, а распространяется на всю его территорию.")
      wait(4500)
      sampSendChat("Основным приоритеты Бюро:")
      wait(1500)
      sampSendChat(" - Защита Соединённых Штатов от террористических атак.")
      wait(9000)
      sampSendChat(" - Защита Соединённых Штатов от операций иностранной разведки и шпионажа.")
      wait(6000)
      sampSendChat(" - Борьба с коррупцией на всех уровнях.")
      wait(4000)
      sampSendChat(" - Защита прав гражданских.")
      wait(6000)
      sampSendChat(" - Борьба с национальными/транснациональными криминальными организациями.")
      wait(4000)
      sampSendChat(" - Борьба с насильственной преступностью.")
      wait(7000)
      sampSendChat(" - Борьба с крупной беловоротничковой преступностью.")
      wait(5000)
      sampSendChat("Лекция окончена.")
      wait(4000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '3' then
      sampSendChat("Оформление отчета.")
      wait(5600)
      sampSendChat("В оформлении отчета от вас требуется максимально ответственный подход!")
      wait(9000)
      sampSendChat("Разрешено красиво оформлять отчет, при этом соблюдая строгость и норму.")
      wait(8000)
      sampSendChat("Вы имеете полное право оставить досрочный отчет о выполненной работе...")
      wait(6000)
      sampSendChat("...по истечению испытательного срока!")
      wait(8000)
      sampSendChat("Помните, ваш отчет - это ваше лицо! Проверяя отчеты, руководство ФБР делает...")
      wait(4000)
      sampSendChat("...соответствующие выводы о сотрудниках бюро!")
      wait(5000)
      sampSendChat("Лекция окончена.")
      wait(4000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '4' then
      sampSendChat("Структура Федерального Бюро.")
      wait(7000)
      sampSendChat(" DEA - Drug Enforcement Administration - Управление по борьбе с наркотиками.")
      wait(6000)
      sampSendChat("Осуществляет контроль за производством препаратов, содержащих...")
      wait(9000)
      sampSendChat("наркотические вещества, ведёт борьбу с торговцами наркотиками, проводит рейды на наркопритоны ")
      wait(8000)
      sampSendChat("CID - Criminal Investigation Division - Криминально-следственный отдел, занимающийся...")
      wait(6000)
      sampSendChat("...раскрытием преступлений жестокого характера, киберпреступности, гос измены.")
      wait(12000)
      sampSendChat("Основной отдел, решающий вопросами национальной безопасности, предотвращении терактов и похищений.")
      wait(9000)
      sampSendChat("NSA- National Security Agensy - занимается слежкой за любой личностью в Штате...")
      wait(13000)
      sampSendChat("в зависимости от приказа главы, выявлением информации, внедрением в преступные группировки и законные организации.")
      wait(5000)
      sampSendChat("Лекция окончена.")
      wait(4000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '5' then
      sampSendChat("Сбор информации или же просто досье.")
      wait(9000)
      sampSendChat("Досье - совокупность основных сведений о человека, на которого оно собирается. К этим сведениям относится:")
      wait(8000)
      sampSendChat("Имя, Фамилия, национальность, возраст, место жительства, имущество, хобби и так далее.")
      wait(12000)
      sampSendChat(" Сборы досье могут проводиться по разному. Так, иногда сотрудники собирают...")
      wait(10000)
      sampSendChat("...досье на людей открыто, в этом случае не требуется изощрятся...")
      wait(7000)
      sampSendChat("...а просто задать необходимый ряд вопросов.")
      wait(9000)
      sampSendChat("В другом случаи, когда это требуется провести скрытно, сотрудники должны максимально замаскировать...")
      wait(4000)
      sampSendChat("...себя под гражданское лицо.")
      wait(12000)
      sampSendChat("Это должно быть предельно неприметно. Гражданская одежда, неофициальная манера речи...")
      wait(6000)
      sampSendChat("...аппараты налаживания невербального контакта.")
      wait(11000)
      sampSendChat("Досье можно собирать, внедряясь человеку в доверие и установки дружеских отношений...")
      wait(13000)
      sampSendChat("...а можно представиться агентом какой-либо компании, которые проводят те, или иные опросы:")
      wait(10000)
      sampSendChat("Основную сводку , связанную со сбором досье, вы можете прочитать в разделе отдела CID.")
      wait(4000)
      sampSendChat("Лекция окончена.")
      wait(5000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '6' then
      sampSendChat("Оказание ПМП")
      wait(8000)
      sampSendChat("ПМП - комплекс экстренных медицинских мер, проводимых внезапно заболевшему или пострадавшему...")
      wait(6000)
      sampSendChat("...на месте происшествия и в период доставки его в медицинское учреждение.")
      wait(12000)
      sampAddChatMessage("На данный момент термин не используется официально, считается устаревшим, хотя зачастую встречается в ПМП.")
      wait(9000)
      sampAddChatMessage("Один из основных навыков, которые так или иначе помогают...")
      wait(10000)
      sampAddChatMessage("...сотрудникам бюро оказать первичную помощь другим, а также самому себе.")
      wait(11000)
      sampAddChatMessage("ПМП предусматривает основные случаи получения травм практически любого рода, совместимых с жизнью.")
      wait(8000)
      sampAddChatMessage("При обнаружении пострадавшего, сотрудники обязаны убедиться в отсутствии внешних угроз...")
      wait(9000)
      sampAddChatMessage("...если таковы имеются, их требуется устранить, либо эвакуировать пострадавшего.")
      wait(3000)
      sampAddChatMessage("Комплекс мер:")
      wait(4000)
      sampAddChatMessage("- Сердечно-легочная реанимация.")
      wait(5000)
      sampAddChatMessage("- Проникающее ранение грудной клетки.")
      wait(3000)
      sampAddChatMessage("- Ранения брюшной полости.")
      wait(6000)
      sampAddChatMessage("- Кровотечение артерии и вены: височная, челюстная, сонная, лучевая, плечевая...")
      wait(4000)
      sampAddChatMessage("...подмышечная, бедренная, большеберцовая.")
      wait(3000)
      sampAddChatMessage("- Венозное повреждение:")
      wait(5000)
      sampAddChatMessage("- Иммобилизация при переломе.")
      wait(6000)
      sampSendChat("Лекция окончена.")
      wait(5000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '7' then
      sampSendChat("Основы самозащиты")
      wait(8000)
      sampSendChat("Самозащита, один из важных навыков, наряду с ПМП. Каждый агент должен мочь за себя постоять.")
      wait(9000)
      sampSendChat("Помимо физ.подготовки, данный навык может спасти жизнь в тяжелых, критических ситуациях...")
      wait(7000)
      sampSendChat("...когда огнестрельное оружие бесполезно, а именно при телесном контакте.")
      wait(8000)
      sampSendChat(" В основу навыка входит комплекс мер, предпринимаемых для обезоруживания и...")
      wait(5000)
      sampSendChat("...обезвреживания преступника, представляющего угрозу.")
      wait(8000)
      sampSendChat("В случаи огнестрельного оружия, существует огромный перечень приемов, для устранения.")
      wait(7000)
      sampSendChat("В первую очередь сотрудник должен оценить возможность реализации приема.")
      wait(9000)
      sampSendChat("При решении сделать “свой” ход, сотрудник как можно быстро и технично исполнить затеянное.")
      wait(10000)
      sampSendChat(" В основном, методом обезоруживания является либо перехват руки, берущей на себя ключевую...")
      wait(12000)
      sampSendChat("...роль в эксплуатации оружия и отстранения её от прибора, либо отвод ствола оружия в сторону, изъятия магазина...")
      wait(11000)
      sampSendChat("...нажатием фиксатор удерживания его в шахте и спуск курка, когда ствол направлен в сторону, где никого нет. ")
      wait(9000)
      sampSendChat("При холодном же оружии, перехват рук и их залом, при совершении оппонентом наступательного приема. ")
      wait(8000)
      sampSendChat("Для устранения дальнейших угроз от человека, сотрудник должен зафиксировать...")
      wait(7000)
      sampSendChat("...подозреваемого в горизонтальном положении, заломив руки.")
      wait(12000)
      sampSendChat(" Если отсутствуют любые приборы устранения преступника, можно применить удушающие приемы, перекрыв кислород мозгу.")
      wait(5000)
      sampSendChat("Лекция окончена.")
      wait(5000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '8' then
      sampSendChat("Задержание преступника")
      wait(8000)
      sampSendChat("Задержание преступника может происходить при разных обстоятельствах, в разных местах:")
      wait(9000)
      sampSendChat("Помещение, улица, машина, мотоцикл, вертолет, лодка. Для каждого из мест, свой метод.")
      wait(6000)
      sampSendChat("В случаи помещения все просто, перекрыть все отходы отступления...")
      wait(8000)
      sampSendChat("приказ сдаться, применения физ.силы, тазера, перцового баллончика, светошумовой гранаты...")
      wait(10000)
      sampSendChat("слезоточивого газа, шоковой гранаты, выстрела с летального оружия по органам, которые не...")
      wait(5000)
      sampSendChat("...остановят жизнедеятельность.")
      wait(7000)
      sampSendChat("При задержании преступника на авто, провести 10-66, в случае неподчинения...")
      wait(8000)
      sampSendChat("...вышвырнуть подозреваемого из машины, бросить на землю, оглушить и заковать.")
      wait(10000)
      sampSendChat("Для мотоцикла схожая ситуация, в отличии от машины, нет такого препятствия как крыша, или стекло.")
      wait(13000)
      sampSendChat("В случае же вертолета, не применять никакой физической силы, а тем более оружия, если заведен или прогрет двигатель.")
      wait(9000)
      sampSendChat("Для лодки все предельно ясно, предупреждение, в случаи если требуется - абордаж и задержания.")
      wait(10000)
      sampSendChat("При успешном обездвиживании и обезвреживании подозреваемого, необходимо провести осмотр...")
      wait(10000)
      sampSendChat("...довести до транспорта эвакуации, провести досмотр, после чего везти в ближайшее отделение...")
      wait(6000)
      sampSendChat("...и в исключительных случаях в бюро.")
      wait(5000)
      sampSendChat("Лекция окончена.")
      wait(4000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '9' then
      sampSendChat("Экспертиза следов и веществ.")
      wait(8000)
      sampSendChat("Экспертиза веществ, тесно переплетающаяся с заведением дела.")
      wait(10000)
      sampSendChat("Любые улики должны быть собраны в не пачкающих инструментах, положены в зиплок и...")
      wait(5000)
      sampSendChat("...отправлены в архив.")
      wait(14000)
      sampSendChat("После этого, вещества можно брать из архива в лабораторию для исследований, после чего возвращать на дочернее место.")
      wait(11000)
      sampSendChat(" При экспертизе веществ, улик необходимо изучить состав и все оставленные отпечатки.")
      wait(13000)
      sampSendChat("Типы следов: кровяные, биологический материал, волосы, слюна, пот, подногтевое содержимое, перхоть.")
      wait(11000)
      sampSendChat("Каждый из следов обнаруживается в зависимости от типа преступления, а также его условий.")
      wait(12000)
      sampSendChat("При исследовании специфического материала изучается, в основном, его молекулы под микроскопом.")
      wait(9000)
      sampSendChat("Для каждого изучения каждого из следов вам обязательно помогут: Микроскоп...")
      wait(8000)
      sampSendChat(" Ультрафиолетовые лампы, аппараты AFIS (аппараты сбора отпечатков пальцев)...")
      wait(9000)
      sampSendChat("...пробирки с солевыми растворами( цоликлонами анти-А, анти-B ).")
      wait(15000)
      sampSendChat("С экспертизой наркотических препаратов вы можете подробно ознакомиться на офф.портале Федерального Бюро в разделе отдела DEA.")
      wait(5000)
      sampSendChat("Лекция окончена.")
      wait(4000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '10' then
      sampSendChat("Способы дознания, допрос")
      wait(9000)
      sampSendChat("Дознание - процесс выявления правды. Допрос это способ устного дознания правды.")
      wait(6000)
      sampSendChat("При проведении допроса, обстановка в которой он проводится, должна...")
      wait(7000)
      sampSendChat("...быть максимально оптимальной, чтобы человек был настроен на то, чтобы корректно отвечать.")
      wait(5000)
      sampSendChat("Редки те случаи когда на допросах применяют силу, в...")
      wait(6000)
      sampSendChat("...основном, это нагнетающая обстановка безысходности.")
      wait(12000)
      sampSendChat("Применение силовых методов ограничивается только вашим воображением, главное что вы должны знать...")
      wait(6000)
      sampSendChat("...человеку нельзя причинять неустранимый вред.")
      wait(5000)
      sampSendChat("Следует обсудить исключительно про устный допрос.")
      wait(5000)
      sampSendChat("Сперва наперво сверяются данные с собранным досье.")
      wait(11000)
      sampSendChat("В случаи отсутствия готового досье, оно заполняется в процессе допроса и проверки базы данных.")
      wait(15000)
      sampSendChat(" После проверки или заполнения досье, проводиться допрос касательно самого преступления или явления, о котором идет речь.")
      wait(9000)
      sampSendChat("Задавать вопросы нужно четко, прикапываться к каждой мелочи.")
      wait(8000)
      sampSendChat("абы заинтересовать подозреваемого или информатора...")
      wait(12000)
      sampSendChat("...в диалоге, надо предрасположить его к себе как можно близко, относиться с пониманием, чтобы человек...")
      wait(7000)
      sampSendChat("как можно более открыто и эмоциональнее отвечал на ваши вопросы.")
      wait(8000)
      sampSendChat(" Для некоторых исключительно сила является инструментом дознания...")
      wait(10100)
      sampSendChat("...а поэтому единого метода к людям нет, надо провести первичный анализ личности и пробовать.")
      wait(5000)
      sampSendChat("Лекция окончена")
      wait(4000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '11' then
      sampSendChat("Штурм здание.")
      wait(9000)
      sampSendChat("Штурм зданий - крайний метод устранения человеческой угрозы.")
      wait(11000)
      sampSendChat("При штурме здания недопустимо не соблюдать субординацию, задача при штурме обойтись в...")
      wait(10000)
      sampSendChat("...минимальные потери с обеих сторон и максимальному задержанию подозреваемых.")
      wait(8000)
      sampSendChat("Все, кто находятся внутри здания, где происходит тер.акт, ограбление и...")
      wait(10000)
      sampSendChat("...так далее, являются подозреваемыми, поэтому всех необходимо задерживать без разбирательств.")
      wait(6000)
      sampSendChat("Вы обязаны соблюдать строй перед штурмом.")
      wait(13000)
      sampSendChat("Обязательно запомните, что не нужно толпиться, распределитесь по позициям, прикрывайте своих товарищей!")
      wait(9000)
      sampSendChat("Если вы получили множество ранений, не нужно продолжать стрельбу насмерть!")
      wait(9000)
      sampSendChat("Найдите укрытие, залечите свои раны при помощи аптечки и смените бронежилет!")
      wait(15000)
      sampSendChat("Всегда есть командующий штурмом, поэтому внимательно слушайте его тактику, беспрекословно выполняйте его приказы и не перебивайте!")
      wait(6000)
      sampSendChat("Лекция окончена")
      wait(5000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '12' then
      sampSendChat("Проведение переговоров")
      wait(9000)
      sampSendChat("Переговоры с террористами или похитителями - очень ответственная вещь!")
      wait(10000)
      sampSendChat("Поэтому при переговорах необходимо быть аккуратным в подбирании тех или иных слов.")
      wait(11000)
      sampSendChat("Основная задача переговорщика - найти компромисс для обеих сторон! Разрешено минимальное выставление собственных условий!")
      wait(11000)
      sampSendChat("Первым делом переговорщик должен связаться с похитителями или террористами, после чего договориться о личной встрече.")
      wait(13000)
      sampSendChat("Перед личной встречей переговорщик должен подготовить кейс с деньгами и заложить отслеживающий жучок в один из трех отсеков!")
      wait(6000)
      sampSendChat("Переговорщик имеет права удостовериться в том, что заложники живы.")
      wait(11000)
      sampSendChat("Также, перед началом переговоров, ФБР обязаны раздобыть информацию о внешнем виде похитителей или террористов...")
      wait(15000)
      sampSendChat("...после чего надеть соответствующую и маскировку и внедриться для получения информации изнутри во время спец. операции!")
      wait(6000)
      sampSendChat("Лекция окончена.")
      wait(5000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '13' then
      sampSendChat("Поимка особо опасных преступников.")
      wait(12000)
      sampSendChat("ООП или же особо опасный преступник - это преступник находящийся в федеральном розыске с уровнем 5 или 6.")
      wait(10000)
      sampSendChat("Вы обязаны всегда производить видеофиксацию своей деятельности от задержания до передачи...")
      wait(8000)
      sampSendChat("...преступника в КПЗ, либо его нейтрализации в случае невозможности задержания!")
      wait(8000)
      sampSendChat("Поимка ООП разрешена со звания младший агент FBI")
      wait(6000)
      sampSendChat("Лекция окончена.")
      wait(5000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if razid == '1' then
      sampSendChat("/me достал чемоданчик с набором сапера")
      wait(5000)
      sampSendChat("/me положил чемоданчик рядом с собой")
      wait(5000)
      sampSendChat("/do На крышке бомбы 2 болта")
      wait(6000)
      sampSendChat("/me достал отвертку из чемодана с набором сапера")
      wait(5000)
      sampSendChat("/do Отвертка в руке")
      wait(4000)
      sampSendChat("/me откручивает болтики отверткой [1/2]")
      wait(6000)
      sampSendChat("/me откручивает болтики отверткой [2/2]")
      wait(3000)
      sampSendChat("/me открутил болтики")
      wait(5000)
      sampSendChat("/me убрал отвертку обратно в чемоданчик")
      wait(5000)
      sampSendChat("/me приоткрыл крышку бомбы")
      wait(6000)
      sampSendChat("/me просматривает бомбу")
      wait(3000)
      sampSendChat("/me заметил детонатор")
      wait(5000)
      sampSendChat("/me заметил таймер")
      wait(4000)
      sampSendChat("/do На таймере 3 минуты")
      wait(5000)
      sampSendChat("/do К детонатору 10 проводов")
      wait(3000)
      sampSendChat("/do В кармане лежит набор сапёра")
      wait(5000)
      sampSendChat("/me достал набор сапёра")
      wait(2000)
      sampSendChat("/me достал щипцы")
      wait(3000)
      sampSendChat("/me надрезал красный провод")
      wait(5000)
      sampSendChat("/try обезвредил бомбу")
      razid = nil
    end
    if razid == '2' then
      sampSendChat("/me надрезал синий провод")
      wait(3000)
      sampSendChat("/try обезвредил бомбу")
      razid = nil
    end
    if razid == '3' then
      sampSendChat("/me надрезал зеленый провод")
      wait(3000)
      sampSendChat("/try обезвредил бомбу")
      razid = nil
    end
    if experid == '1' then
      sampSendChat("/do В кармане лежали резиновые перчатки.")
      wait(5000)
      sampSendChat("/me сунув руку в карман, достал из него перчатки, затем натянул их на руки, размяв пальцы, произнёс:")
      wait(3000)
      sampSendChat("Ну, начнём...")
      wait(5000)
      sampSendChat("/do На столе стоит аппарат для экспертизы наркотиков, возле которого лежит респиратор.")
      wait(6000)
      sampSendChat("/me взяв респиратор в две руки, натянул его на лицо.")
      wait(5000)
      sampSendChat("/me сунув руку в карман, достал из него зип-лок с неизвестным веществом.")
      wait(5000)
      sampSendChat("/do Рядом с аппаратом стоит набор для экспертизы.")
      wait(8000)
      sampSendChat("/me открыв набор достал из него шприц, баночку триэтиламина и баночку этанола.")
      wait(5000)
      sampSendChat("/me взял колбочку из аппарата, затем, открыв зип-лок высыпал в неё вещество.....")
      wait(10000)
      sampSendChat("/do ....добавил 0.2мл триэтиламина, добавив каплю этанола, начал выставлять на аппарате следующие настройки:")
      wait(9000)
      sampSendChat("/do Температура инжектора и интерфейса детектора - 280 градусов.")
      wait(8000)
      sampSendChat("/do Начальная и конечная температура термостата колонки - 100 и 280 градусов.")
      wait(3500)
      sampSendChat("/me включил аппарат.")
      wait(7000)
      sampSendChat("/do Температура термостата колонки изменялась со скоростью 10 градусов в минуту.")
      wait(6000)
      sampSendChat("/do Спустя 10 минут компьютер начал сравнивать полученные масс-спектры с библиотечными и показал...")
      wait(9000)
      sampSendChat("/do ....что вещество, которое было в руках - кокаин.")
      experid = nil
    end
  end
end
end)
end

function inv1(param)
if activate == true then
inv1id = string.match(param, '(%d+)')
if inv1id ~= nil then

else
  sampAddChatMessage("{cd0000}[ FBI ]:{ffffff} Помощь кураторам и не только {cd0000}[ /inv1 Номер ] | Номера:", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 1 - приветствие | 2 - как зовут? | 3 - где живёшь {cd0000}]", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 4 - привычки | 5 - хобби | 6 - опыт в гос | 7 - опыт с пк {cd0000}]", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 8 - качества | 9 - недостаток {cd0000}]", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 10 - избавься фу | 11 - мужское достоинство | 12 - компания | 13 - повторный вопрос {cd0000}]", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 14 - принят | 15 - ну и пошёл нахуй {cd0000}]", 0xC1C1C1)
end
end
end

function lec(param)
if activate == true then
lecid = string.match(param, '(%d+)')
if lecid ~= nil then

else
  sampAddChatMessage("{cd0000}[ FBI ]:{ffffff} Лекция {cd0000}[ /lec Номер ] | Номера:", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 1 - Дисциплинарное положение FBI | 2 - Федеральное Бюро Расследований {cd0000}]", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 3 - Оформление отчёта | 4 - Структура федерального бюро | 5 - Сбор информации(досье) {cd0000}]", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 6 - Оказание ПМП | 7 - Самозащита | 8 - Задержания преступника {cd0000}]", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 9 - Для ДЕА | 10 - Спсобоы дознания | 11 - Штурм здания {cd0000}]", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 12 - Проведение переговоров | 13 - Поимка особо опасных преступников {cd0000}]", 0xC1C1C1)
end
end
end

function exper(param)
if activate == true then
experid = string.match(param, '(%d+)')
if experid ~= nil then

else
  sampAddChatMessage("{cd0000}[ FBI ]:{ffffff} Для экспертизы {cd0000}[ /exper Номер ] | Номера:", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 1 - Экспертиза для показа стажёрам {cd0000}]", 0xC1C1C1)
end
end
end

function raz(param)
if activate == true then
razid = string.match(param, '(%d+)')
if razid ~= nil then

else
  sampAddChatMessage("{cd0000}[ FBI ]:{ffffff} Для разминирование бомбы {cd0000}[ /raz Номер ] | Номера:", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 1 - Неудачно красный провод | 2 - неудачно синий провод | 3 - зелёный провод. {cd0000}]", 0xC1C1C1)
end
end
end

function fbihelp()
if activate == true then
local fbihelp = [[
            {cd0000}
            {cd0000}_____________________________________________________________________________________________

            Скрипт сделан для сотрудников FBI +8 ранга. Над скриптом работали: Rayli_Enyag and Bracciale_Paciotti
            {cd0000}* И{ffffff}нформация о скрипте - {cd0000} /fbihelp ;
            {cd0000}* Н{ffffff}абор для Федерального Бюро Расследований {cd0000}[ набор ] - {cd0000} /inv1 1-16 ;
            {cd0000}* К{ffffff}оманды для отыгровки некоторых действий {cd0000}[ лекции ] - {cd0000} /lec 1-13 ;
            {cd0000}* К{ffffff}оманды для отыгровки некоторых действий {cd0000}[ аттестация ] - {cd0000} в разработке ;
            {cd0000}* Для{ffffff}глав подразделений была добавлена команда {cd0000} /exper отвечающая за проведение экспертизы.
            {cd0000}* Сделана команда для разминирования бомбы, ВАЖНО: если в /try неудачно все 3 раза, то следует писать самому. /raz

            {cd0000} * Важно! Enyag love Alves :*

            {cd0000}_____________________________________________________________________________________________
            ]]
sampShowDialog(1010, "{cd0000} Информация о скрипте", fbihelp, "{ffffff}тыкай", "", 0)
end
end

RusGaming · 24 Апр 2020

Albertio написал(а):

Lua:

script_name("Script for FBI")
script_dependencies("SAMPFUNCS, SAMP")

require "lib.moonloader"
require "lib.sampfuncs"

local activate = false
local jstart = 1
-- [[ 1 - Текст в чат игры. 2 - Текст в чат СампФункса. ]]

function main()
  if not isSampLoaded() or not isSampfuncsLoaded() then return end
  while not isSampAvailable() do wait(1000) end
  if jstart == 1 then
    sampAddChatMessage("{ffffff}* [EN{ffffff}YAG]: {cd0000}Скрипт писал Rayli_Enyag. {ffffff}Основа: celvin.lua", 0xC1C1C1)
    sampAddChatMessage("{ffffff}* [EN{ffffff}YAG]: {cd0000}Специальный скрипт для FBI успешно загружён. {ffffff}Версия скрипта: 3.0.", 0xC1C1C1)
    sampAddChatMessage("{ffffff}* [EN{ffffff}YAG]: {cd0000}Помощь по скрипту, доступные команды: {ffffff}/fbihelp.", 0xC1C1C1)
    sampAddChatMessage("{ffffff}* [EN{ffffff}YAG]: {cd0000}Помощь в добавлении отыгровок: {ffffff}Bracciale_Paciotti", 0xC1C1C1)
  elseif jstart == 2 then
    sampfuncsLog("{ffffff}* [AL{ffffff}MAS]: {cd0000}Помощь в добавлении отыгровок: B.Paciotti")
  end
  sampRegisterChatCommand("fbion", function()
    lua_thread.create(function()
    if activate == false then
            activate = true
      sampAddChatMessage("{ffffff}* [EN{ffffff}YAG]: {cd0000}Специальный скрипт для FBI активирован.", 0xC1C1C1)
    else
            activate = false
      sampAddChatMessage("{ffffff}* [EN{ffffff}YAG]: {cd0000}Специальный скрипт для FBI деактивирован.", 0xC1C1C1)
    end
  end)
end)
sampRegisterChatCommand("fbihelp", fbihelp)
sampRegisterChatCommand("inv1", inv1)
sampRegisterChatCommand("lec", lec)
sampRegisterChatCommand("raz", raz)
sampRegisterChatCommand("exper", exper)
lectnumb()
while true do
  wait(0)
  if inv1id == '1' then
    sampSendChat("/todo Приветствую! Я буду проводить вам собседования *встал со стула в знак приветствия.")
    inv1id = nil
  end
  if inv1id == '2' then
    sampSendChat("/todo Как вас зовут? * присев на стул,включил ноутбук,после чего открыл базу данных.")
    inv1id = nil
  end
  if inv1id == '3' then
    sampSendChat("Очень приятно. Где вы проживаете?")
    inv1id = nil
  end
  if inv1id == '4' then
    sampSendChat("Хорошо, есть ли у вас вредные привычки?")
    inv1id = nil
  end
  if inv1id == '5' then
    sampSendChat("А какие-то хобби, есть?")
    inv1id = nil
  end
  if inv1id == '6' then
    sampSendChat("Есть ли у Вас опыт работы в других силовых структурах?")
    inv1id = nil
  end
  if inv1id == '7' then
    sampSendChat("Умеете ли вы работать с компьютером?")
    inv1id = nil
  end
  if inv1id == '8' then
    sampSendChat("Какие у вас положительные и отрицательные качества?")
    inv1id = nil
  end
  if inv1id == '9' then
    sampSendChat("Назовите свой самый главный недостаток.")
    inv1id = nil
  end
  if inv1id == '10' then
    sampSendChat("А Вы что-нибудь делаете для того, что бы избавиться?")
    inv1id = nil
  end
  if inv1id == '11' then
    sampSendChat("А теперь назовите своё главное достоинство.")
    inv1id = nil
  end
  if inv1id == '12' then
    sampSendChat("Если бы вы могли создать свою собственную компанию, чем бы она занималась?")
    inv1id = nil
  end
  if inv1id == '13' then
    sampSendChat("Если бы у вас была возможность ответить повторно на один из предыдущих вопросов, что бы вы сказали?")
    inv1id = nil
  end
  if inv1id == '14' then
    sampSendChat("Поздравляю, вы приняты на стажировку.")
    inv1id = nil
  end
  if inv1id == '15' then
    sampSendChat("К сожелению вы провалили тест... Жду вашу заявку через 3 дня.")
    inv1id = nil
  end
end
end

function lectnumb()
lua_thread.create(function()
  if activate == true then
  while true do
    wait(0)
    if lecid == '1' then
      sampSendChat("Дисциплинарное положение ФБР.")
      wait(15000)
      sampSendChat("Из преамбулы: Дисциплинарное положение - основной нормативно-правовой акт, который регламентирует как в общем...")
      wait(12000)
      sampSendChat("...так и в отдельных аспектах работу Федерального Бюро Расследований.")
      wait(11500)
      sampSendChat("Дисциплинарное положение является общепринятым к выполнению всеми агентами Федерального Бюро, вне зависимости от их должности.")
      wait(15000)
      sampSendChat("Единственное исключение, когда агент может нарушить установленные ограничения - это приказ руководства федерального Бюро.")
      wait(10000)
      sampSendChat("Подробно с дисциплинарным положением вы можете ознакомиться на офф.портале федерального Бюро.")
      wait(4500)
      sampSendChat("Лекция окончена.")
      wait(3000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '2' then
      sampSendChat("Федеральное Бюро Расследований.")
      wait(15000)
      sampSendChat("Федеральное Бюро Расследований - ключевой орган правоохранительной власти. Спектр Федерального Бюро очень обширный.")
      wait(13000)
      sampSendChat("Основное отличие Федерального Бюро от полицейских департаментов в том, что юрисдикция Федерального Бюро...")
      wait(12000)
      sampSendChat("...не ограничивается определенным городом или округом штата, а распространяется на всю его территорию.")
      wait(4500)
      sampSendChat("Основным приоритеты Бюро:")
      wait(1500)
      sampSendChat(" - Защита Соединённых Штатов от террористических атак.")
      wait(9000)
      sampSendChat(" - Защита Соединённых Штатов от операций иностранной разведки и шпионажа.")
      wait(6000)
      sampSendChat(" - Борьба с коррупцией на всех уровнях.")
      wait(4000)
      sampSendChat(" - Защита прав гражданских.")
      wait(6000)
      sampSendChat(" - Борьба с национальными/транснациональными криминальными организациями.")
      wait(4000)
      sampSendChat(" - Борьба с насильственной преступностью.")
      wait(7000)
      sampSendChat(" - Борьба с крупной беловоротничковой преступностью.")
      wait(5000)
      sampSendChat("Лекция окончена.")
      wait(4000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '3' then
      sampSendChat("Оформление отчета.")
      wait(5600)
      sampSendChat("В оформлении отчета от вас требуется максимально ответственный подход!")
      wait(9000)
      sampSendChat("Разрешено красиво оформлять отчет, при этом соблюдая строгость и норму.")
      wait(8000)
      sampSendChat("Вы имеете полное право оставить досрочный отчет о выполненной работе...")
      wait(6000)
      sampSendChat("...по истечению испытательного срока!")
      wait(8000)
      sampSendChat("Помните, ваш отчет - это ваше лицо! Проверяя отчеты, руководство ФБР делает...")
      wait(4000)
      sampSendChat("...соответствующие выводы о сотрудниках бюро!")
      wait(5000)
      sampSendChat("Лекция окончена.")
      wait(4000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '4' then
      sampSendChat("Структура Федерального Бюро.")
      wait(7000)
      sampSendChat(" DEA - Drug Enforcement Administration - Управление по борьбе с наркотиками.")
      wait(6000)
      sampSendChat("Осуществляет контроль за производством препаратов, содержащих...")
      wait(9000)
      sampSendChat("наркотические вещества, ведёт борьбу с торговцами наркотиками, проводит рейды на наркопритоны ")
      wait(8000)
      sampSendChat("CID - Criminal Investigation Division - Криминально-следственный отдел, занимающийся...")
      wait(6000)
      sampSendChat("...раскрытием преступлений жестокого характера, киберпреступности, гос измены.")
      wait(12000)
      sampSendChat("Основной отдел, решающий вопросами национальной безопасности, предотвращении терактов и похищений.")
      wait(9000)
      sampSendChat("NSA- National Security Agensy - занимается слежкой за любой личностью в Штате...")
      wait(13000)
      sampSendChat("в зависимости от приказа главы, выявлением информации, внедрением в преступные группировки и законные организации.")
      wait(5000)
      sampSendChat("Лекция окончена.")
      wait(4000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '5' then
      sampSendChat("Сбор информации или же просто досье.")
      wait(9000)
      sampSendChat("Досье - совокупность основных сведений о человека, на которого оно собирается. К этим сведениям относится:")
      wait(8000)
      sampSendChat("Имя, Фамилия, национальность, возраст, место жительства, имущество, хобби и так далее.")
      wait(12000)
      sampSendChat(" Сборы досье могут проводиться по разному. Так, иногда сотрудники собирают...")
      wait(10000)
      sampSendChat("...досье на людей открыто, в этом случае не требуется изощрятся...")
      wait(7000)
      sampSendChat("...а просто задать необходимый ряд вопросов.")
      wait(9000)
      sampSendChat("В другом случаи, когда это требуется провести скрытно, сотрудники должны максимально замаскировать...")
      wait(4000)
      sampSendChat("...себя под гражданское лицо.")
      wait(12000)
      sampSendChat("Это должно быть предельно неприметно. Гражданская одежда, неофициальная манера речи...")
      wait(6000)
      sampSendChat("...аппараты налаживания невербального контакта.")
      wait(11000)
      sampSendChat("Досье можно собирать, внедряясь человеку в доверие и установки дружеских отношений...")
      wait(13000)
      sampSendChat("...а можно представиться агентом какой-либо компании, которые проводят те, или иные опросы:")
      wait(10000)
      sampSendChat("Основную сводку , связанную со сбором досье, вы можете прочитать в разделе отдела CID.")
      wait(4000)
      sampSendChat("Лекция окончена.")
      wait(5000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '6' then
      sampSendChat("Оказание ПМП")
      wait(8000)
      sampSendChat("ПМП - комплекс экстренных медицинских мер, проводимых внезапно заболевшему или пострадавшему...")
      wait(6000)
      sampSendChat("...на месте происшествия и в период доставки его в медицинское учреждение.")
      wait(12000)
      sampAddChatMessage("На данный момент термин не используется официально, считается устаревшим, хотя зачастую встречается в ПМП.")
      wait(9000)
      sampAddChatMessage("Один из основных навыков, которые так или иначе помогают...")
      wait(10000)
      sampAddChatMessage("...сотрудникам бюро оказать первичную помощь другим, а также самому себе.")
      wait(11000)
      sampAddChatMessage("ПМП предусматривает основные случаи получения травм практически любого рода, совместимых с жизнью.")
      wait(8000)
      sampAddChatMessage("При обнаружении пострадавшего, сотрудники обязаны убедиться в отсутствии внешних угроз...")
      wait(9000)
      sampAddChatMessage("...если таковы имеются, их требуется устранить, либо эвакуировать пострадавшего.")
      wait(3000)
      sampAddChatMessage("Комплекс мер:")
      wait(4000)
      sampAddChatMessage("- Сердечно-легочная реанимация.")
      wait(5000)
      sampAddChatMessage("- Проникающее ранение грудной клетки.")
      wait(3000)
      sampAddChatMessage("- Ранения брюшной полости.")
      wait(6000)
      sampAddChatMessage("- Кровотечение артерии и вены: височная, челюстная, сонная, лучевая, плечевая...")
      wait(4000)
      sampAddChatMessage("...подмышечная, бедренная, большеберцовая.")
      wait(3000)
      sampAddChatMessage("- Венозное повреждение:")
      wait(5000)
      sampAddChatMessage("- Иммобилизация при переломе.")
      wait(6000)
      sampSendChat("Лекция окончена.")
      wait(5000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '7' then
      sampSendChat("Основы самозащиты")
      wait(8000)
      sampSendChat("Самозащита, один из важных навыков, наряду с ПМП. Каждый агент должен мочь за себя постоять.")
      wait(9000)
      sampSendChat("Помимо физ.подготовки, данный навык может спасти жизнь в тяжелых, критических ситуациях...")
      wait(7000)
      sampSendChat("...когда огнестрельное оружие бесполезно, а именно при телесном контакте.")
      wait(8000)
      sampSendChat(" В основу навыка входит комплекс мер, предпринимаемых для обезоруживания и...")
      wait(5000)
      sampSendChat("...обезвреживания преступника, представляющего угрозу.")
      wait(8000)
      sampSendChat("В случаи огнестрельного оружия, существует огромный перечень приемов, для устранения.")
      wait(7000)
      sampSendChat("В первую очередь сотрудник должен оценить возможность реализации приема.")
      wait(9000)
      sampSendChat("При решении сделать “свой” ход, сотрудник как можно быстро и технично исполнить затеянное.")
      wait(10000)
      sampSendChat(" В основном, методом обезоруживания является либо перехват руки, берущей на себя ключевую...")
      wait(12000)
      sampSendChat("...роль в эксплуатации оружия и отстранения её от прибора, либо отвод ствола оружия в сторону, изъятия магазина...")
      wait(11000)
      sampSendChat("...нажатием фиксатор удерживания его в шахте и спуск курка, когда ствол направлен в сторону, где никого нет. ")
      wait(9000)
      sampSendChat("При холодном же оружии, перехват рук и их залом, при совершении оппонентом наступательного приема. ")
      wait(8000)
      sampSendChat("Для устранения дальнейших угроз от человека, сотрудник должен зафиксировать...")
      wait(7000)
      sampSendChat("...подозреваемого в горизонтальном положении, заломив руки.")
      wait(12000)
      sampSendChat(" Если отсутствуют любые приборы устранения преступника, можно применить удушающие приемы, перекрыв кислород мозгу.")
      wait(5000)
      sampSendChat("Лекция окончена.")
      wait(5000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '8' then
      sampSendChat("Задержание преступника")
      wait(8000)
      sampSendChat("Задержание преступника может происходить при разных обстоятельствах, в разных местах:")
      wait(9000)
      sampSendChat("Помещение, улица, машина, мотоцикл, вертолет, лодка. Для каждого из мест, свой метод.")
      wait(6000)
      sampSendChat("В случаи помещения все просто, перекрыть все отходы отступления...")
      wait(8000)
      sampSendChat("приказ сдаться, применения физ.силы, тазера, перцового баллончика, светошумовой гранаты...")
      wait(10000)
      sampSendChat("слезоточивого газа, шоковой гранаты, выстрела с летального оружия по органам, которые не...")
      wait(5000)
      sampSendChat("...остановят жизнедеятельность.")
      wait(7000)
      sampSendChat("При задержании преступника на авто, провести 10-66, в случае неподчинения...")
      wait(8000)
      sampSendChat("...вышвырнуть подозреваемого из машины, бросить на землю, оглушить и заковать.")
      wait(10000)
      sampSendChat("Для мотоцикла схожая ситуация, в отличии от машины, нет такого препятствия как крыша, или стекло.")
      wait(13000)
      sampSendChat("В случае же вертолета, не применять никакой физической силы, а тем более оружия, если заведен или прогрет двигатель.")
      wait(9000)
      sampSendChat("Для лодки все предельно ясно, предупреждение, в случаи если требуется - абордаж и задержания.")
      wait(10000)
      sampSendChat("При успешном обездвиживании и обезвреживании подозреваемого, необходимо провести осмотр...")
      wait(10000)
      sampSendChat("...довести до транспорта эвакуации, провести досмотр, после чего везти в ближайшее отделение...")
      wait(6000)
      sampSendChat("...и в исключительных случаях в бюро.")
      wait(5000)
      sampSendChat("Лекция окончена.")
      wait(4000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '9' then
      sampSendChat("Экспертиза следов и веществ.")
      wait(8000)
      sampSendChat("Экспертиза веществ, тесно переплетающаяся с заведением дела.")
      wait(10000)
      sampSendChat("Любые улики должны быть собраны в не пачкающих инструментах, положены в зиплок и...")
      wait(5000)
      sampSendChat("...отправлены в архив.")
      wait(14000)
      sampSendChat("После этого, вещества можно брать из архива в лабораторию для исследований, после чего возвращать на дочернее место.")
      wait(11000)
      sampSendChat(" При экспертизе веществ, улик необходимо изучить состав и все оставленные отпечатки.")
      wait(13000)
      sampSendChat("Типы следов: кровяные, биологический материал, волосы, слюна, пот, подногтевое содержимое, перхоть.")
      wait(11000)
      sampSendChat("Каждый из следов обнаруживается в зависимости от типа преступления, а также его условий.")
      wait(12000)
      sampSendChat("При исследовании специфического материала изучается, в основном, его молекулы под микроскопом.")
      wait(9000)
      sampSendChat("Для каждого изучения каждого из следов вам обязательно помогут: Микроскоп...")
      wait(8000)
      sampSendChat(" Ультрафиолетовые лампы, аппараты AFIS (аппараты сбора отпечатков пальцев)...")
      wait(9000)
      sampSendChat("...пробирки с солевыми растворами( цоликлонами анти-А, анти-B ).")
      wait(15000)
      sampSendChat("С экспертизой наркотических препаратов вы можете подробно ознакомиться на офф.портале Федерального Бюро в разделе отдела DEA.")
      wait(5000)
      sampSendChat("Лекция окончена.")
      wait(4000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '10' then
      sampSendChat("Способы дознания, допрос")
      wait(9000)
      sampSendChat("Дознание - процесс выявления правды. Допрос это способ устного дознания правды.")
      wait(6000)
      sampSendChat("При проведении допроса, обстановка в которой он проводится, должна...")
      wait(7000)
      sampSendChat("...быть максимально оптимальной, чтобы человек был настроен на то, чтобы корректно отвечать.")
      wait(5000)
      sampSendChat("Редки те случаи когда на допросах применяют силу, в...")
      wait(6000)
      sampSendChat("...основном, это нагнетающая обстановка безысходности.")
      wait(12000)
      sampSendChat("Применение силовых методов ограничивается только вашим воображением, главное что вы должны знать...")
      wait(6000)
      sampSendChat("...человеку нельзя причинять неустранимый вред.")
      wait(5000)
      sampSendChat("Следует обсудить исключительно про устный допрос.")
      wait(5000)
      sampSendChat("Сперва наперво сверяются данные с собранным досье.")
      wait(11000)
      sampSendChat("В случаи отсутствия готового досье, оно заполняется в процессе допроса и проверки базы данных.")
      wait(15000)
      sampSendChat(" После проверки или заполнения досье, проводиться допрос касательно самого преступления или явления, о котором идет речь.")
      wait(9000)
      sampSendChat("Задавать вопросы нужно четко, прикапываться к каждой мелочи.")
      wait(8000)
      sampSendChat("абы заинтересовать подозреваемого или информатора...")
      wait(12000)
      sampSendChat("...в диалоге, надо предрасположить его к себе как можно близко, относиться с пониманием, чтобы человек...")
      wait(7000)
      sampSendChat("как можно более открыто и эмоциональнее отвечал на ваши вопросы.")
      wait(8000)
      sampSendChat(" Для некоторых исключительно сила является инструментом дознания...")
      wait(10100)
      sampSendChat("...а поэтому единого метода к людям нет, надо провести первичный анализ личности и пробовать.")
      wait(5000)
      sampSendChat("Лекция окончена")
      wait(4000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '11' then
      sampSendChat("Штурм здание.")
      wait(9000)
      sampSendChat("Штурм зданий - крайний метод устранения человеческой угрозы.")
      wait(11000)
      sampSendChat("При штурме здания недопустимо не соблюдать субординацию, задача при штурме обойтись в...")
      wait(10000)
      sampSendChat("...минимальные потери с обеих сторон и максимальному задержанию подозреваемых.")
      wait(8000)
      sampSendChat("Все, кто находятся внутри здания, где происходит тер.акт, ограбление и...")
      wait(10000)
      sampSendChat("...так далее, являются подозреваемыми, поэтому всех необходимо задерживать без разбирательств.")
      wait(6000)
      sampSendChat("Вы обязаны соблюдать строй перед штурмом.")
      wait(13000)
      sampSendChat("Обязательно запомните, что не нужно толпиться, распределитесь по позициям, прикрывайте своих товарищей!")
      wait(9000)
      sampSendChat("Если вы получили множество ранений, не нужно продолжать стрельбу насмерть!")
      wait(9000)
      sampSendChat("Найдите укрытие, залечите свои раны при помощи аптечки и смените бронежилет!")
      wait(15000)
      sampSendChat("Всегда есть командующий штурмом, поэтому внимательно слушайте его тактику, беспрекословно выполняйте его приказы и не перебивайте!")
      wait(6000)
      sampSendChat("Лекция окончена")
      wait(5000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '12' then
      sampSendChat("Проведение переговоров")
      wait(9000)
      sampSendChat("Переговоры с террористами или похитителями - очень ответственная вещь!")
      wait(10000)
      sampSendChat("Поэтому при переговорах необходимо быть аккуратным в подбирании тех или иных слов.")
      wait(11000)
      sampSendChat("Основная задача переговорщика - найти компромисс для обеих сторон! Разрешено минимальное выставление собственных условий!")
      wait(11000)
      sampSendChat("Первым делом переговорщик должен связаться с похитителями или террористами, после чего договориться о личной встрече.")
      wait(13000)
      sampSendChat("Перед личной встречей переговорщик должен подготовить кейс с деньгами и заложить отслеживающий жучок в один из трех отсеков!")
      wait(6000)
      sampSendChat("Переговорщик имеет права удостовериться в том, что заложники живы.")
      wait(11000)
      sampSendChat("Также, перед началом переговоров, ФБР обязаны раздобыть информацию о внешнем виде похитителей или террористов...")
      wait(15000)
      sampSendChat("...после чего надеть соответствующую и маскировку и внедриться для получения информации изнутри во время спец. операции!")
      wait(6000)
      sampSendChat("Лекция окончена.")
      wait(5000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if lecid == '13' then
      sampSendChat("Поимка особо опасных преступников.")
      wait(12000)
      sampSendChat("ООП или же особо опасный преступник - это преступник находящийся в федеральном розыске с уровнем 5 или 6.")
      wait(10000)
      sampSendChat("Вы обязаны всегда производить видеофиксацию своей деятельности от задержания до передачи...")
      wait(8000)
      sampSendChat("...преступника в КПЗ, либо его нейтрализации в случае невозможности задержания!")
      wait(8000)
      sampSendChat("Поимка ООП разрешена со звания младший агент FBI")
      wait(6000)
      sampSendChat("Лекция окончена.")
      wait(5000)
      sampSendChat("/b /time + F8")
      lecid = nil
    end
    if razid == '1' then
      sampSendChat("/me достал чемоданчик с набором сапера")
      wait(5000)
      sampSendChat("/me положил чемоданчик рядом с собой")
      wait(5000)
      sampSendChat("/do На крышке бомбы 2 болта")
      wait(6000)
      sampSendChat("/me достал отвертку из чемодана с набором сапера")
      wait(5000)
      sampSendChat("/do Отвертка в руке")
      wait(4000)
      sampSendChat("/me откручивает болтики отверткой [1/2]")
      wait(6000)
      sampSendChat("/me откручивает болтики отверткой [2/2]")
      wait(3000)
      sampSendChat("/me открутил болтики")
      wait(5000)
      sampSendChat("/me убрал отвертку обратно в чемоданчик")
      wait(5000)
      sampSendChat("/me приоткрыл крышку бомбы")
      wait(6000)
      sampSendChat("/me просматривает бомбу")
      wait(3000)
      sampSendChat("/me заметил детонатор")
      wait(5000)
      sampSendChat("/me заметил таймер")
      wait(4000)
      sampSendChat("/do На таймере 3 минуты")
      wait(5000)
      sampSendChat("/do К детонатору 10 проводов")
      wait(3000)
      sampSendChat("/do В кармане лежит набор сапёра")
      wait(5000)
      sampSendChat("/me достал набор сапёра")
      wait(2000)
      sampSendChat("/me достал щипцы")
      wait(3000)
      sampSendChat("/me надрезал красный провод")
      wait(5000)
      sampSendChat("/try обезвредил бомбу")
      razid = nil
    end
    if razid == '2' then
      sampSendChat("/me надрезал синий провод")
      wait(3000)
      sampSendChat("/try обезвредил бомбу")
      razid = nil
    end
    if razid == '3' then
      sampSendChat("/me надрезал зеленый провод")
      wait(3000)
      sampSendChat("/try обезвредил бомбу")
      razid = nil
    end
    if experid == '1' then
      sampSendChat("/do В кармане лежали резиновые перчатки.")
      wait(5000)
      sampSendChat("/me сунув руку в карман, достал из него перчатки, затем натянул их на руки, размяв пальцы, произнёс:")
      wait(3000)
      sampSendChat("Ну, начнём...")
      wait(5000)
      sampSendChat("/do На столе стоит аппарат для экспертизы наркотиков, возле которого лежит респиратор.")
      wait(6000)
      sampSendChat("/me взяв респиратор в две руки, натянул его на лицо.")
      wait(5000)
      sampSendChat("/me сунув руку в карман, достал из него зип-лок с неизвестным веществом.")
      wait(5000)
      sampSendChat("/do Рядом с аппаратом стоит набор для экспертизы.")
      wait(8000)
      sampSendChat("/me открыв набор достал из него шприц, баночку триэтиламина и баночку этанола.")
      wait(5000)
      sampSendChat("/me взял колбочку из аппарата, затем, открыв зип-лок высыпал в неё вещество.....")
      wait(10000)
      sampSendChat("/do ....добавил 0.2мл триэтиламина, добавив каплю этанола, начал выставлять на аппарате следующие настройки:")
      wait(9000)
      sampSendChat("/do Температура инжектора и интерфейса детектора - 280 градусов.")
      wait(8000)
      sampSendChat("/do Начальная и конечная температура термостата колонки - 100 и 280 градусов.")
      wait(3500)
      sampSendChat("/me включил аппарат.")
      wait(7000)
      sampSendChat("/do Температура термостата колонки изменялась со скоростью 10 градусов в минуту.")
      wait(6000)
      sampSendChat("/do Спустя 10 минут компьютер начал сравнивать полученные масс-спектры с библиотечными и показал...")
      wait(9000)
      sampSendChat("/do ....что вещество, которое было в руках - кокаин.")
      experid = nil
    end
  end
end
end)
end

function inv1(param)
if activate == true then
inv1id = string.match(param, '(%d+)')
if inv1id ~= nil then

else
  sampAddChatMessage("{cd0000}[ FBI ]:{ffffff} Помощь кураторам и не только {cd0000}[ /inv1 Номер ] | Номера:", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 1 - приветствие | 2 - как зовут? | 3 - где живёшь {cd0000}]", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 4 - привычки | 5 - хобби | 6 - опыт в гос | 7 - опыт с пк {cd0000}]", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 8 - качества | 9 - недостаток {cd0000}]", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 10 - избавься фу | 11 - мужское достоинство | 12 - компания | 13 - повторный вопрос {cd0000}]", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 14 - принят | 15 - ну и пошёл нахуй {cd0000}]", 0xC1C1C1)
end
end
end

function lec(param)
if activate == true then
lecid = string.match(param, '(%d+)')
if lecid ~= nil then

else
  sampAddChatMessage("{cd0000}[ FBI ]:{ffffff} Лекция {cd0000}[ /lec Номер ] | Номера:", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 1 - Дисциплинарное положение FBI | 2 - Федеральное Бюро Расследований {cd0000}]", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 3 - Оформление отчёта | 4 - Структура федерального бюро | 5 - Сбор информации(досье) {cd0000}]", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 6 - Оказание ПМП | 7 - Самозащита | 8 - Задержания преступника {cd0000}]", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 9 - Для ДЕА | 10 - Спсобоы дознания | 11 - Штурм здания {cd0000}]", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 12 - Проведение переговоров | 13 - Поимка особо опасных преступников {cd0000}]", 0xC1C1C1)
end
end
end

function exper(param)
if activate == true then
experid = string.match(param, '(%d+)')
if experid ~= nil then

else
  sampAddChatMessage("{cd0000}[ FBI ]:{ffffff} Для экспертизы {cd0000}[ /exper Номер ] | Номера:", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 1 - Экспертиза для показа стажёрам {cd0000}]", 0xC1C1C1)
end
end
end

function raz(param)
if activate == true then
razid = string.match(param, '(%d+)')
if razid ~= nil then

else
  sampAddChatMessage("{cd0000}[ FBI ]:{ffffff} Для разминирование бомбы {cd0000}[ /raz Номер ] | Номера:", 0xC1C1C1)
  sampAddChatMessage("{cd0000}[{ffffff} 1 - Неудачно красный провод | 2 - неудачно синий провод | 3 - зелёный провод. {cd0000}]", 0xC1C1C1)
end
end
end

function fbihelp()
if activate == true then
local fbihelp = [[
            {cd0000}
            {cd0000}_____________________________________________________________________________________________

            Скрипт сделан для сотрудников FBI +8 ранга. Над скриптом работали: Rayli_Enyag and Bracciale_Paciotti
            {cd0000}* И{ffffff}нформация о скрипте - {cd0000} /fbihelp ;
            {cd0000}* Н{ffffff}абор для Федерального Бюро Расследований {cd0000}[ набор ] - {cd0000} /inv1 1-16 ;
            {cd0000}* К{ffffff}оманды для отыгровки некоторых действий {cd0000}[ лекции ] - {cd0000} /lec 1-13 ;
            {cd0000}* К{ffffff}оманды для отыгровки некоторых действий {cd0000}[ аттестация ] - {cd0000} в разработке ;
            {cd0000}* Для{ffffff}глав подразделений была добавлена команда {cd0000} /exper отвечающая за проведение экспертизы.
            {cd0000}* Сделана команда для разминирования бомбы, ВАЖНО: если в /try неудачно все 3 раза, то следует писать самому. /raz

            {cd0000} * Важно! Enyag love Alves :*

            {cd0000}_____________________________________________________________________________________________
            ]]
sampShowDialog(1010, "{cd0000} Информация о скрипте", fbihelp, "{ffffff}тыкай", "", 0)
end
end

всё равно /lec и тд не робит

Jesus McWood · 29 Апр 2020

RusGaming написал(а):
всё равно /lec и тд не робит

Код:

while true do
    wait(0)

        ifKeyDown(VK_MENU) and ifKeyJustPressed(VK_F5) then
            sampSendChat("/lec")
        end
    end
end

_ex$tanOr_ · 22 Дек 2020

Jesus McWood написал(а):
Код:

while true do wait(0) ifKeyDown(VK_MENU) and ifKeyJustPressed(VK_F5) then sampSendChat("/lec") end end end

это не серверная команда. Для отправки скриптовых команд, другая функция нужна

Поиск

Поиск

луа кодинг

RusGaming

Участник

sᴀxᴏɴ

саксофон

p0pc0rn

Участник

RusGaming

Участник

sᴀxᴏɴ

саксофон

RusGaming

Участник

Albertio

Attention! Thanks for your attention.

RusGaming

Участник

Jesus McWood

Участник

_ex$tanOr_

Участник

Похожие темы