way = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt    
FileDelete, %way%
Loop   
{   
   FileRead, file, %way%   
   IfInString, file, Lockry обыскал игрока  
   {
  FileRead, C, %way%
  Pos := RegExMatch(c, "Lockry обыскал игрока [A-Za-z0-9]+", Var)
  StringTrimLeft, Name, Var, 22
  FileDelete, %way%
   }   
}   
return

!2::
If (Name=)
  exit
SendInput {f6}/su %name% 1 Drugs {enter}
exit

!з::Pause
Numpad1::
Loop
{
  sleep 300
  Send {VK28 10}
  sleep 50
  send {enter}
  sleep 1000
  SendInput {f6}/fcheck{enter}
   
}
exit    

numpad0::
sendinput {f6}/time {enter}
sleep 300
sendinput {numpadenter}
return

Filename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
block=0
on=1
Loop, read, %Filename%
nstroki=%A_Index%
start:
if on=2
return
if block=1
goto start
FileReadLine, stroka, %Filename%, %nstroki%
if ErrorLevel
{
nstroki-=1
goto start
}
if stroka=
{
nstroki+=1
goto start
}
IfInString, stroka, Lockry обыскал игрока
{
if (InStr(stroka, "Lockry обыскал игрока"))
{
RegExMatch(stroka, "[A-Za-z0-9]", name)
Sleep 100
nstroki+=1
goto start
}
}
!2::
sendinput {f6}/su %name% 1 drugs{enter}
return

Numpad0::
SendInput {f6}/time{enter}
sleep 300 ; После /time диалог появляется не сразу, поэтому нужна данная задержка
Send {NumpadEnter Down}{NumpadEnter Up}
sleep 300
exit

way = ; путь к чатлогу
FileDelete, %way%
main:
Loop
{
   sleep 1000
   FileRead, file, %way%     
   IfInString, file, Lockry обыскал игрока
   {
    Pos := RegExMatch(file, "Lockry обыскал игрока [A-Za-z0-9_]+", Name)
    StringTrimLeft, Name, Name, 22
    FileDelete, %way%
   }
}    
return   

!1::   
If Name =   
    return
SendInput {f6}/su %name% 1 Drugs {enter}   
return