勇士们，艾泽拉斯的征途上由我们为你保驾护航，愿你在艾露恩的星辰里沐浴，愿你在大地母亲的指引中披荆斩棘。（百度：6060wow，怀旧服主题站，注册即送金币，不限服务器，不限阵营，邀请码：62cc03） 

年代小德宏命令整理，目前官服是1.13版本，亲测有效哟，让咱们做一个真正的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;

治疗之触可以改成其他法术   （本文转载于AkrIos）

魔兽60怀旧服QQ交流群：877523034

欢迎大家加入一起畅游这个充满记忆的地方~

长按识别下方二维码关注我们