文章標籤：

年代

提前

魔獸

世界

懷舊

服做

準備

60年代各種宏！提前為魔獸世界懷舊服做準備吧！

2020-09-20

文章推薦指數： 80 %

投票人數：10人

60年代各種宏！提前為魔獸世界懷舊服做準備吧！

*以下的職業宏都需要《super macro》插件的支持

一、60年代盜賊1.12版宏：

搬運工，魔獸世界1.12盜賊宏非常的少，大多數都是骨灰玩家，希望大家多多補充，歡迎大家反饋缺少什麼，會儘量補充

/script local p,c,b,i,f=GetComboPoints(),CastSpellByName;for i=1,16 do b=UnitBuff("player",i);if b and strfind(b,"SliceDice") then f=1;break;end;end;if p>0 and not f then c("切割");elseif p==5 and f then c("割裂");else c("邪惡攻擊");end;

pve一鍵dps宏.....戰鬥劍專精作用是有星就切割5星就割裂平時邪惡攻擊,戰鬥匕首就把邪惡攻擊改成背刺即可....當年打pw就這宏= =#然後,你懂的.

【自動切割宏】

平時用邪惡搌星若無切割狀態只要有星立即施放切割若有則繼續邪惡搌星若能搌到5星時切割狀態還在則施放剔骨

/script local p,c,b,i,f=GetComboPoints(),CastSpellByName;for i=1,16 do b=UnitBuff("player",i);if b and strfind(b,"SliceDice") then f=1;break;end;end;if p>0 and not f then c("切割\");elseif p==5 and f then c("剔骨");else c("邪惡攻擊\");end;

【邪惡還擊宏】

用還擊在動作條上的序號替換下邊紅色字，查編號看上邊基礎知識 /script local s,d=GetActionCooldown(還擊編號);if IsUsableAction(還擊編號) and d<2 then CastSpellByName("還擊\");else CastSpellByName("邪惡攻擊\");end;法術書版

/script local s,d=GetSpellCooldown(還擊編號,"spell");if IsUsableAction(還擊編號) and d<2 then CastSpellByName("還擊\");else CastSpellByName("邪惡攻擊\");end;

【致盲 + 繃帶】

沒滿60級的或者在戰場中的繃帶名自己改

/施放致盲

/script local b,s,l;for b=0,4 do for s=1,18 do l=GetContainerItemLink(b,s);if l and strfind(l,"厚符文布繃帶\") then UseContainerItem(b,s,1);break;end;end;end

1.12新潛行宏（不會因反覆按而導致取消潛行）

/script local a,_;if not UnitAffectingCombat("player") then _,_,a=GetShapeshiftFormInfo(1);if not a then CastSpellByName("潛行");end;end;

/script GameTooltip:SetInventoryItem("player", GetInventorySlotInfo("MainHandSlot")); if(GameTooltipTextRight4:GetText()~="匕首") then CastSpellByName("邪惡攻擊(等級 8)") else PickupContainerItem(0,1); PickupInventoryItem(16); end

說明：如果主手不是匕首，則用邪惡攻擊。

如果主手是匕首，則把主背包第1格的武器換到主手。

/script GameTooltip:SetInventoryItem("player", GetInventorySlotInfo("MainHandSlot")); if(GameTooltipTextRight4:GetText()~="匕首") then PickupContainerItem(0,1); PickupInventoryItem(16);else CastSpellByName("背刺(等級 8)");end

說明：如果主手不是匕首，則把主背包第1格的武器換到主手。

如果是匕首，就背刺。

注意，以上2個宏要求匕首有唯一屬性。

如果匕首不是唯一，把GameTooltipTextRight4改成3。

/施放冷血

/script SpellStopCasting();

/施放剔骨(等級 8)

說明：這個宏應該大部分賊都知道。

冷血+剔骨，一鍵發出

PvE一鍵DPS宏/script local p,c,b,i,f=GetComboPoints(),CastSpellByName;for i=1,16 do b=UnitBuff("player",i);if b and strfind(b,"SliceDice") then f=1;break;end;end;if p>0 and not f then c("切割");elseif p==5 and f then c("割裂");else c("邪惡攻擊");end;

抓賊宏/script TargetNearestEnemy({reverse})

/施放悶棍

二、60年代術士1.12版宏：

【一鍵3DOT宏】

點一下放一個，缺啥補啥，一直按吧

注意，這是solo宏，團隊中如果有其他術士的話就不好用了，因為無法判斷DOT是不是你放的，比如其他術士放了痛苦詛咒，

這個宏就不會再放痛苦詛咒，直到那個術士的痛苦詛咒消失

[通用版]

/script local n,s,k,j,d,f={"Abomi","Sarge","Immol"},{"腐蝕術\","痛苦詛咒\","獻祭"};for k=1,3 do f=nil;for j=1,16 do d=UnitDebuff("target",j);if d and strfind(d,n[k]) then f=1;break;end;end;if not f then CastSpellByName(s[k]);break;end;end;

[痛苦術士風箏版 ]

/script local n,s,k,j,d,f={"Abomi","Requi","Sarge"},{"腐蝕術\","生命虹吸\","痛苦詛咒\"};for k=1,3 do f=nil;for j=1,16 do d=UnitDebuff("target",j);if d and strfind(d,n[k]) then f=1;break;end;end;if not f then CastSpellByName(s[k]);break;end;end;

【獻祭 + 寵物攻擊】

在使用前面一鍵3DOT宏之前我通常會使用這個宏作為起手，因為獻祭有施法時間，這就跟獵人瞄準起手一樣

/施放獻祭

/script PetAttack();

如果是痛苦術士，帶小鬼而且作mana罐子的話用這個

/施放獻祭

/script if UnitCreatureFamily("pet")~="小鬼\" then PetAttack();end;

【RAID DOT宏】

循環上DOT，如果使用間隔超過18秒則重新從第一個DOT開始放，以防止DOT序列沒放完怪就死了

[普通版]

/script local x,t={"痛苦詛咒\","腐蝕術\","獻祭"},GetTime();DOTI=DOTI or 3;DOTT=DOTT or t;DOTI=DOTI+1;if DOTI>3 or t-DOTT>18 then DOTI=1;DOTT=t;end;CastSpellByName(x[DOTI]);

[痛苦術士版 ]

/script local x,t={"生命虹吸\","痛苦詛咒\","腐蝕術\","獻祭"},GetTime();DOTI=DOTI or 4;DOTT=DOTT or t;DOTI=DOTI+1;if DOTI>4 or t-DOTT>18 then DOTI=1;DOTT=t;end;CastSpellByName(x[DOTI]);

這是模擬2.0中/castsequence的方式寫的，但沒有進入/脫離戰鬥重置序列和改變目標重置序列功能，

因為這需要做成插件了

到了2.0用這個就行了：

[普通版 ]

/castsequence reset=18/target/combat "生命虹吸\","痛苦詛咒","腐蝕術\","獻祭"

[痛苦術士版]

/castsequence reset=18/target/combat "痛苦詛咒\","腐蝕術\","獻祭"

【RAID詛咒宏】

如果目標沒有元素詛咒就上元素，有元素沒有暗影詛咒就上暗影詛咒，都有就上痛苦詛咒

raid中的術士們，為了名額，詛咒吧！

/script local n,s,k,j,d={"lTouc","fAchi"},{"元素","暗影","痛苦\"},1;while k<3 do f=nil;for j=1,16 do d=UnitDebuff("target",j);if d and strfind(d,n[k]) then f=1;break;end;end;if f then k=k+1;else break;end;end;CastSpellByName(s[k].."詛咒\");

【智能契約分流宏 - 痛苦術士必備】

=================為什麼要分流=================

可能有人覺得只要契約就好，何必還要分流，我們有魔甲術，每5秒恢復15點hp，還有生命虹吸，吸血，

各位癮君子每3秒吸個五六十應該不在話下吧，生命長滿就不會再長了。

所以只用契約的話會有大量的生命浪費，

實際上這些生命變成藍的話數量相當驚人的，所以在儘量保證自己血量的前提下使用分流可以達到最大的轉換效率

而不會出現安全問題，你會發現這才是真正的永動機

而且，最大的問題…… 分流恢復mana的速度比契約快多了>"<

==================================

原則：不讓小鬼滿藍，不讓自己滿血

小鬼滿mana當然先抽他的，當抽到70%時，如果你受傷小於200就分流一次，然後繼續抽小鬼，

直到抽空或者你血又差200沒滿，為了最大化的利用嘛，

如果把小鬼抽空了你還沒搞定，沒辦法，抽自己吧

各位如果在raid而且治療比較關照你的話可以把受傷200安全線往下降，比如1000，

這樣頂著恢復，回春，抽著小鬼，想OOM都難啊

我們唯一要做的就是……

練就一根堅韌而神經質的手指……

/script local s,h,m="生命分流\";if UnitExists("pet") then h=UnitHealthMax("player")-UnitHealth("player");m=UnitMana("pet")/UnitManaMax("pet");if m>0.1 and h>200 or m>=0.7 then s="黑暗契約";end;end;CastSpellByName(s);

上邊200是開始分流的安全線，0.7是停止虐待小鬼開始分流的比例，當然是自己滿血情況下

計算了魔傷和強化生命分流天賦的分流宏

你魔傷和生命分流效率自己填

你分流效率：你強化生命分流的天賦，1點就換成1.1，2點換成1.2,沒有加這個天賦就是1

注意，這個宏不會分到死，自殺的話單拉出來一個最高級的吧

/script local b,r,p,j,h={30,75,140,220,310,424},{0.38,0.68,0.8,0.8,0.8,0.8},"player";for j=6,1,-1 do h=b[j]+r[j]*你魔傷;if UnitHealth(p)>=h and UnitManaMax(p)-UnitMana(p)>=h*你分流效率 then CastSpellByName("生命分流(等級 "..j..")");break;end;end

【死亡纏繞 + 恐懼】

死亡纏繞 + 恐懼是術士最具殺傷力的連招，是術士反盤的基礎，

能與之媲美的恐怕只有獻祭 + 點燃了，什麼？還有生命分流 + ****？

功能：如果死亡纏繞不在CD就放纏繞，如果CD中則施放恐懼術，連續使用就是纏繞 + 恐懼

死亡纏繞的編號看圖自己填

/script local s,d=GetActionCooldown(死亡纏繞編號);if d<2 then CastSpellByName("死亡纏繞");else CastSpellByName("恐懼術\");end;

法術書版

/script local s,d=GetSpellCooldown(死亡纏繞編號,"spell");if d<2 then CastSpellByName("死亡纏繞");else CastSpellByName("恐懼術\");end;

【如果目標是惡魔或元素就放逐，否則恐懼】

raid和跟術士PK時能省點事……

/script local t=UnitCreatureType("target");if t=="惡魔" or t=="元素生物\" then CastSpellByName("放逐術\");else CastSpellByName("恐懼術\");end;

【雙法術石】

法術石放飾品1，備用法術石放的位置自己填，看上邊基礎知識

/script local s,d,e=GetInventoryItemCooldown("player",17),if d0 then UseInventoryItem(13);UseContainerItem(備用法術石包號,你備用法術石格子號);end;

【狗智能吞噬魔法】

優先驅散自己身上的debuff，沒有就驅散對方身上的buff

/script local i,d,s,t,_;for i=1,16 do d,_,t=UnitDebuff("player",i);if d and t=="Magic" then s=1;break;end;end;CastSpellByName('吞噬魔法',s);

【瞬召虛空並犧牲宏 - 傳說中的雙胖子】

功能：如果帶的是虛空則犧牲，不是的話按第一下瞬召虛空，再按一下犧牲，之所以要按兩下因為所謂瞬召實際還是有0.5秒時間，

當然如果你是非惡魔術士或者惡魔支配CD中，那瞬召就變成慢召了……

/script local c=CastSpellByName;if UnitCreatureFamily("pet")=="虛空行者" then c("犧牲\");else c("惡魔支配\");SpellStopCasting();c("召喚虛空行者");end;

【寶寶打圖騰】

/script local t,n,i,_={"根基\","戰慄\","地縛","灼熱","清毒",};for _,i in t do n=i.."圖騰";TargetByName(n,1);end;PetAttack();

【拉人宏】

1 小隊/團隊自適應版

/施放召喚儀式

/script local s="party";if UnitInRaid("player") then s="raid";end;SendChatMessage("開始召喚>%t<，機票1G，女生半價，來點門啊",s);

2 車夫自虐版

這個不是拉人的宏，而是一次尋問團隊中所有和你不在同一區域的人，自動問他需不需要拉，好像有點自討苦吃，自虐用的……

只要點一下，你會收到無數訂單的……

/script local i,n,z,_;for i=1,GetNumRaidMembers() do n,_,_,_,_,_,z=GetRaidRosterInfo(i) if z~=GetZoneText() then SendChatMessage("要拉的MM報職業","whisper",nil,n);end;end

（搬運者的話：有個大大的「點門」倆字的宏也有，但是因為沒法排版我就不複製了，感興趣的自己去找一下吧。

。

）

【智能靈魂石】

沒有靈魂石就製造，有就給目標綁靈魂石，並在小隊或團隊中報告

把做好的靈魂石放在動作條上，查出編號，具體看上邊基礎知識

/script local s,i="party",靈魂石所在編號;if IsUsableAction(i) then if GetActionCooldown(i)==0 then UseAction(i);if UnitInRaid("player") then s="raid";end;SendChatMessage("%t 已被綁定",s);end;else CastSpellByName("製造特效靈魂石");end

三、60年代戰士1.12版宏：

1. 自動檢測自己的BUFF中是不是有戰鬥怒吼.沒有就施放.有則普通攻擊.

/script for i=1,20,1 do if (UnitBuff("player",i) ~= nil) then if (string.find(UnitBuff("player",i),"BattleShout") ~= nil) then CastSpellByName("攻擊");break; end end if (i==20) then CastSpellByName("戰鬥怒吼(等級 6)"); end end

以上你可以把它使用在一個綜合宏中使用.或者單獨使用都可以.

比如

/施放破甲

/......

2.自動切換到狂暴姿態=>狂暴之怒=>然後切換到防禦姿態

/script GS=GetShapeshiftFormInfo;CS=CastSpellByName;_,_,isActive,_ = GS(3);if isActive~=nil then CS("狂暴之怒") else CS("狂暴姿態");end

/script _,_,isActive,_ = GS(2);if isActive~=nil then CS("攻擊") else CS("防禦姿態");end

一，衝鋒，壓制，攔截，斷筋

/script C=CastSpellByName;

/script U=IsUsableAction;

/script R=IsActionInRange;

/script if(U(61)==1)then C("衝鋒");elseif(R(61)==1)then C("攔截");elseif(U(63)==nil)then C("斷筋");elseif(GetActionCooldown(63)==0)then C("壓制");else C("斷筋");end

前3行是定義語句，要不然寫不下，另外也使宏更加好看和簡練

首先判斷衝鋒是否可以用，如果能用則衝鋒；

如果不能用，判斷是否目標在攔截的範圍以內，如果在範圍內則攔截；

如果不在攔截的範圍內，判斷壓制是否可以使用，如果不能使用則用斷筋；

如果壓制可以使用，判斷壓制的冷卻是否為0，如果為0則壓制，如果不為0則使用斷筋。

效果就是，如果離敵人遠就衝鋒或者攔截，如果接近了就斷筋，如果斷筋被躲閃則立刻壓制。

壓制完了繼續上斷筋。

斷筋上好就該用下面的宏了。

二，致死，旋風，壓制，英勇打擊

/script C=CastSpellByName;

/script if(GetActionCooldown(63)==0) then C("壓制");end

/script if(UnitHealth("target")<20) then C("斬殺");end

/施放致死打擊

/script if(IsActionInRange(63)==1)then C("旋風斬");end

/script if(UnitMana("Player")>39) then C("英勇打擊");end

第一行為定義語句

第二行判斷壓制的CD是否為0，如果CD為0則壓制，如果不能壓制此行無效

第三行判斷是否能處決，能則處決

第四行釋放致死打擊，（我為什麼要用中文？用英文的話宏圖標會一直是亮的，用中文明暗時間同致死打擊）

第五行，判斷敵人的距離，如果在5碼內的話用旋風（利大弊大？自己衡量吧）

第六行，怒氣大於39放英勇打擊（這個自己可以隨便定義）

效果，能壓制壓制，不能壓制能處決就處決，都不能就放致死，致死CD中，敵人在攻擊範圍內就用旋風

怒非常多的時候就用英勇打擊代替普通攻擊。

三，破膽繃帶

/施放破膽怒吼

/script SpellStopCasting();

/target 安達里克

/script if(GetActionCooldown(69)>0) then UseContainerItem(3,1);end

/script TargetLastEnemy()

第一行，釋放戰士的技能

第二行，停止當前動作

第三行，選擇繃帶目標，名字改成你自己

第四行，判斷破膽這個技能的CD是否大於0，用處就是看看你破膽是否釋放成功，

經常我按技能的同時，對手跑出範圍了，結果我在那傻傻的繃帶，現在破膽不在CD中不會繃帶了。

第五行，選擇最後一個敵人

效果，目標被恐懼畏縮的同時你自己繃帶，1秒都不浪費，恐懼結束剛好繃帶完

四，群體攻擊

/script G=GetActionCooldown;C=CastSpellByName;

/script F=CastShapeshiftForm;if(G(71)<2)then F(1);else F(3);end

/script if(IsUsableAction(71)==1)then C("橫掃攻擊");end

/施放旋風斬

/施放順劈斬

/script if(UnitHealth("target")<5)then TargetNearestEnemy();end

自動判斷橫掃攻擊的CD，當CD好了的時候如果不在戰鬥姿態則自動切換到戰鬥姿態放橫掃攻擊

然後再自動切換回狂暴姿態，放旋風和順劈

最後一行判斷目標的血量，如果少於5%，則切換下一個目標

五，雙手武器和盾切換

/script P=PickupInventoryItem;

/script C=PickupContainerItem;

/script P(17);if(CursorHasItem())then C(4,2);C(4,1);P(16);else C(4,1);P(16);C(4,2);P(17);end

四、60年代獵人1.12版宏：

【自動反擊，貓鼬，猛禽宏】

可以代替猛禽一擊，能放的話會自動放反擊，貓鼬

出了反擊天賦的

在下邊依次填上反擊，貓鼬撕咬，猛禽一擊在動作條上的編號，查編號看上邊基礎知識

/script local b,s,j={反擊編號,貓鼬編號,猛禽編號},{"反擊\","貓鼬撕咬","猛禽一擊\"};for j=1,3 do if IsUsableAction(b[j]) and GetActionCooldown(b[j])==0 then CastSpellByName(s[j]);break;end;end;

沒出反擊的

在下邊依次填上貓鼬撕咬，猛禽一擊在動作條上的編號，查編號看上邊基礎知識

/script local b,s,j={貓鼬編號,猛禽編號},{"貓鼬撕咬","猛禽一擊\"};for j=1,2 do if IsUsableAction(b[j]) and GetActionCooldown(b[j])==0 then CastSpellByName(s[j]);break;end;end;

【智能釘刺宏 】

牧師不會解毒，應該用蝰蛇，反倒是對德魯伊要用蝰蛇1騙驅毒，到頭來毒蛇無用？其實應該對所有怪都用毒蛇

功能介紹：按照下列規則放釘刺

戰、賊：毒蠍

獵、法、術，薩，牧：蝰蛇

騎，德：蝰蛇1

NPC：毒蛇

/script local c,s,t=UnitClass("target"),"毒蛇釘刺",UnitPowerType("target");if UnitIsPlayer("target") then if t==0 then s="蝰蛇釘刺";if c=="聖騎士" or c=="德魯伊" then s=s.."(等級 1)";end;else s="毒蠍釘刺";end;end;CastSpellByName(s);

【打賊專用：標記 / 照明彈】

有目標就標記，沒有就放閃光彈

/script if UnitExists("target") then CastSpellByName("獵人印記");else CastSpellByName("照明彈");end;

【雄鷹守護 + 獵人印記 + 寵物攻擊】

/script local c,i,b,f=CastSpellByName;for i=1,16 do b=UnitBuff("player",i);if b and strfind(b,"RavenF") then f=1;break;end;end;if f then c("獵人印記");PetAttack();else c("雄鷹守護");end;

【靈猴獵豹切換】

/script local c,i,b,f=CastSpellByName;for i=1,16 do b=UnitBuff("player",i);if b and strfind(b,"Monk") then f=1;break;end;end;if f then c("獵豹守護");else c("靈猴守護");end;

【靈猴雄鷹切換】

/script local c,i,b,f=CastSpellByName;for i=1,16 do b=UnitBuff("player",i);if b and strfind(b,"Monk") then f=1;break;end;end;if f then c("雄鷹守護");else c("靈猴守護");end;

【獵豹雄鷹切換】

/script local c,i,b,f=CastSpellByName;for i=1,16 do b=UnitBuff("player",i);if b and strfind(b,"eTiger") then f=1;break;end;end;if f then c("雄鷹守護");else c("獵豹守護");end;

【靈猴守護 + 威懾 】

威懾的編號看上邊基礎知識自己填

/script local c,i,b,f,s,d=CastSpellByName;for i=1,16 do b=UnitBuff("player",i);if b and strfind(b,"Monk") then f=1;break;end;end;if not f then c("靈猴守護");SpellStopCasting();end;s,d=GetActionCooldown(你威懾編號);if d<2 then c("威懾\");end;

【收寵假死陷阱】

非戰鬥狀態就放陷阱，否則假死，再按陷阱，注意，戰鬥中假死瞬間陷阱放不出來的，會提示你正在戰鬥中

所以戰鬥中需要狂按這個宏

這個宏WOW 2.0就用不著了

/script PetFollow();if UnitAffectingCombat("player") then CastSpellByName("假死"); else CastSpellByName("冰凍陷阱\");end;

【野獸護符 - 雙多重宏】

護符放飾品1上，把你多重射擊換個地方，並查出編號，替換紅色字，查編號看上邊基礎知識

/script local s,d;s,d=GetActionCooldown(你多重射擊的編號);if d>2 then UseInventoryItem(13);SpellStopCasting();end;CastSpellByName("多重射擊\");

法術書版

/script local s,d;s,d=GetSpellCooldown(你多重射擊的編號,"spell");if d>2 then UseInventoryItem(13);SpellStopCasting();end;CastSpellByName("多重射擊\");

這個宏可以目前替代多重了，但是馬上WOW 2.0要來了，這個宏屆時將失效，目前沒有解決方案

【寶寶打圖騰】

/script local t,n,i,_={"根基\","戰慄\","地縛","灼熱","清毒",};for _,i in t do n=i.."圖騰";TargetByName(n,1);end;PetAttack();

寵物宏 - 智能召喚/復活/治療

如果寵物存在，死的就復活，沒死就++，寵物消失了的話就召喚，如果是屍體消失，請同時按住Alt鍵，

會強制使用復活，因為WOW消失了仍然認為是活的……

/script local p,s="pet","召喚";if UnitIsDead(p) then s="復活\";elseif UnitExists(p) then s="治療" elseif IsAltKeyDown() then s="復活\";end;CastSpellByName(s.."寵物\");

【尋找稀有精英寵物】

公共部分已經有了，不過鑒於獵人特殊性在專門寫一個

/script local s="斷牙";TargetByName(s,1);if UnitName("target")==s then ChatFrame1:AddMessage("找到");end;

上邊名字自己修改

針對不同目標調整寵物技能自動施放情況

這個宏可以針對不同類型的目標調整寵物技能的自動施放，比如帶蝙蝠面對近戰應該打開尖嘯，而面對法系就應該關掉

帶會爪擊的寵物打怪時應該關掉爪擊開低吼，而遇到玩家需要關低吼開爪擊，這個宏可以自動為你做到

/施放獵人印記

/script local x,p,j,e,_={1,1,1},UnitPowerType("target");if UnitIsPlayer("target") then if p==0 then x={1,nil,nil,1};else x={1,nil,1};end;end;for j=4,7 do _,_,_,_,_,_,e=GetPetActionInfo(j);if x[j-3]~=e then TogglePetAction(j);end;end;

說明一下，紅色的{1,1,1}對應NPC，藍色的{1,nil,nil,1}對應有藍職業，綠色的{1,nil,1}對應戰，賊

四個1/nil對應寵物技能條4 5 6 7按鈕，1代表開，nil代表關，最後一個是nil的話可以不寫，

大家可以自己調整技能和對應職業的開關順序，畢竟不同bb技能不用

五、60年代法師1.12版宏：

【冰箱能用就冰箱，沒冷卻就急速冷卻+冰箱】

把寒冰屏障放到一個你不用的按鈕上，記下編號，編號看上邊基礎知識，

/script local c,i,b,f,d,_=CastSpellByName;for i=1,16 do b=UnitBuff("player",i);if b and strsub(b,5)=="Frost" then f=1;break;end;end;if not f then _,d=GetActionCooldown(你冰箱編號);if d>2 then c("急速冷卻");SpellStopCasting();end;c("寒冰屏障");end;

【奧術強化+護符+炎爆術 】

護符放哪裡無所謂，會自動開已經冷卻的護符

/script local c,x,u,s,p,d,e,_=CastSpellByName,GetInventoryItemCooldown,UseInventoryItem,SpellStopCasting,"player";c("奧術強化);s();_,d,e=x(p,13);if d<2 and e then u(13);else _,d,e=x(p,14);if d<2 and e then u(14);end;end;s();c("炎爆術\");

【氣定神閒+炎爆術/施放氣定神閒 】

/script SellStopCasting();

/施放 "炎爆術\"

平時冰箭，出靈風8件效果就火球/script local c,i,b,f=CastSpellByName;for i=1,16 do b=UnitBuff("player",i);if b and strfind(b,"Telep") then f=1;break;end;end;if f then c("火球術\");else c("寒冰箭");end;

這類宏有個特點，平時用小技能，在特定buff出現後換大技能，比如這裡冰箭就是小技能，火球就是大技能

既然分出了大小，那就知道可以怎麼改了，火球術可以改成其他「大技能」，比如炎爆術

冰箭可以換成其他「小技能」，比如灼燒，都是中國字，別跟我說你不會

平時冰箭，出奧術專注效果就火球/script local c,i,b,f=CastSpellByName;for i=1,16 do b=UnitBuff("player",i);if b and strfind(b,"ManaB") then f=1;break;end;end;if f then SpellStopCasting();c("火球術\");else c("寒冰箭");end;

同上，火球術可以改成其他的，比如炎爆術，奧術飛彈，冰箭可以改成灼燒

【平時冰箭，出奧術專注或出靈風8件效果就火球 】

奧術專注是下個法術免費，所以一旦出了特效，要馬上取消當前法術，換大的，否則免費特效就被當前法術浪費了

而靈風8件是下個法術瞬發，當前正在引導的不受影響，所以不用取消當前的

由於256字節限制，要取消兩個都取消，否則都不取消，那就是說必須都取消，這樣靈風會損失當前引導的法術

這種損失就是半個冰箭或者半個灼燒，如果大家認為這種損失可以接受的話，就用這個合併版：

/script local c,i,j,b,f=CastSpellByName;for i=1,16 do b=UnitBuff("player",i);if b and (strfind(b,"ManaB") or strfind(b,"Telep")) then f=1;break;end;end;if f then SpellStopCasting();c("火球術\");else c("灼燒");end;

【灼燒疊5層就火球，否則繼續灼燒 】

/script local c,i,d,n,f=CastSpellByName;for i=1,16 do d,n=UnitDebuff("target",i);if d and strfind(d,"SoulB") then f=1;break;end;end;if f and n==5 then c("火球術\");else c("灼燒");end;

【打賊奧爆宏】

有目標就放最高級奧暴，沒有目標就放1級奧暴

/script if UnitCanAttack("target","player") then CastSpellByName("魔爆術\");else CastSpellByName("魔爆術(等級 1)");end;

【自動補冰甲術，奧術智慧，魔法抑制 】

缺啥補啥，閒著沒事按按能強身健體，定國安邦……

/script local n,s,k,j,b,f={"tArm","lSen","hMag"},{"冰甲術\","奧術智慧","魔法抑制"};for k=1,3 do f=nil;for j=1,16 do b=UnitBuff("player",j);if b and strfind(b,n[k]) then f=1;break;end;end;if not f then CastSpellByName(s[k]);break;end;end;

【自動把被控制的隊友變羊，小隊，團隊通用版 】

對於會控制玩家的BOSS很有用，比如哈卡，AQ神廟1

/script local n,p,i,t=4,"party";if UnitInRaid("player") then n=40;p="raid";end;for i=1,n do t=p..i;if UnitCanAttack("player",t) then TargetUnit(t);CastSpellByName("變形術\");SendChatMessage("%t 被控制，我把他變羊了~",p);break;end;end;

【隨機變羊，豬，烏龜宏】

/script local s,m,r={"","：龜\","：豬\"},{"%t變羊了","%t是烏龜\","%t是豬\"},random(3); CastSpellByName("變形術\"..s[r]);SendChatMessage(m[r],"yell");

可以根據變的種類喊話，想喊什麼自己改

【火沖打圖騰】

/script local t,n,i,_={"根基\","戰慄\","地縛","灼熱","清毒",};for _,i in t do n=i.."圖騰";TargetByName(n,1);end;CastSpellByName("火焰衝擊(等級 1)");

【法師自動製造各種魔法寶石】

SuperMacro版，宏寫不下

左邊窗口：

/script ConjureManaStone();

右邊窗口：

Code:

function ConjureManaStone()

local x,j,b,s,l,f={"紅寶石","黃水晶","翡翠\","瑪瑙"},1;

while j<5 do

f=nil;

for b=0,4 do

for s=1,18 do

l=GetContainerItemLink(b,s);

if l and strfind(l,"法力"..x[j]) then

f=j;break;

end;

if f then break;end;

end;

if f then j=j+1;

六、60年代小德1.12版宏：

【中二變身宏】

RP的變形宏，其他形態則變回人形，人形則喊話並變成相應形態，反覆按不會再變回人形

人形態下變熊，並喊「熊的力量！」其他任何形態則變回人形

/script local c,s,i,a,_=CastShapeshiftForm;for i=1,6 do _,_,a=GetShapeshiftFormInfo(i);if a then s=i;break;end;end;if not s then SendChatMessage("熊的力量！","yell");c(1);elseif s~=1 then c(s);end;

人形態下變貓，並喊「豹的速度！」其他任何形態則變回人形

/script local c,s,i,a,_=CastShapeshiftForm;for i=1,6 do _,_,a=GetShapeshiftFormInfo(i);if a then s=i;break;end;end;if not s then SendChatMessage("豹的速度！","yell");c(3);elseif s~=3 then c(s);end;

人形態下變風暴烏鴉，並喊「鷹的眼睛！」其他任何形態則變回人形（資料片適用）

/script local c,s,i,a,_=CastShapeshiftForm;for i=1,6 do _,_,a=GetShapeshiftFormInfo(i);if a then s=i;break;end;end;if not s then SendChatMessage("鷹的眼睛！","yell");c(6);elseif s~=6 then c(s);end;

人形態下變鵪鶉/奶樹，並喊「鵪鶉的可愛！」其他任何形態則變回人形（鵪鶉/奶樹自己根據天賦調整……）

/script local c,s,i,a,_=CastShapeshiftForm;for i=1,6 do _,_,a=GetShapeshiftFormInfo(i);if a then s=i;break;end;end;if not s then SendChatMessage("鵪鶉的可愛！","yell");c(5);elseif s~=5 then c(s);end;

海豹台詞徵集中

/script local c,s,i,a,_=CastShapeshiftForm;for i=1,6 do _,_,a=GetShapeshiftFormInfo(i);if a then s=i;break;end;end;if not s then SendChatMessage("海豹，海豹……","yell");c(2);elseif s~=2 then c(s);end;

旅行台詞徵集中

/script local c,s,i,a,_=CastShapeshiftForm;for i=1,6 do _,_,a=GetShapeshiftFormInfo(i);if a then s=i;break;end;end;if not s then SendChatMessage("旅行……","yell");c(4);elseif s~=4 c(s);end;

各種形態變回人形，包括資料片飛行形態

/script local i,a,_; for i=1,6 do _,_,a=GetShapeshiftFormInfo(i); if a then CastShapeshiftForm(i); break; end; end;

【1.12獵豹形態新潛行宏（不會因反覆按而導致取消潛行）】

/script local i,b,f;if not UnitAffectingCombat("player") then for i=1,16 do b=UnitBuff("player",i);if b and strfind(b,"Ambu") then f=1;break;end;end;if not f then CastSpellByName("潛行");end;end;

【一鍵精靈之火 + 月火 + 蟲群】

有蟲群的：

/script local n,s,k,j,d,f={"rFall","tSwar","eFire"},{"月火術\","蟲群","精靈之火\"};for k=1,3 do f=nil;for j=1,16 do d=UnitDebuff("target",j);if d and strfind(d,n[k]) then f=1;break;end;end;if not f then CastSpellByName(s[k]);break;end;end;

沒有蟲群的：

/script local n,s,k,j,d,f={"rFall","eFire"},{"月火術\","精靈之火\"};for k=1,2 do f=nil;for j=1,16 do d=UnitDebuff("target",j);if d and strfind(d,n[k]) then f=1;break;end;end;if not f then CastSpellByName(s[k]);break;end;end;

【月火打圖騰】

/script local t,n,i,_={"根基\","戰慄\","地縛","灼熱","清毒",};for _,i in t do n=i.."圖騰";TargetByName(n,1);end;CastSpellByName("月火術(等級 1)");

【變熊 + 衝鋒】

/script local c,a,_=CastSpellByName;_,_,a=GetShapeshiftFormInfo(1);if a then c("野性衝鋒\");else c("巨熊形態");end;

【重擊 + 人形 + 加血】

按第一下重擊敵人，按第二下如果敵人昏迷則回到人形，按第三下開始放治療之觸，想放別的可以改

優點是如果重擊未擊中，招架等敵人沒暈的話不會變回人形，避免出現危險

由於變形無公共CD，狂按的話可以實現瞬間重擊 + 人形效果 + 加血效果

/script local c,i,d,f,a,_=CastSpellByName;for i=1,16 do d=UnitDebuff("target",i);if d and strfind(d,"Bash") then f=1;break;end;end;if f then _,_,a=GetShapeshiftFormInfo(1);if a then c("巨熊形態");else c("治療之觸");end;else c("重擊\");end;

治療之觸可以改成其他法術

七、60年代牧師1.12版宏：

【進入/取消暗影形態並切換動作條】

1是非暗影形態下的治療魔法條，2是暗影形態下的攻擊魔法條

進入/取消暗影形態，並在1，2兩動作條間切換，數字可以自己改

/script local i,b,f,p;for i=1,16 do b=UnitBuff("player",i);if b and strfind(b,"wform") then f=1;break;end;end;if f then p=1;else p=2;end;CastSpellByName("暗影形態");CURRENT_ACTIONBAR_PAGE=p;ChangeActionBarPage();

【心靈尖嘯 + 取消暗影形態】

/施放心靈尖嘯

/script local i,b,f;for i=1,16 do b=UnitBuff("player",i);if b and strfind(b,"wform") then CastSpellByName("暗影形態");break;end;end;

【給自己能量灌注+心靈專注+護符+技能】

具體最後跟什麼技能自己考慮，因為心靈專注，所以這個技能是免費的，一般亡靈牧師都跟瘟疫了

護符放飾品1位置

/script local c,s,d,e,_=CastSpellByName,SpellStopCasting;c("能量灌注",1);s();c("心靈專注");s();_,d,e=GetInventoryItemCooldown("player",13);if d0 then UseInventoryItem(13);end;s();c("噬靈瘟疫");

【自動補韌，心靈之火，防護暗影】

缺啥補啥，閒著沒事按按能強身健體，定國安邦……

/script local n,s,k,j,b,f={"dFor","rFir","iSha"},{"真言術：韌","心靈之火\","防護暗影"};for k=1,3 do f=nil;for j=1,16 do b=UnitBuff("player",j);if b and strfind(b,n[k]) then f=1;break;end;end;if not f then CastSpellByName(s[k]);break;end;end;

【矮牧反恐】

/script local i,b,f;for i=1,16 do b=UnitBuff("player",i);if b and strfind(b,"Excor") then f=1;break;end;end;if not f then CastSpellByName("防護恐懼結界\");end;

【PK驅散宏】

優先驅散自己身上的Debuff，沒有就對目標驅散

/script local t; if UnitDebuff("player",1,1) then t=1;end; CastSpellByName("驅散魔法",t);

八、60年代聖騎士1.12版宏：

【自動換聖契】

當然使用聖光閃現的時候自動裝備[神性聖契],當我使用驅散的時候自動裝備[優雅聖契]

把兩個聖契一個裝在身上，另一個放在右邊第一個包的第一個格子裡

第一個宏：放聖光閃，如果身上帶的不是神性聖契就先換，再按放聖光閃現

/script local l=GetInventoryItemLink("player",17);if l and strfind(l,"神性") then CastSpellByName("聖光閃現");else UseContainerItem(0,1);end;

第二個宏：放清潔術，如果身上帶的不是優雅聖契就先換，再按放清潔術

/script local l=GetInventoryItemLink("player",17);if l and strfind(l,"優雅") then CastSpellByName("清潔術\");else UseContainerItem(0,1);end;

如果聖契放在包的其他位置，自己修改上邊紅色數字，修改方法看上邊基礎知識

【打賊奉獻宏】

有目標就放最高級奉獻，沒有目標就放1級奉獻

/script if UnitCanAttack("target","player") then CastSpellByName("奉獻");else CastSpellByName("奉獻(等級 1)");end;[attachment=2470] [attachment=2470]

九、60年代薩滿祭司1.12版宏：

【平時用低級閃電箭，如果出「元素集中」自動換成最高級閃電箭】

/script local c,i,b,f=CastSpellByName;for i=1,16 do b=UnitBuff("player",i);if b and strfind(b,"ManaB") then f=1;break;end;end;if f then SpellStopCasting();c("閃電箭");else c("閃電箭(等級 1)");end;