• Listen to a special audio message from Bill Roper to the Hive Workshop community (Bill is a former Vice President of Blizzard Entertainment, Producer, Designer, Musician, Voice Actor) 🔗Click here to hear his message!
  • Read Evilhog's interview with Gregory Alper, the original composer of the music for WarCraft: Orcs & Humans 🔗Click here to read the full interview.

Triggers

PeonRPG.w3x
Variables
Пещера
In
Out
GUI
Gandicap
GuiInit
Open
DeadHumanLumber
ZombiesDie
StartMiniGame
Build
Enter map-specific custom script code below. This text will be included in the map script after variables are declared and before any trigger code except Custom Script Item. Custom Script Item will merge into map script after globals variables declaration with the list order in trigger view.
--CUSTOM_CODE
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 07.04.2020 3:02
---
function StartPeonAI(hero)
	--print("Запущен ИИ для "..GetUnitName(hero))
	local data=HERO[GetPlayerId(GetOwningPlayer(hero))]
	data.ReleaseW=false
	data.ReleaseA=false
	data.ReleaseS=false
	data.ReleaseD=false
	data.ReleaseLMB=false
	data.ReleaseRMB=false
	data.ReleaseRMB=true
	local LastM=0
	local ErrorTime=0
	local ErrorTime2=0
	local Base=FindUnitOfType(FourCC('o001'))
	local k=1
	local IMFree=0
	local rdelay=GetRandomReal(0.8,1.2)

	TimerStart(CreateTimer(), rdelay, true, function()
		data.ReleaseW=false
		data.ReleaseA=false
		data.ReleaseS=false
		data.ReleaseD=false

		ErrorTime2=ErrorTime2+rdelay
		local d=GetNearbyDes(hero,500*k)
		--print("Нашёл дерево, рублю"..GetDestructableName(d))
		local dra=0
		if DistanceBetweenXY(GetDestructableX(d),GetDestructableY(d),GetUnitXY(hero))>ErrorTime*30 and d then

			dra=GetRandomReal(5*ErrorTime*(-1),5*ErrorTime)
			--print("Декор далеко "..dra)
		end
		local  turn=dra+AngleBetweenXY(GetUnitX(hero),GetUnitY(hero),GetDestructableX(d),GetDestructableY(d))/bj_DEGTORAD
		data.LastTurn=turn--GetRandomReal(0,360)
		local m=DistanceBetweenXY(GetUnitX(hero),GetUnitY(hero),GetDestructableX(d),GetDestructableY(d))


		if ErrorTime>=15 then
			ErrorTime=0
		end

		if ErrorTime2>=60 then
			ErrorTime2=0
			--k=k+1-- временно убрал
			--print("радиус поиска увеличен "..k)
		end

		if IsUnitInRange(hero,Base,200) and ErrorTime>=3 and data.IsWood then --and GetLosingHP(Base)<=10
			--print("Вернул дерево на базу, новый цикл")
			ErrorTime=0
			k=1
		end


		if not d or ErrorTime>=10  then --	if not d or ErrorTime>=10  then --
			--print("хз что делать")
			IMFree=IMFree+rdelay
			local ab=nil
			if IMFree>=3 then
				ab=GetAllyBuild(hero,500)
			end
			if IMFree>=7 then
				IMFree=0
			end
			if not ab then
				local enemy=GetAnyEnemy(hero,500)
				if not enemy then
					if not ab then
						--print("Хаотично бегу "..ErrorTime)
						data.LastTurn=GetRandomReal(0,360)
						data.RangeDesMove=110
						if ErrorTime>20 then
							--print("Надоело хаотично бегать, сброс")
							ErrorTime=0
						end
					end
				else
				--	print("Бью врага "..ErrorTime)
					ErrorTime=ErrorTime+rdelay
					data.LastTurn=AngleBetweenXY(GetUnitX(hero),GetUnitY(hero),GetUnitX(enemy),GetUnitY(enemy))/bj_DEGTORAD
					data.RangeDesMove=DistanceBetweenXY(GetUnitX(hero),GetUnitY(hero),GetUnitX(enemy),GetUnitY(enemy))
				end
			else
			--	print("Чиню здание "..ErrorTime)
				ErrorTime=ErrorTime+rdelay
				data.LastTurn=AngleBetweenXY(GetUnitX(hero),GetUnitY(hero),GetUnitX(ab),GetUnitY(ab))/bj_DEGTORAD
				data.RangeDesMove=DistanceBetweenXY(GetUnitX(hero),GetUnitY(hero),GetUnitX(ab),GetUnitY(ab))
			end
		end

		if not data.IsWood then -- нет дерева
			if d then
				ErrorTime=ErrorTime+rdelay
				data.RangeDesMove=m
			end
		else--есть дерево

			ErrorTime=ErrorTime+rdelay
			local anyrandom=GetRandomReal(6*ErrorTime*(-1),6*ErrorTime)
			--print("Есть дерево, возвращаюсь на базу "..ErrorTime.." случайное время"..anyrandom)
			data.LastTurn=anyrandom+(AngleBetweenXY(GetUnitX(hero),GetUnitY(hero),GetUnitX(Base),GetUnitY(Base))/bj_DEGTORAD)
			data.RangeDesMove=DistanceBetweenXY(GetUnitX(hero),GetUnitY(hero),GetUnitX(Base),GetUnitY(Base))
			ErrorTime2=0
			k=1

			if ErrorTime>=13  then --	if not d or ErrorTime>=10  then --
				--print("я застрял, пока нёс дерево")
				data.LastTurn=GetRandomReal(0,360)
				data.RangeDesMove=110
				if ErrorTime>15 then
					--print("Сброс ошибок при возврате дерева")
					ErrorTime=0
				end
			end
		end
	end)
end

function GetNearbyDes(hero, range)
	local d=nil
	local x,y=GetUnitXY(hero)
	local this=nil
	SetRect(GlobalRect, x - range, y - range, x + range, y +range)
	EnumDestructablesInRect(GlobalRect,nil,function ()
		d=GetEnumDestructable()
		if GetDestructableLife(d)>0 and GetUnitZ(hero)>=GetTerrainZ(GetDestructableX(d),GetDestructableY(d)) then
			this=d
		end
		if GetDestructableTypeId(d)==FourCC('LTlt') then

		end
	end)
	return this
end

function GetAllyBuild(hero, range)
	local e=nil
	local x,y=GetUnitXY(hero)
	local this=nil
	GroupEnumUnitsInRange(perebor,x,y,range,nil)
	while true do
		e = FirstOfGroup(perebor)

		if e == nil then break end
		if UnitAlive(e) and IsUnitType(e,UNIT_TYPE_STRUCTURE) and IsUnitAlly(e,GetOwningPlayer(hero)) and GetLosingHP(e)>=10 then
			this=e
		end
		GroupRemoveUnit(perebor,e)
	end
	return this
end

function GetAnyEnemy(hero, range)
	local e=nil
	local x,y=GetUnitXY(hero)
	local this=nil
	GroupEnumUnitsInRange(perebor,x,y,range,nil)
	while true do
		e = FirstOfGroup(perebor)

		if e == nil then break end
		if UnitAlive(e)  and IsUnitEnemy(e,GetOwningPlayer(hero)) and IsUnitVisible(e,GetOwningPlayer(hero)) and GetUnitAbilityLevel(e,FourCC('Avul'))==0 then
			this=e
		end
		GroupRemoveUnit(perebor,e)
	end
	return this
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 02.05.2020 2:43
---
stoneEffModel = "Abilities\\Weapons\\RockBoltMissile\\RockBoltMissile"
Special = "Abilities\\Weapons\\ProcMissile\\ProcMissile"
function StartTinyAI(xs, ys)
	local boss = FindUnitOfType(FourCC('e009'))

	local BossFight=true
	UnitAddAbility(boss, FourCC('Abun'))
	SetUnitPosition(boss, 1420, 2597)
	SetUnitOwner(boss, Player(10), true)
	local range = 1000
	local x, y = GetUnitXY(boss)
	SetRect(GlobalRect, x - range, y - range, x + range, y + range)
	EnumDestructablesInRect(GlobalRect, nil, function()
		local d = GetEnumDestructable()
		local dx, dy = GetDestructableX(d), GetDestructableY(d)
		if IsUnitInRangeXY(boss, dx, dy, range) then
			KillDestructable(d)
			--print("очистка зоны")
		end
	end)

	--перенос героев в случайную точку
	for i = 0, 3 do
		local hero = HERO[i].UnitHero
		if IsUnitInRangeXY(hero, xs, ys, 300) then
			--print("герои перенесены")
			SetUnitPosition(hero, 1420 + GetRandomInt(-1, 1) * 400, 2597 + GetRandomInt(-1, 1) * 400)
		end
	end

	local FW = CreateFogModifierRectBJ(false, Player(0), FOG_OF_WAR_VISIBLE, GlobalRect)
	FogModifierStart(FW)

	--print("создаём каменный круг")
	local newd = {}
	local maxd = 72
	for i = 1, maxd do
		local angle = 360 / maxd
		local dx, dy = MoveXY(x, y, range * .8, angle * i)
		newd[i] = CreateDestructable(FourCC('LTrc'), dx, dy, 0, GetRandomInt(1, 1), GetRandomInt(1, 5))
		SetDestructableInvulnerable(newd[i], true)
		--print("создан элемент "..i)
	end

	local phase = 2 --стартовая фаза
	local sec = 0
	local PhaseOn = true
	local OnAttack=true
	TimerStart(CreateTimer(), 1, true, function() --каждую секунду
		local bx,by=GetUnitXY(boss)

		if not UnitAlive(boss) then-- Место где босс умер тиник
			StartSound(bj_questCompletedSound)
			for i = 1, maxd do
				KillDestructable(newd[i])
			end
			DestroyTimer(GetExpiredTimer())
			phase = 0
			--print("Дайм нарграду")
			for _=1,14 do
				local r=GetRandomInt(-100,100)
				local r2=GetRandomInt(-100,100)
				CreateFreeWood(bx+r,by+r2)
			end
		else --Проверяем есть ли живые герои, когда тиник жив
			if BossFight then
				local k=0
				for i = 0, 3 do
					local hero = HERO[i].UnitHero
					if IsUnitInRange(hero, boss, 1000) then
						k=k+1
					end

					--print("Отталкивание для особо умных")
					if OnAttack then
						if IsUnitInRange(hero, boss, 250) then
							--SetUnitTimeScale(boss,-1)
							OnAttack=false
							local angle=AngleBetweenUnits(boss,hero)
							SetUnitFacing(boss,angle)
							--SetUnitAnimation(boss,"Attack")

							SetUnitAnimationByIndex(boss,3)
							UnitAddVectorForce(hero,angle,30,300,false)
							TimerStart(CreateTimer(), 1, false, function()
								OnAttack=true
								SetUnitAnimation(boss,"stand")
								SetUnitTimeScale(boss,1)
							end)
						end

					end
				end
				if k==0 then
					BossFight=false
					phase=0
					--print("Нет героев ломаем стену")
					for i = 1, maxd do
						KillDestructable(newd[i])
					end
				end
			end
		end
		local xb, yb = GetUnitXY(boss)
		if BossFight then -- если идёт бой
			sec = sec + 1
			if sec >= 10 then
				sec = 0
				phase = phase + 1
				PhaseOn = true
				--print("phase " .. phase)
				if phase >= 4 then
					phase = 0
				end
			end
			--фазы
			if phase == 1 and PhaseOn then
				PhaseOn = false
				--print("стреляем камнями")
				TimerStart(CreateTimer(), 1.5, true, function()
					if UnitAlive(boss) then
						SetUnitAnimationByIndex(boss,2)
					end
					if phase ~= 1 or not UnitAlive(boss) then
						DestroyTimer(GetExpiredTimer())
					end
				end)

				TimerStart(CreateTimer(), .1, true, function()
					local angle = GetRandomInt(0, 359)
					local eff = stoneEffModel
					if GetRandomInt(1, 5) == 1 then
						eff = Special
					end
					CreateAndForceBullet(boss, angle, 15, eff, xb, yb, 50)
					if phase ~= 1 or not UnitAlive(boss) then
						DestroyTimer(GetExpiredTimer())
					end
				end)
			end
			if phase == 2 and PhaseOn then
				PhaseOn = false
				--print("Падающие камни")
				local effmodel = "Doodads\\LordaeronSummer\\Terrain\\LoardaeronRockChunks\\LoardaeronRockChunks3"
				TimerStart(CreateTimer(), .5, true, function() -- случайные

					SetUnitAnimationByIndex(boss,3)
					local rx,ry=GetRandomInt(-500,500),GetRandomInt(-500,500)
					MarkAndFall(bx+rx,by+ry,effmodel,boss)
					SetUnitFacing(boss,AngleBetweenXY(GetUnitX(boss),GetUnitY(boss),bx+rx,by+ry)/bj_DEGTORAD)
					if phase ~= 2 then
						DestroyTimer(GetExpiredTimer())
						ResetUnitAnimation(boss)
					end
				end)
				TimerStart(CreateTimer(), 1.5, true, function()--по героям
					for i = 0, 3 do
						local hero = HERO[i].UnitHero
						if IsUnitInRange(hero, boss, 1000) then
							MarkAndFall(GetUnitX(hero),GetUnitY(hero),effmodel,boss)
						end
					end


					if phase ~= 2 then
						DestroyTimer(GetExpiredTimer())
					end
				end)
			end
			if phase == 3 and PhaseOn and sec==5 then -- оживление големов
				PhaseOn = false
				SetRect(GlobalRect, x - range, y - range, x + range, y + range)
				EnumDestructablesInRect(GlobalRect, nil, function()
					local d = GetEnumDestructable()
					local dx, dy = GetDestructableX(d), GetDestructableY(d)
					if IsUnitInRangeXY(boss, dx, dy, range*.5) then
						if GetDestructableLife(d)>1 then
							local  new=CreateUnit(Player(10), FourCC('n002'), dx, dy, 0)

							TimerStart(CreateTimer(),10,false, function()
								KillUnit(new)
								DestroyTimer(GetExpiredTimer())
							end)
							KillDestructable(d)
						end
					end
				end)

				if phase ~= 3 then
					DestroyTimer(GetExpiredTimer())
				end
			end

		else-- перезапуск боссфайта
			local k=0
			for i = 0, 3 do
				local hero = HERO[i].UnitHero
				if IsUnitInRange(hero, boss, 300) then
					k=k+1
				end
			end
			if k>=1 then
				--print("повторно камни")
				BossFight=true
				for i = 1, maxd do
					local angle = 360 / maxd
					local dx, dy = MoveXY(x, y, range * .8, angle * i)
					newd[i] = CreateDestructable(FourCC('LTrc'), dx, dy, 0, GetRandomInt(1, 1), GetRandomInt(1, 5))
					SetDestructableInvulnerable(newd[i], true)
					--print("создан элемент "..i)
				end
			end
		end--конец
	end)
end

function MarkAndFall(x,y,effModel,hero)
	local mark=AddSpecialEffect("Snipe Target",x,y)
	BlzSetSpecialEffectScale(mark,5)
	TimerStart(CreateTimer(), 2, false, function()

		local FallenEff=AddSpecialEffect(effModel,x,y)
		BlzSetSpecialEffectZ(FallenEff,1000)
		BlzSetSpecialEffectYaw(FallenEff, math.rad(GetRandomReal(0,360)))
		TimerStart(CreateTimer(), TIMER_PERIOD, true, function()
			local z=BlzGetLocalSpecialEffectZ(FallenEff)
			BlzSetSpecialEffectZ(FallenEff,z-50)
			if z<=GetTerrainZ(x,y) then
				DestroyEffect(mark)
				BlzSetSpecialEffectPosition(mark,5000,5000,0)
				DestroyTimer(GetExpiredTimer())
				DestroyEffect(FallenEff)
				local nd=CreateDestructable(FourCC('LTrc'), x, y, 0, GetRandomInt(1, 1), GetRandomInt(1, 5))
				SetDestructableInvulnerable(nd,true)
				DestroyEffect(AddSpecialEffect("ThunderclapCasterClassic",x,y))
				UnitDamageArea(hero,100,x,y,150) --при падении камня
				for i = 0, 3 do
					local herod = HERO[i].UnitHero
					if IsUnitInRangeXY(herod, x,y, 150) then
						HealUnit(herod,-200)
					end
				end


				TimerStart(CreateTimer(), 5, false, function()
					KillDestructable(nd)
				end)
			end
		end)
	end)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 19.05.2020 19:21
---
--stoneEffModel = "Abilities\\Weapons\\RockBoltMissile\\RockBoltMissile"
--Special = "Abilities\\Weapons\\ProcMissile\\ProcMissile"

function InitTurtleZone()
	local this = CreateTrigger()
	TriggerRegisterEnterRectSimple(this, gg_rct_TurtleZone)
	TriggerAddAction(this, function()
		local hero=GetTriggerUnit()
		if IsUnitType(hero,UNIT_TYPE_HERO) then
			StartTurtleAI()
			DisableTrigger(this)
		end
	end)
end




function StartTurtleAI()
	local boss = FindUnitOfType(FourCC('n00D'))
	local BossFight=true
	print("Запущен ИИ черепахи")

	local FW = CreateFogModifierRectBJ(false, Player(0), FOG_OF_WAR_VISIBLE, gg_rct_TurtleZone) --Рект черепахи
	FogModifierStart(FW)

	local phase = 2 --стартовая фаза
	local sec = 0
	local PhaseOn = true
	local OnAttack=true
	TimerStart(CreateTimer(), 1, true, function() --каждую секунду
		local x, y = GetUnitXY(boss)
		if not UnitAlive(boss) then-- Место где босс умер тиник
			StartSound(bj_questCompletedSound)
			DestroyTimer(GetExpiredTimer())
			phase = 0
			--print("Даём нарграду")
			for _=1,14 do
				local r=GetRandomInt(-100,100)
				local r2=GetRandomInt(-100,100)
				CreateFreeWood(x+r,y+r2)
			end
		else --Проверяем есть ли живые герои, когда тиник жив
			if BossFight then
				local k=0
				for i = 0, 3 do
					local hero = HERO[i].UnitHero
					if IsUnitInRange(hero, boss, 3000) then
						k=k+1
					end

					--print("Отталкивание для особо умных")
				end
				if k==0 then
					BossFight=false
					phase=0
					DestroyFogModifier(FW)
					print("Все герои мертвы остановка фаз")
				end
			end
		end
		if BossFight then -- если идёт бой
			sec = sec + 1
			if sec >= 10 then
				sec = 0
				phase = phase + 1
				PhaseOn = true
				--print("phase " .. phase)
				if phase >= 4 then
					phase = 0
				end
			end
			--фазы
			if phase == 1 and PhaseOn then
				PhaseOn = false
				--print("стреляем камнями")

			end
			if phase == 2 and PhaseOn then
				PhaseOn = false
				--print("Падающие камни")

			end
			if phase == 3 and PhaseOn  then -- оживление големов
				PhaseOn = false

			end

		else-- перезапуск боссфайта
			local k=0
			for i = 0, 3 do
				local hero = HERO[i].UnitHero
				if IsUnitInRange(hero, boss, 300) then
					k=k+1
				end
			end
			if k>=1 then
				print("перезапуск боссфайта")
				BossFight=true
			end
		end--конец
	end)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 25.04.2020 2:49
---
function StartWolfBossAI()
local boss=FindUnitOfType(FourCC('nwwd'))--id босса
	TimerStart(CreateTimer(), 5, true, function()
		local e=nil
		local x,y=GetUnitXY(boss)
		local this={}
		local k=1
		GroupEnumUnitsInRange(perebor,x,y,700,nil)
		while true do
			e = FirstOfGroup(perebor)

			if e == nil then break end
			if UnitAlive(e) and IsUnitEnemy(e,GetOwningPlayer(boss)) then -- and IsUnitVisible(e,GetOwningPlayer(boss))
				--print("нашел...".. GetUnitName(e))
				this[k]=e
				k=k+1
			end
			GroupRemoveUnit(perebor,e)
		end

		local hero=this[GetRandomInt(1,#this)]
		if hero and GetUnitAbilityLevel(boss,FourCC('BPSE'))==0 then
			--print("Нападаем на "..GetUnitName(hero))
			local angle= math.deg(AngleBetweenXY(GetUnitX(boss), GetUnitY(boss), GetUnitX(hero), GetUnitY(hero)))
			BlzSetUnitFacingEx(boss,angle)
			UnitAddForce(boss,angle,40,DistanceBetweenXY(GetUnitX(boss),GetUnitY(boss),GetUnitXY(hero)))
		end
		if not UnitAlive(boss) then
			DestroyTimer(GetExpiredTimer())
			for _=1,10 do
				local r=GetRandomInt(-100,100)
				local r2=GetRandomInt(-100,100)
				CreateFreeWood(x+r,y+r2)
			end
		end
	end)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 06.02.2020 18:00
---
---
---
---


MiniMap={}

function CreateWeaponFrame()
	local texture={
		"ReplaceableTextures\\CommandButtons\\BTNDwarvenLongRifle.blp",
		"ReplaceableTextures\\CommandButtons\\BTNHumanMissileUpThree.blp",
		"ReplaceableTextures\\CommandButtons\\BTNClusterRockets.blp",
		"ReplaceableTextures\\CommandButtons\\BTNFireBolt.blp",
		"ReplaceableTextures\\CommandButtons\\BTNFireRocks.blp",
		"ReplaceableTextures\\CommandButtons\\BTNBarrel.blp",
		"ReplaceableTextures\\CommandButtons\\BTNChainLightning.blp",
		"ReplaceableTextures\\PassiveButtons\\PASBTNUpgradeMoonGlaive.blp",
		"ReplaceableTextures\\CommandButtons\\BTNUnstableConcoction.blp",
	}
	local weaponName= {
		"[1] Носовое ордие",
		"[2] Бортовые пушки",
		"[3] Ракетница",
		"[4] Огнемёт",
		"[5] Вертикальный залп",
		"[6] Бочка",
		"[7] Молнии",
		"[8] Пилы",
		"[9] Нефтяное пятно"
	}
	local description={
		"Одиночный выстрел [RMB]",
		"Несколько выстрелов с борта [RMB] [LMB]",
		"Самоновадящаяся ракета [RMB] на цель",
		"Огнемёт из бортовых орудий. Удерживайте [RMB] [LMB] ",
		"Стреляет в указанную точку навесом [RMB]",
		"Спускает на воду бочку [RMB]",
		"Бьёт молнией в указанную цель [RMB]",
		"Урон касанием, перемещает пилу по корпусу [RMB]",
		"Оставляет позади себя нефтяное пятно, можно поджечь [RMB]"
	}


	--NewButton()
	local next=0.039
	local qerf=0
	for i = 0, 8 do
		local face = BlzCreateFrameByType("BACKDROP", "Face", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
		local faceHover = BlzCreateFrameByType("FRAME", "FaceFrame", face,"", 0)
		local tooltip = BlzCreateFrame("BoxedText", face, 0, 0)
		local charges= BlzCreateFrameByType("BACKDROP", "Face", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
		local new_FrameChargesText = BlzCreateFrameByType("TEXT", "ButtonChargesText", charges, "", 0)

		--[[]local TextNumber = BlzCreateFrameByType("TEXT", "ButtonChargesText", face, "", 0)
		BlzFrameSetPoint(TextNumber, FRAMEPOINT_CENTER, face, FRAMEPOINT_CENTER, 0.,0.)
		BlzFrameSetText(TextNumber, i+1)]]

		local hot=BlzCreateFrameByType("BACKDROP", "Face", face, "", 0)
		BlzFrameSetTexture(hot, "DDSSymbols\\"..(i+1)..".dds", 0, true)
		BlzFrameSetSize(hot, 0.02, 0.02)
		BlzFrameSetPoint(hot, FRAMEPOINT_CENTER, face, FRAMEPOINT_CENTER, 0.,0.)

		BlzFrameSetPoint(new_FrameChargesText, FRAMEPOINT_CENTER, charges, FRAMEPOINT_CENTER, 0.,0.)
		BlzFrameSetText(new_FrameChargesText, "0")
		BlzFrameSetAllPoints(faceHover, face)
		BlzFrameSetTooltip(faceHover, tooltip)
		BlzFrameSetTexture(face, texture[i+1],0, true)
		BlzFrameSetTexture(charges, "ChargesTexture.blp", 0, true)
		BlzFrameSetSize(face, 0.04, 0.04)
		BlzFrameSetSize(charges, 0.04, 0.012)
		BlzFrameSetAbsPoint(face, FRAMEPOINT_TOPLEFT, next+next+next*i, next*1.3)
		BlzFrameSetAbsPoint(charges, FRAMEPOINT_TOPLEFT, next+next+next*i, next*1.6)
		BlzFrameSetAbsPoint(tooltip, FRAMEPOINT_TOP, next+next+next*i, next*3)
		BlzFrameSetSize(tooltip, 0.15, 0.08)
		BlzFrameSetText(BlzGetFrameByName("BoxedTextValue",0), description[i+1])
		BlzFrameSetText(BlzGetFrameByName("BoxedTextTitle",0), weaponName[i+1])
		--if i==0 then
		local buttonsprite = BlzCreateFrameByType("SPRITE", "justAName", face, "WarCraftIIILogo", 0)
		BlzFrameSetPoint(buttonsprite, FRAMEPOINT_BOTTOMLEFT, face, FRAMEPOINT_BOTTOMLEFT, 0.02, 0.02)
		BlzFrameSetSize(buttonsprite, 1., 1.)
		BlzFrameSetScale(buttonsprite, 1.)
		BlzFrameSetModel(buttonsprite, "selecter1.mdx", 0)
		BlzFrameSetVisible(buttonsprite,false)
		FrameSelecter[i+1]=buttonsprite
		VisualCharges[i+1]=new_FrameChargesText
		--ТАЛАНТЫ

		for k=1,3 do
			local TalantBut=BlzCreateFrameByType("BACKDROP", "Face", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
			BlzFrameSetTexture(TalantBut, texture[i+1], 0, true)
			BlzFrameSetSize(TalantBut, 0.013, 0.013)
			--print(k)
			BlzFrameSetAbsPoint(TalantBut, FRAMEPOINT_TOPLEFT, next*1.75+next*i+next*k*.3, 0.013)
		end

		--
		qerf=next+next+next*i
		if i>= 1 then
			BlzFrameSetVisible(buttonsprite,false)
		end

		local t = CreateTrigger()
		BlzTriggerRegisterFrameEvent(t, tooltip, FRAMEEVENT_CONTROL_CLICK)
		BlzTriggerRegisterFrameEvent(t, faceHover, FRAMEEVENT_CONTROL_CLICK)
		BlzTriggerRegisterFrameEvent(t, face, FRAMEEVENT_CONTROL_CLICK)
		BlzTriggerRegisterFrameEvent(t, buttonsprite, FRAMEEVENT_CONTROL_CLICK)
		BlzTriggerRegisterFrameEvent(t, charges, FRAMEEVENT_CONTROL_CLICK)
		TriggerAddAction(t,function()
			print("click "..i) -- вот тут не работает
		end)
	end
	--Создаём кнопки QERF
	--[[local gold=BlzCreateFrameByType("TEXT", "ButtonChargesText", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
	BlzFrameSetAbsPoint(gold, FRAMEPOINT_CENTER,  0.4,0.3)
	BlzFrameSetText(gold, "Недостаточно золота")]]

	for i=1,4 do
		local SkillButton=BlzCreateFrameByType("BACKDROP", "Face", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
		BlzFrameSetTexture(SkillButton, "ChargesTexture.blp", 0, true)
		BlzFrameSetSize(SkillButton, 0.04, 0.04)
		BlzFrameSetAbsPoint(SkillButton, FRAMEPOINT_TOPLEFT, qerf+next*i, next*1.3)

		local hot=BlzCreateFrameByType("BACKDROP", "Face", SkillButton, "", 0)
		if i==1 then
			BlzFrameSetTexture(hot, "DDSSymbols\\q.dds", 0, true)
		elseif i==2 then
			BlzFrameSetTexture(hot, "DDSSymbols\\e.dds", 0, true)
		elseif i==3 then
			BlzFrameSetTexture(hot, "DDSSymbols\\r.dds", 0, true)
		elseif i==4 then
			BlzFrameSetTexture(hot, "DDSSymbols\\f.dds", 0, true)
		end
		BlzFrameSetSize(hot, 0.03, 0.03)
		BlzFrameSetPoint(hot, FRAMEPOINT_CENTER, SkillButton, FRAMEPOINT_CENTER, 0.,0.)
		local t = CreateTrigger()
		BlzTriggerRegisterFrameEvent(t, hot, FRAMEEVENT_CONTROL_CLICK)
		TriggerAddAction(t,function()
			print("click "..i) -- вот тут не работает
		end)

	end

end

function SwitchWeaponVisual(pid,index)
	if GetLocalPlayer()==Player(pid) then --из другой карты
		for i=1, #FrameSelecter do
		--	BlzFrameSetVisible(FrameSelecter[i],false)
		end
		BlzFrameSetVisible(FrameSelecter[index],true)
	end
end

function HeroUpdateWeaponCharges(hero,index,amount)
	local pid=GetPlayerId(GetOwningPlayer(hero))
	local data=Ammo[pid]
	local count=0
	local HasAmmo=true
	--слабонервным не смотреть
	if index==1 then
		data.Count.Single=data.Count.Single-amount
		count=data.Count.Single
	elseif index==2 then
		data.Count.Board=data.Count.Board-amount
		count=data.Count.Board
	elseif index==3 then
		data.Count.Rocket=data.Count.Rocket-amount
		count=data.Count.Rocket
	elseif index==4 then
		data.Count.Fire=data.Count.Fire-amount
		count=data.Count.Fire
	elseif index==5 then
		data.Count.Toss=data.Count.Toss-amount
		count=data.Count.Toss
	elseif index==6 then
		data.Count.Barrel=data.Count.Barrel-amount
		count=data.Count.Barrel
	elseif index==7 then
		data.Count.Light=data.Count.Light-amount
		count=data.Count.Light
	elseif index==8 then
		data.Count.Saw=data.Count.Saw-amount
		count=data.Count.Saw
	elseif index==9 then
		data.Count.Oil=data.Count.Oil-amount
		count=data.Count.Oil
	end

	if count+amount<amount then
		HasAmmo=false
		if index==1 then
			count=data.Count.Single==0
		elseif index==2 then
			count=data.Count.Board==0
		elseif index==3 then
			count=data.Count.Rocket==0
		elseif index==4 then
			count=data.Count.Fire==0
		elseif index==5 then
			count=data.Count.Toss==0
		elseif index==6 then
			count=data.Count.Barrel==0
		elseif index==7 then
			count=data.Count.Light==0
		elseif index==8 then
			count=data.Count.Saw==0
		elseif index==9 then
			count=data.Count.Oil==0
		end
		--print(count.." мало патронов")
	end
	--print(count)
	if GetLocalPlayer()==Player(pid) then
	--BlzFrameSetText(VisualCharges[index], count )
	end
	return HasAmmo
end




ButtonList={}
function NewButton(button_type, texture, size_x, size_y, relative_frame, frame_point_from, frame_point_to, offset_x, offset_y, parent_frame)
	local new_Frame = BlzCreateFrame('ScriptDialogButton', parent_frame, 0, 0)
	local new_FrameImage = BlzCreateFrameByType("BACKDROP", "ButtonIcon", new_Frame, "", 0)
	local new_FrameCharges = BlzCreateFrameByType("BACKDROP", "ButtonCharges", new_Frame, "", 0)
	local new_FrameChargesText = BlzCreateFrameByType("TEXT", "ButtonChargesText", new_FrameCharges, "", 0)


	ButtonList[GetHandleId(new_Frame)] = {
		button_type = button_type,
		item = nil,
		button = new_Frame,
		image = new_FrameImage,
		original_texture = texture,
		charges_frame = new_FrameCharges,
		charges_text_frame = new_FrameChargesText,
		sprite = nil
	}

	--FrameRegisterNoFocus(new_Frame)
	--FrameRegisterClick(new_Frame, texture)

	--BlzTriggerRegisterFrameEvent(ClickTrigger, new_Frame, FRAMEEVENT_CONTROL_CLICK)
	--BlzTriggerRegisterFrameEvent(EnterTrigger, new_Frame, FRAMEEVENT_MOUSE_ENTER)
	--BlzTriggerRegisterFrameEvent(LeaveTrigger, new_Frame, FRAMEEVENT_MOUSE_LEAVE)


	BlzFrameSetPoint(new_FrameCharges, FRAMEPOINT_BOTTOMRIGHT, new_FrameImage, FRAMEPOINT_BOTTOMRIGHT, -0.002, 0.002)
	BlzFrameSetSize(new_FrameCharges, 0.012, 0.012)
	BlzFrameSetTexture(new_FrameCharges, "ChargesTexture.blp", 0, true)
	BlzFrameSetPoint(new_FrameChargesText, FRAMEPOINT_CENTER, new_FrameCharges, FRAMEPOINT_CENTER, 0.,0.)
	BlzFrameSetVisible(new_FrameCharges, false)
	BlzFrameSetText(new_FrameChargesText, "0")

	BlzFrameSetPoint(new_Frame, frame_point_from, relative_frame, frame_point_to, offset_x, offset_y)
	BlzFrameSetSize(new_Frame, size_x, size_y)
	BlzFrameSetTexture(new_FrameImage, texture, 0, true)
	BlzFrameSetAllPoints(new_FrameImage, new_Frame)

	return new_Frame
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 26.04.2020 2:44
function CreateAndStartClock()

	local charges= BlzCreateFrameByType("BACKDROP", "Face", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
	local new_FrameChargesText = BlzCreateFrameByType("TEXT", "ButtonChargesText", charges, "", 0)

	BlzFrameSetTexture(charges, "ChargesTexture.blp", 0, true)
	BlzFrameSetSize(charges, 0.08, 0.02)
	BlzFrameSetAbsPoint(charges, FRAMEPOINT_CENTER,0.4+0.02 , 0.6-0.02)
	--BlzFrameSetPoint(charges, FRAMEPOINT_BOTTOM, wood, FRAMEPOINT_BOTTOM, 0,0)
	BlzFrameSetText(new_FrameChargesText, Zero(0)..":"..Zero(0)..":"..Zero(0))
	BlzFrameSetPoint(new_FrameChargesText, FRAMEPOINT_CENTER, charges, FRAMEPOINT_CENTER, 0.,0.)
	local sec=0
	local min=0
	local h=0
	TimerStart(CreateTimer(), 1, true, function()
		sec=sec+1
		if sec==60 then
			sec=0
			min=min+1
		end
		if min==60 then
			min=0
			h=h+1
		end

		BlzFrameSetText(new_FrameChargesText, Zero(h)..":"..Zero(min)..":"..Zero(sec))
	end)
end

function Zero(s)
	local ns=""
	if string.len(s)==1 then
		ns="0"..s
	else
		ns=s
	end
	return ns
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 04.05.2020 2:22
---
function InitCDSystem()
	if not BlzLoadTOCFile("war3mapimported\\myBar.toc") then
			print("warning")
	end
end


function StartFrameCD(cd,data,index)
	local amount=5/cd

	local fh=data.ReloadIco[index]

	if not fh then
	--	print("error Не могу перезарядить фрейм, так как его нет")
		return

	end

	local full=0

	TimerStart(CreateTimer(), 0.05, true, function()
		full=full+amount
		BlzFrameSetValue(fh, full)
		if full>=100 then
			DestroyTimer(GetExpiredTimer())
			full=0
		end
	end)
end

---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 03.04.2020 2:31
---



function HideEverything()
	BlzHideOriginFrames(true)
	BlzEnableUIAutoPosition ( false )

	local GAME_UI     = BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0)
	local WORLD_FRAME = BlzGetOriginFrame(ORIGIN_FRAME_WORLD_FRAME, 0)
	BlzFrameSetAllPoints(WORLD_FRAME, GAME_UI)
	--BlzFrameSetVisible(BlzGetFrameByName("ConsoleUIBackdrop",0), false)

		--	// Hide Inventory Cover
	BlzFrameSetAlpha(BlzGetFrameByName("SimpleInventoryCover", 0), 0)

			--// Show Minimap
	 BlzFrameSetVisible(BlzGetOriginFrame(ORIGIN_FRAME_MINIMAP, 0),false)


		--	// Show Inventory, without unitInfo
	 BlzFrameSetVisible(BlzFrameGetParent(BlzGetOriginFrame(ORIGIN_FRAME_ITEM_BUTTON, 0)), true)
			--// Show UnitInfos parent to show inventory and unit info
	--BlzFrameSetVisible(BlzFrameGetParent(BlzGetFrameByName("SimpleInfoPanelUnitDetail",0)),true) --Панель юнита
			--// Show Hero Icons at the left top of the screen
	 BlzFrameSetVisible(BlzGetOriginFrame(ORIGIN_FRAME_HERO_BAR,0), false)
		--	//  //Quests, Menu, Allies, Log
	BlzFrameSetVisible(BlzGetFrameByName("UpperButtonBarFrame",0),true)
	BlzFrameClearAllPoints(BlzGetFrameByName("UpperButtonBarFrame",0))
	--// //Gold, Lumber, food and Upkeep; also enables /fps /ping /apm
	 BlzFrameSetVisible(BlzGetFrameByName("ResourceBarFrame",0),true)


	--Вернуть F10
	local f10=BlzGetOriginFrame(ORIGIN_FRAME_SYSTEM_BUTTON, 0)--не не работает
	BlzFrameSetVisible(f10, true)
	BlzFrameClearAllPoints(f10)
	BlzFrameSetAbsPoint(f10, FRAMEPOINT_CENTER, 0.65 ,0.58)
	BlzFrameClearAllPoints(BlzGetOriginFrame(ORIGIN_FRAME_SYSTEM_BUTTON, 1)) --отрыв других кнопок меню
	BlzFrameClearAllPoints(BlzGetOriginFrame(ORIGIN_FRAME_SYSTEM_BUTTON, 2)) --

	BlzFrameSetVisible(BlzGetFrameByName("ConsoleUIBackdrop", 0), false)-- черная рамка
	BlzFrameSetAbsPoint(BlzGetFrameByName("ConsoleUI",0), FRAMEPOINT_BOTTOMLEFT, 0.0 ,0.2) --для смещения бага некликабельности в нижнем правом углу

	BlzFrameSetAbsPoint(BlzGetOriginFrame(ORIGIN_FRAME_CHAT_MSG, 0), FRAMEPOINT_BOTTOMLEFT, 0.1 ,0.15)
	BlzFrameSetAbsPoint(BlzGetOriginFrame(ORIGIN_FRAME_UNIT_MSG, 0), FRAMEPOINT_BOTTOMLEFT, 0.15 ,0.05)

	BlzFrameSetVisible(BlzGetOriginFrame(ORIGIN_FRAME_PORTRAIT, 0), true)

	local fps=BlzGetFrameByName("ResourceBarFrame",0)
	BlzFrameClearAllPoints(fps)
	--BlzFrameSetAbsPoint(fps, FRAMEPOINT_CENTER, 0.9 ,0.61)

	local infoPanel=BlzFrameGetParent(BlzGetFrameByName("SimpleInfoPanelUnitDetail",0)) -- панель стат героя
	BlzFrameClearAllPoints(infoPanel)
	BlzFrameSetVisible(infoPanel,true)
	BlzFrameSetAbsPoint(infoPanel, FRAMEPOINT_CENTER, 0.115 ,0.625) --0,9 чтобы полностью убрать
	--убираем всю инфопанель кроме статуса
	BlzFrameSetAbsPoint(BlzGetFrameByName("InfoPanelIconHeroStrengthLabel",6), FRAMEPOINT_CENTER, 0.9 ,5)
	BlzFrameSetAbsPoint(BlzGetFrameByName("InfoPanelIconHeroStrengthValue",6), FRAMEPOINT_CENTER, 0.9 ,5)
	BlzFrameSetAbsPoint(BlzGetFrameByName("InfoPanelIconHeroIntellectLabel",6), FRAMEPOINT_CENTER, 0.9 ,5)
	BlzFrameSetAbsPoint(BlzGetFrameByName("InfoPanelIconHeroIntellectValue",6), FRAMEPOINT_CENTER, 0.9 ,5)
	BlzFrameSetAbsPoint(BlzGetFrameByName("InfoPanelIconHeroAgilityLabel",6), FRAMEPOINT_CENTER, 0.9 ,5)
	BlzFrameSetAbsPoint(BlzGetFrameByName("InfoPanelIconHeroAgilityValue",6), FRAMEPOINT_CENTER, 0.9 ,5)
	BlzFrameSetAbsPoint(BlzGetFrameByName("InfoPanelIconBackdrop",0), FRAMEPOINT_CENTER, 0.9 ,0.9)
	BlzFrameSetAbsPoint(BlzGetFrameByName("InfoPanelIconBackdrop",1), FRAMEPOINT_CENTER, 0.9 ,0.9)
	BlzFrameSetAbsPoint(BlzGetFrameByName("InfoPanelIconBackdrop",2), FRAMEPOINT_CENTER, 0.9 ,0.9)
	BlzFrameSetAbsPoint(BlzGetFrameByName("InfoPanelIconBackdrop",3), FRAMEPOINT_CENTER, 0.9 ,0.9)
	BlzFrameSetAbsPoint(BlzGetFrameByName("InfoPanelIconBackdrop",4), FRAMEPOINT_CENTER, 0.9 ,0.9)
	BlzFrameSetAbsPoint(BlzGetFrameByName("InfoPanelIconBackdrop",5), FRAMEPOINT_CENTER, 0.9 ,0.9)


	--FrameGe



	--BlzFrameSetVisible(BlzGetFrameByName("SimpleBuildTimeIndicator",0),false)
	--BlzFrameSetVisible(BlzGetOriginFrame(ORIGIN_FRAME_UNIT_PANEL_BUFF_BAR , 0), false)
	--
	--ORIGIN_FRAME_TOP_MSG
	--ПРЕДЕТЫ но не работают
	local InvBackdrop = {}
	local InfoBackdrop     = BlzCreateFrame('Steel-Backdrop', WORLD_FRAME, 0, 0)
	for i = 0, 5 do
		--[[InvBackdrop[i] = BlzCreateFrame('Item-Backdrop', WORLD_FRAME, 0, 0)
		BlzFrameSetSize(InvBackdrop[i], 0.034, 0.034)
		if i == 0 then
			BlzFrameSetPoint(InvBackdrop[i], FRAMEPOINT_TOPLEFT, InfoBackdrop, FRAMEPOINT_TOPRIGHT, 0, 0)
		elseif i < 2 then
			BlzFrameSetPoint(InvBackdrop[i], FRAMEPOINT_LEFT, InvBackdrop[i - 1], FRAMEPOINT_RIGHT, -0.001, 0)
		else
			BlzFrameSetPoint(InvBackdrop[i], FRAMEPOINT_TOP, InvBackdrop[i - 2], FRAMEPOINT_BOTTOM, 0, 0.001)
		end]]
		local item = BlzGetOriginFrame(ORIGIN_FRAME_ITEM_BUTTON, i)
		BlzFrameSetVisible(item, true)
		BlzFrameClearAllPoints(item)
		BlzFrameSetSize(item, 0.026, 0.026)
		BlzFrameSetAbsPoint(item, FRAMEPOINT_CENTER, 0.095+0.026*i ,0.54)
	end

	BlzFrameClearAllPoints(BlzGetOriginFrame(ORIGIN_FRAME_UBERTOOLTIP, 0)) -- ПОдсказка при наведении на дефолт фреймы
	BlzFrameSetAbsPoint(BlzGetOriginFrame(ORIGIN_FRAME_UBERTOOLTIP, 0), FRAMEPOINT_CENTER, 0.2 ,0.45)



	for i = 1,11 do
		BlzFrameSetVisible(BlzGetFrameByName("CommandButton_"..i, 0), false)
	end
	BlzFrameSetSize(BlzGetFrameByName("CommandButton_0", 0),0,0)--сколлапсировал в точку
end

function HealthBarAdd(u) --Код Сиренчика
	BlzLoadTOCFile("Main.toc")
	local bar = BlzCreateSimpleFrame("MyFakeBar", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), 0)
	BlzFrameSetVisible(bar,false)

	--Моделька пеона же


	if GetLocalPlayer()==GetOwningPlayer(u) and GetLocalON then -- хп бары, они точно в норме
		BlzFrameSetVisible(bar,true)
		--BlzFrameSetVisible(heroico,true)
	end
	BlzFrameSetTexture(bar, "Replaceabletextures\\Teamcolor\\Teamcolor0"..(GetConvertedPlayerId(GetOwningPlayer(u))-1)..".blp", 0, true)
	BlzFrameSetTexture(BlzGetFrameByName("MyFakeBarBorder",0),"MyBarBorder.blp", 0, true)
	BlzFrameSetText(BlzGetFrameByName("MyFakeBarTitle",0), GetHeroProperName(u).." ‡")--‡ Сердце ™ щит
	local lefttext = BlzGetFrameByName("MyFakeBarLeftText",0)
	local righttext = BlzGetFrameByName("MyFakeBarRightText",0)
	local function on_timer()

		BlzFrameSetValue(bar, GetUnitLifePercent(u))
		BlzFrameSetText(lefttext, R2I(GetWidgetLife(u)))
		BlzFrameSetText(righttext, R2I(BlzGetUnitMaxHP(u)))
	end
	TimerStart(CreateTimer(),0.5,true, on_timer)
	BlzFrameSetAbsPoint(bar, FRAMEPOINT_LEFT, 0.08, 0.564)
end
GTotalWood=0
Ending=false
function CreateWoodFrame ()
	BlzLoadTOCFile("war3mapimported\\BoxedText.toc")
	local wood=BlzCreateFrameByType("BACKDROP", "Face", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
	BlzFrameSetTexture(wood, "ReplaceableTextures\\CommandButtons\\BTNHumanLumberUpgrade2", 0, true)
	BlzFrameSetSize(wood, 0.04, 0.04)
	BlzFrameSetAbsPoint(wood, FRAMEPOINT_CENTER,0.8-0.02 , 0.6-0.02)--0.2



	local faceHover = BlzCreateFrameByType("FRAME", "FaceFrame", wood,"", 0) --face is a BACKDROP it can not have events nor a tooltip, thats why one creates an empty frame managing that.
	local tooltip = BlzCreateFrame("BoxedText", wood, 0, 0)--Create the BoxedText Frame
	local UpDest=BlzGetFrameByName("BoxedTextValue", 0)
	BlzFrameSetAllPoints(faceHover, wood) --faceHover copies the size and position of face.
	BlzFrameSetTooltip(faceHover, tooltip) --when faceHover is hovered with the mouse frame tooltip becomes visible.
	BlzFrameSetAbsPoint(tooltip, FRAMEPOINT_CENTER,0.8-0.13, 0.6)
	BlzFrameSetSize(tooltip, 0.18, 0.20)
	if BlzGetLocale()=="ruRU" then
		BlzFrameSetText(BlzGetFrameByName("BoxedTextTitle", 0), "|cffffff00".."Общая древесина".."|r")
		BlzFrameSetText(UpDest, "Количество древесины, необходимое для постройки корабля и победы. Потеря лесопилки приведёт к поражению всех игроков")
	else
		BlzFrameSetText(BlzGetFrameByName("BoxedTextTitle", 0), "Total Wood")
		BlzFrameSetText(UpDest, "The amount of wood required to build a ship. Losing a sawmill will defeat all players")
	end

	local charges= BlzCreateFrameByType("BACKDROP", "Face", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
	local new_FrameChargesText = BlzCreateFrameByType("TEXT", "ButtonChargesText", charges, "", 0)

	BlzFrameSetTexture(charges, "ChargesTexture.blp", 0, true)
	BlzFrameSetSize(charges, 0.04, 0.012)
	BlzFrameSetAbsPoint(charges, FRAMEPOINT_CENTER,0.8-0.02 , 0.6-0.04)
	--BlzFrameSetPoint(charges, FRAMEPOINT_BOTTOM, wood, FRAMEPOINT_BOTTOM, 0,0)

	BlzFrameSetPoint(new_FrameChargesText, FRAMEPOINT_CENTER, charges, FRAMEPOINT_CENTER, 0.,0.)

	TimerStart(CreateTimer(), 0.1, true, function()
		BlzFrameSetText(new_FrameChargesText, ""..GTotalWood.."/"..LumberToWin)
	end)

end
function CreateShipFrame ()
	BlzLoadTOCFile("war3mapimported\\BoxedText.toc")
	local wood=BlzCreateFrameByType("BACKDROP", "Face", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
	BlzFrameSetTexture(wood, "ReplaceableTextures\\CommandButtons\\BTNJuggernaut", 0, true)
	BlzFrameSetSize(wood, 0.04, 0.04)
	BlzFrameSetAbsPoint(wood, FRAMEPOINT_CENTER,0.8-0.02-0.04 , 0.6-0.02)--0.2



	local faceHover = BlzCreateFrameByType("FRAME", "FaceFrame", wood,"", 0) --face is a BACKDROP it can not have events nor a tooltip, thats why one creates an empty frame managing that.
	local tooltip = BlzCreateFrame("BoxedText", wood, 0, 0)--Create the BoxedText Frame
	local UpDest=BlzGetFrameByName("BoxedTextValue", 0)
	BlzFrameSetAllPoints(faceHover, wood) --faceHover copies the size and position of face.
	BlzFrameSetTooltip(faceHover, tooltip) --when faceHover is hovered with the mouse frame tooltip becomes visible.
	BlzFrameSetAbsPoint(tooltip, FRAMEPOINT_CENTER,0.8-0.13-0.04, 0.6)
	BlzFrameSetSize(tooltip, 0.18, 0.18)
	BlzFrameSetText(BlzGetFrameByName("BoxedTextTitle", 0), "Хп корабля")
	BlzFrameSetText(UpDest, "Корабль получился бракованным и нуждается в ремонте, отправляйтесь на запад и помогите своему Королю")
	if BlzGetLocale()~="ruRU" then
		BlzFrameSetText (UpDest, "The ship is defective and needs repair, go west and help your King")
	end
	local charges= BlzCreateFrameByType("BACKDROP", "Face", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
	local new_FrameChargesText = BlzCreateFrameByType("TEXT", "ButtonChargesText", charges, "", 0)

	BlzFrameSetTexture(charges, "ChargesTexture.blp", 0, true)
	BlzFrameSetSize(charges, 0.04, 0.012)
	BlzFrameSetAbsPoint(charges, FRAMEPOINT_CENTER,0.8-0.02-0.04 , 0.6-0.04)
	--BlzFrameSetPoint(charges, FRAMEPOINT_BOTTOM, wood, FRAMEPOINT_BOTTOM, 0,0)

	BlzFrameSetPoint(new_FrameChargesText, FRAMEPOINT_CENTER, charges, FRAMEPOINT_CENTER, 0.,0.)
	local ship=FindUnitOfType(FourCC('o007'))
	TimerStart(CreateTimer(), 0.1, true, function()
		BlzFrameSetText(new_FrameChargesText, R2I(GetUnitLifePercent(ship)).."/100")
	end)

end
LumberToWin=250
function MoveWoodAsFarm(hero,k)
	AddHeroXP(hero,70*k,true)
	local wood=BlzCreateFrameByType("BACKDROP", "Face", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
	BlzFrameSetVisible(wood,false)
	if GetLocalPlayer()==GetOwningPlayer(hero) and GetLocalON  then -- момент перемещения дерева, проверено - не он
		BlzFrameSetVisible(wood,true)
	end
	BlzFrameSetTexture(wood, "ReplaceableTextures\\CommandButtons\\BTNHumanLumberUpgrade2", 0, true)
	BlzFrameSetSize(wood, 0.02, 0.02)
	local x,y=0.4 , 0.3
	BlzFrameSetAbsPoint(wood, FRAMEPOINT_CENTER, x , y)
	local speed=0.01
	local dist=0
	TimerStart(CreateTimer(), TIMER_PERIOD, true, function()
		dist=dist+speed
		--print("dist")
		local nx,ny=MoveXY(x,y,dist,45)
		if ny>=0.6-0.04 then
			ny=0.6-0.04
		end
		BlzFrameSetAbsPoint(wood, FRAMEPOINT_CENTER, nx, ny)
		if nx>=0.8 then
			BlzDestroyFrame(wood)
			DestroyTimer(GetExpiredTimer())
			PlaySoundAtPointBJ( gg_snd_Load, 100, RemoveLocation(Location(GetUnitXY(hero))), 0 )
			GTotalWood=GTotalWood+k



			if GTotalWood==50 or GTotalWood==51  then--or GTotalWood==1
				HERO[0].Perk17=true
				HERO[1].Perk17=true
				HERO[2].Perk17=true
				HERO[3].Perk17=true
				--if GetLocalPlayer()==GetOwningPlayer(hero) then
				PerkUnlocker(HERO[0],17)
				PerkUnlocker(HERO[1],17)
				PerkUnlocker(HERO[2],17)
				PerkUnlocker(HERO[3],17)
				--end
			end
			--print(GTotalWood)
			if GTotalWood==LumberToWin or GTotalWood==LumberToWin+1  then--or GTotalWood==1
				--print("Победа, дерево собрано!")
				--print("Система: Древисины достаточно, отправляйтесь строить корабль")
				if BlzGetLocale()=="ruRU" then
					print("|cff8080ffКороль пеонов: |r".."Древесины достаточно, отправляйтесь ремонтировать корабль")
				else
					print("|cff8080ffPeon King: |r".."Wood is enough, go repair ship")
				end
				QuestMessageBJ(GetPlayersAll(), bj_QUESTMESSAGE_COMPLETED, " ")
				GTotalWood=GTotalWood-LumberToWin
				local new=BlzCreateUnitWithSkin(Player(5), FourCC("o007"), -4935.0, 809.5, 176.590, FourCC("o007"))
				AddQuest(true,HERO[0].UnitHero,-4935.0,809.5)
				AddQuest(true,HERO[1].UnitHero,-4935.0,809.5)
				AddQuest(true,HERO[2].UnitHero,-4935.0,809.5)
				AddQuest(true,HERO[3].UnitHero,-4935.0,809.5)
				CreateShipFrame()
				Normadia()
				Ending=true

				SetUnitLifePercentBJ(new,10)
				TimerStart(CreateTimer(), 1, true, function()
					--print("осталось хп"..GetLosingHP(new))
					if GetLosingHP(new)<=5 then
						if UnitAlive(new) then
							CustomVictoryDialogBJ(Player(0))
							CustomVictoryDialogBJ(Player(1))
							CustomVictoryDialogBJ(Player(2))
							CustomVictoryDialogBJ(Player(3))
						else
							CustomDefeatBJ(Player(0),"Вы проиграли")
							CustomDefeatBJ(Player(1),"Вы проиграли")
							CustomDefeatBJ(Player(2),"Вы проиграли")
							CustomDefeatBJ(Player(3),"Вы проиграли")
						end
					end
				end)
				local hodor=FindUnitOfType(FourCC("O004"))
				IssueTargetOrder(hodor,"repair",new)
				IssueImmediateOrder(hodor,"repairon")
			end
		end
	end)

end







function TestFrame()
	--print("isstart")
end

FrameSelecter={}
function VisualUnlock()
	TimerStart(CreateTimer(),10,true, function()
		for k=0,3 do
			for i=1,#Name do
				local data=HERO[k]
				if BlzFrameIsVisible(data.VisualSelectorFrame[i]) then
					--BlzFrameSetVisible(FrameSelecter[i],false)
					BlzFrameSetVisible(data.VisualSelectorFrame[i],false)
				end
			end
		end
	end)
end

--удалил старый блок

function CreateMouseHelper()
	local wood=BlzCreateFrameByType("BACKDROP", "Face", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
	BlzFrameSetTexture(wood, "RMB", 0, true)
	BlzFrameSetSize(wood, 0.15, 0.15)
	BlzFrameSetAbsPoint(wood, FRAMEPOINT_CENTER,0.1 , 0.4)
	local new_FrameChargesText = BlzCreateFrameByType("TEXT", "ButtonChargesText", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
	BlzFrameSetAbsPoint(new_FrameChargesText, FRAMEPOINT_CENTER,0.1 , 0.31)
	BlzFrameSetText(new_FrameChargesText, "Hold LMB - Actions")

	local new_FrameChargesText2 = BlzCreateFrameByType("TEXT", "ButtonChargesText", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
	BlzFrameSetAbsPoint(new_FrameChargesText2, FRAMEPOINT_CENTER,0.1 , 0.17)
	BlzFrameSetText(new_FrameChargesText2, "Use WASD for moving")

	local new_FrameChargesText3 = BlzCreateFrameByType("TEXT", "ButtonChargesText", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
	BlzFrameSetAbsPoint(new_FrameChargesText3, FRAMEPOINT_CENTER,0.1 , 0.29)
	BlzFrameSetText(new_FrameChargesText3, "Hold RMB - Shield")

	local wasd=BlzCreateFrameByType("BACKDROP", "Face", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
	BlzFrameSetTexture(wasd, "WASD", 0, true)
	BlzFrameSetSize(wasd, 0.10, 0.10)
	BlzFrameSetAbsPoint(wasd, FRAMEPOINT_CENTER,0.1 , 0.25)


	TimerStart(CreateTimer(), 1, true, function()
		for i=0,3 do
			local data=HERO[i]
			if data.MHoldSec >=5  and data.MHoldSec <=9  then
				if GetLocalPlayer()==Player(i) and GetLocalON  then -- маусхелпер 1 раз вначале
					BlzFrameSetVisible(wood,false)
					BlzFrameSetVisible(new_FrameChargesText,false)
					BlzFrameSetVisible(wasd,false)
					BlzFrameSetVisible(new_FrameChargesText2,false)
					BlzFrameSetVisible(new_FrameChargesText3,false)
				end
			end
		end
	end)
end

StatusTexture={
	"ReplaceableTextures\\CommandButtons\\BTNGatherGold",
	"ReplaceableTextures\\CommandButtons\\BTNHumanArmorUpOne",
}

function CreateStatusBar(pid)
	local data=HERO[pid]
	local statustxt={}
	for i=1,2 do
		local status=BlzCreateFrameByType("BACKDROP", "Face", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
		BlzFrameSetTexture(status, StatusTexture[i], 0, true)
		BlzFrameSetSize(status, 0.019, 0.019)
		BlzFrameSetAbsPoint(status, FRAMEPOINT_LEFT,0.08+0.02*(i-1) , 0.6-0.04)
		statustxt[i] = BlzCreateFrameByType("TEXT", "ButtonChargesText", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
		BlzFrameSetPoint(statustxt[i], FRAMEPOINT_CENTER,status,FRAMEPOINT_CENTER,0, 0)

		if GetLocalPlayer() ~= Player(pid) and GetLocalON then -- статус бар, вылетало и до него
			BlzFrameSetVisible(status, false)
			BlzFrameSetVisible(statustxt[i], false)
		end

	end

	TimerStart(CreateTimer(), 1, true, function()
		local d=R2I(BlzGetUnitBaseDamage(data.UnitHero,0))
		BlzFrameSetText(statustxt[1], d)
		if not data.Perk14A then
			BlzFrameSetText(statustxt[2], 50)
		else
			BlzFrameSetText(statustxt[2], 100)
		end
	end)

	--обновление текстаз

end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 27.04.2020 3:12




function ButtonPress()
	local this = CreateTrigger()

	for i = 1, 4 do
		TriggerRegisterDialogEventBJ(this, LangDialog[i])
	end

	TriggerAddAction(this, function()
		--print("нажата кнопка диалога")
		local pid=GetPlayerId(GetTriggerPlayer())
		if GetClickedButton()==ButtonRU[pid] then
			--print("11111")
			print(GetPlayerName(GetTriggerPlayer()).."Выбрал русский "..BlzGetLocale())
			PerkButtonLineNonLocal(pid,0)

		end
		if GetClickedButton()==ButtonENG[pid] then
			--print("22222")
			print(GetPlayerName(GetTriggerPlayer()).." Chose english "..BlzGetLocale())
			HERO[pid].Lang=1
			PerkButtonLineNonLocal(pid,1)
		end
		--CreateMouseHelperNEW(pid)
	end)
end

LangDialog ={DialogCreate(),DialogCreate(),DialogCreate(),DialogCreate()}

ButtonRU={}
ButtonENG={}

function CreateLanguageDialog()
	--print("init")
	for i=0,3 do
		ButtonRU[i]=DialogAddButtonBJ(LangDialog[i+1], "Русский")
		ButtonENG[i]=DialogAddButtonBJ(LangDialog[i+1], "English")
		DialogSetMessageBJ(LangDialog[i+1], "Language?")
		DialogDisplayBJ(true, LangDialog[i+1], Player(i))
		--print("i="..i)
	end
end

---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 27.04.2020 16:50
---
function CreateMouseHelperNEW(pid)
	local data=HERO[pid]
	local Mouse=BlzCreateFrameByType("BACKDROP", "Face", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
	BlzFrameSetTexture(Mouse, "RMB", 0, true)
	BlzFrameSetSize(Mouse, 0.15, 0.15)
	BlzFrameSetAbsPoint(Mouse, FRAMEPOINT_CENTER,0.1 , 0.4)

	--[[local new_FrameChargesText = BlzCreateFrameByType("TEXT", "ButtonChargesText", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
	BlzFrameSetAbsPoint(new_FrameChargesText, FRAMEPOINT_CENTER,0.1 , 0.31)
	BlzFrameSetText(new_FrameChargesText, "Удержание ЛКМ - действие")

	local new_FrameChargesText2 = BlzCreateFrameByType("TEXT", "ButtonChargesText", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
	BlzFrameSetAbsPoint(new_FrameChargesText2, FRAMEPOINT_CENTER,0.1 , 0.17)
	BlzFrameSetText(new_FrameChargesText2, "Используйте кнопки WASD, для движения")

	local new_FrameChargesText3 = BlzCreateFrameByType("TEXT", "ButtonChargesText", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
	BlzFrameSetAbsPoint(new_FrameChargesText3, FRAMEPOINT_CENTER,0.1 , 0.29)
	BlzFrameSetText(new_FrameChargesText3, "Удержание ПКМ - щит")

	local wasd=BlzCreateFrameByType("BACKDROP", "Face", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
	BlzFrameSetTexture(wasd, "WASD", 0, true)
	BlzFrameSetSize(wasd, 0.10, 0.10)
	BlzFrameSetAbsPoint(wasd, FRAMEPOINT_CENTER,0.1 , 0.25)]]

	if GetLocalPlayer() ~= Player(pid) and GetLocalON  then -- включение маусхелпера
		BlzFrameSetVisible(Mouse, false)
	end
	--updater
	TimerStart(CreateTimer(), 1, true, function()
		--if data.
	end)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 26.04.2020 23:44
texture = {
	"ReplaceableTextures\\CommandButtons\\BTNPeasant",
	"ReplaceableTextures\\CommandButtons\\btnchaospeon",
	"ReplaceableTextures\\CommandButtons\\BTNGoblinSapper",
	"ReplaceableTextures\\CommandButtons\\BTNBoots",
	"ReplaceableTextures\\CommandButtons\\BTNBloodLust",
	"ReplaceableTextures\\CommandButtons\\BTNStormBolt",
	"ReplaceableTextures\\CommandButtons\\BTNAbomination", --пудж
	"ReplaceableTextures\\CommandButtons\\BTNKotoBeast",
	"btngathergold",
	"ReplaceableTextures\\CommandButtons\\BTNEngineeringUpgrade", -- техника безопасности
	"ReplaceableTextures\\PassiveButtons\\PASBTNDemolish",
	"ReplaceableTextures\\PassiveButtons\\PASBTNFrost",
	"ReplaceableTextures\\CommandButtons\\BTNTimberWolf",
	"ReplaceableTextures\\CommandButtons\\BTNResistantSkin",
	"ReplaceableTextures\\CommandButtons\\BTNPlagueCloud",
	"ReplaceableTextures\\CommandButtons\\BTNOrbOfFire",
	"ReplaceableTextures\\CommandButtons\\BTNHumanArmorUpThree",
}

--"ReplaceableTextures\\CommandButtonsDisabled\\DISBTNHumanArmorUpThree"

DISBTNTexture = {
	"ReplaceableTextures\\CommandButtonsDisabled\\DISBTNPeasant",
	"ReplaceableTextures\\CommandButtonsDisabled\\DISBTNPeon",
	"ReplaceableTextures\\CommandButtonsDisabled\\DISBTNGoblinSapper",
	"ReplaceableTextures\\CommandButtonsDisabled\\DISBTNBoots",
	"ReplaceableTextures\\CommandButtonsDisabled\\DISBTNBloodLust",
	"ReplaceableTextures\\CommandButtonsDisabled\\DISBTNStormBolt",
	"ReplaceableTextures\\CommandButtonsDisabled\\DISBTNAbomination", --пудж
	"ReplaceableTextures\\CommandButtonsDisabled\\DISBTNKotoBeast",
	"disbtngathergold", -- кирка
	"ReplaceableTextures\\CommandButtonsDisabled\\DISBTNEngineeringUpgrade", -- техника безопасности
	"ReplaceableTextures\\CommandButtonsDisabled\\DISPASBTNDemolish",
	"ReplaceableTextures\\CommandButtonsDisabled\\DISPASBTNFrost",
	"ReplaceableTextures\\CommandButtonsDisabled\\DISBTNTimberWolf",
	"ReplaceableTextures\\CommandButtonsDisabled\\DISBTNResistantSkin",
	"ReplaceableTextures\\CommandButtonsDisabled\\DISBTNPlagueCloud",
	"ReplaceableTextures\\CommandButtonsDisabled\\DISBTNOrbOfFire",
	"ReplaceableTextures\\CommandButtonsDisabled\\DISBTNHumanArmorUpThree",
}
Name = { --Определяет количество талантов
	"Работник месяца",
	"Бунтовщик",
	"Поблажка",
	"Лесной Болван",
	"Вкус крови",
	"Ученик Тора",
	"Ожирение",
	"Толстокожий друг",
	"Калёная кирка", --9
	"Правила ТБ",
	"Технологии людей",
	"Ледяной щит",
	"Шапка волка",
	"Каменный Щит",
	"Овечья болезь",
	"Сфера огра",
	"Рывок", --17
}
NameENG = { --Определяет количество талантов
	"Best Employee",
	"Insurgent",
	"law of death",
	"Forest Gump",
	"First Blood",
	"Thor's apprentice",
	"Obesity 0 degree",
	"Thick-skinned",
	"Hot pickaxe", --9
	"Safe work",
	"Technology people",
	"Ice Shield",
	"Wolf cap",
	"Stone Shield",
	"Sheep disease",
	"Ogre Orb",
	"Dash", --17
}
description = {
	"Принесите 25 дерева, чтобы удвоить его добычу. ",
	"Ничего не делайте, чтобы поднять бунт. ",
	"Умрите 15 раз, чтобы получить +200 к здоровью. ",
	"Пробегите расстояние в 200000 метров, чтобы стать на 50%% быстрее. ",
	"Убивайте врагов, чтобы увеличить свой урон в 2 раза. ",
	"Почините здания на 1000 единиц, чтобы замедлять врагов при ударе. ",
	"Исцелитесть в объёме 1000 ед, чтобы получить +7 к регенерации. ",
	"Приручите кодоя, чтобы получить 10 ед брони. ",
	"Накалите кирку до красна, чтобы увеличить урон в 5 раз. ",
	"Донесите дерево с полным здоровьем, чтобы обучиться парированию. ",
	"Сломайте лесопилку людей, чтобы получить ауру ремонта зданий. ",
	"Пробудьте на холоде, чтобы заморозить щит. ",
	"Убивайте волков, чтобы получить шапку волка. ",
	"Поймайте щитом камни големов, чтобы улучшить щит. ",
	"Убивайте или умирайте от овец, чтобы заболеть взрывной болезнью. ",
	"Найдите сферу, чтобы научиться метать огненные шары. ",
	"Соберите командой более 50 древесины, чтобы изучить рывок. ",
}
descriptionENG = {
	"Bring 25 trees to double its production. ",
	"Do nothing to raise a riot. ",
	"Die 15 times to get +200 health. ",
	"Run a distance of 200000 meters to become 50%% faster. ",
	"Kill enemies to increase your damage by 2 times. ",
	"Repair buildings for 1000 points to slow down enemies on impact. ",
	"Heals a 1000 points charge to get +7 regeneration. ",
	"Tame Kodo to get 10 points of armor. ",
	"Heat the pickaxe to red to increase the damage by 5 times. ",
	"Carry a tree with full health to learn how to parry. ",
	"Break down people's sawmill to get the aura of building repairs. ",
	"Stay out in the cold to freeze the shield. ",
	"Kill wolves to get the wolf cap. ",
	"Catch Golem stones with your shield (hold RMB) to improve your shield. ",
	"Kill or die from sheep to get an explosive disease. ",
	"Find a sphere to learn how to throw fireballs. ",
	"Gather a team of more than 50 pieces of wood to learn the snatch. ",
}

function PerkButtonLineNonLocal(k, lang)
	if BlzGetLocale() ~= "ruRU" then
		lang = 1
	else
		lang = 0
	end
	--lang = 0 -- раскомментить чтобы активировать только русский
	BlzLoadTOCFile("war3mapimported\\BoxedText.toc")
	local next = 0.039
	--print("start")
	--for k = 0, 3 do
	local data = HERO[k]

	--Иконка пеона
	if false then
		local heroico = BlzCreateSimpleFrame("MyBar", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), 0)
		BlzFrameSetSize(heroico, 0.04, 0.04)
		BlzFrameSetAbsPoint(heroico, FRAMEPOINT_LEFT, 0.04, 0.6 - 0.03)
		BlzFrameSetVisible(heroico, true)
		BlzFrameSetValue(heroico, 100)
		local cdtext1 = BlzGetFrameByName("MyBarText", 0)
		BlzFrameSetText(cdtext1, "")
		local cdICO1 = BlzGetFrameByName("MyBarBackground", 0)
		BlzFrameSetTexture(cdICO1, "ReplaceableTextures\\CommandButtons\\btnchaospeon", 0, true) --красная
		BlzFrameSetTexture(heroico, "ReplaceableTextures\\CommandButtons\\BTNPeon", 0, true) -- зелёная
		data.HeroIco = heroico
	end

	local Portrait = BlzGetOriginFrame(ORIGIN_FRAME_PORTRAIT, 0)
	BlzFrameClearAllPoints(Portrait)
	BlzFrameSetAbsPoint(Portrait, FRAMEPOINT_LEFT, 0.13, 0.6 - 0.04)
	BlzFrameSetSize(Portrait, 0.03, 0.03)

	if GetLocalPlayer() ~= Player(k) and GetLocalON then
		BlzFrameSetVisible(heroico, false)
	end

	for i = 1, #Name do
		-- число талантов
		--print(i.." "..k.."создаём фрейм")
		local face = BlzCreateFrameByType("GLUEBUTTON", "FaceButton", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
		BlzFrameSetAbsPoint(face, FRAMEPOINT_CENTER, 0.1 + next * (i - 1), 0.02)
		BlzFrameSetSize(face, 0.04, 0.04)
		--local buttonIconFrame = BlzCreateFrameByType("BACKDROP", "FaceButtonIcon", face, "", 0)
		local buttonIconFrame = BlzCreateSimpleFrame("MyBar", face, 0)
		BlzFrameSetAllPoints(buttonIconFrame, face)
		--BlzFrameSetTexture(buttonIconFrame, texture[i], 0, true)
		local faceHover = BlzCreateFrameByType("FRAME", "FaceFrame", face, "", 0)
		local tooltip = BlzCreateFrame("BoxedText", face, 0, 0)
		local UpDest = BlzGetFrameByName("BoxedTextValue", 0)
		BlzFrameSetAllPoints(faceHover, face)
		BlzFrameSetTooltip(faceHover, tooltip)
		BlzFrameSetPoint(tooltip, FRAMEPOINT_BOTTOM, face, FRAMEPOINT_TOP, 0.0, 0.0)
		BlzFrameSetSize(tooltip, 0.15, 0.08)
		BlzFrameSetText(BlzGetFrameByName("BoxedTextTitle", 0), "|cffffff00" .. Name[i] .. "|r") --|cffffff00AAAA|r
		BlzFrameSetText(UpDest, description[i])
		BlzFrameSetValue(buttonIconFrame, 0)
		local cdtext = BlzGetFrameByName("MyBarText", 0)
		BlzFrameSetText(cdtext, "")
		local cdICO = BlzGetFrameByName("MyBarBackground", 0)
		BlzFrameSetTexture(cdICO, DISBTNTexture[i], 0, true)
		BlzFrameSetTexture(buttonIconFrame, texture[i], 0, true)
		BlzFrameSetSize(buttonIconFrame, 0.04, 0.04)

		if lang == 1 then
			BlzFrameSetText(BlzGetFrameByName("BoxedTextTitle", 0), NameENG[i])
			BlzFrameSetText(UpDest, descriptionENG[i])
		end

		local lock = BlzCreateFrameByType("BACKDROP", "Face", face, "", 0)--замочек
		BlzFrameSetPoint(lock, FRAMEPOINT_CENTER, face, FRAMEPOINT_CENTER, 0., 0.)
		BlzFrameSetSize(lock, 0.04, 0.04)
		--BlzFrameSetSize(lock, 0, 0)
		BlzFrameSetTexture(lock, "close", 0, true)
		BlzFrameSetAlpha(lock, 170)

		--выделение Хейтовские
		local buttonsprite = BlzCreateFrameByType("SPRITE", "justAName", face, "WarCraftIIILogo", 0)
		BlzFrameSetPoint(buttonsprite, FRAMEPOINT_BOTTOMLEFT, face, FRAMEPOINT_BOTTOMLEFT, 0.02, 0.02)
		BlzFrameSetSize(buttonsprite, 1., 1.)
		BlzFrameSetScale(buttonsprite, 1.)
		BlzFrameSetModel(buttonsprite, "selecter1.mdx", 0)

		BlzFrameSetVisible(buttonsprite, false)
		if GetLocalPlayer() ~= Player(k) and GetLocalON then
			-- скрытие интерфейса от других игроков
			BlzFrameSetVisible(lock, false)
			BlzFrameSetVisible(face, false)
			BlzFrameSetVisible(buttonIconFrame, false)
		end
		--глобалки

		data.ToolTip[i] = UpDest --Описание старое
		data.LockFrame[i] = lock --замочек
		data.VisualSelectorFrame[i] = buttonsprite -- выделяющая моделька
		data.PekFrame[i] = UpDest -- Описание новое
		data.ReloadIco[i] = buttonIconFrame -- иконка
		data.SelfFrame[i] = face-- сам фрейм для увеличения
	end
	--end
	--print("end")

	--обновление текста
	TimerStart(CreateTimer(), 1, true, function()

		for i = 1, #Name do
			--print(#Name)
			if i == 1 then
				--print("смена текста")

				if data.Perk1 then
					if not data.Perk1A then
						BlzFrameSetText(data.PekFrame[i], "Добыча дерева " .. "|cffffff00" .. "удвоена" .. "|r" .. ". Принесите ещё древисины для автоматизации " .. "|cffffff00" .. data.SingleWoodCount .. "/50|r")
						if lang == 1 then
							--BlzFrameSetText(data.PekFrame[i], "Добыча дерева " .. "|cffffff00" .. "удвоена" .. "|r" .. ". Принесите ещё древисины для автоматизации " .. "|cffffff00" .. data.SingleWoodCount .. "/50|r")
							BlzFrameSetText (data.PekFrame [i], "Wood mining " .. "|cffffff00" .. "doubled" .. "|r" .. ". Bring more wood for automation " .. "|cffffff00" .. data. SingleWoodCount .. "/ 50 |r")
						end
					else
						BlzFrameSetText(data.PekFrame[i], "Автодобыча, ".."|cffffff00" .. "1" .. "|r".." ед. дерева, каждые ".."|cffffff00" .. "60" .. "|r".." секунд")
						if lang==1 then
							BlzFrameSetText (data.PekFrame [i], "Auto-Extraction " .. "|cffffff00" .. "1" .. "|r" .. " tree points, every" .. "|cffffff00" .. " 60 " .. "|r" .. "seconds")
						end
					end
					--StartFrameCD()
					--BlzFrameSetValue(data.ReloadIco[1], 0)
				else
					BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. data.SingleWoodCount .. "/25|r") --|cffffff00AAAA|r
				end
			elseif i == 2 then
				if data.Perk2 then
					BlzFrameSetText(data.PekFrame[i], "Враждебный режим активирован до первой смерти " .. "|cffffff00" .. R2I(data.RevoltSec) .. "/100|r")
					if lang==1 then
						BlzFrameSetText (data.PekFrame [i], "Hostile mode activated until first death" .. "|cffffff00" .. R2I (data.RevoltSec) .. "/ 100 |r")
					end
				else
					BlzFrameSetValue(data.ReloadIco[i], R2I(data.RevoltSec)) --Было 100-R2I
					BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. R2I(data.RevoltSec) .. "/100|r") --|cffffff00AAAA|r
				end

			elseif i == 3 then
				BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. data.Dies .. "/15|r") --|cffffff00AAAA|r
			elseif i == 4 then
				BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. R2I(data.TotalWay) .. "/200000|r")
				if data.Perk4 then
					BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. R2I(data.TotalWay) .. "/200000|r".." Скорость передвижения увеличена на 50%%")
					if lang == 1 then
						BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. R2I(data.TotalWay) .. "/200000|r".." Move speed is increased 50%%")
					end
				end
			elseif i == 5 then
				if data.Perk5 then
					BlzFrameSetText(data.PekFrame[i], "Урон увеличен, текущий урон: " .. "|cffffff00" .. BlzGetUnitBaseDamage(data.UnitHero, 0) .. "|r")
					if lang == 1 then
						BlzFrameSetText(data.PekFrame[i], "Damage is increased, current: " .. "|cffffff00" .. BlzGetUnitBaseDamage(data.UnitHero, 0) .. "|r")
					end
				else
					BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. data.Kills .. "/5|r") --|cffffff00AAAA|r
				end
			elseif i == 6 then
				if data.Perk6 then
					BlzFrameSetText(data.PekFrame[i], "Наносит " .. "|cffffff00" .. (BlzGetUnitBaseDamage(data.UnitHero, 0) * .5) .. "|r" .. " доп. урона и замедляет врагов в области " .. "|cffffff00150|r") --|cffffff00AAAA|r
					if lang == 1 then
						BlzFrameSetText(data.PekFrame[i], "Deal addition damage in area 150 and slow enemy. " .. "|cffffff00" .. (BlzGetUnitBaseDamage(data.UnitHero, 0) * .5) .. " damage|r")
					end
				else
					BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. R2I(data.Repairs) .. "/1000|r") --|cffffff00AAAA|r
				end
			elseif i == 7 then
				if data.Perk7 then
					if data.Perk7A then
						BlzFrameSetText(data.PekFrame[i], "Восстанавливает " .. "|cffffff00" .. "3 %%|r" .. " от максимального ХП при убийстве врагов в ближнем бою")
						if lang == 1 then
							BlzFrameSetText(data.PekFrame[i], "Restore " .. "|cffffff00" .. "3 %%|r" .. " max HP for kill enemy in melee combat")
						end
					else
						BlzFrameSetText(data.PekFrame[i], "Продолжайте правильно питаться и овладеете вампиризмом. " .. "|cffffff00" .. R2I(data.Heals) .. "/5000|r")
						if lang == 1 then
							BlzFrameSetText(data.PekFrame[i], "Gives 7 HP regen. Keep eating right for LifeSteel  " .. "|cffffff00" .. R2I(data.Heals) .. "/5000|r")
						end
					end
				else
					BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. R2I(data.Heals) .. "/1000|r") --|cffffff00AAAA|r
				end

			elseif i == 8 then
				BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. data.KodoCount .. "/1|r") --|cffffff00AAAA|r
			elseif i == 9 then
				if not data.Perk9 then
					BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. data.FireCount .. "/5|r") --|cffffff00AAAA|r
				else
					if not data.HaveAFire then
						BlzFrameSetTexture(data.ReloadIco[i], texture[i], 0, true)
						BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. "Обычная|r")
						if lang == 1 then
							BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. "Normal|r")
						end
					else
						BlzFrameSetTexture(data.ReloadIco[i], "btngathergoldON", 0, true)
						BlzFrameSetText(data.PekFrame[i], "Метает огненный шар, который наносит " .. "|cffffff00" .. (BlzGetUnitBaseDamage(data.UnitHero, 0) * 5) .. "|r" .. " ед. урона в небольшой области") --|cffffff00AAAA|r
						if lang == 1 then
							BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. "Hot|r")
						end
					end
				end
			elseif i == 10 then
				--техника безопусноти
				if data.Perk10 then
					BlzFrameSetText(data.PekFrame[i], "Парирует урон при совершении атаки в первые " .. "|cffffff00" .. "0,2 секунды|r" .. " после замаха") --|cffffff00AAAA|r
					if lang == 1 then
						BlzFrameSetText(data.PekFrame[i], "Parry damage after " .. "|cffffff00" .. "0,2 sec|r" .. " attack") --|cffffff00AAAA|r
					end
				else
					BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. data.TreeCountOnTB .. "/10|r") --|cffffff00AAAA|r
				end
			elseif i == 11 then
				-- погром
				--print(k)
				if data.Perk11 then
					--print("0")
					BlzFrameSetText(data.PekFrame[i], "Автоматически чинит союзные здания и технику в ридиусе 400. " .. "|cffffff00" .. "10 ед. в секунду|r") --|cffffff00AAAA|r
					if lang == 1 then
						BlzFrameSetText(data.PekFrame[i], "Automatic repair building in 400 area " .. "|cffffff00" .. "10 HP per sec|r")
					end
				else
					--print("2")
					BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. "0/1|r") --|cffffff00AAAA|r
					--print("3")
				end
				--print(k.."end")
			elseif i == 12 then
				-- ледяной щит
				--print("жвенадцать")
				if data.Perk12 then
					BlzFrameSetText(data.PekFrame[i], "При поглощении урона в щит враги замораживаются на " .. "|cffffff00" .. "3 секунды|r") --|cffffff00AAAA|r
					if lang == 1 then
						BlzFrameSetText(data.PekFrame[i], "freezes enemies upon taking damage " .. "|cffffff00" .. "3 sec|r") --|cffffff00AAAA|r
					end
				else
					BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. R2I(data.FrozenShield) .. "/60|r") --|cffffff00AAAA|r
				end
			elseif i == 13 then
				if not data.Perk13 then
					BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. data.WolfCount .. "/5|r") --|cffffff00AAAA|r
				else
					BlzFrameSetText(data.PekFrame[i], "Призывает волка, который будет вам помогать. Текущий урона волка " .. "|cffffff00" .. (BlzGetUnitBaseDamage(data.WolfHelper, 0)) .. "|r") --|cffffff00AAAA|r
					if lang == 1 then
						BlzFrameSetText(data.PekFrame[i], "Summons a wolf to help you. Current wolf damage " .. "|cffffff00 ".. (BlzGetUnitBaseDamage(data. WolfHelper, 0)) .. " |r")
					end
				end
			elseif i == 14 then
				if not data.Perk14A then
					BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. data.StoneCount .. "/5|r") --|cffffff00AAAA|r
				else
					BlzFrameSetText(data.PekFrame[i], "Поглощает " .. "|cffffff00" .. "100%% |r" .. " урона. Ломается, если урон больше 500. Перезарядка: " .. "|cffffff00" .. "5|r") --|cffffff00AAAA|r
					if lang == 1 then
						BlzFrameSetText(data.PekFrame[i], "Absorb " .. "|cffffff00" .. "100%%|r" .. " damage. It breaks if the damage is more than 500. Cooldown:".." |cffffff00 ".." 5 |r ") --|cffffff00AAAA|r
					end
				end
			elseif i == 15 then
				if not data.Perk15 then
					BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. data.SheepCount .. "/40|r") --|cffffff00AAAA|r
				else
					BlzFrameSetText(data.PekFrame[i], "Герой взрывается при смерти нанося урон и каждую " .. "|cffffff002|r" .. " смерть воскресает") --|cffffff00AAAA|r
					if lang == 1 then
						BlzFrameSetText(data.PekFrame[i], "Exploded on death and Revive every " .. "|cffffff002|r" .. " death")
					end
				end
			elseif i == 16 then
				if not data.Perk16 then
					BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. "Ищите за вулканом|r") --|cffffff00AAAA|r
					if lang == 1 then
						BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. "Search beyond the volcano|r")
					end
				else
					BlzFrameSetText(data.PekFrame[i], "Даёт дальний бой и оглушает на |cffffff00 0,5 сек. |r" .. "Перезарядка:|cffffff00" .. "5 |r" .. "секунд") --|cffffff00AAAA|r
					if lang == 1 then
						BlzFrameSetText (data.PekFrame [i], "Grants ranged and stuns for|cffffff00 0.5 sec. |r" .. "Cooldown: |cffffff00" .. "5 |r" .. "seconds")
					end
				end
			elseif i == 17 then
				if not data.Perk17 then
					BlzFrameSetText(data.PekFrame[i], GetLangDescription(i, lang) .. "|cffffff00" .. GTotalWood .. "/50|r") --|cffffff00AAAA|r
				else
					BlzFrameSetText(data.PekFrame[i], "Активация: ПКМ+ЛКМ. Перезарядка: " .. "|cffffff002|r" .. "\nУрон: " .. "|cffffff00" .. (BlzGetUnitBaseDamage(data.UnitHero, 0) * 4) .. " |r") --|cffffff00AAAA|r
					if lang == 1 then
						BlzFrameSetText(data.PekFrame[i], "When hold RMB, press LMB. Reload: " .. "|cffffff00" .. "2 sec |r" .. "")
					end
				end
			end
		end
		--end
		--end
	end)
end

function PerkUnlocker(data, index)
	BlzFrameSetVisible(data.LockFrame[index], false)
	BlzFrameSetVisible(data.VisualSelectorFrame[index], true)
	BlzFrameSetValue(data.ReloadIco[index], 100)
	--FrameBigSize(data.SelfFrame[index],0.2,index)
	--FrameBigSize(data.VisualSelectorFrame[index],0.2,index)
	--BlzFrameSetSize(data.SelfFrame[index],0.05,0.05)
	local tl = Location(GetUnitXY(data.UnitHero))
	--PlaySoundAtPointBJ( gg_snd_Unlock, 100, tl, 0 )
	if GetLocalON then
		if GetLocalPlayer() == GetOwningPlayer(data.UnitHero) then
			-- РАзблокировка, проверено, не здесь десинхает
			--print("звук!")
			PlaySoundAtPointBJ(gg_snd_Unlock, 100, tl, 0)
			--print("БЫл?")
		end
	else
		PlaySoundAtPointBJ(gg_snd_Unlock, 100, tl, 0)
	end
	RemoveLocation(tl)
	TimerStart(CreateTimer(), 10, true, function()
		BlzFrameSetVisible(data.VisualSelectorFrame[index], false)
	end)
end

function FrameBigSize(fh, sh, index)
	local size = 0
	local sec = 0
	local i = 1
	local turn = true
	local next = 0.039
	TimerStart(CreateTimer(), TIMER_PERIOD, true, function()
		sec = sec + TIMER_PERIOD
		size = size + (i * 0.005)

		--print(sec)
		if sec >= sh and turn then
			--print("off")
			turn = false
			i = i * (-1)
		end
		if size <= 0 then
			DestroyTimer(GetExpiredTimer())
			size = 0
		end

		BlzFrameSetAbsPoint(fh, FRAMEPOINT_CENTER, 0.1 + next * (index - 1), 0.02 + size / 4)
		--BlzFrameSetSize(fh,0.04+size,0.04+size)
	end)
end

function GetLangDescription(index, lang)
	local multidescr = ""
	if lang == 0 then
		multidescr = description[index]
	else
		multidescr = descriptionENG[index]
	end
	return multidescr
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 27.04.2020 20:07
function AddQuest(compas,hero,qx,qy,questendunit)
	local x,y=GetUnitX(hero),GetUnitY(hero)
	local model="AneuCaster"
	local player=GetOwningPlayer(hero)
	local data=HERO[GetPlayerId(player)]

	if GetLocalPlayer()~=player then
		model=""
	else
		--print("звук созданного квеста")
		StartSound(bj_questSecretSound)
	end
	local QuestPointer=AddSpecialEffect(model,x,y)
	BlzSetSpecialEffectPitch(QuestPointer,math.rad(-90))--/bj_DEGTORAD

	if compas==true then
		data.Compass=QuestPointer
		data.CompassX,data.CompassY=qx,qy
	end
end

---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 18.05.2020 21:36
---


---CreateVisualPointerForUnit
---@param hero "герой"
---@param flag "Параметры_завершения"
---@param long "Число_блоков"
---@param step "Ширина_блока"
---@param minlong "Милимальное_число_отображаемых_блоков"ы
function CreateVisualPointerForUnitByEff(hero,flag,long,step,minlong)
	local effMain={}
	local image={}
	local pid=GetPlayerId(GetOwningPlayer(hero))
	local data=HERO[pid]
	--local step=50
	local size=step/100
	--local k=10
	local LastMouseX=0
	local blockname="s_cube1"
	local arrowname="s_arr1"

	if GetLocalPlayer()~=Player(pid) then
		blockname=""
		arrowname=""
	end

	for i=1,long do
		if i==long then
			effMain[i]=AddSpecialEffect(arrowname,5000,5000)
		else
			effMain[i]=AddSpecialEffect(blockname,5000,5000)
		end
		image[i]=CreateImage("pointer.dds",16,16,16,4000,4000,0,0,0,150,4)
		SetImageColor(image[i],0,255,0,128)
		SetImageRenderAlways(image[i], true)
		ShowImage(image[i],true)
		--print(size)
		--Does the BlzSetSpecialEffectMatrixScale function work?
		--BlzResetSpecialEffectMatrix(effMain[i])
		--BlzSetSpecialEffectMatrixScale(effMain[i],size,0,0) --does not work
		BlzSetSpecialEffectScale(effMain[i],size) -- is work
		BlzSetSpecialEffectAlpha(effMain[i],128)
		BlzSetSpecialEffectColor(effMain[i],0,255,0)
	end

	local distance=0
	local mouseMoving=false
	local savedDistance=0
	local lastAngle=0
	local delta=0
	local angle=0

	local nd=nil--CreateDestructable(FourCC('LTrc'), 6000, 6000, 0, GetRandomInt(1, 1), GetRandomInt(1, 5))
	local ndblock={}--CreateDestructable(FourCC('LTrc'), 6000, 6000, 0, GetRandomInt(1, 1), GetRandomInt(1, 5))





	local function Destroy()
		DestroyTimer(GetExpiredTimer())
		data.FirePointer=false
		--print("destroy")
		for i=1,#effMain do
			KillDestructable(ndblock[i])
			ShowDestructable(ndblock[i],false)
			KillDestructable(nd)
			DestroyImage(image[i])
			ShowDestructable(nd,false)
			BlzSetSpecialEffectPosition(effMain[i],6000,6000,0)
			DestroyEffect(effMain[i])
		end
	end
	local curAngle=0

	TimerStart(CreateTimer(), TIMER_PERIOD, true, function()
		--angle=GetUnitFacing(hero)
		--local xs,ys=MoveXY(GetUnitX(hero),GetUnitY(hero),10,angle-30)
		local xs,ys=GetUnitXY(hero)
		angle=data.AngleMouse--AngleBetweenXY(xs, ys, GetPlayerMouseX[pid], GetPlayerMouseY[pid])/bj_DEGTORAD
		curAngle=lerpTheta(curAngle,angle,TIMER_PERIOD*8)
		if LastMouseX == GetPlayerMouseX[pid] then
			mouseMoving=false
			--savedDistance=DistanceBetweenXY(GetPlayerMouseX[pid],GetPlayerMouseY[pid],GetUnitXY(hero))
		else
			mouseMoving=true
			--print("движется")
		end
		LastMouseX = GetPlayerMouseX[pid]
		delta=curAngle-lastAngle
		lastAngle=curAngle


		--angle=data.LastTurn--/bj_DEGTORAD


		--print(delta)
		if mouseMoving then
			distance=DistanceBetweenXY(GetPlayerMouseX[pid],GetPlayerMouseY[pid],GetUnitXY(hero))
			savedDistance=DistanceBetweenXY(GetPlayerMouseX[pid],GetPlayerMouseY[pid],GetUnitXY(hero))
		else
			distance=savedDistance
		end
		local block=0

		for _=1,#effMain do
			distance=distance-step
			if distance>=0 then
				block=block+1
			end
		end
		if minlong~=nil then
			block=minlong
		end
		--print(block)
		for i=1,#effMain do
			if i<block then
				local nx,ny=MoveXY(xs,ys,(step)*i,curAngle)
				--BlzSetSpecialEffectPosition(effMain[i],nx,ny,GetUnitZ(hero)-60*size) --100*size
				--BlzSetSpecialEffectYaw(effMain[i], math.rad(curAngle))
				--local cz,cy=GetUnitX(hero)-64-16,GetUnitY(hero)-64-16
				nx,ny=MoveXY(xs-8-2,ys-8-2,(step)*i,curAngle)
				--local angleSplat=data.LastTurn
				--data.cx,data.cy=MoveXY(data.cx,data.cy,70,GetUnitFacing(hero))
				local z=GetTerrainZ(nx,ny)
				SetImagePosition(image[i],nx,ny,z)
				--[[KillDestructable(ndblock[i])
				ShowDestructable(ndblock[i],false)

				print(z)
				ndblock[i]=CreateDestructableZ(FourCC('B001'), nx,ny,z, curAngle, size, 1)]]

				--SetFogStateRadius(GetOwningPlayer(hero), FOG_OF_WAR_VISIBLE, nx,ny, 500*size, true)
			--print(GetUnitZ(hero))
			else
				if i==#effMain then
					local nx,ny=MoveXY(xs,ys,(step)*block,curAngle)
					BlzSetSpecialEffectPosition(effMain[i],nx,ny,GetUnitZ(hero)-60*size)
					BlzSetSpecialEffectYaw(effMain[i], math.rad(curAngle))

					nx,ny=MoveXY(xs-8-2,ys-8-2,(step)*i,curAngle)
					SetImagePosition(image[i],nx,ny,0)
					--
					--[[KillDestructable(nd)
					ShowDestructable(nd,false)
					local z=GetTerrainZ(nx,ny)-65
					print(z)
					nd=CreateDestructableZ(FourCC('B000'), nx,ny,z, curAngle, size,1)]]
					--SetFogStateRadius(GetOwningPlayer(hero), FOG_OF_WAR_VISIBLE, nx,ny, 200*size, true)
				else
					BlzSetSpecialEffectPosition(effMain[i],6000,6000,0)
					SetImagePosition(image[i],6000,6000,0)
				end

			end
		end

		if flag==1 then
			if not data.HaveAFire then
				Destroy()
			end
		end
	end)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 18.05.2020 21:36
---


---CreateVisualPointerForUnit
---@param hero "герой"
---@param flag "Параметры_завершения"
---@param long "Число_блоков"
---@param step "Ширина_блока"
---@param minlong "Милимальное_число_отображаемых_блоков"ы
function CreateVisualPointerForUnitBySplat(hero,flag,long,step,minlong)
	--local effMain={}
	local image={}
	local image2={}
	local pid=GetPlayerId(GetOwningPlayer(hero))
	local data=HERO[pid]
	local size=step/3


	local r60=70//size
	local r40=50//size
	local LastMouseX=0




	for i=1,long do
		image[i]=CreateImage("pointerORIG",16,16,16,4000,4000,0,0,0,150,4)
		SetImageColor(image[i],0,255,0,128)
		SetImageRenderAlways(image[i], true)
		if GetLocalPlayer()~=Player(pid) then
			ShowImage(image[i],false)
		else
			ShowImage(image[i],true)
		end


		image2[i]=CreateImage("pointerORIG",16,16,16,4000,4000,0,0,0,150,4)
		SetImageColor(image2[i],0,255,0,128)
		SetImageRenderAlways(image2[i], true)
		if GetLocalPlayer()~=Player(pid) then
			ShowImage(image2[i],false)
		else
			ShowImage(image2[i],true)
		end
	end



	local distance=0
	local mouseMoving=false
	local savedDistance=0
	local lastAngle=0
	local delta=0
	local angle=0






	local function Destroy()
		DestroyTimer(GetExpiredTimer())
		data.FirePointer=false
		--print("destroy")
		for i=1,#image do
			DestroyImage(image[i])
			DestroyImage(image2[i])
		end
	end
	local curAngle=GetUnitFacing(hero)
	local iter=0
	local curBlock=0
	TimerStart(CreateTimer(), TIMER_PERIOD, true, function()
		--angle=GetUnitFacing(hero)
		--local xs,ys=MoveXY(GetUnitX(hero),GetUnitY(hero),10,angle-30)
		local xs,ys=MoveXY(GetUnitX(hero)-16,GetUnitY(hero)-16,40,curAngle)--стартовое смещение и это центр юнита
		local xs2,ys2=0,0
		iter=iter+1

			xs,ys=MoveXY(xs,ys,40,curAngle+90)
			xs2,ys2=MoveXY(xs,ys,80,curAngle-90)


		angle=data.AngleMouse--AngleBetweenXY(xs, ys, GetPlayerMouseX[pid], GetPlayerMouseY[pid])/bj_DEGTORAD

		curAngle=lerpTheta(curAngle,angle,TIMER_PERIOD*8)

		if LastMouseX == GetPlayerMouseX[pid] then
			mouseMoving=false
			--savedDistance=DistanceBetweenXY(GetPlayerMouseX[pid],GetPlayerMouseY[pid],GetUnitXY(hero))
		else
			mouseMoving=true
			--print("движется")
		end
		LastMouseX = GetPlayerMouseX[pid]
		delta=curAngle-lastAngle
		lastAngle=curAngle


		--angle=data.LastTurn--/bj_DEGTORAD


		--print(delta)
		if mouseMoving then
			distance=DistanceBetweenXY(GetPlayerMouseX[pid],GetPlayerMouseY[pid],GetUnitXY(hero))
			savedDistance=DistanceBetweenXY(GetPlayerMouseX[pid],GetPlayerMouseY[pid],GetUnitXY(hero))
		else
			distance=savedDistance
		end
		local block=0

		for _=1,#image do
			distance=distance-step
			if distance>=0 then
				block=block+1
			end
		end

		curBlock=R2I(lerpTheta(curBlock,block,TIMER_PERIOD*16))

		if minlong~=nil then
			--curBlock=minlong
		end
		--print(block)
		local k=0
		local k2=0
		for i=1,#image do
			if i<curBlock then
				local nx,ny=0,0

				--print("block="..block)



				if i>=curBlock-r60 and i<=curBlock-r40 then
					--print(i.."поворот на 90")
					k=k+1
					local axs,ays=MoveXY(xs,ys,(curBlock-r60)*step,curAngle)
					nx,ny=MoveXY(axs,ays,step*k,curAngle+90)
					SetImagePosition(image[i],nx,ny,0)

					local axs2,ays2=MoveXY(xs2,ys2,(curBlock-r60)*step,curAngle)
					nx,ny=MoveXY(axs2,ays2,step*k,curAngle-90)
					SetImagePosition(image2[i],nx,ny,0)

				else
					if i>=curBlock-r40 then
						--print("Косая 45")

						local axs,ays=MoveXY(xs,ys,(curBlock-r60)*step,curAngle)
						local axs2,ays2=MoveXY(xs2,ys2,(curBlock-r60)*step,curAngle)
						local px,py,px2,py2=0,0,0,0

							px,py=MoveXY(axs,ays,step*k,curAngle+90)
							px2,py2=MoveXY(axs2,ays2,step*k,curAngle-90)

						k2=k2+1
						if curBlock<=r60 then
							--print("лишняяотрисовка")
							--k2=block
							SetImagePosition(image[i],6000,6000,0)
							SetImagePosition(image2[i],6000,6000,0)
						else

							nx,ny=MoveXY(px,py,step*(k2),curAngle-45)
							SetImagePosition(image[i],nx,ny,0)
							nx,ny=MoveXY(px2,py2,step*(k2),curAngle+45)
							SetImagePosition(image2[i],nx,ny,0)

						end

					else
						nx,ny=MoveXY(xs,ys,step*i,curAngle)--вот так всё отлично работает
						SetImagePosition(image[i],nx,ny,0)
						nx,ny=MoveXY(xs2,ys2,step*i,curAngle)
						SetImagePosition(image2[i],nx,ny,0)
					end
				end



				--local z=GetTerrainZ(nx,ny)
				--SetImageConstantHeight()
				--ShowImage(image[i],true)
			else --меньшение
				SetImagePosition(image[i],6000,6000,0)
				SetImagePosition(image2[i],7000,7000,0)
				--ShowImage(image[i],false)
			end
		end

		if flag==1 then
			if not data.HaveAFire then
				Destroy()
			end
		end
	end)
end

function Chet(cc)
	local is=false
	if math.fmod(cc,2)~=0 then
		--	print("Нечетное")
		is=false
	else
		--	print("Четное")
		is=true
	end
	return is
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 21.05.2020 14:43
---

function PatchTest(hero)
	local attr=BlzGetUnitIntegerField(hero, UNIT_IF_PRIMARY_ATTRIBUTE)
	--print("Основной атрибут героя= "..attr)
	BlzSetUnitIntegerField(hero,UNIT_IF_MOVE_TYPE,3)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 15.04.2020 21:29
---
player_colors = {}
player_colors[0] = "|cffFF0202"
player_colors[1] = "|cff0041FF"
player_colors[2] = "|cff1BE5B8"
player_colors[3] = "|cff530080"
player_colors[4] = "|cffFFFC00"
player_colors[5] = "|cffFE890D"
player_colors[6] = "|cff1FBF00"
player_colors[7] = "|cffE45AAF"
player_colors[8] = "|cff949596"
player_colors[9] = "|cff7DBEF1"
player_colors[10] = "|cff0F6145"
player_colors[11] = "|cff4D2903"
function printTimed(msg,duration)
	if(duration==nil)then
		duration = 30
	end
	if(msg==nil)then
		msg = "nil"
	end
	DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,duration,msg)
	--print("Принт тоже сработал")
end
function onChat()
	printTimed(player_colors[GetPlayerId(GetTriggerPlayer())]..GetPlayerName(GetTriggerPlayer()).."|r: "..GetEventPlayerChatString(),30)
end

function BadChat()
	local trig = CreateTrigger()

	TriggerAddCondition(trig, Condition(onChat))
	for i = 0, 11 do
		TriggerRegisterPlayerChatEvent(trig, Player(i), "", false)
	end
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 08.02.2020 21:25
---
DummyID=FourCC('e000')
function CastArea(caster,id,x,y,range, xPoz,yPoz)
	local dx,dy=x,y
	if xPoz~=nil then
		--print("позиция")
		dx,dy=xPoz,yPoz
	end
	local dummy=CreateUnit(GetOwningPlayer(caster), DummyID, dx, dy, 0)--
	UnitApplyTimedLife(dummy,FourCC('BTLF'),0.1)
	if UnitAddAbility(dummy,id) then
	else
		--print("ошибка добавления способности")
	end
	---для одиночек

	if range==0 or range==nil then
		--IssuePointOrder(dummy,"blizzard",x,y)-- на точку
		Cast(dummy,x,y)
		--IssuePointOrder(dummy,"acidbomb",x,y)-- на точку
	end
	--print("Каст был успешен 1")
	--[[local e=nil
	GroupEnumUnitsInRange(perebor,x,y,range,nil)
	while true do
		e = FirstOfGroup(perebor)
		--print("перебор юнитов в радиусе "..range.." "..GetUnitName(e))
		if e == nil then break end
		if UnitAlive(e) and e~=dummy then -- and GetUnitCurrentOrder(unit)~="attack" then
			--print(GetUnitName(e).." в переборе")
			--IssueTargetOrder(dummy,"antimagicshell",e)-- на юнита
			--IssueTargetOrder(dummy,"acidbomb",e)-- на юнита
			Cast(dummy,0,0,e)
		end
		GroupRemoveUnit(perebor,e)
	end]]
	--print("Каст был успешен конец")
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 06.02.2020 12:47
---
function CreateAndForceBullet(hero, angle, speed, effectmodel, xs, ys, damage)
	local CollisionRange = 80
	if not damage then
		damage = 200
	end
	local xhero, yhero = GetUnitX(hero), GetUnitY(hero)
	local zhero = GetUnitZ(hero) + 60
	local bullet = AddSpecialEffect(effectmodel, xs, ys)
	local bam = nil--AddSpecialEffect("Abilities/Weapons/SteamTank/SteamTankImpact.mdl",xs,ys)
	local cloud = nil--AddSpecialEffect("Abilities/Weapons/SteamTank/SteamTankImpact.mdl",xs,ys)
	local CollisionEnemy = false
	local CollisisonDestr = false
	local DamagingUnit = nil
	BlzSetSpecialEffectScale(bam, 0.1)
	BlzSetSpecialEffectScale(cloud, 0.02)
	DestroyEffect(bam)
	DestroyEffect(cloud)
	BlzSetSpecialEffectZ(bullet, zhero)
	local angleCurrent = angle
	local heroCurrent = hero
	local dist = 0
	TimerStart(CreateTimer(), TIMER_PERIOD, true, function()
		dist = dist + speed
		local x, y, z = BlzGetLocalSpecialEffectX(bullet), BlzGetLocalSpecialEffectY(bullet), BlzGetLocalSpecialEffectZ(bullet)
		local zGround = GetTerrainZ(MoveX(x, speed * 2, angleCurrent), MoveY(y, speed * 2, angleCurrent))
		BlzSetSpecialEffectYaw(bullet,math.rad(angleCurrent))
		if GetUnitTypeId(heroCurrent) == FourCC('e009') then
			-- у горного великана тиника нет потери высоты
			BlzSetSpecialEffectPosition(bullet, MoveX(x, speed, angleCurrent), MoveY(y, speed, angleCurrent), z)
		else
			BlzSetSpecialEffectPosition(bullet, MoveX(x, speed, angleCurrent), MoveY(y, speed, angleCurrent), z - 2)
		end


		--BlzSetSpecialEffectPosition(cloud,MoveX(x,speed/3,angle),MoveY(y,speed/3,angle),z-2)
		SetFogStateRadius(GetOwningPlayer(heroCurrent), FOG_OF_WAR_VISIBLE, x, y, 400, true)-- Небольгая подсветка

		--local xbam,ybam=BlzGetLocalSpecialEffectX(bam),BlzGetLocalSpecialEffectY(bam)
		--BlzSetSpecialEffectPosition(bam,MoveX(xbam,2*data.CurrentSpeed,GetUnitFacing(hero)),MoveY(ybam,2*data.CurrentSpeed,GetUnitFacing(hero)),z-50)
		local ZBullet = BlzGetLocalSpecialEffectZ(bullet)
		--print("zGround ="..zGround.."z= "..z)
		--BlzSetSpecialEffectPosition(bam,MoveX(GetUnitX(hero),120,GetUnitFacing(hero)),MoveY(GetUnitY(hero),120,GetUnitFacing(hero)),z)
		CollisionEnemy, DamagingUnit = UnitDamageArea(heroCurrent, damage, x, y, CollisionRange, ZBullet)
		if  GetUnitTypeId(DamagingUnit) == FourCC('e009')  then
			--print("Есть пробитие")
			if effectmodel==Special then
				HealUnit(DamagingUnit,-200)
			end
			if effectmodel==stoneEffModel then
				HealUnit(DamagingUnit,-10)
			end
		end
		CollisisonDestr = PointContentDestructable(x, y, CollisionRange, false)
		local PerepadZ = zGround - z
		if dist > 1000 or CollisionEnemy or CollisisonDestr or IsUnitType(DamagingUnit, UNIT_TYPE_STRUCTURE) or PerepadZ > 20 then
			--or zGround+z>=-70+z --z<=147
			PointContentDestructable(x, y, CollisionRange, true)
			if z <= -90 then
				--CreateTorrent(x,y)
				--BlzSetSpecialEffectPosition(bullet,4000,4000,0)
			end
			--print("Условие урона прошло")
			UnitDamageArea(hero,CollisionRange,x,y,CollisionRange,ZBullet)
			if IsUnitType(hero, UNIT_TYPE_HERO) then
				local data = HERO[GetPlayerId(GetOwningPlayer(hero))]
				if data.Perk16 and IsUnitEnemy(hero, GetOwningPlayer(DamagingUnit)) and DamagingUnit and data.FBIsReady then
					--print("фаерболим "..GetUnitName(DamagingUnit))
					local cd=5
					local dummy = CreateUnit(GetOwningPlayer(hero), DummyID, x, y, 0)--
					UnitAddAbility(dummy, FourCC('A00G'))
					UnitApplyTimedLife(dummy, FourCC('BTLF'), 0.1)
					if Cast(dummy, 0, 0, DamagingUnit) then
						data.FBIsReady=false
						StartFrameCD(cd, data,16)
						TimerStart(CreateTimer(), cd, false, function()
							DestroyTimer(GetExpiredTimer())
							data.FBIsReady=true
						end)
					end

				end
			end
			--блок разворота снаряда
			if IsUnitType(DamagingUnit, UNIT_TYPE_HERO) then
				local data = HERO[GetPlayerId(GetOwningPlayer(DamagingUnit))]
				if data.ReleaseLMB and data.Perk14 then
					local AngleUnitRad = math.rad(GetUnitFacing(DamagingUnit))  -- data.LastTurn
					--local AngleSource = math.deg(AngleBetweenXY(GetUnitX(caster), GetUnitY(caster), GetUnitX(target), GetUnitY(target)))
					local Vector3 = wGeometry.Vector3
					local UnitFacingVector = Vector3:new(math.cos(AngleUnitRad), math.sin(AngleUnitRad), 0)  -- вектор поворота юнита
					local AngleSourceVector = Vector3:new(GetUnitX(hero) - GetUnitX(DamagingUnit), GetUnitY(hero) - GetUnitY(DamagingUnit), 0)  -- вектор получения от урона (by Doc)
					AngleSourceVector = AngleSourceVector:normalize()
					local dot = UnitFacingVector:dotProduct(AngleSourceVector)
					--print(dot)
					if 0 < dot then
						--print("Отклонение снаряда щитом")
						angleCurrent = GetUnitFacing(DamagingUnit)

						if effectmodel==Special or effectmodel==stoneEffModel then
							heroCurrent=DamagingUnit
						end

						BlzSetSpecialEffectPosition(bullet, MoveX(x, speed * 2, angleCurrent), MoveY(y, speed * 2, angleCurrent), z - 2)
					else
						DestroyEffect(bullet)
						DestroyTimer(GetExpiredTimer())
					end
				else
					DestroyEffect(bullet)
					DestroyTimer(GetExpiredTimer())
				end
			else
				DestroyEffect(bullet)
				DestroyTimer(GetExpiredTimer())
			end

			if not DamagingUnit then
				DestroyEffect(bullet)
				DestroyTimer(GetExpiredTimer())
			end
		end
	end)
end

function SingleCannon(hero, angle, modelEff, damage)
	if not angle then
		angle = GetUnitFacing(hero)
	end
	local x = MoveX(GetUnitX(hero), 80, angle)
	local y = MoveY(GetUnitY(hero), 80, angle)
	--print("x создания="..x.." y="..y..GetUnitName(hero))
	if not modelEff then
		modelEff = "Abilities/Weapons/BoatMissile/BoatMissile.mdl"
	end
	CreateAndForceBullet(hero, angle, 30, modelEff, x, y, damage)
end

---@param board real
function BoardCannon(hero, board, cannon)
	-- left -90 right+90
	local facing = GetUnitFacing(hero)
	local angle = facing + board
	local x = MoveX(GetUnitX(hero), 60, angle)
	local y = MoveY(GetUnitY(hero), 60, angle)
	local inverse = -1
	if board == -90 then
		inverse = 1
	end
	local x1 = MoveX(x, 30, facing)
	local y1 = MoveY(y, 30, facing)
	local x2 = MoveX(x, -30, facing)
	local y2 = MoveY(y, -30, facing)
	local x3 = MoveX(x, -60, facing)
	local y3 = MoveY(y, -60, facing)
	local x4 = MoveX(x, -90, facing)
	local y4 = MoveY(y, -90, facing)
	if cannon >= 1 then
		CreateAndForceBullet(hero, angle, 30, "Abilities/Weapons/BoatMissile/BoatMissile.mdl", x, y)--Центр
	end
	if cannon >= 2 then
		CreateAndForceBullet(hero, angle + 5 * inverse, 30, "Abilities/Weapons/BoatMissile/BoatMissile.mdl", x1, y1)--Спереди
	end
	if cannon >= 3 then
		CreateAndForceBullet(hero, angle - 5 * inverse, 30, "Abilities/Weapons/BoatMissile/BoatMissile.mdl", x2, y2)--Сзади 1
	end
	if cannon >= 4 then
		CreateAndForceBullet(hero, angle - 10 * inverse, 30, "Abilities/Weapons/BoatMissile/BoatMissile.mdl", x3, y3)--Сзади 2
	end
	if cannon >= 5 then
		CreateAndForceBullet(hero, angle - 15 * inverse, 30, "Abilities/Weapons/BoatMissile/BoatMissile.mdl", x4, y4)--Сзади 3
	end
end

function CreateFire(hero, board)
	local data = HERO[GetPlayerId(GetOwningPlayer(hero))]
	local facing = GetUnitFacing(hero)
	--board=board+90
	local angle = facing + board
	local x = MoveX(GetUnitX(hero), 60, angle)
	local y = MoveY(GetUnitY(hero), 60, angle)

	--local fire=AddSpecialEffect("FireGun.mdl",x,y)
	local fire = AddSpecialEffect("Flame Thrower.mdl", x, y)
	local inverse = 1
	if board == 1 then
		inverse = -1
	end
	BlzSetSpecialEffectMatrixScale(fire, 1, 1, 1)

	TimerStart(CreateTimer(), TIMER_PERIOD, true, function()
		--local xf,yf,zf=BlzGetLocalSpecialEffectX(fire),BlzGetLocalSpecialEffectY(fire),BlzGetLocalSpecialEffectZ(fire)
		local xhero, yhero = GetUnitX(hero), GetUnitY(hero)
		--local nx,ny=MoveX(xhero,80,GetUnitFacing(hero)-board),MoveY(yhero,80,GetUnitFacing(hero)-board)
		local nx, ny = MoveXY(xhero, yhero, 10, GetUnitFacing(hero) - board)
		local z = GetUnitZ(hero)
		BlzSetSpecialEffectPosition(fire, nx, ny, z - 140 + 89)
		BlzPlaySpecialEffect(fire, ANIM_TYPE_BIRTH)
		--HeroUpdateWeaponCharges(hero,4,1)

		--print("z Огня="..BlzGetLocalSpecialEffectZ(fire))

		if board == 0 then
			BlzSetSpecialEffectYaw(fire, math.rad(GetUnitFacing(hero) + board - 5 - 90))
			UnitDamageLine(hero, 10, nx, ny, 80, 80 * 6, GetUnitFacing(hero) + board - 5 - 90, GetUnitZ(hero) + 50)
		else
			local problem = GetUnitFacing(hero) + board - 5 + 90
			--print("проблемный угол="..problem)
			BlzSetSpecialEffectYaw(fire, math.rad(problem))
			UnitDamageLine(hero, 10, nx, ny, 80, 80 * 6, GetUnitFacing(hero) + board - 5 + 90, GetUnitZ(hero) + 50)
		end
		if (data.ReleaseRMB == false and board == 0) then
			--print("отключен вручную")
			DestroyEffect(fire)
			DestroyTimer(GetExpiredTimer())
			BlzPlaySpecialEffect(fire, ANIM_TYPE_DEATH)
		end
		if (data.ReleaseLMB == false and board == 1) then
			DestroyEffect(fire)
			DestroyTimer(GetExpiredTimer())
			BlzPlaySpecialEffect(fire, ANIM_TYPE_DEATH)
		end
		if Ammo[GetPlayerId(GetOwningPlayer(hero))].Count.Fire <= 0 then
			--print("закончились заряды")
			DestroyEffect(fire)
			DestroyTimer(GetExpiredTimer())
			BlzPlaySpecialEffect(fire, ANIM_TYPE_DEATH)
		end
		HeroUpdateWeaponCharges(hero, 4, 1)
	end)
end

function CreateBarrel(hero, angle, dist)
	local x, y = GetUnitXY(hero)
	local id = GetPlayerId(GetOwningPlayer(hero))
	local barrel = AddSpecialEffect("Barrel_Unit.mdl", x, y)
	if angle == nil then
		angle = AngleBetweenXY(x, y, GetPlayerMouseX[id], GetPlayerMouseY[id]) / bj_DEGTORAD
	end
	if dist == nil then
		dist = DistanceBetweenXY(x, y, GetPlayerMouseX[id], GetPlayerMouseY[id])
	end
	if dist >= 200 then
		dist = 200
	end
	if dist <= 100 then
		dist = 100
	end
	BlzSetSpecialEffectYaw(barrel, math.rad(angle))
	BlzPlaySpecialEffect(barrel, ANIM_TYPE_WALK)
	BlzSetSpecialEffectZ(barrel, GetUnitZ(hero))
	JumpEffect(barrel, dist / 20, 150, angle, dist, hero, 1)
end

function CreateArtToss(hero, effectmodel, angle, dist, flag)
	local x, y = GetUnitXY(hero)
	local id = GetPlayerId(GetOwningPlayer(hero))
	local art = AddSpecialEffect(effectmodel, x, y)
	if angle == nil then
		angle = AngleBetweenXY(x, y, GetPlayerMouseX[id], GetPlayerMouseY[id]) / bj_DEGTORAD
	end
	if dist == nil then
		dist = DistanceBetweenXY(x, y, GetPlayerMouseX[id], GetPlayerMouseY[id])
	end
	if dist >= 1200 then
		dist = 1200
	end
	if dist <= 200 then
		dist = 200
	end
	local speed = dist / 50
	BlzSetSpecialEffectYaw(art, math.rad(angle))
	---BlzPlaySpecialEffect(barrel,ANIM_TYPE_WALK)
	if flag == nil then
		JumpEffect(art, speed, 700, angle, dist, hero, 2)
	elseif flag == 3 then
		--Стрельба простых пушек
		JumpEffect(art, speed * 2, 200, angle, dist * .7, hero, flag, GetUnitZ(hero) + 150)--осколочный мелкий
	else
		JumpEffect(art, speed, 300, angle, dist, hero, flag)--любой другой
	end
end

function JumpEffect(eff, speed, maxHeight, angle, distance, hero, flag, ZStart)
	local i = 0
	if ZStart == nil then
		ZStart = GetUnitZ(hero)
	end
	TimerStart(CreateTimer(), TIMER_PERIOD, true, function()
		local x, y = BlzGetLocalSpecialEffectX(eff), BlzGetLocalSpecialEffectY(eff)
		local nx, ny = MoveXY(x, y, speed, angle)
		local f = ParabolaZ(maxHeight, distance, i * speed) + ZStart
		local z = BlzGetLocalSpecialEffectZ(eff)
		local zGround = GetTerrainZ(nx, ny)
		BlzSetSpecialEffectPosition(eff, nx, ny, f)
		i = i + 1
		if i == 10 then
			if flag == 4 then
				EffectAddRegistrationCollision(eff, hero, 150, 0, 1)
			end
		end

		if z <= zGround and i > 5 then
			if flag == nil then
				-- без флага

			end

			if flag == 1 then
				-- бочка со взрывчаткой и таймером
				BlzPlaySpecialEffect(eff, ANIM_TYPE_STAND)
				if CreateTorrent(nx, ny) then
					WaveEffect(eff)
					EffectAddExplodedTimer(eff, 3, hero)
				else
					--BlzSetSpecialEffectZ(eff,z+30)
					ExplodeEffect(eff, 3)
					UnitDamageArea(hero, 500, nx, ny, 250)
				end
			elseif flag == 2 then
				-- навесной разделяющийся
				CreateTorrent(nx, ny)
				if ExplodeEffect(eff, 3) == false then
					-- взрыв не на воде
					--print("разделяемся")
					--[[for i=1,7 do
						local cluster=AddSpecialEffect("Abilities/Spells/Other/Volcano/VolcanoMissile.mdl",nx,ny)
						BlzSetSpecialEffectZ(cluster,z)
						BlzSetSpecialEffectScale(cluster,0.4)
						JumpEffect(cluster,10,GetRandomInt(50,150),GetRandomInt(0,359),GetRandomInt(50,200),hero,3)
					end]]
				end
				DestroyEffect(eff)
				UnitDamageArea(hero, 210, nx, ny, 150 )
				--print("урон прошел")
			elseif flag == 3 then
				-- осколки
				CreateTorrent(nx, ny)
				DestroyEffect(eff)
				UnitDamageArea(hero, 100, nx, ny, 200)
			elseif flag == 4 then
				-- выпрыгнул гоблин
				if CreateTorrent(nx, ny, 0.1) then
					BlzSetSpecialEffectZ(eff, -90)

				else
					DestroyEffect(eff)
				end
			end
			DestroyTimer(GetExpiredTimer())
		end
	end)
end

function EffectAddRegistrationCollision(eff, hero, range, duration, flag)
	local sec = duration
	local infinity = false
	if duration == nil or duration == 0 then
		infinity = true
	end
	TimerStart(CreateTimer(), 0.1, true, function()
		local x, y, z = BlzGetLocalSpecialEffectX(eff), BlzGetLocalSpecialEffectY(eff), BlzGetLocalSpecialEffectZ(eff)
		local e = nil
		GroupEnumUnitsInRange(perebor, x, y, range, nil)
		while true do
			e = FirstOfGroup(perebor)
			if e == nil then
				break
			end
			if UnitAlive(e) and IsUnitZCollision(e, z) then
				--print("Эффет столкнулся с "..GetUnitName(e))
				if flag == 1 then
					-- орк в уточке
					if IsUnitType(hero, UNIT_TYPE_HERO) then
						DestroyEffect(eff)
						PlaySoundAtPointBJ(gg_snd_Load, 100, Location(x, y), 0)
						DestroyTimer(GetExpiredTimer())
						HealUnit(hero, 100)
						--print("Лечение подбор орка для"..GetUnitName(hero))
					end
				elseif flag == 2 then
					-- глубоководная мина
					if IsUnitEnemy(e, GetOwningPlayer(hero)) then
						--UnitDamageArea(hero, 100, x, y, 200, z) --мина
					end
				end
			end
			GroupRemoveUnit(perebor, e)
		end
		sec = sec - 1
		if sec < 0 and infinity == false then
			DestroyEffect(eff)
			DestroyTimer(GetExpiredTimer())
		end
	end)
end

function CreateLightingCharges(hero)
	local data = HERO[GetPlayerId(GetOwningPlayer(hero))]
	--print("1")
	TimerStart(CreateTimer(), 0.7, true, function()
		if data.ReleaseRMB then
			HeroUpdateWeaponCharges(hero, 7, -1)
			FindEnemyForLighting(hero, 500)
		else
			DestroyTimer(GetExpiredTimer())
		end
	end)
end

function FindEnemyForLighting(hero, range)
	local e = nil
	local x, y = GetUnitXY(hero)

	GroupEnumUnitsInRange(perebor, x, y, range, nil)
	--print("2")
	while true do
		e = FirstOfGroup(perebor)
		if e == nil then
			break
		end
		if UnitAlive(e) and IsUnitEnemy(e, GetOwningPlayer(hero)) and IsUnitVisible(e, GetOwningPlayer(hero)) then
			--print("найден враг")
			if HeroUpdateWeaponCharges(hero, 7, 1) then
				local dummy = CreateUnit(GetOwningPlayer(hero), DummyID, GetUnitX(hero), GetUnitY(hero), 0)
				SetUnitZ(dummy, GetUnitZ(hero) + 90)
				UnitAddAbility(dummy, FourCC('A00B'))-- молния
				UnitApplyTimedLife(dummy, DummyID, 1)
				if not Cast(dummy, 0, 0, e) then
					HeroUpdateWeaponCharges(hero, 7, -1)
				end
			else
				DestroyTimer(GetExpiredTimer())
			end
		end
		GroupRemoveUnit(perebor, e)
	end
end

function SawActivated(hero)
	local data = HERO[GetPlayerId(GetOwningPlayer(hero))]
	local saw = AddSpecialEffect(SawDiskModel, GetUnitXY(hero))
	local id = UnitGetPid(hero)
	BlzSetSpecialEffectScale(saw, 0.7)
	--HeroUpdateWeaponCharges(hero,8,-1)
	--print("пила активирована")
	local CurAngle = GetUnitFacing(hero)
	TimerStart(CreateTimer(), TIMER_PERIOD, true, function()
		local x, y = GetUnitXY(hero)
		local angle = AngleBetweenXY(x, y, GetPlayerMouseX[id], GetPlayerMouseY[id]) / bj_DEGTORAD
		--angle=math.abs(angle)
		--print(angle)
		--if CurAngle>=angle-10 and CurAngle<=angle+10 then
		if data.ReleaseRMB then
			if CurAngle <= angle then
				if CurAngle < angle - 10 then
					CurAngle = CurAngle + 5
				end
			else
				CurAngle = CurAngle - 5
			end
		end

		local nx, ny = MoveXY(x, y, 130, angle)
	-- вроде как и было отключено
		--if UnitDamageArea(hero, 30, nx, ny, 150, GetUnitZ(hero) + 50, "Abilities/Weapons/AncestralGuardianMissile/AncestralGuardianMissile.mdl") then -- это и бло отключено
			--[[if HeroUpdateWeaponCharges(hero,8,1) then
			else
				DestroyTimer(GetExpiredTimer())
				DestroyEffect(saw)
			end]]
		--end

		BlzSetSpecialEffectPosition(saw, nx, ny, GetUnitZ(hero) + 20)
		if data.WeaponIndex ~= 8 then
			DestroyTimer(GetExpiredTimer())
			DestroyEffect(saw)
		end
	end)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 09.02.2020 13:11
---
function CreateTorrent(x,y,size)
	local torrent=nil
	local z=GetTerrainZ(x,y)
	local IsWater=false
	if size==nil then size=1 end
	if z<=-80 then
		torrent=AddSpecialEffect("Torrent1.mdl",x,y)
		BlzSetSpecialEffectMatrixScale(torrent,size,size,size/10)
		DestroyEffect(torrent)
		IsWater=true
	end
	return IsWater
end

function WaveEffect(eff)
	local i=0
	local wave=50
	local deep=BlzGetLocalSpecialEffectZ(eff)

	TimerStart(CreateTimer(), TIMER_PERIOD, true, function()
		local f=SinBJ(i*wave)
		BlzSetSpecialEffectZ(eff,f+deep)
		i=i+0.3
		if i>=wave then
			DestroyTimer(GetExpiredTimer())
		end
	end)
end

function ExplodeEffect(eff,size)
	local onGround=false
	local x,y=BlzGetLocalSpecialEffectX(eff),BlzGetLocalSpecialEffectY(eff)
	local explode=AddSpecialEffect("Abilities/Spells/Other/TinkerRocket/TinkerRocketMissile.mdl",x,y)
	BlzSetSpecialEffectScale(explode,size)
	DestroyEffect(explode)
	onGround=CreateTorrent(x,y,size)
	BlzSetSpecialEffectPosition(eff,4000,4000,-200)
	DestroyEffect(eff)
	return onGround
end

function EffectAddExplodedTimer(eff,time,hero)
	local sec=time
	local x,y=BlzGetLocalSpecialEffectX(eff),BlzGetLocalSpecialEffectY(eff)
	TimerStart(CreateTimer(), 1, true, function()
		if sec>0 then
			FlyTextTagMissXY(x,y,sec,GetOwningPlayer(hero))
		end
		sec=sec-1
		if sec<0 then
			ExplodeEffect(eff,3)
			UnitDamageArea(hero,500,x,y,300) -- взрыв от бочки оп истчениею таймера
			DestroyTimer(GetExpiredTimer())
		end
	end)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 08.02.2020 12:24


function OnPostDamage()
	local damage     = GetEventDamage() -- число урона
	local damageType = BlzGetEventDamageType()
	if damage < 1 then return end

	local target          = GetTriggerUnit() -- тот кто получил урон
	local targetHandleId  = GetHandleId(target)

	local caster          = GetEventDamageSource() -- тот кто нанёс урон
	local casterOwner     = GetOwningPlayer(caster)

	--print(GetUnitName(caster).." нанёс урон - "..GetUnitName(target))
	if IsUnitType(target,UNIT_TYPE_HERO) and GetUnitTypeId(target)==FourCC("H000") then
		--print("Герой получил урон")
		local data=HERO[GetPlayerId(GetOwningPlayer(target))]

		local AngleUnitRad = math.rad(GetUnitFacing(target))  -- data.LastTurn
		local AngleSource = math.deg(AngleBetweenXY(GetUnitX(caster), GetUnitY(caster), GetUnitX(target), GetUnitY(target)))
		local Vector3 = wGeometry.Vector3
		local UnitFacingVector = Vector3:new(math.cos(AngleUnitRad), math.sin(AngleUnitRad), 0)  -- вектор поворота юнита
		local AngleSourceVector = Vector3:new(GetUnitX(caster) - GetUnitX(target), GetUnitY(caster) - GetUnitY(target), 0)  -- вектор получения от урона (by Doc)
		AngleSourceVector = AngleSourceVector:normalize()
		local dot = UnitFacingVector:dotProduct(AngleSourceVector)
		local dist=damage

		if GetUnitAbilityLevel(target,FourCC('BPSE'))>0 then  -- голем валун
			UnitRemoveAbility(target,FourCC('BPSE'))

			if data.ReleaseLMB  and not data.Perk14A then
				BlzSetEventDamage(0)
				data.StoneCount=data.StoneCount+1
				FrameBigSize(data.SelfFrame[14],0.2,14)
				if data.StoneCount==5 then
					data.Perk14A=true
					PerkUnlocker(data,14)
				end
			end
			--print("урон от голема")
		end
		if GetUnitAbilityLevel(caster,FourCC('A005'))>0 then -- обледенение
			DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget",GetUnitXY(target)))
		end

		if data.Reflection and data.Perk10 then -- парирование с талантом
			--print("Урон парирован")
			if 0 < dot then
				local eff=AddSpecialEffect("DefendCasterNoSound",GetUnitXY(target))
				local tl = Location(GetUnitXY(target))
				PlaySoundAtPointBJ( gg_snd_Reflect, 100, tl, 0 )
				RemoveLocation(tl)
				BlzSetSpecialEffectYaw(eff,math.rad(GetUnitFacing(target)))
				DestroyEffect(eff)
				BlzSetEventDamage(0)
			end
		end


		if data.ReleaseLMB and data.Perk14 and not data.ShieldOnCD then  -- Зажата левая кнопка мыши и есть щит --Prometheus Прометей
			if dist >=25 then dist=25 end
			if 0 < dot then
				local eff=AddSpecialEffect("DefendCaster",GetUnitXY(target))
				BlzSetSpecialEffectYaw(eff,math.rad(AngleSource-180))
				DestroyEffect(eff)
				UnitAddVectorForce(target, AngleSource, dist / 3, dist, false)  -- отталкивание
				local cd=5
				if damage>=500 then
					StartFrameCD(cd,data,14)
					data.ShieldOnCD=true
					FlyTextTagShieldXY(GetUnitX(target),GetUnitY(target),"Broken",GetOwningPlayer(target))
				end
				TimerStart(CreateTimer(), cd, false, function()
					data.ShieldOnCD=false
					BlzPauseUnitEx(caster, false)
					DestroyTimer(GetExpiredTimer())
				end)


				if data.Perk14A then
					FlyTextTagShieldXY(GetUnitX(target),GetUnitY(target),R2I(damage),GetOwningPlayer(target))
					BlzSetEventDamage(0)
				else
					FlyTextTagShieldXY(GetUnitX(target),GetUnitY(target),R2I(damage/2),GetOwningPlayer(target))
					BlzSetEventDamage(damage/2)
					--print("факт поглощения урона ™")
				end
			else
				DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Human\\HumanBlood\\HumanBloodFootman",GetUnitXY(target)))

				--print("boold")
				if GetUnitTypeId(caster)==DummyID or GetUnitTypeId(caster)==FourCC('e004') then
					--DestroyEffect(BlzSetSpecialEffectScale(AddSpecialEffect("D9_blood_effect1",GetUnitXY(target))),0.1)
					--DestroyEffect(BlzSetSpecialEffectScale(AddSpecialEffect("D9_blood_effect1",GetUnitXY(caster))),0.1)
					local eff=AddSpecialEffect("D9_blood_effect1",GetUnitXY(caster))
					BlzSetSpecialEffectScale(eff,0.1)
					DestroyEffect(eff)
				end
			end
			if data.Perk12 and dot>0 then--
				if DistanceBetweenXY(GetUnitX(target),GetUnitY(target),GetUnitXY(caster))<=200 then
					local x,y=GetUnitXY(caster)
					--print("замораживаем "..GetUnitName(caster))
					local dummy=CreateUnit(GetOwningPlayer(target), DummyID, x, y, 0)--
					UnitAddAbility(dummy,FourCC('A00H'))
					UnitApplyTimedLife(dummy,FourCC('BTLF'),0.1)
					if Cast(dummy,0,0,caster) then
						--	print("успех")
					else
						--	print("провел")
					end
					SetUnitTimeScale(caster,0)
					SetUnitVertexColor(caster,60,200,255,240)
					BlzPauseUnitEx(caster, true)
					TimerStart(CreateTimer(), 3, false, function()
						SetUnitTimeScale(caster,1)
						SetUnitVertexColor(caster,255,255,255,255)
						BlzPauseUnitEx(caster, false)
						DestroyTimer(GetExpiredTimer())
					end)
				end
			end
		else
			--print("anydamage")
			if GetUnitTypeId(caster)==DummyID or GetUnitTypeId(caster)==FourCC('e004') then
			--	DestroyEffect(BlzSetSpecialEffectScale(AddSpecialEffect("D9_blood_effect1",GetUnitXY(target))),0.1)
				--DestroyEffect(BlzSetSpecialEffectScale(AddSpecialEffect("D9_blood_effect1",GetUnitXY(caster))),0.1)
				local eff=AddSpecialEffect("D9_blood_effect1",GetUnitXY(caster))
				BlzSetSpecialEffectScale(eff,0.1)
				DestroyEffect(eff)
			end
		end
	end
	--любой получил урон




	if GetUnitTypeId(target)==FourCC('e009')  then --урон по тинику
		--local x,y=GetUnitXY()
		BlzSetEventDamage(damage*0.01)-- тини получает 1%% урона
		if damage>10 then
			local AngleSource = math.deg(AngleBetweenXY(GetUnitX(caster), GetUnitY(caster), GetUnitX(target), GetUnitY(target)))
			local eff=AddSpecialEffect("DefendCaster",GetUnitXY(target))
			BlzSetSpecialEffectYaw(eff,math.rad(AngleSource-180))
			DestroyEffect(eff)
			local tl = Location(GetUnitXY(caster))
			PlaySoundAtPointBJ( gg_snd_Reflect, 100, tl, 0 )
			RemoveLocation(tl)
		end
	end
	if GetUnitTypeId(target)==FourCC('o002')  and GetOwningPlayer(target)==Player(10) then --урон по кодою
		--print("урон по кодою")
		BlzSetEventDamage(0)
		local endX,endY=GetRectCenterX(gg_rct_KodoZone),GetRectCenterY(gg_rct_KodoZone)
		IssuePointOrder(target,"move",endX,endY)
		if IsUnitInRangeXY(target,endX,endY,120) then
			SetUnitOwner(target,casterOwner,true)
			--print("Ачивка кодоя")
			local data=HERO[GetPlayerId(casterOwner)]
			data.KodoCount=data.KodoCount+1-- считаем бездействие
			if not data.Perk8 then
				if data.KodoCount>=1 then
					data.Perk8=true
					BlzSetUnitArmor(caster,BlzGetUnitArmor(caster)+10)
					PerkUnlocker(data,8)
					--print("Рабочий поднял бунт")
					--Allian
				end
			end
			--Старт ИИ кодоя
			TimerStart(CreateTimer(), 10, true, function()
				if not UnitAlive(target) then DestroyTimer(GetExpiredTimer()) end
				if GetUnitCurrentOrder(target)~=String2OrderIdBJ("move") then
					local rx,ry=GetRandomInt(-500,500),GetRandomInt(-500,500)
					IssuePointOrder(target,"move", rx,ry)
				end
			end)
			TimerStart(CreateTimer(), 1, true, function()
				if not UnitAlive(target) then DestroyTimer(GetExpiredTimer()) end
				local e=nil
				GroupEnumUnitsInRange(perebor,GetUnitX(target),GetUnitY(target),600,nil)
				while true do
					e = FirstOfGroup(perebor)

					if e == nil then break end
					if UnitAlive(e) and IsUnitEnemy(e,GetOwningPlayer(target)) then
						--print("пытаемся скушать врага")
						--if Cast(target,0,0,e) then
						if IssueTargetOrder(target,"devour",e) then
							--print("успешно")
						else

						end
					end
					GroupRemoveUnit(perebor,e)
				end
			end)
		end
		TimerStart(CreateTimer(), 3, false, function()
			IssueImmediateOrder(target,"stop")-- стоп кодоя
			DestroyTimer(GetExpiredTimer())
		end)

	end
end


function InitDamage()
	local DamageTrigger = CreateTrigger()
	for i = 0, bj_MAX_PLAYER_SLOTS - 1 do
		--TriggerRegisterPlayerUnitEvent(DamageTrigger, Player(i), EVENT_PLAYER_UNIT_DAMAGING) -- До вычета брони
		TriggerRegisterPlayerUnitEvent(DamageTrigger, Player(i), EVENT_PLAYER_UNIT_DAMAGED) -- После вычета брони
	end
	TriggerAddAction(DamageTrigger, OnPostDamage)
end





function UnitDamageArea(u,damage,x,y,range,ZDamageSource,EffectModel)
	local isdamage=false
	local e=nil
	local hero=nil



	--print("Поиск целей в на высоте "..ZDamageSource)
	--local mperebor=CreateGroup()
	GroupEnumUnitsInRange(perebor,x,y,range,nil)
	while true do
		e = FirstOfGroup(perebor)
		if e == nil then break end
		if UnitAlive(e) and UnitAlive(u) and IsUnitEnemy(e,GetOwningPlayer(u))  and true then --and IsUnitZCollision(e,ZDamageSource)  -- момент урона
			--print("вызов проблемной функции "..GetPlayerName(GetOwningPlayer(u)).." "..GetUnitName(u).." "..damage)
			if EffectModel~=nil then
				--print("эффект"..EffectModel)
				local DE=AddSpecialEffect(EffectModel,GetUnitX(e),GetUnitY(e))
				BlzSetSpecialEffectZ(DE,ZDamageSource)
				DestroyEffect(DE)
			end
			if IsUnitType(u,UNIT_TYPE_HERO) then
				local data=HERO[GetPlayerId(GetOwningPlayer(u))]
				--if data.

				if data.HaveAFire then --урон от фаербола
					damage=damage*5
					data.HaveAFire=false
					if not data.Perk16 then
						UnitRemoveAbility(u,FourCC('A006'))
					end
					FlyTextTagCriticalStrike(e,I2S(R2I(damage)),GetOwningPlayer(u))
				end

			end
			UnitDamageTarget( u, e, damage, true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS )
			--print("урон прошёл для "..GetUnitName(e))
			isdamage=true
			hero=e
		end
		--ремонт
		if  true and UnitAlive(e) and IsUnitAlly(e,GetOwningPlayer(u)) and e~=u and IsUnitType(u,UNIT_TYPE_HERO)  then -- момент ремонта

			local data=HERO[GetPlayerId(GetOwningPlayer(u))]
			if GetUnitTypeId(e)==FourCC('n007') and damage>6 then-- попытка ударить свинку лечилку
				if DistanceBetweenXY(GetUnitX(u),GetUnitY(u),GetUnitXY(e))<=70 then
					local x,y=GetUnitXY(u)
					local mes=""
					if BlzGetLocale()=="ruRU" then
						mes="Герой полностью здоров"
					else
						mes="HP is full"
					end
					FlyTextTagHealXY(x,y,mes,GetOwningPlayer(u))
				end
			end
			if DistanceBetweenXY(GetUnitX(u),GetUnitY(u),GetUnitXY(e))<=200 and (IsUnitType(e,UNIT_TYPE_STRUCTURE) or IsUnitType(e,UNIT_TYPE_MECHANICAL)) then
				if GetUnitTypeId(e)==FourCC('n003') then-- костер
					if not data.Perk9 then
					data.FireCount=data.FireCount+1
					FrameBigSize(data.SelfFrame[9],0.2,9)
						if data.FireCount>=5 then
							data.Perk9=true
							--print("разблокировка перка огонька")
							PerkUnlocker(data,9)
						end
					end
					if data.Perk9 and GetUnitAbilityLevel(u,FourCC('A006'))==0 then
						UnitAddAbility(u,FourCC('A006'))
						--print("добавлен огонёк")
						data.HaveAFire=true

					end
				end
				--print("лечим")
				if not data.OnCharge and data.ShieldForce then-- нельзя чинить при рывке щита и при толчке щитом
					local heal=HealUnit(e,BlzGetUnitBaseDamage(u,0))
					data.Repairs=data.Repairs+heal
					if heal>0 and not data.Perk6  then
						FrameBigSize(data.SelfFrame[6],0.2,6)
					end
					data.RevoltSec=0
					if not data.Perk6 then
						if data.Repairs>=1000 then
							data.Perk6=true
							PerkUnlocker(data,6)
						end
					end
				end
			end
			hero=e
		end
		GroupRemoveUnit(perebor,e)
	end
	--DestroyGroup(mperebor)
	--mperebor=nil
	if PointContentDestructable(x,y,range,true,1+damage/4,u) then	isdamage=true	end
	return isdamage, hero
end

function IsUnitZCollision(hero,ZDamageSource)
	local zcollision=false
	local z=GetUnitZ(hero)

	if  ZDamageSource+60>=z and ZDamageSource-60<=z then
		zcollision=true
	else
		--print("Высота снаряда="..ZDamageSource.."Высота юнита="..z)
	end
	return zcollision
end



GlobalRect=Rect(0,0,0,0)
function PointContentDestructable (x,y,range,iskill,damage,hero)
	local content=false
	if range==nil then range=80 end
	if iskill==nil then iskill=false end
	--print(GetUnitName(hero))
	SetRect(GlobalRect, x - range, y - range, x + range, y +range)
	EnumDestructablesInRect(GlobalRect,nil,function ()
		local d=GetEnumDestructable()
		if GetDestructableLife(d)>0 then
			content=true
			local data=HERO[GetPlayerId(GetOwningPlayer(hero))]
			if IsUnitType(hero,UNIT_TYPE_HERO) then
				if data.HaveAFire then
					damage=damage*5
					data.HaveAFire=false
					if not data.Perk16 then
						UnitRemoveAbility(hero,FourCC('A006'))
					end
					--FlyTextTagCriticalStrike(e,I2S(R2I(damage)),GetOwningPlayer(u))
				end
			end


			if iskill then
				if not IsDestructableInvulnerable(d) then
					SetDestructableLife(d,GetDestructableLife(d)-damage)
				end



				if GetDestructableLife(d)>=1 then
					SetDestructableAnimation(d,"Stand Hit")
				else

					if DistanceBetweenXY(GetDestructableX(d), GetDestructableY(d),GetUnitXY(hero))<=200 then
						if data.IsWood then
							--print("Некуда класть звук")
							if GetDestructableTypeId(d)~=FourCC('LTrc') then
								CreateFreeWood(GetDestructableX(d), GetDestructableY(d))
							end
						else
							data.IsWood=true
							--print("Добавляем 1 дерева для "..GetUnitName(hero))
						end
					else
						--print(GetDestructableName(d))
						if GetDestructableTypeId(d)~=FourCC('LTrc') then
							CreateFreeWood(GetDestructableX(d), GetDestructableY(d))
						end
					end

				end
				if GetDestructableTypeId(d)==FourCC('LTrc') and not IsDestructableInvulnerable(d) then --блок голема, камень
					KillDestructable(d)
					TotalStones=TotalStones+1
					local  new=CreateUnit(Player(10), FourCC('n002'), GetDestructableX(d), GetDestructableY(d), 0)

					TimerStart(CreateTimer(),10,false, function()
						KillUnit(new)
						DestroyTimer(GetExpiredTimer())
					end)
				end

				if GetDestructableTypeId(d)==FourCC('LOcg') then -- клетка с мурлоками
					KillDestructable(d)
					local mid={
						FourCC('nmrr'),
						FourCC('nmrm'),
						FourCC('nmrl'),
						FourCC('nmtw')
					}
					local  new=CreateUnit(Player(10), mid[GetRandomInt(1,#mid)], GetDestructableX(d), GetDestructableY(d), 0)
					IssuePointOrder(new,"attack",0,0)
					--print("СОзданный мурлок идёт атаковать базу")

				end

			end
		else
			--local data=HERO(UnitGetPid(hero))
			--print("атака по мертвому "..GetUnitName(hero))
			--data.IsWood=true
		end
	end)
	return content
end

function CreateFreeWood(x,y)
	local  new=CreateUnit(Player(5), FourCC('e002'),x,y , 0)
	UnitAddAbility(new,FourCC('A000'))
	IssueImmediateOrder(new,"WindWalk")
	SetUnitInvulnerable(new,true)
end

---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 02.01.2020 15:39
---
---
function InitTrig_Entire()
	local this = CreateTrigger()
	TriggerRegisterEnterRectSimple(this, GetPlayableMapRect())
	TriggerAddAction(this, function()
		local EntireUnit=GetTriggerUnit()
		--print(GetUnitName(EntireUnit))
		if GetUnitTypeId(EntireUnit)==FourCC('n002')   then -- голем пытается скачатить на героя стан
			TimerStart(CreateTimer(), 3, true, function()
				for i = 0, 3 do
					local hero = HERO[i].UnitHero
					if IsUnitInRange(hero, EntireUnit, 500) then
						Cast(EntireUnit,0,0,hero)
					end
				end
				if not UnitAlive(EntireUnit) then
					DestroyTimer(GetExpiredTimer())
				end
			end)
		end
	end)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 16.01.2020 23:40
---
GetPlayerMouseX={0,0,0,0}
GetPlayerMouseY={0,0,0,0}
function InitMouseMoveTrigger()
	local MouseMoveTrigger = CreateTrigger()
	for i = 0, bj_MAX_PLAYER_SLOTS - 1 do
		local player = Player(i)
		--if GetPlayerSlotState(player) == PLAYER_SLOT_STATE_PLAYING and GetPlayerController(player) == MAP_CONTROL_USER then
			TriggerRegisterPlayerEvent(MouseMoveTrigger, player, EVENT_PLAYER_MOUSE_MOVE)
		GetPlayerMouseX[i] = 0
		GetPlayerMouseY[i] = 0
		--end
	end
		TriggerAddAction(MouseMoveTrigger, function()
			--print("ismove")
			--print("x="..BlzGetTriggerPlayerMouseX().." y="..BlzGetTriggerPlayerMouseY())
			local id=GetPlayerId(GetTriggerPlayer())
			HERO[id].IsMouseMove=true
			local xs,ys=GetUnitXY(HERO[id].UnitHero)
			--HERO[id].LastMouseX=BlzGetTriggerPlayerMouseX()
			if BlzGetTriggerPlayerMouseX()~=0 then
				GetPlayerMouseX[id]=BlzGetTriggerPlayerMouseX()
				GetPlayerMouseY[id]=BlzGetTriggerPlayerMouseY()
			end
			HERO[id].AngleMouse=AngleBetweenXY(xs, ys, GetPlayerMouseX[id], GetPlayerMouseY[id])/bj_DEGTORAD

		end)
end






---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 10.01.2020 22:05
--
---Глобалки
TIMER_PERIOD = 0.03125
HERO = {}
GetLocalON=true--отключает и выключает полностью возможности гетлокалплеер
do
	local InitGlobalsOrigin = InitGlobals -- записываем InitGlobals в переменную
	function InitGlobals()
		InitGlobalsOrigin() -- вызываем оригинальную InitGlobals из переменной
		perebor=CreateGroup()
		ConeImage=nil
		InitGameCore()
		InitMouseMoveTrigger()
		InitDamage()
		InitUnitDeath()
		InitAllZones()
		LeavePlayer()
		HeroEnterSaws()
		InitTrig_Entire()
		InitSpellTrigger()

		--Trig_Nahkampf_Initialisierung_Actions()
		InitCDSystem()
		--StartFrameCD(10)
	end

end

--[[do
	local IssueImmediateOrder_Original = IssueImmediateOrder
	function IssueImmediateOrder (whichUnit, order)
		-- some actions
		local success=IssueImmediateOrder_Original(whichUnit, order)
		if not success then
			print("Error "..GetUnitName(whichUnit))
		end
		return success
	end
end]]

--DestroyTimer
do
	local DestroyTimer_Original = DestroyTimer
	function DestroyTimer(whichTimer)
		PauseTimer(whichTimer)
		DestroyTimer_Original(whichTimer)
	end
end




function InitGameCore()
	--создаём героев
	--BlzEnableSelections(false,false)
	--EnableSelect(false,false)
	--EnableDragSelect(false, false)
	CreateWoodFrame()
	HideEverything()
	DontMove()
	TimerStart(CreateTimer(), 0.5, false, function()
		--ButtonPress()
		--CreateLanguageDialog()
		for i=0,3 do
			--if GetPlayerSlotState(Player(i)) == PLAYER_SLOT_STATE_PLAYING and GetPlayerController(Player(i)) == MAP_CONTROL_USER then
				PerkButtonLineNonLocal(i,0)
				--CreateStatusBar(i)
		--	end
		end
	end)
	TimerStart(CreateTimer(), 1, false, function()
		CreateMouseHelper()
		CreateLocalImages()
		--CreateVisualPointer()
		--PlayerPlaying()
		--PerkButtonLineNonLocal()-- табличка перков новая
	end)
	--TestFrame()
	--VisualUnlock()--убирание выделение каждые 10 сек

	CreateAndStartClock()
	-----Настоящая инициализация
	for i = 0, 3 do
		-- Число игроков
		HERO[i] = {
			Lang=0, --0 русский , 1 английский
			ReleaseW = false,
			ReleaseS = false,
			ReleaseA = false,
			ReleaseD = false,
			Acceleration = 0,
			ReleaseLMB = false,
			ReleaseRMB = false,
			SpeedBase = 9,
			UnitHero = CreateUnit(Player(i), FourCC('H000'), GetPlayerStartLocationX(Player(i)), GetPlayerStartLocationY(Player(i)), GetRandomReal(0, 360)),
			CurrentSpeed = 0,
			WeaponIndex = 1,
			AngleForce = 0, --типа какой-то уго для отталкивания
			IsDisabled = false,
			pid = i,
			legs = CreateUnit(Player(i), FourCC('o000'), GetPlayerStartLocationX(Player(i)), GetPlayerStartLocationY(Player(i)), 0),
			isattack = false,
			AttackTime = 0,
			IsWood = false,
			ForcesCount = 0,
			sec = 0, --костылики
			sec2 = 0, -- для анимаций
			IsMouseMove = false,
			LastMouseX = 0,
			LastTurn = 0,
			ForceRemain = {},
			ForceAngle = {},
			ForceSpeed = {},
			IsForce = {},
			CartUnit = nil,
			CartAngle = 0,
			WalkCart = false,
			ChargeIsReady = true,
			FrozenShield = 0,
			ReviveOnStay = false,
			ReviveOnBase = true,
			ShieldForce = true, -- толчек щитом
			ShieldOnCD=false,
			PlayerIsLeave = false,
			AngleMouse=0,
			--ChargeEff=nil,
			---накопление перков
			SingleWoodCount = 0,
			RevoltSec = 0,
			temRevolt=0,
			Dies = 0,
			TotalWay = 0,
			Kills = 0,
			Repairs = 0,
			Heals = 0,
			KodoCount = 0,
			FireCount = 0,
			HaveAFire = false,
			FirePointer=false,
			StoneCount = 0,
			WolfCount = 0,
			WolfHelper = nil,
			TreeCountOnTB = 0,
			SheepCount = 0,
			Thor=true,
			FBIsReady=true,
			---открытие перков
			Perk1 = false, --Работник месяца
			Perk1A = false, -- Автоматическая добычка
			Perk2 = false, -- Бунт
			Perk3 =  false, -- Суицидник
			Perk4 = false, -- Лесной болван
			Perk5 = false, -- Убийца
			Perk6 = false, -- Ученика кузнеца
			Perk7 = false, -- Ожирение
			Perk7A = false, -- Ожирение 2 степени
			Perk8 = false, -- Кодой
			Perk9 = false, -- Кирка
			Perk10 = false, -- парирование
			Perk11 = false, -- Технологии людей
			Perk12 = false, -- ледяной щит
			Perk13 = false, -- волк
			Perk14 = true, -- Щит 50 всегда ВКл, а то щит сломается
			Perk14A = false, -- щит 100
			Perk15 = false, -- овечья болезнь
			Perk16 = false, -- Фаерболы
			Perk17 = false, --Рывок
			----
			MHoldSec = 0, -- удержания мыши для подсказки
			Reflection = false, --время на отражение снаряда
			--- ИИ
			RangeDesMove = 0,
			--- заморозка
			IsFrizzyDisabled = false,
			FrozenTime = 0,
			FrizzyEff = nil,
			--фреймы
			ToolTip = {},
			PekFrame = {},
			LockFrame = {},
			VisualSelectorFrame = {},
			ReloadIco={},
			SelfFrame={},
			HeroIco=nil,
			CircleImage=nil,
			cx=0,
			cy=0,
			ShowSplat=false,
			Wagon=nil,
			Turret=nil,
			TurretArrow=nil,
			EnterInTurret=false,
			Compass=nil,
			CompassX=0,
			CompassY=0,
		}

		if HERO[i] then
			local hero = HERO[i].UnitHero
			SelectUnitForPlayerSingle(hero, GetOwningPlayer(hero))
			RegisterCollision(hero)
			MakeUnitAllAlly(hero)
			HealthBarAdd(hero)
			BlzPauseUnitEx(hero,true)
			AddSpecialEffectTarget("GeneralHeroGlow", hero, "origin")
			SetUnitColor(hero, ConvertPlayerColor(i))
			PatchTest(hero)
			--UnitAddAbility(hero,FourCC('A00O')) --Режим бАгов
			--UnitAddItemById(hero,FourCC('I002'))
			--UnitAddItemById(hero,FourCC('I002'))
			--UnitAddItemById(hero,FourCC('I002'))
			--UnitAddItemById(hero,FourCC('I002'))
			--UnitAddItemById(hero,FourCC('I002'))
			--UnitAddItemById(hero,FourCC('I002'))

			if GetPlayerController(GetOwningPlayer(hero)) == MAP_CONTROL_COMPUTER or GetPlayerSlotState(GetOwningPlayer(hero)) ~= PLAYER_SLOT_STATE_PLAYING  then
				StartPeonAI(hero)
			end

			--if(i>0) then
			--	StartPeonAI(hero)
			--end

			--print("111111")
		end
	end

	-----------------------------------------------------------------OSKEY_W
	local gg_trg_EventUpW = CreateTrigger()
	for i = 0, bj_MAX_PLAYER_SLOTS - 1 do
		BlzTriggerRegisterPlayerKeyEvent(gg_trg_EventUpW, Player(i), OSKEY_W, 0, true)
		BlzTriggerRegisterPlayerKeyEvent(gg_trg_EventUpW, Player(i), OSKEY_UP, 0, true)
	end
	TriggerAddAction(gg_trg_EventUpW, function()
		local pid = GetPlayerId(GetTriggerPlayer())
		local data = HERO[pid]
		if not data.ReleaseW and not data.IsFrizzyDisabled and UnitAlive(data.UnitHero) then
			data.ReleaseW = true
			if not data.OnCharge then
				UnitAddVectorForce(data.UnitHero, 90, 10, 30)
			end
			SetUnitAnimationByIndex(data.legs, PeonIndexWalk)
		end
	end)
	local TrigDepressW = CreateTrigger()
	for i = 0, bj_MAX_PLAYER_SLOTS - 1 do
		BlzTriggerRegisterPlayerKeyEvent(TrigDepressW, Player(i), OSKEY_W, 0, false)
		BlzTriggerRegisterPlayerKeyEvent(TrigDepressW, Player(i), OSKEY_UP, 0, false)
	end
	TriggerAddAction(TrigDepressW, function()
		local pid = GetPlayerId(GetTriggerPlayer())
		local data = HERO[pid]
		data.ReleaseW = false
	end)
	-----------------------------------------------------------------OSKEY_S
	local gg_trg_EventUpS = CreateTrigger()
	for i = 0, bj_MAX_PLAYER_SLOTS - 1 do
		BlzTriggerRegisterPlayerKeyEvent(gg_trg_EventUpS, Player(i), OSKEY_S, 0, true)
		BlzTriggerRegisterPlayerKeyEvent(gg_trg_EventUpS, Player(i), OSKEY_DOWN, 0, true)
	end
	TriggerAddAction(gg_trg_EventUpS, function()
		local pid = GetPlayerId(GetTriggerPlayer())
		local data = HERO[pid]
		if not data.ReleaseS and not data.IsFrizzyDisabled and UnitAlive(data.UnitHero) then
			data.ReleaseS = true
			if not data.OnCharge then
				UnitAddVectorForce(data.UnitHero, 270, 10, 30)
			end
			SetUnitAnimationByIndex(data.legs, PeonIndexWalk)
		end
	end)
	local TrigDepressS = CreateTrigger()
	for i = 0, bj_MAX_PLAYER_SLOTS - 1 do
		BlzTriggerRegisterPlayerKeyEvent(TrigDepressS, Player(i), OSKEY_S, 0, false)
		BlzTriggerRegisterPlayerKeyEvent(TrigDepressS, Player(i), OSKEY_DOWN, 0, false)
	end
	TriggerAddAction(TrigDepressS, function()
		local pid = GetPlayerId(GetTriggerPlayer())
		local data = HERO[pid]
		data.ReleaseS = false
	end)
	-----------------------------------------------------------------OSKEY_D
	local TrigPressD = CreateTrigger()
	for i = 0, bj_MAX_PLAYER_SLOTS - 1 do
		BlzTriggerRegisterPlayerKeyEvent(TrigPressD, Player(i), OSKEY_D, 0, true)
		BlzTriggerRegisterPlayerKeyEvent(TrigPressD, Player(i), OSKEY_RIGHT, 0, true)
	end
	TriggerAddAction(TrigPressD, function()
		local pid = GetPlayerId(GetTriggerPlayer())
		local data = HERO[pid]
		if not data.ReleaseD and not data.IsFrizzyDisabled and UnitAlive(data.UnitHero) then
			data.ReleaseD = true
			if not data.OnCharge then
				UnitAddVectorForce(data.UnitHero, 0, 10, 30)
			end
			SetUnitAnimationByIndex(data.legs, PeonIndexWalk)
		end
	end)
	local TrigDePressD = CreateTrigger()
	for i = 0, bj_MAX_PLAYER_SLOTS - 1 do
		BlzTriggerRegisterPlayerKeyEvent(TrigDePressD, Player(i), OSKEY_D, 0, false)
		BlzTriggerRegisterPlayerKeyEvent(TrigDePressD, Player(i), OSKEY_RIGHT, 0, false)
	end
	TriggerAddAction(TrigDePressD, function()
		local pid = GetPlayerId(GetTriggerPlayer())
		local data = HERO[pid]
		data.ReleaseD = false
	end)
	-----------------------------------------------------------------OSKEY_A
	local TrigPressA = CreateTrigger()
	for i = 0, bj_MAX_PLAYER_SLOTS - 1 do
		BlzTriggerRegisterPlayerKeyEvent(TrigPressA, Player(i), OSKEY_A, 0, true)
		BlzTriggerRegisterPlayerKeyEvent(TrigPressA, Player(i), OSKEY_LEFT, 0, true)
	end
	TriggerAddAction(TrigPressA, function()
		local pid = GetPlayerId(GetTriggerPlayer())
		local data = HERO[pid]
		if not data.ReleaseA and not data.IsFrizzyDisabled and UnitAlive(data.UnitHero) then
			if not data.OnCharge then
				UnitAddVectorForce(data.UnitHero, 180, 10, 30)
			end
			data.ReleaseA = true
			SetUnitAnimationByIndex(data.legs, PeonIndexWalk)
		end
	end)
	local TrigDePressA = CreateTrigger()
	for i = 0, bj_MAX_PLAYER_SLOTS - 1 do
		BlzTriggerRegisterPlayerKeyEvent(TrigDePressA, Player(i), OSKEY_A, 0, false)
		BlzTriggerRegisterPlayerKeyEvent(TrigDePressA, Player(i), OSKEY_LEFT, 0, false)
	end
	TriggerAddAction(TrigDePressA, function()
		local pid = GetPlayerId(GetTriggerPlayer())
		local data = HERO[pid]
		data.ReleaseA = false
	end)
	-----------------------------------------------------------------LMB SWAP RMB
	local TrigPressLMB = CreateTrigger()
	for i = 0, bj_MAX_PLAYER_SLOTS - 1 do
		TriggerRegisterPlayerEvent(TrigPressLMB, Player(i), EVENT_PLAYER_MOUSE_DOWN)
	end
	TriggerAddAction(TrigPressLMB, function()
		--print("any")
		if BlzGetTriggerPlayerMouseButton() == MOUSE_BUTTON_TYPE_RIGHT then
			--это леваый клик всё внутри LMB

			local pid = GetPlayerId(GetTriggerPlayer())
			local data = HERO[pid]
			if  UnitAlive(data.UnitHero) then
				if not data.ReleaseLMB then
					data.ReleaseLMB = true
				end
				if data.ReleaseRMB and data.ShieldForce then
					-- толчек щитом
					--print("mini force")
					data.ShieldForce = false
					local x, y = MoveXY(GetUnitX(data.UnitHero), GetUnitY(data.UnitHero), 55, GetUnitFacing(data.UnitHero))
					local _, DamagingUnit= UnitDamageArea(data.UnitHero, 1, x, y, 100)
					local angleU = AngleBetweenUnits(data.UnitHero, DamagingUnit)
					local eff = AddSpecialEffect("DefendCaster", x, y)
					BlzSetSpecialEffectYaw(eff, math.rad(GetUnitFacing(data.UnitHero)))
					DestroyEffect(eff)

					if IsUnitType(DamagingUnit, UNIT_TYPE_HERO) then
						UnitAddVectorForce(DamagingUnit, angleU, 10, 50, false)
					else
						if GetUnitTypeId(DamagingUnit) ~= FourCC('o007') then
							UnitAddForce(DamagingUnit, angleU, 10, 50)
						end
					end

					TimerStart(CreateTimer(), 0.3, false, function()
						data.ShieldForce = true
						DestroyTimer(GetExpiredTimer())
					end)
				end
				--local hero=data.UnitHero
				data.AttackTime = 0.0
				if data.Perk14 then
					if data.Perk14A then
						UnitAddAbility(data.UnitHero, FourCC('A00P'))
					else
						UnitAddAbility(data.UnitHero, FourCC('A007'))
					end
					if data.Perk12 then
						UnitAddAbility(data.UnitHero, FourCC('A00I'))--эффект мороза
					end
					if data.IsWood then
						local x, y = GetUnitXY(data.UnitHero)
						CreateFreeWood(MoveXY(x, y, -60, data.LastTurn))
						data.IsWood = false
					end
				end
			end
		end
	end)
	local TrigDePressLMB = CreateTrigger()
	for i = 0, bj_MAX_PLAYER_SLOTS - 1 do
		TriggerRegisterPlayerEvent(TrigDePressLMB, Player(i), EVENT_PLAYER_MOUSE_UP)
	end

	TriggerAddAction(TrigDePressLMB, function()
		--print("any")
		if BlzGetTriggerPlayerMouseButton() == MOUSE_BUTTON_TYPE_RIGHT then
			local pid = GetPlayerId(GetTriggerPlayer())
			local data = HERO[pid]
			data.ReleaseLMB = false
			UnitRemoveAbility(data.UnitHero, FourCC('A007'))
			UnitRemoveAbility(data.UnitHero, FourCC('A00P'))
			UnitRemoveAbility(data.UnitHero, FourCC('A00I'))
		end
	end)
	-----------------------------------------------------------------RMB swap LMB
	local TrigPressRMB = CreateTrigger()
	for i = 0, bj_MAX_PLAYER_SLOTS - 1 do
		TriggerRegisterPlayerEvent(TrigPressRMB, Player(i), EVENT_PLAYER_MOUSE_DOWN)
	end

	TriggerAddAction(TrigPressRMB, function()
		--print("any")
		--if GetLocalPlayer() == GetTriggerPlayer() and GetLocalON  then
		--	EnableUserControl(true)
			--print("клик левой")
		--end
		if BlzGetTriggerPlayerMouseButton() == MOUSE_BUTTON_TYPE_LEFT then

			-- это правая кнопка
			local pid = GetPlayerId(GetTriggerPlayer())
			local data = HERO[pid]
			if  UnitAlive(data.UnitHero) then
				if not data.ReleaseRMB then
					data.ReleaseRMB = true
				end
				if data.ReleaseLMB and data.ChargeIsReady and data.Perk17 then
					-- И талант на рывок
					local cd=2
					UnitAddVectorForce(data.UnitHero, data.LastTurn, 30, 300, false)
					StartFrameCD(cd, data,17)
					--data.ChargeEff=AddSpecialEffectTarget("Valiant Charge",data.UnitHero,"origin")
					data.OnCharge = true
					data.ChargeIsReady = false
					if data.Perk12 then
						--ледяной щит
						if not UnitAddAbility(data.UnitHero, FourCC('A00F')) then
							--print("error")
						end --Синий
						--print("синий")
					else
						UnitAddAbility(data.UnitHero, FourCC('A00E')) --красный
						--print("красный")
					end

					--

					TimerStart(CreateTimer(), cd, false, function()
						data.ChargeIsReady = true
						UnitRemoveAbility(data.UnitHero, FourCC('A00E')) --красный
						UnitRemoveAbility(data.UnitHero, FourCC('A00F')) --Синий
						DestroyTimer(GetExpiredTimer())
					end)
				end

				if not data.IsFrizzyDisabled then
					--if not data.ReleaseA and not data.IsFrizzyDisabled then
					data.ReleaseRMB = true
					data.Reflection = true
				end
			end
		end
	end)
	local TrigDePressRMB = CreateTrigger()
	for i = 0, bj_MAX_PLAYER_SLOTS - 1 do

		TriggerRegisterPlayerEvent(TrigDePressRMB, Player(i), EVENT_PLAYER_MOUSE_UP)
	end
	TriggerAddAction(TrigDePressRMB, function()
		--print("any")
		if BlzGetTriggerPlayerMouseButton() == MOUSE_BUTTON_TYPE_LEFT then
			local pid = GetPlayerId(GetTriggerPlayer())
			local data = HERO[pid]
			local hero = data.UnitHero
			data.ReleaseRMB = false
			data.Reflection = false
			if UnitAlive(hero) then

				if data.IsWood then
					SetUnitAnimationByIndex(hero, PeonIndexStandLumber)
				else
					ResetPeonAnimation(hero)
				end
			end
		end
	end)

	-----------------------------------------------------------------Lock
	TimerStart(CreateTimer(), 0.01, true, function()
		for i = 0, 3 do
			local data = HERO[i]
			local hero = data.UnitHero
			if UnitAlive(hero) then
				--SelectUnitForPlayerSingle(hero,GetOwningPlayer(hero))
				ForceUIKeyBJ(GetOwningPlayer(hero), "M")
				--IssueImmediateOrder(hero, "stop")
			end
		end
	end)

	------------------------------ТЕСТ АНИМАЦИЙ
	local ai = 0
	TimerStart(CreateTimer(), 2, true, function()
		local data = HERO[0]
		local hero = data.legs
		--SetUnitAnimationByIndex(hero,ai)
		--SetUnitAnimationByIndex(hero,ai)
		--print(ai)
		ai = ai + 1
	end)



	--local sec=0
	--local sec2=0
	--local secattack=0
	--local temRevolt=0
	TimerStart(CreateTimer(), TIMER_PERIOD, true, function()
		--for i, data in pairs(HERO) do
		for i=0,3 do
			local data=HERO[i]
			--print(i.." pairs")
			local hero = data.UnitHero
			local id = data.pid
			local p = GetOwningPlayer(hero)
			local angle = 0
			local mBonus = 21
			if data.ReleaseLMB then
				mBonus = mBonus * 1.5
			end
			if data.Perk4 then
				mBonus = mBonus * 0.7--=15 и это быстрее
			end
			local speed = GetUnitMoveSpeed(hero) / mBonus--data.SpeedBase
			local x, y = GetUnitXY(hero)
			local IiMoving = false
			local walk = false
			local startwalk = false
			local standanim = false
			local walkattack = false
			PeonIndexWalk=1
			PeonIndexAttack=3
			PeonIndexAttackLumber=5
			PeonIndexWalkLumber=13
			PeonIndexStandLumber=8
			PeonIndexStand= 0
			--local WalkCart = false

			local turn = 0
			--if  GetPlayerSlotState(GetOwningPlayer(hero)) == PLAYER_SLOT_STATE_PLAYING then --GetPlayerController(GetOwningPlayer(hero)) == MAP_CONTROL_USER and
			if true then
				--print(1)
				if not data.IsFrizzyDisabled then
				--	print("2 x="..x.." y= "..y)
					turn = AngleBetweenXY(x, y, GetPlayerMouseX[id], GetPlayerMouseY[id]) / bj_DEGTORAD
				--	print(3)
					--print(turn)
				end

				if data.LastMouseX == GetPlayerMouseX[id] then
					--print("курсор не движется "..data.LastMouseX)
					--turn=GetUnitFacing(hero)
					data.IsMouseMove = false

				else
					data.LastTurn = turn
					--print("движется")
				end
				data.LastMouseX = GetPlayerMouseX[id]
			end
			--print("eeeee")
			local Vector3 = wGeometry.Vector3



			--Камера
			if UnitAlive(hero) then
				SetCameraQuickPosition(GetUnitX(hero), GetUnitY(hero))
				SetCameraTargetControllerNoZForPlayer(p, hero, 10, 10, true) -- не дергается
			else
				--print("x"..GetUnitX(hero))
				--SetCameraQuickPosition(GetUnitX(hero), GetUnitY(hero))
				--SetCameraPosition(GetUnitXY(hero))
				--SetCameraTargetControllerNoZForPlayer( GetOwningPlayer(hero), hero, 10, 10, true) -- не дергается
				--print(GetPlayerName(GetOwningPlayer(hero)))
			--	SetCameraQuickPosition(GetUnitX(data.legs), GetUnitY(data.legs))
			--	SetCameraTargetControllerNoZForPlayer(GetOwningPlayer(data.legs), data.legs, 10, 10, true)
			end

			if data.ReleaseLMB and data.Perk14 and UnitAlive(hero) then
				SetUnitAnimation(hero, "stand defend")
				--print("Стоит с щитом")
				--SetUnitAnimationByIndex(hero,20)
			end

			data.sec = data.sec + TIMER_PERIOD--анимация движения
			if data.sec >= 1 then
				data.sec = 0
				walk = true
				standanim = true

			end

			data.sec2 = data.sec2 + TIMER_PERIOD -- анимация атаки
			if data.sec2 >= 1 then
				data.sec2 = 0
				walkattack = true
			end
			if not data.sec3 then
				data.sec3 = 0
			end
			data.sec3 = data.sec3 + TIMER_PERIOD -- движения карта
			if data.sec3 >= 1 then
				data.sec3 = 0
				data.WalkCart = true
			end


			-- таланты просчеты
			data.RevoltSec = data.RevoltSec + TIMER_PERIOD-- считаем бездействие
			data.temRevolt=data.temRevolt+TIMER_PERIOD

			if data.temRevolt>=10 then
				data.temRevolt=0
				FrameBigSize(data.SelfFrame[2],0.2,2) --это надо делать каждую целую секунду
			end
			if not data.Perk2 then
				if data.RevoltSec >= 100 then --Вернуть 100
					data.Perk2 = true
					PerkUnlocker(data, 2)
					--print("Рабочий поднял бунт")
					AddAxe(data)
					MakeUnitAllEnemy(hero)
				end
			end
			if data.ReleaseRMB then
				data.MHoldSec = data.MHoldSec + TIMER_PERIOD
			end

			local aSpeed = 0.7
			if data.EnterInTurret then aSpeed=999999 end
			data.AttackTime = data.AttackTime + TIMER_PERIOD
			if data.AttackTime >= aSpeed then
				data.AttackTime = 0
				if data.ReleaseRMB then
					data.isattack = true
					--print("time attack")

					if not data.ReleaseLMB then
						AfterAttack(hero, 0.4)
					end
					--SingleCannon(hero)
				end
			end

			if data.ReleaseW and data.ReleaseD == false and data.ReleaseA == false then
				--print("only w")
				angle = 90
				IiMoving = true
			end
			if data.ReleaseW and data.ReleaseD then
				--print("w+d")
				angle = 90 - 45
				IiMoving = true
			end
			if data.ReleaseW and data.ReleaseA then
				--print("w+s")
				angle = 90 + 45
				IiMoving = true
			end

			if data.ReleaseS and data.ReleaseD == false and data.ReleaseA == false then
				angle = 270
				IiMoving = true
			end
			if data.ReleaseS and data.ReleaseD then
				angle = 270 + 45
				IiMoving = true
			end
			if data.ReleaseS and data.ReleaseA then
				angle = 270 - 45
				IiMoving = true
			end

			if data.ReleaseD and data.ReleaseW == false and data.ReleaseS == false then
				angle = 0
				IiMoving = true
			end

			if data.ReleaseA and data.ReleaseW == false and data.ReleaseS == false then
				angle = 180
				IiMoving = true
			end

			if data.IsMouseMove then
				--print("да")
				if turn < 0 and turn > -180 then
					turn = turn + 360
				end
				if data.EnterInTurret then
					if turn<=150 then
						turn=150
					end
					if turn>=210 then
						turn=210
					end
				end
				--print(turn)
				data.LastTurn = turn
			else
				turn = data.LastTurn
				--print("нет")
			end

			if GetPlayerController(GetOwningPlayer(hero)) == MAP_CONTROL_COMPUTER or data.PlayerIsLeave or GetPlayerSlotState(GetOwningPlayer(hero)) ~= PLAYER_SLOT_STATE_PLAYING then
				angle = data.LastTurn
				if data.RangeDesMove > 100 then
					IiMoving = true
				end
			end

			local dif = 100
			if angle + dif > turn and angle - dif < turn  then
				SetUnitTimeScale(data.legs, speed * .1)
				if GetOwningPlayer(hero)==Player(0) then
				--	print("прямое движение ног "..turn)
				end

			else
				if data.ReleaseD and turn>=270 then --костыль по исправлению бага OK!
					SetUnitTimeScale(data.legs, speed * .1)
				else
					SetUnitTimeScale(data.legs, -1 * (speed * .1))
				end

				if GetOwningPlayer(hero)==Player(0) then
				--	print("обратное движение ног "..turn)
				end
			end



			--Любой тик движения
			local k = data.ForcesCount
			local WASDMoving = Vector3:copyFromUnit(hero)
			local newPos = WASDMoving

			if data.AfterMoving then
				-- вектор внешней силы if false then--
				--print("true")
				local f = 0
				for i2 = 1, k do
					if data.ForceRemain[i2] > 0 then
						--print("Внешняя сила="..data.ForceRemain[i])
						f = f + 1
						newPos = newPos + WASDMoving:yawPitchOffset(data.ForceSpeed[i2], data.ForceAngle[i2] * (math.pi / 180), 0.0)
						--newPos=newPos+Vector3:new(-5, 0, 0)
						--newPos=WASDMoving+WASDMoving:yawPitchOffset( speed, angle * ( math.pi / 180 ), 0.0 )
						--newPos=Vector3:copyFromUnit(hero)+Vector3:new(data.ForceSpeed[i], data.ForceAngle[i] * ( math.pi / 180 ), 0)
						data.ForceRemain[i2] = data.ForceRemain[i2] - data.ForceSpeed[i2]
					else
						if data.IsForce[i2] then
							data.IsForce[i2] = false
						end
					end
				end
				if f == 0 then
					data.ForcesCount = 0
					data.IsDisabled = false
					SetUnitPathing(hero, true)
				end
			end

			--анимации
			if UnitAlive(hero) then
				if IiMoving then
					if not data.IsFrizzyDisabled then
						data.TotalWay = data.TotalWay + speed-- считаем бездействие
						if not data.Perk4 then
							if data.TotalWay >= 200000 then
								data.Perk4 = true
								PerkUnlocker(data, 4)
								--print("Лесной болван")
							end
						end

						if startwalk == false then
							data.sec = 1
							startwalk = true
						end
						if data.isattack == false then
							if walkattack then

								if data.ReleaseRMB == false and not data.ReleaseLMB and UnitAlive(hero) then
									--	print("reset in walk")
									SetUnitAnimation(hero, "Stand")
								end
							end
						end

						if walk and walkattack and UnitAlive(hero) and not data.Wagon then
							BlzSetUnitFacingEx(data.legs, angle)
							SetUnitAnimationByIndex(data.legs, PeonIndexWalk)
							SetUnitTimeScale(data.legs, speed * .1)
							walk = false

							--print("перебирай ногами"..GetUnitName(data.legs))
						end
						------------------------------Движение


						newPos = WASDMoving + WASDMoving:yawPitchOffset(speed, angle * (math.pi / 180), 0.0)

					end
				else
					--не двигается

					if GetOwningPlayer(hero) == Player(0) then
						--	print("не двигается")
					end
					if data.CartUnit then
						SetUnitAnimationByIndex(data.CartUnit, 0)
					end
					if standanim then
						SetUnitAnimationByIndex(data.legs, PeonIndexStand)
					end
					startwalk = false
					BlzSetUnitFacingEx(data.legs, turn)
				end
			end

			if data.AfterMoving == false then
				-- вектор внешней силы
				--print("false")
				local f = 0
				for i2 = 1, k do
					if data.ForceRemain[i2] > 0 then
						--print("Внешняя сила="..data.ForceRemain[i])
						if data.OnCharge then
							--print("В процессе толкания")
							local _, DamagingUnit = UnitDamageArea(hero, 1, GetUnitX(hero), GetUnitY(hero), 150)
							local angleU = AngleBetweenUnits(hero, DamagingUnit)
							--print(angleU)
							if not DamagingUnit then
								--print("толкаемый герой не определён")
							end

							if data.Perk12 and GetUnitAbilityLevel(DamagingUnit,FourCC('Bfro'))==0 and IsUnitEnemy(DamagingUnit,GetOwningPlayer(hero)) and DamagingUnit then
								--
								local x12, y12 = GetUnitXY(DamagingUnit)
								--print("замораживаем "..GetUnitName(caster))
								local dummy = CreateUnit(GetOwningPlayer(hero), DummyID, x12, y12, 0)--
								UnitAddAbility(dummy, FourCC('A00H'))
								UnitApplyTimedLife(dummy, FourCC('BTLF'), 0.1)
								if Cast(dummy, 0, 0, DamagingUnit) then
									--	print("успех")
								else
									--	print("провел")
								end
								SetUnitTimeScale(DamagingUnit, 0)
								SetUnitVertexColor(DamagingUnit, 60, 200, 255, 240)
								BlzPauseUnitEx(DamagingUnit, true)
								TimerStart(CreateTimer(), 3, false, function()
									SetUnitTimeScale(DamagingUnit, 1)
									SetUnitVertexColor(DamagingUnit, 255, 255, 255, 255)
									BlzPauseUnitEx(DamagingUnit, false)
									DestroyTimer(GetExpiredTimer())
								end)
							end

							if IsUnitType(DamagingUnit, UNIT_TYPE_HERO) then
								--print("попытка толкнуть"..GetUnitName(DamagingUnit))
								UnitAddVectorForce(DamagingUnit, angleU, 10, 50, false)
							else
								if GetUnitTypeId(DamagingUnit) ~= FourCC('o007') then
									UnitAddForce(DamagingUnit, angleU, 10, 50)
								end
							end
						end

						f = f + 1
						newPos = newPos + WASDMoving:yawPitchOffset(data.ForceSpeed[i2], data.ForceAngle[i2] * (math.pi / 180), 0.0)
						--newPos=newPos+Vector3:new(-5, 0, 0)
						--newPos=WASDMoving+WASDMoving:yawPitchOffset( speed, angle * ( math.pi / 180 ), 0.0 )
						--newPos=Vector3:copyFromUnit(hero)+Vector3:new(data.ForceSpeed[i], data.ForceAngle[i] * ( math.pi / 180 ), 0)
						data.ForceRemain[i2] = data.ForceRemain[i2] - data.ForceSpeed[i2]
					else
						if data.IsForce[i2] then
							data.IsForce[i2] = false
						end
					end
				end
				if f == 0 then
					data.ForcesCount = 0
					data.IsDisabled = false
					SetUnitPathing(hero, true)
					if data.OnCharge then-- место где окончился рывок и сплеш урон
						data.OnCharge = false
						UnitRemoveAbility(hero, FourCC('A00E')) --красный
						UnitRemoveAbility(hero, FourCC('A00F')) --Синий
						UnitDamageArea(hero, BlzGetUnitBaseDamage(hero,0)*4, GetUnitX(hero), GetUnitY(hero), 150) -- удар после рывка
						--DestroyEffect(data.ChargeEff)
						--data.ChargeEff=nil
						--print("нет больше сил")
					end

				end
			end

			if not data.ReleaseLMB then
				if data.isattack then
					walkattack = false
					--SetUnitAnimationByIndex(hero,7) --проигрываем анимацию атаки
					if UnitAlive(hero) then
						if data.IsWood then
							SetUnitAnimationByIndex(hero, PeonIndexAttackLumber)

						else
							SetUnitAnimationByIndex(hero, PeonIndexAttack)
						end
					end
					--print("play attack")
					data.isattack = false
				else
					if standanim then
						standanim = false
						if IiMoving == false and data.ReleaseRMB == false then
							--print("Анимация Stand")
							if UnitAlive(hero) then
								if data.IsWood then
									SetUnitAnimationByIndex(hero, PeonIndexStandLumber)

								else
									ResetPeonAnimation(hero)

								end
							end
						end
					end
				end
			end
			---дополнительный сборс
			if not data.ReleaseLMB then
				if data.ReleaseRMB == false and data.isattack == false and IiMoving then
					if IiMoving then
						if walkattack then
							walkattack = false
							--print("анимация движения без атаки")
							if UnitAlive(hero) then
								if data.IsWood then
									SetUnitAnimationByIndex(hero, PeonIndexWalkLumber)

								else
									SetUnitAnimationByIndex(hero, PeonIndexWalk)

								end
							end
						end
					else
						print("total reset")
						SetUnitAnimation(hero, "Stand")
					end
				end
			end
			--каждый тик
			if data.IsWood then
				UnitAddAbility(hero,FourCC('A00R'))
			else
				UnitRemoveAbility(hero,FourCC('A00R'))
			end

			if RectContainsCoords(gg_rct_Winter, GetUnitXY(hero)) then
				--
				newPos = newPos + Vector3:new(-5, 0, 0)

				if not data.HaveAFire and not data.Perk16 then
					data.FrozenTime = data.FrozenTime + TIMER_PERIOD

					data.FrozenShield = data.FrozenShield + TIMER_PERIOD
					if data.FrozenShield >= 60 and not data.Perk12 then
						data.Perk12 = true
						PerkUnlocker(data, 12)
					end

					if not data.IsFrizzyDisabled then
						if data.FrozenTime >= 15 then
							--and not data.FrizzyEff then
							data.FrizzyEff = AddSpecialEffectTarget("ice cube", hero, "origin")
							--print("обморожение "..data.FrozenTime)
							data.IsFrizzyDisabled = true
						end
					end

					if data.FrozenTime >= 30 then
						data.IsFrizzyDisabled = false
						DestroyEffect(data.FrizzyEff)
						KillUnit(hero)
						data.FrozenTime = 0
					end
				end

			else
				--print("в тёплой зоне")
				if data.FrozenTime >= 0 then
					data.FrozenTime = data.FrozenTime - TIMER_PERIOD * 5
				end
				if data.IsFrizzyDisabled then
					--print("Таем "..data.FrozenTime)
					--data.FrozenTime=data.FrozenTime-TIMER_PERIOD*5

					if data.FrozenTime <= 0 then
						DestroyEffect(data.FrizzyEff)
						--print("Оттаял "..data.FrozenTime)
						data.IsFrizzyDisabled = false
					end
				end

			end

			if UnitAlive(hero) and not data.EnterInTurret then
				SetUnitPositionSmooth(hero, newPos.x, newPos.y)
				--Синхронизация ног
				SetUnitX(data.legs, GetUnitX(hero))
				SetUnitY(data.legs, GetUnitY(hero))

				-- УБерсплаты
				if data.CircleImage then --есть уберсплат
					data.cx,data.cy=GetUnitX(hero)-64-16,GetUnitY(hero)-64-16
					--local angleSplat=data.LastTurn
					data.cx,data.cy=MoveXY(data.cx,data.cy,70,GetUnitFacing(hero))
					SetImagePosition(data.CircleImage,data.cx,data.cy,0)
					if GetLocalPlayer()==p then
						if  data.ShowSplat then
							ShowImage(data.CircleImage,true)
						else
							ShowImage(data.CircleImage,false)
						end
					end
				end
			end
			-- карт сзади юнита
			if data.CartUnit then
				if not data.ReleaseW and not data.ReleaseD and not data.ReleaseA and data.ReleaseA then
					IiMoving = false
					print("alldepress")
				end
				local rangeCart = DistanceBetweenXY(GetUnitX(hero), GetUnitY(hero), GetUnitX(data.CartUnit), GetUnitY(data.CartUnit))
				--print(rangeCart)
				if rangeCart >= 81 then
					--print("угол пеона ="..angle.." тележки "..data.CartAngle)

					data.CartAngle = -180 + AngleBetweenXY(GetUnitX(hero), GetUnitY(hero), GetUnitX(data.CartUnit), GetUnitY(data.CartUnit)) / bj_DEGTORAD
					local cx, cy = MoveXY(GetUnitX(hero), GetUnitY(hero), -80, data.CartAngle)
					SetUnitPositionSmooth(data.CartUnit, cx, cy)

					if IiMoving then
						--print("111")
						local ac = data.CartAngle   --+AngleBetweenXY(GetUnitX(hero),GetUnitY(hero),GetUnitX(data.CartUnit),GetUnitY(data.CartUnit))/bj_DEGTORAD
						SetUnitFacing(data.CartUnit, ac)
						if data.WalkCart then
							--  print("тележка движется")
							data.WalkCart = false
							--SetUnitAnimation(data.CartUnit,"Walk")
							SetUnitAnimationByIndex(data.CartUnit, 1)
						end
					else
						--	print("у этого события нет детекта")
					end

					if not IiMoving then
						--	print("баг попался")
					end
				else
					SetUnitFacing(data.CartUnit, -180 + AngleBetweenXY(GetUnitX(hero), GetUnitY(hero), GetUnitX(data.CartUnit), GetUnitY(data.CartUnit)) / bj_DEGTORAD)
				end
				if rangeCart >= 115 or not UnitAlive(hero) then
					SetUnitOwner(data.CartUnit, Player(PLAYER_NEUTRAL_PASSIVE), true)
					SetUnitAnimationByIndex(data.CartUnit, 0)
					data.CartUnit = nil
				end
			end

			if data.Wagon then -- вагонетка с турелью
				local rangeCart = DistanceBetweenXY(GetUnitX(hero), GetUnitY(hero), GetUnitX(data.Wagon), GetUnitY(data.Wagon))
				--print(rangeCart)
				local range=110
				if rangeCart >= range then
					--print("пеон выходит из тележки тележки")

				else --толкаем

					if  GetUnitX(hero)>=11600 and data.ReleaseA and not data.EnterInTurret then-- МОМЕНТ ВХОДА В ТЕЛЕЖКУ
						data.EnterInTurret=true
						--ShowUnit(hero,false)
						--ShowUnit(data.legs,false)
						--SetUnitX(hero)
						SetUnitOwner(data.Wagon, Player(PLAYER_NEUTRAL_PASSIVE), true)
						data.Wagon = nil
						StartTurretMoving(data)
						--print("вход в тележку "..GetUnitX(hero))
					end
					local cx,cy=0,0
					BlzSetUnitFacingEx(data.Wagon,90)
					if GetUnitY(hero)>= GetUnitY(data.Wagon) then
						data.CartAngle = AngleBetweenXY(GetUnitX(hero), GetUnitY(hero), GetUnitX(data.Wagon), GetUnitY(data.Wagon)) / bj_DEGTORAD
						--print("толкаему сверху вниз"..data.CartAngle)
						cx,cy=MoveXY(GetUnitX(hero), GetUnitY(hero), range, data.CartAngle)

					else
						--print("толкаему снизу вверх вверх")
						data.CartAngle = -180 + AngleBetweenXY(GetUnitX(hero), GetUnitY(hero), GetUnitX(data.Wagon), GetUnitY(data.Wagon)) / bj_DEGTORAD
						cx,cy=MoveXY(GetUnitX(hero), GetUnitY(hero), -range, data.CartAngle)

					end
					if cy<=4541-70 and cy>=1630+70 then
						SetUnitY(data.Wagon,cy)
						SetUnitY(data.Turret,cy)
						BlzSetSpecialEffectPosition(data.TurretArrow,MoveX(cx,100,0/bj_DEGTORAD),MoveY(cy,100,0/bj_DEGTORAD),170)
					else

					end
					--print(GetUnitX(data.Wagon))
					SetUnitX(data.Wagon,11532.25+5)
					SetUnitX(data.Turret,11532.25-25)
				end
				if rangeCart >= 115 or not UnitAlive(hero) then
					--print("отрыв вагонетки")
					SetUnitOwner(data.Wagon, Player(PLAYER_NEUTRAL_PASSIVE), true)
					data.Wagon = nil
					SetUnitAnimation(data.Turret,"stand")
					SetUnitTimeScale(data.Turret,1)
					--SetUnitAnimationByIndex(data.CartUnit, 0)

					data.Turret = nil
				end
			end--конец блока вагонетка

			if data.Compass then
				local z=GetUnitZ(hero)
				local xc,yc=GetUnitX(hero),GetUnitY(hero)
				local Angle=AngleBetweenXY(xc,yc,data.CompassX,data.CompassY)
				BlzSetSpecialEffectPosition(data.Compass,MoveX(xc,130,Angle/bj_DEGTORAD),MoveY(yc,130,Angle/bj_DEGTORAD),z+50)
				BlzSetSpecialEffectYaw(data.Compass,Angle)

				if IsUnitInRangeXY(hero,data.CompassX,data.CompassY,300) then
					--DestroyTimer(GetExpiredTimer())
					DestroyEffect(data.Compass)
					data.Compass=nil
				end
			end

			if data.HaveAFire and not data.FirePointer then
				data.FirePointer=true
				CreateVisualPointerForUnitBySplat(hero,1,1000//10,10)
			end

			if UnitAlive(hero) then
				SetUnitFacing(hero, turn)
			else
				ResetUnitAnimation(data.legs)
			end
		end
	end)
end

---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 09.02.2020 13:24

function UnitCheckPathingInRound(hero,range)
	local data=HERO[GetPlayerId(GetOwningPlayer(hero))]
	local x,y=GetUnitX(hero),GetUnitY(hero)
	local nx,ny=nil,nil
	local a=10
	local z=nil
	local k=0
	local total=0
	local med=0
	local min=350
	local max=0
	local current=0
	local dif=0
	local perepad=0
	if data.IsDisabled==false then
		for i=0,35 do
			nx=MoveX(x,range,a*i)
			ny=MoveY(y,range,a*i)
			z=GetTerrainZ(nx,ny)
			perepad=GetUnitZ(hero)-GetTerrainZ(x,y)
			--print("perepad="..perepad)
			--if perepad<=2 then
			if z>-80 and data.OnTorrent==false then
				k=k+1
				total=total+a*i
				current=a*i
				if current>=max then max=current end
				if current<=min then min=current end
				--print("a="..a*i)
				if UnitAlive(hero)  and k>=10 then
					DestroyEffect(AddSpecialEffect("Abilities\\Weapons\\AncestralGuardianMissile\\AncestralGuardianMissile.mdl",nx,ny))
				end
			end
		end
		if k>0 then
			dif=max-min
			if dif>=90 then
				--print("dif="..dif.."при минимуме="..min)
				for _=min,0,-10 do
					total=total+360
				end
			end
			med=total/k
			if k>=10 then
				--print("selfdamage")
				UnitDamageTarget( hero, hero, 5*(k-7), true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS )
			end
			if k>=30 then
				KillUnit(hero)
			end

			if dif>=90 then med=med-180  end

			if  UnitAlive(hero) and k>=10 then
				data.IsDisabled=true
				print("force ="..k)
				SetUnitPathing(hero,false)--отключение
				UnitAddVectorForce(hero,med-180,10+k,80+5*k)
			end
		end
	end
end




function PointContentUnit(x,y,range,condconten)
	local content=false
	local e--временный юнит
	local ContentUnit=nil
	if condconten==nil then condconten=true end
	if range==nil then range=80 end
	GroupEnumUnitsInRange(perebor,x,y,range,nil)
	while true do
		e = FirstOfGroup(perebor)
		if e == nil then break end
		if UnitAlive(e) and condconten and content==false  then
			content=true
			ContentUnit=e
		end
		GroupRemoveUnit(perebor,e)
	end
	return content,ContentUnit
end


---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 19.04.2020 17:39
function LeavePlayer()
	local this = CreateTrigger()
	TriggerRegisterPlayerEventLeave(this, Player(0))
	TriggerRegisterPlayerEventLeave(this, Player(1))
	TriggerRegisterPlayerEventLeave(this, Player(2))
	TriggerRegisterPlayerEventLeave(this, Player(3))

	TriggerAddAction(this, function()
		local p=GetTriggerPlayer()
		--print("Разумом "..GetPlayerName(p).." овладел ИИ")
		if BlzGetLocale()=="ruRU" then
			print("|cff8080ffСистема: |r".."Разумом "..GetPlayerName(p).." овладел ИИ")
		else
			print("|cff8080ffSystem: |r"..GetPlayerName(p).." Lose control")
		end
		local data=HERO[GetPlayerId(p)]
		data.PlayerIsLeave=true
		StartPeonAI(data.UnitHero)
	end)
end

----------------------------------
----------------------------------
----------------------------------
---

function InitSpellTrigger()
	local SpellTrigger = CreateTrigger()
	for i = 0, bj_MAX_PLAYER_SLOTS - 1 do
		local player = Player(i)
		TriggerRegisterPlayerUnitEvent(SpellTrigger, player, EVENT_PLAYER_UNIT_SPELL_CAST)
	end
	TriggerAddAction(SpellTrigger, function()

		local caster           = GetTriggerUnit()
		local target=GetSpellTargetUnit()
		local casterX, casterY = GetUnitX(caster), GetUnitY(caster)
		local x,y=GetSpellTargetX(),GetSpellTargetY()
		local spellId          = GetSpellAbilityId()
		local ownplayer=GetOwningPlayer(caster)
		local id=GetPlayerId(ownplayer)



		if spellId == FourCC('ACtb') and IsUnitType(target,UNIT_TYPE_HERO) then -- Стано голема
		--	local data=HERO[GetPlayerId(GetOwningPlayer(target))]

		end


	end)
end
TempUnit={}
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 23.01.2020 20:11
function InitUnitDeath()
	local gg_trg_DEADGUI = CreateTrigger()
	TriggerRegisterAnyUnitEventBJ(gg_trg_DEADGUI, EVENT_PLAYER_UNIT_DEATH)--меня полностью устраивает это событие
	TriggerAddAction(gg_trg_DEADGUI, function()

		local DeadUnit=GetTriggerUnit()--умерший

		local Killer=GetKillingUnit()--убийца
		--print("EventDead "..GetUnitName(DeadUnit).." "..GetUnitName(Killer))
		if GetUnitTypeId(Killer)==FourCC('o006')  then --волк убил
			--print("волк убил")
			BlzSetUnitBaseDamage(Killer,BlzGetUnitBaseDamage(Killer,0)+1,0)
			Killer=HERO[GetPlayerId(GetOwningPlayer(Killer))].UnitHero

		end

		if IsUnitType(DeadUnit,UNIT_TYPE_HERO) and GetUnitTypeId(DeadUnit)==FourCC("H000") then --герой умер
			local x,y=GetUnitXY(DeadUnit)
			local PD=GetOwningPlayer(DeadUnit)
			local pid=GetPlayerId(PD)
			local data=HERO[pid]

			--data.CartUnit=nil
			--SetUnitOwner(data.CartUnit,Player(PLAYER_NEUTRAL_PASSIVE),true)
			--SetUnitAnimationByIndex(data.CartUnit,0)
			if data.Perk15 then -- взрыв от смерти
				SetUnitExploded(DeadUnit, true)
				DestroyEffect(AddSpecialEffect("Abilities\\Weapons\\Mortar\\MortarMissile",x,y))
				UnitDamageArea(DeadUnit,200,x,y,250)
			end

			data.Dies=data.Dies+1
			if not not data.Perk3 then
				FrameBigSize(data.SelfFrame[3],0.2,3)
			end
			if data.Dies==15 then
				if not data.Perk3 then
					BlzSetUnitMaxHP(DeadUnit,GetUnitState(DeadUnit,UNIT_STATE_MAX_LIFE)+200)
				end
				data.Perk3=true
				PerkUnlocker(data,3)
			end
			if data.IsWood then
				CreateFreeWood(x,y)
			end
			TimerStart(CreateTimer(), 2.5, false, function()

				--data.Alive=true
				if data.Perk15 then
					if data.ReviveOnBase then
						ReviveHero(DeadUnit,GetPlayerStartLocationX(PD),GetPlayerStartLocationY(PD),true)
						data.ReviveOnBase=false
					else
						ReviveHero(DeadUnit,x,y,true)
						data.ReviveOnBase=true
					end

				else
					ReviveHero(DeadUnit,GetPlayerStartLocationX(PD),GetPlayerStartLocationY(PD),true)
				end
				SelectUnitForPlayerSingle(DeadUnit,PD)
				data.IsWood=false
				--data.ReleaseLMB=false
				--data.ReleaseRMB=false
				MakeUnitAllAlly(DeadUnit)
				data.RevoltSec=0
				data.Perk2=false
				DestroyTimer(GetExpiredTimer())
			end)
		end

		if IsUnitType(Killer,UNIT_TYPE_HERO)  and GetUnitTypeId(Killer)==FourCC("H000") then --герои убил кого-то
			--print("герой убил")
			local PD=GetOwningPlayer(Killer)
			local pid=GetPlayerId(PD)
			local data=HERO[pid]

			if data.Perk7A and DistanceBetweenXY(GetUnitX(Killer),GetUnitY(Killer),GetUnitXY(DeadUnit))<=150 then
				local amount=BlzGetUnitMaxHP(Killer)*0.03
				HealUnit(Killer,amount)
			end

			if data.Perk15 then
				SetUnitExploded(DeadUnit, true)
				local x,y=GetUnitXY(DeadUnit)
				DestroyEffect(AddSpecialEffect("Abilities\\Weapons\\Mortar\\MortarMissile",x,y))
				--UnitDamageArea(Killer,200,x,y,250)-- доп урон при убийстве
			end


			data.Kills=data.Kills+1
			data.RevoltSec=0
			if not data.Perk5 then
				FrameBigSize(data.SelfFrame[5],0.2,5)
				if data.Kills==5 then
					if not data.Perk5 then
						BlzSetUnitBaseDamage(Killer,BlzGetUnitBaseDamage(Killer,0)*2,0)
					end
					data.Perk5=true
					PerkUnlocker(data,5)
				end
			end
			if GetUnitTypeId(DeadUnit)==FourCC('n002') then--голем
					--перенесено в спеллкаст
			end
			if GetUnitTypeId(DeadUnit)==FourCC('n001') then--овцы овца
				if not data.Perk15 then
					data.SheepCount=data.SheepCount+1
					FrameBigSize(data.SelfFrame[15],0.2,15)
					if data.SheepCount==40 then
						data.Perk15=true
						UnitAddAbility(Killer,FourCC('A00J'))
						PerkUnlocker(data,15)
					end
				end
			end
			if GetUnitTypeId(DeadUnit)==FourCC('e001') then-- убил энта
				CreateFreeWood(GetUnitXY(DeadUnit))
			end
			if GetUnitTypeId(DeadUnit)==FourCC('n000') then--волк
				if not data.Perk13 then
				data.WolfCount=data.WolfCount+1
				FrameBigSize(data.SelfFrame[13],0.2,13)
				--FrameBigSize(data.SelfFrame[13],0.2)

				if data.WolfCount==5 then
					--UnitAddAbility(Killer,FourCC('A007'))
					AddSpecialEffectTarget("Wolf Cap by Sunchips",Killer,"head")
					data.WolfHelper=CreateUnit(PD,FourCC('o006'),GetUnitX(Killer),GetUnitY(Killer),0)
					UnitAddAbility(data.WolfHelper,FourCC('Aloc'))
					data.Perk13=true
					PerkUnlocker(data,13)
					TimerStart(CreateTimer(), 1, true, function()
						local x,y=GetUnitXY(Killer)
						local distance=DistanceBetweenXY(x,y,GetUnitX(data.WolfHelper),GetUnitY(data.WolfHelper))
						if distance>600 then
							local effmodel="Abilities\\Spells\\NightElf\\Blink\\BlinkCaster"
							DestroyEffect(AddSpecialEffect(effmodel,GetUnitXY(data.WolfHelper)))
							DestroyEffect(AddSpecialEffect(effmodel,x,y))
							local r=GetRandomInt(-50,50)
							SetUnitPosition(data.WolfHelper,x+r,y+r)
						else
							if GetUnitCurrentOrder(data.WolfHelper)~=String2OrderIdBJ("attack") then
								local rx,ry=x+GetRandomInt(-500,500),y+GetRandomInt(-500,500)
								IssuePointOrder(data.WolfHelper,"attack", rx,ry)
							end
						end
					end)
				end




					--if GetLocalPlayer()==PD and GetLocalON then
					--	BlzFrameSetVisible(PerkIsLock[13],false)
					--end
				end
			end
		end
		----------------- смерть простых типов юнитов
		---FourCC('e003')
		--break --[[
		--Humans=CreateGroup()
		if GetUnitTypeId(DeadUnit)==FourCC('hpea') then--Крестьянин рабочий
		--	print("Погиб крестьянин")
			local x,y=GetUnitXY(DeadUnit)
			local lum=FindUnitOfType(FourCC('hlum'),1200,x,y)
			if lum then
				TimerStart(CreateTimer(), 5, false, function()
				--	print("создан новый рабочий")
					local xlim,ylum=GetUnitXY(lum)
					local new=CreateUnit(Player(10), FourCC('hpea'),xlim, ylum, 0)
					IssueImmediateOrder(new,"autoharvestlumber")
					DestroyTimer(GetExpiredTimer())
				end)
			end
		end
		if GetUnitTypeId(DeadUnit)==FourCC('hctw') or GetUnitTypeId(DeadUnit)==FourCC('hwtw') then --Орудийная башня или любая
			--print("Погибла башня")
			local x,y=GetUnitXY(DeadUnit)
			AnyHPEARandomBuild(x,y)
		end
		if GetUnitTypeId(DeadUnit)==FourCC('e003') then--Злое дерево, , большой энт
			local x,y=GetUnitXY(DeadUnit)
			for _=1,7 do
				local r=GetRandomInt(-100,100)
				local r2=GetRandomInt(-100,100)
				CreateFreeWood(x+r,y+r2)
			end
		end

		if GetUnitTypeId(DeadUnit)==FourCC('o001') and not Ending then--лесопилка орков
			--print("О нет, лесопилка разрушена, теперь пеонам никогда не выбраться с острова")
			if BlzGetLocale()=="ruRU" then
				print("|cff8080ffСистема: |r".."О нет, лесопилка разрушена, теперь пеонам никогда не выбраться с острова")
			else
				print("|cff8080ffSystem: |r".."Oh no, the sawmill is destroyed, now the peons never get out of the island")
			end
			TimerStart(CreateTimer(), 5, false, function()
				CustomDefeatBJ(Player(0),"Вы проиграли")
				CustomDefeatBJ(Player(1),"Вы проиграли")
				CustomDefeatBJ(Player(2),"Вы проиграли")
				CustomDefeatBJ(Player(3),"Вы проиграли")
				DestroyTimer(GetExpiredTimer())
			end)
		end
		if GetUnitTypeId(DeadUnit)==FourCC('h001') then--колонная с пилой вроде
			DestroyEffect(AddSpecialEffect("Abilities\\Weapons\\Mortar\\MortarMissile",GetUnitXY(DeadUnit)))
			ShowUnit(DeadUnit,false)
		end

		if GetUnitTypeId(DeadUnit)==FourCC('hlum') then -- лесопилка людей
			for i=0,3 do
				local data=HERO[i]
				local hero=data.UnitHero
				local distance=DistanceBetweenXY(GetUnitX(hero),GetUnitY(hero),GetUnitX(DeadUnit),GetUnitY(DeadUnit))
				if distance<=500 then
					if not data.Perk11 then
						--Действие перка погрома
						AddSpecialEffectTarget("GearAura",hero,"origin")
						TimerStart(CreateTimer(), 1, true, function()
							local e=nil
							local x,y=GetUnitXY(hero)
							GroupEnumUnitsInRange(perebor,x,y,400,nil)
							while true do
								e = FirstOfGroup(perebor)
								if e == nil then break end

								--ремонт
								if true and UnitAlive(e) and IsUnitAlly(e,GetOwningPlayer(hero)) and (IsUnitType(e,UNIT_TYPE_STRUCTURE) or IsUnitType(e,UNIT_TYPE_MECHANICAL)) then
									local amount=HealUnit(e,10)
									data.Repairs=data.Repairs+amount
								end
								GroupRemoveUnit(perebor,e)
							end
						end)

						data.Perk11=true
						PerkUnlocker(data,11)
					end
				end
			end
		end

	end)
end
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 03.01.2020 12:16

TargetOrders={"innerfire","slow","heal","controlmagic","invisibility","magicleash","spellsteal","polymorph","repair","thunderbolt","banish","holybolt","load","unstableconcoctoin","spirintlink",
"bloodlust","ensnare","devour","purge","lightingshield","healingwave","hex","chainlightning","antimagicshell","unholyfrenzy","possession","web","absorbmana","curse","restoration","cripple","frostarmor",
"deathpact","sleep","darkritual","faeriefire","renew","autodispel","cyclone","entanglingroots","flamingarrows","manaburn","shadowstrike","creepthunderbolt","mindrot","deathcoil",
"parasite","charm","creepdevour","forkedlighting","cripple","blackarrow","acidbomb","doom","soulburn","transmute","rejuvination","frostnova"}

PointOrders={"flare","dispel","cloudoffog","flamestrike","blizzard","healingward","stasistrap","evileye","farsight","eathquake","ward","serpentward","shockwave","inferno","impale","deathanddecay","carrionswarm",
"detonate","forceofnature","blink","selfdestruct","silence","rainoffire","breathofirre","volcano","stampede","healingspray","clusterrockets","summonfactory","drunkenhaze"}

ImmediateOrders={"defend","magicdefense","militia","townbellon","avatar","divineshield","resurrection","massteleport","waterelemental","thunderclap","summonphoenix","etherealform","berserk",
"battlestations","corporealform","whirlwind","stomp","spiritwolf","locustswarm","mirrorimage","voodoo","windwalk","raisedead","recharge","replenish","borrow","stoneform","cannibalize","sphinksform","replenishlife",
"replenishmana","carrionscarabs","animatedead","coupletarget","manaflareon","vengeance","ravenform","bearform","taunt","roar","ambush", "fanofknives","starfall","metamorphosis","immolation",
"tranquility","monsoon","frenzy","howlofterror","manashield","battleroar","elementalfury","wateryminion","slimemonster","robogoblin","tornado","chemicalrage","phaseshift"}
---@param u unit
---@param x real
---@param y real
---@param target unit
function Cast(u,x,y,target)
	local IsCast=false
	if UnitAlive(u) then
		AllPoint(u,x,y)
		if AllTarget(u,target) then
			IsCast=true
		end
		AllImmediate(u)
	end
	return IsCast
end

function AllImmediate(u)
	for i = 1,#ImmediateOrders do
	--print(ImmediateOrders[i].." is immediate")
		IssueImmediateOrder(u,ImmediateOrders[i])
	end
end

function AllPoint(u,x,y)
	for i = 1,#PointOrders do
	--	print(PointOrders[i].." is point")
		IssuePointOrder(u,PointOrders[i],x,y)
	end
end

function AllTarget(u,target)
	local IsCast=false
	for i = 1,#TargetOrders do
		--print(TargetOrders[i].." is target")
		if IssueTargetOrder(u,TargetOrders[i],target) then
			IsCast=true
		end
	end
	return IsCast
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 03.04.2020 13:40
function HealUnit(hero,amount,flag)
	--1 или nil Сколько вылчено
	--2 Сверхлечение
	local p=GetOwningPlayer(hero)
	local MaxHP=BlzGetUnitMaxHP(hero)
	local CurrentHP=GetUnitState(hero,UNIT_STATE_LIFE)
	local LoosingHP=MaxHP-CurrentHP
	local OverHeal=amount-LoosingHP
	local TotalHeal=amount
	if LoosingHP<=amount then TotalHeal=LoosingHP	end
	--Блок перка обжоры
	if IsUnitType(hero,UNIT_TYPE_HERO) then
		local data=HERO[GetPlayerId(GetOwningPlayer(hero))]
		data.Heals=data.Heals+TotalHeal
		if TotalHeal>1 and UnitAlive(hero) then
			FrameBigSize(data.SelfFrame[7],0.2,7)
		end
		if not data.Perk7 then
			if data.Heals>=1000 then
				data.Perk7=true
				--UnitAddAbility(hero,FourCC('A004'))-- переделать на триггерное лечение может быть когда нибудь.. не столь важное
				AddAutoHeal(hero,7)
				PerkUnlocker(data,7)
			end
		end
		if not data.Perk7A and data.Heals>=5000 then
			--print("7A")
			data.Perk7A=true
		end
	end
	--Блок перка обжоры
	SetUnitState(hero,UNIT_STATE_LIFE,CurrentHP+TotalHeal)
	if TotalHeal>1 then
		FlyTextTagHealXY(GetUnitX(hero),GetUnitY(hero),"+"..R2I(TotalHeal),p)
	end
	if not flag or flag==1 then
		return TotalHeal
	end
	if  flag==2 then
		return OverHeal
	end
end

function GetLosingHP(hero)
	local MaxHP=BlzGetUnitMaxHP(hero)
	local CurrentHP=GetUnitState(hero,UNIT_STATE_LIFE)
	local LoosingHP=MaxHP-CurrentHP
	return LoosingHP
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 10.01.2020 23:44
---
---@param x real
---@param y real
---@return boolean
function InMapXY(x, y)
	return x > GetRectMinX(bj_mapInitialPlayableArea) and x < GetRectMaxX(bj_mapInitialPlayableArea) and y > GetRectMinY(bj_mapInitialPlayableArea) and y < GetRectMaxY(bj_mapInitialPlayableArea)
end

---@param x real
---@param distance real
---@param angle real radian
---@return real
function GetPolarOffsetX(x, distance, angle)
	return x + distance * math.cos(angle)
end

---@param y real
---@param distance real
---@param angle real radian
---@return real
function GetPolarOffsetY(y, distance, angle)
	return y + distance * math.sin(angle)
end

---@param x real
---@param distance real
---@param angle real degrees
---@return real
function MoveX(x, distance, angle)
	return x + distance * math.cos(angle * bj_DEGTORAD)
end

---@param y real
---@param distance real
---@param angle real degrees
---@return real
function MoveY(y, distance, angle)
	return y + distance * math.sin(angle * bj_DEGTORAD)
end


local GetTerrainZ_location = Location(0, 0)
---@param x real
---@param y real
---@return real
function GetTerrainZ(x, y)
	MoveLocation(GetTerrainZ_location, x, y)
	return GetLocationZ(GetTerrainZ_location)
end

---@param target unit
---@return real
function GetUnitZ(target)
	MoveLocation(GetTerrainZ_location, GetUnitX(target), GetUnitY(target))
	return GetLocationZ(GetTerrainZ_location) + GetUnitFlyHeight(target)
end

---@param target unit
---@param z real
function SetUnitZ(target, z)
	UnitAddAbility(target, FourCC('Aave'))
	UnitRemoveAbility(target, FourCC('Aave'))
	MoveLocation(GetTerrainZ_location, GetUnitX(target), GetUnitY(target))
	SetUnitFlyHeight(target, z - GetLocationZ(GetTerrainZ_location), 0)
end

---@param h real максимальная высота в прыжке на середине расстояния (x = d / 2)
---@param d real общее расстояние до цели
---@param x real расстояние от исходной цели до точки, где следует взять высоту по параболе
---@return real
function ParabolaZ (h, d, x)
	return (4 * h / d) * (d - x) * (x / d)
end

---@param zs real начальная высота высота одного края дуги
---@param ze real конечная высота высота другого края дуги
---@param h real максимальная высота на середине расстояния (x = d / 2)
---@param d real общее расстояние до цели
---@param x real расстояние от исходной цели до точки
---@return real
function GetParabolaZ(zs, ze, h, d, x)
	return (2 * (zs + ze - 2 * h) * (x / d - 1) + (ze - zs)) * (x / d) + zs
end

---@param xa real
---@param ya real
---@param xb real
---@param yb real
---@return real
function DistanceBetweenXY(xa, ya, xb, yb)
	local dx = xb - xa
	local dy = yb - ya
	return math.sqrt(dx * dx + dy * dy)
end

---@param xa real
---@param ya real
---@param za real
---@param xb real
---@param yb real
---@param zb real
---@return real
function DistanceBetweenXYZ(xa, ya, za, xb, yb, zb)
	local dx = xb - xa
	local dy = yb - ya
	local dz = zb - za
	return math.sqrt(dx * dx + dy * dy + dz * dz)
end

---@param xa real
---@param ya real
---@param xb real
---@param yb real
---@return real radian
function AngleBetweenXY(xa, ya, xb, yb)
	return math.atan(yb - ya, xb - xa)
end

---@param a real radian
---@param b real radian
---@return real radian
function AngleDifference(a, b)
	local c---@type real
	local d---@type real
	if a > b then
		c = a - b
		d = b - a + 2 * math.pi
	else
		c = b - a
		d = a - b + 2 * math.pi
	end
	return c > d and d or c
end

--@author https://xgm.guru/p/wc3/warden-math
---@param a real degrees
---@param b real degrees
---@return real degrees
function AngleDifferenceDeg(a, b)
	a, b = math.abs(a, 360), math.abs(b, 360)
	local x---@type real
	if (a > b) then
		a, b = b, a
	end
	x = b - 360
	if (b - a > a - x) then
		b = x
	end
	return math.abs(a - b)
end

-- Находит длину перпендикуляра от отрезка, заданного xa, ya, xb, yb к точке, заданной xc, yc
--@author https://xgm.guru/p/wc3/perpendicular
---@param xa real
---@param ya real
---@param xb real
---@param yb real
---@param xc real
---@param yc real
---@return real
function Perpendicular (xa, ya, xb, yb, xc, yc)
	return math.sqrt((xa - xc) * (xa - xc) + (ya - yc) * (ya - yc)) * math.sin(math.atan(yc - ya, xc - xa) - math.atan(yb - ya, xb - xa))
end

--@Hate https://xgm.guru/p/wc3/241479
---@param source unit
---@param x real
---@param y real
function SetUnitPositionSmooth(source, x, y)
	local last_x = GetUnitX(source)
	local last_y = GetUnitY(source)
	local bx
	local by
	--print("Смус выполнена")
	SetUnitPosition(source, x, y)
	if (RAbsBJ(GetUnitX(source) - x) > 0.5) or (RAbsBJ(GetUnitY(source) - y) > 0.5) then
		SetUnitPosition(source, x, last_y)
		bx = RAbsBJ(GetUnitX(source) - x) <= 0.5
		SetUnitPosition(source, last_x, y)
		by = RAbsBJ(GetUnitY(source) - y) <= 0.5

		---
		local dx=math.abs(x-last_x)
		if dx>=100 then
			print("Телепорт бак в функции Smooth"..dx )
		end
		---
		if bx then
			SetUnitPosition(source, x, last_y)
		elseif by then
			SetUnitPosition(source, last_x, y)
		else
			SetUnitPosition(source, last_x, last_y)
		end
	end
end

--Bergi
function GetUnitXY(unit)
	return GetUnitX(unit),GetUnitY(unit)
end

function MoveXY(x,y, distance, angle)
	return x + distance * math.cos(angle * bj_DEGTORAD),y + distance * math.sin(angle * bj_DEGTORAD)
end

function UnitCollisionOFF(unit)
	UnitAddAbility(unit,FourCC('A000'))
	IssueImmediateOrder(unit,"windwalk")
end

function AngleBetweenUnits(caster,target)
	local yb,ya,xb,xa=GetUnitY(target),GetUnitY(caster),GetUnitX(target),GetUnitX(caster)
	return Atan2BJ(yb - ya, xb - xa)
end

function math.clamp (inb, low, high) --
	return math.min( math.max(inb, low ), high )
end

function math.lerp(a, b, t)
	return a + (b - a) * t
end

function repeatN(t, m)
	return math.clamp(t - math.floor(t / m) * m, 0, m)
end


function lerpTheta(a, b, t)
	local dt = repeatN(b - a, 360)
	if dt>180 then	dt=dt-360 end
	return math.lerp(a, a + dt, t)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 27.05.2020 23:15
---
local realTimerStart = TimerStart
TimerStart = function(timer, duration, repeating, callback)
	local pcallback = function()
		if callback == nil then return end
		local status, err = pcall(callback)
		if not status then
			print(err)
		end
	end
	realTimerStart(timer, duration, repeating, pcallback)
end

local realTriggerAddAction = TriggerAddAction
TriggerAddAction = function(trig, callback)
	local pcallback = function()
		local status, err = pcall(callback)
		if not status then
			print(err)
		end
	end
	realTriggerAddAction(trig, pcallback)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 14.05.2020 3:45
---

function PlayerPlaying()

	local sprintf = string.format

	local function writefln(fmt, ...)
		print(sprintf(fmt, ...))
	end

	local intcc = FourCC

	local function reload_script()
		local script_file = "C:\\Users\\Bergi\\IdeaProjects\\PeonSimulator\\build.lua"
		local preload_file=""
		if PreloadNumber-1>0 then
			 preload_file = "save\\PreExp"..(PreloadNumber-1)..".txt"
		else
			 preload_file = "save\\PreExp".."0"..".txt"
		end
		PreloadGenClear()
		PreloadRefresh()
		Preloader(preload_file)
		print("чтения файла номер "..PreloadNumber)
		local text = BlzGetAbilityTooltip(intcc('Agyv'), 0) --тут весь текст из прелоада
		Test()
		PreloadGenClear()
		PreloadRefresh()
		local fn
		local err
		local ok

		fn, err = load(text, script_file, 't', _ENV)
		if err ~= nil then
			writefln('syntax error: %%s', err)
		else
			clear_all()
			ok, err = pcall(fn)
			if not ok then
				writefln('error: %%s', err)
			end
		end

	end


	-- I use the Esc key to reload the script
	local t = CreateTrigger()
	TriggerRegisterPlayerEvent(t, Player(0), EVENT_PLAYER_END_CINEMATIC)
	TriggerAddAction(t, reload_script)
--------------------------------------------------------------------

	print("Start preload tester")
	PreloadGenClear()
	local gg_trg_PreExp = CreateTrigger()
	TriggerRegisterPlayerChatEvent(gg_trg_PreExp, Player(0), "", false)
	TriggerAddAction(gg_trg_PreExp, function()
		if (GetEventPlayerChatString()=="-save") then
			 --PreloadGenEnd("save\\PreExp.txt")
		elseif (GetEventPlayerChatString()=="-load") then
			--print("загрузка чего-то из файла")
			--Preloader("save\\PreExp.txt")
			--print(" я вижу это сообщение?")
			--Test()
		else
			-- Preload(GetEventPlayerChatString())
			Preload("\")\ncall BlzSetAbilityTooltip ('Agyv',\""..GetEventPlayerChatString().."\",0)".."\n//")
			PreloadGenEnd("save\\PreExp"..nextPreload()..".txt")
			PreloadGenClear()
			--BlzSetAbilityTooltip ('Agyv', "33333", 0)
		end
	end)
end


function Test()
	print(BlzGetAbilityTooltip (FourCC('Agyv'),  0).. " код из файла успешно прочитан")
end

PreloadNumber=0
function nextPreload()
	local name=""
	name=PreloadNumber
	PreloadNumber=PreloadNumber+1
	return name
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 30.04.2020 15:07
---
---@param text string
---@param textSize real
---@param x real
---@param y real
---@param z real
---@param red integer
---@param green integer
---@param blue integer
---@param alpha integer
---@param xvel real
---@param yvel real
---@param fadepoint real
---@param lifespan real
---@param player player
---@return texttag
function FlyTextTag(text, textSize, x, y, z, red, green, blue, alpha, xvel, yvel, fadepoint, lifespan, player)
	local t = CreateTextTag()
	SetTextTagText(t, text, textSize)
	SetTextTagPos(t, x, y, z)
	SetTextTagColor(t, red, green, blue, alpha)
	SetTextTagVelocity(t, xvel, yvel)
	SetTextTagFadepoint(t, fadepoint)
	SetTextTagLifespan(t, lifespan)
	SetTextTagPermanent(t, false)
	if player ~= nil then
		SetTextTagVisibility(t, player == GetLocalPlayer())
	end
	return t
end

---@param target widget
---@param text string
---@param player player
---@return texttag
function FlyTextTagGoldBounty(target, text, player)
	return FlyTextTag(text, 0.024, GetWidgetX(target) - 16, GetWidgetY(target), 0, 255, 220, 0, 255, 0, 0.03, 2, 3, player)
end

---@param target widget
---@param text string
---@param player player
---@return texttag
function FlyTextTagLumberBounty(target, text, player)
	return FlyTextTag(text, 0.024, GetWidgetX(target) - 16, GetWidgetY(target), 0, 0, 200, 80, 255, 0, 0.03, 2, 3, player)
end

---@param target widget
---@param text string
---@param player player
---@return texttag
function FlyTextTagMiss(target, text, player)
	return FlyTextTag(text, 0.024, GetWidgetX(target), GetWidgetY(target), 0, 255, 0, 0, 255, 0, 0.03, 1, 3, player)
end

---@param target widget
---@param text string
---@param player player
---@return texttag
function FlyTextTagCriticalStrike(target, text, player)
	return FlyTextTag(text, 0.024, GetWidgetX(target), GetWidgetY(target), 0, 255, 0, 0, 255, 0, 0.04, 2, 5, player)
end

---@param target widget
---@param text string
---@param player player
---@return texttag
function FlyTextTagManaBurn(target, text, player)
	return FlyTextTag(text, 0.024, GetWidgetX(target), GetWidgetY(target), 0, 82, 82, 255, 255, 0, 0.04, 2, 5, player)
end

---@param target widget
---@param text string
---@param player player
---@return texttag
function FlyTextTagShadowStrike(target, text, player)
	return FlyTextTag(text, 0.024, GetWidgetX(target), GetWidgetY(target), 0, 160, 255, 0, 255, 0, 0.04, 2, 5, player)
end

function FlyTextTagHealXY(x,y, text, player)
	return FlyTextTag(text, 0.024, x, y, 150, 88, 250, 13, 255, 0, 0.03, 1, 3, player)
end

function FlyTextTagShieldXY(x,y, text, player)--™
	local xr=GetRandomReal(-0.05,0,05)
	return FlyTextTag(""..text, 0.018, x, y, 150, 128, 128, 128, 255, xr, 0.03, 1, 3, player)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 11.03.2020 22:30
function FindUnitOfType(id,flag,x,y)
	--flag nil - вся карта
	--flag any - радиус
	local unit=nil
	local e=nil
	local k=0
	--print("ищем")
	local rg={}
	if not flag then
		GroupEnumUnitsInRect(perebor,bj_mapInitialPlayableArea,nil)
		while true do
			e = FirstOfGroup(perebor)

			if e == nil then break end
			if UnitAlive(e) and GetUnitTypeId(e)==id then
				k=k+1
				unit=e
			end
			GroupRemoveUnit(perebor,e)
		end
	else
		GroupEnumUnitsInRange(perebor,x,y,flag,nil)
		while true do
			e = FirstOfGroup(perebor)

			if e == nil then break end
			if UnitAlive(e) and GetUnitTypeId(e)==id then
				k=k+1
				rg[k]=e
				unit=e
			end
			GroupRemoveUnit(perebor,e)
		end
	end


	if k>1 then
	--	print("Ошибка получено "..k.." юнитов")
	end
	if k>2 then
		unit=rg[GetRandomInt(1,#rg)]
	end
	if unit==nil then
	--	print("Не найдено живых юнитов данного типа")
	end
	return unit,k
end
---------ВЕКТОРА
function UnitAddVectorForce(hero, Angle, Speed, Distance, AfterMoving)
	local data = nil
	local k = 0
	local h = 0
	--print("ForceFor "..GetUnitName(hero))
	if IsUnitType(hero, UNIT_TYPE_HERO) then
		h = GetPlayerId(GetOwningPlayer(hero))

	else
		h = GetHandleId(hero)
		--	print("НЕГЕРОЙ толкаемый "..GetUnitName(hero))
	end
	if not HERO[h] then
		--print("первый толчек для "..GetUnitName(hero))
		HERO[h] = {
			ForcesCount = 0,
			ForceRemain = {},
			ForceAngle = {},
			ForceSpeed = {},
			IsForce = {}
		}
		--data=HERO[GetHandleId(hero)]
		--MovingSystem(hero)
	end
	data = HERO[h]
	data.ForcesCount = data.ForcesCount + 1
	k = data.ForcesCount
	data.ForceRemain[k] = Distance
	data.ForceSpeed[k] = Speed
	data.ForceAngle[k] = Angle
	data.IsForce[k] = true
	data.AngleForce = Angle

	if AfterMoving == nil then
		AfterMoving = true
	end
	if data.AfterMoving == nil then
		data.AfterMoving = AfterMoving
	end
	data.AfterMoving = AfterMoving
	--print("параметры заданы"..GetUnitName(hero)..k)
end

onForces = {}
function UnitAddForce(hero, angle, speed, distance)
	-- псевдо вектор использовать только для юнитов
	local currentdistance = 0
	if onForces[GetHandleId(hero)] == nil then
		onForces[GetHandleId(hero)] = true
	end
	if GetUnitTypeId(hero) == FourCC('e009') or GetUnitTypeId(hero) == FourCC('o009') or GetUnitTypeId(hero) == FourCC('o00A') then -- типы юнитов которые нельзя толкать
		return
	end
	if not IsUnitType(hero, UNIT_TYPE_STRUCTURE) and onForces[GetHandleId(hero)]  then
		onForces[GetHandleId(hero)]=false
		TimerStart(CreateTimer(), TIMER_PERIOD, true, function()
			currentdistance = currentdistance + speed
			--print(currentdistance)
			local x, y = GetUnitX(hero), GetUnitY(hero)
			local newX, newY = MoveX(x, speed, angle), MoveY(y, speed, angle)

			SetUnitPositionSmooth(hero, newX, newY)

			if currentdistance >= distance then
				--or (data.OnWater and data.OnTorrent==false)
				--data.IsDisabled=false
				--data.OnWater=false
				DestroyTimer(GetExpiredTimer())
				onForces[GetHandleId(hero)]=true
				--print("stop cur="..currentdistance.." dist="..distance)
			end
		end)
	end
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 08.03.2020 12:10
---
--if(_G["WM"] == nil) then WM = (function(m,h) h(nil,(function() end), (function(e) _G[m] = e end)) end) end -- WLPM MM fallback

-- Warcraft 3 Geometry module by ScorpioT1000 / 2020
-- Thanks to DGUI by Ashujon / 2009
function wGeometryInit()
	local Functions = nil
	local Vector3 = nil
	local Matrix3 = nil
	local Matrix4 = nil
	local Camera = nil
	local zTesterLocation = Location(0,0)

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

	local _GetUnitZ = function(u)
		return GetUnitFlyHeight(u) + getTerrainZ(GetUnitX(u), GetUnitY(u))
	end

	local _SetUnitZ = function(u, z)
		SetUnitFlyHeight(u, z - getTerrainZ(GetUnitX(u), GetUnitY(u)), 0)
	end

	local _GetItemZ = function(i)
		return getTerrainZ(GetItemX(i), GetItemY(i))
	end

	local _GetDestructableZ = function(d)
		return getTerrainZ(GetDestructableX(d), GetDestructableY(d))
	end

	-- Must be called for each non-air unit before manipulating Z coordinate
	-- @param u Unit
	local unlockUnitZ = function(u)
		UnitAddAbility(u , 'Aave')
		UnitRemoveAbility(u , 'Aave')
	end


	-- Math functions
	Functions = {
		-- 1D clamp
		clamp = function(value, _min, _max)
			if value > _max then
				value = _max
			end
			if value < _min then
				value = _min
			end
			return value
		end,

		-- 1D distance
		distance = function(value1, value2)
			return math.abs(value1 - value2)
		end,

		-- 1D linear spline interpolation between 2 points
		lerp = function(value1, value2, amount)
			return value1 + (value2 - value1) * amount
		end,

		-- 1D hermite spline interpolation between 2 points
		hermite = function(value1, tangent1, value2, tangent2, amount)
			local v1 = value1
			local v2 = value2
			local t1 = tangent1
			local t2 = tangent2
			local s = amount
			local result = 0.
			local sCubed = s * s * s
			local sSquared = s * s

			if (amount == 0.) then
				result = value1
			elseif (amount == 1.) then
				result = value2
			else
				result = (2 * v1 - 2 * v2 + t2 + t1) * sCubed +
						(3 * v2 - 3 * v1 - 2 * t1 - t2) * sSquared +
						t1 * s +
						v1
			end
			return result
		end,

		-- 1D bezier spline interpolation between 3 points
		bezier = function(p0, p1, p2, amount)
			local amountInv = 1-amount
			return amountInv*amountInv*p0
					+ 2*amount*amountInv*p1
					+ amount*amount*p2
		end
	}



	-- 3D Vector ====================
	Vector3 = {
		-- x, y, z

		-- Create a new vector from coords. Skip the coords to create a zero vector
		new = function(self, x, y, z)
			local o = {}
			setmetatable(o,self)
			o.x = x or 0.
			o.y = y or 0.
			o.z = z or 0.
			return o
		end,

		-- Copy vector from another
		copyFrom = function(self, that)
			local o = {}
			setmetatable(o,self)
			o.x = that.x
			o.y = that.y
			o.z = that.z
			return o
		end,

		-- Copy vector from Unit X/Y/Z
		-- @param u Unit
		copyFromUnit = function(self, u)
			local o = {}
			setmetatable(o,self)
			o.x = GetUnitX(u)
			o.y = GetUnitY(u)
			o.z = _GetUnitZ(u)
			return o
		end,

		-- Copy vector from Location X/Y/Z
		-- @param loc Location
		copyFromLocation = function(self, loc)
			local o = {}
			setmetatable(o,self)
			o.x = GetLocationX(loc)
			o.y = GetLocationY(loc)
			o.z = GetLocationZ(loc)
			return o
		end,

		-- Copy vector from Item X/Y/Z
		-- @param i Item
		copyFromItem = function(self, i)
			local o = {}
			setmetatable(o,self)
			o.x = GetItemX(i)
			o.y = GetItemY(i)
			o.z = _GetItemZ(i)
			return o
		end,

		-- Copy vector from Destructable X/Y/Z
		-- @param d Destructable
		copyFromDestructable = function(self, d)
			local o = {}
			setmetatable(o,self)
			o.x = GetDestructableX(d)
			o.y = GetDestructableX(d)
			o.z = _GetDestructableZ(d)
			return o
		end,

		-- Create a new X-oriented unit vector
		newRight = function(self)
			return Vector3:new(1.,0.,0.)
		end,

		-- Create a new Y-oriented unit vector
		newForward = function(self)
			return Vector3:new(0.,1.,0.)
		end,

		-- Create a new Z-oriented unit vector
		newUp = function(self)
			return Vector3:new(0.,0.,1.)
		end,

		length = function(self)
			return math.sqrt(self.x*self.x+self.y*self.y+self.z*self.z)
		end,

		lengthSquared = function(self)
			return self.x*self.x+self.y*self.y+self.z*self.z
		end,

		length2d = function(self)
			return math.sqrt(self.x*self.x+self.y*self.y)
		end,

		normalize = function(self)
			local len = math.sqrt(self.x*self.x+self.y*self.y+self.z*self.z)
			return Vector3:new(self.x/len, self.y/len, self.z/len)
		end,

		distance = function(self, that)
			return math.sqrt(
					(self.x-that.x)*(self.x-that.x) +
							(self.y-that.y)*(self.y-that.y) +
							(self.z-that.z)*(self.z-that.z)
			)
		end,

		distanceSquared = function(self, that)
			return
			(self.x-that.x)*(self.x-that.x) +
					(self.y-that.y)*(self.y-that.y) +
					(self.z-that.z)*(self.z-that.z)
		end,

		__eq = function(self, that)
			return self.x == that.x and self.y == that.y and self.z == that.z
		end,

		__add = function(self, that)
			return Vector3:new(
					self.x + that.x,
					self.y + that.y,
					self.z + that.z
			)
		end,

		__sub = function(self, that)
			return Vector3:new(
					self.x - that.x,
					self.y - that.y,
					self.z - that.z
			)
		end,

		__unm = function(self, that)
			return Vector3:new(
					-self.x,
					-self.y,
					-self.z
			)
		end,

		-- Uses cross product (!)
		-- @see https://en.wikipedia.org/wiki/Cross_product
		__mul = function(self, that)
			return self:crossProduct(that)
		end,

		-- Division by a number (!)
		__div = function(self, aNumber)
			return Vector3:new(
					self.x / aNumber,
					self.y / aNumber,
					self.z / aNumber
			)
		end,

		-- @param that Vector3
		-- @return number
		-- @see https://en.wikipedia.org/wiki/Dot_product
		dotProduct = function(self, that)
			return self.x*that.x + self.y*that.y + self.z*that.z
		end,

		-- @param that Vector3
		-- @return Vector3
		-- @see https://en.wikipedia.org/wiki/Cross_product
		crossProduct = function(self, that)
			return Vector3:new(
					self.y * that.z - self.z * that.y,
					self.z * that.x - self.x * that.z,
					self.x * that.y - self.y * that.x
			)
		end,

		scale = function(self, aNumber)
			return Vector3:new(
					self.x * aNumber,
					self.y * aNumber,
					self.z * aNumber
			)
		end,

		-- Spheric coordinates offset
		-- @param distance number in game units
		-- @param yaw number (angle in radians)
		-- @param pitch number (angle in radians)
		-- @return Vector3 result point
		-- @see https://en.wikipedia.org/wiki/Aircraft_principal_axes
		yawPitchOffset = function(self, distance, yaw, pitch)
			return Vector3:new(
					distance * math.cos(yaw) * math.cos(pitch),
					distance * math.sin(yaw) * math.cos(pitch),
					distance * math.cos(pitch)
			)
		end,

		-- Transforms the vector by 3x3 matrix transformation components
		-- @param Matrix3 m
		-- @return Vector3
		-- @see https://en.wikipedia.org/wiki/Transformation_matrix
		transform3 = function(self, m)
			return Vector3:new(
					self.x*m.m11+self.y*m.m21+self.z*m.m31,
					self.x*m.m12+self.y*m.m22+self.z*m.m32,
					self.x*m.m13+self.y*m.m23+self.z*m.m33
			)
		end,

		-- Transforms the vector by 4x4 matrix transformation components
		-- @param Matrix4 m
		-- @return Vector3
		-- @see https://en.wikipedia.org/wiki/Transformation_matrix
		transform4 = function(self, m)
			local w = self.x*m.m14+self.y*m.m24+self.z*m.m34+m.m44
			return Vector3:new(
					(self.x*m.m11+self.y*m.m21+self.z*m.m31+m.m41)/w,
					(self.x*m.m12+self.y*m.m22+self.z*m.m32+m.m42)/w,
					(self.x*m.m13+self.y*m.m23+self.z*m.m33+m.m43)/w
			)
		end,

		-- Applies linear interpolation
		-- @param that Vector3
		-- @param amount current animation state, number between 0 and 1
		-- @return Vector3 result
		lerp = function(self, that, amount)
			return Vector3:new(
					Functions.lerp(self.x, that.x, amount),
					Functions.lerp(self.y, that.y, amount),
					Functions.lerp(self.z, that.z, amount)
			)
		end,

		-- Applies hermite spline interpolation
		-- @param that Vector3
		-- @param amount current animation state, number between 0 and 1
		-- @param tangent1 (optional)
		-- @param tangent2 (optional)
		-- @return Vector3 result
		hermite = function(self, that, amount, tangent1, tangent2)
			if(tangent1 == nil) then
				tangent1 = 0.
			end
			if(tangent2 == nil) then
				tangent2 = 0.
			end
			return Vector3:new(
					Functions.hermite(self.x, tangent1, that.x, tangent2, amount),
					Functions.hermite(self.y, tangent1, that.y, tangent2, amount),
					Functions.hermite(self.z, tangent1, that.z, tangent2, amount)
			)
		end,

		-- Applies bezier spline interpolation
		-- @param p2 Vector3 point 2
		-- @param p3 Vector3 point 3
		-- @param amount current animation state, number between 0 and 1
		-- @return Vector3 result
		bezier = function(self, p2, p3, amount)
			return Vector3:new(
					Functions.bezier(self.x, p2.x, p3.x, amount),
					Functions.bezier(self.y, p2.y, p3.y, amount),
					Functions.bezier(self.z, p2.z, p3.z, amount)
			)
		end,

		-- Checks if the point is in a sphere
		-- @param c Vector3 sphere center
		-- @param r number sphere radius
		-- @return boolean
		isInSphere = function(self, c, r)
			return self:distanceSquared(c) < (r*r)
		end,

		-- Checks if the point is inside axis-aligned bounding box (AABB)
		-- @param vMin
		-- @param vMax
		-- @return boolean
		isInAABB = function(self, vMin, vMax)
			return (self.x >= vMin.x and self.x <= vMax.x) and
					(self.y >= vMin.y and self.y <= vMax.y) and
					(self.z >= vMin.z and self.z <= vMax.z)
		end,

		applyToLocation = function(self, loc)
			MoveLocation(loc, self.x, self.y)
		end,

		applyToUnit = function(self, u)
			SetUnitX(u, self.x)
			SetUnitY(u, self.y)
			_SetUnitZ(u, self.z)
		end,

		__tostring = function(self)
			return "{ " .. tostring(self.x) .. ", " .. tostring(self.y) .. ", " .. tostring(self.z) .. " }"
		end,
	}
	Vector3.__index = Vector3




	-- 3x3 Matrix ====================
	Matrix3 = {
		-- m11, m12, m13
		-- m21, m22, m23
		-- m31, m32, m33

		-- Create a new matrix from coords. Skip coords to create a zero matrix
		-- @return Matrix3
		new = function(self, m11, m12, m13, m21, m22, m23, m31, m32, m33)
			local o = {}
			setmetatable(o,self)
			o.m11 = m11 or 0.
			o.m12 = m12 or 0.
			o.m13 = m13 or 0.
			o.m21 = m21 or 0.
			o.m22 = m22 or 0.
			o.m23 = m23 or 0.
			o.m31 = m31 or 0.
			o.m32 = m32 or 0.
			o.m33 = m33 or 0.
			return o
		end,

		-- Copy matrix from another
		-- @return Matrix3
		copyFrom = function(self, that)
			local o = {}
			setmetatable(o,self)
			o.m11 = that.m11
			o.m12 = that.m12
			o.m13 = that.m13
			o.m21 = that.m21
			o.m22 = that.m22
			o.m23 = that.m23
			o.m31 = that.m31
			o.m32 = that.m32
			o.m33 = that.m33
			return o
		end,

		-- Create a new identity matrix
		-- @return Matrix3
		newIdentity = function(self)
			local o = {}
			setmetatable(o,self)
			o.m11 = 1.
			o.m12 = 0.
			o.m13 = 0.
			o.m21 = 0.
			o.m22 = 1.
			o.m23 = 0.
			o.m31 = 0.
			o.m32 = 0.
			o.m33 = 1.
			return o
		end,

		-- Create a new scaling matrix
		-- @return Matrix3
		newScaling = function(self, scaleX, scaleY, scaleZ)
			local o = {}
			setmetatable(o,self)
			o.m11 = scaleX or 1.
			o.m12 = 0.
			o.m13 = 0.
			o.m21 = 0.
			o.m22 = scaleY or 1.
			o.m23 = 0.
			o.m31 = 0.
			o.m32 = 0.
			o.m33 = scaleZ or 1.
			return o
		end,

		-- Create a new scaling matrix
		-- @return Matrix3
		-- @see https://en.wikipedia.org/wiki/Scaling_(geometry)
		newScaling = function(self, scaleX, scaleY, scaleZ)
			return Matrix3:new(
					scaleX or 1., 0., 0.,
					0., scaleY or 1., 0.,
					0., 0., scaleZ or 1.
			)
		end,

		-- Create a new rotation X matrix from the angle (in radians)
		-- @return Matrix3
		-- @see https://en.wikipedia.org/wiki/Rotation_matrix
		newRotationX = function(self, a)
			return Matrix3:new(
					1., 0., 0.,
					0., math.cos(a), -math.sin(a),
					0., math.sin(a), math.cos(a)
			)
		end,

		-- Create a new rotation Y matrix from the angle (in radians)
		-- @return Matrix3
		-- @see https://en.wikipedia.org/wiki/Rotation_matrix
		newRotationY = function(self, a)
			return Matrix3:new(
					math.cos(a), 0., math.sin(a),
					0., 1., 0.,
					-math.sin(a), 0., math.cos(a)
			)
		end,

		-- Create a new rotation Z matrix from the angle (in radians)
		-- @return Matrix3
		-- @see https://en.wikipedia.org/wiki/Rotation_matrix
		newRotationZ = function(self, a)
			return Matrix3:new(
					math.cos(a), -math.sin(a), 0.,
					math.sin(a), math.cos(a), 0.,
					0., 0., 1.
			)
		end,

		-- Create a new axis rotation matrix from the vector and angle (in radians)
		-- @param v Vector3
		-- @param a number
		-- @return Matrix3
		-- @see
		newRotationAxis = function(self, v, a)
			local cosa = math.cos(a)
			local sina = math.sin(a)
			return Matrix3:new(
					cosa+(1.-cosa)*v.x*v.x,
					(1.-cosa)*v.x*v.y-sina*v.z,
					(1.-cosa)*v.x*v.z+sina*v.y,

					(1.-cosa)*v.y*v.x+sina*v.z,
					cosa+(1.-cosa)*v.y*v.y,
					(1.-cosa)*v.y*v.z-sina*v.x,

					(1.-cosa)*v.z*v.x-sina*v.y,
					(1.-cosa)*v.z*v.y+sina*v.x,
					cosa+(1.-cosa)*v.z*v.z
			)
		end,

		-- Create a new rotation matrix from the yaw-pitch-roll vector
		-- @param v Vector3 where x = yaw, y = pitch, z = roll
		-- @return Matrix3
		-- @see https://en.wikipedia.org/wiki/Aircraft_principal_axes
		newRotationYawPitchRoll = function(self, v)
			local cosa = math.cos(v.x)
			local sina = math.sin(v.x)
			local cosb = math.cos(v.y)
			local sinb = math.sin(v.y)
			local cosy = math.cos(v.z)
			local siny = math.sin(v.z)
			return Matrix3:new(
					cosa*cosb,
					cosa*sinb*siny-sina*cosy,
					cosa*sinb*cosy+sina*siny,

					sina*cosb,
					sina*sinb*siny+cosa*cosy,
					sina*sinb*cosy-cosa*siny,

					-sinb,
					cosb*siny,
					cosb*cosy
			)
		end,

		__eq = function(self, that)
			return self.m11 == that.m11 and self.m12 == that.m12 and self.m13 == that.m13
					and self.m21 == that.m21 and self.m22 == that.m22 and self.m23 == that.m23
					and self.m31 == that.m31 and self.m32 == that.m32 and self.m33 == that.m33
		end,

		-- Matrix multiplication
		__mul = function(self, that)
			return Matrix3:new(
					self.m11*that.m11+self.m21*that.m12+self.m31*that.m13,
					self.m12*that.m11+self.m22*that.m12+self.m32*that.m13,
					self.m13*that.m11+self.m23*that.m12+self.m33*that.m13,

					self.m11*that.m21+self.m21*that.m22+self.m31*that.m23,
					self.m12*that.m21+self.m22*that.m22+self.m32*that.m23,
					self.m13*that.m21+self.m23*that.m22+self.m33*that.m23,

					self.m11*that.m31+self.m21*that.m32+self.m31*that.m33,
					self.m12*that.m31+self.m22*that.m32+self.m32*that.m33,
					self.m13*that.m31+self.m23*that.m32+self.m33*that.m33
			)
		end,

		__tostring = function(self)
			return "{ \n  " .. tostring(self.m11) .. ", " .. tostring(self.m12) .. ", " .. tostring(self.m13) .. "\n"
					.. "  " .. tostring(self.m21) .. ", " .. tostring(self.m22) .. ", " .. tostring(self.m23) .. "\n"
					.. "  " .. tostring(self.m31) .. ", " .. tostring(self.m32) .. ", " .. tostring(self.m33) .. "\n}"
		end,
	}
	Matrix3.__index = Matrix3




	-- 4x4 Matrix ====================
	Matrix4 = {
		-- m11, m12, m13, m14
		-- m21, m22, m23, m24
		-- m31, m32, m33, m34
		-- m41, m42, m43, m44

		-- Create a new matrix from coords. Skip coords to create a zero matrix
		-- @return Matrix4
		new = function(self,
		               m11, m12, m13, m14,
		               m21, m22, m23, m24,
		               m31, m32, m33, m34,
		               m41, m42, m43, m44
		)
			local o = {}
			setmetatable(o,self)
			o.m11 = m11 or 0.
			o.m12 = m12 or 0.
			o.m13 = m13 or 0.
			o.m14 = m14 or 0.
			o.m21 = m21 or 0.
			o.m22 = m22 or 0.
			o.m23 = m23 or 0.
			o.m24 = m24 or 0.
			o.m31 = m31 or 0.
			o.m32 = m32 or 0.
			o.m33 = m33 or 0.
			o.m34 = m34 or 0.
			o.m41 = m41 or 0.
			o.m42 = m42 or 0.
			o.m43 = m43 or 0.
			o.m44 = m44 or 0.
			return o
		end,

		-- Copy matrix from another 4x4 matrix
		-- @param Matrix4 that
		-- @return Matrix4
		copyFrom = function(self, that)
			local o = {}
			setmetatable(o,self)
			o.m11 = that.m11
			o.m12 = that.m12
			o.m13 = that.m13
			o.m14 = that.m14
			o.m21 = that.m21
			o.m22 = that.m22
			o.m23 = that.m23
			o.m24 = that.m24
			o.m31 = that.m31
			o.m32 = that.m32
			o.m33 = that.m33
			o.m34 = that.m34
			o.m41 = that.m41
			o.m42 = that.m42
			o.m43 = that.m43
			o.m44 = that.m44
			return o
		end,

		-- Creates a 4x4 matrix from 3x3 matrix
		-- @param Matrix3 that
		-- @return Matrix4
		copyFrom3 = function(self, that)
			local o = {}
			setmetatable(o,self)
			o.m11 = that.m11
			o.m12 = that.m12
			o.m13 = that.m13
			o.m14 = 0.
			o.m21 = that.m21
			o.m22 = that.m22
			o.m23 = that.m23
			o.m24 = 0.
			o.m31 = that.m31
			o.m32 = that.m32
			o.m33 = that.m33
			o.m34 = 0.
			o.m41 = 0.
			o.m42 = 0.
			o.m43 = 0.
			o.m44 = 1.
			return o
		end,

		-- Create a new identity matrix
		-- @return Matrix4
		newIdentity = function(self)
			local o = {}
			setmetatable(o,self)
			o.m11 = 1.
			o.m12 = 0.
			o.m13 = 0.
			o.m14 = 0.
			o.m21 = 0.
			o.m22 = 1.
			o.m23 = 0.
			o.m24 = 0.
			o.m31 = 0.
			o.m32 = 0.
			o.m33 = 1.
			o.m34 = 0.
			o.m41 = 0.
			o.m42 = 0.
			o.m43 = 0.
			o.m44 = 1.
			return o
		end,


		__eq = function(self, that)
			return self.m11 == that.m11 and self.m12 == that.m12 and self.m13 == that.m13 and self.m14 == that.m14
					and self.m21 == that.m21 and self.m22 == that.m22 and self.m23 == that.m23 and self.m24 == that.m24
					and self.m31 == that.m31 and self.m32 == that.m32 and self.m33 == that.m33 and self.m34 == that.m34
					and self.m41 == that.m41 and self.m42 == that.m42 and self.m43 == that.m43 and self.m44 == that.m44
		end,

		-- Matrix multiplication
		__mul = function(self, that)
			return Matrix4:new(
					self.m11*that.m11+self.m21*that.m12+self.m31*that.m13+self.m41*that.m14,
					self.m12*that.m11+self.m22*that.m12+self.m32*that.m13+self.m42*that.m14,
					self.m13*that.m11+self.m23*that.m12+self.m33*that.m13+self.m43*that.m14,
					self.m14*that.m11+self.m24*that.m12+self.m34*that.m13+self.m44*that.m14,

					self.m11*that.m21+self.m21*that.m22+self.m31*that.m23+self.m41*that.m24,
					self.m12*that.m21+self.m22*that.m22+self.m32*that.m23+self.m42*that.m24,
					self.m13*that.m21+self.m23*that.m22+self.m33*that.m23+self.m43*that.m24,
					self.m14*that.m21+self.m24*that.m22+self.m34*that.m23+self.m44*that.m24,

					self.m11*that.m31+self.m21*that.m32+self.m31*that.m33+self.m41*that.m34,
					self.m12*that.m31+self.m22*that.m32+self.m32*that.m33+self.m42*that.m34,
					self.m13*that.m31+self.m23*that.m32+self.m33*that.m33+self.m43*that.m34,
					self.m14*that.m31+self.m24*that.m32+self.m34*that.m33+self.m44*that.m34,

					self.m11*that.m41+self.m21*that.m42+self.m31*that.m43+self.m41*that.m44,
					self.m12*that.m41+self.m22*that.m42+self.m32*that.m43+self.m42*that.m44,
					self.m13*that.m41+self.m23*that.m42+self.m33*that.m43+self.m43*that.m44,
					self.m14*that.m41+self.m24*that.m42+self.m34*that.m43+self.m44*that.m44
			)
		end,

		__tostring = function(self)
			return "{ \n  "..tostring(self.m11)..", "..tostring(self.m12)..", "..tostring(self.m13)..", "..tostring(self.m14).."\n"
					.."  "..tostring(self.m21)..", "..tostring(self.m22)..", "..tostring(self.m23)..", "..tostring(self.m24).."\n"
					.."  "..tostring(self.m31)..", "..tostring(self.m32)..", "..tostring(self.m33)..", "..tostring(self.m34).."\n"
					.."  "..tostring(self.m41)..", "..tostring(self.m42)..", "..tostring(self.m43)..", "..tostring(self.m44).."\n}"
		end,
	}
	Matrix4.__index = Matrix4




	-- Projections ====================
	-- Screen aspect ratio
	local screenWidth = 0.544
	local screenHeight = 0.302
	local radToDeg = 180.0 / math.pi
	local degToRad = math.pi / 180.0

	-- Builds a perspective projection matrix based on a field of view.
	-- @return Matrix4
	-- @see https://docs.microsoft.com/en-us/windows/win32/direct3d9/d3dxmatrixperspectivefovlh
	local matrix4perspective1 = function(fovy, Aspect, zn, zf)
		return Matrix4:new(2*zn/fovy,0,0,0,0,2*zn/Aspect,0,0,0,0,zf/(zf-zn),1,0,0,zn*zf/(zn-zf),0)
	end

	-- Builds a customized perspective projection matrix
	-- @return Matrix4
	-- @see https://docs.microsoft.com/en-us/windows/win32/direct3d9/d3dxmatrixperspectiveoffcenterlh
	local matrix4Perspective2 = function(n, f, r, l, t, b)
		return Matrix4:new(2*n/(r-l), 0, (r+l)/(r-l), 0, 0, 2*n/(t-b), (t+b)/(t-b), 0, 0, 0, -(f+n)/(f-n), -2*f*n/(f-n), 0, 0, -1, 0)
	end

	-- Builds a look-at matrix
	-- @param PosCamera Vector3
	-- @param AxisX Vector3
	-- @param AxisY Vector3
	-- @param AxisZ Vector3
	-- @return Matrix4
	-- @see https://docs.microsoft.com/en-us/windows/win32/direct3d9/d3dxmatrixlookatlh
	local matrix4Look = function(PosCamera, AxisX, AxisY, AxisZ)
		return Matrix4:new(AxisX.x,AxisY.x,AxisZ.x,0,AxisX.y,AxisY.y,AxisZ.y,0,AxisX.z,AxisY.z,AxisZ.z,0,-AxisX:dotProduct(PosCamera),-AxisY:dotProduct(PosCamera),-AxisZ:dotProduct(PosCamera),1)
	end



	-- Camera ====================
	-- Game camera projection state with eye and target
	-- @see https://knowledge.autodesk.com/support/3ds-max/learn-explore/caas/CloudHelp/cloudhelp/2017/ENU/3DSMax/files/GUID-B1F4F126-65AC-4CB6-BDC3-02799A0BAEF3-htm.html
	Camera = {

		-- Creates a new camera
		-- @param initialZ initial z-offset (optional), can be retrieved from GetCameraTargetPositionZ()
		new = function(self, initialZ)
			local o = {}
			setmetatable(o,self)
			o.changed = false
			o.initialZ = initialZ or 0.
			o.eye = Vector3:new(0.0, -922.668, o.initialZ+1367.912)
			o.target = Vector3:new(0, 0, o.initialZ)
			o.distance = 0.
			o.yaw = 0.
			o.pitch = 0.
			o.roll = 0.
			o.axisX = Vector3:new()
			o.axisY = Vector3:new()
			o.axisZ = Vector3:new()
			o.view = Matrix4:new()
			o.projection = matrix4Perspective2(0.5, 10000, -screenWidth/2, screenWidth/2, -screenHeight/2, screenHeight/2)
			o:_updateDistanceYawPitch()
			o:_updateAxisMatrix()

			return o
		end,

		-- Converts window coordinate to world coordinate
		-- @param v Vector3 where x and y - window coords and z - overlay range
		-- @return Vector3
		windowToWorld = function(self, v)
			return Vector3:new(
					self.eye.x+self.axisZ.x*v.z+v.x*self.axisX.x*screenWidth*v.z+v.y*self.axisY.x*screenHeight*v.z,
					self.eye.y+self.axisZ.y*v.z+v.x*self.axisX.y*screenWidth*v.z+v.y*self.axisY.y*screenHeight*v.z,
					self.eye.z+self.axisZ.z*v.z+v.x*self.axisX.z*screenWidth*v.z+v.y*self.axisY.z*screenHeight*v.z
			)
		end,

		-- Converts world coordinate to window coordinate
		-- @param v Vector3
		-- @return Vector3
		worldToWindow = function(self, v)
			v = v:transform4(self.view):transform4(self.projection)
			v.z = math.abs(v.z)
			return v
		end,

		-- @param v Vector3
		setPosition = function(self, v)
			self.eye = self.eye + (v - self.target)
			self.target = Vector3:newFrom(v)
			self.changed = true
		end,

		-- @param eye Vector3
		-- @param target Vector3
		setEyeAndTarget = function(self, eye, target)
			self.eye = Vector3:newFrom(eye)
			self.target = Vector3:newFrom(target)
			self:_updateDistanceYawPitch()
			self:_updateAxisMatrix()
			self.changed = true
		end,

		-- @param v Vector3 where x = yaw, y = pitch, z = roll
		-- @param eyeLock boolean - move target instead of eye
		setYawPitchRoll = function(self, v, eyeLock)
			local XY = self.distance*math.cos(v.y)
			local modifier = Vector3:new(
					XY*math.cos(v.x),
					XY*math.sin(v.x),
					self.distance*math.sin(v.y)
			)
			self.yaw = v.x
			self.pitch = v.y
			self.roll = v.z
			if(eyeLock) then
				self.target = self.eye + modifier
			else
				self.eye = self.target - modifier
			end
			self:_updateAxisMatrix()
			self.changed = true
		end,

		-- uses warcraft native functions
		-- @param thePlayer Player
		-- @param skipChangedFlag boolean. Set to true to deny .changed flag unsetting
		applyCameraToPlayer = function(self, thePlayer, skipChangedFlag)
			if(GetLocalPlayer() == thePlayer) then
				SetCameraField(CAMERA_FIELD_ROTATION, self.yaw*radToDeg, 0)
				SetCameraField(CAMERA_FIELD_ANGLE_OF_ATTACK, self.pitch*radToDeg, 0)
				SetCameraField(CAMERA_FIELD_ROLL, self.roll*radToDeg, 0)
				SetCameraField(CAMERA_FIELD_TARGET_DISTANCE, self.distance, 0)
				-- call SetCameraTargetController(AtUnit, self.target.x, self.target.y, false)
				SetCameraField(CAMERA_FIELD_ZOFFSET, self.target.z-self.initialZ, 0)
			end
			if(not skipChangedFlag) then
				self.changed = false
			end
		end,

		-- internal use methods
		_updateDistanceYawPitch = function(self)
			local delta = (self.target - self.eye)
			self.distance = delta:length()
			self.yaw = Atan2(delta.y, delta.x)
			self.pitch = Atan2(delta.z, delta:length2d())
		end,

		_updateAxisMatrix = function(self)
			self.axisZ = (self.target - self.eye):normalize()
			local mRotation = Matrix3:newRotationAxis(self.axisZ, -self.roll)
			self.axisX = self.axisZ:crossProduct(Vector3:newUp()):normalize()
			self.axisY = self.axisX:crossProduct(self.axisZ):transform3(mRotation)
			self.axisX = self.axisX:transform3(mRotation)
			self.view = matrix4Look(self.eye, self.axisX, self.axisY, self.axisZ)
		end
	}
	Camera.__index = Camera

	local wGeometry = {
		Functions = Functions,
		Vector3 = Vector3,
		Matrix3 = Matrix3,
		Matrix4 = Matrix4,
		matrix4perspective1 = matrix4perspective1,
		matrix4Perspective2 = matrix4Perspective2,
		matrix4Look = matrix4Look,
		Camera = Camera,
		unlockUnitZ = unlockUnitZ
	}
	--exportDefault(wGeometry)
	--export(wGeometry)
	return wGeometry
end

wGeometry = wGeometryInit()
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 18.05.2020 14:04

function AddAxe(data)
	local effmodel="Abilities\\Weapons\\Axe\\AxeMissile.mdl"
	local angle=0
	local eff=AddSpecialEffect(effmodel,0,0)
	BlzSetSpecialEffectRoll(eff,math.rad(-90))
	local lock=0
	local tempUnit=nil
	TimerStart(CreateTimer(), TIMER_PERIOD, true, function()
		local x,y=GetUnitXY(data.UnitHero)
		local CollisionUnit,IsDamage=nil,nil
		angle=angle+9
		--print(angle)

		if lock<=0 then
			local nx,ny=MoveXY(x,y,80,angle)
			BlzSetSpecialEffectPosition(eff,nx,ny,GetUnitZ(data.UnitHero)+60)
			IsDamage,CollisionUnit= UnitDamageArea(data.UnitHero,10,nx,ny,40)
			tempUnit=CollisionUnit
		else
			lock=lock-1
			if IsUnitEnemy(data.UnitHero,GetOwningPlayer(tempUnit)) then
				DestroyEffect(AddSpecialEffect("Bullets\\Bullet1",GetUnitXY(tempUnit)))
			end
		end
		if CollisionUnit then
			lock=4
			if IsUnitEnemy(data.UnitHero,GetOwningPlayer(tempUnit)) then
				DestroyEffect(AddSpecialEffect("Bullets\\Bullet1",GetUnitXY(tempUnit)))
			end
		end
		if angle==360 then
			angle=0
		end
	end)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 13.05.2020 2:16
---

function DontMove()
	local this = CreateTrigger()
	TriggerRegisterAnyUnitEventBJ(this, EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER)
	TriggerRegisterAnyUnitEventBJ(this, EVENT_PLAYER_UNIT_ISSUED_TARGET_ORDER)
	TriggerAddAction(this, function()
		local hero=GetTriggerUnit()
		if GetIssuedOrderIdBJ() == String2OrderIdBJ("move") and IsUnitType(hero, UNIT_TYPE_HERO) then
			local data=HERO[GetPlayerId(GetOwningPlayer(hero))]
			if false and not data.EnterInTurret then
				PauseUnitBJ(true, hero)
				IssueImmediateOrderBJ(hero, "stop")
				PauseUnitBJ(false, hero)
			end
		end
	end)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 27.03.2020 22:59
---
function AfterAttack(hero, delay)
	local x,y=MoveXY(GetUnitX(hero),GetUnitY(hero),70,GetUnitFacing(hero))
	local data=HERO[GetPlayerId(GetOwningPlayer(hero))]

	local damage=BlzGetUnitBaseDamage(hero,0)--*50
	TimerStart(CreateTimer(), delay, false, function()

		data.Reflection=true
		if not data.ReleaseLMB and data.ReleaseRMB and UnitAlive(hero) then
			local OnAttack,CUnit= UnitDamageArea(hero,damage,x,y,70)

			if not OnAttack and not data.Perk16  then -- нет уберсплата в дальнем бою
				data.ShowSplat=true
			end
			if OnAttack then
				data.RevoltSec=0
			end

			--if (data.HaveAFire or data.Perk16 ) and ) then
			if (data.HaveAFire or data.Perk16 )  and true then
				if  IsUnitType(CUnit,UNIT_TYPE_MECHANICAL)  and   IsUnitAlly(hero,GetOwningPlayer(CUnit))  and DistanceBetweenXY(GetUnitX(hero),GetUnitY(hero),GetUnitXY(CUnit)) <=200 and
						GetUnitTypeId(CUnit)~=FourCC('o005') and GetUnitTypeId(CUnit)~=FourCC('e002')  then
					--print("в плотную нет огня "..GetUnitName(CUnit))
					DestroyTimer(GetExpiredTimer())
					return
				end
				if data.HaveAFire then
					SingleCannon(hero,GetUnitFacing(hero),"Abilities\\Weapons\\FireBallMissile\\FireBallMissile.mdl",damage*5)
				else
					SingleCannon(hero,GetUnitFacing(hero),"Abilities\\Weapons\\FireBallMissile\\FireBallMissile.mdl",damage)
				end
				if (data.HaveAFire and data.Perk16)  then --тройной выстрел
					SingleCannon(hero,GetUnitFacing(hero)-15,"Abilities\\Weapons\\FireBallMissile\\FireBallMissile.mdl",damage)
					SingleCannon(hero,GetUnitFacing(hero)+15,"Abilities\\Weapons\\FireBallMissile\\FireBallMissile.mdl",damage)
				end
				if not data.Perk16 then
					data.HaveAFire=false
					UnitRemoveAbility(hero,FourCC('A006'))
				end
			end


		end
		if true and data.Perk6 and data.Thor then -- удар тора
			--data.Perk6=false
			--print("удар тора")

			local cd=2

			if UnitDamageArea(hero,damage*.5,x,y,150)  then --дополнительный урон на торе
				StartFrameCD(2,data,6)
				data.Thor=false
				TimerStart(CreateTimer(), cd, false, function()
					data.Thor=true
				end)
				--CastArea(hero,FourCC('A00Q'),x,y)
				UnitAddItemById(hero,FourCC('I001'))
				DestroyEffect(AddSpecialEffect("ThunderclapCasterClassic",x,y))
			end
			--print("ПОСТ удар тора")
		end
		TimerStart(CreateTimer(), 0.2, false, function()
			data.Reflection=false
			data.ShowSplat=false
			DestroyTimer(GetExpiredTimer())
		end)
		DestroyTimer(GetExpiredTimer())
	end)
end

function MakeUnitAllEnemy(hero)
	--SetPlayerAlliance()
	local p=GetOwningPlayer(hero)
	SetPlayerAllianceStateBJ(p, Player(0), bj_ALLIANCE_UNALLIED)
	SetPlayerAllianceStateBJ(p, Player(1), bj_ALLIANCE_UNALLIED)
	SetPlayerAllianceStateBJ(p, Player(2), bj_ALLIANCE_UNALLIED)
	SetPlayerAllianceStateBJ(p, Player(3), bj_ALLIANCE_UNALLIED)
	SetPlayerAllianceStateBJ(p, Player(5), bj_ALLIANCE_UNALLIED)

	SetPlayerAllianceStateBJ(Player(0),p, bj_ALLIANCE_UNALLIED)
	SetPlayerAllianceStateBJ(Player(1),p, bj_ALLIANCE_UNALLIED)
	SetPlayerAllianceStateBJ(Player(2),p, bj_ALLIANCE_UNALLIED)
	SetPlayerAllianceStateBJ(Player(3),p, bj_ALLIANCE_UNALLIED)
	SetPlayerAllianceStateBJ(Player(5),p, bj_ALLIANCE_UNALLIED)
end

function MakeUnitAllAlly(hero)
	--SetPlayerAlliance()
	local p=GetOwningPlayer(hero)
	SetPlayerAllianceStateBJ(p, Player(0), bj_ALLIANCE_ALLIED_VISION)
	SetPlayerAllianceStateBJ(p, Player(1), bj_ALLIANCE_ALLIED_VISION)
	SetPlayerAllianceStateBJ(p, Player(2), bj_ALLIANCE_ALLIED_VISION)
	SetPlayerAllianceStateBJ(p, Player(3), bj_ALLIANCE_ALLIED_VISION)
	SetPlayerAllianceStateBJ(p, Player(5), bj_ALLIANCE_ALLIED_VISION)

	SetPlayerAllianceStateBJ(Player(0),p, bj_ALLIANCE_ALLIED_VISION)
	SetPlayerAllianceStateBJ(Player(1),p, bj_ALLIANCE_ALLIED_VISION)
	SetPlayerAllianceStateBJ(Player(2),p, bj_ALLIANCE_ALLIED_VISION)
	SetPlayerAllianceStateBJ(Player(3),p, bj_ALLIANCE_ALLIED_VISION)
	SetPlayerAllianceStateBJ(Player(5),p, bj_ALLIANCE_ALLIED_VISION)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 28.03.2020 1:00
---
TotalStones=0 --подсчет камней для тиника
function RegisterCollision(hero)
	local ThisTrigger = CreateTrigger()
	local IsWork=false
	if  hero then
		IsWork=true
	end
	TriggerRegisterUnitInRangeSimple(ThisTrigger, 80, hero)
	TriggerAddAction(ThisTrigger, function()
		local CollisionUnit=GetTriggerUnit()
		local data=HERO[GetPlayerId(GetOwningPlayer(hero))]
		--hero - юнит к которому подошли
		--print("any reg "..GetUnitName(CollisionUnit))
		--Общее условие
		if UnitAlive(CollisionUnit) then

			if GetUnitTypeId(CollisionUnit)==FourCC('o009') and not data.Wagon  then --вагонетка с турелью
				--print("вагонетка прилипает")



				if GetOwningPlayer(CollisionUnit)==Player(PLAYER_NEUTRAL_PASSIVE) then
					BlzPauseUnitEx(CollisionUnit,true)
					SetUnitInvulnerable(CollisionUnit,true)
					SetUnitOwner(CollisionUnit,GetOwningPlayer(hero),true)
					data.Wagon=CollisionUnit

					local Turret=FindUnitOfType(FourCC('o00A'),300,GetUnitXY(CollisionUnit))
					--ShowUnit(Turret,false)
					BlzPauseUnitEx(Turret,true)
					SetUnitInvulnerable(Turret,true)
					SetUnitZ(Turret,160)
					data.Turret=Turret

					--Элементы для входа
					if not data.TurretArrow and Turret then
						--print("Первое появление")
						StartZombies()
						local x,y=GetUnitXY(CollisionUnit)
						local model="AneuCaster"
						local player=GetOwningPlayer(hero)
						if GetLocalPlayer()~=player then
							model=""
						else
							--print("звук созданного квеста")
							StartSound(bj_questSecretSound)
						end
						local QuestPointer=AddSpecialEffect(model,x,y)
						BlzSetSpecialEffectPitch(QuestPointer,math.rad(-90))--/bj_DEGTORAD
						BlzSetSpecialEffectYaw(QuestPointer,math.rad(180))
						data.TurretArrow=QuestPointer
					end
				end
			end


			if GetUnitTypeId(CollisionUnit)==FourCC('o008')  then --Таурен
				--print("защищайте кодоев")
				SetUnitFacing(CollisionUnit,AngleBetweenUnits(CollisionUnit,hero))
				local  tl = Location(GetUnitXY(CollisionUnit))
				PlaySoundAtPointBJ( gg_snd_SaveKodo, 100, tl, 0 )
				RemoveLocation(tl)
			end


			if GetUnitTypeId(CollisionUnit)==FourCC('e009')  and GetUnitAbilityLevel(CollisionUnit,FourCC('A00L'))>0 then --Тини

				--FlyTextTagManaBurn(CollisionUnit,TotalStones,GetOwningPlayer(hero))
				if TotalStones>=30 then --30
					UnitRemoveAbility(CollisionUnit,FourCC('A00L'))
					StartTinyAI(GetUnitXY(CollisionUnit))
					--print("тут должна быть эпичная битва но её ещё нет")
				else
					if BlzGetLocale()=="ruRU" then
						print("|cff8080ffТиник: |r".."Уничтожьте камни для нашей битвы "..TotalStones.."/30")
					else
						print("|cff8080ffTinyc: |r".."Destroy stones for battle "..TotalStones.."/30")
					end
				end
			end


			if GetUnitTypeId(CollisionUnit)==FourCC('oshy')  then --ферфь
				if GetUnitAbilityLevel(CollisionUnit,FourCC('A00L'))>0 then
				if GTotalWood>=LumberToWin then
					UnitRemoveAbility(CollisionUnit,FourCC('A00L'))
					if BlzGetLocale()=="ruRU" then
						print("|cff8080ffСистема: |r".."Приступайте к строительсву корабля")
					else
						print("|cff8080ffSystem: |r".."Repair the ship")
					end

				end
					if Ending then
						UnitRemoveAbility(CollisionUnit,FourCC('A00L'))
						if BlzGetLocale()=="ruRU" then
							print("|cff8080ffСистема: |r".."Помогайте строить корабль, чего стоите")
						else

						end
					else
						if BlzGetLocale()=="ruRU" then
							print("|cff8080ffСистема: |r".."Добудьте 100 древисины чтобы построить корабль")
						else
							print("|cff8080ffСистема: |r".."You need 100 timber to build a ship")
						end
					end

				end
			end

			if GetUnitTypeId(CollisionUnit)==FourCC('n006')  then--тускарец с восклицательным знаком
				if GetUnitAbilityLevel(CollisionUnit,FourCC('A00L'))>0 then
				UnitRemoveAbility(CollisionUnit,FourCC('A00L'))
					--print("Тускарец: где-то винзу есть рычаг")
					if BlzGetLocale()=="ruRU" then
						print("|cff8080ffТускарец: |r".." Где-то внизу есть рычаг")
					else
						print("|cff8080ffWalrus: |r".." Below there is a lever from this gate")
					end

				end
			end

			if GetUnitTypeId(CollisionUnit)==FourCC('o005')  and not data.CartUnit then--тележка
				if GetOwningPlayer(CollisionUnit)==Player(PLAYER_NEUTRAL_PASSIVE) then
					SetUnitInvulnerable(CollisionUnit,true)
					SetUnitOwner(CollisionUnit,GetOwningPlayer(hero),true)
					data.CartUnit=CollisionUnit
				end
			end
			if GetUnitTypeId(CollisionUnit)==FourCC('n007') then-- свинка лечилка свинья
				if GetLosingHP(hero)>1 then
					HealUnit(hero,GetUnitState(CollisionUnit,UNIT_STATE_LIFE))
					KillUnit(CollisionUnit)
				end
			end
			if GetUnitTypeId(CollisionUnit)==FourCC('e007') then--Сфрера огня
				--print("Подобрана сфера огня, учим героя метать фаер болы")
				KillUnit(CollisionUnit)
				if not data.Perk16 then
					data.Perk16=true
					UnitAddAbility(hero,FourCC('A006'))--огонёк
					PerkUnlocker(data,16)
				end
			end
			if GetUnitTypeId(CollisionUnit)==FourCC('o001') then--дрова на лесопилке
				local k=1
				if data.Perk1 then
					k=k+1
				end
				if data.IsWood then
					if GetLosingHP(hero)<=5 and not data.Perk10 then-- Техника безопасности
						--print("Полное хп")
						data.TreeCountOnTB=k+data.TreeCountOnTB
						FrameBigSize(data.SelfFrame[10],0.2,10)
						if data.TreeCountOnTB>=10 and not data.Perk10 then
							data.Perk10=true
							PerkUnlocker(data,10)
						end
					end
					data.IsWood=false
					--рывок перемещён в другое место в интерфейс
					data.SingleWoodCount=data.SingleWoodCount+k
					FrameBigSize(data.SelfFrame[1],0.2,1)
					--print("дерево в личном зачете "..data.SingleWoodCount)
					if data.SingleWoodCount>=25  and not data.Perk1 then -- Перкс работник месяца
						data.Perk1=true
						PerkUnlocker(data,1)
					end

					if data.SingleWoodCount>=50  and data.Perk1 and not data.Perk1A then
						data.Perk1A=true
						local cd=60
						TimerStart(CreateTimer(), cd, true, function()
							StartFrameCD(cd,data,1)
							MoveWoodAsFarm(hero,1)
						end)
					end
						--print(data.SingleWoodCount)

					HealUnit(hero,1000)
					AddLumber(k,hero)
					MoveWoodAsFarm(hero,k)
					UnitAddItemById(hero,FourCC('I000'))-- ускорение
					data.RevoltSec=0
				end
				if data.CartUnit  and GetUnitUserData(data.CartUnit)>0 then -- дрова из тележки на лесопилке
					local wc=GetUnitUserData(data.CartUnit)
					--k=wc*k

					if GetLosingHP(hero)<=5 and not data.Perk10 then-- Техника безопасности
						--print("Полное хп")
						data.TreeCountOnTB=k+data.TreeCountOnTB
						FrameBigSize(data.SelfFrame[10],0.2,10)
						if data.TreeCountOnTB>=10 and not data.Perk10 then
							data.Perk10=true
							PerkUnlocker(data,10)
						end
					end


					HealUnit(hero,1000)
					AddLumber(k,hero)
					UnitAddItemById(hero,FourCC('I000'))-- ускорение
					TimerStart(CreateTimer(), 0.1, true, function()
						MoveWoodAsFarm(hero,k)
						data.SingleWoodCount=data.SingleWoodCount+k
						--print("дерево в личном зачете "..data.SingleWoodCount)
						FrameBigSize(data.SelfFrame[1],0.2,1)
						if data.SingleWoodCount>=25  and not data.Perk1 then -- Перкс работник месяца
							data.Perk1=true
							BlzFrameSetVisible(data.LockFrame[1],false)
							BlzFrameSetVisible(data.VisualSelectorFrame[1],true)
							TimerStart(CreateTimer(), 10, true, function()
								BlzFrameSetVisible(data.VisualSelectorFrame[1],false)
							end)
						end
						if data.SingleWoodCount>=50  and data.Perk1 and not data.Perk1A then
							data.Perk1A=true
							local cd=60
							TimerStart(CreateTimer(), cd, true, function()
								StartFrameCD(cd,data,1)
								MoveWoodAsFarm(hero,1)
							end)
						end
						data.RevoltSec=0
						SetUnitUserData(data.CartUnit,GetUnitUserData(data.CartUnit)-1)
						SetVisualWood(data.CartUnit,GetUnitUserData(data.CartUnit))
						if GetUnitUserData(data.CartUnit)==0 then
							DestroyTimer(GetExpiredTimer())
						end
					end)
				end
			end
			if GetUnitTypeId(CollisionUnit)==FourCC('e002') then-- дрова у юнита
				if data.CartUnit then
					local wc=GetUnitUserData(data.CartUnit)
					if wc<=5 then
						SetUnitUserData(data.CartUnit,wc+1)
						wc=wc+1
						--print("Всего дерева в тачке="..wc)
						local tl = Location(GetUnitXY(hero))
						PlaySoundAtPointBJ( gg_snd_Load, 100, tl, 0 )
						RemoveLocation(tl)
						KillUnit(CollisionUnit)
						SetVisualWood(data.CartUnit,wc)
					end
				else
					if not data.IsWood then
						--print("звук подбора")
						if not data.ReleaseLMB then
							local tl = Location(GetUnitXY(hero))
						PlaySoundAtPointBJ( gg_snd_Load, 100, tl, 0 )
						RemoveLocation(tl)
							KillUnit(CollisionUnit)
							data.IsWood=true
						end
					end
				end




			end
			if GetUnitTypeId(CollisionUnit)==FourCC('n001') then -- овца
					data.SheepCount=data.SheepCount+1
					if data.SheepCount==40 then
						data.Perk15=true
						UnitAddAbility(hero,FourCC('A00J'))
						PerkUnlocker(data,15)
					end

				SetUnitExploded(CollisionUnit,true)
				local nx,ny=GetUnitXY(CollisionUnit)
				UnitDamageArea(CollisionUnit,100,nx,ny,150) -- взрыв овцы
				DestroyEffect(AddSpecialEffect("Abilities\\Weapons\\Mortar\\MortarMissile",nx,ny))
				KillUnit(CollisionUnit)
				local data=AnyData[GetHandleId(CollisionUnit)]
				local x,y=data.x,data.y
				TimerStart(CreateTimer(), 30, false, function()
					local new =CreateUnit(Player(10), FourCC('n001'), x, y, 0)
					AnyData[GetHandleId(new)]={
						x=x,
						y=y,
					}
					DestroyTimer(GetExpiredTimer())
				end)
			end

		end

	end)
	return IsWork
end

function AddLumber (ttk,caster)
	local data=HERO[GetPlayerId(GetOwningPlayer(caster))]
	local ownplayer=GetOwningPlayer(caster)



	if ttk>0 and data.IsWood then
		FlyTextTagLumberBounty(caster,"+"..ttk,ownplayer)
		AdjustPlayerStateBJ(ttk, ownplayer, PLAYER_STATE_RESOURCE_LUMBER )

		--print("Опыт добавлен")
	end
end

function SetVisualWood(CartUnit,wc)
	UnitRemoveAbility(CartUnit,FourCC('A008'))--1
	UnitRemoveAbility(CartUnit,FourCC('A009'))--2
	UnitRemoveAbility(CartUnit,FourCC('A00A'))--3
	UnitRemoveAbility(CartUnit,FourCC('A00B'))--4
	UnitRemoveAbility(CartUnit,FourCC('A00C'))--5
	UnitRemoveAbility(CartUnit,FourCC('A00D'))--6
	if wc==1 then
		UnitAddAbility(CartUnit,FourCC('A008'))--1
	elseif wc==2  then
		UnitAddAbility(CartUnit,FourCC('A008'))--1
		UnitAddAbility(CartUnit,FourCC('A009'))--2
	elseif wc==3  then
		UnitAddAbility(CartUnit,FourCC('A008'))--1
		UnitAddAbility(CartUnit,FourCC('A009'))--2
		UnitAddAbility(CartUnit,FourCC('A00A'))--3
	elseif wc==4  then
		UnitAddAbility(CartUnit,FourCC('A008'))--1
		UnitAddAbility(CartUnit,FourCC('A009'))--2
		UnitAddAbility(CartUnit,FourCC('A00A'))--3
		UnitAddAbility(CartUnit,FourCC('A00B'))--4
	elseif wc==5  then
		UnitAddAbility(CartUnit,FourCC('A008'))--1
		UnitAddAbility(CartUnit,FourCC('A009'))--2
		UnitAddAbility(CartUnit,FourCC('A00A'))--3
		UnitAddAbility(CartUnit,FourCC('A00B'))--4
		UnitAddAbility(CartUnit,FourCC('A00C'))--5
	elseif wc==6  then
		UnitAddAbility(CartUnit,FourCC('A008'))--1
		UnitAddAbility(CartUnit,FourCC('A009'))--2
		UnitAddAbility(CartUnit,FourCC('A00A'))--3
		UnitAddAbility(CartUnit,FourCC('A00B'))--4
		UnitAddAbility(CartUnit,FourCC('A00C'))--5
		UnitAddAbility(CartUnit,FourCC('A00D'))--6
	end
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 28.03.2020 0:41
---
function ResetPeonAnimation (hero)
	SetUnitAnimationByIndex(hero,0)
	--[[
	local ra=GetRandomInt(0,4)
	if ra==0 then
		SetUnitAnimationByIndex(hero,0)
	elseif ra==1 then
		SetUnitAnimationByIndex(hero,9)
	elseif ra==2 then
		SetUnitAnimationByIndex(hero,12)
	elseif ra==3 then
		SetUnitAnimationByIndex(hero,13)
	elseif ra==4 then
		SetUnitAnimationByIndex(hero,14)
	end]]
end

---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 11.05.2020 9:42
---

function CreateLocalImages()
	for i=0,3 do
		local data=HERO[i]
		data.CircleImage=CreateImage("circ.blp",128,128,128,4000,4000,0,0,0,0,4)
		SetImageRenderAlways(data.CircleImage, true)
		ShowImage(data.CircleImage,false)
	end
	ConeImage=CreateImage("Konus.blp",1280,1280,1280,4000,4000,0,0,0,0,4)
	SetImageColor(ConeImage,0,255,0,255)
	SetImageRenderAlways(ConeImage, true)
	if not ConeImage then
		print("errorRRRR")
	end

end

---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 28.03.2020 2:06

function InitAllZones()
	EntInTrees()-- превращаем энтов в деревья
	StartAllSaw() -- зона пил
	TimerStart(CreateTimer(), 120, false, function()
		WaveAttack(60)-- волны
		DestroyTimer(GetExpiredTimer())
	end)
	SetSheepPoint()-- овцы
	StartWinter()--ветер
	CreateVulkano(913,-2550)--вулкан
	StartAllTorch()--фонарики
	FarmOfPig()
	AutoCollectLumber(2)
	--Normadia()--Высадка пехотинцев в самом начале игры для тестов
	StartWolfBossAI()
	StartHealerCamp()
	InitTurtleZone() -- зона босса черепахи
	--StartZombies()
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 09.05.2020 23:14
---

function AutoCollectLumber(period)
	local Mill=FindUnitOfType(FourCC('o001'))

	TimerStart(CreateTimer(), period, true, function()
		for i = 0, 3 do
			local data=HERO[i]
			local hero = data.UnitHero
			if IsUnitInRange(hero, Mill, 100) then

				local k=1
				if data.Perk1 then
					k=k+1
				end
				if data.IsWood then
					--print("Автосбор древисины")
					if GetLosingHP(hero)<=5 and not data.Perk10 then-- Техника безопасности
						--print("Полное хп")
						data.TreeCountOnTB=k+data.TreeCountOnTB
						if data.TreeCountOnTB>=10 and not data.Perk10 then
							data.Perk10=true
							PerkUnlocker(data,10)
						end
					end
					data.IsWood=false
					--рывок перемещён в другое место в интерфейс
					data.SingleWoodCount=data.SingleWoodCount+k
					FrameBigSize(data.SelfFrame[1],0.2,1)
					--print("дерево в личном зачете "..data.SingleWoodCount)
					if data.SingleWoodCount>=25  and not data.Perk1 then -- Перкс работник месяца
						data.Perk1=true
						PerkUnlocker(data,1)
					end
					if data.SingleWoodCount>=50  and data.Perk1 and not data.Perk1A then
						data.Perk1A=true
						local cd=60
						TimerStart(CreateTimer(), cd, true, function()
							StartFrameCD(cd,data,1)
							MoveWoodAsFarm(hero,1)
						end)
					end
					--print(data.SingleWoodCount)

					HealUnit(hero,1000)
					AddLumber(k,hero)
					MoveWoodAsFarm(hero,k)
					UnitAddItemById(hero,FourCC('I000'))-- ускорение
					data.RevoltSec=0
				end
			end
		end

		if not UnitAlive(Mill) then
			DestroyTimer(GetExpiredTimer())
		end
	end)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 24.04.2020 22:53

function FarmOfPig()
	local farm=FindUnitOfType(FourCC('npgf')) --свинья хрюшка
	local x,y=GetUnitXY(farm)
	local mf=0
	TimerStart(CreateTimer(), 60, true, function()
		local new=CreateUnit(Player(5),FourCC('n007'),x,y,180)
		mf=mf+1
		local hp=200+mf
		BlzSetUnitMaxHP(new,hp)
		HealUnit(new,hp)
	end)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 11.05.2020 16:10
---
function StartHealerCamp()
	local camp=FindUnitOfType(FourCC('n003'))
	TimerStart(CreateTimer(), 2, true, function()
		--print("масс")
		HealAreaPercent(camp,300,5)
		if not UnitAlive(camp) then
			DestroyTimer(GetExpiredTimer())
		end
	end)
end

function HealAreaPercent(hero,range,amount)
	local x,y=GetUnitXY(hero)
	local e=nil
	GroupEnumUnitsInRange(perebor,x,y,range,nil)
	while true do
		e = FirstOfGroup(perebor)

		if e == nil then break end
		if UnitAlive(e) and IsUnitAlly(e,GetOwningPlayer(hero))  then
			local amountHeal=BlzGetUnitMaxHP(e)*amount/100
			--print("лечение "..amountHeal)
			HealUnit(e,amountHeal)
		end
		GroupRemoveUnit(perebor,e)
	end
end
function AddAutoHeal(hero,amount)
	TimerStart(CreateTimer(), 1, true, function()
		HealUnit(hero,amount)
	end)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 29.03.2020 15:46
---
function EntInTrees()
	local e=nil
	local id=FourCC('e001')
	TimerStart(CreateTimer(), 20, true, function()
		GroupEnumUnitsInRect(perebor,bj_mapInitialPlayableArea,nil)
		while true do
			e = FirstOfGroup(perebor)

			if e == nil then break end
			if UnitAlive(e) and GetUnitTypeId(e)==id then
				local x,y=GetUnitXY(e)
				KillUnit(e)
				DestroyEffect(AddSpecialEffect("",x,y))
				CreateDestructable(FourCC('LTlt'),x,y,0,GetRandomInt(1,1),GetRandomInt(1,3))
				local range=80
				TimerStart(CreateTimer(), 10, false, function()
					SetRect(GlobalRect, x - range, y - range, x + range, y +range)
					EnumDestructablesInRect(GlobalRect,nil,function ()
						local d=GetEnumDestructable()
						if GetDestructableTypeId(d)==FourCC('LTlt')  then
							if GetDestructableLife(d)>0 and GetTerrainZ(GetDestructableX(d), GetDestructableY(d))<=150 then
								KillDestructable(d)

								local new=CreateUnit(Player(10), FourCC('e001'), GetDestructableX(d), GetDestructableY(d), 0)
								SetUnitAnimation(new,"birth")
								TimerStart(CreateTimer(), 1, false, function()
									SetUnitAnimation(new,"stand")
									RemoveDestructable(d)
									DestroyTimer(GetExpiredTimer())
								end)
							end
						end
					end)
					DestroyTimer(GetExpiredTimer())
				end)
			end
			GroupRemoveUnit(perebor,e)
		end
	end)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 22.04.2020 0:28
---
---
function Normadia()
	--print("Нормандия")
	SetPlayerAllianceStateBJ(Player(14), Player(9), bj_ALLIANCE_ALLIED_VISION)
	SetPlayerAllianceStateBJ(Player(14), Player(10), bj_ALLIANCE_ALLIED_VISION)
	SetPlayerAllianceStateBJ(Player(9), Player(14), bj_ALLIANCE_ALLIED_VISION)
	SetPlayerAllianceStateBJ(Player(9), Player(10), bj_ALLIANCE_ALLIED_VISION)
	SetPlayerAllianceStateBJ(Player(10), Player(14), bj_ALLIANCE_ALLIED_VISION)
	SetPlayerAllianceStateBJ(Player(10), Player(9), bj_ALLIANCE_ALLIED_VISION)

	TimerStart(CreateTimer(), 10, true, function()
		CreateTransportShip(-5000,-5000,-2600,-3500)-- зона людей ПРОВЕРЕНО
		CreateTransportShip(4800,-4800,3500,-3500)--ЗОНА огня
		CreateTransportShip(4800,-4800,4000,-1200)--Зона льда
		CreateTransportShip(-5300,5400,-4000,4500)-- лесопилки маньяка
		CreateTransportShip(5100,5400,3800,2000)-- каменоломни
		CreateTransportShip(-5000,-5000,-4600,200)-- Верфь орды
	end)
end

function CreateTransportShip(x,y,xend,yend)
	--x,y,xend,yend=-5000,-4900,-2600,-3500
	local new=CreateUnit(Player(9), FourCC('h003'), x, y, 0) -- корабль
	local time=0
	local IsFull=true
	TimerStart(CreateTimer(), 2, true, function()
		time=time+2
		local xp,yp=GetUnitXY(new)
		local z=GetTerrainZ(MoveXY(xp,yp,200,GetUnitFacing(new)))
		--print(z)
		if IsFull then
			if GetUnitCurrentOrder(new)~=String2OrderIdBJ("move") then
				IssuePointOrder(new,"move",xend,yend)
			end
		end

		if time>30 then
			DestroyTimer(GetExpiredTimer())
			KillUnit(new)
		end
		if z>0 and IsFull then
			IsFull=false
			--print("высадка")
			--
			CreateEnemy(new,FourCC('hfoo'),4)
			if GetUnitCurrentOrder(new)~=String2OrderIdBJ("move") then
				IssuePointOrder(new,"move",x,y)
			end
		end
		if IsUnitInRangeXY(new,x,y,300) and time>=15 then
			DestroyTimer(GetExpiredTimer())
			KillUnit(new)
			--print("вернулся на базу")
		end
	end)
end

footmans=0
nextfootmans=1
function CreateEnemy(ship,id,k)
	local x,y=GetUnitXY(ship)
	local temp,n=FindUnitOfType(id)



	if footmans>=100*nextfootmans then
		--print("Число пехотинцев перевалило за "..100*nextfootmans)
		nextfootmans=nextfootmans+1
	end
	local ship=FindUnitOfType(FourCC("o007"))
	if n<50 then
		for i=1,k do
			local new=CreateUnit(Player(14), id, x, y, 0)
			footmans=footmans+1
			--print("создан")
			if GetUnitCurrentOrder(new)~=String2OrderIdBJ("attack") then
				if ship then
					IssuePointOrder(new,"attack",-4935.0, 809.5)
				else
					IssuePointOrder(new,"attack",0, 0)
				end
			end
		end
	else
	--	print("Заспамлено больше 50 пехотинцев"..n)
	end


end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 14.04.2020 1:01
---
function StartAllTorch()
	local e--временный юнит
	local k=0
	local id=FourCC('e006') -- Факел

	GroupEnumUnitsInRect(perebor,bj_mapInitialPlayableArea,nil)
	while true do
		e = FirstOfGroup(perebor)
		if e == nil then break end
		if UnitAlive(e) and GetUnitTypeId(e)==id then
			k=k+1
			local rf=GetRandomReal(-.5,.5)
			local angle=GetUnitFacing(e)
			local torch=e
			TimerStart(CreateTimer(), 2+rf, true, function()
				--print("стреляем "..GetUnitName(torch))
				SingleCannon(torch,angle,"Abilities\\Weapons\\FireBallMissile\\FireBallMissile.mdl")
			end)
		end
		GroupRemoveUnit(perebor,e)
	end
	--print("Запущено факелов: "..k)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 09.04.2020 13:46
---
function CreateVulkano(x,y)
	local caster=CreateUnit(Player(10),DummyID,x,y,180)
	local angle=0--GetRandomReal(0,360)
	TimerStart(CreateTimer(), 0.3, true, function()
		--print("выпускаем огонь")
		CreateArtToss(caster,"Abilities/Spells/Other/Volcano/VolcanoMissile.mdl",angle,500)
		CreateArtToss(caster,"Abilities/Spells/Other/Volcano/VolcanoMissile.mdl",angle+180,500)
		angle=angle+15
		if angle==359 then
			--angle=0
		end
	end)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 08.04.2020 17:34
---
function StartWinter()
	local x,y=2236,-1112--0,0--
	local caster=CreateUnit(Player(10),FourCC('e008'),x,y,180) --дамми ветерок
	UnitAddAbility(caster,FourCC('A005'))
	--local nx,ny=MoveXY(x,y)
	Cast(caster,x-100,y)
	--SetUnitX(caster,3400)
	--SetUnitY(caster,-1200)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 06.04.2020 3:31
--FourCC('o002')
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 17.05.2020 22:30
---

function AnyHPEARandomBuild(x, y)
	AdjustPlayerStateBJ(1000, Player(10), PLAYER_STATE_RESOURCE_LUMBER)
	AdjustPlayerStateBJ(1000, Player(10), PLAYER_STATE_RESOURCE_GOLD)
	for i = 1, 5 do
		local r = GetRandomInt(-800, 800)
		local builder = FindUnitOfType(FourCC('hpea'), 2500, x, y)
		if i == 1 then
			r=0
		end
		if IssueBuildOrderById(builder, FourCC("hwtw"), x + r, y + r) then
			--print("Иду строить")
			IssueImmediateOrder(builder, "repairon")
		else
			IssueImmediateOrder(builder, "autoharvestlumber")
			--print("Не могу построить")
		end
		TimerStart(CreateTimer(), 2, true, function()
			--print(OrderId2String(GetUnitCurrentOrder(builder)))
			if OrderId2String(GetUnitCurrentOrder(builder))=="harvest" then
				IssueImmediateOrder(builder, "autoharvestlumber")
				DestroyTimer(GetExpiredTimer())
			end
		end)
	end
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 21.02.2020 23:45
---

SawDiskModel="Chakram_05"--"Abilities\\Weapons\\SentinelMissile\\SentinelMissile.mdl"
SawChainModel="abilities\\weapons\\wyvernspear\\wyvernspearmissile.mdl"
CollisionEffect="Abilities/Weapons/AncestralGuardianMissile/AncestralGuardianMissile.mdl"
function CreateRoundSawZ(hero,ChainCount,angle,z)
	local xs,ys=GetUnitXY(hero)
	local saw=AddSpecialEffect(SawDiskModel,xs,ys)
	local chain={}
	local step=60
	local SpeedRandomFactor=GetRandomReal(-1,1)
	local speed=3+SpeedRandomFactor
	if z==nil then z=GetUnitZ(hero)+30 end
	if angle==nil then angle=0 end
	for i=1,ChainCount do
		chain[i]=AddSpecialEffect(SawChainModel,xs,ys)
		--print("создан кусок цепи "..i)
	end
	-- установки
	BlzSetSpecialEffectScale(saw,0.9)
	local DamageDealer=CreateUnit(GetOwningPlayer(hero),DummyID,xs,ys,0)
	ShowUnit(DamageDealer,false)
	local SS=true
	local DeadUnitOnSaw=nil

	TimerStart(CreateTimer(), TIMER_PERIOD, true, function()
		local x,y=0,0
		local OnDamage=false
		local ReflectorUnit=nil
		for i=1,ChainCount do
			x,y=MoveXY(xs,ys,step*i,angle)
			BlzSetSpecialEffectPosition(chain[i],x,y,z)
			BlzSetSpecialEffectYaw(chain[i],math.rad(angle))
		end
		local nx,ny=MoveXY(xs,ys,step*ChainCount,angle)
		BlzSetSpecialEffectPosition(saw,nx,ny,z)
		SetUnitX(DamageDealer,nx)
		SetUnitY(DamageDealer,ny)
		angle=angle+speed

		OnDamage,ReflectorUnit=UnitDamageArea(DamageDealer,20,nx,ny,150,z-90,CollisionEffect)

		if OnDamage and ReflectorUnit and not BlzIsUnitInvulnerable(ReflectorUnit)  then
			local tl = Location(GetUnitXY(hero))
			PlaySoundAtPointBJ( gg_snd_Saw, 100, tl, 0 )
			RemoveLocation(tl)
			local dummy=CreateUnit(Player(0), DummyID, nx ,ny, 0) --звуковой дамми и его блок
			UnitAddAbility(dummy,FourCC('Apsh'))
			IssueImmediateOrder(dummy,"phaseshift")
			UnitApplyTimedLife(dummy,FourCC('BTLF'),0.1)

			if IsUnitType(ReflectorUnit,UNIT_TYPE_HERO) then
				if UnitAlive(ReflectorUnit) then
					--print("жив")
				else
					if not DeadUnitOnSaw then
						DeadUnitOnSaw=ReflectorUnit
					end
					--print("мертв")
				end
			end

		end
		if DeadUnitOnSaw then
			if not UnitAlive(DeadUnitOnSaw) then
				SetCameraQuickPosition(nx,ny)
				SetCameraTargetControllerNoZForPlayer(GetOwningPlayer(DeadUnitOnSaw), DamageDealer, 10, 10, true) -- не дергается
				--SetCameraPosition(nx,ny)
				SetUnitX(DeadUnitOnSaw,nx)
				SetUnitY(DeadUnitOnSaw,ny)
			else
				DeadUnitOnSaw=nil
			end
		end
		if OnDamage and IsUnitType(ReflectorUnit,UNIT_TYPE_HERO) then
			local data=HERO[GetPlayerId(GetOwningPlayer(ReflectorUnit))]
			if data.Reflection then
				speed=speed*(-1)
			end
		end

		if UnitAlive(hero)==false then
			DestroyTimer(GetExpiredTimer()) -- временно вечный таймер
			DestroyEffect(saw)
			for i=1,ChainCount do
				DestroyEffect(chain[i])
			end
		end
	end)
end


function CreateGroundSaw(hero,angle,z)
	local xs,ys=GetUnitXY(hero)
	local saw=AddSpecialEffect(SawDiskModel,xs,ys)
	BlzSetSpecialEffectRoll(saw,math.rad(90))
	BlzSetSpecialEffectYaw(saw,math.rad(angle))
	if z==nil then z=GetUnitZ(hero)+60 end
	BlzSetSpecialEffectScale(saw,0.9)
	BlzSetSpecialEffectZ(saw,z)
	local step=10
	local i=0
	local turn=false
	UnitAddAbility(hero,FourCC('Aloc'))
	TimerStart(CreateTimer(), TIMER_PERIOD, true, function()
		local x,y=0,0

		local OnDamage=false
		local ReflectorUnit=nil


		if OnDamage and IsUnitType(ReflectorUnit,UNIT_TYPE_HERO) then
			local data=HERO[GetPlayerId(GetOwningPlayer(ReflectorUnit))]
			if data.Reflection then
				--speed=speed*(-1)
				--turn=true
			end
		end


		if not turn then
			i=i+1
			BlzSetSpecialEffectTimeScale(saw,-1)
		else
			i=i-1
			BlzSetSpecialEffectTimeScale(saw,1)
		end
		--print(i)
		x,y=MoveXY(xs,ys,step*i,angle)
		if InMapXY(x,y) then
			SetUnitX(hero,x)
			SetUnitY(hero,y)
		else
			print("ERROR - NOTINMAP"..x.." "..y)
			PingMinimap(x,y,10)
			DestroyTimer(GetExpiredTimer())
			KillUnit(hero)
		end
		BlzSetSpecialEffectPosition(saw,x,y,z)
		--урон от земляной пилы
		OnDamage,ReflectorUnit=UnitDamageArea(hero,20,x,y,60,z-90,CollisionEffect)
		local nx,ny=MoveXY(x,y,60,angle)
		UnitDamageArea(hero,20,nx,ny,60,z-90,CollisionEffect)
		nx,ny=MoveXY(x,y,-60,angle)
		UnitDamageArea(hero,20,nx,ny,60,z-90,CollisionEffect)

		if OnDamage and ReflectorUnit and not BlzIsUnitInvulnerable(ReflectorUnit) then
			local dummy=CreateUnit(Player(0), DummyID, nx ,ny, 0)
			UnitAddAbility(dummy,FourCC('Apsh'))
			IssueImmediateOrder(dummy,"phaseshift")-- поддельный звук пилы
			UnitApplyTimedLife(dummy,FourCC('BTLF'),0.1)
			--ShowUnit(dummy,false)
			local tl = Location(GetUnitXY(hero))
			PlaySoundAtPointBJ( gg_snd_Saw, 100, tl, 0 )
			RemoveLocation(tl)
		end


		if OnDamage and IsUnitType(ReflectorUnit,UNIT_TYPE_HERO) then
			local data=HERO[GetPlayerId(GetOwningPlayer(ReflectorUnit))]
			if data.Reflection then
				if i<=50 then
					turn=true
				else
					turn=false
				end
			end
		end

		if i==100 then
			turn=true
		end
		if i==0 then
			turn=false
		end
		end)
end


function StartAllSaw()
	local e--временный юнит
	local k=0
	local id=FourCC('h001') -- колонная с пилой
	local idg=FourCC('e004') --
	GroupEnumUnitsInRect(perebor,bj_mapInitialPlayableArea,nil)
	while true do
		e = FirstOfGroup(perebor)
		if e == nil then break end
		if UnitAlive(e) and GetUnitTypeId(e)==id then
			--k=k+1
			CreateRoundSawZ(e,6,GetRandomInt(0,360))
		end
		if UnitAlive(e) and GetUnitTypeId(e)==idg then
			k=k+1
			CreateGroundSaw(e,GetUnitFacing(e))
			ShowUnit(e,false)
			--KillUnit(e)
		end
		GroupRemoveUnit(perebor,e)
	end
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 21.04.2020 21:03
function HeroEnterSaws()

	local FW={}
	FW[1]=CreateFogModifierRectBJ(false, Player(0), FOG_OF_WAR_VISIBLE, gg_rct_Saws)
	FW[2]=CreateFogModifierRectBJ(false, Player(1), FOG_OF_WAR_VISIBLE, gg_rct_Saws)
	FW[3]=CreateFogModifierRectBJ(false, Player(2), FOG_OF_WAR_VISIBLE, gg_rct_Saws)
	FW[4]=CreateFogModifierRectBJ(false, Player(3), FOG_OF_WAR_VISIBLE, gg_rct_Saws)

	local thisE = CreateTrigger()
	TriggerRegisterEnterRectSimple(thisE, gg_rct_Saws)
	TriggerAddAction(thisE, function()
		local hero=GetTriggerUnit()
		local pid=GetPlayerId(GetOwningPlayer(hero))
		--print("вошел в регион")
		FogModifierStart(FW[pid+1])
	end)

	local thisA = CreateTrigger()
	TriggerRegisterLeaveRectSimple(thisA, gg_rct_Saws)
	TriggerAddAction(thisA, function()
		local hero=GetTriggerUnit()
		local pid=GetPlayerId(GetOwningPlayer(hero))
		--print("вошел в регион")
		FogModifierStop(FW[pid+1])
	end)
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 05.04.2020 20:00
AnyData={}
function SetSheepPoint(id,flag,x,y)
	local e=nil
	local id=FourCC('n001')
		GroupEnumUnitsInRect(perebor,bj_mapInitialPlayableArea,nil)
		while true do
			e = FirstOfGroup(perebor)

			if e == nil then break end
			if UnitAlive(e) and GetUnitTypeId(e)==id then
				SetUnitExploded(e,true)
				--print("set")
				AnyData[GetHandleId(e)]={
					x=GetUnitX(e),
					y=GetUnitY(e),
				}
			end
			GroupRemoveUnit(perebor,e)
		end
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 25.04.2020 15:24

function CreateStoneCircle(x,y)
	local distance=400
	local id=FourCC('LTlt')-- id камня
	for i=0,11 do
		local angle=30*i
		local xn,yn=MoveXY(x,y,distance,angle)
		CreateDestructable(id,xn,yn,angle,1,1)
	end
end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 05.04.2020 18:56
function WaveAttack(delay)
	local new
	local x,y=0,0
	local loc=nil
	local OrkStove=FindUnitOfType(FourCC('o001'))
	TimerStart(CreateTimer(), 60+delay, true, function() --волки
		x,y=GetRectCenterX(gg_rct_WalkSpawnZone),GetRectCenterY(gg_rct_WalkSpawnZone)
		new=CreateUnit(Player(10), FourCC('n000'), x, y, 0)
		IssuePointOrder(new,"attack",0,0)
	end)
	TimerStart(CreateTimer(), 70+delay, true, function() --энты
		if not FindUnitOfType(FourCC('e003')) then
			DestroyTimer(GetExpiredTimer())
		else
			loc =GetRandomLocInRect(gg_rct_TrentZone)
			x,y=GetLocationX(loc),GetLocationY(loc)
			--print("энт "..x)
			new=CreateUnit(Player(10), FourCC('e001'), x, y, 0)
			IssuePointOrder(new,"attack",0,0)
		end
	end)
	TimerStart(CreateTimer(), 80+delay, true, function() -- камни големы
		loc =GetRandomLocInRect(gg_rct_StoneZoneS)
		x,y=GetLocationX(loc),GetLocationY(loc)
		new=CreateUnit(Player(10), FourCC('n002'), x, y, 0)
		IssuePointOrder(new,"attack",0,0)
	end)
	TimerStart(CreateTimer(), 90+delay, true, function() --лава
		loc =GetRandomLocInRect(gg_rct_Lava)
		x,y=GetLocationX(loc),GetLocationY(loc)
		new=CreateUnit(Player(10), FourCC('n004'), x, y, 0)
		IssuePointOrder(new,"attack",0,0)
	end)
	TimerStart(CreateTimer(), 50+delay, true, function() --люди
			loc =GetRandomLocInRect(gg_rct_Workers)
			x,y=GetLocationX(loc),GetLocationY(loc)
		if not FindUnitOfType(FourCC('hlum'),1000,x,y) then-- лесопилка
			DestroyTimer(GetExpiredTimer())
		else
			new=CreateUnit(Player(10), FourCC('hpea'), x, y, 0)
			IssuePointOrder(new,"attack",0,0)
		end

	end)
	TimerStart(CreateTimer(), 60+delay, true, function() --овцы
		loc =GetRandomLocInRect(gg_rct_SheepZone)
		x,y=GetLocationX(loc),GetLocationY(loc)
		new=CreateUnit(Player(10), FourCC('n001'), x, y, 0)
		AnyData[GetHandleId(new)]={
			x=GetUnitX(new),
			y=GetUnitY(new),
		}
		IssuePointOrder(new,"move",0,0)
	end)
	TimerStart(CreateTimer(), 90+delay, true, function() --мурлоки
		--print("Мурлоки")
		loc =GetRandomLocInRect(gg_rct_Morlok)
		x,y=GetLocationX(loc),GetLocationY(loc)
		for _=1,GetRandomInt(1,3) do
			new=CreateUnit(Player(11), FourCC('n005'), x, y, 0)
			IssueTargetOrder(new,"attack",OrkStove)
			local torrent=AddSpecialEffect("Torrent",x,y)
			--BlzSetSpecialEffectMatrixScale(torrent,size,size,size/10)
			DestroyEffect(torrent)
		end
	end)
	--RemoveLocation(loc)
end

---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 12.05.2020 23:10
---
function StartTurretMoving(data)

	local AnotherWagon=FindUnitOfType(FourCC('o009'))
	--SetUnitPathing(data.UnitHero,true)
	--UnitCollisionOFF(data.UnitHero)
	BlzSetSpecialEffectYaw(data.TurretArrow,math.rad(0))
	BlzPauseUnitEx(data.UnitHero,true)
	ResetPeonAnimation(data.UnitHero)
	local isAttack=false
	TimerStart(CreateTimer(), TIMER_PERIOD, true, function()
		local hero=data.UnitHero
		local x,y=GetUnitXY(AnotherWagon)
		SetUnitX(hero,x)
		SetUnitY(hero,y)
		SetUnitX(data.legs,x)
		SetUnitY(data.legs,y)
		SetUnitZ(data.legs,170)
		SetUnitZ(hero,170)
		local imageX,imageY=GetUnitXY(hero)
		SetImagePosition(ConeImage,imageX-1280/1.05,imageY-1280/2,0)
		--Стрельба
		local angle=data.LastTurn
		SetUnitFacing(data.Turret,angle)
		if data.ReleaseRMB and UnitAlive(data.UnitHero) then
			isAttack=true
			SingleCannon(hero,GetUnitFacing(data.Turret),"Bullets/Konstrukt_SubmachinegunMissile",1)
		else
			isAttack=false
		end

		if isAttack then
			SetUnitAnimation(data.Turret,"attack")
			SetUnitTimeScale(data.Turret,10)
		else
			SetUnitAnimation(data.Turret,"stand")
			SetUnitTimeScale(data.Turret,1)
		end


		if GetLocalPlayer()==GetOwningPlayer(hero) then
			ShowImage(ConeImage,true)
		end
		if data.ReleaseD then --момент выхода из тележки
			ShowImage(ConeImage,false)
			BlzSetSpecialEffectYaw(data.TurretArrow,math.rad(180))
			SetUnitX(hero,GetUnitX(hero)+50)
			DestroyTimer(GetExpiredTimer())
			data.EnterInTurret=false
			SetUnitZ(data.legs,0)
			SetUnitZ(hero,0)
		end
	end)


end
---
--- Generated by EmmyLua(https://github.com/EmmyLua)
--- Created by Bergi.
--- DateTime: 11.05.2020 14:19
---

function StartZombies()
	local sPozX={9795,9660,9794,9989}
	local sPozY={4379,3307,2302,1426}
	local xEnd=12000
	local id={FourCC('n009'),FourCC('n00B'),FourCC('n00A')}
	AllZombiesCount=CreateGroup()
	TimerStart(CreateTimer(), 1, true, function()
		local rPoz=GetRandomInt(3,#sPozX)
		local inCave=false
		for i=0,3 do
			if IsUnitInRangeXY(HERO[i].UnitHero,sPozX[rPoz],sPozY[rPoz],1800) then
				inCave=true
			end
		end
		if inCave then
			local new=CreateUnit(Player(14),id[GetRandomInt(1,3)],sPozX[rPoz],sPozY[rPoz],0)
			GroupAddUnit(AllZombiesCount,new)
			SetUnitMoveSpeed(new,100)
			IssuePointOrder(new,"attack",xEnd,sPozY[rPoz])
		else
			--print("в пещерее никого нет")
		end
	end)
end
--CUSTOM_CODE
Name Type is_array initial_value
Lang dialog No
ru button Yes
In
Events
Unit - A unit enters EnterCave <gen>
Conditions
((Triggering unit) is A Hero) Equal to True
Actions
Unit - Move (Triggering unit) instantly to (Center of EnterTown <gen>)
Out
Events
Unit - A unit enters Region_019 <gen>
Conditions
((Triggering unit) is A Hero) Equal to True
Actions
Unit - Move (Triggering unit) instantly to (Center of Region_020 <gen>)
Gandicap
Events
Time - Elapsed game time is 1.00 seconds
Conditions
Actions
Player Group - Pick every player in (All players) and do (Actions)
Loop - Actions
Player - Set (Picked player) handicap to 100 %
Player - Make (Picked player) 's units deal 100 % of normal damage
GuiInit
Events
Map initialization
Conditions
Actions
Animation - Play War Mill 0001 <gen> 's stand work animation
Visibility - Create an initially Enabled visibility modifier for Player 11 (Dark Green) emitting Visibility across TrentZone <gen>
Unit Group - Pick every unit in (Units in Workers <gen>) and do (Actions)
Loop - Actions
Unit - Order (Picked unit) to Harvest . Summer Tree Wall 0364 <gen>
Destructible - Pick every destructible in Region_005 <gen> and do (Actions)
Loop - Actions
Destructible - Set max life of (Picked destructible) to 100.00
Open
Events
Destructible - Lever 1234 <gen> dies
Conditions
Actions
Quest - Display to (All players) the Quest Completed message: TRIGSTR_072
Unit - Remove Восклицательный Знак (красный) from Tuskarr Chieftain 0217 <gen>
Destructible - Pick every destructible in Region_016 <gen> and do (Actions)
Loop - Actions
Destructible - Kill (Picked destructible)
DeadHumanLumber
Events
Unit - Lumber Mill 0057 <gen> Dies
Conditions
Actions
Destructible - Kill Summer Tree Wall 0097 <gen>
ZombiesDie
Events
Unit - A unit enters DieZombies <gen>
Conditions
(Owner of (Triggering unit)) Equal to Player 15 (Turquoise)
Actions
Unit - Explode (Triggering unit) .
StartMiniGame
Events
Unit - A unit enters DieZombies <gen>
Conditions
(Owner of (Triggering unit)) Equal to Player 15 (Turquoise)
Actions
Unit - Explode (Triggering unit) .
Build
Events
Unit - A unit Finishes construction
Conditions
Actions
Unit - Order (Triggering unit) to train/upgrade to a Cannon Tower
Top