// Delay aActionToDelay by fSeconds.
// * No return value, but if an error occurs, the log file will contain
//  "DelayCommand failed.".
// It is suggested that functions which create effects should not be used
// as parameters to delayed actions.  Instead, the effect should be created in the
// script and then passed into the action.  For example:
// effect eDamage = EffectDamage(nDamage, DAMAGE_TYPE_MAGICAL);
// DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oTarget);
void DelayCommand(float fSeconds, action aActionToDelay)

void main()
{
    // создание невидимого объекта на месте смерти миши
    location lLocation = GetLocation(OBJECT_SELF);
    object oInvisible = CreateObject(OBJECT_TYPE_PLACEABLE, "XXX", lLocation);

    // убирание объекта
    DelayCommand(120.0, DestroyObject(oInvisible));
}

DestroyObject(oInvisible, 120.0);

// Set the destroyable status of the caller.
// - bDestroyable: If this is FALSE, the caller does not fade out on death, but
//  sticks around as a corpse.
// - bRaiseable: If this is TRUE, the caller can be raised via resurrection.
// - bSelectableWhenDead: If this is TRUE, the caller is selectable after death.
void SetIsDestroyable(int bDestroyable, int bRaiseable=TRUE, int bSelectableWhenDead=FALSE)

SetIsDestroyable(FALSE, FALSE, FALSE);

SetIsDestroyable(TRUE, FALSE, FALSE);

// Очистка всего инвентаря и удаление экипировки, если есть
void ClearInventory(object oCorpse)
{
    int nGold = GetGold(oCorpse);

    if (nGold) TakeGoldFromCreature(nGold, oCorpse, TRUE);

    int i;

    for (i = 0; i < 18 ; i++)
    {
        object oEquip = GetItemInSlot(i, oCorpse);

        if (GetIsObjectValid(oEquip))
        {
            DestroyObject(oEquip);
        }
    }

    object oLoot = GetFirstItemInInventory(oCorpse);

    while (GetIsObjectValid(oLoot))
    {
        DestroyObject(oLoot);
        oLoot = GetNextItemInInventory(oCorpse);
    }
}

void CreateCorpse(object oCreature)
{
    object oKiller = GetLastKiller();      // Убийца
    object oCreature = OBJECT_SELF;        // Погибшее существо
    string sTag = GetTag(oCreature);        // Тэг существа

    int nCorpseFade    = 120;  // Задержка исчезновения тела существа.
    int nKeepEmpties    = FALSE; // Вкл., если хотите удалять тела существ моментально.

    // Узнать точку гибели существа
    location lCorpse = GetLocation(oCreature);

    // Защита существа от удаления
    SetIsDestroyable(FALSE, FALSE, FALSE);

    if (nKeepEmpties)
    {
        nCorpseFade = 0;
    }

    // Создание пятна крови
    object oBlood = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_bloodstain", lCorpse, FALSE);
    // Создание невидимого объекта, который можно открыть
    object oCorpse = CreateObject(OBJECT_TYPE_PLACEABLE, "corpse_object", lCorpse, FALSE);

    // Сохранение объектов, с которыми надо еше работать
    SetLocalObject(oCorpse, "Blood", oBlood);
    SetLocalObject(oCorpse, "Corpse", oCreature);
    SetLocalInt(oCorpse, "KeepEmpty", nKeepEmpties);

    // Создание шкурки медвеля
    if (GetTag(oCreature) == "tag_creature")
    {
        object oSkin = CreateItemOnObject("skin_bear", oCorpse)
    }

    // Проверка первой вещи в инвенторе
    object oHasInventory = GetFirstItemInInventory(oCorpse);

    // Если в инвентаре существа ничего нет, то удалить тело
    if (oHasInventory == OBJECT_INVALID)
    {
        ClearInventory(oCreature);
        ClearInventory(oCorpse);
        DestroyObject(oCorpse);
        DestroyObject(oBlood);
        SetIsDestroyable(TRUE, FALSE, FALSE);
        DestroyObject(oCreature, 1.0);
    }
    // Удаление тела существа по истечение времени
    else if (nCorpseFade > 0)
    {
        float fCorpseFade = IntToFloat(nCorpseFade);
        DelayCommand(fCorpseFade, ClearInventory(oCreature));
        DelayCommand(fCorpseFade, ClearInventory(oCorpse));
        DelayCommand(fCorpseFade, DestroyObject(oBlood));
        DelayCommand(fCorpseFade + 0.1, DestroyObject(oCorpse));
        DelayCommand(fCorpseFade + 0.2, SetIsDestroyable(TRUE, FALSE, FALSE));
        DelayCommand(fCorpseFade + 0.2, DestroyObject(oCreature));
    }
}

void main()
{
    object oKiller = GetLastKiller();

    if (GetLastKiller() == OBJECT_SELF) return;

    if (GetRacialType(OBJECT_SELF) == RACIAL_TYPE_ANIMAL)
    {
        CreateCorpse(OBJECT_SELF);
    }
}

// Очистка всего инвентаря и удаление экипировки
void ClearInventory(object oCorpse)
{
    // аналогичен скрипту выше
}

void main()
{
    object oCorpse = OBJECT_SELF;

    // Просмотр нужных объектов и переменных
    object oBlood = GetLocalObject(oCorpse, "Blood");
    object oBody = GetLocalObject(oCorpse, "Corpse");
    int nKeepEmpty = GetLocalInt(oCorpse, "KeepEmpty");

    // Проверка первой ячейки инвентаря
    object oHasInventory = GetFirstItemInInventory(oCorpse);

    // Если инвентарь пуст, проверить значение "KeepEmpty"
    if (oHasInventory == OBJECT_INVALID)
    {
        if (!nKeepEmpty)
        {
            ClearInventory(oBody);
            ClearInventory(oCorpse);
            DestroyObject(oCorpse);
            DestroyObject(oBlood);
            AssignCommand(oBody, SetIsDestroyable(TRUE, FALSE, FALSE));
            DestroyObject(oBody, 1.0);
        }
    }
}

void main()
{
    ActionStartConversation(GetLastUsedBy(), "dialog", TRUE, FALSE);
}

void main()
{
  string sMovie = "Твой финальный ролик";
  EndGame(sMovie);
}

void ActionCreateObject(int nObjType, string sCreature, location lLoc, int iAnimation, string sNewTag="")
{
  CreateObject(nObjType, sCreature, lLoc, FALSE, sNewTag);
}
void CheckIsHere(object oTarget, string sOrder)
{
    object oSelf = OBJECT_SELF;

    if(GetDistanceBetween(oSelf, oTarget) < 4.0)
    {
        AssignCommand(oSelf, PlayAnimation(ANIMATION_LOOPING_GET_MID, 1.0, 1.0));
        CreateItemOnObject(sOrder, oTarget, 1);
        // Тут никакой блокировки не надо. Действия простые
    }
    else
    {
        SpeakString("Куда вы ушли??");
        AssignCommand(oSelf, ActionPlayAnimation(ANIMATION_LOOPING_GET_LOW, 1.0, 5.0));
        AssignCommand(oSelf, ActionCreateObject(OBJECT_TYPE_ITEM, sOrder, GetLocation(OBJECT_SELF), TRUE));
        AssignCommand(oSelf, ActionDoCommand(SetLocalInt(oSelf, "vir_waiter_busy", FALSE)));
        AssignCommand(oSelf, ActionDoCommand(SetCommandable(TRUE, oSelf)));
        DelayCommand(0.3, SetCommandable(FALSE, oSelf));
    }
}

void GoToPlayer(object oTarget, string sOrder, float fTimeout)
{
    ActionForceMoveToLocation(GetLocation(oTarget), TRUE, fTimeout);
    ActionDoCommand(SetFacingPoint(GetPosition(oTarget)));
    ActionDoCommand(CheckIsHere(oTarget, sOrder));

    //заблокировать и разблокировать очередь
    DelayCommand(0.2, SetCommandable(FALSE));
    AssignCommand(OBJECT_SELF, ActionDoCommand(SetCommandable(TRUE)));
}

SetIsDestroyable(FALSE, TRUE, FALSE);
    effect eDeath = EffectDeath();
    ApplyEffectToObject(DURATION_TYPE_INSTANT, eDeath, OBJECT_SELF);

object oDead = GetObjectByTag("ZOMBI");
    effect eRes  = EffectResurrection();
    effect eHeal = EffectHeal(GetMaxHitPoints(oDead));
    ApplyEffectToObject(DURATION_TYPE_INSTANT, eRes, oDead);
    ApplyEffectToObject(DURATION_TYPE_INSTANT, eHeal, oDead);