;Проблема с enter ???, ПКМ + R, НЕ ЗАБЫТЬ СКАЗАТЬ ПРО МЕГА ФИЧУ(баг с /delbl), добавить время, игроки из ЧС онлайн, перезапуск скрипта командой, разбив на сервера.
#SingleInstance, force
#include, SAMP-UDF-Developer (1).ahk
Menu, tray, NoStandard
menu, tray, Add, О программе,About
menu, tray, Add, Выход,Exit
TrayTip, Чекер ЧС, Я запустился!
addChatMessage("[Чекер ЧС] Я запустился! Смотри /helpbl")
StringCaseSense, On

;:?:/bl::
BlackListMTK:
{
FileRead, hs, list.txt
hs := RegExReplace(hs, "\R+", "`n")
showDialog("2", "{FFFFFF}Черный список", hs ,"Выйти")
return
}

$~Enter::
if (isInChat() = 1)
{
sleep 250
dwAddress := dwSAMP + 0x12D8F8
Input := readString(hGTA, dwAddress, 256)
if RegExMatch(Input, "^/bl$")
{
	goto, BlackListMTK
}
if RegExMatch(Input, "^/addbl (\d+) (.*)", id)
{
name := getPlayerNameById(id1)
if (name = "")
{
addChatMessage("{FF0000}[Чекер ЧС] Не верный ID")
return
}
FileAppend, `n%name% | %id2% , list.txt
addChatMessage("{ADFF2F}[Чекер ЧС] Игрок " name " успешно добавлен в ЧС")
}
if RegExMatch(Input, "^/delbl (.*)", idd)
{
			if (idd1 = "")
			{
			addChatMessage("{FF0000}[Чекер ЧС] Вы не ввели ник")
			return
			}
			Prich := idd1 " |"
			FileRead, hs, list.txt
			IfInString, hs, %Prich%
			{
			FileRead, Text, list.txt
			FileDelete, list.txt
			FileAppend, % RegExReplace(Text, "m`a)^.*" idd1 "\s.*?(\R|$)"), list.txt
			addChatMessage("{ADFF2F}[Чекер ЧС] Игрок " idd1 " успешно вынесен из ЧС")
			return
			}
			else
			{
				addChatMessage("{FF0000}[Чекер ЧС] Данного игрока нет в Вашем черном списке")
				return
			}
}
if RegExMatch(Input, "^/helpbl$")
{
	showDialog("0", "{FFFFFF}Команды", "{FF0000}/bl{FFBF00} - просмотр черного списка`n{FF0000}/addbl [id] [причина]{FFBF00} - добавить человека в черный список`n{FF0000}/delbl [ник]{FFBF00} - удалить человека из черного списка`n{FF0000}/testbl [id]{FFBF00} - проверить человека на наличие в черном списке`n{FF0000}/cbl (/chatbl){FFBF00} - просмотр черного списка в чате`n{FF0000}/delblall{FFBF00} - удаление всего черного списка{FF0000} [ВНИМЕНИЕ! Это действие нельзя отменить!]`n{FF0000}/addnickbl [ник] [причина]{FFBF00} - добавить человека в черный список по нику`n`n`n`n{00FF00}Разработчик : Alexey Fenix`nАвтор идеи : Jake Fenix aka Nordwayn`nВерсия: 0.1.2 Beta`n{FF0000}Special for Arizona-RP","Выйти")
}
if RegExMatch(Input, "^/testbl (\d+)", prov)
	{
		name := getPlayerNameById(prov1)
		name2 := name " |"
		if (name = "")
		{
		addChatMessage("{FF0000}[Чекер ЧС] Не верный ID")
		return
		}
			FileRead, hs, list.txt
			IfInString, hs, %name2%
			{
				addChatMessage("{FF0000}[Чекер ЧС] Внимание! Данный игрок находится в черном списке!")
				return
			}
			else
			{
				addChatMessage("{ADFF2F}[Чекер ЧС] Данного игрока нет в Вашем черном списке")
				return
			}
	}
	if RegExMatch(Input, "^/cbl$")
	{
		FileRead, hs, list.txt
		hs := RegExReplace(hs, "\R+", "`n")
		FileDelete, list.txt
		FileAppend, %hs%, list.txt
		loop, read, list.txt
		{
			FileReadLine, hs, list.txt, a_index
			;hs := RegExReplace(hs, "\R+", "`n")
			addChatMessage(hs)
		}
		}
		if RegExMatch(Input, "^/chatbl$")
		{
		FileRead, hs, list.txt
		hs := RegExReplace(hs, "\R+", "`n")
		FileDelete, list.txt
		FileAppend, %hs%, list.txt
		loop, read, list.txt
		{
			FileReadLine, hs, list.txt, a_index
			;hs := RegExReplace(hs, "\R+", "`n")
			addChatMessage(hs)
		}
		}
	if RegExMatch(Input, "^/delblall$")
	{
			FileDelete, list.txt
			FileAppend, ,list.txt
			addChatMessage("{FF0000}[Чекер ЧС] Ваш черный список был обнулен")
			return
	}
	if RegExMatch(Input, "^/addnickbl (\S*) (.*)", id)
	{
	if (id1 = "")
	{
	addChatMessage("{FF0000}[Чекер ЧС] Вы не указали ник")
	return
	}
	FileAppend, `n%id1% | %id2% , list.txt
	addChatMessage("{ADFF2F}[Чекер ЧС] Игрок " id1 " успешно добавлен в ЧС")
}

}
return

Exit:
ExitApp
return

About:
MsgBox, 64, О программе, Разработчик : Alexey Fenix`nАвтор идеи : Jake Fenix aka Nordwayn`nВерсия: 0.1.2 Beta`nВсе команды скрипта - /helpbl`nSpecial for Arizona-RP
return