--id - равкод абилки, level - уровень абидки (нумерация от нуля) 
function GetCastRangeAbility(un,id,level)
    local ability = BlzGetUnitAbility(un,id)
    return BlzGetAbilityRealLevelField(ability, ABILITY_RLF_CAST_RANGE, level)
end

--index это номер абилки в итеме (нумеруют от нуля)
--как правило, в первом слоте занимают активные абилки, а следом идут пассивки
function GetCastRangeItem(item,index,level)
    local ability = BlzGetItemAbilityByIndex(item, index) 
    return BlzGetAbilityRealLevelField(ability, ABILITY_RLF_CAST_RANGE, level)
end

--id это указанный равкод абилки в итеме (нумеруют от нуля)
function GetCastRangeItemId(item,id,level)
    local ability = BlzGetItemAbility(item,id)
    return BlzGetAbilityRealLevelField(ability, ABILITY_RLF_CAST_RANGE, level)
end

function SetCastRangeAbility(un,id,level,range)
    local ability = BlzGetUnitAbility(un,id)
    return BlzSetAbilityRealLevelFieldBJ(ability, ABILITY_RLF_CAST_RANGE, level,range)
end

function BlzGetAbilityManaCost takes integer abilId, integer level returns integer
native BlzGetAbilityManaCosttakes integer abilId, integer level returns integer

native BlzGetUnitAbilityManaCost takes unit whichUnit, integer abilId, integer level returns integer

function BlzSetUnitAbilityManaCost takes unit whichUnit, integer abilId, integer level, integer manaCost returns nothing

native BlzUnitHideAbility takes unit whichUnit, integer abilId, boolean flag returns nothing

function BlzUnitDisableAbility takes unit whichUnit, integer abilId, boolean flag, boolean hideUI returns nothing
native BlzUnitDisableAbilitytakes unit whichUnit, integer abilId, boolean flag, boolean hideUI returns nothing

    function IsDead takes unit u returns boolean
        return GetWidgetLife(u) < 0.405 or IsUnitType(u,UNIT_TYPE_DEAD)
    endfunction
	function IsUnitDead takes unit u returns boolean 
		return IsUnitType( u, UNIT_TYPE_DEAD ) or GetUnitTypeId( u ) < 1
	endfunction

native UnitAlive            takes unitid                               returns boolean

--  Move Type
MOVE_TYPE_UNKNOWN = ConvertMoveType(0)	--неизвестный	
MOVE_TYPE_FOOT = ConvertMoveType(1)	--пеший (наземный)
MOVE_TYPE_FLY = ConvertMoveType(2)	--летающий	
MOVE_TYPE_HORSE = ConvertMoveType(4)	--конный (наземный)
MOVE_TYPE_HOVER = ConvertMoveType(8)	--парящий (наземный)	
MOVE_TYPE_FLOAT = ConvertMoveType(16)	--плавающий (наземный)	
MOVE_TYPE_AMPHIBIOUS = ConvertMoveType(32)	--амфибия (наземный)	
MOVE_TYPE_UNBUILDABLE = ConvertMoveType(64)	--	

function GetUnitMovementType(unit)
	return BlzGetUnitIntegerField(unit, UNIT_IF_MOVE_TYPE)
end

function BlzSetUnitFacingEx(whichUnit, facingAngle) end

--angle выражен в градусах 0-360. 
function SetBuildingFacing(u, angle)
    BlzSetUnitFacingEx(u, angle)
	SetUnitPosition(u, GetUnitX(u), GetUnitY(u))
end

function SetBuildingFacing(u, angle)
    local currentUnitFacing = GetUnitFacing(u)
	
    local t = CreateTimer()
    local DIVERGENCE = 1.0
	
    angle = math.fmod(angle,360)
	
	TimerStart(t, 0.01, true, function()
		local currentUnitFacing = GetUnitFacing(u)
		SetUnitPosition(u, GetUnitX(u), GetUnitY(u))
		SetUnitFacing(u, angle)
		if (currentUnitFacing <= angle-DIVERGENCE or currentUnitFacing >= angle+DIVERGENCE) == false then
			DestroyTimer(t)
		end
	end)
end

--сколько ударов нанесет юнит за заданное время
--возможно надо будет еще учесть скорость анимации атаки - обратного броска http://blog.d1stats.ru/blog/dm/65.html
function NumberOfStrikes(unit,index,time)
    return GetUnitCurrentAttackSpeed(unit, index)*time
end

        function GetUnitDefenseType(unit)
            return BlzGetUnitIntegerField(unit, UNIT_IF_DEFENSE_TYPE)
        end 
        
        --если юнит не может двигаться
        function UnitInMove(u)
            --если юнит имеет нулевую скорость
            local b1 = GetUnitMoveSpeed(u)<=0
            --если юнит нет абилки перемещения
            local b2 = not UnitHasBuffBJ(u,FourCC('Amov'))
            --если юнит застанен 
            local b3 = GetUnitCurrentOrder(u)==851973 or IsUnitType(u, UNIT_TYPE_STUNNED) --stunned
            
            --если заморожен ледяной атакой (обездвижен)
            local b4 = UnitHasBuffBJ(u,FourCC('Bfrz')) or UnitHasBuffBJ(u,FourCC('Bfre')) 
            --если юнит спит
            local b5 = IsUnitType(u, UNIT_TYPE_SLEEPING) or UnitCanSleepPerm(u)
            --если юнит оплетен корнями
            local b6 = UnitHasBuffBJ(u,FourCC('BEer'))
            --если древо сидит, имеет
            local b7 = IsUnitType(u, UNIT_TYPE_ANCIENT) and (not GetUnitDefenseType(u)==2)
            --если юнит пойман огненным лассо
            local b8 = UnitHasBuffBJ(u,FourCC('Bmlt')) --Bmlc,Bmlt 
            --если юнит пойман сеткой навыком Ловчий
            local b9 = UnitHasBuffBJ(u,FourCC('Bena')) or UnitHasBuffBJ(u,FourCC('Beng')) 
            
            return b1 or b2 or b3 or b4 or b5 or b6 or b7 or b8 or b9
        end

native GroupAddUnit takes group whichGroup, unit whichUnit returns nothing
native GroupClear takes group whichGroup returns nothing
native GroupRemoveUnit takes group whichGroup, unit whichUnit returns nothing

function BlzGroupGetSize takes group whichGroup returns integer

function BlzGroupUnitAt takes group whichGroup, integer index returns unit

function BlzGroupRemoveGroupFast takes group whichGroup, group removeGroup returns integer
function BlzGroupAddGroupFast takes group whichGroup, group addGroup returns integer

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

do
	local InitGlobalsOrigin = InitGlobals
	function InitGlobals()
		InitGlobalsOrigin()
        
		--дефект-абилки на основе Adef, благодаря которым можно отслеживать при первом появлении/удалении, реинкарнацию, трансформацию, смерть, спрятан/видим => игра сама отдает приказ undefend юниту. Adef уникальная абилка, которой можно отдавать приказы даже будучи трупом.
        DetectRemoveAbility = FourCC('A002')
        DetectTransformAbility = FourCC('A001')
        
		IsUnitAlive = {} --состояние юнита: жив/мертв. при событии смерти можно зафиксировать смерть юнита. Но с навыком перерождения событие не фиксирует смерть. Мы должны зафиксировать, что юнит умирал уже с событием приказа undefend. IsUnitAlive помогает определить завершение реинкарнации, а также воскрешение. 
        IsUnitReincarnating = {} --состояние реинкарнации. Это штука помогает определить была ли реинкарнация =true, или труп юнита воскресили =false.
        group_reincarnation = CreateGroup()

		--спрятанные заблокированные детект-абилки все равно работают, несмотря ни на что.
        SetPlayerAbilityAvailable(Player(0), DetectRemoveAbility, false)
        SetPlayerAbilityAvailable(Player(0), DetectTransformAbility, false)
                
                
        TimerStart(CreateTimer(),0.00,false,function()
            GroupEnumUnitsInRect(group_reincarnation, bj_mapInitialPlayableArea, nil)
            ForGroup(group_reincarnation,function()
                
                local u = GetEnumUnit()
                local h = GetHandleId(u)
                
                --if not IsUnitType(u, UNIT_TYPE_DEAD) then
                    if not IsUnitAlive[h] then
                        IsUnitAlive[h] = true
                        IsUnitReincarnating[h] = false
                    end
					
					--даем DetectRemoveAbility юниту, и делаем ее пермаментной. т.е. при смерти, или трансформации эта абилка не исчезнет.
                    UnitAddAbility(u, DetectRemoveAbility)
                    UnitMakeAbilityPermanent(u, true, DetectRemoveAbility )
					
					--DetectTransformAbility является не пермаментной, и при трансформации она исчезнет. Если абилка исчезла после трансформации, значит, что произошел морф
                    --UnitAddAbility(u, DetectTransformAbility)
                --end

            end)
            
            print("кол-во юнитов на карте: "..BlzGroupGetSize(group_reincarnation))
            DestroyTimer(GetExpiredTimer())
        end)

        --регистрируем триггер на появление юнитов
        local trigger_unit_enter = CreateTrigger() --триггер добавления юнитов
        TriggerRegisterEnterRectSimple( trigger_unit_enter, bj_mapInitialPlayableArea )
        TriggerAddCondition(trigger_unit_enter, Condition( function()
            return not IsUnitInGroup(GetTriggerUnit(), group_reincarnation)
        end) )
        TriggerAddAction(trigger_unit_enter,function()
            local u = GetTriggerUnit()
            local h = GetHandleId(u)
            --if not IsUnitType(u, UNIT_TYPE_DEAD) then
                if not IsUnitAlive[h] then
                    IsUnitAlive[h] = true
                    IsUnitReincarnating[h] = false
                end
				--даем DetectRemoveAbility юниту, и делаем ее пермаментной. т.е. при смерти, или трансформации эта абилка не исчезнет.
                UnitAddAbility(u, DetectRemoveAbility)
                UnitMakeAbilityPermanent(u, true, DetectRemoveAbility)

				--DetectTransformAbility является не пермаментной, и при трансформации она исчезнет. Если абилка исчезла после трансформации, значит, что произошел морф
                --UnitAddAbility(u, DetectTransformAbility)
            --end
            
        end)

		--этот триггер смерти ни на что не влияет. Просто хочу показать, что при реинкарнации событие смерти не работает
		--однако, если это не реинкарнация, а например, надо для ВОСКРЕШЕНИЯ
        local trigger_death = CreateTrigger()
        TriggerRegisterPlayerUnitEvent(trigger_death, Player(0), EVENT_PLAYER_UNIT_DEATH, nil)
        TriggerAddAction( trigger_death, function()
            local u = GetTriggerUnit()
            local h = GetHandleId(u)
            
            --при наличии абилы реинкарнации, не событие фиксирует смерть 
            IsUnitAlive[h] = false --для воскрешения обозначаем, что юнит мертв
            print('unit dead') 
        end)

        local trigger_order = CreateTrigger()
        TriggerRegisterPlayerUnitEvent(trigger_order, Player(0), EVENT_PLAYER_UNIT_ISSUED_ORDER, nil)
        TriggerAddAction( trigger_order, function()
            local u = GetTriggerUnit()
            local h = GetHandleId(u)
            
            --После смерти у юнита срабатывает приказ undefend от способности Adef, короче должна начаться реинкарнация
            if IsUnitType(u, UNIT_TYPE_DEAD) then
                TimerStart(CreateTimer(), 0.00, false, function()
                    if IsUnitAlive[h] then 
					--фиксируем, что юнит мертв, и что у юнита реинкарнация, дабы потом удалить
                        IsUnitReincarnating[h] = true
                        IsUnitAlive[h] = false
                        print(GetUnitName(u)..' has started reincarnating')
                    end
                end)
            else
				--этот момент показывает конец реинкарнации. короче, игра повторно отдает юниту undefend. Чекаем по IsUnitAlive и IsUnitReincarnating
                if not IsUnitAlive[h] then
                    IsUnitAlive[h] = true
					if IsUnitReincarnating then
	                    IsUnitReincarnating[h] = false
	                    print(GetUnitName(u)..'  has finished reincarnating') --юнит переродился
					else
						print(GetUnitName(u)..'  has come back to life') --юнит воскрешен
					end
                end
            end
        end)
    end
end

do
	local InitGlobalsOrigin = InitGlobals
	function InitGlobals()
		InitGlobalsOrigin()
        
        DetectRemoveAbility = FourCC('A002')
        DetectTransformAbility = FourCC('A001')
        IsUnitTransforming = {}
        group_transform = CreateGroup()

        SetPlayerAbilityAvailable(Player(0), DetectRemoveAbility, false)
        SetPlayerAbilityAvailable(Player(0), DetectTransformAbility, false)
                
        TimerStart(CreateTimer(),0.00,false,function()
            --выделяем всех юнитов на карте в группу, добавляем способность им и параметры
			
			GroupEnumUnitsInRect(group_transform, bj_mapInitialPlayableArea, nil)
            ForGroup(group_transform,function()
                local u = GetEnumUnit()
                local h = GetHandleId(u)
                IsUnitTransforming[h] = false
                UnitAddAbility(u, DetectTransformAbility)
            end)
            
            print("кол-во юнитов на карте: "..BlzGroupGetSize(group_transform))
            DestroyTimer(GetExpiredTimer())
        end)

		--триггер добавления юнитов
        --регистрируем триггер на появление юнитов
        local trigger_unit_enter = CreateTrigger() 
        TriggerRegisterEnterRectSimple( trigger_unit_enter, bj_mapInitialPlayableArea )
        TriggerAddCondition(trigger_unit_enter, Condition( function()
            return not IsUnitInGroup(GetTriggerUnit(), group_transform)
        end) )
        TriggerAddAction(trigger_unit_enter,function()
            local u = GetTriggerUnit()
            local h = GetHandleId(u)
            IsUnitTransforming[h] = false
            UnitAddAbility(u, DetectTransformAbility)
        end)

        local trigger_order = CreateTrigger()
        TriggerRegisterPlayerUnitEvent(trigger_order, Player(0), EVENT_PLAYER_UNIT_ISSUED_ORDER, nil)
        TriggerAddAction( trigger_order, function()
            local u = GetTriggerUnit()
            local h = GetHandleId(u)
            
			--при получении приказа абилка DetectTransformAbility уже удалилась, тк юнит уже трансформировался. она не сохраняется при трансформации
			if GetUnitAbilityLevel(u, DetectTransformAbility) == 0 and (not IsUnitTransforming[h]) then
				IsUnitTransforming[h] = true
				TimerStart(CreateTimer(), 0.00, false, function()
					if IsUnitTransforming[h] then
						local type = GetUnitTypeId(u) --Set this afterward to give the user extra reference
						print('unit transform in '..GetObjectName(type))
						IsUnitTransforming[h] = false
						--Added 21 July 2017 to fix the issue re-adding this ability in the same instant
						UnitAddAbility(u, DetectTransformAbility)
					end
                end)
			end
        end)
    end
end

do
	local InitGlobalsOrigin = InitGlobals
	function InitGlobals()
		InitGlobalsOrigin()
        
        DetectRemoveAbility = FourCC('A002')
        DetectTransformAbility = FourCC('A001')
        IsUnitAlive = {}
        IsUnitReincarnating = {}
        group_reincarnation = CreateGroup()

        SetPlayerAbilityAvailable(Player(0), DetectRemoveAbility, false)
        SetPlayerAbilityAvailable(Player(0), DetectTransformAbility, false)
                  
        TimerStart(CreateTimer(),0.00,false,function()
            GroupEnumUnitsInRect(group_reincarnation, bj_mapInitialPlayableArea, nil)
            ForGroup(group_reincarnation,function()
                
                local u = GetEnumUnit()
                local h = GetHandleId(u)
                
                --if not IsUnitType(u, UNIT_TYPE_DEAD) then
                    if not IsUnitAlive[h] then
                        IsUnitAlive[h] = true
                        IsUnitReincarnating[h] = false
                    end
                    UnitAddAbility(u, DetectRemoveAbility)
                    UnitMakeAbilityPermanent(u, true, DetectRemoveAbility)
                    --UnitAddAbility(u, DetectTransformAbility)
                --end

            end)
            
            print("кол-во юнитов на карте: "..BlzGroupGetSize(group_reincarnation))
            DestroyTimer(GetExpiredTimer())
        end)

        --регистрируем триггер на появление юнитов
        local trigger_unit_enter = CreateTrigger() --триггер добавления юнитов
        TriggerRegisterEnterRectSimple( trigger_unit_enter, bj_mapInitialPlayableArea )
        TriggerAddCondition(trigger_unit_enter, Condition( function()
            return not IsUnitInGroup(GetTriggerUnit(), group_reincarnation)
        end) )
        TriggerAddAction(trigger_unit_enter,function()
            local u = GetTriggerUnit()
            local h = GetHandleId(u)
            --if not IsUnitType(u, UNIT_TYPE_DEAD) then
                if not IsUnitAlive[h] then
                    IsUnitAlive[h] = true
                    IsUnitReincarnating[h] = false
                end
                UnitAddAbility(u, DetectRemoveAbility)
                UnitMakeAbilityPermanent(u, true, DetectRemoveAbility)
                --UnitAddAbility(u, DetectTransformAbility)
            --end
            
        end)


        local trigger_death = CreateTrigger()
        TriggerRegisterPlayerUnitEvent(trigger_death, Player(0), EVENT_PLAYER_UNIT_DEATH, nil)
        TriggerAddAction( trigger_death, function()
            local u = GetTriggerUnit()
            local h = GetHandleId(u)
            
            --при наличии абилы реинкарнации, не событие фиксирует смерть 
            IsUnitAlive[h] = false
            print('unit dead')
        end)

        local trigger_order = CreateTrigger()
        TriggerRegisterPlayerUnitEvent(trigger_order, Player(0), EVENT_PLAYER_UNIT_ISSUED_ORDER, nil)
        TriggerAddAction( trigger_order, function()
            local u = GetTriggerUnit()
            local h = GetHandleId(u)
            
			--перед удалением, когда юнит полностью разложился в ничто, игра отдает приказ undefend и абилка DetectRemoveAbility удаляется из игры. lv=0
			if GetUnitAbilityLevel(u, DetectRemoveAbility) == 0 then
				local type = GetUnitTypeId( u )
				local name = GetUnitName(u)
				--print(GetUnitName(u)..' удалится через 0.00 сек')
				TimerStart(CreateTimer(), 0.00, false, function()
					if GetUnitTypeId( u ) < 1 then
						if IsUnitCreated[h] then
							IsUnitCreated[h] = false
							print('юнит '..name..' удалён из игры')
						end
					end
					DestroyTimer(GetExpiredTimer())
				end)
			end
        end)
    end
end

--цвета игроков (red,green,blue)
	ColorPlayer_R = {}
	ColorPlayer_G = {}
	ColorPlayer_B = {}
	--цвета игроков
		--красный (Red) PLAYER_COLOR_RED = 0
		ColorPlayer_R[0] = 255.00
		ColorPlayer_G[0] = 3.00
		ColorPlayer_B[0] = 3.00
		--синий (Blue) PLAYER_COLOR_BLUE = 1
		ColorPlayer_R[1] = 0.00
		ColorPlayer_G[1] = 66.00
		ColorPlayer_B[1] = 255.00    
		--голубой (Teal) PLAYER_COLOR_CYAN = 2
		ColorPlayer_R[2] = 28.00
		ColorPlayer_G[2] = 230.00
		ColorPlayer_B[2] = 185.00
		--фиолетовый (Purple) PLAYER_COLOR_PURPLE = 3
		ColorPlayer_R[3] = 84.00
		ColorPlayer_G[3] = 0.00
		ColorPlayer_B[3] = 129.00
		--желтый (yellow) PLAYER_COLOR_YELLOW = 4
		ColorPlayer_R[4] = 255.00
		ColorPlayer_G[4] = 252.00
		ColorPlayer_B[4] = 1.00
		--оранжевый (Orange) PLAYER_COLOR_ORANGE = 5
		ColorPlayer_R[5] = 254.00
		ColorPlayer_G[5] = 137.00 --186.00
		ColorPlayer_B[5] = 14.00
		--зеленый (green) PLAYER_COLOR_GREEN = 6
		ColorPlayer_R[6] = 32.00
		ColorPlayer_G[6] = 192.00
		ColorPlayer_B[6] = 0.00
		--розовый (pink) PLAYER_COLOR_PINK = 7
		ColorPlayer_R[7] = 229.00
		ColorPlayer_G[7] = 91.00
		ColorPlayer_B[7] = 176.00
		--серый (gray) PLAYER_COLOR_LIGHT_GRAY = 8
		ColorPlayer_R[8] = 149.00
		ColorPlayer_G[8] = 150.00
		ColorPlayer_B[8] = 151.00
		--светло-синий (light blue) PLAYER_COLOR_LIGHT_BLUE = 9
		ColorPlayer_R[9] = 126.00
		ColorPlayer_G[9] = 191.00
		ColorPlayer_B[9] = 241.00
		--темно-зеленый (dark green) PLAYER_COLOR_AQUA = 10
		ColorPlayer_R[10] = 16.00
		ColorPlayer_G[10] = 98.00
		ColorPlayer_B[10] = 70.00
		--коричневый (brown) PLAYER_COLOR_BROWN = 11
		ColorPlayer_R[11] = 78.00
		ColorPlayer_G[11] = 42.00
		ColorPlayer_B[11] = 4.00
		--бордовый (Maroon) PLAYER_COLOR_MAROON = 12
		ColorPlayer_R[12] = 156.00
		ColorPlayer_G[12] = 0.00
		ColorPlayer_B[12] = 0.00
		--темно-синий (Navy) PLAYER_COLOR_NAVY = 13
		ColorPlayer_R[13] = 0.00
		ColorPlayer_G[13] = 0.00
		ColorPlayer_B[13] = 195.00
		--бирюзовый (Turquoise) PLAYER_COLOR_TURQUOISE = 14
		ColorPlayer_R[14] = 0.00
		ColorPlayer_G[14] = 235.00
		ColorPlayer_B[14] = 255.00
		--пурпурный (Violet) PLAYER_COLOR_VIOLET = 15
		ColorPlayer_R[15] = 189.00
		ColorPlayer_G[15] = 0.00
		ColorPlayer_B[15] = 255.00
		--игрок цвета пшеницы/пшеничный (Wheat) PLAYER_COLOR_WHEAT = 16
		ColorPlayer_R[16] = 236.00
		ColorPlayer_G[16] = 206.00
		ColorPlayer_B[16] = 135.00
		--игрок цвета персика/персиковый (Peach) PLAYER_COLOR_PEACH = 17
		ColorPlayer_R[17] = 247.00
		ColorPlayer_G[17] = 165.00
		ColorPlayer_B[17] = 139.00
		--игрок цвета мяты (Mint) PLAYER_COLOR_MINT = 18
		ColorPlayer_R[18] = 191.00
		ColorPlayer_G[18] = 255.00
		ColorPlayer_B[18] = 129.00
		--игрок цвета лаванды (Lavender) PLAYER_COLOR_LAVENDER = 19
		ColorPlayer_R[19] = 219.00
		ColorPlayer_G[19] = 184.00
		ColorPlayer_B[19] = 235.00                       
		--темно-серый - игрок угольного цвета (Coal) PLAYER_COLOR_COAL = 20
		ColorPlayer_R[20] = 79.00
		ColorPlayer_G[20] = 80.00
		ColorPlayer_B[20] = 85.00   
		--белый (Snow) PLAYER_COLOR_SNOW = 21
		ColorPlayer_R[21] = 236.00
		ColorPlayer_G[21] = 240.00
		ColorPlayer_B[21] = 255.00   
		--изумрудный (Emerald) PLAYER_COLOR_EMERALD = 22
		ColorPlayer_R[22] = 0.00
		ColorPlayer_G[22] = 120.00
		ColorPlayer_B[22] = 30.00  
		--коричнево-арахисовый (Peanut) PLAYER_COLOR_PEANUT = 23
		ColorPlayer_R[23] = 165.00
		ColorPlayer_G[23] = 111.00
		ColorPlayer_B[23] = 52.00 
		--черный-нейтральный (Black) ConvertPlayerColor(24) = 24
		ColorPlayer_R[24] = 46.00
		ColorPlayer_G[24] = 45.00
		ColorPlayer_B[24] = 46.00 

--цветовой текст игрока
	PlayerColor = {}
		PlayerColor[0] = "|cffff0303"
		PlayerColor[1] = "|cff0042ff"
		PlayerColor[2] = "|cff1be7ba"
		PlayerColor[3] = "|cff550081"
		PlayerColor[4] = "|cfffefc00"
		PlayerColor[5] = "|cfffe890d"
		PlayerColor[6] = "|cff21bf00"
		PlayerColor[7] = "|cffe45caf"
		PlayerColor[8] = "|cff939596"
		PlayerColor[9] = "|cff7ebff1"
		PlayerColor[10] = "|cff106247"
		PlayerColor[11] = "|cff4f2b05"
		PlayerColor[12] = "|cff9c0000"
		PlayerColor[13] = "|cff0000c3"
		PlayerColor[14] = "|cff00ebff"
		PlayerColor[15] = "|cffbd00ff"
		PlayerColor[16] = "|cffecce87"
		PlayerColor[17] = "|cfff7a58b"
		PlayerColor[18] = "|cffbfff81"
		PlayerColor[19] = "|cffdbb8eb"
		PlayerColor[20] = "|cff4f5055"
		PlayerColor[21] = "|cffecf0ff"
		PlayerColor[22] = "|cff00781e"
		PlayerColor[23] = "|cffa56f34"
		PlayerColor[24] = "|cff2e2d2e"
		PlayerColor[25] = "|cff2e2d2e"
		PlayerColor[26] = "|cff2e2d2e"
		PlayerColor[27] = "|cff2e2d2e"

cons_damage_bonus = {}
    
    --light, medium, large, fort, normal, hero, divine, none (0-7 defenses type)
    normal = {1.00,1.00,1.00,1.00,1.00,0.75,0.05,1.00} --normal is spells
    melee = {1.00,1.50,1.00,0.70,1.00,1.00,0.05,1.00}
    pierce = {2.00,0.75,1.00,0.35,1.00,0.50,0.05,1.50}
    siege  = {1.00,0.50,1.00,1.50,1.00,0.50,0.05,1.50}
    magic = {1.25,0.75,2.00,0.35,1.00,0.50,0.05,1.00}
    chaos = {1.00,1.00,1.00,1.00,1.00,1.00,1.00,1.00}
    hero = {1.00,1.00,1.00,0.50,1.00,1.00,0.05,1.00}
    cons_damage_bonus = {normal, melee, pierce, siege, magic, chaos, hero}
    
	-- 0 - normal (skills), 1 - melee, 2 - pierce, 3 - siege, 4 - magic,5 - chaos,6 - hero
	function GetUnitAttackType(unit,index)
		return BlzGetUnitWeaponIntegerField(unit, UNIT_WEAPON_IF_ATTACK_ATTACK_TYPE, index)
	end
	
    --0 - small, 1 - medium (средняя), 2 - large (тяжелая), 3 - fort (укрепленная), 4 norm, 5 - hero, 6 - divine, 7 - None (без брони)
	function GetUnitDefenseType(unit)
		return BlzGetUnitIntegerField(unit, UNIT_IF_DEFENSE_TYPE)
	end

    --damager - юнит, наносящий урон
    --index - индекс атаки (0-первая атака, 1-вторая атака, 2 - двойная атака)
    --target - юнит, который принимает урон
    function CoefficientDamage(damager,index,target)
        local type_attack = GetUnitAttackType(damager,index)+1
        local type_defense = GetUnitDefenseType(target)+1

		print('type_attack: '..type_attack  )
		print('type_defense : '..type_defense )
        local k = cons_damage_bonus[type_attack][type_defense]
        
        return k
    end
    
    --damage - кол-во урона
    function GetAttackDamage(damager,index,target,damage)
        local k = CoefficientDamage(damager,index,target)
        
        if damage then
            return damage*k
        end
        return 0
    end
    
    function GetTeoriticPureDamage(damager,index,target,damage)
        local attack_damage = GetAttackDamage(damager,index,target,damage)
        local armor = BlzGetUnitArmor(target)
        local Multiplier = 0.06 
        
        local pure_damage = attack_damage/( 1 + Multiplier * armor)
        
        return pure_damage
    end
	

	local type_defense = GetUnitDefenseType(unit)+1
    local damage_base = GetUnitAttackType(unit,index)
    local k = cons_damage_bonus[type_attack_1][type_defense]
    
	local armor = BlzGetUnitArmor(unit) --выдает инфу об общий armor. Никак не подразделяет на базовый и бонус
	
	--формула снижения армора
	--https://xgm.guru/p/wc3/get-unit-armor
	local Multiplier = 0.06
	function GetDamageReduction(unit)
		local armor = BlzGetUnitArmor(unit)
		local reduction = 0
			  
		if armor>0 then
			reduction = Multiplier * armor / (1 + Multiplier * armor)
		elseif armor<0 then
			reduction = (1 - Multiplier) ^ (-armor) - 1
		end
				
		return reduction
	end

у юнитов с размером 16

collision =16 является самым минимальным у наземных, меньше только у воздуха =8. это у всех дефолтных юнитов. Если присмотреться, то центр коллижион съезжает в правый верхний угол

чтобы устранить не красивое недоразумение, можно добавить оффсеты x=-16,y=-16

у юнитов с размером 31

31 тоже часто встречаемый размер в редакторе для collision

чтобы устранить не красивое недоразумение, можно добавить оффсеты x=-16,y=-16

у юнитов с размерами 32

у юнитов с 32 все в порядке. нет отклонении
для обычных

для героев (кроме героев-тауренов)

для юнитов с размерами 48

как правило, это для самых больших юнитов: горных гигантов до мясников, да тауренов. Всякие машины, транспорты и корабли. Да, и драконы. У них тоже есть смещение

чтобы устранить не красивое недоразумение, можно добавить оффсеты x=-16,y=-16

для юнитов с размером 8

как правило, это воздушные юниты. но у них нет коллижена в воздухе. Я специально опустил круг выбора в ро, чтобы было видно.

RealGetUnitX = GetUnitX
        RealGetUnitY = GetUnitY

    function GetUnitRealX(unit)
        local collision = math.floor(BlzGetUnitCollisionSize(unit) + 0.5)

        if not IsUnitType(unit, UNIT_TYPE_STRUCTURE) then
            if (collision < 32 and collision > 15) or collision > 47 then return RealGetUnitX(unit) - 16. end
        end

        return RealGetUnitX(unit)
    end

    function GetUnitRealY(unit)
        local collision = math.floor(BlzGetUnitCollisionSize(unit) + 0.5)

        if not IsUnitType(unit, UNIT_TYPE_STRUCTURE) then
            if (collision < 32 and collision > 15) or collision > 47 then return RealGetUnitY(unit) - 16. end
        end

        return RealGetUnitY(unit)
    end

			function bordersForCircle(x,y,r,size)

				local minx,maxx,miny,maxy
				
				--радиус коллижиона = 1..15 нет смещения, добавляем 
				if r<16 then 
					x=x+16.
					y=y+16.
					r=8.
				--радиус коллижиона = 16..31 есть видимое смещение 
				elseif r<32 then
					r=16.
				--радиус коллижиона = 32..47 нет смещения, добавляем  
				elseif r<48 then 
					x=x+16.
					y=y+16.
					r=24.
				end
					

				local R = r%%size
				local count = math.modf(r/size)
				
				R = R*2 + count*size
					
				minx,maxx,miny,maxy = x-R,x+R,y-R,y+R

				minx=math.floor(minx/size)*size
				miny=math.floor(miny/size)*size
				maxx=math.floor(maxx/size)*size
				maxy=math.floor(maxy/size)*size

				return minx,maxx,miny,maxy
			end

function GetPathingRect(re, pathingtype, pathable)
    
--[[available pathing types
PATHING_TYPE_ANY                 -if this is false you can't walk/build/fly on it
PATHING_TYPE_WALKABILITY         -if this is false you can't walk on it
PATHING_TYPE_FLYABILITY          -if this is false you can't fly on it
PATHING_TYPE_BUILDABILITY        -if this is false you can't build on it
PATHING_TYPE_PEONHARVESTPATHING  -don't know
PATHING_TYPE_BLIGHTPATHING       -if this is false you can't build ziggs on it
PATHING_TYPE_FLOATABILITY        -don't know
PATHING_TYPE_AMPHIBIOUSPATHING   -don't know
]]
    local r = 32  --size of pathing blocks
    local x = GetRectMinX(re)
    local y
    local x2 = GetRectMaxX(re)
    local y2 = GetRectMaxY(re)
    local b = pathable
    local k = 0
    
	repeat
		y = GetRectMinY(re)
		repeat
			if y < y2 and x < x2 then
                b = (not IsTerrainPathable(x, y, pt)) --точка где можно строить, функция инверсная.
                if not b then 
                    k = k + 1 --кол-во точек, в которых нельзя строить  
                end
            end
            y = y + r
		until y >= y2 or b~=pathable
		x = x + r
	until x >= x2 or b~=pathable
	
	--print("проверка на стройку: "..(k) )

    return k --если бы хотя бы одна точка не подходит под площадку значит здесь невозможно применить площадку 
end

function GetHeightZWater takes real x, real y returns real
    local location loc = Location(x,y)
    local real r = GetLocationZ(loc)
    if (IsTerrainPathable(x,y,PATHING_TYPE_WALKABILITY) and not(IsTerrainPathable(x,y,PATHING_TYPE_AMPHIBIOUSPATHING)) then
        set r = r - 128.0
    endif
    call RemoveLocation(loc)
    set loc = null
    return r
endfunction

          local zTesterLocation = Location(0,0)
          local getTerrainZ = function(x,y)
            MoveLocation(zTesterLocation, x, y)
            return GetLocationZ(zTesterLocation)
          end