Скрыть объявление

♛Администрация Батырево | AHK для сотрудников ♛

Тема в разделе "Корзина", создана пользователем Dwayne Putin, 10 июл 2022.

Статус темы:
Закрыта.
  1. Dwayne Putin

    Dwayne Putin ::*LEGENDARY*::

    Сообщения:
    1.079
    Симпатии:
    206
    Баллы:
    63
    Сервер:
    01
    [​IMG]
    Доброго времени суток, здесь вы можете ознакомиться с AHK для сотрудников Администрации Батырево

    [​IMG]
    Numpad0::
    Sendinput, {F6}Введите ID:{Space}
    Input, ID, V I M, {enter}
    SendInput {end}+{home}{del}{esc}
    sleep 1100
    Sendinput, {F6}Здравствуйте, я *Ваше имя (Nick без "_")* сотрудник Администрации Батырево{enter}
    sleep 1100
    Sendinput, {F6}/do Удостоверение в левом верхнем кармане.{enter}
    sleep 1100
    Sendinput, {F6}/me Взял удостоверение из левого верхнего кармана.{enter}
    sleep 1100
    Sendinput, {F6}/do На удостоверении написано "Ваш ранг".{enter}
    sleep 1100
    Sendinput, {F6}/me Открыл удостоверение на первой странице.{enter}
    sleep 1100
    Sendinput, {F6}/me Показывает перед лицом человека напротив в открытом виде.{enter}
    sleep 1100
    Sendinput, {F6}/showpass %ID%{Enter}
    sleep 1100
    Sendinput, {F6}/me Закрыл удостоверение{enter}
    sleep 1100
    Sendinput, {F6}/me Убрал удостоверение в левый верхний карман.{enter}
    Return
    [​IMG]
    Numpad1::
    SendMessage, 0x50,, 0x4190419,, A
    Send, {F6}Оплата будет стоить — 5.000 - 10.000 Рублей.{Enter}
    Sleep 3000
    Send, {F6}Вы согласны?{Enter}
    Sleep 3000
    Send, {F6}Хорошо, тогда начнём.{Space}
    Return

    Numpad2::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput {F6}/do Чемоданчик с документами в руке{enter}
    Sleep 1500
    SendInput {F6}/me открыл чемодан.{enter}
    Sleep 1100
    SendInput {F6}/me достал договор{enter}
    Sleep 1100
    SendInput {F6}/do Договор о освобождении из КПЗ в Руке{enter}
    Sleep 1100
    SendInput {F6}/me достал ручку из кармана пиджака.{enter}
    Sleep 1100
    SendInput {F6}/do Ручка в правой руке.{enter}
    Sleep 1100
    SendInput {F6}/me заполняет договор.{enter}
    Sleep 1100
    SendInput {F6}/me заполнил договор о нарушителе.{enter}
    Sleep 1100
    SendInput {F6}Теперь Вам осталось поставить свою подпись.{enter}
    Sleep 1100
    SendInput {F6}Вот Вам ручка.{enter}
    Sleep 1100
    SendInput {F6}/me передал ручку и договор человеку напротив.{enter}
    Sleep 1100
    SendInput {F6}Поставьте тут подпись{enter}
    Sleep 1100
    SendInput {F6}/b /me расписался.{enter}
    Return

    Numpad3::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput {F6}Хорошо, я готов выпустить вас.{enter}
    Sleep 1100
    SendInput {F6}/me Достал ключи от камеры{Space}
    Sleep 1100
    SendInput {F6}/do Ключи в руках{Space}
    Sleep 1100
    SendInput {F6}/me Открыл двери тюрьмы{Space}
    Sleep 1100
    SendInput {F6}/do Двери открыты{Space}
    Sleep 1100
    SendInput {F6}/me Выпустил гражданина{Space}
    Sleep 1100
    SendInput {F6}/unjail{Space}
    Return
    [​IMG]
    Numpad1::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput, {F6}Здравствуйте, Вы на собеседование?{Enter}
    Sleep 1500
    SendInput, {F6}Если да, то передайте Ваш паспорт.{Enter}
    Sleep 1500
    SendInput, {F6}/b /showpass ID с отыгровкой /me, /do{Enter}
    Return

    Numpad2::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput, {F6}/me берет паспорт.{Enter}
    Sleep 1100
    SendInput, {F6}/anim 6{Enter}
    Sleep 1100
    SendInput, {F6}/do Паспорт в руке.{Enter}
    Sleep 1100
    SendInput, {F6}/me Осмотрел паспорт и отдал его владельцу.{Enter}
    Return

    Numpad3::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput, {F6}Хорошо, Вашу медицинскую карту.{Enter}
    Sleep 1500
    SendInput, {F6}/b /showymk ID с отыгровкой /me, /do{Enter}
    Return

    Numpad4::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput, {F6}/me берет медицинскую карту.{Enter}
    Sleep 1100
    SendInput, {F6}/anim 6{Enter}
    Sleep 1100
    SendInput, {F6}/do Медицинская карта в руке.{Enter}
    Sleep 1100
    SendInput, {F6}/me Осмотрел мед карту и отдал её владельцу.{Enter}
    Return

    Numpad5::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput, {F6}Хорошо, Ваши лицензии.{Enter}
    Sleep 1500
    SendInput, {F6}/b /lic ID с отыгровкой /me, /do{Enter}
    Return

    Numpad6::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput, {F6}/me берет лицензии.{Enter}
    Sleep 1100
    SendInput, {F6}/anim 6{Enter}
    Sleep 1100
    SendInput, {F6}/do Лицензии в руке.{Enter}
    Sleep 1100
    SendInput, {F6}/me Осмотрел лицензии и отдал их владельцу.{Enter}
    Return
    [​IMG]
    Numpad1::
    Sendinput, {F6}Здравствуйте, прошу предъявить вашу мед карту{enter}
    sleep 1100
    Sendinput, {F6}/b /showymk с отыгровкой /me /do{enter}
    Return

    Numpad2::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput, {F6}/me берет мед карту.{Enter}
    Sleep 1100
    SendInput, {F6}/anim 6{Enter}
    Sleep 1100
    SendInput, {F6}/do Мед карту в руке.{Enter}
    Sleep 1100
    SendInput, {F6}/me Осмотрев мед карту отдал её владельцу.{Enter}
    Return
    [​IMG]
    Numpad1::
    SendMessage, 0x50,, 0x4190419,, A
    checkfile = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
    FileDelete %checkfile%
    FileAppend %checkfile%
    FileCreateDir, %A_MyDocuments%\autoreestr
    Sleep 1100
    Sendinput, {F6}/me Достал из кармана планшет{enter}
    Sleep 1100
    Sendinput, {F6}/me Зашел в базу данных, затем выбрал пункт "Добавить сотрудника".{enter}
    Sleep 1100
    SendInput, {F6}Введите ID:{space}
    Input, ID, V I M, {enter}
    SendInput {end}+{home}{del}{esc}
    sleep 1100
    SendInput, {F6}Введите ник того, кто принимал:{space}
    Input, Nick, V I M, {enter}
    SendInput {end}+{home}{del}{esc}
    sleep 1100
    Sendinput, {F6}/id %ID%{enter}
    Sleep 1100
    FileRead, info, %checkfile%
    RegExMatch(info, " Игрок (.*)\Q_\E(.*)\Q[\E(.*)\Q]\E\N", pname)
    name = %pname1%
    family = %pname2%
    SendInput, {F6}Введите должность:{space}
    Input, after, V I M, {enter}
    SendInput {end}+{home}{del}{esc}
    Sleep 1100
    SendInput, {F6}Введите причину:{space}
    Input, prich, V I M, {enter}
    SendInput {end}+{home}{del}{esc}
    sleep 1100
    SendInput, {F6}/invite %id%{enter}
    sleep 1100
    Sendinput, {F6}/me Ввел данные о гражданине.{ENTER}
    Sleep 1100
    Sendinput, {F6}/do База данных обновлена.{ENTER}
    Sleep 1100
    prich=%prich%
    {
    Iniwrite, Принят: %pname1%_%pname2% | Должность: %after% | Причина: %prich% | Принял: %Nick%, %A_MyDocuments%\autoreestr\reestr.ini, Автореестр за %A_DD%-%A_MM%-%A_Year%
    }
    Sleep, 1100
    Sendinput, {F6}/time{ENTER}
    return

    Numpad2::
    SendMessage, 0x50,, 0x4190419,, A
    checkfile = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
    FileDelete %checkfile%
    FileAppend %checkfile%
    FileCreateDir, %A_MyDocuments%\autoreestr
    Sleep 1100
    Sendinput, {F6}/me Достал из кармана планшет{enter}
    Sleep 1100
    Sendinput, {F6}/me Зашел в базу данных, затем выбрал пункт "Уволить сотрудника".{enter}
    Sleep 1100
    SendInput, {F6}Введите ID:{space}
    Input, ID, V I M, {enter}
    SendInput {end}+{home}{del}{esc}
    sleep 1100
    SendInput, {F6}Введите ник того, кто уволил:{space}
    Input, Nick, V I M, {enter}
    SendInput {end}+{home}{del}{esc}
    sleep 1100
    Sendinput, {F6}/id %ID%{enter}
    Sleep 1100
    FileRead, info, %checkfile%
    RegExMatch(info, " Игрок (.*)\Q_\E(.*)\Q[\E(.*)\Q]\E\N", pname)
    name = %pname1%
    family = %pname2%
    SendInput, {F6}Введите должность до принятия:{space}
    Input, after, V I M, {enter}
    SendInput {end}+{home}{del}{esc}
    Sleep 1100
    SendInput, {F6}Введите причину:{space}
    Input, prich, V I M, {enter}
    SendInput {end}+{home}{del}{esc}
    sleep 1100
    SendInput, {F6}/uninvite %id% %prich%{enter}
    sleep 1100
    Sendinput, {F6}/me Ввел данные об увольнении.{ENTER}
    Sleep 1100
    Sendinput, {F6}/do База данных сотрудника удалена.{ENTER}
    Sleep 1100
    prich=%prich%
    {
    Iniwrite, Уволен: %pname1%_%pname2% | Должность: %after% | Причина: %prich% | Принял: %Nick%, %A_MyDocuments%\autoreestr\reestr.ini, Автореестр за %A_DD%-%A_MM%-%A_Year%
    }
    Sleep, 1100
    Sendinput, {F6}/time{ENTER}
    return

    Numpad3::
    SendMessage, 0x50,, 0x4190419,, A
    checkfile = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
    FileDelete %checkfile%
    FileAppend %checkfile%
    FileCreateDir, %A_MyDocuments%\autoreestr
    Sleep 1100
    Sendinput, {F6}/me Достал из кармана планшет{enter}
    Sleep 1100
    Sendinput, {F6}/me Зашел в базу данных, затем выбрал пункт "Повысить сотрудника".{enter}
    Sleep 1100
    SendInput, {F6}Введите ID:{space}
    Input, ID, V I M, {enter}
    SendInput {end}+{home}{del}{esc}
    sleep 1100
    SendInput, {F6}Введите ник того, кто повышал:{space}
    Input, Nick, V I M, {enter}
    SendInput {end}+{home}{del}{esc}
    sleep 1100
    Sendinput, {F6}/id %ID%{enter}
    Sleep 1100
    FileRead, info, %checkfile%
    RegExMatch(info, " Игрок (.*)\Q_\E(.*)\Q[\E(.*)\Q]\E\N", pname)
    name = %pname1%
    family = %pname2%
    SendInput, {F6}Введите должность:{space}
    Input, after, V I M, {enter}
    SendInput {end}+{home}{del}{esc}
    Sleep 1100
    SendInput, {F6}Введите причину:{space}
    Input, prich, V I M, {enter}
    SendInput {end}+{home}{del}{esc}
    sleep 1100
    Sendinput, {F6}/me Ввел данные о повышении.{ENTER}
    Sleep 1100
    Sendinput, {F6}/do База данных сотрудника обновлена.{ENTER}
    {
    Iniwrite, Повышен: %pname1%_%pname2% | Должность: %after% | Причина: %prich% | Принял: %Nick%, %A_MyDocuments%\autoreestr\reestr.ini, Автореестр за %A_DD%-%A_MM%-%A_Year%
    }
    Sleep 1100
    Sendinput, {F6}/giverank %id%{Space}
    return

    Numpad4::
    SendMessage, 0x50,, 0x4190419,, A
    checkfile = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
    FileDelete %checkfile%
    FileAppend %checkfile%
    FileCreateDir, %A_MyDocuments%\autoreestr
    Sleep 1100
    Sendinput, {F6}/me Достал из кармана планшет{enter}
    Sleep 1100
    Sendinput, {F6}/me Зашел в базу данных, затем выбрал пункт "Понизить сотрудника".{enter}
    Sleep 1100
    SendInput, {F6}Введите ID:{space}
    Input, ID, V I M, {enter}
    SendInput {end}+{home}{del}{esc}
    sleep 1100
    SendInput, {F6}Введите ник того, кто понижал:{space}
    Input, Nick, V I M, {enter}
    SendInput {end}+{home}{del}{esc}
    sleep 1100
    Sendinput, {F6}/id %ID%{enter}
    Sleep 1100
    FileRead, info, %checkfile%
    RegExMatch(info, " Игрок (.*)\Q_\E(.*)\Q[\E(.*)\Q]\E\N", pname)
    name = %pname1%
    family = %pname2%
    SendInput, {F6}Введите должность:{space}
    Input, after, V I M, {enter}
    SendInput {end}+{home}{del}{esc}
    Sleep 1100
    SendInput, {F6}Введите причину:{space}
    Input, prich, V I M, {enter}
    SendInput {end}+{home}{del}{esc}
    sleep 1100
    Sendinput, {F6}/me Ввел данные о понижении.{ENTER}
    Sleep 1100
    Sendinput, {F6}/do База данных сотрудника обновлена.{ENTER}
    {
    Iniwrite, Понижен: %pname1%_%pname2% | Должность: %after% | Причина: %prich% | Принял: %Nick%, %A_MyDocuments%\autoreestr\reestr.ini, Автореестр за %A_DD%-%A_MM%-%A_Year%
    }
    Sleep 1100
    Sendinput, {F6}/giverank %id%{Space}
    return


    Numpad5::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput,/me Достал из кармана планшет{Enter}
    sleep 1100
    SendInput,{F6}/me Зашел в базу данных, затем выбрал пункт "Дать выговор".{Enter}
    sleep 1100
    SendInput,{F6}/me Ввел данные о выговоре.{Enter}
    sleep 1100
    SendInput,{F6}/do База данных сотрудника обновлена.{Enter}
    sleep 1100
    SendInput,{F6}/vig{Space}
    return

    Numpad6::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput,/me Достал из кармана планшет{Enter}
    sleep 1100
    SendInput,{F6}/me Зашел в базу данных, затем выбрал пункт "Снять выговор".{Enter}
    sleep 1100
    SendInput,{F6}/me Ввел данные о выговоре.{Enter}
    sleep 1100
    SendInput,{F6}/do База данных сотрудника обновлена.{Enter}
    sleep 1100
    SendInput,{F6}/unvig{Space}
    return

    Numpad1::
    Sendinput, {F6}/me достал оружие из кобуры, готов стрелять{Enter}
    Return

    Numpad2::
    Sendinput, {F6}/me поставил оружие на предохранитель и убрал его{Enter}
    Return

    Numpad3::
    Sendinput, {F6}/me отстегнул электрошокер АИР-107У{Enter}
    Return

    Numpad4::
    Sendinput, {F6}/me убрал электрошокер{Enter}
    Return
    [​IMG]
    Numpad1::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput, {F6}/s Тема лекции: «Субординация».{Enter}
    Sleep 1100
    SendInput, {F6}/s Субординация - это подчинение определенной иерархической структуре.{Enter}
    Sleep 1100
    SendInput, {F6}/s Проще говоря неподчинение младшего состава, по отношению к старшему.{Enter}
    Sleep 1100
    SendInput, {F6}/s Обращение в старшему по званию начинается со слова: "Товарищ"{Enter}
    Sleep 1100
    SendInput, {F6}/s Вместо слова "Можно", нужно говорить "Разрешите"{Enter}
    Sleep 1100
    SendInput, {F6}/s Запрещено хамить старшим в должности{Enter}
    Sleep 1100
    SendInput, {F6}/s Нужно обращаться к гражданским спокойно.{Enter}
    Sleep 1100
    SendInput, {F6}/s При нарушении субординации вам грозит..{Enter}
    Sleep 1500
    SendInput,{F6}/s ..выговор или увольнение{Enter}
    Sleep 1500
    Sendinput, {F6}/time{ENTER}
    Sleep 1500
    SendInput {F8}
    Return

    Numpad2::
    SendMessage, 0x50,, 0x4190419,, A
    Sendinput, {F6}/s Лекция по обращению в рацию.{Enter}
    Sleep 1100
    Sendinput, {F6}/s Рация - это переносное приемопередающее устройство.{Enter}
    Sleep 1100
    Sendinput, {F6}/s В рации звучит такая информация, как доклады с постов и тому подобное.{Enter}
    Sleep 1100
    Sendinput, {F6}/s В рации запрещены оскорбления, неуважительное общение.{Enter}
    Sleep 1100
    Sendinput, {F6}/s Так же запрещено сообщать бессмысленные сообщения.{Enter}
    Sleep 1100
    Sendinput, {F6}/s Запрещено нарушать правила обращения в рацию.{Enter}
    Sleep 1100
    Sendinput, {F6}/s Все выше-перечисленные правила действуют и на рацию департамента{Enter}
    Sleep 1100
    Sendinput, {F6}/s На это лекция закончена{Enter}
    Sleep 1500
    Sendinput, {F6}/time{ENTER}
    Sleep 1500
    SendInput {F8}
    Return

    Numpad3::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput {F6}/b Краткая лекция насчет МГ - это большая проблема среди новичков.{enter}
    sleep, 1100
    SendInput {F6}/b МГ - использование информации из реал. жизни в игровой чат.{enter}
    sleep, 1100
    SendInput {F6}/b В обычный чат (/r, /d) идёт вся игровая информация..{enter}
    sleep, 1100
    SendInput {F6}/b ..Т.е. информация о том, что произошло в игре.{enter}
    sleep, 1100
    SendInput {F6}/b Всё то что происходит за пределами игры пишется в НонРП чат (/b, /rb, /db)..{enter}
    sleep, 1100
    SendInput {F6}/b ..Т.е. та информация которая произошла в реальном мире.{enter}
    sleep, 1100
    SendInput {F6}/b Надеюсь вы поняли.{enter}
    sleep, 1100
    SendInput {F6}/b Спасибо за внимание{enter}
    sleep, 1500
    Sendinput, {F6}/time{ENTER}
    Sleep, 1500
    SendInput {F8}
    Return

    Numpad4::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput, {F6}Лекция на тему "Правила поведения в строю".{Enter}
    Sleep, 1100
    SendInput, {F6}Что же такое строй - это.. {Enter}
    Sleep, 1100
    SendInput, {F6} ..Построение сотрудников для проведения: ..{Enter}
    Sleep, 1100
    SendInput, {F6}..Тренировок, читания лекций и тому подобное{Enter}
    Sleep, 1100
    SendInput, {F6}Правила поведение в строю - ..{Enter}
    Sleep, 1100
    SendInput, {F6} ..Слушаться старших по званию..{Enter}
    Sleep, 1100
    SendInput, {F6} ..Доставать оружие только по приказу..{Enter}
    Sleep, 1100
    SendInput, {F6} ..Покидать строй разрешен только по приказу{Enter}
    Sleep, 1100
    SendInput, {F6} ..В строю нужно молчать, слушать проводящего строй..{Enter}
    Sleep, 1100
    SendInput, {F6} ..Сон в строю запрещён, за него вы можете быть наказаны.{Enter}
    Sleep, 1100
    SendInput, {F6}/s Так же запрещена неявка в строй.{Enter}
    Sleep, 1100
    Sendinput, {F6}На этом лекция окончена{Enter}
    Sleep, 1500
    Sendinput, {F6}/time{Enter}
    Sleep, 1500
    SendInput, {F8}
    Return
    [​IMG]​
     
    Dwayne Putin, 10 июл 2022
    #1
Статус темы:
Закрыта.

Поделиться этой страницей