Хитрые макросы

FallenAngel

Дистанция до цели, для тех кто не пользуется гаджетами, координаты, шрифт, цвет можете править сколько угодно, изменили, сохранили, тыркнули макрос повторно

Цветом подсвечивается дистанция: до 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")

FallenAngel

Невпонин макрос на отображение списка ников ближе 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'})

Xenir

Что нужно поменять в невпонином скрипте, чтобы список выводился столбцом?

FallenAngel

Xenir писал(а):

Что нужно поменять в невпонином скрипте, чтобы список выводился столбцом?

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

Ignil

Спасибо большое за дистанс скрипт:) Все работает шикарно, только немного подкорректировал координаты и размер шрифта.

FallenAngel

Макрос на близнецов

Код:

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")

FallenAngel

Версия по центру

Код:

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")

FallenAngel

Исправил ошибки при потере фокуса, обновите

FallenAngel

Для печати списка доступных адвенчур с айдишником

Код:

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

FallenAngel

Если кому нужен макрос на ускорение всех отправленных приключений за авентурины

Код:

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

FallenAngel

Код:

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")

Fastapoke

Какойто особо хитрый макрос) а таки что оно делает?

FallenAngel

Это для прайма, отображение ярости просто цифиркой, Хорс просил

FallenAngel

Макрос на уничтожение вещей, вписываете название, жмем и чистый инвентарь

Будьте аккуратны, нет подтверждений и уничтожает все и сразу

Код:

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

FallenAngel

Все забываю написать, сделайте все макрос на самоубийство, весьма полезная штука для быстрого вайпа, или например когда надо полутать сумочку с рифт-лутом без риска слутать ее всю. Для ачив-рейдов наличие макроса является обязательным требованием.

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

Код:

#show Soul Walk
cast Last Resort

FallenAngel

Про второй вариант самоубийства: Деп прости, был не прав, я исполнил все через одно место и поэтому у меня не заработало, тебе спасибо за идею

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

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

Ну и собственно сама абилка

Код:

cast Incorporeal

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

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

Хитрые макросы

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