//***************************************************************************
//*
//* Global Variables
//*
//***************************************************************************

globals
// User-defined
unit udg_target = null
unit udg_caster = null
integer udg_i = 0

// Generated
trigger gg_trg_Molot_drobayshi = null
endglobals

function InitGlobals takes nothing returns nothing
set udg_i = 0
endfunction

function Trig_Molot_drobayshi_Conditions takes nothing returns boolean
if ( not ( GetSpellAbilityId() == 'A001' ) ) then
return false
endif
return true
endfunction

function Trig_Molot_drobayshi_Func012Func001C takes nothing returns boolean
if ( not ( IsUnitEnemy(GetEnumUnit(), GetOwningPlayer(udg_caster)) == true ) ) then
return false
endif
return true
endfunction

function Trig_Molot_drobayshi_Func012A takes nothing returns nothing
if ( Trig_Molot_drobayshi_Func012Func001C() ) then
set i = i+1
call CreateNUnitsAtLoc( 1, 'h001', GetOwningPlayer(udg_caster), GetUnitLoc(udg_target), bj_UNIT_FACING )
set dammi[i] = GetLastCreatedUnit
call UnitAddAbilityBJ( 'A000', GetLastCreatedUnit() )
call SetUnitAbilityLevelSwapped( 'A000', GetLastCreatedUnit(), GetUnitAbilityLevelSwapped('A001', udg_caster) )
call IssueTargetOrderBJ( GetLastCreatedUnit(), "thunderbolt", GetEnumUnit() )
else
call DoNothing( )
endif
endfunction

function Trig_Molot_drobayshi_Actions takes nothing returns nothing
local unit array dammi
local integer i =0
local unit caster
local unit target
set udg_caster = GetSpellAbilityUnit()
set udg_target = GetSpellTargetUnit()
set caster = udg_caster
set target = udg_target
call PolledWait( ( DistanceBetweenPoints(GetUnitLoc(udg_caster), GetUnitLoc(udg_target)) / 1000.00 ) )
set udg_target = target
set udg_caster = caster
call ForGroupBJ( GetUnitsInRangeOfLocAll(450.00, GetUnitLoc(udg_target)), function Trig_Molot_drobayshi_Func012A )
set caster = null
set target = null
set udg_caster = null
set udg_target = null
set udg_i = i
set bj_forLoopAIndex = 1
set bj_forLoopAIndexEnd = udg_i
loop
exitwhen bj_forLoopAIndex > bj_forLoopAIndexEnd
call RemoveUnit( dammi[i] )
set dammi[i] = null
set i = i - 1
set bj_forLoopAIndex = bj_forLoopAIndex + 1
endloop
set i = 0
endfunction

//===========================================================================
function InitTrig_Molot_drobayshi takes nothing returns nothing
set gg_trg_Molot_drobayshi = CreateTrigger( )
call TriggerRegisterAnyUnitEventBJ( gg_trg_Molot_drobayshi, EVENT_PLAYER_UNIT_SPELL_EFFECT )
call TriggerAddCondition( gg_trg_Molot_drobayshi, Condition( function Trig_Molot_drobayshi_Conditions ) )
call TriggerAddAction( gg_trg_Molot_drobayshi, function Trig_Molot_drobayshi_Actions )
endfunction