需要安装：supermacro（3.18以上版本），建议搭配superWoW+cursive两件套（不能只装其中一个）兼容多鸟德情况，团队多鸟且无Cursive时需要手动补dot。
一键实现月火虫群愤怒起手，自动保持月火虫群，月蚀不虫群，日蚀不月火。
V1.0.2 提高月火优先级，增加续航。

/script local c, s, i, b, a = CastShapeshiftForm for i = 1, GetNumShapeshiftForms() do a = select(2, GetShapeshiftFormInfo(i)) if a == "枭兽形态" then s = i break end end if s then b = select(3, GetShapeshiftFormInfo(s)) if not b then c(s) end end
/script local RSIndex, YSIndex = GetPlayerAuraIndex("日蚀"), GetPlayerAuraIndex("月蚀") if RSIndex then rstime = GetPlayerBuffTimeLeft(RSIndex) else rstime = 0 end if YSIndex then ystime = GetPlayerBuffTimeLeft(YSIndex) else ystime = 0 end
/script if Cursive and CheckSuperWow() then local _, guid = UnitExists("target") swarm = Cursive.curses:HasCurse("虫群", guid) moonfire = Cursive.curses:HasCurse("月火术", guid) else swarm = UnitHasAura("target","虫群") moonfire = UnitHasAura("target","月火术") end
/script local i for i = 13, 14 do local _, _, canuse = GetInventoryItemCooldown("player", i) if canuse == 1 and GetInventoryItemCooldown("player", i) == 0 and (rstime > 12 or ystime > 12) then UseInventoryItem(i) end end
/script if MyBuff("斗转星移") then if MyBuff("月蚀") then CastSpellByName("星火术") else CastSpellByName("愤怒") end else if not swarm then CastSpellByName("虫群") elseif not MyBuff("自然之赐") and not moonfire then CastSpellByName("月火术") elseif not UnitHasAura("target", "精灵之火") and UnitHealthMax("target") > 200000 then CastSpellByName("精灵之火") elseif MyBuff("日蚀") then CastSpellByName("愤怒") elseif MyBuff("月蚀") then CastSpellByName("星火术") elseif MyDebuff("昼至") or not MyDebuff("夜至") and MyBuff("万物平衡") then if UnitMana("player") < 1000 then CastSpellByName("星火术(等级 1)") else CastSpellByName("星火术") end elseif UnitMana("player") < 1000 then CastSpellByName("愤怒(等级 4)") else CastSpellByName("愤怒") end end
/script UseItemByName("潮汐神像")
/console Sound_EnableErrorSpeech 1
/script UIErrorsFrame:Clear()

有些朋友只想要循环，手动补dot，可以用以下宏

/script local c, s, i, b, a = CastShapeshiftForm for i = 1, GetNumShapeshiftForms() do a = select(2, GetShapeshiftFormInfo(i)) if a == "枭兽形态" then s = i break end end if s then b = select(3, GetShapeshiftFormInfo(s)) if not b then c(s) end end
/script local RSIndex, YSIndex = GetPlayerAuraIndex("日蚀"), GetPlayerAuraIndex("月蚀") if RSIndex then rstime = GetPlayerBuffTimeLeft(RSIndex) else rstime = 0 end if YSIndex then ystime = GetPlayerBuffTimeLeft(YSIndex) else ystime = 0 end
/script local i for i = 13, 14 do local _, _, canuse = GetInventoryItemCooldown("player", i) if canuse == 1 and GetInventoryItemCooldown("player", i) == 0 and (rstime > 12 or ystime > 12) then UseInventoryItem(i) end end
/script if MyBuff("斗转星移") then if MyBuff("月蚀") then CastSpellByName("星火术") else CastSpellByName("愤怒") end else if MyBuff("日蚀") then CastSpellByName("愤怒") elseif MyBuff("月蚀") then CastSpellByName("星火术") elseif MyDebuff("昼至") or not MyDebuff("夜至") and MyBuff("万物平衡") then if UnitMana("player") < 1000 then CastSpellByName("星火术(等级 1)") else CastSpellByName("星火术") end elseif UnitMana("player") < 1000 then CastSpellByName("愤怒(等级 4)") else CastSpellByName("愤怒") end end
/script UseItemByName("潮汐神像")
/console Sound_EnableErrorSpeech 1
/script UIErrorsFrame:Clear()

• 该帖子由Crazydru 于 4天前 修改。
• 该帖子由Crazydru 于 4天前 修改。
• 该帖子由Crazydru 于 4天前 修改。
• 该帖子由Crazydru 于 4天前 修改。
• 该帖子由Crazydru 于 2天前 修改。
• 该帖子由Crazydru 于 5小时前 修改。
• 该帖子由Crazydru 于 5小时前 修改。

1.18鸟德一键输出宏V1.0.2

0.01 MB

下载

已下载 2 次.