cJass2Lua(v1.12) - Преобразователь кода cJass и JASS в Lua

//Входящий JASS/cJass код
type Projectile

bool KatonItachiConditions()
{
	if (GetSpellAbilityId() == 'A07Z')
	{
		return true;
	}

	return false;
}

define
	KATON_DUMMY           =  1
	KATON_RADIUS		  =  2
	KATON_DAMAGE		  =  3
	KATON_FINAL_POINT_X   =  4
	KATON_FINAL_POINT_Y   =  5
	KATON_EFFECT          =  6
	KATON_DIRECTION       =  7
	KATON_TRAVELED        =  8
	KATON_DMG_FACTOR      =  9
	
	
	KATON_DISTANCE        =  1100
	KATON_VELOCITY        =  5.35
enddefine

globals 
	unit g_KatonDummy;
	float g_KatonDMG;
	trigger g_TrgKatonPreCast;
endglobals

void KatonItachiActions()
{
	unit u = GetTriggerUnit();
	player p = GetOwningPlayer(u);
	location loc = GetSpellTargetLoc();
	location myLoc = GetUnitLoc(u);
	float facing = GetUnitFacing(u);
	location spawnPoint = PolarProjectionBJ(myLoc, 115.00, facing);
	location finalPoint = PolarProjectionBJ(spawnPoint, KATON_DISTANCE, facing);
	int lvl = GetUnitAbilityLevel(u, GetSpellAbilityId());
	float r = 200 + (25 * (lvl - 1));
	float dmg = 10;//10 + (4 * (lvl - 1)); 
	float travelFactor = 0.006 + (0.002 * (lvl - 1));
	float dummyScale = 2.00 + (0.30 * (lvl - 1));
	
	timer t = CreateTimer();
	InitPeriodicTimer(t, 0.01, 3.5);
	unit dummy =  CreateDummy(p, u, spawnPoint);
	SetUnitPathing(dummy, false);
	effect e = AddSpecialEffectTarget("fireball.mdx", dummy, "origin");
	SetUnitScale(dummy, dummyScale, dummyScale, dummyScale);
	SaveUnitHandle(g_Hashtable, GetHandleId(t), KATON_DUMMY, dummy);
	SaveReal(g_Hashtable, GetHandleId(t), KATON_RADIUS, r);
	SaveReal(g_Hashtable, GetHandleId(t), KATON_DAMAGE, dmg);
	SaveReal(g_Hashtable, GetHandleId(t), KATON_DMG_FACTOR, travelFactor);
	SaveReal(g_Hashtable, GetHandleId(t), KATON_DIRECTION, facing);
	SaveReal(g_Hashtable, GetHandleId(t), KATON_TRAVELED, 0);
	SaveReal(g_Hashtable, GetHandleId(t), KATON_FINAL_POINT_X, GetLocationX(finalPoint));
	SaveReal(g_Hashtable, GetHandleId(t), KATON_FINAL_POINT_Y, GetLocationY(finalPoint));
	SaveEffectHandle(g_Hashtable, GetHandleId(t), KATON_EFFECT, e);
	
	RemoveLocation(spawnPoint);
	RemoveLocation(loc);
	RemoveLocation(myLoc);
	RemoveLocation(finalPoint);
	
	TimerStart(t, 0.01, true, lambda void ()
	{
		timer t = GetExpiredTimer();
		float dur = GetTimerDuration(t);
		unit dummy = LoadUnitHandle(g_Hashtable, GetHandleId(t), KATON_DUMMY);
		location dummyLoc = GetUnitLoc(dummy);
		float r = LoadReal(g_Hashtable, GetHandleId(t), KATON_RADIUS);
		float traveled = LoadReal(g_Hashtable, GetHandleId(t), KATON_TRAVELED);
		float dir = LoadReal(g_Hashtable, GetHandleId(t), KATON_DIRECTION);
		float finalPointX = LoadReal(g_Hashtable, GetHandleId(t), KATON_FINAL_POINT_X);
		float finalPointY = LoadReal(g_Hashtable, GetHandleId(t), KATON_FINAL_POINT_Y);
		location newLoc = PolarProjectionBJ(dummyLoc, KATON_VELOCITY, dir);
		SetUnitPositionLoc(dummy, newLoc);
		RemoveLocation(newLoc);
		RemoveLocation(dummyLoc);
		traveled += KATON_VELOCITY;
		SaveReal(g_Hashtable, GetHandleId(t), KATON_TRAVELED, traveled);
		
		if (ModuloInteger(R2I(dur * 100), 10) == 0)
		{
			group g = CreateGroup();
			float travelFactor = LoadReal(g_Hashtable, GetHandleId(t), KATON_DMG_FACTOR);
			float dmg = LoadReal(g_Hashtable, GetHandleId(t), KATON_DAMAGE) + (traveled * travelFactor);
			g_KatonDummy = dummy;
			g_KatonDMG = dmg;
			boolexpr bexp = Condition(lambda bool ()
			{
				unit u = GetFilterUnit();
				if (!IsPlayerAlly(GetOwningPlayer(u), GetOwningPlayer(g_KatonDummy)) && !IsUnitType(u, UNIT_TYPE_STRUCTURE) && IsUnitAlive(u) && !IsUnitDummy(u))
				{
					return true;
				}
				return false;
			});
			GroupEnumUnitsInRange(g, GetUnitX(dummy), GetUnitY(dummy), r, bexp);
			ForGroup(g, lambda void ()
			{
				 DummyDealDamage(g_KatonDummy, GetEnumUnit(), g_KatonDMG, SCHOOL_MAGIC);
			});
			SaveReal(g_Hashtable, GetHandleId(t), KATON_DAMAGE, dmg);
			DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl", GetUnitX(dummy), GetUnitY(dummy)));
			DestroyBoolExpr(bexp);
			DestroyGroup(g);
		}
		
		
		
		if (!TimerTick(t) || dummy == null || traveled > KATON_DISTANCE)
		{
			DestroyEffect(LoadEffectHandle(g_Hashtable, GetHandleId(t), KATON_EFFECT));
			RemoveUnit_s(dummy, "KatonItachiActions", "KatonItachi");
			DestroyTimer_s(t);
		}
	});
}

void KatonSoundActions()
{
	unit u = GetTriggerUnit();
	AddSoundUnit("katon.mp3", u);
	u = null;
}

void KatonItachiActionsNew()
{
	unit u = GetTriggerUnit();
	location loc = GetSpellTargetLoc();
	int lvl = GetUnitAbilityLevel(u, GetSpellAbilityId());
	float r = 200 + (25 * (lvl - 1));
	float dmg = 100;//100 + (4 * (lvl - 1)); 
	float travelFactor = 0.04 + (0.02 * (lvl - 1));
	float dummyScale = 2.00 + (0.30 * (lvl - 1));
	
	FinishDuel();
	Projectile katonProj = Projectile.create(DEFAULT_DUMMY, "fireball.mdx", dummyScale, u, 110);
	katonProj.SetVelocity(535, 1.0);
	katonProj.DamageOnce(false);
	katonProj.SetDamageData(0.1, dmg, r, 0, 0, travelFactor, SCHOOL_MAGIC);
	katonProj.SetDestLoc(loc);
	katonProj.SetDistance(1100, true);
	katonProj.InstantRemove(true);
	katonProj.SetDamageEffect("Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl");
	katonProj.Launch();
	
	RemoveLocation(loc);
	u = null;
	loc = null;
}

void InitTrig_KatonItachi()
{
    gg_trg_KatonItachi = CreateTrigger();
	g_TrgKatonPreCast = CreateTrigger();
    TriggerRegisterAnyUnitEventBJ(gg_trg_KatonItachi, EVENT_PLAYER_UNIT_SPELL_EFFECT);
	TriggerRegisterAnyUnitEventBJ(g_TrgKatonPreCast, EVENT_PLAYER_UNIT_SPELL_CHANNEL);
    TriggerAddCondition(gg_trg_KatonItachi, Condition(function KatonItachiConditions));
    TriggerAddAction(gg_trg_KatonItachi, function KatonItachiActionsNew);
	TriggerAddCondition(g_TrgKatonPreCast, Condition(function KatonItachiConditions));
    TriggerAddAction(g_TrgKatonPreCast, function KatonSoundActions);
}

-- Lua код на выходе

---@class  Projectile
---@return bool
function KatonItachiConditions()
	if (GetSpellAbilityId() == FourCC('A07Z')) then
		return true
	end
	
	return false
end

KATON_DUMMY = 1	---@type integer	
KATON_RADIUS = 2	---@type integer	
KATON_DAMAGE = 3	---@type integer	
KATON_FINAL_POINT_X = 4	---@type integer	
KATON_FINAL_POINT_Y = 5	---@type integer	
KATON_EFFECT = 6	---@type integer	
KATON_DIRECTION = 7	---@type integer	
KATON_TRAVELED = 8	---@type integer	
KATON_DMG_FACTOR = 9	---@type integer	
KATON_DISTANCE = 1100	---@type integer	
KATON_VELOCITY = 5.35	---@type real	

-- g_KatonDummy	---@type unit	
-- g_KatonDMG	---@type float	
-- g_TrgKatonPreCast	---@type trigger	

---@return void
function KatonItachiActions()
	local u = GetTriggerUnit()
	local p = GetOwningPlayer(u)
	local loc = GetSpellTargetLoc()
	local myLoc = GetUnitLoc(u)
	local facing = GetUnitFacing(u)
	local spawnPoint = PolarProjectionBJ(myLoc, 115.00, facing)
	local finalPoint = PolarProjectionBJ(spawnPoint, KATON_DISTANCE, facing)
	local lvl = GetUnitAbilityLevel(u, GetSpellAbilityId())
	local r = 200 + (25 * (lvl - 1))
	local dmg = 10	-- 10 + (4 * (lvl - 1)); 
	local travelFactor = 0.006 + (0.002 * (lvl - 1))
	local dummyScale = 2.00 + (0.30 * (lvl - 1))
	
	local t = CreateTimer()
	InitPeriodicTimer(t, 0.01, 3.5)
	local dummy = CreateDummy(p, u, spawnPoint)
	SetUnitPathing(dummy, false)
	local e = AddSpecialEffectTarget("fireball.mdx", dummy, "origin")
	SetUnitScale(dummy, dummyScale, dummyScale, dummyScale)
	SaveUnitHandle(g_Hashtable, GetHandleId(t), KATON_DUMMY, dummy)
	SaveReal(g_Hashtable, GetHandleId(t), KATON_RADIUS, r)
	SaveReal(g_Hashtable, GetHandleId(t), KATON_DAMAGE, dmg)
	SaveReal(g_Hashtable, GetHandleId(t), KATON_DMG_FACTOR, travelFactor)
	SaveReal(g_Hashtable, GetHandleId(t), KATON_DIRECTION, facing)
	SaveReal(g_Hashtable, GetHandleId(t), KATON_TRAVELED, 0)
	SaveReal(g_Hashtable, GetHandleId(t), KATON_FINAL_POINT_X, GetLocationX(finalPoint))
	SaveReal(g_Hashtable, GetHandleId(t), KATON_FINAL_POINT_Y, GetLocationY(finalPoint))
	SaveEffectHandle(g_Hashtable, GetHandleId(t), KATON_EFFECT, e)
	
	RemoveLocation(spawnPoint)
	RemoveLocation(loc)
	RemoveLocation(myLoc)
	RemoveLocation(finalPoint)
	
	TimerStart(t, 0.01, true, function ()
		local t = GetExpiredTimer()
		local dur = GetTimerDuration(t)
		local dummy = LoadUnitHandle(g_Hashtable, GetHandleId(t), KATON_DUMMY)
		local dummyLoc = GetUnitLoc(dummy)
		local r = LoadReal(g_Hashtable, GetHandleId(t), KATON_RADIUS)
		local traveled = LoadReal(g_Hashtable, GetHandleId(t), KATON_TRAVELED)
		local dir = LoadReal(g_Hashtable, GetHandleId(t), KATON_DIRECTION)
		local finalPointX = LoadReal(g_Hashtable, GetHandleId(t), KATON_FINAL_POINT_X)
		local finalPointY = LoadReal(g_Hashtable, GetHandleId(t), KATON_FINAL_POINT_Y)
		local newLoc = PolarProjectionBJ(dummyLoc, KATON_VELOCITY, dir)
		SetUnitPositionLoc(dummy, newLoc)
		RemoveLocation(newLoc)
		RemoveLocation(dummyLoc)
		traveled = traveled + KATON_VELOCITY
		SaveReal(g_Hashtable, GetHandleId(t), KATON_TRAVELED, traveled)
		
		if (ModuloInteger(R2I(dur * 100), 10) == 0) then
			local g = CreateGroup()
			local travelFactor = LoadReal(g_Hashtable, GetHandleId(t), KATON_DMG_FACTOR)
			local dmg = LoadReal(g_Hashtable, GetHandleId(t), KATON_DAMAGE) + (traveled * travelFactor)
			g_KatonDummy = dummy
			g_KatonDMG = dmg
			local bexp = Condition(function ()
				local u = GetFilterUnit()
				if ( not IsPlayerAlly(GetOwningPlayer(u), GetOwningPlayer(g_KatonDummy)) and  not IsUnitType(u, UNIT_TYPE_STRUCTURE) and IsUnitAlive(u) and  not IsUnitDummy(u)) then
					return true
				end
				return false
			end)
			GroupEnumUnitsInRange(g, GetUnitX(dummy), GetUnitY(dummy), r, bexp)
			ForGroup(g, function ()
				DummyDealDamage(g_KatonDummy, GetEnumUnit(), g_KatonDMG, SCHOOL_MAGIC)
			end)
			SaveReal(g_Hashtable, GetHandleId(t), KATON_DAMAGE, dmg)
			DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl", GetUnitX(dummy), GetUnitY(dummy)))
			DestroyBoolExpr(bexp)
			DestroyGroup(g)
		end
		
		
		if ( not TimerTick(t) or dummy == nil or traveled > KATON_DISTANCE) then
			DestroyEffect(LoadEffectHandle(g_Hashtable, GetHandleId(t), KATON_EFFECT))
			RemoveUnit_s(dummy, "KatonItachiActions", "KatonItachi")
			DestroyTimer_s(t)
		end
	end)
end

---@return void
function KatonSoundActions()
	local u = GetTriggerUnit()
	AddSoundUnit("katon.mp3", u)
	u = nil
end

---@return void
function KatonItachiActionsNew()
	local u = GetTriggerUnit()
	local loc = GetSpellTargetLoc()
	local lvl = GetUnitAbilityLevel(u, GetSpellAbilityId())
	local r = 200 + (25 * (lvl - 1))
	local dmg = 100	-- 100 + (4 * (lvl - 1)); 
	local travelFactor = 0.04 + (0.02 * (lvl - 1))
	local dummyScale = 2.00 + (0.30 * (lvl - 1))
	
	FinishDuel()
	local katonProj = Projectile:create(DEFAULT_DUMMY, "fireball.mdx", dummyScale, u, 110)
	katonProj.SetVelocity(535, 1.0)
	katonProj.DamageOnce(false)
	katonProj.SetDamageData(0.1, dmg, r, 0, 0, travelFactor, SCHOOL_MAGIC)
	katonProj.SetDestLoc(loc)
	katonProj.SetDistance(1100, true)
	katonProj.InstantRemove(true)
	katonProj.SetDamageEffect("Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl")
	katonProj.Launch()
	
	RemoveLocation(loc)
	u = nil
	loc = nil
end

---@return void
function InitTrig_KatonItachi()
	gg_trg_KatonItachi = CreateTrigger()
	g_TrgKatonPreCast = CreateTrigger()
	TriggerRegisterAnyUnitEventBJ(gg_trg_KatonItachi, EVENT_PLAYER_UNIT_SPELL_EFFECT)
	TriggerRegisterAnyUnitEventBJ(g_TrgKatonPreCast, EVENT_PLAYER_UNIT_SPELL_CHANNEL)
	TriggerAddCondition(gg_trg_KatonItachi, Condition(KatonItachiConditions))
	TriggerAddAction(gg_trg_KatonItachi, KatonItachiActionsNew)
	TriggerAddCondition(g_TrgKatonPreCast, Condition(KatonItachiConditions))
	TriggerAddAction(g_TrgKatonPreCast, KatonSoundActions)
end