if (A_IsAdmin = false)
{
Run *RunAs "%A_ScriptFullPath%" ,, UseErrorLevel
}
#IfWinActive GTA:SA:MP
#NoEnv
#SingleInstance force
#UseHook on
chatlog := A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"
chatline := getFileLinesCount(chatlog)
:?:/medhelp::
SendMessage, 0x50,, 0x4190419,, A
Sleep, 100
SendInput, {F6}Здравствуйте, я Ваш лечущий врач "Ричард Эскобар", сейчас я буду Вас лечить.{Enter}
Sleep, 1500
SendInput, {F6}Сейчас я Вам выдам лекарство от головы, подождите немного, сейчас достану таблетку.{Enter}
Sleep, 1500
SendInput, {F6}/do На плече у Ричарда весит сумка, в сумке таблетки от головы.{Enter}
Sleep, 1500
SendInput, {F6}/me открывает сумку, достаёт от-туда таблетку от головы, закрывает сумку.{Enter}
Sleep, 1500
SendInput, {F6}/me передал лекарство человеку напротив, улыбается тому, что помог ещё одному человеку.{Enter}
SendInput, {F6}/medhelp{Space}
return
while true
{
if !isGameRunning()
continue
Loop, Read, % chatlog
{
if (A_Index <= chatline)
continue
str := A_LoopReadLine
if RegExMatch(A_LoopReadLine, "^Игрок не лежит в больнице")
{
SendMessage, 0x50,, 0x4190419,, A
SendInput, {F6}Уважаемый(-ая) пациент(-ка). Я не могу выписать препарат для Вас, займите койку.{Enter}
Sleep, 1500
SendInput, {F6}/n Для того что-бы занять койку, подойдите к ней, и пропишите [ /med ].{Enter}
Sleep, 1500
SendInput, {F6}/n Если вы не займёте койку. Мне система не даст вылечить Вас.{Enter}
}
if search(str, "У пациента нет с собой столько денег")
{
SendMessage, 0x50,, 0x4190419,, A
Sendinput, {f6}/n Я не могу Вас вылечить, у Вас не хватает денег на лечение.{Enter}
}
if search(str, "Вы провели курс платного лечения у пациента [\w+_\w+]")
{
SendMessage, 0x50,, 0x4190419,, A
SendInput, {F6}Удачного Вам дня, больше не болейте.{Enter}
}
}
chatline := getFileLinesCount(chatlog)
sleep 50
}
getFileLinesCount(filename)
{
IfNotExist % filename
return -1
Loop, Read, % filename
result := A_Index
return result
}
isGameRunning()
{
for process in ComObjGet("winmgmts:").ExecQuery("Select * from Win32_Process")
if process.Name == "gta_sa.exe"
return true
return false
}
sendkeys(string)
{
sendmessage, 0x50,, 0x419,, A
sendinput % string
}
search(haystack, needle) {
return RegExMatch(haystack, "^\[\d{2}:\d{2}:\d{2}\] " needle)
}
