API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 20th, 2018
86
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Autohotkey 60.09 KB | None | 0 0
raw download clone embed print report
  1. comment = куда сука? иди сам пиши долбаеб!1
  2. #NoEnv
  3. #IfWinActive GTA:SA:MP
  4. #Include samp.ahk
  5. ; ======================
  6. ; MENU
  7. ; ======================
  8. Menu, Tray, NoStandard
  9. Menu, Tray, DeleteAll
  10. Menu, Tray, Icon,,, 1
  11. Menu, Tray, Add, Связь с Разработчиком,Authorr
  12. Menu, Tray, Add,
  13. Menu, Tray, Add, Перезагрузить,Reloadd
  14. Menu, Tray, Add,
  15. Menu, Tray, Add, Закрыть скрипт,MainGuiClose
  16. Menu, Tray, color, 66c2a5
  17. ; ======================
  18. ; HOTKEY
  19. ; ======================
  20. IniRead, HotkeyTime, config.ini, AutoMed, Time
  21. ; ======================
  22. ; GUI
  23. ; ======================
  24. Gui, Font, S13 CDefault, Book Antiqua
  25. Gui, Add, Text, x32 y30 w100 h30 , /time:
  26. Gui, Add, Hotkey, x142 y30 w100 h30 vHotkeyTime, %HotkeyTime%
  27. Gui, Add, Button, x32 y90 w130 h30 gAuthor, Создатель
  28. Gui, Add, Button, x192 y90 w130 h30 gHelpMe, Помощь
  29. Gui, Add, Button, x352 y90 w130 h30 gSaveConfig, Сохранить
  30. Gui, Add, Button, x147 y140 w220 h30 gApplyConfig, Применить настройки
  31. Gui, Add, DropDownList, x272 y30 w200 h130 vTypeOfHospital, Floris Med.C.|St.Francis Med.C|Kindred Med.C
  32. Gui, Show, w518 h208, AutoMed by Thomas Streets & Anastasiya Dias || v1.0
  33. return
  34. ; ======================
  35. ; МЕТКИ
  36. ; ======================
  37. Authorr:
  38. Run, https://vk.com/id162188025
  39. return
  40. Reloadd:
  41. reload
  42. return
  43. MainGuiClose:
  44. ExitApp
  45. return
  46. Author:
  47. MsgBox, 4, Information about AutoMed, Автор скрипта AutoMed - Thomas Streets [Emerald]`n----------------------------------------------------------`nСпециально для Anastasiya Dias [Emerald]`n----------------------------------------------------------`nСвязаться с разработчиком?
  48. ifMsgBox Yes
  49. Run, https://vk.com/id162188025
  50. return
  51. HelpMe:
  52. MsgBox, 262144, Information about AutoMedHelper, Перезагрузить скрипт - F3.`nПосле изменения кнопки активации времени, нажмите "Применить настройки".`nДополнительная информация о биндах /hhelp.
  53. return
  54. SaveConfig:
  55. Gui, Submit, NoHide
  56. IniWrite, %HotkeyTime%, config.ini, AutoMed, Time
  57. IniWrite, %TypeOfHospital%, config.ini, AutoMed, Hospital
  58. return
  59. GuiClose:
  60. gosub, SaveConfig
  61. Exitapp
  62. return
  63. ApplyConfig:
  64. IniRead, HotkeyTime, config.ini, AutoMed, Time, ^1
  65. Hotkey, % HotkeyTime, LabelTime, Off, UseErrorLevel
  66. Gosub, SaveConfig
  67. Hotkey, % HotkeyTime, LabelTime, On, UseErrorLevel
  68. return
  69. :?:/лечения::
  70. sleep 500
  71. addChatMessageEx("fa9005", "  |     {FFFFFF}Для начала отыгровки, нажмите {DC143C}1{00FFFF}.")
  72. KeyWait, 1, D
  73. MyName := RegExReplace(getUsername(), "_"," ")
  74. SendChat("Здравствуйте, я Ваш лечащий врач, " Myname ", что Вас беспокоит?")
  75. Sleep 500
  76. addChatMessageEx("fa9005", "  |     {FFFFFF}После ответа, нажмите что у человека болит:")
  77. sleep 250
  78. addChatMessageEx("fa9005", "  |     {FFFFFF}Нажмите {DC143C}1{FFFFFF}., если болит голова.")
  79. sleep 250
  80. addChatMessageEx("fa9005", "  |     {FFFFFF}Если живот, нажмите {DC143C}2{00FFFF}.")
  81. Sleep 500
  82. addChatMessageEx("fa9005", "  |     {FFFFFF}Если рука или нога, нажмите {DC143C}3{00FFFF}.")
  83. sleep 250
  84. addChatMessageEx("fa9005", "  |     {FFFFFF}Если боль в половом органе, нажмите {DC143C}4{00FFFF}.")
  85. while (!GetKeyState("1", "P") && !GetKeyState("2", "P") && !GetKeyState("3", "P") && !GetKeyState("4", "P"))
  86. continue
  87. if (GetKeyState("4", "P")) {
  88. SendChat("Есть ли кровь или боли при мочеиспускании?")
  89. sleep 500
  90. addChatMessageEx("00FFFF", "Когда получите ответ, нажмите {DC143C}1{00FFFF}.")
  91. KeyWait, 1, D
  92. SendChat("/todo У Вас аденома простаты. Я выпишу Вам ""Золотой Конёк"".*достав лекарство из мед. сумки.")
  93. sleep 2500
  94. SendChat("/todo Его цена составляет: МЗ - 50$, Остальные - 200$.*передав лекарство пациенту.")
  95. sleep 500
  96. addChatMessageEx("00FFFF", "/heal id цена")
  97. sleep 500
  98. SendInput, {f6}/heal {space}
  99. return
  100. }else if (GetKeyState("3", "P")) {
  101. SendChat("/me осмотрел конечность пациента")
  102. sleep 2500
  103. SendChat("/todo У Вас обычная боль в суставах. Я выпишу Вам мазь ""Финалгон"".*достав лекарство из мед. сумки.")
  104. sleep 2500
  105. SendChat("/todo Его цена составляет: МЗ - 50$, Остальные - 200$.*передав лекарство пациенту.")
  106. sleep 500
  107. addChatMessageEx("00FFFF", "/heal id цена")
  108. sleep 500
  109. SendInput, {f6}/heal {space}
  110. return
  111. }else if (GetKeyState("2", "P")) {
  112. SendChat("/me прощупал живот")
  113. sleep 2500
  114. SendChat("/todo У Вас обычный спазм. Я выпишу Вам лекарство ""Панкреатин"".*достав лекарство из мед. сумки.")
  115. sleep 2500
  116. SendChat("/todo Его цена составляет: МЗ - 50$, Остальные - 200$.*передав лекарство пациенту.")
  117. sleep 500
  118. addChatMessageEx("00FFFF", "/heal id цена")
  119. sleep 500
  120. SendInput, {f6}/heal {space}
  121. return
  122. }else if (GetKeyState("1", "P")) {
  123. SendChat("/todo От головной боли я выпишу Вам ""Цитрамон"".*достав лекарство из мед. сумки.")
  124. sleep 2500
  125. SendChat("/todo Его цена составляет: МЗ - 50$, Остальные - 200$.*передав лекарство пациенту.")
  126. sleep 500
  127. addChatMessageEx("00FFFF", "/heal id цена")
  128. sleep 500
  129. SendInput, {f6}/heal {space}
  130. return
  131. }
  132. {
  133. :?:/карта::
  134. sleep 500
  135. addChatMessageEx("fa9005", "  |     {FFFFFF}Для начала отыгровки, нажмите {DC143C}1{00FFFF}.")
  136. KeyWait, 1, D
  137. SendChat("Есть жалобы на здоровье?")
  138. sleep 500
  139. addChatMessageEx("fa9005", "  |     {FFFFFF}После ответа, нажмите {DC143C}1{00FFFF}.")
  140. KeyWait, 1, D
  141. SendChat("Хорошо, сейчас я проведу мед. осмотр, будьте добры встать к стене.")
  142. sleep 500
  143. addChatMessageEx("fa9005", "  |     {FFFFFF}После того когда стал, нажмите {DC143C}1{00FFFF}.")
  144. KeyWait, 1, D
  145. SendChat("/do На правом плече висит открытая мед. сумка.")
  146. sleep 2500
  147. SendChat("/me достал из мед. сумки стерильные перчатки")
  148. sleep 2500
  149. SendChat("/me надел стерильные перчатки на руки")
  150. sleep 2500
  151. SendChat("/do Перчатки на руках.")
  152. sleep 2500
  153. SendChat("/me подняв кофту человека напротив, прощупал его живот")
  154. sleep 2500
  155. SendChat("/me опустив кофту человека, достал из мед. сумки стетоскоп")
  156. sleep 2500
  157. SendChat("/me подняв кофту человека напротив, проверил его сердцебиение")
  158. sleep 2500
  159. SendChat("/me опустив кофту человека напротив, убрал стетоскоп в мед. сумку")
  160. sleep 2500
  161. SendChat("/todo У вас отличное здоровье.*достав мед. карту из мед. сумки")
  162. sleep 2500
  163. SendChat("/me достав печать " TypeOfHospital ", поставил её на мед. карте")
  164. sleep 2500
  165. SendChat("/me убрав печать в мед. сумку, достал ручку из кармана")
  166. sleep 2500
  167. SendChat("/me поставив подпись в мед. карте, передал её пациенту")
  168. sleep 500
  169. addChatMessageEx("00FFFF", "/medcard id ")
  170. sleep 500
  171. SendInput, {f6}/medcard {space}
  172. sleep 500
  173. addChatMessage("{00FFFF}Отыгровка окончена.{DC143C} Биндер остановлен!{00FFFF}")
  174. return
  175. }
  176. {
  177. :?:/укол::
  178. sleep 500
  179. ShowDialog("2", "{FFFFFF}Уколы:", "{00FFFF}1.{FFFFFF} Укол`n{00FFFF}2. {FFFFFF}Вакцина", "Закрыть")
  180. NextStep := 1
  181. Result := LineResult()
  182. if (!Result)
  183. return
  184. if (Result = "1") {
  185. sleep 500
  186. addChatMessageEx("fa9005", "  |     {FFFFFF}Для начала отыгровки, нажмите {DC143C}1{00FFFF}.")
  187. KeyWait, 1, D
  188. SendChat("/do На плече висит открытая мед. сумка.")
  189. sleep 2500
  190. SendChat("/do На столе стоит баночка спирта и ватка.")
  191. sleep 2500
  192. SendChat("/me закатал рукав на правой руке пациента, стоящего напротив")
  193. sleep 2500
  194. SendChat("/me оторвав кусочек ватки, смочил его спиртом")
  195. sleep 2500
  196. SendChat("/me протёр место укола на руке пациента")
  197. sleep 2500
  198. SendChat("/do В мед. сумке лежат стерильные шприцы и ампулы с лекарством.")
  199. sleep 2500
  200. SendChat("/me достал шприц и ампулу с лекарством из мед. сумки")
  201. sleep 2500
  202. SendChat("/me отбив головку ампулы, засунул в неё шприц")
  203. sleep 2500
  204. SendChat("/me заполнил шприц лекарством")
  205. sleep 2500
  206. SendChat("/me вытащив шприц из ампулы, выкинул ампулу в урну")
  207. sleep 2500
  208. SendChat("/me ввёл лекарство в организм пациента")
  209. sleep 500
  210. addChatMessageEx("00FFFF", "/inject id ")
  211. sleep 500
  212. SendInput, {f6}/inject  {space}
  213. sleep 2500
  214. SendChat("/todo Прижмите плотно ватку.*приложив ватку к месту укола.")
  215. sleep 500
  216. addChatMessage("{00FFFF}Отыгровка окончена.{DC143C} Биндер остановлен!{00FFFF}")
  217. return
  218. }else if (Result = "2") {
  219. sleep 500
  220. addChatMessageEx("fa9005", "  |     {FFFFFF}Для начала отыгровки, нажмите {DC143C}1{00FFFF}.")
  221. KeyWait, 1, D
  222. SendChat("/do На плече висит открытая мед. сумка.")
  223. sleep 2500
  224. SendChat("/do На столе стоит баночка спирта и ватка.")
  225. sleep 2500
  226. SendChat("/me закатал рукав на правой руке пациента, стоящего напротив")
  227. sleep 2500
  228. SendChat("/me оторвав кусочек ватки, смочил его спиртом")
  229. sleep 2500
  230. SendChat("/me протёр место укола на руке пациента")
  231. sleep 2500
  232. SendChat("/do В мед. сумке лежат стерильные шприцы и ампулы с вакцинами.")
  233. sleep 2500
  234. SendChat("/me достал шприц и ампулу с вакциной из мед. сумки")
  235. sleep 2500
  236. SendChat("/me отбив головку ампулы, засунул в неё шприц")
  237. sleep 2500
  238. SendChat("/me заполнил шприц вакциной")
  239. sleep 2500
  240. SendChat("/me вытащив шприц из ампулы, выкинул ампулу в урну")
  241. sleep 2500
  242. SendChat("/me ввёл вакцину в организм пациента")
  243. sleep 500
  244. addChatMessageEx("00FFFF", "/vac id [Номер Вакцины] [Цена]")
  245. sleep 500
  246. SendInput, {f6}/vac {space}
  247. sleep 2000
  248. SendChat("/todo Прижмите плотно ватку.*приложив ватку к месту укола.")
  249. sleep 500
  250. addChatMessageEx("fa9005", "  |     {FFFFFF}Стоимость одной вакцины - 1.000$, для МЗ - 500$.")
  251. sleep 500
  252. addChatMessageEx("fa9005", "  |     {FFFFFF}1 - Грипп, 2 - Ангина, 3 - Бронхит, 4 - Эбола. Одна отыгровка - одна вакцина.")
  253. sleep 500
  254. addChatMessage("{00FFFF}Отыгровка окончена.{DC143C} Биндер остановлен!{00FFFF}")
  255. return
  256. }
  257. }
  258.  
  259. :?:/операции::
  260. sleep 500
  261. ShowDialog("2", "{FFFFFF}Операции:", "{00FFFF}1.{FFFFFF} Операция {00FFFF}(системная)`n{00FFFF}2. {FFFFFF}Удаление Геморроя`n{00FFFF}3. {FFFFFF}Корректировка зрения`n{00FFFF}4. {FFFFFF}Перелом рёбер`n{00FFFF}5. {FFFFFF}Ножевое ранение`n{00FFFF}6. {FFFFFF}Перелом руки/ноги`n{00FFFF}7. {FFFFFF}Операция по смене пола", "Закрыть")
  262. NextStep := 1
  263. Result := LineResult()
  264. if (!Result)
  265. return
  266. if (Result = "1") {
  267. sleep 500
  268. addChatMessageEx("fa9005", "  |     {FFFFFF}Для начала отыгровки, нажмите {DC143C}1{00FFFF}.")
  269. KeyWait, 1, D
  270. SendChat("/do Посреди операционной стоит кушетка с мед. оборудованием.")
  271. sleep 2500
  272. SendChat("/me помог лечь пациенту на кушетку")
  273. sleep 2500
  274. SendChat("/me включив аппарат для наркоза, взял маску в руки")
  275. sleep 2500
  276. SendChat("/me надел маску для наркоза на пациента")
  277. sleep 2500
  278. SendChat("/do Спустя 2 минуты пациент уснул.")
  279. sleep 2500
  280. SendChat("/me взяв стерильные инструменты в руки, начал проведение тяжёлой операции")
  281. sleep 2500
  282. SendChat("/do Спустя некоторое время операция была завершена успешно.")
  283. sleep 2500
  284. SendChat("/me отставив мед. инструменты, отключил аппарат для наркоза")
  285. sleep 2500
  286. SendChat("/me снял маску для наркоза с пациента")
  287. sleep 2500
  288. SendChat("/todo Операция прошла успешно.*помогая встать пациенту с кушетки.")
  289. sleep 500
  290. addChatMessage("{00FFFF}Отыгровка окончена.{DC143C} Биндер остановлен!{00FFFF}")
  291. return
  292. }else if (Result = "2") {
  293. sleep 500
  294. addChatMessageEx("fa9005", "  |     {FFFFFF}Для начала отыгровки, нажмите {DC143C}1{00FFFF}.")
  295. KeyWait, 1, D
  296. SendChat("/do На правом плече висит открытая мед. сумка.")
  297. sleep 2500
  298. SendChat("/me достав стерильные перчатки из мед. сумки, надел их на руки")
  299. sleep 2500
  300. SendChat("/me взяв операционную маску в руки, надел её на голову")
  301. sleep 500
  302. addChatMessageEx("00FFFF", "Если есть бандана, /inv и надеваем бандану. Для продолжения, нажмите {DC143C}1{00FFFF}.")
  303. KeyWait, 1, D
  304. SendChat("/do Рядом с операционным столом стоит стойка с инструментами.")
  305. sleep 2500
  306. SendChat("/me взял зажим со стойки")
  307. sleep 2500
  308. SendChat("/me наложив зажим на 1см от краёв ануса, растянул его")
  309. sleep 2500
  310. SendChat("/me осмотрев анальное отверстие, стянул зажим")
  311. sleep 2500
  312. SendChat("/me убирает зажим с краёв ануса")
  313. sleep 2500
  314. SendChat("/me начинает удаление геморроя")
  315. sleep 2500
  316. SendChat("/me удаляет геморрой")
  317. sleep 2500
  318. SendChat("/do Геморрой удалён.")
  319. sleep 2500
  320. SendChat("/me достал из мед. сумки мазь ""Цикадерма""")
  321. sleep 2500
  322. SendChat("/me обработав свежий ожог мазью, стянул зажимы")
  323. sleep 2500
  324. SendChat("/me убрал зажим с краёв ануса")
  325. sleep 2500
  326. SendChat("/me снял стерильные перчатки с рук")
  327. sleep 2500
  328. SendChat("/me снял операционную маску с лица")
  329. sleep 500
  330. addChatMessageEx("00FFFF", "Снимаем маску (если надевали).")
  331. sleep 500
  332. addChatMessage("{00FFFF}Отыгровка окончена.{DC143C} Биндер остановлен!{00FFFF}")
  333. return
  334. }else if (Result = "3") {
  335. sleep 500
  336. addChatMessageEx("fa9005", "  |     {FFFFFF}Для начала отыгровки, нажмите {DC143C}1{00FFFF}.")
  337. KeyWait, 1, D
  338. SendChat("/do На правом плече висит мед. сумка.")
  339. sleep 2500
  340. SendChat("/me достав стерильные перчатки из мед. сумки, надел их на руки")
  341. sleep 2500
  342. SendChat("/me взяв операционную маску, надел её на голову")
  343. sleep 500
  344. addChatMessageEx("fa9005", "  |     {FFFFFF}Если есть бандана, /inv и надеваем бандану. Для продолжения, нажмите {DC143C}1{00FFFF}.")
  345. KeyWait, 1, D
  346. SendChat("/me взяв маску от аппарата для наркоза, надел её на пациента")
  347. sleep 2500
  348. SendChat("/me включил аппарат для наркоза")
  349. sleep 2500
  350. SendChat("/do Рядом с операционным столом стоит стойка с инструментами.")
  351. sleep 2500
  352. SendChat("/me взял глазную растяжку со стойки")
  353. sleep 2500
  354. SendChat("/me вставил один край растяжки под нижнее веко правого глаза")
  355. sleep 2500
  356. SendChat("/me вставил второй край растяжки под верхнее веко правого глаза")
  357. sleep 2500
  358. SendChat("/me взял лазерный аппарат для корректировки зрения со стойки")
  359. sleep 2500
  360. SendChat("/do Аппарат в руках.")
  361. sleep 2500
  362. SendChat("/me подносит аппарат к правому глазу")
  363. sleep 2500
  364. SendChat("/me включает аппарат")
  365. sleep 2500
  366. SendChat("/do Идет корректировка зрения правого глаза...")
  367. sleep 2500
  368. SendChat("/do Корректировка зрения на правом глазу окончена.")
  369. sleep 2500
  370. SendChat("/me вытащил один край растяжки из-под нижнего века правого глаза")
  371. sleep 2500
  372. SendChat("/me вытащил второй край растяжки из-под верхнего века правого глаза")
  373. sleep 500
  374. addChatMessageEx("fa9005", "  |     {FFFFFF}Обходим кушетку и идем к левому глазу. Для продолжения, нажмите {DC143C}1{00FFFF}.")
  375. KeyWait, 1, D
  376. sleep 2500
  377. SendChat("/me взял новую глазную растяжку со стойки")
  378. sleep 2500
  379. SendChat("/me вставил один край растяжки под нижнее веко левого глаза")
  380. sleep 2500
  381. SendChat("/me вставил второй край растяжки под верхнее веко левого глаза")
  382. sleep 2500
  383. SendChat("/me взял лазерный аппарат для корректировки зрения")
  384. sleep 2500
  385. SendChat("/do Аппарат в руках.")
  386. sleep 2500
  387. SendChat("/me подносит аппарат к левому глазу")
  388. sleep 2500
  389. SendChat("/me включает аппарат")
  390. sleep 2500
  391. SendChat("/do Идет корректировка зрения левого глаза...")
  392. sleep 2500
  393. SendChat("/do Корректировка зрения на левом глазу окончена.")
  394. sleep 2500
  395. SendChat("/me вытащил один край из под нижнего века левого глаза")
  396. sleep 2500
  397. SendChat("/me вытащил второй край из под верхнего века левого глаза")
  398. sleep 2500
  399. SendChat("/me снял стерильные перчатки с рук")
  400. sleep 2500
  401. SendChat("/me снял операционную маску с лица")
  402. sleep 500
  403. addChatMessageEx("fa9005", "  |     {FFFFFF}Снимаем маску (если надевали).")
  404. sleep 500
  405. addChatMessage("{00FFFF}Отыгровка окончена.{DC143C} Биндер остановлен!{00FFFF}")
  406. return
  407. }else if (Result = "4") {
  408. sleep 500
  409. addChatMessageEx("fa9005", "  |     {FFFFFF}Для начала отыгровки, нажмите {DC143C}1{00FFFF}.")
  410. KeyWait, 1, D
  411. SendChat("/me взяв защитную маску в руки, надел её на своё лицо")
  412. sleep 2500
  413. SendChat("/me осмотрел грудь пациента")
  414. sleep 2500
  415. SendChat("/do На какой стороне груди у пациента кровоподтёки?")
  416. sleep 500
  417. addChatMessageEx("fa9005", "  |     {FFFFFF}Когда ответит, нажмите {DC143C}1{00FFFF}.")
  418. KeyWait, 1, D
  419. SendChat("/me включил рентген аппарат")
  420. sleep 2500
  421. SendChat("/me взяв зелёный фартук, положил его на место перелома")
  422. sleep 2500
  423. SendChat("/me поднёс ренген аппарат к месту перелома")
  424. sleep 2500
  425. SendChat("/me делает рентген снимок")
  426. sleep 2500
  427. SendChat("/do Снимок готов.")
  428. sleep 2500
  429. SendChat("/me взяв снимок в руки, начал рассматривать его")
  430. sleep 2500
  431. SendChat("У вас трещина в ребре.")
  432. sleep 2500
  433. SendChat("Вам требуется постельный режим и дыхательная гимнастика.")
  434. sleep 2500
  435. SendChat("/me выписал направление на процедуры")
  436. sleep 500
  437. addChatMessage("{00FFFF}Отыгровка окончена.{DC143C} Биндер остановлен!{00FFFF}")
  438. return
  439. }else if (Result = "5") {
  440. sleep 500
  441. addChatMessageEx("fa9005", "  |     {FFFFFF}Для начала отыгровки, нажмите {DC143C}1{00FFFF}.")
  442. KeyWait, 1, D
  443. SendChat("/do На правом плече висит открытая мед. сумка.")
  444. sleep 2500
  445. SendChat("/me достав стерильные перчатки из мед. сумки, надел их на руки")
  446. sleep 2500
  447. SendChat("/me осмотрел рану пациента")
  448. sleep 2500
  449. SendChat("/me достав из мед. сумки ватку и спирт, открыл пузырёк спирта")
  450. sleep 2500
  451. SendChat("/me смочив ватку спиртом, закрыл пузырёк")
  452. sleep 2500
  453. SendChat("/me положив пузырёк спирта в мед. сумку, обработал ваткой ранение пациента")
  454. sleep 2500
  455. SendChat("/me достал шприц и пузырёк с обезболивающим из мед. сумки")
  456. sleep 2500
  457. SendChat("/me открыв пузырёк с обезболивающим, заправил шприц")
  458. sleep 2500
  459. SendChat("/me отложив пустой пузырёк в сторону, вколол обезболивающее пациенту")
  460. sleep 2500
  461. SendChat("/me взяв маску от аппарата для наркоза, надел её на пациента")
  462. sleep 2500
  463. SendChat("/me включил аппарат наркоза")
  464. sleep 2500
  465. SendChat("/me взяв мед.нитку и мед.иглу, наложид швы на место ранения")
  466. sleep 2500
  467. SendChat("/me достав из мед. сумки ватку и спирт, смочил ватку спиртом")
  468. sleep 2500
  469. SendChat("/me обработал ранение пациента ваткой")
  470. sleep 2500
  471. SendChat("/me отложил ватку и спирт в сторону")
  472. sleep 2500
  473. SendChat("/me достав из мед. сумки бинты, перевязал ранение бинтом")
  474. sleep 2500
  475. SendChat("/me отключив аппарат наркоза, снял с пациента маску")
  476. sleep 500
  477. addChatMessage("{00FFFF}Отыгровка окончена.{DC143C} Биндер остановлен!{00FFFF}")
  478. return
  479. }else if (Result = "6") {
  480. sleep 500
  481. addChatMessageEx("fa9005", "  |     {FFFFFF}Для начала отыгровки, нажмите {DC143C}1{00FFFF}.")
  482. KeyWait, 1, D
  483. SendChat("/do На правом плече висит открытая мед. сумка.")
  484. sleep 2500
  485. SendChat("/me достав из мед. сумки защитную маску, надел её")
  486. sleep 500
  487. addChatMessageEx("fa9005", "  |     {FFFFFF}Если есть бандана, /inv и надеваем бандану. Для продолжения, нажмите {DC143C}1{00FFFF}.")
  488. KeyWait, 1, D
  489. SendChat("/me взяв зелёный фартук со стола, положил его на место перелома")
  490. sleep 2500
  491. SendChat("/me включив рентген аппарат, поднёс его к месту перелома")
  492. sleep 2500
  493. SendChat("/me делает снимок")
  494. sleep 2500
  495. SendChat("/do Снимок сделан.")
  496. sleep 2500
  497. SendChat("/me убрав фартук и аппарат от места перелома, взял снимок в руки")
  498. sleep 2500
  499. SendChat("/me начал рассматривать снимок")
  500. sleep 2500
  501. SendChat("/try обнаружил перелом на снимке")
  502. Sleep 500
  503. addChatMessageEx("fa9005", "  |     {FFFFFF}Если удачно, нажмите {DC143C}1{00FFFF}.")
  504. sleep 250
  505. addChatMessageEx("fa9005", "  |     {FFFFFF}Если не удачно, нажмите {DC143C}2{00FFFF}.")
  506. while (!GetKeyState("1", "P") && !GetKeyState("2", "P"))
  507. continue
  508. if (GetKeyState("2", "P")) {
  509. SendChat("Перелома не обнаружено, но у Вас сильный ушиб.")
  510. sleep 2500
  511. SendChat("Я выпишу вам мазь от ушибов ""Фастум-гель"".")
  512. sleep 2500
  513. SendChat("/me достав мазь из мед. сумки, передал её пациенту")
  514. sleep 2500
  515. SendChat("Удачного Вам дня. Не болейте!")
  516. return
  517. }else if (GetKeyState("1", "P")) {
  518. SendChat("У вас небольшой перелом, я наложу Вам гипс.")
  519. sleep 2500
  520. SendChat("/me подойдя к шкафу, открыл его")
  521. sleep 2500
  522. SendChat("/me достал гипс и тазик из шкафа")
  523. sleep 2500
  524. SendChat("/me подойдя к раковине, налил воды в тазик")
  525. sleep 2500
  526. SendChat("/me поставив тазик на пол, положив в него гипс")
  527. sleep 2500
  528. SendChat("/do Гипс лежит в тазике с водой.")
  529. sleep 2500
  530. SendChat("/me размочил гипс")
  531. sleep 2500
  532. SendChat("/me достав из мед. сумки стерильные перчатки, надел их на руки")
  533. sleep 2500
  534. SendChat("/me взяв гипс в руки, начал накладывать его на место перелома")
  535. sleep 2500
  536. SendChat("/me сняв перчатки с рук, отложил их в сторону")
  537. sleep 2500
  538. SendChat("/me достав из мед. сумки бинты, наложил их на место перелома")
  539. sleep 2500
  540. SendChat("Через неделю приходите на мед.осмотр.")
  541. sleep 500
  542. addChatMessage("{00FFFF}Отыгровка окончена.{DC143C} Биндер остановлен!{00FFFF}")
  543. return
  544. }else if (Result = "7") {
  545. sleep 500
  546. addChatMessageEx("fa9005", "  |     {FFFFFF}Для начала отыгровки, нажмите {DC143C}1{00FFFF}.")
  547. KeyWait, 1, D
  548. SendChat("/do На правом плече висит открытая мед. сумка.")
  549. sleep 2500
  550. SendChat("/me достав стерильные перчатки из мед. сумки, надел их на руки")
  551. sleep 2500
  552. SendChat("/me взяв маску от аппарата для наркоза в руки, надел её на пациента")
  553. sleep 2500
  554. SendChat("/me включил аппарат для наркоза")
  555. sleep 2500
  556. SendChat("/do Рядом с операционным столом стоит стойка с инструментами.")
  557. sleep 2500
  558. SendChat("/me взяв скальпель со стойки в руки, сделал надрез")
  559. sleep 2500
  560. SendChat("/do Сменил пол пациенту.")
  561. sleep 2500
  562. SendChat("/me взяв со стойки мед.иглу и мед.нити, наложил швы на надрез")
  563. sleep 2500
  564. SendChat("/me отложив иглу в сторону, достал из мед. сумки бинты")
  565. sleep 2500
  566. SendChat("/me наложив бинты на место надреза, выключил аппарат для наркоза")
  567. sleep 2500
  568. SendChat("/todo Операция прошла успешно*сняв маску для наркоза с пациента.")
  569. sleep 500
  570. addChatMessage("{00FFFF}Отыгровка окончена.{DC143C} Биндер остановлен!{00FFFF}")
  571. return
  572. }
  573. }
  574. :?:/пмп::
  575. sleep 500
  576. ShowDialog("2", "{FFFFFF}Первая медицинская помощь", "{00FFFF}1.{FFFFFF} Закрытый перелом и открытый:`n{00FFFF}2. {FFFFFF}Первая медицинская помощь при ушибах/растяжениях`n{00FFFF}3. {FFFFFF}Первая медицинская помощь при ножевых/пулевых ранениях`n{00FFFF}4. {FFFFFF}Первая медицинская помощь при обмороке`n{00FFFF}5. {FFFFFF}Помощь при потере пульса `n{00FFFF}6. {FFFFFF}Помощь при ожогах", "Закрыть")
  577. NextStep := 1
  578. Result := LineResult()
  579. if (!Result)
  580. return
  581. if (Result = "1") {
  582. sleep 500
  583. addChatMessageEx("fa9005", "  |     {FFFFFF}Какой у него перелом?")
  584. sleep 500
  585. addChatMessageEx("fa9005", "  |     {FFFFFF}Если открытый, нажмите {DC143C}1{00FFFF}.")
  586. sleep 250
  587. addChatMessageEx("fa9005", "  |     {FFFFFF}Если закрытый, нажмите {DC143C}2{00FFFF}.")
  588. while (!GetKeyState("1", "P") && !GetKeyState("2", "P"))
  589. continue
  590. if (GetKeyState("1", "P")) {
  591. SendChat("/todo У вас открытый перелом.*осмотрев место травмы.")
  592. sleep 2500
  593. SendChat("Не совершайте резких движений и всё будет хорошо.")
  594. sleep 2500
  595. SendChat("/do На правом плече висит медицинская сумка.")
  596. sleep 2500
  597. SendChat("/me открыв мед. сумку, достал из неё мед. перчатки")
  598. sleep 2500
  599. SendChat("/me надев перчатки на руки, достал из сумки ампулу с обезболивающим Фентанил")
  600. sleep 2500
  601. SendChat("/me надломал ампулу с обезболивающим, тем самым вскрыв её")
  602. sleep 2500
  603. SendChat("/me достав из мед. сумки шприц, достал его из упаковки")
  604. sleep 2500
  605. SendChat("/me засунув шприц в ампулу, набрал в него препарат")
  606. sleep 2500
  607. SendChat("/me воткнув шприц пациенту вблизь перелома, ввёл лекарство")
  608. sleep 2500
  609. SendChat("/me высунув шприц, положил его в мед. сумку")
  610. sleep 2500
  611. SendChat("/me достав из мед. сумки спрей ""Перекись Водорода"", обработал им зону кровотечения")
  612. sleep 2500
  613. SendChat("/me убрав спрей ""Перекись Водорода"" в мед. сумку, достал из неё спрей Фрост")
  614. sleep 2500
  615. SendChat("/me обработав зону открытого перелома спреем, убрал его в мед. сумку")
  616. sleep 2500
  617. SendChat("/do Интенсивность выделения крови временно снижена.")
  618. sleep 2500
  619. SendChat("/me достал необходимые крепления для удержания конечности из мед.сумки")
  620. sleep 2500
  621. SendChat("/me производит шинирование места открытого перелома")
  622. sleep 2500
  623. SendChat("/do Шинирование завершено.")
  624. sleep 2500
  625. SendChat("/do Шина плотно сидит на конечности пациента.")
  626. sleep 500
  627. addChatMessage("{00FFFF}Отыгровка окончена.{DC143C} Биндер остановлен!{00FFFF}")
  628. return
  629. }else if (GetKeyState("2", "P")) {
  630. SendChat("Не беспокойтесь я вам помогу.?")
  631. sleep 2500
  632. SendChat("/do На плече висит медицинская сумка.?")
  633. sleep 2500
  634. SendChat("/me открыв сумку,достал из неё медицинскую шину?")
  635. sleep 2500
  636. SendChat("/me достал из сумки спрей Фрост")
  637. sleep 2500
  638. SendChat("/me открыв крышку спрея, обработал им перелом")
  639. sleep 2500
  640. SendChat("/me закрыв спрей крышкой, убрал его в мед. сумку")
  641. sleep 2500
  642. SendChat("/me наложил на конечность пострадавшего медицинскую шину?")
  643. sleep 2500
  644. SendChat("/do Шина плотно сидит на конечности пациента.")
  645. sleep 500
  646. addChatMessage("{00FFFF}Отыгровка окончена.{DC143C} Биндер остановлен!{00FFFF}")
  647. return
  648. }else if (Result = "2") {
  649. sleep 500
  650. addChatMessageEx("fa9005", "  |     {FFFFFF}Для начала отыгровки, нажмите {DC143C}1{00FFFF}.")
  651. KeyWait, 1, D
  652. SendChat("/do На правом плече висит медицинская сумка.")
  653. sleep 2500
  654. SendChat("/me открыв мед. сумку, достал из неё эластичный бинт")
  655. sleep 2500
  656. SendChat("/me достав из сумки спрей ""Фрост"", обработал ушиб спреем")
  657. sleep 2500
  658. SendChat("/me убрав спрей в сумку, наложил на конечность пострадавшего эластичных бинт")
  659. sleep 2500
  660. SendChat("/me крепко затянул эластичный бинт")
  661. sleep 2500
  662. SendChat("/do Эластичный бинт плотно сидит на конечности пациента.")
  663. sleep 500
  664. addChatMessage("{00FFFF}Отыгровка окончена.{DC143C} Биндер остановлен!{00FFFF}")
  665. return
  666. }else if (Result = "3") {
  667. sleep 500
  668. addChatMessageEx("fa9005", "  |     {FFFFFF}Для начала отыгровки, нажмите {DC143C}1{00FFFF}.")
  669. KeyWait, 1, D
  670. SendChat("/me осмотрев рану, опознал характер повреждения?")
  671. sleep 2500
  672. SendChat("/do Колотая рана.?")
  673. sleep 2500
  674. SendChat("/do На правом плече висит открытая мед. сумка.")?
  675. sleep 2500
  676. SendChat("/me достав из неё раствор Хлоргексидина, обработал рану пострадавшего?")
  677. sleep 2500
  678. SendChat("/me положил в сумку раствор Хлоргексидина?")
  679. sleep 2500
  680. SendChat("/me достав бинтыиз мед. сумки, сделал из них накладную повязку?")
  681. sleep 2500
  682. SendChat("/me начал накладывать повязку на рану")
  683. sleep 2500
  684. SendChat("/do Бинты постепенно скрывают рану.")
  685. sleep 2500
  686. SendChat("/do Повязка крепко наложена и стягивает рану.")
  687. sleep 500
  688. addChatMessage("{00FFFF}Отыгровка окончена.{DC143C} Биндер остановлен!{00FFFF}")
  689. return
  690. }else if (Result = "4") {
  691. sleep 500
  692. addChatMessageEx("fa9005", "  |     {FFFFFF}Для начала отыгровки, нажмите {DC143C}1{00FFFF}.")
  693. KeyWait, 1, D
  694. SendChat("/do На плече висит открытая сумка.?")
  695. sleep 2500
  696. SendChat("/me сняв сумку с плеча,кинул её на пол")?
  697. sleep 2500
  698. SendChat("/me достав из сумки флакон с нашатырным спиртом, открыл его")
  699. sleep 2500
  700. SendChat("/me поднёс смоченную ватку к носу пострадавшего")
  701. sleep 2500
  702. SendChat("/do Человек очнулся??")
  703. sleep 2500
  704. SendChat("/n /do Дa/нет.?")
  705. sleep 500
  706. addChatMessageEx("fa9005", "  |     {FFFFFF}Если удачно, нажмите {DC143C}1{00FFFF}.")
  707. sleep 250
  708. addChatMessageEx("fa9005", "  |     {FFFFFF}Если не удачно, нажмите {DC143C}2{00FFFF}.")
  709. while (!GetKeyState("1", "P") && !GetKeyState("2", "P"))
  710. continue
  711. if (GetKeyState("1", "P")) {
  712. SendChat("Всё в порядке,успокойтесь,вы потеряли сознание")
  713. sleep 2500
  714. SendChat("Теперь всё в порядке,чем я ещё могу вам быть полезен??")
  715. return
  716. }else if (GetKeyState("2", "P")) {
  717. SendChat("/me слегка похлопал руками по щекам человека?")
  718. sleep 2500
  719. SendChat("/me достал из сумки бутылку с холодной водой, открутил крышку?")
  720. sleep 2500
  721. SendChat("/me брызгнул водой из бутылки на лицо пострадавшего")?
  722. sleep 2500
  723. SendChat("/me похлопал постравдавшего по щекам")
  724. sleep 2500
  725. SendChat("/do Человек пришёл в сознание?.")
  726. sleep 2500
  727. SendChat("/n /do Да/нет.?")
  728. sleep 500
  729. addChatMessageEx("fa9005", "  |     {FFFFFF}Если удачно, нажмите {DC143C}1{00FFFF}.")
  730. sleep 250
  731. addChatMessageEx("fa9005", "  |     {FFFFFF}Если не удачно, нажмите {DC143C}2{00FFFF}.")
  732. while (!GetKeyState("1", "P") && !GetKeyState("2", "P"))
  733. continue
  734. if (GetKeyState("1", "P")) {
  735. addChatMessageEx("fa9005", "  |     {FFFFFF}Отвезите человека в больницу и действуете в зависимости от РП ситуации.")
  736. return
  737. }else if (GetKeyState("2", "P")) {
  738. SendChat("/me поднёс два пальца к шее пострадавшего, приложив их к сонной артерии")
  739. sleep 2500
  740. SendChat("/do У человека есть пульс?")
  741. sleep 2500
  742. SendChat("/n /do Да./нет.")
  743. sleep 500
  744. addChatMessageEx("fa9005", "  |     {FFFFFF}Если удачно, нажмите {DC143C}1{00FFFF}.")
  745. sleep 250
  746. addChatMessageEx("fa9005", "  |     {FFFFFF}Если не удачно, нажмите {DC143C}2{00FFFF}.")
  747. while (!GetKeyState("1", "P") && !GetKeyState("2", "P"))
  748. continue
  749. if (GetKeyState("1", "P")) {
  750. addChatMessageEx("fa9005", "  |     {FFFFFF}Отвезите человека в больницу и действуете в зависимости от РП ситуации.")
  751. return
  752. }else if (GetKeyState("2", "P")) {
  753. SendChat("/me достав из сумки полотенце, подложил его под шею пострадавшего")
  754. sleep 2500
  755. SendChat("/me снял с груди человека всю одежду")
  756. sleep 2500
  757. SendChat("/me снял все сдавливающие аксессуары")
  758. sleep 2500
  759. SendChat("/me сделав глубокий вдох, начал делать искусственное дыхание лёгких")
  760. sleep 2500
  761. SendChat("/do Воздух постепенно наполняет и заполняет лёгкие пострадавшего.")
  762. sleep 2500
  763. SendChat("/me положил руки друг на друга на грудь человека")
  764. sleep 2500
  765. SendChat("/me делает непрямой массаж сердца")
  766. sleep 2500
  767. SendChat("/me попеременно делает искусственное дыхание и непрямой массаж сердца")
  768. sleep 2500
  769. SendChat("/do Прошла минута.")
  770. sleep 2500
  771. SendChat("/do Человек пришёл в себя?")
  772. sleep 2500
  773. SendChat("/n /do Да/нет.")
  774. sleep 500
  775. addChatMessageEx("fa9005", "  |     {FFFFFF}Если удачно, нажмите {DC143C}1{00FFFF}.")
  776. sleep 250
  777. addChatMessageEx("fa9005", "  |     {FFFFFF}Если не удачно, нажмите {DC143C}2{00FFFF}.")
  778. while (!GetKeyState("1", "P") && !GetKeyState("2", "P"))
  779. continue
  780. if (GetKeyState("1", "P")) {
  781. addChatMessageEx("fa9005", "  |     {FFFFFF}Отвезите человека в больницу и действуете в зависимости от РП ситуации.")
  782. return
  783. }else if (GetKeyState("2", "P")) {
  784. SendChat("/me продолжает делать искусственное дыхание и непрямой массаж сердца")
  785. sleep 2500
  786. SendChat("/do Прошла минута.")
  787. sleep 2500
  788. SendChat("/do Человек пришёл в себя?")
  789. sleep 2500
  790. SendChat("/n /do Да/нет.")
  791. sleep 500
  792. addChatMessageEx("fa9005", "  |     {FFFFFF}Если удачно, нажмите {DC143C}1{00FFFF}.")
  793. sleep 250
  794. addChatMessageEx("fa9005", "  |     {FFFFFF}Если не удачно, нажмите {DC143C}2{00FFFF}.")
  795. while (!GetKeyState("1", "P") && !GetKeyState("2", "P"))
  796. continue
  797. if (GetKeyState("1", "P")) {
  798. addChatMessageEx("fa9005", "  |     {FFFFFF}Отвезите человека в больницу и действуете в зависимости от РП ситуации.")
  799. return
  800. }else if (GetKeyState("2", "P")) {
  801. addChatMessageEx("fa9005", "  |     {FFFFFF}Констатируйте его смерть.")
  802. sleep 500
  803. addChatMessage("{00FFFF}Отыгровка окончена.{DC143C} Биндер остановлен!{00FFFF}")
  804. return
  805. }else if (Result = "5") {
  806. sleep 500
  807. addChatMessageEx("fa9005", "  |     {FFFFFF}Для начала отыгровки, нажмите {DC143C}1{00FFFF}.")
  808. KeyWait, 1, D
  809. SendChat("/do На правом плече висит открытая мед. сумка.")
  810. sleep 2500
  811. SendChat("/me достав из сумки полотенце, подложил его под шею пострадавшего")
  812. sleep 2500
  813. SendChat("/me снял с груди человека всю одежду")
  814. sleep 2500
  815. SendChat("/me снял все сдавливающие аксессуары")
  816. sleep 2500
  817. SendChat("/me сделав глубокий вдох, начал делать искусственное дыхание лёгких")
  818. sleep 2500
  819. SendChat("/me начал делать искусственное дыхание лёгких")
  820. sleep 2500
  821. SendChat("/do Воздух постепенно наполняет и заполняет лёгкие пострадавшего.")
  822. sleep 2500
  823. SendChat("/me положил руки друг на друга на грудь человека")
  824. sleep 2500
  825. SendChat("/me делает непрямой массаж сердца")
  826. sleep 2500
  827. SendChat("/me попеременно делает искусственное дыхание и непрямой массаж сердца.")
  828. sleep 2500
  829. SendChat("/do Прошла минута.")
  830. sleep 2500
  831. SendChat("/do Человек пришёл в себя?")
  832. sleep 2500
  833. SendChat("/n /do Да/нет.")
  834. sleep 500
  835. addChatMessageEx("fa9005", "  |     {FFFFFF}Если нет...")
  836. sleep 250
  837. addChatMessageEx("fa9005", "  |     {FFFFFF}Продолжайте те же действия в течении четырёх минут, если пульс не появится...")
  838. sleep 250
  839. addChatMessageEx("fa9005", "  |     {FFFFFF}...то скорее всего наступила клиническая смерть, констатируйте его смерть.*")
  840. sleep 500
  841. addChatMessage("{00FFFF}Отыгровка окончена.{DC143C} Биндер остановлен!{00FFFF}")
  842. return
  843. }else if (Result = "6") {
  844. SendChat("/do На правом плече висит открытая мед. сумка.")
  845. sleep 2500
  846. SendChat("/me сняв сумку с плеча, кинул её на пол")
  847. sleep 2500
  848. SendChat("/me достал из сумки мед.ножницы")
  849. sleep 2500
  850. SendChat("/me используя ножницы, освободил обожжённый участок кожи от одежды")
  851. sleep 2500
  852. SendChat("/me достав из сумки спрей ""Олазоль"", открыл его колпачок")
  853. sleep 2500
  854. SendChat("/me сбрызнул спреем обгоревшие участки кожи, закрыл спрей")
  855. sleep 2500
  856. SendChat("/me убрав его в сумку, достал из неё бинты")
  857. sleep 2500
  858. SendChat("/me наложил повязку из бинтов на ожог")
  859. sleep 2500
  860. SendChat("/do Повязка крепко сидит на ожоге.")
  861. sleep 500
  862. addChatMessage("{00FFFF}Отыгровка окончена.{DC143C} Биндер остановлен!{00FFFF}")
  863. }
  864. }
  865. }
  866. }
  867. }
  868. }
  869. }
  870. return
  871. :?:/трактовки::
  872. sleep 500
  873. showDialog(0, "{FFFFFF}Трактовки", "{FFFFFF}RP - Районная поликлиника`nDM - День Минздравохранения`nDB - Дерматологическая болезнь`nMG - Мышечная гангрена`nSK - Стационарная клиника`nRK - Ручная коляска`nTK - Травматологический кабинет`nRK - Реабилитационная кровать`nPG - Почечная гипертензия`nBH - Больничный халат`nIC- Искусственное сердце`nOOC- Оперативный отдел сотрудников`nAFK- Aдаптивная физическая культура" , "Закрыть")
  874. Return
  875. :?:/invv::
  876. sleep 500
  877. addChatMessageEx("fa9005", "  |     {FFFFFF}Что-бы выдать форму и бейджик, нажмите {00FF33}1{FFFFFF}.")
  878. sleep 250
  879. addChatMessageEx("fa9005", "  |     {FFFFFF}Что-бы попросить паспорт, и выдать форму и бейджик, нажмите {00FF33}2{FFFFFF}.")
  880. while (!GetKeyState("1", "P") && !GetKeyState("2", "P"))
  881.     continue
  882. if (GetKeyState("2", "P")) {
  883.     SendChat("Здравствуйте, покажите Ваш паспорт.")
  884.     Sleep 2000
  885.     SendChat("/n Введите команду: /pass " getId())
  886.     sleep 500
  887.     addChatMessage("  {fa9005}|     {FFFFFF}Для выдачи бейджика и формы, нажмите {00FF33}1{FFFFFF}.")
  888.     KeyWait, 1, D
  889.     SendChat("/me достал форму и бейджик из кейса")
  890.     sleep 2500
  891.     SendChat("/do Форма в руках.")
  892.     sleep 2500
  893.     SendChat("/me передал форму и бейджик человеку напротив")
  894.     sleep 500
  895.     SendInput,{F6}/invite {space}
  896.     sleep 200
  897.     addChatMessage("{00FF33}[Помощник]: {FFFFFF}Что-бы узнать какой id скина, введите /skinn")
  898.     return
  899. } else if (GetKeyState("1", "P")) {
  900.     SendChat("/me достал форму и бейджик из кейса")
  901.     sleep 2500
  902.     SendChat("/do Форма в руках.")
  903.     sleep 2500
  904.     SendChat("/me передал форму и бейджик человеку напротив")
  905.     sleep 500
  906.     SendInput,{F6}/invite {space}
  907.     sleep 200
  908.     addChatMessage("{00FF33}[Помощник]: {FFFFFF}Что-бы узнать какой id скина, введите /skinn")
  909.     return
  910. }
  911. :?:/rangg::
  912. sleep 500
  913. SendChat("/me достал КПК, затем включил его")
  914. sleep 2500
  915. SendChat("/me зашел в базу данных сотрудника")
  916. sleep 2500
  917. SendChat("/me выделил дело сотрудника и внёс пометку в должности")
  918. sleep 2500
  919. SendChat("/me выключил КПК, затем убрал его в кейс")
  920. sleep 2500
  921. SendChat("/me потянул правой рукой и выбрал новый бейджик для сотрудника")
  922. sleep 500
  923. SendInput,{F6}/rang {space}
  924. sleep 500
  925. addChatMessage("{00FFFF}Для продолжение отыгровки (выдать форму), нажмите {DC143C}1{00FFFF}. Что-бы поздравить, нажмите {DC143C}2{00FFFF}.")
  926. while (!GetKeyState("1", "P") && !GetKeyState("2", "P"))
  927.     continue
  928. if (GetKeyState("2", "P")) {
  929.     SendChat("Поздравляю.")
  930.     return
  931. } else if (GetKeyState("1", "P")) {
  932.     SendChat("/me достал форму с кейса")
  933.     sleep 2500
  934.     SendChat("/do Форма в руках.")
  935.     sleep 2500
  936.     SendChat("/me передал форму.")
  937.     sleep 500
  938.     SendInput,{F6}/setskin {space}
  939.     sleep 200
  940.     addChatMessage("{00FF33}[Помощник]: {FFFFFF}Что-бы узнать какой id скина, введите /skinn")
  941.     return
  942.     }
  943. :?:/sobes::
  944. Sleep 500
  945. addChatMessage("  {fa9005}|      {FFFFFF}Что-бы начать собеседование, нажмите {00FF33}1{FFFFFF}.")
  946. KeyWait, 1, D
  947. SendChat("Здравствуйте, Вы на собеседование?")
  948. Sleep, 500
  949. addChatMessage("  {fa9005}|     {FFFFFF}Если ответ положительный, нажмите {00FF33}1{FFFFFF}.")
  950. sleep 250
  951. addChatMessage("  {fa9005}|     {FFFFFF}Если отрицательный, нажмите {00FF33}2{FFFFFF}.")
  952. while (!GetKeyState("1", "P") && !GetKeyState("2", "P"))
  953.     continue
  954. if (GetKeyState("2", "P")) {
  955.     SendChat("У нас проходит собеседование, если Вы хотите задать вопрос, подойдите в холл. До свидания.")
  956.     return
  957. } else if (GetKeyState("1", "P")) {
  958.     SendChat("Хорошо, покажите Ваши документы, а именно: паспорт, мед.карту и лицензии.")
  959.     sleep 2000
  960.     SendChat("/n *Показать паспорт - /pass " getId()", Лицензии - /lic " getId()", Мед.карту - /med " getId())
  961.     sleep 500
  962.     addChatMessage("  {fa9005}|   {00FF33}[КПК Помощник]: {FFFFFF}Необходимо быть:18+ лет, 4 лвл, законопослушность 30+, мед.осмотр, наличие лицензий на наземный и воздушный т.с.")
  963.     sleep 500
  964.     addChatMessage("  {fa9005}|     {FFFFFF}Если гражданин подходит, нажмите {00FF33}1{FFFFFF}.")
  965.     sleep 250
  966.     addChatMessage("  {fa9005}|     {FFFFFF}Если не подходит, нажмите {00FF33}2{FFFFFF}.")
  967.     sleep 500
  968.     addChatMessage("{00FFFF}Если гражданин подходит, нажмите {DC143C}1{00FFFF}. {00FFFF}Если не подходит, нажмите {DC143C}2{00FFFF}.")
  969.     while (!GetKeyState("1", "P") && !GetKeyState("2", "P"))
  970.         continue
  971.     if (GetKeyState("2", "P")) {
  972.         SendChat("Вы нам не подходите. До свидания.")
  973.         return
  974.     } else if (GetKeyState("1", "P")) {
  975.         SendChat("Хорошо, сейчас Я проверю Вас на психику.")
  976.         sleep 500
  977.         addChatMessage("  {fa9005}|     {FFFFFF}Напишите какой вопрос Вы хотите задать.")
  978.         sleep 500
  979.         SendMessage, 0x50,, 0x4190419,, A
  980.         SendInput, {f6}Что такое ?{left}
  981.         sleep 500
  982.         addChatMessage("  {fa9005}|     {FFFFFF}Если гражданин подходит, нажмите {00FF33}1{FFFFFF}.")
  983.         sleep 250
  984.         addChatMessage("  {fa9005}|     {FFFFFF}Если не подходит, нажмите {00FF33}2{FFFFFF}.")
  985.         while (!GetKeyState("1", "P") && !GetKeyState("2", "P"))
  986.         continue
  987.         if (GetKeyState("2", "P")) {
  988.             SendChat("Вы нам не подходите. До свидания.")
  989.             return
  990.         } else if (GetKeyState("1", "P")) {
  991.             SendChat("С трактовками Автошколы знакомы?")
  992.             sleep 500
  993.             addChatMessage("  {fa9005}|     {FFFFFF}Если гражданин ответил 'Да', нажмите {00FF33}1{FFFFFF}.")
  994.             sleep 250
  995.             addChatMessage("  {fa9005}|     {FFFFFF}Если гражданин ответил 'Нет', нажмите {00FF33}2{FFFFFF}.")
  996.             while (!GetKeyState("1", "P") && !GetKeyState("2", "P"))
  997.                 continue
  998.             if (GetKeyState("2", "P")) {
  999.                 SendChat("Вы нам не подходите. До свидания.")
  1000.             return
  1001.             } else if (GetKeyState("1", "P")) {
  1002.                 addChatMessage("  {fa9005}|     {00FF33}[КПК Помощник]: {FFFFFF}Напишите какую трактовку Вы хотите задать. Что-бы посмотреть трактовки введите - /трактовки")
  1003.                 sleep 500
  1004.                 SendMessage, 0x50,, 0x4190419,, A
  1005.                 SendInput, {f6}Что такое ?{space} {Left}{Left}{Left}
  1006.                 sleep 500
  1007.                 addChatMessage("  {fa9005}|     {FFFFFF}Если гражданин ответил правильно, нажмите {00FF33}1{FFFFFF}.")
  1008.                 sleep 250
  1009.                 addChatMessage("  {fa9005}|     {FFFFFF}Если гражданин ответил неправильно, нажмите {00FF33}2{FFFFFF}.")
  1010.                 while (!GetKeyState("1", "P") && !GetKeyState("2", "P"))
  1011.                     continue
  1012.                 if (GetKeyState("2", "P")) {
  1013.                     SendChat("Вы нам не подходите. До свидания.")
  1014.                     return
  1015.                 } else if (GetKeyState("1", "P")) {
  1016.                     SendChat("Вы нам подходите.")
  1017.                     sleep 500
  1018.                     SendMessage, 0x50,, 0x4190419,, A
  1019.                     SendInput, {f6}/f Бейджик  подходит по критериям.{Left 23}
  1020.                     sleep 500
  1021.                     addChatMessage("{00FFFF}Проверка окончена.{DC143C}Биндер остановлен!{00FFFF}")
  1022.                     return
  1023.                 }
  1024.             }
  1025.         }
  1026.     }
  1027. }
  1028. :?:/fwarnn::
  1029. sleep 500
  1030. SendChat("/me достал КПК")
  1031. sleep 2300
  1032. SendChat("/me нашел личное дело сотрудника")
  1033. sleep 2300
  1034. SendChat("/me внес изменение в личное дело сотрудника")
  1035. sleep 500
  1036. SendInput,{F6}/fwarn {space}
  1037. return
  1038. :?:/uninvitee::
  1039. sleep 500
  1040. SendChat("/me достал КПК")
  1041. sleep 2300
  1042. SendChat("/me нашел личное дело сотрудника")
  1043. sleep 2300
  1044. SendChat("/me удалил личное дело сотрудника")
  1045. sleep 500
  1046. SendInput,{F6}/uninvite {space}
  1047. return
  1048. :?:/hhelp::
  1049. sleep 250
  1050. showdialog("0", "{FFFFFF}Помощь AutoMed", "{FF0000}------------------------------------------------ {FFFFFF}Время: " A_Hour ":" A_Min " {FF0000}------------------------------------------------`n{FFFFFF}                           Доброго времени суток, уважаемый сотрудник.`n{FFFFFF}                          Спасибо что вы пользуетесь нашим скриптом.`n`n{89f505}Инструкция:{FFFFFF} Что бы включить какую-либо отыгровку, просто`nвведите любую команду, которые написаны и описаны ниже.`n`n{05c1f5}/лечения - лечения`n{05c1f5}/карта - выдача мед. карты`n/пмп - оказание первой медицинской помощи.`n{05c1f5}/fn - авто ((  ))`n/операции - операции`n/трактовки - трактовки`n/укол - уколы/вакцинации`n{05c1f5}/sobes - собеседование`n{FF0000}------------------------------------------------`n{CC0000}Для рук. состава{05c1f5}`n/invv - принятия гражданина`n{05c1f5}/rangg - повысить в должности`n{05c1f5}/uninvitee - уволить сотрудника`n{05c1f5}/fwarnn - выдать сотруднику выговор`n{05c1f5}/skinn - дресс-код", "Закрыть")
  1051. Return
  1052. :?:/skinn::
  1053. sleep 500
  1054. showDialog(0, "{FFFFFF}Дресс-код:", "{FF0000}Los-Santos:`n{FFFFFF}id 274 - Мужской скин | 1-6 ранг.`nid 150 - Женский скин  | 1-11 ранг.`n----------------------------------------`n{FF0000}San-Fierro:`n{FFFFFF}id 276 - Мужской скин | 1-6 ранг.`nid 308 - Женский скин | 1-6 ранг.`n----------------------------------------`n{FF0000}Las-Venturas:`n{FFFFFF}id 275 - Мужской скин | 1-6 ранг.`nid 148 - Женский скин | 1-6 ранг.`n----------------------------------------`n{FF0000}Все мед. центры:`n{FFFFFF}id 70 - Мужской скин | 7-8 ранг.`nid 150 - Женский скин | 7-11 ранг.`nid 295 - Мужской скин | 10-11 ранг." , "Закрыть")
  1055. Return
  1056. :?:/лекции::
  1057. sleep 500
  1058. ShowDialog("2", "{FFFFFF}Лекции:", "{00FFFF}1.{FFFFFF} Лекция о т.с`n{00FFFF}2. {FFFFFF}Лекция о АФК`n{00FFFF}3. {FFFFFF}Лекция о том, что запрещено в больнице`n{00FFFF}4. {FFFFFF}Лекция о повышении`n{00FFFF}5. {FFFFFF}Лекция о аксессуарах`n{00FFFF}6. {FFFFFF}Лекция о волосах", "Закрыть")
  1059. NextStep := 1
  1060. Result := LineResult()
  1061. if (!Result)
  1062. return
  1063. if (Result = "1") {
  1064.     sleep 500
  1065.     addChatMessageEx("fa9005", "  |     {FFFFFF}Для начала отыгровки, нажмите {DC143C}1{00FFFF}.")
  1066.     KeyWait, 1, D
  1067.     SendChat("/r Ув. сотрудники, брать кареты скорой помощи можно только с должности Уч. Врач.")
  1068.     sleep 2300
  1069.     SendChat("/r Вызовы принимать с должности Уч. Врач")
  1070.     sleep 2300
  1071.     SendChat("/r Вертолет только для зав. отделения, зам. глав. врача и глав. врача.")
  1072.     sleep 2300
  1073.     SendChat("/r Кто будет нарушать эти правила, будет уволен.")
  1074.     sleep 2300
  1075.     SendChat("/r Благодарю за внимание.")
  1076.     return
  1077. } else if (Result = "2") {
  1078.     addChatMessageEx("fa9005", "  |     {FFFFFF}Для начала отыгровки, нажмите {DC143C}1{00FFFF}.")
  1079.     KeyWait, 1, D
  1080.     SendChat("/r Ув. сотрудники, спать можно только в ординаторской..")
  1081.     sleep 2300
  1082.     SendChat("/r Кто будет спать в вне ординаторской, больше минуты - получил выговор или будет уволен.")
  1083.     sleep 2300
  1084.     SendChat("/r Спать в ординаторской разрешено более десяти минут.")
  1085.     sleep 2300
  1086.     SendChat("/r Благодарю за внимание.")
  1087.     return
  1088. } else if (Result = "3") {
  1089.     addChatMessageEx("fa9005", "  |     {FFFFFF}Для начала отыгровки, нажмите {DC143C}1{00FFFF}.")
  1090.     KeyWait, 1, D
  1091.     SendChat("/r Ув. сотрудники, в больнице запрещено...")
  1092.     sleep 2500
  1093.     SendChat("/r ...бегать, кричать, материться, оскорблять пациентов...")
  1094.     sleep 2500
  1095.     SendChat("/r ...отказываться их лечить, не слушаться старших по должности.")
  1096.     sleep 2500
  1097.     SendChat("/r За нарушение этих правил вы будете уволены.")
  1098.     sleep 2500
  1099.     SendChat("/r Благодарю за внимание.")
  1100.     return
  1101. } else if (Result = "4") {
  1102.     addChatMessageEx("fa9005", "  |     {FFFFFF}Для начала отыгровки, нажмите {DC143C}1{00FFFF}.")
  1103.     KeyWait, 1, D
  1104.     SendChat("/r Уважаемые сотрудники, минуточку внимания.")
  1105.     sleep 2500
  1106.     SendChat("/r Хотелось бы напомнить, что повышение в мед. центрах проходит...")
  1107.     sleep 2500
  1108.     SendChat("/r В понедельник и среду 18:00, в субботу 16:00.")
  1109.     sleep 2500
  1110.     SendChat("/r Интерны повышаются внеочереди.")
  1111.     sleep 2500
  1112.     SendChat("/r Благодарю за внимание.")
  1113.     return
  1114. } else if (Result = "5") {
  1115.     addChatMessageEx("fa9005", "  |     {FFFFFF}Для начала отыгровки, нажмите {DC143C}1{00FFFF}.")
  1116.     KeyWait, 1, D
  1117.     SendChat("/r Уважаемые сотрудники, минуточку внимания.")
  1118.     sleep 2500
  1119.     SendChat("/r Всем, без исключения, запрещено носить любые акссесуары.")
  1120.     sleep 2500
  1121.     SendChat("/r Исключением являются часы и прозрачные очки.")
  1122.     sleep 2500
  1123.     SendChat("/r За нарушение данного правила вы получите выговор.")
  1124.     sleep 2500
  1125.     SendChat("/r Благодарю за внимание.")
  1126.     return
  1127. } else if (Result = "5") {
  1128.     addChatMessageEx("fa9005", "  |     {FFFFFF}Для начала отыгровки, нажмите {DC143C}1{00FFFF}.")
  1129.     KeyWait, 1, D
  1130.     SendChat("/r Уважаемые сотрудники, минуточку внимания.")
  1131.     sleep 2500
  1132.     SendChat("/r Напоминаю, что запрещено приходить на работу с ярко-накрашенными волосами.")
  1133.     sleep 2500
  1134.     SendChat("/r Запрещено приходить на работу с непрофессиональной причёской на голове.")
  1135.     sleep 2500
  1136.     SendChat("/r Разрешены строгие причёски.")
  1137.     sleep 2500
  1138.     SendChat("/r За нарушение данного правила вы получите выговор.")
  1139.     sleep 2500
  1140.     SendChat("/r Благодарю за внимание.?")
  1141.     return
  1142. }
  1143. :?:/fn::/f (( )){Left 3}
  1144. F3::Reload
  1145. LabelTime:
  1146. SendChat("/time")
  1147. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!