:?:/selldrugsrp::
{
addChatMessage("{FFFF00}[AHK Helper]: {FF0000}Продажа наркотиков - была включена")
addChatMessage("{FFFF00}[AHK Helper]: {FF0000}Для отключения пропишите {9ACD32}/ahkreload")
way = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt ; Путь к ЧатЛогу
FileDelete, %way%  ; Удаляем ЧатЛог
Loop
{
SendMessage, 0x50,, 0x4190419,, A
SendInput {F6} Holla {Enter}
SendInput {F6} Не желаете купить чай?{Enter}
FileRead, file, %way%  ; Читаем ЧатЛог
IfInString, file, Да ; Ищем в ЧатЛоге фразу "нашел нычку [Неудачно]"
    IfInString, file, Да. ; Ищем в ЧатЛоге фразу "нашел нычку [Неудачно]"
        IfInString, file, Желаю ; Ищем в ЧатЛоге фразу "нашел нычку [Неудачно]"
            IfInString, file, Хочу ; Ищем в ЧатЛоге фразу "нашел нычку [Неудачно]"
                IfInString, file, Давай ; Ищем в ЧатЛоге фразу "нашел нычку [Неудачно]"
{
SendMessage, 0x50,, 0x4190419,, A
SendInput, {F6}Хорошо {Enter}
SendInput, {F6}Один грамм чая стоит 20-ть долларов. {Enter}
SendInput, {F6}Вы согластны? {Enter}
FileDelete, %way%  ; Удаляем ЧатЛог
}
IfInString, file, Да ; Ищем в ЧатЛоге фразу "нашел нычку [Удачно]"
    IfInString, file, Хорошо ; Ищем в ЧатЛоге фразу "нашел нычку [Удачно]"
        IfInString, file, Я согласен ; Ищем в ЧатЛоге фразу "нашел нычку [Удачно]"
{
SendInput {F6} Хорошо, сколько вам грамм ? {Enter}
FileDelete, %way%  ; Удаляем ЧатЛог
}
if RegExMatch(Chatlog, "s).*\[(..):(..):(..)\Q] Мне (\E(.*)\Q грамм)\E", name)
    if RegExMatch(Chatlog, "s).*\[(..):(..):(..)\Q]  (\E(.*)\Q грамм)\E", name)
        if RegExMatch(Chatlog, "s).*\[(..):(..):(..)\Q]  (\E(.*)\Q грам)\E", name)
            if RegExMatch(Chatlog, "s).*\[(..):(..):(..)\Q] Мне (\E(.*)\Q грам)\E", name)
{
    if(isInChat())
        return
    id := getClosestPlayerId()
    ped := getTargetPed()
    if(ped)
    {
        A:= %name1%*20
        pid := getIdByPed(ped)
        SendInput, {F6}/selldrugs 1 %pid% %name1% %A%{Enter}
    }
    else if(id > -1)
        SendInput, {F6}/selldrugs 1 %id% %name1% %A%{Enter} 
}