scope Spell initializer Init

globals
private integer Ability='AHad' //Впишите сюда ID своей способности. (CRTL+D в Редакторе Объектов)
private string Effect="Abilities\\Spells\\Other\\Transmute\\GoldBottleMissile.mdl" //Путь к эффекту. (Двойной слеш вместо одного / - //)
private unit array c
private unit array t
private integer array lvl
private integer array time
private real array angle
private real array X
private real array Y
private integer array effectInt
private real array speed
private group GroupAttackers=CreateGroup()
private group GroupAttackeds=CreateGroup()
private integer I=1
private integer N=0
endglobals


private function MaxMinRealInRect takes rect r, real x, real y returns boolean
    return (GetRectMinX(r) <= x) and (x <= GetRectMaxX(r)) and (GetRectMinY(r) <= y) and (y <= GetRectMaxY(r))
endfunction

private function TestUnitInMap takes unit whichUnit returns boolean
    return MaxMinRealInRect(bj_mapInitialPlayableArea, GetUnitX(whichUnit), GetUnitY(whichUnit))
endfunction

private function spell takes integer i returns nothing

set time[i]=time[i]+1
set effectInt[i]=1+effectInt[i]
set speed[i]=speed[i]-.02

if time[i]<30+10*lvl[i] and TestUnitInMap(t[i])==true and GetUnitState(t[i],UNIT_STATE_LIFE)>0 then

call SetUnitX(t[i],GetUnitX(t[i])+speed[i]*lvl[i]*Cos(angle[i] * bj_DEGTORAD))
call SetUnitY(t[i],GetUnitY(t[i])+speed[i]*lvl[i]*Sin(angle[i] * bj_DEGTORAD))

    if effectInt[i]==4 then
        call DestroyEffect( AddSpecialEffectTarget(Effect,c[i],"weapon"))
        call DestroyEffect( AddSpecialEffectTarget(Effect,t[i],"origin"))
        set effectInt[i]=0
    endif

else

call PauseUnit(t[i],false)
call GroupRemoveUnit(GroupAttackers,c[i])
call GroupRemoveUnit(GroupAttackeds,t[i])

set c[i]=c[N]
set t[i]=t[N]
set lvl[i]=lvl[N]
set angle[i]=angle[N]
set X[i]=X[N]
set Y[i]=Y[N]
set time[i]=time[N]
set effectInt[i]=effectInt[N]
set I=I-1
set N=N-1

endif

endfunction

private function run  takes nothing returns nothing
set I = 1
    loop
        exitwhen I > N
        call spell(I)
        set I = I + 1
    endloop
endfunction

private function Conditions takes nothing returns boolean
    return GetUnitAbilityLevel(GetAttacker(), Ability)!=0 and IsUnitInGroup(GetAttacker(),GroupAttackers)==false and IsUnitInGroup(GetTriggerUnit(),GroupAttackeds)==false and GetRandomInt(0,100)<20 and IsPlayerAlly(GetOwningPlayer(GetAttacker()),GetOwningPlayer(GetTriggerUnit()))==  false and IsUnitType(GetTriggerUnit(), UNIT_TYPE_STRUCTURE)==false
endfunction

private function start takes nothing returns nothing
local integer localN=N+1
set N=N+1
set c[N]=GetAttacker()
set t[N]=GetTriggerUnit()
set X[N]=GetUnitX(c[N])
set Y[N]=GetUnitY(c[N])
set angle[N]=bj_RADTODEG * Atan2(GetUnitY(t[N]) - Y[N], GetUnitX(t[N]) - X[N])
set lvl[N]=GetUnitAbilityLevel(c[N],Ability)
set effectInt[N]=0
set time[N]=0
set speed[N]=2
call PauseUnit(t[N],true)
call SetUnitX(t[N],GetUnitX(c[N]))
call SetUnitY(t[N],GetUnitY(c[N]))
call GroupAddUnit(GroupAttackers,c[N])
call GroupAddUnit(GroupAttackeds,t[N])
call UnitDamageTarget(c[N], t[N], 30+lvl[N]*10, true, false, ATTACK_TYPE_MELEE, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS)
endfunction

private function Init takes nothing returns nothing
    local trigger trig=CreateTrigger()
    local trigger action=CreateTrigger()
    local integer index=0
    local trigger coolTRIG=CreateTrigger()
call TriggerRegisterTimerEvent(trig, .02, true)
call TriggerAddAction(trig, function run)

loop
    call TriggerRegisterPlayerUnitEvent(action, Player(index), EVENT_PLAYER_UNIT_ATTACKED, null)
    set index = index + 1
    exitwhen index == bj_MAX_PLAYER_SLOTS
endloop

call TriggerAddCondition( action, Condition( function Conditions ) )
call TriggerAddAction(action, function start)

set trig=null
set action=null
set coolTRIG=null
endfunction

endscope