-- 1. Счетчик убитых монстров
-- 2. Время последнего убийства
-- 3. День года
touming = 0 -- ID созданного NPC, по умолчанию 0

function Mrbobo_OnTalk(MapID, InstanceID, TargetID, TargetTypeID, RoleID, TalkIndex)
    local Num = role.GetRoleItemNum(RoleID, 4800073) -- Количество специальных предметов у игрока
    --local Act = act.GetActIsStart(38)
    local curhour = tonumber(os.date("%H"))
    local lTime = map.GetMapScriptData(MapID, InstanceID, 1, 2) -- Время последнего действия
    local cTime = os.time() -- Текущее время
    local a = map.GetMapScriptData(MapID, InstanceID, 1, 1) -- Счетчик убитых монстров
    local s = os.difftime(cTime, lTime) -- Разница во времени с момента последнего действия
    local CurTime = tonumber(os.date("%j")) -- День года
    local CurTime1 = map.GetMapScriptData(MapID, InstanceID, 1, 3)
    local day = os.date("%A") -- День недели

    if CurTime ~= CurTime1 then
        a = 0
        map.SetMapScriptData(MapID, InstanceID, 1, 1, a)
    end

    --if Act ~= true then
    --	if TalkIndex == -1 then
    --		local MsgID = msg.BeginMsgEvent()
    --		msg.AddMsgEvent(MsgID, 20, 206566)		--�����ڧ��֧� ����ҧ�: \n   ����� ���ߧ� �ӧݧ�ҧݧ֧ߧߧ��� �ާ�اߧ� �ӧ��٧ӧѧ�� �� ��ѧާܧѧ� ����ԧ� �ާ֧����ڧ��ڧ�. ����֧ާ�: �֧ا֧էߧ֧ӧߧ� �� 18:00 �է� 24:00. �����٧�� ��ѧ٧�֧�֧� �ܧѧاէ��� 30 �ާڧߧ��, ���֧ҧ�֧��� 10 ���ӧ֧٧� ����ާѧߧ�. ����� ���ߧ� �ӧݧ�ҧݧ֧ߧߧ��� ����ӧڧ��� �� �է֧�֧ӧߧ� ����ҧ� ����ާѧ� ��֧�֧� 2 �ާڧߧ��� ����ݧ� ��էѧ�� ���֧էާ֧���. ���էѧ���� �ݧ� �ӧѧ� �ӧ���֧�ڧ�� �֧ԧ�, �٧ѧӧڧ�ڧ� ��� �ӧѧ�֧� ��էѧ��.��
    --		msg.AddMsgEvent(MsgID, 24, TargetID)	-- ID NPC
    --		msg.AddMsgEvent(MsgID, 21, -1)			-- Кнопка выхода
    --		msg.AddMsgEvent(MsgID, 1, 206552)		--�����֧����ڧ��ڧ� �֧�� �ߧ� �ߧѧ�ѧݧ��
    --		msg.DispatchRoleMsgEvent(RoleID, MsgID)
    --	end
    --elseif Act == true then
    if Num < 10 then
        if TalkIndex == -1 then
            local MsgID = msg.BeginMsgEvent()
            msg.AddMsgEvent(MsgID, 20, 206566) --�����ڧ��֧� ����ҧ�: \n    ����
            msg.AddMsgEvent(MsgID, 24, TargetID) -- npcid
            msg.AddMsgEvent(MsgID, 21, -1) -- Кнопка выхода
            msg.AddMsgEvent(MsgID, 1, 206554) -- �� �ӧѧ� �ߧ֧է���ѧ���ߧ� ���ӧ֧٧� ����ާѧߧ� (�ާ֧ߧ��� 10), ����ҧ� �ӧ��٧ӧѧ�� �է���.
            msg.DispatchRoleMsgEvent(RoleID, MsgID)
        end
    else
        if a > 4 then
            if TalkIndex == -1 then
                local MsgID = msg.BeginMsgEvent()
                msg.AddMsgEvent(MsgID, 20, 206566) --�����ڧ��֧� ����ҧ�: \n    ����
                msg.AddMsgEvent(MsgID, 24, TargetID) -- npcid
                msg.AddMsgEvent(MsgID, 21, -1) -- Кнопка выхода
                msg.AddMsgEvent(MsgID, 1, 206555) -- ���֧ԧ�էߧ� �ӧ� ��ا� �ӧ��٧��ӧѧݧ� �է��� 5 ��ѧ�
                msg.DispatchRoleMsgEvent(RoleID, MsgID)
            end
        else
            if s < 3600 then
                if TalkIndex == -1 then
                    local MsgID = msg.BeginMsgEvent()
                    msg.AddMsgEvent(MsgID, 20, 206566) --�����ڧ��֧� ����ҧ�: \n    ����
                    msg.AddMsgEvent(MsgID, 24, TargetID) -- npcid
                    msg.AddMsgEvent(MsgID, 21, -1) -- Кнопка выхода
                    --msg.AddMsgEvent(MsgID, 1, 206556) -- �� �ާ�ާ֧ߧ�� ����ݧ֧էߧ֧ԧ� �ӧ��٧�ӧ� �է��� �ߧ� �����ݧ� 30 �ާڧߧ��
                    msg.AddMsgEvent(MsgID, 1, 206565) -- �� �ާ�ާ֧ߧ�� ����ݧ֧էߧ֧ԧ� �ӧ��٧�ӧ� �է��� �ߧ� �����ݧ� 1 ��ѧ�
                    msg.DispatchRoleMsgEvent(RoleID, MsgID)
                end
            else
                if TalkIndex == -1 then
                    local MsgID = msg.BeginMsgEvent()
                    msg.AddMsgEvent(MsgID, 20, 206557) --�����ڧ��֧� ����ҧ�: \n ���� ��ӧ֧�֧ߧ�, ���� ����ڧ�� �ӧ��٧ӧѧ�� �է���?��
                    msg.AddMsgEvent(MsgID, 24, TargetID) -- npcid
                    msg.AddMsgEvent(MsgID, 21, 4) -- Кнопка подтверждения
                    msg.AddMsgEvent(MsgID, 1, 100001) -- ����է�ӧ֧�էڧ��
                    msg.AddMsgEvent(MsgID, 21, 5) -- Кнопка отмены
                    msg.AddMsgEvent(MsgID, 1, 100002) -- ����ާ֧ߧ�
                    msg.DispatchRoleMsgEvent(RoleID, MsgID)
                elseif TalkIndex == 4 then
                    if Num < 10 then
                        local MsgID = msg.BeginMsgEvent()
                        msg.AddMsgEvent(MsgID, 20, 206566) --�����ڧ��֧� ����ҧ�: \n    ����
                        msg.AddMsgEvent(MsgID, 24, TargetID) -- npcid
                        msg.AddMsgEvent(MsgID, 21, 6) -- Кнопка выхода
                        msg.AddMsgEvent(MsgID, 1, 206554) -- �� �ӧѧ� �ߧ֧է���ѧ���ߧ� ���ӧ֧٧� ����ާѧߧ� (�ާ֧ߧ��� 10), ����ҧ� �ӧ��٧ӧѧ�� �է���.
                        msg.DispatchRoleMsgEvent(RoleID, MsgID)
                    else
                        if touming == 0 then
                            role.RemoveFromRole(MapID, InstanceID, RoleID, 4800073, 10, 101) -- Удаление 10 специальных предметов
                            local MsgID = msg.BeginMsgEvent()
                            msg.AddMsgEvent(MsgID, 102, 300041) -- [<p1>] ��էѧ� 10 ���ӧ֧٧� ����ާѧߧ�, ��֧�֧� 2 �ާڧߧ��� �է�� ����ӧڧ��� �� �է֧�֧ӧߧ� ����ҧ� ����ާѧ�
                            msg.AddMsgEvent(MsgID, 2, RoleID)
                            msg.DispatchWorldMsgEvent(MsgID)
                            touming = map.MapCreateCreature(MapID, InstanceID, 6030012, 260, 2999, 79)
                            local CurTime = tonumber(os.date("%j")) -- День года
                            local cTime = os.time()
                            map.SetMapScriptData(MapID, InstanceID, 1, 2, cTime)
                            map.SetMapScriptData(MapID, InstanceID, 1, 3, CurTime)
                        end
                    end
                end
            end
        end
    end
end

aux.RegisterCreatureEvent(5600028, 7, "Mrbobo_OnTalk")

function Qyaojing_OnDie(MapID, InstanceID, TargetID, TargetTypeID, RoleID)
    local a = map.GetMapScriptData(MapID, InstanceID, 1, 1)
    local b = math.random(1, 3)
    if b == 1 then
        map.MapCreateCreature(MapID, InstanceID, 5600054, 260, 3130, 350)

        local MsgID = msg.BeginMsgEvent()
        msg.AddMsgEvent(MsgID, 102, 300042) -- ����� ���ߧ� �ӧݧ�ҧݧ֧ߧߧ��� ����ӧڧݧ�� �� �է֧�֧ӧߧ� ����ҧ� ����ާѧ� �ߧ� �ܧ���էڧߧѧ�ѧ� <260,350>
        msg.DispatchWorldMsgEvent(MsgID)
        map.SetMapScriptData(MapID, InstanceID, 1, 1, a + 1)
        touming = 0
    elseif b == 2 then
        map.MapCreateCreature(MapID, InstanceID, 5600054, 128, 3117, 199)

        local MsgID = msg.BeginMsgEvent()
        msg.AddMsgEvent(MsgID, 102, 300043) -- ����� ���ߧ� �ӧݧ�ҧݧ֧ߧߧ��� ����ӧڧݧ�� �� �է֧�֧ӧߧ� ����ҧ� ����ާѧ� �ߧ� �ܧ���էڧߧѧ�ѧ� <128,199>
        msg.DispatchWorldMsgEvent(MsgID)
        map.SetMapScriptData(MapID, InstanceID, 1, 1, a + 1)
        touming = 0
    elseif b == 3 then
        map.MapCreateCreature(MapID, InstanceID, 5600054, 390, 2981, 238)

        local MsgID = msg.BeginMsgEvent()
        msg.AddMsgEvent(MsgID, 102, 300044) -- ����� ���ߧ� �ӧݧ�ҧݧ֧ߧߧ��� ����ӧڧݧ�� �� �է֧�֧ӧߧ� ����ҧ� ����ާѧ� �ߧ� �ܧ���էڧߧѧ�ѧ� <390,238>
        msg.DispatchWorldMsgEvent(MsgID)
        map.SetMapScriptData(MapID, InstanceID, 1, 1, a + 1)
        touming = 0
    end
end

aux.RegisterCreatureEvent(6030012, 13, "Qyaojing_OnDie")