do
    local InitGlobalsOrigin = InitGlobals -- хукаем функцию InitGlobals

	function InitGlobals()
		InitGlobalsOrigin()
        
	function IsFlagSet(flags, pos)
		if pos == nil then
			return false
		else
			return flags >> pos & 1 == 1
		end
	end
		
	pos_unit = {}
	pos_destructible = {}
	classification = {}
	string_class = {}
	pos_destructible[1]=7 --tree
	pos_destructible[2]=8 --wall
	pos_destructible[3]=9 --debris
	pos_destructible[4]=10 --decoration
	pos_destructible[5]=11 --bridge
	
	pos_unit[1]=1 --ground
	pos_unit[2]=2 --air
	pos_unit[3]=3 --structure
	pos_unit[4]=4 --ward
	pos_unit[5]=23 --non-hero 
	pos_unit[6]=22 --hero
	pos_unit[7]=26 --Organic
	pos_unit[8]=27 --Mechanical 
	pos_unit[9]=28 --non-suicidal
	pos_unit[10]=29 --suicidal
	pos_unit[11]=30 --non-ancient
	pos_unit[12]=31 --ancient
	pos_unit[13]=24 --alive
	pos_unit[14]=25 --dead
	pos_unit[15]=20 --Vulnerable 
	pos_unit[16]=21 --Invulnerable
	pos_unit[17]=17 --not self
	pos_unit[18]=12 --self
	pos_unit[19]=14 --friend
	pos_unit[20]=16 --enemy
	
	pos_unit[21]=13 --Player Units
	pos_unit[22]=15 --Neutral => указывают в UNIT CLASSIFICATION

	classification[5] = UNIT_TYPE_HERO
	classification[7] = UNIT_TYPE_MECHANICAL
	classification[9] = UNIT_TYPE_SAPPER
	classification[11] = UNIT_TYPE_ANCIENT
	classification[13] = UNIT_TYPE_DEAD

	string_class[5] = " non-hero: "
	string_class[6] = " hero: "
	string_class[7] = " mechanical: "
	string_class[8] = " organic: "
	string_class[9] = " suicidal: "
	string_class[10] = " non-suicidal: "
	string_class[11] = " non-ancient: "
	string_class[12] = " ancient: "
	string_class[13] = " alive: "
	string_class[14] = " dead: "
	string_class[15] = " vulnerable: "
	string_class[16] = " invulnerable: "
	string_class[17] = " not self: "
	string_class[18] = " self: "
	string_class[19] = " friend: "
	string_class[20] = " non-friend: "
	string_class[21] = " player unit: "
	string_class[22] = " neutral: "
	
	local string_bug = ""
	
	function comp_flags(flags1,flags2,pos)
		local p1 = IsFlagSet(flags1, pos)
		local p2 = IsFlagSet(flags2, pos)		
		
		--условие истино: 2 параметра положительно, или если 2 параметра не указано
		--условие ложно: если 2 параметра не соотвествуют друг другу
		if p1==p2 then
			--если два параметра положительны
			if p1 then
				string_bug = string_bug.."1"
			else
				string_bug = string_bug.."0"
			end
			return true
		else
			string_bug = string_bug.."0"
			return false
		end

	end	
	function comp_bool(flags1,bool,pos)
			
		local p1 = IsFlagSet(flags1, pos_unit[pos])

		if p1 ~= bool and p1 then
			string_bug = string_bug.."|cffff0000"..string_class[pos].."|r".."0"
			return false
		elseif p1 == bool and p1 then
			string_bug = string_bug.."|cff00ff00"..string_class[pos].."|r".."1"
		end
		return true
	end
	function IsUnitFriend(unit,tg)
		return IsUnitAlly(tg, GetOwningPlayer(unit)) and unit~=tg
	end
	function IsItUnitPlayer(unit,tg)
		return GetOwningPlayer(unit)==GetOwningPlayer(tg) and unit~=tg
	end
	function IsItUnitNeutral(unit)
		local flags = BlzGetUnitIntegerField(unit, UNIT_IF_UNIT_CLASSIFICATION)
		return IsFlagSet(flags,8)
	end
	function CheckFieldAbility(unit,field,rawcode,lv)
		local ability = BlzGetUnitAbility(unit, rawcode)
		local param = ConvertAbilityIntegerLevelField(field)
    
		return BlzGetAbilityIntegerLevelField(ability, param, lv)
	end
	
	function flages_target(flags1,flags2,unit,tg,IsItAttack)

		local max = 22 --макс параметров типов цели
		local b = true
		local c = 0
		
		if IsItAttack then
			max = 12
		end
		
		--проверка по типу "или"
		--если один из параметров цели (ground,air,structure,ward) соотвествует атаке.
		--если юнит не может атаковать ни одной из 4 целей
		string_bug = ""
		for a=1,4 do
			if not comp_flags(flags1,flags2,pos_unit[a]) then
				c = c + 1
			end
		end
		
		if c == 4 then
			b = false
			string_bug = "|cffff0000ground,air,structure,ward:|r "..string_bug
		else
			string_bug = "|cff00ff00ground,air,structure,ward:|r "..string_bug			
		end
		
		--далее идет проверка по типу "и"
		for i=5,max,2 do 
			if i < max then
				if not comp_bool(flags1,IsUnitType(tg, classification[i]),i+1) then
					b = false
				end
				if not comp_bool(flags1,not IsUnitType(tg, classification[i]),i) then
					b = false
				end
			end
		end
		
		if IsItAttack then
			if BlzIsUnitInvulnerable(tg) then
				string_bug=string_bug.." |cffff0000invulnerable:|r 0"
				b = false
			end
		else
			--vulnerable/invulnerable
			if not comp_bool(flags1,not BlzIsUnitInvulnerable(tg),15) then
				b = false
			end
			if not comp_bool(flags1,BlzIsUnitInvulnerable(tg),16) then
				b = false
			end
			
			--vulnerable/invulnerable
			if not comp_bool(flags1,not BlzIsUnitInvulnerable(tg),15) then
				b = false
			end
			if not comp_bool(flags1,BlzIsUnitInvulnerable(tg),16) then
				b = false
			end
			--not self/self
			if not comp_bool(flags1,unit~=tg,17) then
				b = false
			end
			if not comp_bool(flags1,unit==tg,18) then
				b = false
			end
			--friend/enemy
			if not comp_bool(flags1,IsUnitFriend(unit,tg),19) then
				b = false
			end
			if not comp_bool(flags1,IsUnitEnemy(tg, GetOwningPlayer(unit)),20) then
				b = false
			end
			--player units
			if not comp_bool(flags1,IsItUnitPlayer(unit,tg),21) then
				b = false
			end
			--neutral
			if not comp_bool(flags1,IsItUnitNeutral(unit),22) then
				b = false
			end
		end
		
		print(string_bug)
				
		return b
	end
	
		
		function IsItPossibleToAttackTheTarget(unit, target)
		
			--если может атаковать
			if GetUnitAbilityLevel(unit,FourCC('Aatk'))>0 and target~=nil then

				local b1 = BlzGetUnitWeaponBooleanField(unit, UNIT_WEAPON_BF_ATTACKS_ENABLED, 0)
				local b2 = BlzGetUnitWeaponBooleanField(unit, UNIT_WEAPON_BF_ATTACKS_ENABLED, 1)
				if b1 then
					local flags_attacker_1 = BlzGetUnitWeaponIntegerField(unit, UNIT_WEAPON_IF_ATTACK_TARGETS_ALLOWED, 0)
					local flags_target = BlzGetUnitIntegerField(target, UNIT_IF_TARGETED_AS)
					--local flags_spelltargetscaster = CheckFieldAbility(unit,FourCC('atar'),FourCC('AHad'),0) --поле таргета абилок не работает, вернет ноль

                    if not flages_target(flags_attacker_1,flags_target,unit,target,true) then
						print("|cffff0000"..GetUnitName(unit).." не может атаковать цель|r")
					else
						print("|cff00ff00"..GetUnitName(unit).." может атаковать цель|r")
                    end
				end
			end
		end
    
		local Hpal = CreateUnit(Player(0),FourCC('Hpal'),0,0,0)
    
		TimerStart(CreateTimer(),1.00,true,function()
			IsItPossibleToAttackTheTarget(Hpal, BlzGetMouseFocusUnit())
		end)
    end
end