Вход


Часовой пояс: UTC + 4 часа


Текущее время: 22 окт 2018, 21:11




Начать новую тему Ответить на тему  [ Сообщений: 16 ] 
Автор Сообщение
 Заголовок сообщения: Хитрые макросы
СообщениеДобавлено: 05 дек 2015, 03:34 
Leader
Leader
Аватара пользователя

Зарегистрирован: 15 дек 2011, 00:44
Сообщения: 5405
Архетип: Mage
Медали: 17

Мегадед
Дед просто запредельный Рейд лидер
За проведение рейдов Мегасаппорт
За лучший саппорт! Мегатанк
Лучший танк!
Маг Топ ДПС
За мощный ДПС! Разработчик аддонов
За мощные аддоны к игре! Инфернальный Шлем Деда
60 месяцев в гильдии Инфернальный Сапог Первопроходца
Участвовать в 50-ти фесткиллах рейдовых боссов
Адамантовая Перчатка Расхитителя
Приобрести 150 предметов за ДКП Инфернальный Компас Путешественника
Набрать 30К очков за достижения Инфернальная Лопата Кладоискателя
Собрать 1500 коллекций артефактов Инфернальная Планарная Звезда
Набрать 1500 очков планарного слияния
Инфернальный Череп Дракона
Заработать 4000 ДКП в рейдах Инфернальный Знак Воителя
Принять участие в 600 рейдах Убийца
Достичь 100-го PvP ранга Трудоголик
Прокачать все 11 профессий до максимума
Благотворитель
Пожертвовать 10000 платины
Дистанция до цели, для тех кто не пользуется гаджетами, координаты, шрифт, цвет можете править сколько угодно, изменили, сохранили, тыркнули макрос повторно :)

Цветом подсвечивается дистанция: до 3м зеленый, до 30 желтый, до 35 оранжевый, дальше красный

Код:
script if not rm then rm=UI.CreateFrame('Text','Text',UI.CreateContext('RM')) end rm:SetPoint("CENTER", UIParent, "TOPLEFT", 300, 300)rm:SetFontSize(24)rm:SetEffectGlow({strength=2})
script Command.Event.Detach(Event.Unit.Detail.Coord, rm.u, "rmu") Command.Event.Detach(Event.Unit.Remove, rm.u, "rmu")
script function rm.c(p,t)if p and t then local dx,dy,dz=p.coordX-t.coordX,p.coordY-t.coordY,p.coordZ-t.coordZ rm.t(math.max(0,math.sqrt(dx*dx+dy*dy+dz*dz)-(p.radius or 0.5)-(t.radius or 0.5))) else rm.t()end end
script function rm.fc(v)if v<3 then rm:SetFontColor(0.6,1,0.6,1)else if v<30 then rm:SetFontColor(1,1,0.6,1) else if v<35 then rm:SetFontColor(1,0.6,0,1)else rm:SetFontColor(1,0,0,1)end end end end
script function rm.t(v)if v then rm:SetText(string.format("%.01f",v))rm.fc(v) else rm:SetText("")end end
script function rm.u()if Inspect.System.Watchdog()<0.1 then return end rm.c(Inspect.Unit.Detail("player"),Inspect.Unit.Detail("player.target")) end
script Command.Event.Attach(Event.Unit.Detail.Coord, rm.u, "rmu")Command.Event.Attach(Event.Unit.Remove, rm.u, "rmu")

_________________
Minion Sender (Curse)
Rift Utilz


Вернуться к началу
 Не в сети Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Хитрые макросы
СообщениеДобавлено: 05 дек 2015, 03:50 
Leader
Leader
Аватара пользователя

Зарегистрирован: 15 дек 2011, 00:44
Сообщения: 5405
Архетип: Mage
Медали: 17

Мегадед
Дед просто запредельный Рейд лидер
За проведение рейдов Мегасаппорт
За лучший саппорт! Мегатанк
Лучший танк!
Маг Топ ДПС
За мощный ДПС! Разработчик аддонов
За мощные аддоны к игре! Инфернальный Шлем Деда
60 месяцев в гильдии Инфернальный Сапог Первопроходца
Участвовать в 50-ти фесткиллах рейдовых боссов
Адамантовая Перчатка Расхитителя
Приобрести 150 предметов за ДКП Инфернальный Компас Путешественника
Набрать 30К очков за достижения Инфернальная Лопата Кладоискателя
Собрать 1500 коллекций артефактов Инфернальная Планарная Звезда
Набрать 1500 очков планарного слияния
Инфернальный Череп Дракона
Заработать 4000 ДКП в рейдах Инфернальный Знак Воителя
Принять участие в 600 рейдах Убийца
Достичь 100-го PvP ранга Трудоголик
Прокачать все 11 профессий до максимума
Благотворитель
Пожертвовать 10000 платины
Невпонин макрос на отображение списка ников ближе 5 метров

Код:
script a=UI.CreateFrame('Text','Text',UI.CreateContext('HUD')) a:SetPoint('CENTER',UIParent,'CENTER',0,0) a:SetFontSize(30)a:SetVisible(true)print('distancemeter on')lr=0
script function p(x1,x2,z1,z2) if x2~= nil and z2~=nil then return math.floor(math.sqrt((x2-x1)^2+(z2-z1)^2)*10+0.5)/10 else return 6 end end
script function l(b)f=''for c,d in pairs(Inspect.Unit.List())do if(string.find(d,'group')~=nil and string.len(d)==7)then e=Inspect.Unit.Detail(c) if p(b.coordX,e.coordX,b.coordZ,e.coordZ)<5 then f=f..' '..e.name end end end return f end
script function r()if(Inspect.Time.Frame()-lr>0.2)then a:SetText(l(Inspect.Unit.Detail('player')))lr=Inspect.Time.Frame()end end table.insert(Event.System.Update.Begin,{r,'Rift','r'})

_________________
Minion Sender (Curse)
Rift Utilz


Вернуться к началу
 Не в сети Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Хитрые макросы
СообщениеДобавлено: 05 дек 2015, 13:01 
Ascended
Ascended
Аватара пользователя

Зарегистрирован: 18 июл 2014, 13:37
Сообщения: 675
Архетип: Rogue
Медали: 6

Прималист Топ ДПС
За мощный ДПС! Золотой Шлем Деда
36 месяцев в гильдии Железный Сапог Первопроходца
Участвовать в 15-ти фесткиллах рейдовых боссов Медная Перчатка Расхитителя
Приобрести 10 предметов за ДКП
Адамантовый Компас Путешественника
Набрать 26К очков за достижения Медный Знак Воителя
Принять участие в 50 рейдах
Что нужно поменять в невпонином скрипте, чтобы список выводился столбцом?


Вернуться к началу
 Не в сети Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Хитрые макросы
СообщениеДобавлено: 05 дек 2015, 15:01 
Leader
Leader
Аватара пользователя

Зарегистрирован: 15 дек 2011, 00:44
Сообщения: 5405
Архетип: Mage
Медали: 17

Мегадед
Дед просто запредельный Рейд лидер
За проведение рейдов Мегасаппорт
За лучший саппорт! Мегатанк
Лучший танк!
Маг Топ ДПС
За мощный ДПС! Разработчик аддонов
За мощные аддоны к игре! Инфернальный Шлем Деда
60 месяцев в гильдии Инфернальный Сапог Первопроходца
Участвовать в 50-ти фесткиллах рейдовых боссов
Адамантовая Перчатка Расхитителя
Приобрести 150 предметов за ДКП Инфернальный Компас Путешественника
Набрать 30К очков за достижения Инфернальная Лопата Кладоискателя
Собрать 1500 коллекций артефактов Инфернальная Планарная Звезда
Набрать 1500 очков планарного слияния
Инфернальный Череп Дракона
Заработать 4000 ДКП в рейдах Инфернальный Знак Воителя
Принять участие в 600 рейдах Убийца
Достичь 100-го PvP ранга Трудоголик
Прокачать все 11 профессий до максимума
Благотворитель
Пожертвовать 10000 платины
Xenir писал(а):
Что нужно поменять в невпонином скрипте, чтобы список выводился столбцом?

f=f..' '..e.name
замени на
f=f..'\n'..e.name

_________________
Minion Sender (Curse)
Rift Utilz


Вернуться к началу
 Не в сети Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Хитрые макросы
СообщениеДобавлено: 05 дек 2015, 17:14 
Elder
Elder
Аватара пользователя

Зарегистрирован: 15 сен 2015, 00:26
Сообщения: 431
Архетип: Mage
Медали: 8

Рейд лидер
За проведение рейдов Маг Топ ДПС
За мощный ДПС! Серебряный Шлем Деда
24 месяца в гильдии Медный Сапог Первопроходца
Участвовать в 5-ти фесткиллах рейдовых боссов
Бронзовая Перчатка Расхитителя
Приобрести 25 предметов за ДКП Золотой Компас Путешественника
Набрать 23К очков за достижения Бронзовый Череп Дракона
Заработать 1000 ДКП в рейдах Стальной Знак Воителя
Принять участие в 200 рейдах
Спасибо большое за дистанс скрипт:) Все работает шикарно, только немного подкорректировал координаты и размер шрифта.


Вернуться к началу
 Не в сети Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Хитрые макросы
СообщениеДобавлено: 26 дек 2015, 01:30 
Leader
Leader
Аватара пользователя

Зарегистрирован: 15 дек 2011, 00:44
Сообщения: 5405
Архетип: Mage
Медали: 17

Мегадед
Дед просто запредельный Рейд лидер
За проведение рейдов Мегасаппорт
За лучший саппорт! Мегатанк
Лучший танк!
Маг Топ ДПС
За мощный ДПС! Разработчик аддонов
За мощные аддоны к игре! Инфернальный Шлем Деда
60 месяцев в гильдии Инфернальный Сапог Первопроходца
Участвовать в 50-ти фесткиллах рейдовых боссов
Адамантовая Перчатка Расхитителя
Приобрести 150 предметов за ДКП Инфернальный Компас Путешественника
Набрать 30К очков за достижения Инфернальная Лопата Кладоискателя
Собрать 1500 коллекций артефактов Инфернальная Планарная Звезда
Набрать 1500 очков планарного слияния
Инфернальный Череп Дракона
Заработать 4000 ДКП в рейдах Инфернальный Знак Воителя
Принять участие в 600 рейдах Убийца
Достичь 100-го PvP ранга Трудоголик
Прокачать все 11 профессий до максимума
Благотворитель
Пожертвовать 10000 платины
Макрос на близнецов
Код:
script if not rr then rr=UI.CreateFrame('Text','Text',UI.CreateContext('rr')) end rr:SetPoint("CENTER", UIParent, "TOPLEFT", 300, 300)rr:SetFontSize(24)rr:SetEffectGlow({strength=2})rr:SetText("RUN!")
script Command.Event.Detach(Event.Unit.Detail.Coord, rr.u, "rru") Command.Event.Detach(Event.Unit.Remove, rr.u, "rru")
script function rr.c(p,t)if p and t then local dx,dy,dz=(p.coordX or 0)-(t.coordX or 0),(p.coordY or 0)-(t.coordY or 0),(p.coordZ or 0)-(t.coordZ or 0)rr.fc(math.max(0,math.sqrt(dx*dx+dy*dy+dz*dz)-(p.radius or 0.5)-(t.radius or 0.5))) else rr.fc()end end
script function rr.fc(v) rr:SetVisible(v ~= nil and v < 50) end
script function rr.u()if Inspect.System.Watchdog()<0.1 then return end rr.c(Inspect.Unit.Detail("player"),Inspect.Unit.Detail("focus")) end
script Command.Event.Attach(Event.Unit.Detail.Coord, rr.u, "rru")Command.Event.Attach(Event.Unit.Remove, rr.u, "rru")

_________________
Minion Sender (Curse)
Rift Utilz


Вернуться к началу
 Не в сети Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Хитрые макросы
СообщениеДобавлено: 26 дек 2015, 01:37 
Leader
Leader
Аватара пользователя

Зарегистрирован: 15 дек 2011, 00:44
Сообщения: 5405
Архетип: Mage
Медали: 17

Мегадед
Дед просто запредельный Рейд лидер
За проведение рейдов Мегасаппорт
За лучший саппорт! Мегатанк
Лучший танк!
Маг Топ ДПС
За мощный ДПС! Разработчик аддонов
За мощные аддоны к игре! Инфернальный Шлем Деда
60 месяцев в гильдии Инфернальный Сапог Первопроходца
Участвовать в 50-ти фесткиллах рейдовых боссов
Адамантовая Перчатка Расхитителя
Приобрести 150 предметов за ДКП Инфернальный Компас Путешественника
Набрать 30К очков за достижения Инфернальная Лопата Кладоискателя
Собрать 1500 коллекций артефактов Инфернальная Планарная Звезда
Набрать 1500 очков планарного слияния
Инфернальный Череп Дракона
Заработать 4000 ДКП в рейдах Инфернальный Знак Воителя
Принять участие в 600 рейдах Убийца
Достичь 100-го PvP ранга Трудоголик
Прокачать все 11 профессий до максимума
Благотворитель
Пожертвовать 10000 платины
Версия по центру
Код:
script if not rr then rr=UI.CreateFrame('Text','Text',UI.CreateContext('rr')) end rr:SetPoint("CENTER", UIParent, "CENTER", 0, 0)rr:SetFontSize(24)rr:SetEffectGlow({strength=2})rr:SetText("RUN!")
script Command.Event.Detach(Event.Unit.Detail.Coord, rr.u, "rru") Command.Event.Detach(Event.Unit.Remove, rr.u, "rru")
script function rr.c(p,t)if p and t then local dx,dy,dz=(p.coordX or 0)-(t.coordX or 0),(p.coordY or 0)-(t.coordY or 0),(p.coordZ or 0)-(t.coordZ or 0)rr.fc(math.max(0,math.sqrt(dx*dx+dy*dy+dz*dz)-(p.radius or 0.5)-(t.radius or 0.5))) else rr.fc()end end
script function rr.fc(v) rr:SetVisible(v ~= nil and v < 50) end
script function rr.u()if Inspect.System.Watchdog()<0.1 then return end rr.c(Inspect.Unit.Detail("player"),Inspect.Unit.Detail("focus")) end
script Command.Event.Attach(Event.Unit.Detail.Coord, rr.u, "rru")Command.Event.Attach(Event.Unit.Remove, rr.u, "rru")

_________________
Minion Sender (Curse)
Rift Utilz


Вернуться к началу
 Не в сети Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Хитрые макросы
СообщениеДобавлено: 26 дек 2015, 01:52 
Leader
Leader
Аватара пользователя

Зарегистрирован: 15 дек 2011, 00:44
Сообщения: 5405
Архетип: Mage
Медали: 17

Мегадед
Дед просто запредельный Рейд лидер
За проведение рейдов Мегасаппорт
За лучший саппорт! Мегатанк
Лучший танк!
Маг Топ ДПС
За мощный ДПС! Разработчик аддонов
За мощные аддоны к игре! Инфернальный Шлем Деда
60 месяцев в гильдии Инфернальный Сапог Первопроходца
Участвовать в 50-ти фесткиллах рейдовых боссов
Адамантовая Перчатка Расхитителя
Приобрести 150 предметов за ДКП Инфернальный Компас Путешественника
Набрать 30К очков за достижения Инфернальная Лопата Кладоискателя
Собрать 1500 коллекций артефактов Инфернальная Планарная Звезда
Набрать 1500 очков планарного слияния
Инфернальный Череп Дракона
Заработать 4000 ДКП в рейдах Инфернальный Знак Воителя
Принять участие в 600 рейдах Убийца
Достичь 100-го PvP ранга Трудоголик
Прокачать все 11 профессий до максимума
Благотворитель
Пожертвовать 10000 платины
Исправил ошибки при потере фокуса, обновите

_________________
Minion Sender (Curse)
Rift Utilz


Вернуться к началу
 Не в сети Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Хитрые макросы
СообщениеДобавлено: 11 фев 2016, 01:27 
Leader
Leader
Аватара пользователя

Зарегистрирован: 15 дек 2011, 00:44
Сообщения: 5405
Архетип: Mage
Медали: 17

Мегадед
Дед просто запредельный Рейд лидер
За проведение рейдов Мегасаппорт
За лучший саппорт! Мегатанк
Лучший танк!
Маг Топ ДПС
За мощный ДПС! Разработчик аддонов
За мощные аддоны к игре! Инфернальный Шлем Деда
60 месяцев в гильдии Инфернальный Сапог Первопроходца
Участвовать в 50-ти фесткиллах рейдовых боссов
Адамантовая Перчатка Расхитителя
Приобрести 150 предметов за ДКП Инфернальный Компас Путешественника
Набрать 30К очков за достижения Инфернальная Лопата Кладоискателя
Собрать 1500 коллекций артефактов Инфернальная Планарная Звезда
Набрать 1500 очков планарного слияния
Инфернальный Череп Дракона
Заработать 4000 ДКП в рейдах Инфернальный Знак Воителя
Принять участие в 600 рейдах Убийца
Достичь 100-го PvP ранга Трудоголик
Прокачать все 11 профессий до максимума
Благотворитель
Пожертвовать 10000 платины
Для печати списка доступных адвенчур с айдишником
Код:
script local m=Inspect.Minion.Adventure.Detail(Inspect.Minion.Adventure.List()) for k,v in pairs(m) do if v.mode=="available" then print(k.." - "..v.name) end end

_________________
Minion Sender (Curse)
Rift Utilz


Вернуться к началу
 Не в сети Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Хитрые макросы
СообщениеДобавлено: 30 июл 2016, 21:02 
Leader
Leader
Аватара пользователя

Зарегистрирован: 15 дек 2011, 00:44
Сообщения: 5405
Архетип: Mage
Медали: 17

Мегадед
Дед просто запредельный Рейд лидер
За проведение рейдов Мегасаппорт
За лучший саппорт! Мегатанк
Лучший танк!
Маг Топ ДПС
За мощный ДПС! Разработчик аддонов
За мощные аддоны к игре! Инфернальный Шлем Деда
60 месяцев в гильдии Инфернальный Сапог Первопроходца
Участвовать в 50-ти фесткиллах рейдовых боссов
Адамантовая Перчатка Расхитителя
Приобрести 150 предметов за ДКП Инфернальный Компас Путешественника
Набрать 30К очков за достижения Инфернальная Лопата Кладоискателя
Собрать 1500 коллекций артефактов Инфернальная Планарная Звезда
Набрать 1500 очков планарного слияния
Инфернальный Череп Дракона
Заработать 4000 ДКП в рейдах Инфернальный Знак Воителя
Принять участие в 600 рейдах Убийца
Достичь 100-го PvP ранга Трудоголик
Прокачать все 11 профессий до максимума
Благотворитель
Пожертвовать 10000 платины
Если кому нужен макрос на ускорение всех отправленных приключений за авентурины
Код:
script local a=Inspect.Minion.Adventure.Detail(Inspect.Minion.Adventure.List()) for k,v in pairs(a) do if v.mode=="working" then pcall(Command.Minion.Hurry, k, "aventurine") end end

_________________
Minion Sender (Curse)
Rift Utilz


Вернуться к началу
 Не в сети Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Хитрые макросы
СообщениеДобавлено: 04 янв 2017, 02:08 
Leader
Leader
Аватара пользователя

Зарегистрирован: 15 дек 2011, 00:44
Сообщения: 5405
Архетип: Mage
Медали: 17

Мегадед
Дед просто запредельный Рейд лидер
За проведение рейдов Мегасаппорт
За лучший саппорт! Мегатанк
Лучший танк!
Маг Топ ДПС
За мощный ДПС! Разработчик аддонов
За мощные аддоны к игре! Инфернальный Шлем Деда
60 месяцев в гильдии Инфернальный Сапог Первопроходца
Участвовать в 50-ти фесткиллах рейдовых боссов
Адамантовая Перчатка Расхитителя
Приобрести 150 предметов за ДКП Инфернальный Компас Путешественника
Набрать 30К очков за достижения Инфернальная Лопата Кладоискателя
Собрать 1500 коллекций артефактов Инфернальная Планарная Звезда
Набрать 1500 очков планарного слияния
Инфернальный Череп Дракона
Заработать 4000 ДКП в рейдах Инфернальный Знак Воителя
Принять участие в 600 рейдах Убийца
Достичь 100-го PvP ранга Трудоголик
Прокачать все 11 профессий до максимума
Благотворитель
Пожертвовать 10000 платины
Код:
script if not spb then spb=UI.CreateFrame('Text','Text',UI.CreateContext('SPB')) end spb:SetPoint("CENTER", UIParent, "TOPLEFT", 300, 300)spb:SetEffectGlow({strength=2})spb.ov=-1
script Command.Event.Detach(Event.System.Update.Begin, spb.u, "spbu")
script function spb.s(x)return spb.i(x<0,1,spb.i(x>0,3,2)) end
script function spb.i(x,t,f)if x then return t else return f end end
script function spb.u()if Inspect.System.Watchdog()<0.1 then return end spb.t((Inspect.Unit.Detail("player") or {}).focus or 100) end
script function spb.t(v)if spb.ov~=v then spb.ov=v spb:SetText(tostring(math.abs(v-100)))spb:SetFontColor(unpack(({{.8,.1,.1},{1,1,1},{.4,.6,.9}})[spb.s(v-100)]))end spb:SetFontSize(spb.i(math.abs(v-100)==100,36,24))end
script Command.Event.Attach(Event.System.Update.Begin, spb.u, "spbu")

_________________
Minion Sender (Curse)
Rift Utilz


Вернуться к началу
 Не в сети Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Хитрые макросы
СообщениеДобавлено: 04 янв 2017, 19:04 

Зарегистрирован: 26 мар 2016, 20:33
Сообщения: 73
Архетип: Rogue
Какойто особо хитрый макрос) а таки что оно делает?


Вернуться к началу
 Не в сети Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Хитрые макросы
СообщениеДобавлено: 04 янв 2017, 19:21 
Leader
Leader
Аватара пользователя

Зарегистрирован: 15 дек 2011, 00:44
Сообщения: 5405
Архетип: Mage
Медали: 17

Мегадед
Дед просто запредельный Рейд лидер
За проведение рейдов Мегасаппорт
За лучший саппорт! Мегатанк
Лучший танк!
Маг Топ ДПС
За мощный ДПС! Разработчик аддонов
За мощные аддоны к игре! Инфернальный Шлем Деда
60 месяцев в гильдии Инфернальный Сапог Первопроходца
Участвовать в 50-ти фесткиллах рейдовых боссов
Адамантовая Перчатка Расхитителя
Приобрести 150 предметов за ДКП Инфернальный Компас Путешественника
Набрать 30К очков за достижения Инфернальная Лопата Кладоискателя
Собрать 1500 коллекций артефактов Инфернальная Планарная Звезда
Набрать 1500 очков планарного слияния
Инфернальный Череп Дракона
Заработать 4000 ДКП в рейдах Инфернальный Знак Воителя
Принять участие в 600 рейдах Убийца
Достичь 100-го PvP ранга Трудоголик
Прокачать все 11 профессий до максимума
Благотворитель
Пожертвовать 10000 платины
Это для прайма, отображение ярости просто цифиркой, Хорс просил :)

_________________
Minion Sender (Curse)
Rift Utilz


Вернуться к началу
 Не в сети Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Хитрые макросы
СообщениеДобавлено: 08 апр 2017, 01:34 
Leader
Leader
Аватара пользователя

Зарегистрирован: 15 дек 2011, 00:44
Сообщения: 5405
Архетип: Mage
Медали: 17

Мегадед
Дед просто запредельный Рейд лидер
За проведение рейдов Мегасаппорт
За лучший саппорт! Мегатанк
Лучший танк!
Маг Топ ДПС
За мощный ДПС! Разработчик аддонов
За мощные аддоны к игре! Инфернальный Шлем Деда
60 месяцев в гильдии Инфернальный Сапог Первопроходца
Участвовать в 50-ти фесткиллах рейдовых боссов
Адамантовая Перчатка Расхитителя
Приобрести 150 предметов за ДКП Инфернальный Компас Путешественника
Набрать 30К очков за достижения Инфернальная Лопата Кладоискателя
Собрать 1500 коллекций артефактов Инфернальная Планарная Звезда
Набрать 1500 очков планарного слияния
Инфернальный Череп Дракона
Заработать 4000 ДКП в рейдах Инфернальный Знак Воителя
Принять участие в 600 рейдах Убийца
Достичь 100-го PvP ранга Трудоголик
Прокачать все 11 профессий до максимума
Благотворитель
Пожертвовать 10000 платины
Макрос на уничтожение вещей, вписываете название, жмем и чистый инвентарь :) Будьте аккуратны, нет подтверждений и уничтожает все и сразу
Код:
script droplist = {}
script droplist["Puppet: Faceless Man"] = true
script droplist["Puppet: Tasuil"] = true
script droplist["Bogling Snowman"] = true
script droplist["Holiday Snowman"] = true
script droplist["Snowman"] = true
script droplist["Satyr Snowman"] = true
script droplist["Green Light of Yule"] = true
script droplist["Puppet: Dacia"] = true
script droplist["Blue Light of Yule"] = true
script droplist["Red Light of Yule"] = true
script droplist["Yellow Light of Yule"] = true
script droplist["Puppet: Fae Yule Caroller"] = true
script droplist["Puppet: Fae Yule Spirit Singer"] = true
script local items = Inspect.Item.Detail(Utility.Item.Slot.Inventory()) if items ~= nil then for k, v in pairs(items) do if droplist[v.name or ""] then pcall(Command.Item.Destroy, v.id) end end end

_________________
Minion Sender (Curse)
Rift Utilz


Вернуться к началу
 Не в сети Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Хитрые макросы
СообщениеДобавлено: 14 окт 2017, 13:26 
Leader
Leader
Аватара пользователя

Зарегистрирован: 15 дек 2011, 00:44
Сообщения: 5405
Архетип: Mage
Медали: 17

Мегадед
Дед просто запредельный Рейд лидер
За проведение рейдов Мегасаппорт
За лучший саппорт! Мегатанк
Лучший танк!
Маг Топ ДПС
За мощный ДПС! Разработчик аддонов
За мощные аддоны к игре! Инфернальный Шлем Деда
60 месяцев в гильдии Инфернальный Сапог Первопроходца
Участвовать в 50-ти фесткиллах рейдовых боссов
Адамантовая Перчатка Расхитителя
Приобрести 150 предметов за ДКП Инфернальный Компас Путешественника
Набрать 30К очков за достижения Инфернальная Лопата Кладоискателя
Собрать 1500 коллекций артефактов Инфернальная Планарная Звезда
Набрать 1500 очков планарного слияния
Инфернальный Череп Дракона
Заработать 4000 ДКП в рейдах Инфернальный Знак Воителя
Принять участие в 600 рейдах Убийца
Достичь 100-го PvP ранга Трудоголик
Прокачать все 11 профессий до максимума
Благотворитель
Пожертвовать 10000 платины
Все забываю написать, сделайте все макрос на самоубийство, весьма полезная штука для быстрого вайпа, или например когда надо полутать сумочку с рифт-лутом без риска слутать ее всю. Для ачив-рейдов наличие макроса является обязательным требованием.

Прописав первую строчку на show Soul Walk вы будете видеть кд на него, да и иконка подходящая :)

Код:
#show Soul Walk
cast Last Resort

_________________
Minion Sender (Curse)
Rift Utilz


Вернуться к началу
 Не в сети Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Хитрые макросы
СообщениеДобавлено: 21 янв 2018, 14:06 
Leader
Leader
Аватара пользователя

Зарегистрирован: 15 дек 2011, 00:44
Сообщения: 5405
Архетип: Mage
Медали: 17

Мегадед
Дед просто запредельный Рейд лидер
За проведение рейдов Мегасаппорт
За лучший саппорт! Мегатанк
Лучший танк!
Маг Топ ДПС
За мощный ДПС! Разработчик аддонов
За мощные аддоны к игре! Инфернальный Шлем Деда
60 месяцев в гильдии Инфернальный Сапог Первопроходца
Участвовать в 50-ти фесткиллах рейдовых боссов
Адамантовая Перчатка Расхитителя
Приобрести 150 предметов за ДКП Инфернальный Компас Путешественника
Набрать 30К очков за достижения Инфернальная Лопата Кладоискателя
Собрать 1500 коллекций артефактов Инфернальная Планарная Звезда
Набрать 1500 очков планарного слияния
Инфернальный Череп Дракона
Заработать 4000 ДКП в рейдах Инфернальный Знак Воителя
Принять участие в 600 рейдах Убийца
Достичь 100-го PvP ранга Трудоголик
Прокачать все 11 профессий до максимума
Благотворитель
Пожертвовать 10000 платины
Про второй вариант самоубийства: Деп прости, был не прав, я исполнил все через одно место и поэтому у меня не заработало, тебе спасибо за идею :)

Немного теории: для того чтобы можно было вставать прямо на месте, без телепорта к реальному кладбищу, вам надо отвязаться от кладбища. Идея состоит в том, чтобы привязаться к кладбищу, которое временное и исчезнет, сделать это можно в родном дименшене. Инстанс вашего дименшена существует после первого входа туда и до момента релога, соответственно и кладбище так же. Привязка осуществляется при помощи нажатия кнопки Respawn при смерти, и никак иначе, бег около кладбищ или разговор с медиком никак вас не привязывают.

Итак, практика:
1. портуемся в дименшен
2. убиваемся при помощи Last Resort
3. встаем через Respawn
4. выходим из дименшена
5. релогаемся

Ну и собственно сама абилка
Код:
cast Incorporeal


P.S. тут есть некий диссонанс, что вроде как в рейде мы нажимаем респаун и встаем у входа, но привязка не осуществляется, ну видимо это особенность инстанса дименшена, что там все-таки реальное кладбище есть

P.P.S. сие работает не со всеми дименшенами, на данный момент известно, что не работает с Octus Monastery

_________________
Minion Sender (Curse)
Rift Utilz


Вернуться к началу
 Не в сети Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 16 ] 

Часовой пояс: UTC + 4 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти: