-- Диалог с деревом любви NPC ID 6040201
function n6040201_OnTalk(MapID, InstanceID, TargetID, TargetTypeID, RoleID, TalkIndex)
    if TalkIndex == -1 then
        local MsgID = msg.BeginMsgEvent()
        msg.AddMsgEvent(MsgID, 20, 650101) -- ����֧ӧߧ֧� �է֧�֧ӧ� ���ڧ��:\n �� �ާ�ԧ� �էѧ�� ��֧ҧ� �ҧݧѧԧ��ݧ�ӧ֧ߧڧ� ���ڧ��, ��ӧ֧ݧڧ�ڧ� ��ӧ�� ������ �� �է֧ߧ�ԧ�. ���ѧ� ��֧ҧ� ����?
        msg.AddMsgEvent(MsgID, 24, TargetID) -- ID NPC
        msg.AddMsgEvent(MsgID, 21, 4) -- Кнопка подтверждения
        msg.AddMsgEvent(MsgID, 1, 100001) -- "Подтвердить"

        msg.DispatchRoleMsgEvent(RoleID, MsgID) -- Отправить сообщение игроку
    elseif TalkIndex == 4 then
        unit.AddBuff(MapID, -1, RoleID, 9008601, RoleID)
    end
end

aux.RegisterCreatureEvent(6040201, 7, "n6040201_OnTalk")