!1::
{
goto start
}

start:
fileread, var, nick.txt
if(RegExMatch(var, "(.*)_(.*) (.*) (.*)", find))
{
SendInput, {F6}/id %find1%_%find2%{Enter}
a+=1
Sleep 500
Filename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
fileread, str, %Filename%
if(InStr(str, " Игрок не найден!"))
{
SendInput, {F6}/offban %find1%_%find2% %find3% %find4%{Enter}
filenick=nick.txt
StrEdit(filenick,a,"")
FileDelete %Filename%
Sleep 2000
SendInput, {F6}%a%{Enter}
goto start
}
else
{
RegExMatch(str, "\Q[\E(.*):(.*):(.*)\Q]\E Ник: (.*)_(.*) \Q|\E ID: (.*) \Q|\E LvL: (.*) ", id)
SendInput, {F6}/ban %id6% %find3% %find4%{Enter}
filenick=nick.txt
StrEdit(filenick,a,"")
FileDelete %Filename%
Sleep 2000
SendInput, {F6}%a%{Enter}
goto start
}
}
else ExitApp

StrEdit(File,Line,New=0){
Loop,read,%File%  
  Vsego := A_Index
th2 :=Line-1
loop %th2%
{
  FileReadLine,th3,%File%,%A_Index%
  if th4 !=  
   th4 := th4 "`n" th3
  If th4 =
   th4 := th3
}
if New !=
  th4 := th4 "`n" New
if New =
  th4 := th4
loop % Vsego - th2 - 1
{
  Line1 := Line + A_Index
  FileReadLine,th3,%File%,%Line1%
  th4 := th4 "`n" th3
}
  FileDelete,%File%
  FileAppend,%th4%,%File%
return th4
}