Добавлен , опубликован
Алгоритмы, Наработки и Способности
Способ реализации:
vJass
Тип:
Наработка
Версия Warcraft:
1.26, 1.27a, 1.27b, 1.28f
Магазин на фреймах
- Обычный магазин на фреймах, имеет 128 предметов, продает выбранному юниту...

Функционал
- Кнопки в виде любой иконки юнита/ предмета/ спелла.
- Название и описание, стоимость для любого предмета.
- Средняя скорость отклика на нажатие фрейма, с помощью 7-ми юнитов.
- Полная поддержка мультиплеера.

Требования
- Уверенное пользование jass.
- Мемхак анрайза. (>1.3)
- pjass для работы мемхака. (Закинуть в JNGP/jasshelper)

Использование
1. Скачиваем пример.
2. Копируем папку триггеров Shop и кидаем к себе в карту.
3. Экспортируем text.fdf, uitoc.toc и кидаем к себе в карту.
4. Настраиваем это дело.
5. Радуемся. (optional)

Принцип работы
- Используется быстрый синх булевых через локальный выбор.
- Схема старая.
- Скорость синха - ~700мс.

Код
- 7.
ItemSettings
library ItemInit

    function InitItemVar takes nothing returns nothing

        set ItemText[0] = "Урна с прахом Теренаса"
        set ItemIconPath[0] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[0] = 200
        set ItemLumberCost[0] = 100
        set ItemId[0] = 'ktrm'
        set ItemDesc[0] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[1] = "Урна с прахом Теренаса"
        set ItemIconPath[1] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[1] = 200
        set ItemLumberCost[1] = 100
        set ItemId[1] = 'ktrm'
        set ItemDesc[1] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[2] = "Урна с прахом Теренаса"
        set ItemIconPath[2] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[2] = 200
        set ItemLumberCost[2] = 100
        set ItemId[2] = 'ktrm'
        set ItemDesc[2] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[3] = "Урна с прахом Теренаса"
        set ItemIconPath[3] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[3] = 200
        set ItemLumberCost[3] = 100
        set ItemId[3] = 'ktrm'
        set ItemDesc[3] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[4] = "Урна с прахом Теренаса"
        set ItemIconPath[4] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[4] = 200
        set ItemLumberCost[4] = 100
        set ItemId[4] = 'ktrm'
        set ItemDesc[4] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[5] = "Урна с прахом Теренаса"
        set ItemIconPath[5] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[5] = 200
        set ItemLumberCost[5] = 100
        set ItemId[5] = 'ktrm'
        set ItemDesc[5] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[6] = "Урна с прахом Теренаса"
        set ItemIconPath[6] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[6] = 200
        set ItemLumberCost[6] = 100
        set ItemId[6] = 'ktrm'
        set ItemDesc[6] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[7] = "Урна с прахом Теренаса"
        set ItemIconPath[7] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[7] = 200
        set ItemLumberCost[7] = 100
        set ItemId[7] = 'ktrm'
        set ItemDesc[7] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[8] = "Урна с прахом Теренаса"
        set ItemIconPath[8] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[8] = 200
        set ItemLumberCost[8] = 100
        set ItemId[8] = 'ktrm'
        set ItemDesc[8] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[9] = "Урна с прахом Теренаса"
        set ItemIconPath[9] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[9] = 200
        set ItemLumberCost[9] = 100
        set ItemId[9] = 'ktrm'
        set ItemDesc[9] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[10] = "Урна с прахом Теренаса"
        set ItemIconPath[10] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[10] = 200
        set ItemLumberCost[10] = 100
        set ItemId[10] = 'ktrm'
        set ItemDesc[10] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[11] = "Урна с прахом Теренаса"
        set ItemIconPath[11] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[11] = 200
        set ItemLumberCost[11] = 100
        set ItemId[11] = 'ktrm'
        set ItemDesc[11] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[12] = "Урна с прахом Теренаса"
        set ItemIconPath[12] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[12] = 200
        set ItemLumberCost[12] = 100
        set ItemId[12] = 'ktrm'
        set ItemDesc[12] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[13] = "Урна с прахом Теренаса"
        set ItemIconPath[13] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[13] = 200
        set ItemLumberCost[13] = 100
        set ItemId[13] = 'ktrm'
        set ItemDesc[13] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[14] = "Урна с прахом Теренаса"
        set ItemIconPath[14] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[14] = 200
        set ItemLumberCost[14] = 100
        set ItemId[14] = 'ktrm'
        set ItemDesc[14] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[15] = "Урна с прахом Теренаса"
        set ItemIconPath[15] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[15] = 200
        set ItemLumberCost[15] = 100
        set ItemId[15] = 'ktrm'
        set ItemDesc[15] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[16] = "Урна с прахом Теренаса"
        set ItemIconPath[16] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[16] = 200
        set ItemLumberCost[16] = 100
        set ItemId[16] = 'ktrm'
        set ItemDesc[16] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[17] = "Урна с прахом Теренаса"
        set ItemIconPath[17] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[17] = 200
        set ItemLumberCost[17] = 100
        set ItemId[17] = 'ktrm'
        set ItemDesc[17] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[18] = "Урна с прахом Теренаса"
        set ItemIconPath[18] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[18] = 200
        set ItemLumberCost[18] = 100
        set ItemId[18] = 'ktrm'
        set ItemDesc[18] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[19] = "Урна с прахом Теренаса"
        set ItemIconPath[19] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[19] = 200
        set ItemLumberCost[19] = 100
        set ItemId[19] = 'ktrm'
        set ItemDesc[19] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[20] = "Урна с прахом Теренаса"
        set ItemIconPath[20] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[20] = 200
        set ItemLumberCost[20] = 100
        set ItemId[20] = 'ktrm'
        set ItemDesc[20] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[21] = "Урна с прахом Теренаса"
        set ItemIconPath[21] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[21] = 200
        set ItemLumberCost[21] = 100
        set ItemId[21] = 'ktrm'
        set ItemDesc[21] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[22] = "Урна с прахом Теренаса"
        set ItemIconPath[22] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[22] = 200
        set ItemLumberCost[22] = 100
        set ItemId[22] = 'ktrm'
        set ItemDesc[22] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[23] = "Урна с прахом Теренаса"
        set ItemIconPath[23] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[23] = 200
        set ItemLumberCost[23] = 100
        set ItemId[23] = 'ktrm'
        set ItemDesc[23] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[24] = "Урна с прахом Теренаса"
        set ItemIconPath[24] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[24] = 200
        set ItemLumberCost[24] = 100
        set ItemId[24] = 'ktrm'
        set ItemDesc[24] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[25] = "Урна с прахом Теренаса"
        set ItemIconPath[25] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[25] = 200
        set ItemLumberCost[25] = 100
        set ItemId[25] = 'ktrm'
        set ItemDesc[25] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[26] = "Урна с прахом Теренаса"
        set ItemIconPath[26] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[26] = 200
        set ItemLumberCost[26] = 100
        set ItemId[26] = 'ktrm'
        set ItemDesc[26] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[27] = "Урна с прахом Теренаса"
        set ItemIconPath[27] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[27] = 200
        set ItemLumberCost[27] = 100
        set ItemId[27] = 'ktrm'
        set ItemDesc[27] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[28] = "Урна с прахом Теренаса"
        set ItemIconPath[28] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[28] = 200
        set ItemLumberCost[28] = 100
        set ItemId[28] = 'ktrm'
        set ItemDesc[28] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[29] = "Урна с прахом Теренаса"
        set ItemIconPath[29] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[29] = 200
        set ItemLumberCost[29] = 100
        set ItemId[29] = 'ktrm'
        set ItemDesc[29] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[30] = "Урна с прахом Теренаса"
        set ItemIconPath[30] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[30] = 200
        set ItemLumberCost[30] = 100
        set ItemId[30] = 'ktrm'
        set ItemDesc[30] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[31] = "Урна с прахом Теренаса"
        set ItemIconPath[31] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[31] = 200
        set ItemLumberCost[31] = 100
        set ItemId[31] = 'ktrm'
        set ItemDesc[31] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[32] = "Урна с прахом Теренаса"
        set ItemIconPath[32] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[32] = 200
        set ItemLumberCost[32] = 100
        set ItemId[32] = 'ktrm'
        set ItemDesc[32] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[33] = "Урна с прахом Теренаса"
        set ItemIconPath[33] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[33] = 200
        set ItemLumberCost[33] = 100
        set ItemId[33] = 'ktrm'
        set ItemDesc[33] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[34] = "Урна с прахом Теренаса"
        set ItemIconPath[34] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[34] = 200
        set ItemLumberCost[34] = 100
        set ItemId[34] = 'ktrm'
        set ItemDesc[34] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[35] = "Урна с прахом Теренаса"
        set ItemIconPath[35] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[35] = 200
        set ItemLumberCost[35] = 100
        set ItemId[35] = 'ktrm'
        set ItemDesc[35] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[36] = "Урна с прахом Теренаса"
        set ItemIconPath[36] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[36] = 200
        set ItemLumberCost[36] = 100
        set ItemId[36] = 'ktrm'
        set ItemDesc[36] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[37] = "Урна с прахом Теренаса"
        set ItemIconPath[37] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[37] = 200
        set ItemLumberCost[37] = 100
        set ItemId[37] = 'ktrm'
        set ItemDesc[37] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[38] = "Урна с прахом Теренаса"
        set ItemIconPath[38] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[38] = 200
        set ItemLumberCost[38] = 100
        set ItemId[38] = 'ktrm'
        set ItemDesc[38] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[39] = "Урна с прахом Теренаса"
        set ItemIconPath[39] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[39] = 200
        set ItemLumberCost[39] = 100
        set ItemId[39] = 'ktrm'
        set ItemDesc[39] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[40] = "Урна с прахом Теренаса"
        set ItemIconPath[40] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[40] = 200
        set ItemLumberCost[40] = 100
        set ItemId[40] = 'ktrm'
        set ItemDesc[40] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[41] = "Урна с прахом Теренаса"
        set ItemIconPath[41] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[41] = 200
        set ItemLumberCost[41] = 100
        set ItemId[41] = 'ktrm'
        set ItemDesc[41] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[42] = "Урна с прахом Теренаса"
        set ItemIconPath[42] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[42] = 200
        set ItemLumberCost[42] = 100
        set ItemId[42] = 'ktrm'
        set ItemDesc[42] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[43] = "Урна с прахом Теренаса"
        set ItemIconPath[43] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[43] = 200
        set ItemLumberCost[43] = 100
        set ItemId[43] = 'ktrm'
        set ItemDesc[43] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[44] = "Урна с прахом Теренаса"
        set ItemIconPath[44] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[44] = 200
        set ItemLumberCost[44] = 100
        set ItemId[44] = 'ktrm'
        set ItemDesc[44] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[45] = "Урна с прахом Теренаса"
        set ItemIconPath[45] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[45] = 200
        set ItemLumberCost[45] = 100
        set ItemId[45] = 'ktrm'
        set ItemDesc[45] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[46] = "Урна с прахом Теренаса"
        set ItemIconPath[46] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[46] = 200
        set ItemLumberCost[46] = 100
        set ItemId[46] = 'ktrm'
        set ItemDesc[46] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[47] = "Урна с прахом Теренаса"
        set ItemIconPath[47] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[47] = 200
        set ItemLumberCost[47] = 100
        set ItemId[47] = 'ktrm'
        set ItemDesc[47] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[48] = "Урна с прахом Теренаса"
        set ItemIconPath[48] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[48] = 200
        set ItemLumberCost[48] = 100
        set ItemId[48] = 'ktrm'
        set ItemDesc[48] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[49] = "Урна с прахом Теренаса"
        set ItemIconPath[49] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[49] = 200
        set ItemLumberCost[49] = 100
        set ItemId[49] = 'ktrm'
        set ItemDesc[49] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[50] = "Урна с прахом Теренаса"
        set ItemIconPath[50] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[50] = 200
        set ItemLumberCost[50] = 100
        set ItemId[50] = 'ktrm'
        set ItemDesc[50] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[51] = "Урна с прахом Теренаса"
        set ItemIconPath[51] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[51] = 200
        set ItemLumberCost[51] = 100
        set ItemId[51] = 'ktrm'
        set ItemDesc[51] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[52] = "Урна с прахом Теренаса"
        set ItemIconPath[52] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[52] = 200
        set ItemLumberCost[52] = 100
        set ItemId[52] = 'ktrm'
        set ItemDesc[52] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[53] = "Урна с прахом Теренаса"
        set ItemIconPath[53] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[53] = 200
        set ItemLumberCost[53] = 100
        set ItemId[53] = 'ktrm'
        set ItemDesc[53] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[54] = "Урна с прахом Теренаса"
        set ItemIconPath[54] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[54] = 200
        set ItemLumberCost[54] = 100
        set ItemId[54] = 'ktrm'
        set ItemDesc[54] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[55] = "Урна с прахом Теренаса"
        set ItemIconPath[55] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[55] = 200
        set ItemLumberCost[55] = 100
        set ItemId[55] = 'ktrm'
        set ItemDesc[55] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[56] = "Урна с прахом Теренаса"
        set ItemIconPath[56] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[56] = 200
        set ItemLumberCost[56] = 100
        set ItemId[56] = 'ktrm'
        set ItemDesc[56] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[57] = "Урна с прахом Теренаса"
        set ItemIconPath[57] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[57] = 200
        set ItemLumberCost[57] = 100
        set ItemId[57] = 'ktrm'
        set ItemDesc[57] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[58] = "Урна с прахом Теренаса"
        set ItemIconPath[58] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[58] = 200
        set ItemLumberCost[58] = 100
        set ItemId[58] = 'ktrm'
        set ItemDesc[58] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[59] = "Урна с прахом Теренаса"
        set ItemIconPath[59] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[59] = 200
        set ItemLumberCost[59] = 100
        set ItemId[59] = 'ktrm'
        set ItemDesc[59] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[60] = "Урна с прахом Теренаса"
        set ItemIconPath[60] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[60] = 200
        set ItemLumberCost[60] = 100
        set ItemId[60] = 'ktrm'
        set ItemDesc[60] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[61] = "Урна с прахом Теренаса"
        set ItemIconPath[61] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[61] = 200
        set ItemLumberCost[61] = 100
        set ItemId[61] = 'ktrm'
        set ItemDesc[61] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[62] = "Урна с прахом Теренаса"
        set ItemIconPath[62] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[62] = 200
        set ItemLumberCost[62] = 100
        set ItemId[62] = 'ktrm'
        set ItemDesc[62] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[63] = "Урна с прахом Теренаса"
        set ItemIconPath[63] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[63] = 200
        set ItemLumberCost[63] = 100
        set ItemId[63] = 'ktrm'
        set ItemDesc[63] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[64] = "Урна с прахом Теренаса"
        set ItemIconPath[64] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[64] = 200
        set ItemLumberCost[64] = 100
        set ItemId[64] = 'ktrm'
        set ItemDesc[64] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[65] = "Урна с прахом Теренаса"
        set ItemIconPath[65] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[65] = 200
        set ItemLumberCost[65] = 100
        set ItemId[65] = 'ktrm'
        set ItemDesc[65] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[66] = "Урна с прахом Теренаса"
        set ItemIconPath[66] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[66] = 200
        set ItemLumberCost[66] = 100
        set ItemId[66] = 'ktrm'
        set ItemDesc[66] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[67] = "Урна с прахом Теренаса"
        set ItemIconPath[67] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[67] = 200
        set ItemLumberCost[67] = 100
        set ItemId[67] = 'ktrm'
        set ItemDesc[67] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[68] = "Урна с прахом Теренаса"
        set ItemIconPath[68] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[68] = 200
        set ItemLumberCost[68] = 100
        set ItemId[68] = 'ktrm'
        set ItemDesc[68] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[69] = "Урна с прахом Теренаса"
        set ItemIconPath[69] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[69] = 200
        set ItemLumberCost[69] = 100
        set ItemId[69] = 'ktrm'
        set ItemDesc[69] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[70] = "Урна с прахом Теренаса"
        set ItemIconPath[70] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[70] = 200
        set ItemLumberCost[70] = 100
        set ItemId[70] = 'ktrm'
        set ItemDesc[70] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[71] = "Урна с прахом Теренаса"
        set ItemIconPath[71] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[71] = 200
        set ItemLumberCost[71] = 100
        set ItemId[71] = 'ktrm'
        set ItemDesc[71] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[72] = "Урна с прахом Теренаса"
        set ItemIconPath[72] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[72] = 200
        set ItemLumberCost[72] = 100
        set ItemId[72] = 'ktrm'
        set ItemDesc[72] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[73] = "Урна с прахом Теренаса"
        set ItemIconPath[73] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[73] = 200
        set ItemLumberCost[73] = 100
        set ItemId[73] = 'ktrm'
        set ItemDesc[73] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[74] = "Урна с прахом Теренаса"
        set ItemIconPath[74] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[74] = 200
        set ItemLumberCost[74] = 100
        set ItemId[74] = 'ktrm'
        set ItemDesc[74] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[75] = "Урна с прахом Теренаса"
        set ItemIconPath[75] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[75] = 200
        set ItemLumberCost[75] = 100
        set ItemId[75] = 'ktrm'
        set ItemDesc[75] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[76] = "Урна с прахом Теренаса"
        set ItemIconPath[76] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[76] = 200
        set ItemLumberCost[76] = 100
        set ItemId[76] = 'ktrm'
        set ItemDesc[76] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[77] = "Урна с прахом Теренаса"
        set ItemIconPath[77] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[77] = 200
        set ItemLumberCost[77] = 100
        set ItemId[77] = 'ktrm'
        set ItemDesc[77] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[78] = "Урна с прахом Теренаса"
        set ItemIconPath[78] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[78] = 200
        set ItemLumberCost[78] = 100
        set ItemId[78] = 'ktrm'
        set ItemDesc[78] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[79] = "Урна с прахом Теренаса"
        set ItemIconPath[79] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[79] = 200
        set ItemLumberCost[79] = 100
        set ItemId[79] = 'ktrm'
        set ItemDesc[79] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[80] = "Урна с прахом Теренаса"
        set ItemIconPath[80] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[80] = 200
        set ItemLumberCost[80] = 100
        set ItemId[80] = 'ktrm'
        set ItemDesc[80] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[81] = "Урна с прахом Теренаса"
        set ItemIconPath[81] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[81] = 200
        set ItemLumberCost[81] = 100
        set ItemId[81] = 'ktrm'
        set ItemDesc[81] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[82] = "Урна с прахом Теренаса"
        set ItemIconPath[82] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[82] = 200
        set ItemLumberCost[82] = 100
        set ItemId[82] = 'ktrm'
        set ItemDesc[82] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[83] = "Урна с прахом Теренаса"
        set ItemIconPath[83] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[83] = 200
        set ItemLumberCost[83] = 100
        set ItemId[83] = 'ktrm'
        set ItemDesc[83] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[84] = "Урна с прахом Теренаса"
        set ItemIconPath[84] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[84] = 200
        set ItemLumberCost[84] = 100
        set ItemId[84] = 'ktrm'
        set ItemDesc[84] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[85] = "Урна с прахом Теренаса"
        set ItemIconPath[85] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[85] = 200
        set ItemLumberCost[85] = 100
        set ItemId[85] = 'ktrm'
        set ItemDesc[85] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[86] = "Урна с прахом Теренаса"
        set ItemIconPath[86] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[86] = 200
        set ItemLumberCost[86] = 100
        set ItemId[86] = 'ktrm'
        set ItemDesc[86] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[87] = "Урна с прахом Теренаса"
        set ItemIconPath[87] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[87] = 200
        set ItemLumberCost[87] = 100
        set ItemId[87] = 'ktrm'
        set ItemDesc[87] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[88] = "Урна с прахом Теренаса"
        set ItemIconPath[88] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[88] = 200
        set ItemLumberCost[88] = 100
        set ItemId[88] = 'ktrm'
        set ItemDesc[88] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[89] = "Урна с прахом Теренаса"
        set ItemIconPath[89] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[89] = 200
        set ItemLumberCost[89] = 100
        set ItemId[89] = 'ktrm'
        set ItemDesc[89] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[90] = "Урна с прахом Теренаса"
        set ItemIconPath[90] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[90] = 200
        set ItemLumberCost[90] = 100
        set ItemId[90] = 'ktrm'
        set ItemDesc[90] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[91] = "Урна с прахом Теренаса"
        set ItemIconPath[91] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[91] = 200
        set ItemLumberCost[91] = 100
        set ItemId[91] = 'ktrm'
        set ItemDesc[91] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[92] = "Урна с прахом Теренаса"
        set ItemIconPath[92] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[92] = 200
        set ItemLumberCost[92] = 100
        set ItemId[92] = 'ktrm'
        set ItemDesc[92] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[93] = "Урна с прахом Теренаса"
        set ItemIconPath[93] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[93] = 200
        set ItemLumberCost[93] = 100
        set ItemId[93] = 'ktrm'
        set ItemDesc[93] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[94] = "Урна с прахом Теренаса"
        set ItemIconPath[94] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[94] = 200
        set ItemLumberCost[94] = 100
        set ItemId[94] = 'ktrm'
        set ItemDesc[94] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[95] = "Урна с прахом Теренаса"
        set ItemIconPath[95] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[95] = 200
        set ItemLumberCost[95] = 100
        set ItemId[95] = 'ktrm'
        set ItemDesc[95] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[96] = "Урна с прахом Теренаса"
        set ItemIconPath[96] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[96] = 200
        set ItemLumberCost[96] = 100
        set ItemId[96] = 'ktrm'
        set ItemDesc[96] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[97] = "Урна с прахом Теренаса"
        set ItemIconPath[97] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[97] = 200
        set ItemLumberCost[97] = 100
        set ItemId[97] = 'ktrm'
        set ItemDesc[97] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[98] = "Урна с прахом Теренаса"
        set ItemIconPath[98] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[98] = 200
        set ItemLumberCost[98] = 100
        set ItemId[98] = 'ktrm'
        set ItemDesc[98] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[99] = "Урна с прахом Теренаса"
        set ItemIconPath[99] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[99] = 200
        set ItemLumberCost[99] = 100
        set ItemId[99] = 'ktrm'
        set ItemDesc[99] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[100] = "Урна с прахом Теренаса"
        set ItemIconPath[100] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[100] = 200
        set ItemLumberCost[100] = 100
        set ItemId[100] = 'ktrm'
        set ItemDesc[100] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[101] = "Урна с прахом Теренаса"
        set ItemIconPath[101] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[101] = 200
        set ItemLumberCost[101] = 100
        set ItemId[101] = 'ktrm'
        set ItemDesc[101] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[102] = "Урна с прахом Теренаса"
        set ItemIconPath[102] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[102] = 200
        set ItemLumberCost[102] = 100
        set ItemId[102] = 'ktrm'
        set ItemDesc[102] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[103] = "Урна с прахом Теренаса"
        set ItemIconPath[103] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[103] = 200
        set ItemLumberCost[103] = 100
        set ItemId[103] = 'ktrm'
        set ItemDesc[103] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[104] = "Урна с прахом Теренаса"
        set ItemIconPath[104] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[104] = 200
        set ItemLumberCost[104] = 100
        set ItemId[104] = 'ktrm'
        set ItemDesc[104] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[105] = "Урна с прахом Теренаса"
        set ItemIconPath[105] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[105] = 200
        set ItemLumberCost[105] = 100
        set ItemId[105] = 'ktrm'
        set ItemDesc[105] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[106] = "Урна с прахом Теренаса"
        set ItemIconPath[106] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[106] = 200
        set ItemLumberCost[106] = 100
        set ItemId[106] = 'ktrm'
        set ItemDesc[106] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[107] = "Урна с прахом Теренаса"
        set ItemIconPath[107] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[107] = 200
        set ItemLumberCost[107] = 100
        set ItemId[107] = 'ktrm'
        set ItemDesc[107] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[108] = "Урна с прахом Теренаса"
        set ItemIconPath[108] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[108] = 200
        set ItemLumberCost[108] = 100
        set ItemId[108] = 'ktrm'
        set ItemDesc[108] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[109] = "Урна с прахом Теренаса"
        set ItemIconPath[109] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[109] = 200
        set ItemLumberCost[109] = 100
        set ItemId[109] = 'ktrm'
        set ItemDesc[109] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[110] = "Урна с прахом Теренаса"
        set ItemIconPath[110] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[110] = 200
        set ItemLumberCost[110] = 100
        set ItemId[110] = 'ktrm'
        set ItemDesc[110] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[111] = "Урна с прахом Теренаса"
        set ItemIconPath[111] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[111] = 200
        set ItemLumberCost[111] = 100
        set ItemId[111] = 'ktrm'
        set ItemDesc[111] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[112] = "Урна с прахом Теренаса"
        set ItemIconPath[112] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[112] = 200
        set ItemLumberCost[112] = 100
        set ItemId[112] = 'ktrm'
        set ItemDesc[112] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[113] = "Урна с прахом Теренаса"
        set ItemIconPath[113] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[113] = 200
        set ItemLumberCost[113] = 100
        set ItemId[113] = 'ktrm'
        set ItemDesc[113] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[114] = "Урна с прахом Теренаса"
        set ItemIconPath[114] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[114] = 200
        set ItemLumberCost[114] = 100
        set ItemId[114] = 'ktrm'
        set ItemDesc[114] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[115] = "Урна с прахом Теренаса"
        set ItemIconPath[115] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[115] = 200
        set ItemLumberCost[115] = 100
        set ItemId[115] = 'ktrm'
        set ItemDesc[115] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[116] = "Урна с прахом Теренаса"
        set ItemIconPath[116] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[116] = 200
        set ItemLumberCost[116] = 100
        set ItemId[116] = 'ktrm'
        set ItemDesc[116] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[117] = "Урна с прахом Теренаса"
        set ItemIconPath[117] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[117] = 200
        set ItemLumberCost[117] = 100
        set ItemId[117] = 'ktrm'
        set ItemDesc[117] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[118] = "Урна с прахом Теренаса"
        set ItemIconPath[118] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[118] = 200
        set ItemLumberCost[118] = 100
        set ItemId[118] = 'ktrm'
        set ItemDesc[118] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[119] = "Урна с прахом Теренаса"
        set ItemIconPath[119] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[119] = 200
        set ItemLumberCost[119] = 100
        set ItemId[119] = 'ktrm'
        set ItemDesc[119] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[120] = "Урна с прахом Теренаса"
        set ItemIconPath[120] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[120] = 200
        set ItemLumberCost[120] = 100
        set ItemId[120] = 'ktrm'
        set ItemDesc[120] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[121] = "Урна с прахом Теренаса"
        set ItemIconPath[121] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[121] = 200
        set ItemLumberCost[121] = 100
        set ItemId[121] = 'ktrm'
        set ItemDesc[121] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[122] = "Урна с прахом Теренаса"
        set ItemIconPath[122] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[122] = 200
        set ItemLumberCost[122] = 100
        set ItemId[122] = 'ktrm'
        set ItemDesc[122] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[123] = "Урна с прахом Теренаса"
        set ItemIconPath[123] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[123] = 200
        set ItemLumberCost[123] = 100
        set ItemId[123] = 'ktrm'
        set ItemDesc[123] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[124] = "Урна с прахом Теренаса"
        set ItemIconPath[124] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[124] = 200
        set ItemLumberCost[124] = 100
        set ItemId[124] = 'ktrm'
        set ItemDesc[124] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[125] = "Урна с прахом Теренаса"
        set ItemIconPath[125] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[125] = 200
        set ItemLumberCost[125] = 100
        set ItemId[125] = 'ktrm'
        set ItemDesc[125] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[126] = "Урна с прахом Теренаса"
        set ItemIconPath[126] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[126] = 200
        set ItemLumberCost[126] = 100
        set ItemId[126] = 'ktrm'
        set ItemDesc[126] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"

        set ItemText[127] = "Урна с прахом Теренаса"
        set ItemIconPath[127] = "ReplaceableTextures\\CommandButtons\\BTNUrnOfKelThuzad.blp"
        set ItemGoldCost[127] = 200
        set ItemLumberCost[127] = 100
        set ItemId[127] = 'ktrm'
        set ItemDesc[127] = "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r"
        
    endfunction
    
endlibrary

Init
globals
    
    integer MainBackdrop
    integer GoldBackdrop
    integer GoldText
    integer LumberBackdrop
    integer LumberText
    integer ItemNameText
    integer ItemDescText
    
    integer array ItemBackdrop
    integer array ItemButton
    
    string array ItemText
    string array ItemDesc
    string array ItemIconPath
    integer array ItemGoldCost
    integer array ItemLumberCost
    integer array ItemId

    unit array Bit[8]
    unit EndTrans
    unit array SelectedUnit[1]
endglobals

function InitItemFrames takes nothing returns nothing

    local integer i = 0
    local real x = -.07
    local real y = .189

    loop
        exitwhen i == 128
        
        set ItemBackdrop[i] = CreateFrame("ChatHistoryBackdrop", MainBackdrop, 1 + i)
        call SetFrameTexture(ItemBackdrop[i], ItemIconPath[i], false)
        call SetFrameSize(ItemBackdrop[i], .03, .03)
        call SetFramePoint(ItemBackdrop[i], 4, MainBackdrop, 4, x, y)
        
        set ItemButton[i] = CreateFrame("ButtonChat", MainBackdrop, 129 + i)
        call SetFrameSize(ItemButton[i], .03, .03)
        call SetFramePoint(ItemButton[i], 4, ItemBackdrop[i], 4, 0, 0)
        call SetFrameAlpha(ItemButton[i], 0)
        
        set x = x + .021
        if x == .098 then
            set x = -.07
            set y = y - .021
        endif
        set i = i + 1
    endloop
    
endfunction

function Trig_Init_Actions takes nothing returns nothing
    
    local integer i = 0
    local real x = -.05
    local real y = 0
    
    call EnableOPLimit(false)
    call LoadTOCFile("uitoc.toc")
    call InitItemVar()
    
    set MainBackdrop = CreateFrame("ChatHistoryBackdrop", pGameUI, 0)
    call SetFrameSize(MainBackdrop, .2, .41)
    call SetFrameAbsolutePoint(MainBackdrop, 4, .68, .37)
    
    call ExecuteFunc("InitItemFrames")
    
    set ItemNameText = CreateFrame("ChatText1", MainBackdrop, 0)
    call SetFramePoint(ItemNameText, 4, MainBackdrop, 4, -.042, -.145)
    call SetFrameText(ItemNameText, "Урна с прахом Теренаса")
    
    set GoldBackdrop = CreateFrame("ChatHistoryBackdrop", MainBackdrop, 0)
    call SetFrameSize(GoldBackdrop, .026, .026)
    call SetFrameTexture(GoldBackdrop, "UI\\Feedback\\Resources\\ResourceGold.blp", false)
    call SetFramePoint(GoldBackdrop, 4, MainBackdrop, 4, .014, -.145)
    
    set GoldText = CreateFrame("ChatText2", MainBackdrop, 0)
    call SetFramePoint(GoldText, 4, MainBackdrop, 4, .035, -.145)
    call SetFrameText(GoldText, "99999")
    
    set LumberBackdrop = CreateFrame("ChatHistoryBackdrop", MainBackdrop, 0)
    call SetFrameSize(LumberBackdrop, .026, .026)
    call SetFrameTexture(LumberBackdrop, "UI\\Feedback\\Resources\\ResourceLumber.blp", false)
    call SetFramePoint(LumberBackdrop, 4, MainBackdrop, 4, .058, -.145)
    
    set LumberText = CreateFrame("ChatText2", MainBackdrop, 0)
    call SetFramePoint(LumberText, 4, MainBackdrop, 4, .08, -.145)
    call SetFrameText(LumberText, "99999")
    
    set ItemDescText = CreateFrame("ChatText1", MainBackdrop, 0)
    call SetFramePoint(ItemDescText, 4, MainBackdrop, 4, 0, -.177)
    call SetFrameText(ItemDescText, "|c00FFFFFFЭта магическая урна, некогда служившая |n вместилищем праха короля Теренаса, была |n избрана Тикондрусом для хранения останков |n Кел-Тузеда.|r")
    
    set i = 0
    loop
    exitwhen i == 8
    
        set Bit[i] = CreateUnit(Player(15), 'hfoo', 0, 0, 0)
    
    set i = i + 1
    endloop
    set EndTrans = CreateUnit(Player(15), 'hfoo', 0, 0, 0)
    
    // TEST

    call SetPlayerState(Player(0), PLAYER_STATE_GOLD_GATHERED, 1000)
    call SetPlayerState(Player(0), PLAYER_STATE_LUMBER_GATHERED, 1000)
    call SetPlayerState(Player(1), PLAYER_STATE_GOLD_GATHERED, 1000)
    call SetPlayerState(Player(1), PLAYER_STATE_LUMBER_GATHERED, 1000)
    
    // ENDTEST
endfunction

//===========================================================================
function InitTrig_Init takes nothing returns nothing
    set gg_trg_Init = CreateTrigger(  )
    call TriggerRegisterTimerEventSingle( gg_trg_Init, 0.05 )
    call TriggerAddAction( gg_trg_Init, function Trig_Init_Actions )
endfunction

Sync
library BinOperations
function Mod2 takes integer n returns integer

    local real num = I2R(n) / I2R(2)
    local integer i = 0
    loop
    exitwhen i > StringLength(R2S(num)) - 2
    if SubString(R2S(num), i, i + 2) == ".0" then
        return 0
    endif
    set i = i + 1
    endloop
    return 1
endfunction

function ToBin takes integer n returns string
    local integer bin = 0
    local integer i = 0
    local string s = ""
    local string ts = ""
    
    if n == 0 then
        return "0"
    endif
    
    loop
    exitwhen not (n > 0)

        set bin = Mod2(n)
        set n = n / 2
        set s = s + I2S(bin)
        
    set i = i + 1
    endloop
    
    // Переворот
    set i = StringLength(s)
    loop
    exitwhen StringLength(ts) == StringLength(s)
        
        set ts = ts + SubString(s, i - 1, i)
        
    set i = i - 1
    endloop
    

    return ts
    
endfunction

function ToDec takes string n returns integer

    local integer temp = 0
    local integer sum = 0
    local integer i = 0
    local integer j = StringLength(n) - 1
    
    loop
    exitwhen i == StringLength(n)
    
        set temp = S2I(SubString(n, i, i + 1)) * PowI(2, j)

        set sum = sum + temp
        set j = j - 1
    set i = i + 1
    endloop
    
    return sum
    
endfunction
endlibrary
globals
    string array TempTrans[1][7]
endglobals

function ItemCreate takes unit u, integer id returns nothing
    local item it = CreateItem(ItemId[id] , GetUnitX(u), GetUnitY(u))
    call UnitAddItem(u, it)
    set it = null
endfunction

function Trig_Sync_Actions takes nothing returns nothing

    local integer pid = GetPlayerId(GetTriggerPlayer())
    local integer i = 0
    local string num = ""
    local integer b = 0
    
    loop
    exitwhen i == 8
    
    if GetTriggerUnit() == Bit[i] then
        set TempTrans[pid][i] = "1"
        set b = 1
    endif   
    
    set i = i + 1
    endloop
    
    if b == 0 and GetOwningPlayer(GetTriggerUnit()) == GetTriggerPlayer() then
        set SelectedUnit[pid] = GetTriggerUnit()
    endif
    
    if GetTriggerUnit() == EndTrans then
        set i = 0
        loop
        exitwhen i == 5
        
        set num = num + TempTrans[pid][i]
        set TempTrans[pid][i] = "0"
        
        set i = i + 1
        endloop
        call ItemCreate(SelectedUnit[pid], ToDec(num))
        if GetLocalPlayer() == GetTriggerPlayer() then
            call SelectUnit(SelectedUnit[pid], true)
        endif
    endif
    
endfunction

//===========================================================================
function InitTrig_Sync takes nothing returns nothing
    local integer i = 0
    local integer j = 0
    loop
    exitwhen i == 2
        set j = 0
        loop
        exitwhen j == 8
            set TempTrans[i][j] = "0"
        set j = j + 1
        endloop
    set i = i + 1
    endloop
    set gg_trg_Sync = CreateTrigger(  )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_Sync, Player(0), true )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_Sync, Player(1), true )
    call TriggerAddAction( gg_trg_Sync, function Trig_Sync_Actions )
endfunction

MouseEvent
globals
    boolean KeySpan
    real TempCurTime = 0
    boolean BackdropMove = false
endglobals

function SyncChoose takes integer n returns nothing
    local string bin = ToBin(n)
    local integer i = 0
    
    loop
    exitwhen StringLength(bin) == 8
    set bin = "0" + bin
    endloop
    
    set i = 0
    loop
    exitwhen i == 8
    if SubString(bin, i, i + 1) == "1" then
        call SelectUnit(Bit[i], true)
        call ClearSelection()
    endif
    set i = i + 1
    endloop
    call SelectUnit(EndTrans, true)
    call ClearSelection()
endfunction

function ItemLoop takes integer p, integer layer returns nothing
    local integer i = 0
    local real x = -.07
    local real y = .189
    local integer b = 0
    
    loop
        exitwhen i == 128

        if ItemButton[i] == layer then
            call SetFrameSize(ItemBackdrop[i], .032, .032)
            call SetFrameAlpha(ItemBackdrop[i], 255)
            set b = 1
            if IsKeyPressed(0x01) and KeySpan and GetPlayerState(Player(p), PLAYER_STATE_GOLD_GATHERED) >= ItemGoldCost[i] and GetPlayerState(Player(p), PLAYER_STATE_LUMBER_GATHERED) >= ItemLumberCost[i] then
                set KeySpan = false
                if SelectedUnit[p] != null then
                call SetPlayerState(Player(p), PLAYER_STATE_GOLD_GATHERED, GetPlayerState(Player(p), PLAYER_STATE_GOLD_GATHERED) - ItemGoldCost[i])
                call SetPlayerState(Player(p), PLAYER_STATE_LUMBER_GATHERED, GetPlayerState(Player(p), PLAYER_STATE_LUMBER_GATHERED) - ItemLumberCost[i])
                call SyncChoose(i)
                else
                    call BJDebugMsg("Нужно выбрать своего юнита!!!")
                endif
                exitwhen true
            endif
        else
            call SetFrameSize(ItemBackdrop[i], .03, .03)
            call SetFrameAlpha(ItemBackdrop[i], 150)
        endif
        
        if b == 1 then
            call SetFrameText(ItemNameText, ItemText[i]           )
            call SetFrameText(GoldText,     I2S(ItemGoldCost[i]  ))
            call SetFrameText(LumberText,   I2S(ItemLumberCost[i]))
            call SetFrameText(ItemDescText, ItemDesc[i]           )
            call SetFrameAlpha(LumberBackdrop, 255)
            call SetFrameAlpha(GoldBackdrop,   255)
        else
            call SetFrameText(ItemNameText, "")
            call SetFrameText(GoldText,     "")
            call SetFrameText(LumberText,   "")
            call SetFrameText(ItemDescText, "")
            call SetFrameAlpha(LumberBackdrop, 0)
            call SetFrameAlpha(GoldBackdrop,   0)
        endif
        
        set x = x + .021
        if x == .098 then
            set x = -.07
            set y = y - .021
        endif
        set i = i + 1
    endloop
endfunction

function Trig_MouseEvent_Actions takes nothing returns nothing

    local integer i = 0
    local integer layer = FindCLayerUnderCursor()
    
    loop
    exitwhen i == 2
    
    if GetLocalPlayer() == Player(i) then

        call ItemLoop(i, layer)
        
        if IsKeyPressed(0x01) then
            set KeySpan = false
        else
            set KeySpan = true
            set BackdropMove = false
        endif
        
    endif

    set i = i + 1
    endloop

endfunction

//===========================================================================
function InitTrig_MouseEvent takes nothing returns nothing
    set gg_trg_MouseEvent = CreateTrigger(  )
    call TriggerRegisterTimerEventPeriodic( gg_trg_MouseEvent, 0.05 )
    call TriggerAddAction( gg_trg_MouseEvent, function Trig_MouseEvent_Actions )
endfunction

`
ОЖИДАНИЕ РЕКЛАМЫ...
2
13
3 года назад
2
С періодом в 0.05 сек. фпс очень сильно проседает. Не для слабых компов.
2
22
3 года назад
2
Borodach:
С періодом в 0.05 сек. фпс очень сильно проседает. Не для слабых компов.
Код точно можно оптимизировать, но мне было как-то лень, + это никому не нужно, а кому надо, тот и без меня все сделает.
1
32
3 года назад
1
Просто стоит учитывать что вызов внутринних функций игры посредством мемхака очень ресурсоемкий, и юзать все эти callthis, stdcall нужно с умом.
Нативки или код в движке гораздо шустрее, потому все и пилят Длл с этими магазинами, талантами и тому подобным, ибо когда в карте и без того много чего, 6 кадров обеспечено, не стоит юзать функции этого типа бездумно.
2
22
3 года назад
Отредактирован ofeerist
2
quq_CCCP:
Просто стоит учитывать что вызов внутринних функций игры посредством мемхака очень ресурсоемкий, и юзать все эти callthis, stdcall нужно с умом.
Нативки или код в движке гораздо шустрее, потому все и пилят Длл с этими магазинами, талантами и тому подобным, ибо когда в карте и без того много чего, 6 кадров обеспечено, не стоит юзать функции этого типа бездумно.
Давно заметил, что лагает, если слишком много натыкать, а у меня здесь как раз очень много натыкано, если сделать нормальный селектор или как-нибудь оптимизировать существующий, то лаги все пропадут.
Поэтому и говорю, что кому надо, тот сделает вообще без проблем.
Делается бэкдроп с какой-нибудь рамкой и перемещается он, и вот вызовов 2, а не 254.
1
32
3 года назад
1
Анрайз оставил тест, для измерения скорости работы функций, в попугаях конечно, но даёт понять насколько сильно различается ресурсоемкость функций, какие то более быстрее а какие то медленные. Можите по сравнивать ваш код, и наглядно сравнить что даёт оптимизация, и какова разница между нативками и кастом кодом.
0
1
2 года назад
0
Не знаю, не нарушаю ли некрофильством правила, надеюсь, что нет.
Можно ли подобное реализовать не на мемхаке, а на 1.31+?
0
32
2 года назад
0
NoPractice, можно, там вроде завезли функции для фреймов. На хайве были готовые инвентари на фреймах, но там сложноват код для начинющих, хз есть там без изьянов инвентари на фреймах рабочие или нет?
4
15
2 года назад
Отредактирован JackFastGame
4
Оптимизировал селектор + снизил периодичность с 0.05 до 0.02 сек. Производительность выросла в десятки раз.

UPD: можно после выделения массива юнитов сразу же, не дожидаясь события UNIT_SELECTED, выделять своего героя, чтобы выделение не спадало на долю секунды. Проверил в локальной сети, вроде как не влияет на синхронизацию.
Загруженные файлы
0
28
2 года назад
0
снизил периодичность с 0.05 до 0.02
Период 0.05 делает 20 действий в секунду, а 0.02 - 50. Так что она увеличилась.
Чтобы оставить комментарий, пожалуйста, войдите на сайт.