F1::
{
SendMessage, 0x50,, 0x4190419,, A
SendInput, {F6}^{sc1E}Здравствуйте, меня зовут Cristopher Jonson, я ваш специалист по выдаче медицинских карт.{Enter}
Sleep, 1500
Send, {F6}Вам обновить или сделать новую медицинскую карту?{Enter}
Send, {F6}Введи up или new -{Space}
Input , idv, V, {enter}
Send, {F6}^{sc1E}
Sleep, 100
SendMessage, 0x50,, 0x4190419,, A
SendInput, {F6}^{sc1E}Отлично, не могли бы вы мне показать ваш паспорт.{Enter}
Sleep, 500
Send, {F6}/b /showpass ID передавать строго по Role Play{Enter}
Send, {F6}Введи айди игрока -{Space}
Input , id, V, {enter}
SendInput, {F6}^{sc1E}
Sleep, 1000
ChatLog = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt ; Путь к ЧатЛогу
FileDelete, %ChatLog% ; Удаляем ЧатЛог
SendInput, {F6}/id %id%{Enter} ; Пишем в чат
Loop
{
FileRead, Chatlog, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog.txt
RegExMatch(Chatlog, "\Q| Уровень:\E (.*)", out)
RegExMatch(out1, "[0-9]+", out2)
if (out2 > 0 and out2 <= 2){
dollars = 5000
FileDelete, ChatLog ; Удаляем ЧатЛог
goto, MyLabel1
}
FileRead, Chatlog, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog.txt
RegExMatch(Chatlog, "\Q| Уровень:\E (.*)", out) ; ищем в чат логе слово "Уровень"
RegExMatch(out1, "[0-9]+", out2) ; извлекаем число
if (out2 >= 3 and out2 <= 5){
dollars = 10000
FileDelete, ChatLog ; Удаляем ЧатЛог
Goto, MyLabel1
}
FileRead, Chatlog, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog.txt
RegExMatch(Chatlog, "\Q| Уровень:\E (.*)", out) ; ищем в чат логе слово "Уровень"
RegExMatch(out1, "[0-9]+", out2)
if (out2 >= 6 and out2 <= 10){
dollars = 15000
Send, {F6} %dollars%{Enter}
FileDelete, ChatLog ; Удаляем ЧатЛог
Sleep, 1000
Send, {F6} %dollars%{Enter}
}
FileRead, Chatlog, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog.txt
RegExMatch(Chatlog, "\Q| Уровень:\E (.*)", out) ; ищем в чат логе слово "Уровень"
RegExMatch(out1, "[0-9]+", out2) ; извлекаем число
if (out2 >= 11 and out2 <= 15){
dollars = 25000
FileDelete, ChatLog ; Удаляем ЧатЛог
Goto, MyLabel1
}
FileRead, Chatlog, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog.txt
RegExMatch(Chatlog, "\Q| Уровень:\E (.*)", out)
RegExMatch(out1, "[0-9]+", out2) ; извлекаем число
if (out2 >= 16 and out2 <= 20){
dollars = 35000
FileDelete, ChatLog ; Удаляем ЧатЛог
Goto, MyLabel1
}
FileRead, Chatlog, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog.txt
RegExMatch(Chatlog, "\Q| Уровень:\E (.*)", out) ; ищем в чат логе слово "Уровень"
RegExMatch(out1, "[0-9]+", out2) ; извлекаем число
if (out2 > 20){
dollars = 50000
FileDelete, ChatLog ; Удаляем ЧатЛог
Goto, MyLabel1
}
MyLabel1: