Пример:
Меня просят таблетку. АХК реагирует на слова "таб" или "лек" в чате, когда их пишут другие игроки, и начинает свою работу.
АХК для Radmir
Code: Select all
Ник = тут инфа
;
ТЭГ = тут инфа
;
Должность = тут инфа
;
Numpad0::
SendMessage, 0x50,, 0x4190419,, A
Sendinput, {F6}Здравствуйте, я %Должность% %Ник%, дежурный лечащий врач.{Enter}
sleep 1000
Sendinput, {F6}/do На груди бейджик %Должность% - %Ник%.{Enter}
sleep 1000
SendInput {F6}Подойдите, пожалуйста, к своей койке{Enter}
Sleep 1000 ;
SendInput {F6}/n Если у Вас нет своей койки - подойдите к любой свободной{Enter}
Sleep 1000 ;
SendInput {F6}/n Нажмите на кнопку "Alt"{Enter}
Sleep 1000 ;
SendInput {F6}/n Либо введите команду - /med{ENTER}
Sleep 1000 ;
SendInput {F6}И скажите - что у Вас болит?{Enter}
Return
:?:/1::
SendMessage, 0x50,, 0x4190419,, A
Sendinput, {F6}Здравствуйте, я %Должность% %Ник%, дежурный лечащий врач.{Enter}
sleep 1000
Sendinput, {F6}/do На груди бейджик %Должность% - %Ник%.{Enter}
sleep 1000
SendInput {F6}Подойдите, пожалуйста, к своей койке{Enter}
Sleep 1000 ;
SendInput {F6}/n Если у Вас нет своей койки - подойдите к любой свободной{Enter}
Sleep 1000 ;
SendInput {F6}/n Нажмите на кнопку "Alt"{Enter}
Sleep 1000 ;
SendInput {F6}/n Либо введите команду - /med{ENTER}
Sleep 1000 ;
SendInput {F6}И скажите - что у Вас болит?{Enter}
sleep, 1000
SendInput, {F6}Введите ID: {SPACE}
Input, ID, V I M,{enter}
SendInput {end}+{home}{del}{esc}
Sleep 5000 ;
Sendinput, {F6}/me достал пачку таблеток из кармана{Enter}
sleep, 1000
Sendinput, {F6}/do Пачка таблеток в руке.{Enter}
sleep, 1000
Sendinput, {F6}/me выдавил таблетку из пачки{Enter}
sleep, 1000
Sendinput, {F6}/do Таблетка в руке.{Enter}
sleep, 1000
Sendinput, {F6}/me передал таблетку больному{Enter}
sleep, 1000
Sendinput, {F6}Хорошего дня, выздоравливайте.{Enter}
sleep, 1000
Sendinput, {F6}/medhelp %ID% 1{Enter}
sleep, 500
Sendinput, {F6}/yes{Enter}
Return
:?:/200::
SendMessage, 0x50,, 0x4190419,, A
sleep, 1000
SendInput, {F6}Введите ID: {SPACE}
Input, ID, V I M,{enter}
SendInput {end}+{home}{del}{esc}
Sleep 1000 ;
Sendinput, {F6}/me достал пачку таблеток из кармана{Enter}
sleep, 1000
Sendinput, {F6}/do Пачка таблеток в руке.{Enter}
sleep, 1000
Sendinput, {F6}/me выдавил таблетку из пачки{Enter}
sleep, 1000
Sendinput, {F6}/do Таблетка в руке.{Enter}
sleep, 1000
Sendinput, {F6}/me передал таблетку больному{Enter}
sleep, 1000
Sendinput, {F6}Хорошего дня, выздоравливайте.{Enter}
sleep, 1000
Sendinput, {F6}/medhelp %ID% 200{Enter}
Return
:?:/300::
SendMessage, 0x50,, 0x4190419,, A
sleep, 1000
SendInput, {F6}Введите ID: {SPACE}
Input, ID, V I M,{enter}
SendInput {end}+{home}{del}{esc}
Sleep 1000 ;
Sendinput, {F6}/me достал пачку таблеток из кармана{Enter}
sleep, 1000
Sendinput, {F6}/do Пачка таблеток в руке.{Enter}
sleep, 1000
Sendinput, {F6}/me выдавил таблетку из пачки{Enter}
sleep, 1000
Sendinput, {F6}/do Таблетка в руке.{Enter}
sleep, 1000
Sendinput, {F6}/me передал таблетку больному{Enter}
sleep, 1000
Sendinput, {F6}Хорошего дня, выздоравливайте.{Enter}
sleep, 1000
Sendinput, {F6}/medhelp %ID% 300{Enter}
Return
:?:/400::
SendMessage, 0x50,, 0x4190419,, A
sleep, 1000
SendInput, {F6}Введите ID: {SPACE}
Input, ID, V I M,{enter}
SendInput {end}+{home}{del}{esc}
Sleep 1000 ;
Sendinput, {F6}/me достал пачку таблеток из кармана{Enter}
sleep, 1000
Sendinput, {F6}/do Пачка таблеток в руке.{Enter}
sleep, 1000
Sendinput, {F6}/me выдавил таблетку из пачки{Enter}
sleep, 1000
Sendinput, {F6}/do Таблетка в руке.{Enter}
sleep, 1000
Sendinput, {F6}/me передал таблетку больному{Enter}
sleep, 1000
Sendinput, {F6}Хорошего дня, выздоравливайте.{Enter}
sleep, 1000
Sendinput, {F6}/medhelp %ID% 400{Enter}
Return
:?:/500::
SendMessage, 0x50,, 0x4190419,, A
sleep, 1000
SendInput, {F6}Введите ID: {SPACE}
Input, ID, V I M,{enter}
SendInput {end}+{home}{del}{esc}
Sleep 1000 ;
Sendinput, {F6}/me достал пачку таблеток из кармана{Enter}
sleep, 1000
Sendinput, {F6}/do Пачка таблеток в руке.{Enter}
sleep, 1000
Sendinput, {F6}/me выдавил таблетку из пачки{Enter}
sleep, 1000
Sendinput, {F6}/do Таблетка в руке.{Enter}
sleep, 1000
Sendinput, {F6}/me передал таблетку больному{Enter}
sleep, 1000
Sendinput, {F6}Хорошего дня, выздоравливайте.{Enter}
sleep, 1000
Sendinput, {F6}/medhelp %ID% 500{Enter}
Return
Numpad1::
SendMessage, 0x50,, 0x4190419,, A
Sendinput, {F6}Здравствуйте, я Участковый Врач %Ник%.{Enter}
Sleep, 1000
Sendinput, {F6}/do На груди бейджик: %Должность% %Ник%. ЦГБ г. Арзамас.{Enter}
Sleep, 1000
SendInput, {F6}Занимаюсь выдачей медицинских карт.{Enter}
Sleep, 1000
SendInput, {F6}Для получения карты необходимо проживать в области 2 года.{Enter}
Sleep, 1000
SendInput, {F6}А также не болеть, если вы больны попросите рецепт.{Enter}
Sleep, 1000
SendInput, {F6}Стоимость мед.карты – 5.000. Штамп - бесплатный.{Enter}
Sleep, 1000
SendInput, {F6}Оформляем?{Enter}
Sleep, 1000
SendInput, {F6}/n гс на 0{Enter}
Sleep, 1000
SendInput, {F6}/n пиши в чат{Enter}
Return
Numpad2::
SendMessage, 0x50,, 0x4190419,, A
SendInput {F6}Хорошо, передайте мне Ваш паспорт.{Enter}
Sleep 1000 ;
SendInput {F6}Для того, чтобы я переписал Ваши данные в мед. карту.{Enter}
Sleep 1000 ;
SendInput, {F6}/n /pass [id-игрока] по RP (достаточно 3-ёх строчек){enter}
Sleep 1000 ;
SendInput {Ё}
Sleep 1000 ;
SendInput, {F6}/n /do С большой буквы и с точкой.{enter}
Sleep 1000 ;
SendInput, {F6}/n /me с маленькой буквы и без точки{enter}
Sleep 1000 ;
SendInput, {F6}/n Если мед.карта для гос тогда надо отыграть рп{enter}
Return
Numpad3::
SendMessage, 0x50,, 0x4190419,, A
SendInput {F6}/anim 6 10{Enter}
Sleep 500 ;
SendInput {F6}/me протянул руку и легким движением руки взял в руки документ{Enter}
Sleep 1000 ;
SendInput {F6}/do Документ в руках.{Enter}
Sleep 1000 ;
SendInput {F6}/yes{Enter}
Sleep 500 ;
SendInput {F6}/me открыв документ, переписывает данные в бланк{Enter}
Sleep 1000 ;
SendInput {F6}/do Процесс...{Enter}
Sleep 1000 ;
SendInput {F6}/do Данные гражданина переписаны из паспорта.{Enter}
Sleep 1000 ;
SendInput {F6}/me закрыв документ, плавным движением руки вернул его обратно гражданину{Enter}
Sleep 1000 ;
SendInput {F6}/do Передача...{Enter}
Sleep 1000 ;
SendInput {F6}/anim 6 3{Enter}
Sleep 1000 ;
SendInput {esc}
Sleep 2500 ;
SendInput {F6}/todo Переписав данные в бланк*вот, возьмите...{Enter}
Sleep 1000 ;
SendInput {F6}Отлично. Вам лишь остаётся пройти психологический тест.{Enter}
Sleep 1000 ;
SendInput {F6}Я задам Вам несколько вопросов...{Enter}
Sleep 1000 ;
SendInput {F6}Сколько раз Вы умирали?{Enter}
Sleep 1000 ;
SendInput {F6}/n И что такое МГ и ТК?{Enter}
Sleep 1500 ;
SendInput {Ё}
Sleep 500 ;
SendInput {Ё}
Sleep 500 ;
SendInput {Ё}
Sleep 5000 ;
SendInput {F6}/n И что такое МГ и ТК?{Enter}
Sleep 1000 ;
SendInput {F6}/n подсказка:отвечать в тот чат в котором вопрос{Enter}
Sleep 10000 ;
SendInput {F6}/n И что такое МГ и ТК?{Enter}
Return
Numpad4::
SendMessage, 0x50,, 0x4190419,, A
SendInput {F6}Отлично. Психологический тест пройден.{Enter}
Sleep 1000 ;
SendInput {F6}Сейчас я заполню Вашу мед. карту и проставлю штамп.{Enter}
Sleep 1000 ;
SendInput, {F6}Введите ID: {SPACE}
Input, ID, V I M,{enter}
SendInput {end}+{home}{del}{esc}
Sleep 1000 ;
Sendinput, {F6}/me достал пачку чистых мед.карт{Enter}
Sleep, 1000
Sendinput, {F6}/do Пачка чистых мед.карт в руках.{Enter}
Sleep, 1000
Sendinput, {F6}/me положил на стол мед.карты{Enter}
Sleep, 1000
Sendinput, {F6}/do Мед.карты находятся на столе.{Enter}
Sleep, 1000
Sendinput, {F6}/me записал данные пациента{Enter}
Sleep, 1000
Sendinput, {F6}/do Данные записаны.{Enter}
Sleep, 100
SendInput {F6}/medcard %ID%{Enter}
Sleep, 5000
SendInput {F6}Сейчас я поставлю Вам штамп.{Enter}
Sleep, 1000
SendInput {F6}/me берет печать ЦГБ г.Арзамас{Enter}
Sleep, 1000
SendInput {F6}/do Печать в руке.{Enter}
Sleep, 1000
SendInput {F6}/me ставит штамп{Enter}
Sleep, 1000
SendInput {F6}/do Процесс...{Enter}
Sleep, 1000
SendInput {F6}/do Штамп поставлен.{Enter}
Sleep, 3000
SendInput {F6}/todo передавая мед.карту со штампом человеку напротив*Держите.{Enter}
Return
Numpad5::
SendMessage, 0x50,, 0x4190419,, A
SendInput {F6}По симптомам кашля я определил Ваш диагноз.{Enter}
Sleep 1000 ;
SendInput {F6}У Вас явные признаки обморожения.{Enter}
Sleep 1000 ;
SendInput {F6}Не бойтесь, это не критично. Я знаю, что Вам поможет вылечиться.{Enter}
Sleep 1000 ;
SendInput {F6}Я выпишу Вам рецепт, секунду...{Enter}
Sleep 1000 ;
SendInput {F6}/me выписывает рецепт по последним полученным данным{Enter}
Sleep 1000 ;
SendInput {F6}/do Рецепт выписан.{Enter}
Sleep 1000 ;
SendInput {F6}/me вырвал листочек с выписанным рецептом из блокнота и передает его пациенту{Enter}
Sleep 1000 ;
SendInput {F6}Вот, держите. Всё, что я Вам там выписал - принимайте в конкретно этой последовательности.{Enter}
Sleep 1000 ;
SendInput {F6}И старайтесь больше быть в тепле и пить горячий чай.{Enter}
Sleep 1000 ;
SendInput {F6}Всего Вам доброго и больше не болейте{!}{Enter}
Sleep 1000 ;
SendInput {Ё}
Sleep 1000 ;
SendInput {F6}/do Передача...{Enter}
Sleep 1000 ;
SendInput {R}
Sleep 1000 ;
SendInput {E}
Return
:?:/пол::
SendMessage, 0x50,, 0x4190419,, A
Sleep 1000 ;
Sendinput, {F6}Здравствуйте, я Участковый Врач %Ник%.{Enter}
Sleep 1000 ;
Sendinput, {F6}Ваш Участковый Врач.{Enter}
Sleep 1000 ;
SendInput {F6}И так, под итожим...{Enter}
Sleep 1000 ;
SendInput {F6}Вы обратились в нашу больницу по поводу смены пола.{Enter}
Sleep 1000 ;
SendInput {F6}Стоимость данной операции будет составлять 200.000 рублей.{Enter}
Sleep 1000 ;
SendInput {F6}Вы согласны с условиями{!}?{Enter}
Sleep 1000 ;
Sendinput, {F6}Нажмите на "Enter" после полученного ответа: {Space}
Sleep 1000 ;
SendInput, {F6}Введите ID: {SPACE}
Input, ID, V I M,{enter}
SendInput {end}+{home}{del}{esc}
Sleep 1000 ;
SendInput {F6}Хорошо. Раздевайтесь и ложитесь на кушетку.{Enter}
Sleep 1000 ;
SendInput {F6}Если Вы готовы, мы можем начать...{Enter}
Sleep 1000 ;
SendInput {F6}/do Участковый Врачические инструменты лежат на тумбе.{Enter}
Sleep 1000 ;
SendInput {F6}/me взял с тумбы поднос с инструментами и положил около кушетки{Enter}
Sleep 1000 ;
SendInput {F6}/do Стерильные перчатки лежат на подносе.{Enter}
Sleep 1000 ;
SendInput {F6}/me взял перчатки c подноса и натянул их на руки{Enter}
Sleep 1000 ;
SendInput {F6}/do Перчатки надеты.{Enter}
Sleep 1000 ;
SendInput {F6}/do Аппарат анестезии выключен.{Enter}
Sleep 1000 ;
SendInput {F6}/me надел маску аппарата на пациента, после чего включает аппарат для анестезии{Enter}
Sleep 1000 ;
SendInput {F6}/do Аппарат для анестезии включен.{Enter}
Sleep 1000 ;
SendInput {F6}/do Пациент под анестезией.{Enter}
Sleep 1000 ;
SendInput {F6}/me взял скальпель и сделал несколько надрезов в области паха{Enter}
Sleep 1000 ;
SendInput {F6}/me сформировал половой орган из тканей человека{Enter}
Sleep 1000 ;
SendInput {F6}/do Сформирование... {Enter}
Sleep 1000 ;
SendInput {F6}/me отложил скальпель на поднос и взял от туда шёлковую нить и Участковый Врачическую иглу{Enter}
Sleep 1000 ;
SendInput {F6}/do Игла и нить в руке.{Enter}
Sleep 1000 ;
SendInput {F6}/me размотав катушку нити продел её в ушко иглы, стянув кожу, наложил швы{Enter}
Sleep 1000 ;
SendInput {F6}/do Швы наложены.{Enter}
Sleep 1000 ;
SendInput {F6}/me зафиксировав швы, протянул руку к подносу и взял ножницы{Enter}
Sleep 1000 ;
SendInput {F6}/me взяв ножницы с подноса, обрезал лишнюю нить{Enter}
Sleep 1000 ;
SendInput {F6}/do Процесс...{Enter}
Sleep 1000 ;
SendInput {F6}/me сложил все инструменты на поднос{Enter}
Sleep 1000 ;
SendInput {F6}/do Участковый Врачические инструменты лежат на подносе.{Enter}
Sleep 1000 ;
SendInput {F6}/me не торопясь выключил аппарат для анестезии и снял маску с пациента{Enter}
Sleep 1000 ;
SendInput {F6}/do Пинцет, ватка и баночка с раствором антисептика лежат на подносе.{Enter}
Sleep 1000 ;
SendInput {F6}/me взял с подноса пинцет и зацепил им кусок ваты{Enter}
Sleep 1000 ;
SendInput {F6}/me пропитал ватку в растворе антисептика, что стоит на подносе в баночке{Enter}
Sleep 1000 ;
SendInput {F6}/do Ватка пропитана антисептиком.{Enter}
Sleep 1000 ;
SendInput {F6}/me обработал швы антисептиком и сложил всё на поднос{Enter}
Sleep 1000 ;
SendInput {F6}/do Принадлежности для обработки швов на подносе.{Enter}
Sleep 1000 ;
SendInput {F6}/me легким движением руки снимает перчатки и выбрасывает в ведро для отходов{Enter}
Sleep 1000 ;
SendInput {F6}/do Аппарат для анестезии выключен.{Enter}
Sleep 1000 ;
SendInput {F6}/do Операция по смене пола была завершена.{Enter}
Sleep 1000 ;
SendInput {F6}Поздравляю, операция прошла успешно! Состояние стабильное.{Enter}
Sleep 1000 ;
SendInput {F6}Как придете в норму, можете одеваться.{Enter}
Sleep 1000 ;
SendInput {F6}/changesex %ID% 200000{Enter}
Sleep 1000 ;
SendInput {Ё}
Sleep 500 ;
SendInput {Ё}
Sleep 500 ;
SendInput {Ё}
Return
Insert::
SendMessage, 0x50,, 0x4190419,, A
Sendinput, {F6}/r [%ТЭГ%] {Space}
Return
Delete::
SendMessage, 0x50,, 0x4190419,, A
Sendinput, {F6}/rr {Space}
Return
End::
SendMessage, 0x50,, 0x4190419,, A
SendInput {F6}/c 060{enter}
Sleep 750
SendInput {enter}
Sleep 150
Return
Home::
SendMessage, 0x50,, 0x4190419,, A
SendInput, {F6}/me достал мини-аптечку из кармана{Enter}
sleep, 700
SendInput, {F6}/do Мини-аптечка в руке.{Enter}
sleep, 700
SendInput, {F6}/me открыл мини-аптечку и перебинтовал рану{Enter}
sleep, 700
SendInput, {F6}/do Процесс...{Enter}
sleep, 700
SendInput, {F6}/healme{Enter}
sleep, 700
Return