!1:: ; бинд на alt + 1
check := isPlayerInStreamById(30)
if (check) ; Если функция выдала 1
    addChatMessage("Ид 30 находится в зоне стрима")
else if (!check) ; Если выдала 0
    addChatMessage("Ид 30 НЕ находится в зоне стрима")
return

!2:: ; бинд на alt + 2
SendChat("/find")
Time := A_TickCount
while(!isDialogOpen()) ; ждем открытия диалога ровно 2 секунды, иначе пишем ошибку
{
    if(A_TickCount - Time > 2000)
    {
  addChatMessageEx("00FF00", "Диалог не открылся за 2 секунды `;( Повторите попытку!")
  return
    }
}
di := getDialogLines() ; берем все строки в массив di
Send, {ESC} ; Закроем диалог

ids := [] ; обнуляем массив с идами
for k, v in di ; начнем проверять каждую строку в диалоге
{
    if (RegExMatch(v, ".*\[([0-9]{1,3})\]\s+(\d+)", out)) ; Проверяем строку регуляркой
    {
  ids[A_Index] := out1 ; заносим в массив ид из диалога
    }
}
    
number := isPlayerInStreamById(ids) ; указываем наш массив как ид

if (!number) ; Если не кого в радиусе 150 нету, то показываем сообщение
{
    addChatMessageEx("00FF00", "Не кого в указанном радиусе нету!")
}
else
{
    for k, v in number ; поверяем полученный массив
    {
  ; k (ид) | v (0 - Не в  радиусе, 1 - В радиусе)
  if (v)
   addChatMessageEx("00FF00", getplayernamebyid(k) "[" k "] Находиться в указанном радиусе")
  else
   addChatMessageEx("00FF00", getplayernamebyid(k) "[" k "] Не находиться в указанном радиусе")
    }
}
return

command_who:
getLastDamagePed()
addmessagetochatwindow2("{FF0000}", "[AHK]: {FFFAFA} Тебя дамажил последним: " . getplayernamebyid(ped) . " с оружия: " . weapon . "")
return

getLastDamagePed(Ped, weapon)
addChatMessage(Ped " : " weapon)

is_object(numbers)

getChatLineColor(line := 0, isHex := true) {
    ; 0x152 - offset for first message
    ; 0xFC - size of a full message
    ; 0xD4 - size of a string message
    ; 99 - max count of a messages
    if(!checkHandles())
        return -1
    dwAddress := readDWORD(hGTA, dwSAMP + ADDR_SAMP_CHATMSG_PTR)
    if ErrorLevel
        return -1
    clAddress := dwAddress + 0x152 + ((99-line) * 0xFC) + 0xD4
    if ErrorLevel
        return -1
    color := readMem(hGTA, clAddress, 3, "byte")
    if ErrorLevel
        return -1
    if isHex
        return inttohex(color)
    return color
}

setChatLineColor(color, line := 0) {
    if(!checkHandles())
        return false
    if color is not integer
    {
        while(substr(color, 1, 1) == "0")
            color := substr(color, 2)
        color := "0x" color
        if strlen(color) != 8
            return false ; разрешено 3 байта (6 символов + 2 это 0x)
    } else if(color > 16777215)
        return false ; цвет не может превышать 3 байта
    dwAddress := readDWORD(hGTA, dwSAMP + ADDR_SAMP_CHATMSG_PTR)
    if ErrorLevel
        return false
    clAddress := dwAddress + 0x152 + ((99-line) * 0xFC) + 0xD4
    if ErrorLevel
        return false
    writeMemory(hGTA, clAddress, color, 3, "byte")
    if ErrorLevel
        return false
    sendinput {f7 3} ; 3 - без соба, 4 - есть собейт
    return true
}

getChatLineTimestamp(line := 0, unixtime := true) {
    ; 0x152 - offset for first message
    ; 0xFC - size of a full message
    ; 0x20 - offset from timestamp to message
    ; 99 - max count of a messages
    if(!checkHandles())
        return -1
    dwAddress := readDWORD(hGTA, dwSAMP + ADDR_SAMP_CHATMSG_PTR)
    if ErrorLevel
        return -1
    tsAddress := dwAddress + 0x152 + ((99-line) * 0xFC) - 0x20
    if ErrorLevel
        return -1
    timestamp := readMem(hGTA, tsAddress, 4, "int")
    if ErrorLevel
        return -1
    ; timestamp += (A_Now - A_NowUTC)
    if unixtime
        return timestamp
    s = 1970
    s += timestamp,s
    ; return [ substr(s, 1, 4), substr(s, 5, 2), substr(s, 7, 2), substr(s, 9, 2), substr(s, 11, 2), substr(s, 13, 2) ] ; [Y,M,D,HH,MM,SS]
    return [ substr(s, 9, 2) , substr(s, 11, 2) , substr(s, 13, 2) , substr(s, 7, 2) , substr(s, 5, 2) , substr(s, 1, 4) ] ; [HH,MM,SS,D,M,Y]
}

setChatLineTimestamp(timestamp, line := 0) {
    if(!checkHandles())
        return false
    if timestamp is float
        timestamp := floor(timestamp)
    if substr(timestamp, 1, 1) == "+" or substr(timestamp, 1, 1) == "-"
        timestamp := getChatLineTimestamp(line) + timestamp
    if timestamp is not integer
        return false
    dwAddress := readDWORD(hGTA, dwSAMP + ADDR_SAMP_CHATMSG_PTR)
    if ErrorLevel
        return false
    tsAddress := dwAddress + 0x152 + ((99-line) * 0xFC) - 0x20
    if ErrorLevel
        return false
    writeMemory(hGTA, tsAddress, timestamp, 4, "int")
    if ErrorLevel
        return -1
    sendinput {f7 3} ; 3 - без соба, 4 - есть собейт
    return true
}