Sky-NS |
Дата: Воскресенье, 08.03.2015, 05:28 | Сообщение # 1
|
The Company Sky-NS
Сообщений: 145
Статус: Offline
|
Всем привет Хочу вам представить исходник "Medic". Предупреждаю, код до смеха прост.
Открывай спойлер и изучай кодКод InputBox, name, Medic v1.2, Введите имя`nНапример: Вася Пупкин fileinstall, 1.jpg, %A_Temp%\1.jpg Gui, Add, Picture, x-8 y0 w470 h370, %A_Temp%\1.jpg Gui, Font, S19 C000033 Bold, Times New Roman Gui, Add, Text, x12 y0 w190 h30 vMyText +Center, Medic v1.2 GuiControl +BackgroundTrans, MyText Gui, Font, S17 C006666 Bold, Times New Roman Gui, Add, Text, x12 y30 w190 h30 vMyText1 +Center, by Sky-NS™ GuiControl +BackgroundTrans, MyText1 Gui, Font, S10 C006666 Bold, Times New Roman Gui, Add, Button, x12 y190 w190 h30, Закрыть Gui, Add, Button, x12 y150 w190 h30, Информация Gui, Add, Button, x12 y110 w190 h30, Проверка обновления ; Generated using SmartGUI Creator 4.0 Gui, Show, x803 y312 h232 w215, Medic v1.2 Return ButtonЗакрыть: ExitApp Return ButtonПроверкаобновления: run, http://cheat-master.ru/forum/150-268935 Return ButtonИнформация: MsgBox,, Medic v1.2, Автор: Sky-NS™`n `nAlt + 1 - Приветствие`nAlt + 2 - Осмотр`nAlt + 3 - Лечение таблетками, мазями и т.п.`nAlt + 4 - Лечение уколом`nAlt + 5 - Лечение ожога`nAlt + 6 - Прощание`nAlt + 7 - Просьба занять койку`nAlt + 8 - Моет стёкла`nAlt + 9 - Моет пол`nAlt + 0 - Лечит (/medhelp)`nCtrl + 1 - Делает рентген`nCtrl + 2 - Накладывает гипс (Если перелом найден)`nCtrl + 3 - Выписывает "Фастум-гель" (Если перелом не найден)`nCtrl + 4 - Начинает операцию`nCtrl + 5 - Вытаскивает пулю (Если неудачно то повторите через 10-15 секунд)`nCtrl + 6 - Заканчивает операцию`nCtrl + 7 - Зашивает ножевое ранение`nCtrl + 8 - Начало операции`nCtrl + 9 - Меняет пол пациенту (Если неудачно то повторите через 10-15 секунд)`nCtrl + 0 - Заканчивает операцию`nShift + 5 - Смотрит на время (/ 60)`nShift + 8 - Анимация №17`nF2 - Пауза Return GuiClose: ExitApp return F12:: exitapp !1:: sendinput, {F6}Здравствуйте, меня зовут %name%.{enter} Sleep, 1100 sendinput, {F6}Что вас беспокоит?{enter} Return !2:: sendinput, {F6}Сейчас я осмотрю Вас{enter} Sleep, 1100 sendinput, {F6}/me надел(а) перчатки{enter} Sleep, 1100 sendinput, {F6}/me осмотрел(а) пациента{enter} Sleep, 500 sendinput, {f6}/me определяет диагноз{enter} Sleep, 500 sendinput, {f6}/do Диагноз определён{enter} Return !3:: sendinput, {F6}Стоимость лекарства составляет ${Left 1} KeyWait, Enter, D Sleep, 1100 sendinput, {F6}/me открыл сумку с медикаментами{enter} Sleep, 1100 sendinput, {F6}/me взял ""{Left 1} KeyWait, Enter, D Sleep 500 SendInput {F6}{Up}{Home}{Right 8}{Shift Down}{End}{Shift Up}{Ctrl Down}{vk43}{Ctrl Up}{BackSpace} Sleep 150 SendInput {Ctrl Down}{vk41}{Ctrl Up}{BackSpace}{enter} Sleep, 1100 sendinput, {F6}/me закрыл сумку с медикаментами{enter} Sleep, 1100 sendinput, {F6}/do Сумка закрыта{enter} Sleep, 1100 sendinput, {F6}/me передал пациенту SendInput {Space}{Ctrl Down}{vk56}{Ctrl Up}{Enter} Sleep, 1100 sendinput, {F6}/medhelp{space} return !4:: sendinput, {F6}Стоимость лекарства составляет ${Left 1} KeyWait, Enter, D Sleep, 1100 sendinput, {F6}/me открыл сумку с медикаментами{enter} Sleep, 1100 sendinput, {F6}/me взял ""{Left 1} KeyWait, Enter, D Sleep 500 SendInput {F6}{Up}{Home}{Right 8}{Shift Down}{End}{Shift Up}{Ctrl Down}{vk43}{Ctrl Up}{BackSpace} Sleep 150 SendInput {Ctrl Down}{vk41}{Ctrl Up}{BackSpace}{enter} Sleep, 1100 sendinput, {F6}/me закрыл сумку с медикаментами{enter} Sleep, 1100 sendinput, {F6}/do Сумка закрыта{enter} Sleep, 1100 sendinput, {F6}/me вколол пациенту SendInput {Space}{Ctrl Down}{vk56}{Ctrl Up}{Enter} Sleep, 1100 sendinput, {F6}/medhelp{space} return !5:: sendinput, {F6}Стоимость лекарства составляет ${Left 1} KeyWait, Enter, D Sleep, 1100 sendinput, {F6}/me осмотрел место ожога{enter} Sleep 500 sendinput, {F6}/me опеделил категорию ожога{enter} Sleep 500 sendinput, {F6}Сейчас обработаем ожог спреем "Пантенол"{enter} Sleep, 1100 sendinput, {F6}/me открыл сумку с медикаментами{enter} Sleep, 1100 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}/me наложил асептическую повязку{enter} Sleep, 1100 sendinput, {F6}/medhelp{space} return !6:: sendinput, {F6}Удачного вам дня и не болейте{enter} Sleep, 500 sendinput, {f6}/c 60{enter} Sleep, 1100 sendinput, {f8} Sleep, 700 sendinput, {enter} return !7:: sendinput, {F6}Займите свободную койку.{enter} Sleep, 1100 sendinput, {F6}/n /hospital{enter} return !8:: sendinput,{f6}/me видит мутные пятна на стёклах{enter} Sleep, 500 sendinput, {f6}/me идёт за тряпкой и моющим средством{enter} Sleep, 500 sendinput, {f6}/c 60{enter} Sleep, 1100 sendinput, {f8} Sleep, 1100 sendinput, {enter} Sleep, 5000 sendinput, {f6}/me ищет тряпку с моющим средством[1/3]{enter} Sleep, 500 sendinput, {f6}/me ищет тряпку с моющим средством[2/3]{enter} Sleep, 500 sendinput, {f6}/me ищет тряпку с моющим средством[3/3]{enter} Sleep, 1100 sendinput, {f6}/me нашел тряпку с моющим средством{enter} Sleep, 500 sendinput, {f6}/me взял тряпку с моющим средством{enter} Sleep, 500 sendinput, {f6}/c 60{enter} Sleep, 1100 sendinput, {f8} Sleep, 1100 sendinput, {enter} Sleep, 1100 sendinput, {f6}/me идёт оттирать стёкла{enter} Sleep, 5000 sendinput, {f6}/me взял тряпку и моющие средство в руки{enter} Sleep, 1100 sendinput, {f6}/do Тряпка и моющие средство в руке{enter} Sleep, 1100 sendinput, {f6}/me принялся оттирать грязное стекло[1/5]{enter} Sleep, 1100 sendinput, {f6}/me принялся оттирать грязное стекло[2/5]{enter} Sleep, 1100 sendinput, {f6}/me принялся оттирать грязное стекло[3/5]{enter} Sleep, 1100 sendinput, {f6}/me принялся оттирать грязное стекло[4/5]{enter} Sleep, 1100 sendinput, {f6}/me принялся оттирать грязное стекло[5/5]{enter} Sleep, 1100 sendinput, {f6}/c 60{enter} Sleep, 1100 sendinput, {f8} Sleep, 700 sendinput, {enter} Sleep, 1000 sendinput, {f6}/do Стекло чистое{enter} Sleep, 1000 sendinput, {f6}/me несёт тряпку и моющие средство на место{enter} Sleep, 5000 sendinput, {f6}/me положил тряпку и моющее средство на место{enter} Sleep, 500 sendinput, {f6}/c 60{enter} Sleep, 1100 sendinput, {f8} Sleep, 700 sendinput, {enter} return !9:: sendinput, {f6}/me посмотрел на полы{enter} Sleep, 1000 sendinput, {f6}/me видет грязные полы{enter} Sleep, 500 sendinput, {f6}/c 60{enter} Sleep, 1100 sendinput, {f8} Sleep, 700 sendinput, {enter} Sleep, 1000 sendinput, {f6}/me пошел за ведром с водой и шваброй с тряпкой{enter} Sleep, 5000 sendinput, {f6}/me видеть ведро с водой и швабру с тряпкой{enter} Sleep, 500 sendinput, {f6}/me взял ведро с водой и швабру с тряпкой{enter} Sleep, 500 sendinput, {f6}/me идёт мыть полы{enter} Sleep, 5000 sendinput, {f6}/me поставил ведро на пол{enter} Sleep, 500 sendinput, {f6}/me взял в руки швабру{enter} Sleep, 500 sendinput, {f6}/c 60{enter} Sleep, 1100 sendinput, {f8} Sleep, 700 sendinput, {enter} Sleep, 500 sendinput, {f6}/me моет полы [1/10]{enter} Sleep, 1100 sendinput, {f6}/me моет полы [2/10]{enter} Sleep, 1100 sendinput, {f6}/me моет полы [3/10]{enter} Sleep, 1100 sendinput, {f6}/me моет полы [4/10]{enter} Sleep, 1100 sendinput, {f6}/me моет полы [5/10]{enter} Sleep, 1100 sendinput, {f6}/do Выжмал тряпку{enter} Sleep, 1100 sendinput, {f6}/me моет полы [6/10]{enter} Sleep, 1100 sendinput, {f6}/me моет полы [7/10]{enter} Sleep, 1100 sendinput, {f6}/me моет полы [8/10]{enter} Sleep, 1100 sendinput, {f6}/me моет полы [9/10]{enter} Sleep, 1100 sendinput, {f6}/me моет полы [10/10]{enter} Sleep, 1100 sendinput, {f6}/c 60{enter} Sleep, 1100 sendinput, {f8} Sleep, 700 sendinput, {enter} Sleep, 500 sendinput, {f6}/me помыл полы{enter} Sleep, 500 sendinput, {f6}/me несёт ведро с водой и швабру с тряпкой на место{enter} Sleep, 5000 sendinput, {f6}/me принёс ведро с водой и швабру с тряпкой и поставил всё на место{enter} Sleep, 500 sendinput, {f6}/c 60{enter} Sleep, 1100 sendinput, {f8} Sleep, 700 sendinput, {enter} return !0:: sendinput, {f6}/medhelp{space} return ^1:: sendinput, {f6}Сейчас мы сделаем рентген{enter} Sleep, 700 sendinput, {f6}Закройте глаза чтобы не ослепило{enter} Sleep, 1100 sendinput, {f6}/me одел защитную маску{enter} Sleep, 1100 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}/try обнаружил перелом{enter} return ^2:: sendinput, {f6}У вас небольшой перелом, я наложу Вам гипс{enter} Sleep, 5000 sendinput, {f6}/me взял гипс из шкафа{enter} Sleep, 1100 sendinput, {f6}/me достал тазик{enter} Sleep, 5000 sendinput, {f6}/me налил воды{enter} Sleep, 1100 sendinput, {f6}/me опустил гипс в воду{enter} Sleep, 1100 sendinput, {f6}/me размочил гипс{enter} Sleep, 5000 sendinput, {f6}/me накладывает гипс{enter} Sleep, 1100 sendinput, {f6}/me взял бинты{enter} Sleep, 1100 sendinput, {f6}/me наложил бинты{enter} Sleep, 1100 sendinput, {f6}Всё готово! Процедура стоила 200${enter} Sleep, 1100 sendinput, {f6}Через неделю приходите на мед.осмотр{enter} Sleep, 1100 sendinput, {f6}/medhelp 200{Left 4} return ^3:: sendinput, {f6}Сэр..Перелома не обнаружено{enter} Sleep, 1100 sendinput, {f6}У вас сильный ушиб{enter} Sleep, 1100 sendinput, {f6}Я выпишу вам мазь от ушибов "Фастум-гель"{enter} Sleep, 1100 sendinput, {f6}Ее стоимость ${Left 1} KeyWait, Enter, D Sleep, 1100 sendinput, {f6}/me достал мазь из мед.сумки{enter} Sleep, 1100 sendinput, {f6}/me передает мазь пациенту{enter} Sleep, 1100 sendinput, {f6}/medhelp{space} return ^4:: sendinput, {f6}/me осмотрел ранение{enter} Sleep, 1100 sendinput, {f6}Сейчас вытащим пулю{enter} Sleep, 5000 sendinput, {f6}/me достал из шкафа стерильные перчатки{enter} Sleep, 1100 sendinput, {f6}/me надел перчатки{enter} Sleep, 1100 sendinput, {f6}/me обработал рану больного{enter} Sleep, 1100 sendinput, {f6}/me вколол обезболивающие{enter} Sleep, 1100 sendinput, {f6}/me включил аппарат наркоза{enter} Sleep, 1100 sendinput, {f6}/me надел маску наркоза на раненного{enter} Sleep, 1100 sendinput, {f6}/me взял скальпель{enter} Sleep, 1100 sendinput, {f6}/me сделал надрез{enter} Sleep, 1100 sendinput, {f6}/me взял щипцы{enter} Sleep, 1100 sendinput, {f6}/me вытаскивает пулю{enter} return ^5:: sendinput, {f6}/try вытащил пулю{enter} Sleep, 1100 sendinput, {f6}/me подтер кровь{enter} return ^6:: sendinput, {f6}/me отложил пулю{enter} Sleep, 1100 sendinput, {f6}/me взял мед. иглу и мед.нитки{enter} Sleep, 1100 sendinput, {f6}/me зашил ранение{enter} Sleep, 1100 sendinput, {f6}/me взял бинты{enter} Sleep, 1100 sendinput, {f6}/me наложил бинты{enter} Sleep, 1100 sendinput, {f6}/me отключил аппарат для наркоза{enter} Sleep, 1100 sendinput, {f6}/me снял маску для наркоза с пациента{enter} Sleep, 1100 sendinput, {f6}/do пациент проснулся{enter} Sleep, 1100 sendinput, {f6}Операция прошла успешно. Вот..Держите на память{enter} Sleep, 1100 sendinput, {f6}/me передал пулю пациенту{enter} Sleep, 1100 sendinput, {f6}Операция стоила Вам 200$, через неделю приходите на мед.осмотр{enter} Sleep, 1100 sendinput, {f6}/medhelp 200{Left 4} return ^7:: sendinput, {f6}/me одел стирильные перчатки{enter} Sleep, 1100 sendinput, {f6}/me осмотрел рану больного{enter} Sleep, 1100 sendinput, {f6}/me обработал рану{enter} Sleep, 1100 sendinput, {f6}/me вколол обезболивающее{enter} Sleep, 1100 sendinput, {f6}/me включил аппарат наркоза{enter} Sleep, 1100 sendinput, {f6}/me надел маску наркоза на раненного{enter} Sleep, 1100 sendinput, {f6}/me взял нитку и иголку{enter} Sleep, 1100 sendinput, {f6}/me наложил швы{enter} Sleep, 1100 sendinput, {f6}/me обработал рану{enter} Sleep, 1100 sendinput, {f6}/me перевязал рану бинтом{enter} Sleep, 1100 sendinput, {f6}/me снял маску наркоза{enter} Sleep, 1100 sendinput, {f6}Операция прошла успешно! С вас 200${enter} Sleep, 1100 sendinput, {f6}/medhelp 200{Left 4} return ^8:: sendinput, {f6}/me достал из шкафа стерильные перчатки{enter} Sleep, 1100 sendinput, {f6}/me надел перчатки{enter} Sleep, 3000 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}/me сделал надрез{enter} return ^9:: sendinput, {f6}/try сменил пол пациенту{enter} return ^0:: sendinput, {f6}/me взял мед.иглу и мед.нитки{enter} Sleep, 1100 sendinput, {f6}/me наложил швы{enter} Sleep, 1100 sendinput, {f6}/me взял бинты{enter} Sleep, 1100 sendinput, {f6}/me наложил бинты{enter} Sleep, 1100 sendinput, {f6}/me отключил аппарат для наркоза{enter} Sleep, 1100 sendinput, {f6}/me снял маску для наркоза с пациента{enter} Sleep, 1100 sendinput, {f6}/do пациент проснулся{enter} Sleep, 1100 sendinput, {f6}Операция окончена. С Вас 500${enter} Sleep, 1100 sendinput, {f6}/changesex 500{Left 4} return Shift & 5:: sendinput, {f6}/c 60{enter} return Shift & 8:: sendinput, {f6}/anim 17{enter} return F2::pause
|Лог обновлений: |Medic v1.4.1 - http://qps.ru/4LG2 |Capture v1.3 - http://qps.ru/ve3Oz |Mass Media v1.8.1 - http://qps.ru/IM6vU
skype:nikitawinston?chat
|Мои разработки AHK: http://qps.ru/9OuI8 |Мои исходники AHK: http://qps.ru/ZySbq
|
|
|
|