library EMDSystem initializer InitSystem

#include "cj_types.j"

define UnitDamageTarget = UserUnitDamageTarget

constant int SPELL_MARK = 'A003' //РАВ-код способности "Метка (Damage System)"
constant int SPELL_BUFF = 'B000' //РАВ-код эффекта для "Метка (Damage System)"

private trigger execute = CreateTrigger()
private boolexpr filter
private trigger array user

private damagetype bj_lastDamageType
private attacktype bj_lastAttackType

private unit bj_lastSourceDamage
private unit bj_lastTargetDamage

private float bj_lastCountsDamage

float GetDSCounts() {
return bj_lastCountsDamage
}

unit GetDSSource() {
return bj_lastSourceDamage
}

unit GetDSTarget() {
return bj_lastTargetDamage
}

private bool FilterEvent() {
if not (GetEventDamage() > 0.0) {return false}
bj_lastCountsDamage = GetEventDamage()
bj_lastSourceDamage = GetEventDamageSource()
bj_lastTargetDamage = GetTriggerUnit()
if (GetUnitAbilityLevel(bj_lastTargetDamage, SPELL_BUFF) != 0) {
UnitRemoveAbility(bj_lastTargetDamage, SPELL_BUFF)
bj_lastDamageType = DAMAGE_TYPE_NORMAL
if (IsUnitType(bj_lastSourceDamage, UNIT_TYPE_HERO) == true) {
bj_lastAttackType = ATTACK_TYPE_HERO
} else {
bj_lastAttackType = ATTACK_TYPE_MELEE
}
} else {
bj_lastDamageType = DAMAGE_TYPE_MAGIC
bj_lastAttackType = ATTACK_TYPE_MAGIC
}
int i = 0
while (user[i] != null) {
if TriggerEvaluate(user[i]) {TriggerExecute(user[i])}
i++
}
bj_lastDamageType = null
bj_lastAttackType = null
return false
}

private bool CreateNewMember() {
unit targ = GetFilterUnit()
if (GetWidgetLife(targ) > 0.0 and GetUnitAbilityLevel(targ, SPELL_MARK) == 0) {
TriggerRegisterUnitEvent(execute, targ, EVENT_UNIT_DAMAGED)
UnitAddAbility(targ, SPELL_MARK)
}
targ = null
return false
}

damagetype GetEventDamageType() {
return bj_lastDamageType
}

attacktype GetEventAttackType() {
return bj_lastAttackType
}

bool UserUnitDamageTarget (unit c, unit t, float d, bool a_b, boolean r_b, attacktype a_t, damagetype d_t, weapontype w_t) {
bj_lastAttackType = a_t
bj_lastDamageType = d_t
return UnitDamageTarget(c, t, d, a_b, r_b, a_t, d_t, w_t)
}

void TriggerRegisterAllUnitDamaged (trigger t) {
int i = 0
while (user[i] != null) {i++}
user[i] = t
}

private void TimerLoop() {
group timed = CreateGroup()
GroupEnumUnitsInRect(timed, bj_mapInitialPlayableArea, filter)
DestroyGroup(timed); timed = null
}

private void InitSystem() {
filter = Condition(function CreateNewMember)
TriggerAddCondition(execute, Condition(function FilterEvent))
TimerStart(CreateTimer(), 0.1, true, function TimerLoop)
}

endlibrary

library EMDSystem initializer InitSystem

globals
constant integer SPELL_MARK = 'A003' //РАВ-код способности "Метка (Damage System)"
constant integer SPELL_BUFF = 'B000' //РАВ-код эффекта для "Метка (Damage System)"

private trigger array user
private trigger execute = CreateTrigger()
private boolexpr filter

private damagetype bj_lastDamageType
private attacktype bj_lastAttackType

private unit bj_lastSourceDamage
private unit bj_lastTargetDamage
private real bj_lastCountsDamage
endglobals

function GetDSCounts takes nothing returns real
return bj_lastCountsDamage
endfunction

function GetDSSource takes nothing returns unit
return bj_lastSourceDamage
endfunction

function GetDSTarget takes nothing returns unit
return bj_lastTargetDamage
endfunction

private function FilterEvent takes nothing returns boolean
local integer i = 0
if not (GetEventDamage() > 0.0) then
return false
endif
set bj_lastCountsDamage = GetEventDamage()
set bj_lastSourceDamage = GetEventDamageSource()
set bj_lastTargetDamage = GetTriggerUnit()
if (GetUnitAbilityLevel(bj_lastTargetDamage, SPELL_BUFF) != 0) then
call UnitRemoveAbility(bj_lastTargetDamage, SPELL_BUFF)
set bj_lastDamageType = DAMAGE_TYPE_NORMAL
if (IsUnitType(bj_lastSourceDamage, UNIT_TYPE_HERO) == true) then
set bj_lastAttackType = ATTACK_TYPE_HERO
else
set bj_lastAttackType = ATTACK_TYPE_MELEE
endif
else
set bj_lastDamageType = DAMAGE_TYPE_MAGIC
set bj_lastAttackType = ATTACK_TYPE_MAGIC
endif
loop
exitwhen (user[i] == null)
if TriggerEvaluate(user[i]) then
call TriggerExecute(user[i])
endif
set i = i + 1
endloop
set bj_lastDamageType = null
set bj_lastAttackType = null
return false
endfunction

private function CreateNewMember takes nothing returns boolean
local unit targ = GetFilterUnit()
if (GetWidgetLife(targ) > 0.0 and GetUnitAbilityLevel(targ, SPELL_MARK) == 0) then
call TriggerRegisterUnitEvent(execute, targ, EVENT_UNIT_DAMAGED)
call UnitAddAbility(targ, SPELL_MARK)
endif
set targ = null
return false
endfunction

function GetEventDamageType takes nothing returns damagetype
return bj_lastDamageType
endfunction

function GetEventAttackType takes nothing returns attacktype
return bj_lastAttackType
endfunction

function UserUnitDamageTarget takes unit c, unit t, real d, boolean a_b, boolean r_b, attacktype a_t, damagetype d_t, weapontype w_t returns boolean
set bj_lastAttackType = a_t
set bj_lastDamageType = d_t
return UnitDamageTarget(c, t, d, a_b, r_b, a_t, d_t, w_t)
endfunction

function TriggerRegisterAllUnitDamaged takes trigger t returns nothing
local integer i = 0
loop
exitwhen (user[i] == null)
set i = i + 1
endloop
set user[i] = t
endfunction

private function TimerLoop takes nothing returns nothing
local group timed = CreateGroup()
call GroupEnumUnitsInRect(timed, bj_mapInitialPlayableArea, filter)
call DestroyGroup(timed)
set timed = null
endfunction

private function InitSystem takes nothing returns nothing
set filter = Condition(function CreateNewMember)
call TriggerAddCondition(execute, Condition(function FilterEvent))
call TimerStart(CreateTimer(), 0.1, true, function TimerLoop)
endfunction

endlibrary