call ForGroup( GetUnitsInRectAll(RectFromCenterSizeBJ(udg_GhostPotion_loc, 600.00, 600.00)), function Illusions )
endfunction


function Illusions takes nothing returns nothing
    local unit u=GetEnumUnit()
    local unit dummy
    local item i
    local location loc=GetUnitLoc(u)
    call CreateNUnitsAtLoc( 1, 'n00K', Player(0), loc, bj_UNIT_FACING )
    set dummy=GetLastCreatedUnit()
    call CreateItemLoc( 'will', loc )
    set i=GetLastCreatedItem()
    call UnitAddItemSwapped( i, dummy )
    call TriggerSleepAction (0.01)
    call UnitUseItemTarget( dummy, i, u )
    call TriggerSleepAction (1.2)
    call RemoveItem (i)
    call RemoveUnit (dummy)
    call RemoveLocation (loc)
    call RemoveLocation (udg_GhostPotion_loc)
    set u=null
    set dummy=null
    set loc=null
    set i=null
    set udg_GhostPotion_loc=null

function Illusions takes nothing returns nothing
    local unit u=GetEnumUnit()
    local unit dummy
    local item i
    set dummy = CreateUnit(Player(0), 'n00K', GetUnitX(u), GetUnitY(u), bj_UNIT_FACING )
    set i = UnitAddItemById( dummy, 'will')
    if (i!=null) then
      call TriggerSleepAction (0.01)
      call UnitUseItemTarget( dummy, i, u )
      call TriggerSleepAction (1.2)
      call KillUnit(dummy)
    endif
    set u=null
    set dummy=null
    set i=null
endfunction