#IfWinActive GTA:SA:MP

^!NumPadAdd::
{

path := "C:\Users\Matpocob\Documents\GTA San Andreas User Files\SAMP\"

FileDelete, %path%wanted.txt
FileDelete, %path%target.txt
FileDelete, %path%result.txt
FileDelete, %path%home.txt

sendinput {f6}/delimeter{enter}

Loop, read, %path%chatlog.txt, %path%wanted.txt
{
    IfInString, A_LoopReadLine, WANTED:{6495ED}, FileAppend, %A_LoopReadLine%`n
} 

Loop, read, %path%chatlog.txt, %path%target.txt
{
    IfInString, A_LoopReadLine, ] Alex_Matpocob сказал: ?, FileAppend, %A_LoopReadLine%`n
}

Loop, read, %path%target.txt
    target := A_LoopReadLine

FileRead, wanted, *t %path%wanted.txt

RegExMatch(target, "] Alex_Matpocob сказал: \? (.*)", Name)
sendinput {f6}[ Федеральная база ][ Оперативные данные ][ Объект : %Name1% ]{enter}

Loop, read, %path%wanted.txt, %path%result.txt
{
    IfInString, A_LoopReadLine, %Name1%, FileAppend, %A_LoopReadLine%`n
}

Loop, read, %path%base.txt, %path%home.txt
{
    IfInString, A_LoopReadLine, %Name1%, FileAppend, %A_LoopReadLine%`n
} 

Loop, read, %path%result.txt
{
    RegExMatch(A_LoopReadLine, "m`aS)^(\[\d+:\d+:\d+]).*?]\s*\Q", time)
    RegExMatch(A_LoopReadLine, " WANTED:{6495ED} (.*) был обвинен в: ", suspect)
    RegExMatch(A_LoopReadLine, "\E\s*был обвинен в:\s*(.*?)\s*\s*Доложил:{ffffff}\s*(.*)$", reason)
    RegExMatch(A_LoopReadLine, "Доложил:{ffffff}(.*)", victim)
    sendinput {f6}%time1% %suspect1% :: %reason1%  [%victim1% ]{enter}
    sleep 200
}
sendinput {f6}/delimeter{enter}
sendinput {f6}[ Федеральная база ][ Данные места жительства ]{enter}
Loop, read, %path%home.txt
{
    home := A_LoopReadLine
    sendinput {f6} %home%{enter}
    sleep 200
}

sleep 1000
}
return

^!NumPadSub::
{
sendinput {f6}?{space}
sleep 1000
}

#IfWinActive GTA:SA:MP

^!NumPadAdd:: 
    
    path := "C:\Users\Matpocob\Documents\GTA San Andreas User Files\SAMP\"
    
    FileDelete, %path%wanted.txt
    FileDelete, %path%target.txt
    FileDelete, %path%result.txt
    
    Loop, read, %path%chatlog.txt, %path%wanted.txt 
        IfInString, A_LoopReadLine, WANTED:{6495ED}, FileAppend, %A_LoopReadLine%`n 
    
    Loop, read, %path%chatlog.txt, %path%target.txt 
        IfInString, A_LoopReadLine, ] Alex_Matpocob сказал: ?, FileAppend, %A_LoopReadLine%`n 
    
    Loop, read, %path%target.txt
        target := A_LoopReadLine
    
    FileRead, wanted, *t %path%wanted.txt
    
    RegExMatch(target, "] Alex_Matpocob сказал: \? (.*)", Name)
    
    Loop, read, %path%wanted.txt, %path%result.txt 
        IfInString, A_LoopReadLine, %Name1%, FileAppend, %A_LoopReadLine%`n 
    
    FileRead, result, *t %path%result.txt
    
    sendinput {f6}/delimeter{enter}
    sendinput {f6}Список правонарушений совершенных преступником: %Name1%{enter}
    sendinput {f6} %result%{enter}
    sendinput {f6}/delimeter{enter}
    
    RegExMatch(result, "m`a)^(\S+) .*] \Q" Name1 "\E.*в: (.*) \[.* (\S+)$(?CCallout)")
    sendinput {f6} %matches% {enter} 
    sleep 1000 
    return

Callout(m) {
   global matches .= m1 " " m2 " :: " m3 "`n"
   Return 1
}

#IfWinActive GTA:SA:MP

^!NumPadAdd::
{

FileDelete, C:\Users\Matpocob\Documents\GTA San Andreas User Files\SAMP\wanted.txt
FileDelete, C:\Users\Matpocob\Documents\GTA San Andreas User Files\SAMP\target.txt

Loop, read, C:\Users\Matpocob\Documents\GTA San Andreas User Files\SAMP\chatlog.txt, C:\Users\Matpocob\Documents\GTA San Andreas User Files\SAMP\wanted.txt
{
    IfInString, A_LoopReadLine, WANTED:{6495ED}, FileAppend, %A_LoopReadLine%`n
} 

Loop, read, C:\Users\Matpocob\Documents\GTA San Andreas User Files\SAMP\chatlog.txt, C:\Users\Matpocob\Documents\GTA San Andreas User Files\SAMP\target.txt
{
    IfInString, A_LoopReadLine, ] Alex_Matpocob сказал: ?, FileAppend, %A_LoopReadLine%`n
}

Loop, read, C:\Users\Matpocob\Documents\GTA San Andreas User Files\SAMP\target.txt
    target := A_LoopReadLine

FileRead, wanted, C:\Users\Matpocob\Documents\GTA San Andreas User Files\SAMP\wanted.txt
RegExMatch(target, "] Alex_Matpocob сказал: \? (.*)", Name)

Pattern := "m`aS)^(\[\d+:\d+:\d+]).*?]\s*\Q" Name1 "\E\s*был обвинен в:\s*(.*?)\s*\[.*?]\s*Доложил:{ffffff}\s*(.*)$"
Pos := 1
While Pos 
    Pos := RegExMatch( wanted, Pattern, Match, Pos), Pos := Pos ? ++Pos : 0
    , Res .= Pos ? Match1 " " Match2 " :: " Match3 "`n" : "" 

sendinput {f6}/delimeter{enter}
sendinput {f6}TARGET:%target%{enter}
sendinput {f6}PRISON:%Name1%{enter}
sendinput {f6}/delimeter{enter}
sendinput {f6}RESULT:%Res%{enter}

sleep 1000
}
return

^!NumPadAdd::
{
Loop, read, C:\Users\Matpocob\Documents\GTA San Andreas User Files\SAMP\chatlog.txt, C:\Users\Matpocob\Documents\GTA San Andreas User Files\SAMP\wanted.txt
{
    IfInString, A_LoopReadLine, WANTED, FileAppend, %A_LoopReadLine%`n
} 

Loop, read, C:\Users\Matpocob\Documents\GTA San Andreas User Files\SAMP\chatlog.txt, C:\Users\Matpocob\Documents\GTA San Andreas User Files\SAMP\target.txt
{
    IfInString, A_LoopReadLine, Alex_Matpocob сказал: ?, FileAppend, %A_LoopReadLine%`n
}
sendinput {f6}/me провел архивацию данных розыска{enter}
sleep 1000
}
return