You give the units a passive ability that simply displays the number of corpses and then an active ability based on silence that does absolutely nothing except play the animation you want to play when the unit picks up a corpse. This spell is disabled for all players at map init.
- Periodic Timer runs every 0.15 second or so
- Enables the 2nd ability
- Picks every unit with your passive ability and then checks to see if there are any nearby corpses
- If a corpse is found, the unit is ordered to use the active ability on the position of the corpse
- The ability is disabled for all players
Then, when a unit starts the effect of your active ability, simply increase some counter variable by 1 and change the level of the passive to display the current number of corpses.
I'll write up some JASS in a second that does this.
JASS:
scope CorpseSpell initializer Init
globals
private constant integer PASSIVE_ID = 'A000'
private constant integer ACTIVE_ID = 'A001'
private constant real TIMER_INTERVAL = 0.15
private constant real SEARCH_RADIUS = 200.00
private constant string ORDER_STRING = "silence"
private timer T = null
private trigger SpellCast = null
private boolexpr B = null
private boolexpr B2 = null
private group G = null
private group G2 = null
endglobals
private function HasPassive takes nothing returns boolean
return GetUnitAbilityLevel(GetFilterUnit(), PASSIVE_ID) > 0
endfunction
private function IsCorpse takes nothing returns boolean
return GetWidgetLife(U) < 0.406
endfunction
private function Periodic takes nothing returns nothing
local integer J = 0
local unit U
local unit U2
local unit C
local real CX
local real CY
local real Dist = SEARCH_RADIUS*SEARCH_RADIUS+32.00
local integer O
local real U2D
local real U2X
local real U2Y
local real X
local real Y
loop
call SetPlayerAbilityAvailable(Player(J), ACTIVE_ID, true)
set J = J+1
exitwhen J >= 12
endloop
call GroupEnumUnitsInRect(G, bj_mapInitialPlayableArea, B)
loop
set U = FirstOfGroup(G)
exitwhen U == null
set X = GetUnitX(U)
set Y = GetUnitY(U)
call GroupEnumUnitsInRange(G2, X, Y, SEARCH_RADIUS, B2)
loop
set U2 = FirstOfGroup(G)
exitwhen U2 == null
set U2X = GetUnitX(U)
set U2Y = GetUnitY(U)
set U2D = (U2X-X)*(U2X-X) + (U2Y-Y)*(U2Y-U)
if U2D < Dist then
set C = U2
set Dist = U2D
set CX = U2X
set CY = U2Y
endif
endloop
if C != null then
set O = GetUnitCurrentOrder(U)
if O == Order("smart") or O == Order("stop") then
call IssueTargetOrder(U, ORDER_STRING, CX, CY)
endif
set C == null
endif
endloop
set J = 0
loop
call SetPlayerAbilityAvailable(Player(J), ACTIVE_ID, false)
set J = J+1
exitwhen J >= 12
endloop
endfunction
private function ActiveCastConditions takes nothing returns boolean
return GetSpellAbilityId() == ACTIVE_ID
endfunction
private function ActiveCast takes nothing returns nothing
endfunction
private function Init takes nothing returns nothing
local integer J = 0
loop
call SetPlayerAbilityAvailable(Player(J), ACTIVE_ID, false)
set J = J+1
exitwhen J >= 12
endloop
set G = CreateGroup()
set G2 = CreateGroup()
set B = Condition(function HasPassive)
set B2 = Condition(function IsCorpse)
set SpellCast = CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(SpellCast, EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(SpellCast, Condition(function ActiveCastConditions))
call TriggerAddAction(SpellCast, function ActiveCast)
call TimerStart(T, TIMER_INTERVAL, true, function Periodic)
endfunction
endscope
