#NoEnv
#Persistent
#SingleInstance, force
#Include, SAMP-UDF-037-R1.ahk

global num := 10       ; лимит тп
global ignor := []       ; список игнорирования(обнуление)
global tempnum := 0       ; временный лимит(обнуление)
global chatLog := A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt" ; путь к чатлогу
Return

F3::      ; бинд запуска тп-хания
ignor := []     ;(обнуление)
tempnum := 0    ;(обнуление)
SetTimer, startTeleportForSMS, 50  ;запуск цикла
Return

startTeleportForSMS()
{
    if (tempnum >= num)
    {
  SetTimer, startTeleportForSMS, off
  Return addChatMessage("Лимит привышен")
    }
  
    FileRead, textChatLog, % chatLog
    for k, v in StrSplit(textChatLog, "`n")
    {
  if (RegExMatch(v, "\] Вы получили СМС от (?<nick>[A-z_]+)\[(?<id>[0-9]+)\]\(Тел\.(?<phone>[0-9]+)\):(?<text>.*)", out_) && RegExMatch(out_text, "[+]") && !serchInArray(out_id, ignor))
  {
   save(chatLog)
   ignor.Push(out_id)
   addChatMessage("/gethere " out_id)
   tempnum++
  }
    }
    Return true
}

save(chatlog)
{
    static logschat     := A_MyDocuments "\GTA San Andreas User Files\SAMP\ChatLogs\"
    static chat         := A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"
    FileCreateDir, % logschat A_MM "-" A_YYYY
    FileAppend, % chatlog, % logschat A_MM "-" A_YYYY "\" A_DD "." A_MM "." A_YYYY ".txt"
    FileDelete, % chat
}

serchInArray(id, array)
{
    for k, v in array
  if (v == id)
   Return v

    Return
}