Большое спасибо за детальные комментарий ув. Долгий и ув. Jack of shadows. 

Проблема в том, что как я понимаю, если в хуке UnitMove я возвращаю not nil, то юнит не должен дальше перемещаться. У меня же получается ситуация, почему-то, что юнит и кастует заклинание, и делает ход, при чём ход он делает первым. Я перепроверил документацию Novik'a, там тоже написано, что UnitMove должен вызываться перед каждым ходом стека существа. 

То есть, ожидаемая последовательность действий:

1. Существо получает ход

2. Наступает хук UnitMove

3. В хуке я накладываю слепоту и возвращаю not nil

4. Существо остаётся на своём месте, проиграв анимацию заклинания. 

Реальная последовательность действий:

1. Существо получает ход

2. Наступакт хук UnitMove

3. Существо делает действие (бежит вперёд или атакует, если дотягивается)

4. Передаётся действие моему обработчику и существо накладывает заклинание

5. возвращается not nil

Можете подсказать, пожалуйста, в каком направлении я допустил ошибку? Я так понимаю, что должно сначала выполняться тело хука, а потом только действие существа, а не наоборот.

----Превращалка: Хафад может преобразовывать обычную нежить в новых некроюнитов----
function CustomAbility(hero, id)
if (id == CUSTOM_ABILITY_3) then
Hero = hero
	MakeHeroInteractWithObject(hero, "ritual")
  	sleep(10)
   for i=0,6 do
		local type, num = GetObjectArmySlotCreature("ritual", i)
		if (type >= 30 and type <= 42 and mod(type, 2) == 0) or (type >= 152 and type <= 158) then
  startThread(NecroRitual)
  SetObjectOwner("ritual", PLAYER_2)
    end
  end
  local x,y = GetObjectPosition("Hafad")
  PlayVisualEffect("/Effects/_(Effect)/Spells/Curse.xdb#xpointer(/Effect)","","tag1", x+0.5,y+0.5,0,GROUND);
  PlayVisualEffect("/Effects/_(Effect)/Spells/DisruptingRay.xdb#xpointer(/Effect)","","tag1", x+0.5,y+0.5,0,GROUND);
  sleep(2)
  PlayVisualEffect("/Effects/_(Effect)/Spells/AnimateDead.xdb#xpointer(/Effect)","","tag1", x+0.5,y+0.5,0,GROUND);
    local Level = GetHeroLevel("Hafad")
    local Spell = GetHeroStat("Hafad", STAT_SPELL_POWER)
    local quantity = 0.35 * Level + Spell
    AddHeroCreatures("Hafad", 40, quantity)
    ShowFlyingSign("/Text/MasterOfDeath.txt", "Hafad", 1, 5.0)
    sleep(1)
    ControlHeroCustomAbility(hero, CUSTOM_ABILITY_3, CUSTOM_ABILITY_DISABLED)
    end
end

function NecroRitual()
	for i=0,6 do
		local type, num = GetObjectArmySlotCreature("ritual", i)
       if GetObjectArmySlotCreature("ritual", i) == 30 then
			     RemoveObjectCreatures('ritual', type, num, i)
			     AddHeroCreatures(Hero, 896, num)
       elseif type == 32 then
			     RemoveObjectCreatures('ritual', type, num, i)
			     AddHeroCreatures(Hero, 897, num)
       elseif type == 34 then
			     RemoveObjectCreatures('ritual', type, num, i)
			     AddHeroCreatures(Hero, 898, num)
       elseif type == 36 then
			     RemoveObjectCreatures('ritual', type, num, i)
			     AddHeroCreatures(Hero, 899, num)
       elseif type == 38 then
			     RemoveObjectCreatures('ritual', type, num, i)
			     AddHeroCreatures(Hero, 900, num)
       elseif type == 90 then
			     RemoveObjectCreatures('ritual', type, num, i)
			     AddHeroCreatures(Hero, 901, num)
       elseif type == 42 then
			     RemoveObjectCreatures('ritual', type, num, i)
			     AddHeroCreatures(Hero, 902, num)
			     end;
  end;
end;

ДолгийУ меня есть предположение, что функция GetObjectArmySlotCreature() делалась в основном для получения id со слота, а не кол-ва юнитов и возвращает общее кол-во данных существ

Добавлено через 19 минут
Ну или sleep() не хватает из-за чего кол-во существ успевает посчитаться дважды

BlueHeavenHeroА в каком месте посоветуете поставить sleep()? Хочу сначала проверить второй вариант.

ДолгийВнутри цикла for, функции NecroRitual()

LetoXЯ немного не понимаю эту часть - 

for i=0,6 do
     local type, num = GetObjectArmySlotCreature("ritual", i)
     if (type >= 30 and type <= 42 and mod(type, 2) == 0) or (type >= 152 and type <= 158) then
          startThread(NecroRitual)
          SetObjectOwner("ritual", PLAYER_2)
     end
end. 

и потом в функции ритуала - 

for i=0,6 do
    local type, num = GetObjectArmySlotCreature("ritual", i)
    if GetObjectArmySlotCreature("ritual", i) == 30 then
        RemoveObjectCreatures('ritual', type, num, i) ...

Зачем ты на каждый слот ставишь героя владельцем? По идее это можно сделать вне цикла. и почему ты на каждый слот начинаешь новый поток? Я скрипт не запускал, но выглядит так, будто ты на два слота стартуешь 2 потока работающих параллельно(типо) и когда обработка второго цикла по функции ритуала ПОВТОРНО проходит через все слоты, когда второй поток считывает первый слот он ещё не очищен(первым потоком). Вроде как, если убрать цикл в функции или убрать дублирование потоков, всё должно заработать. 

LetoXТипо-

        MakeHeroInteractWithObject(hero, "ritual")
        sleep(10)
        startThread(NecroRitual)
        SetObjectOwner("ritual", PLAYER_2)
        local x,y = GetObjectPosition(Hero) ...
А, и это чисто эстетически, но раз ты берёшь имя героя из функции, то почему пишешь в других местах "Hafad"?