魔獸懷舊德魯伊如何設置宏？

首先說明：變身宏在德魯伊的形態欄有位置判定，請及時完成所有變身任務！

例如：海豹形態任務未完成的狀態下，升到30級學習旅行形態，此時旅行形態的變身宏不會產生效果！

人形態變熊， 其他任何形態則變回人形

/script local c,s,i,a,_=CastShapeshiftForm;for i=1,6 do _,_,a=GetShapeshiftFormInfo(i);if a then s=i;peak;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;peak;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;peak;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;peak;end;end;if not s then SendChatMessage("","yell");c(4);elseif s~=4 then c(s);end;

各種形態變回人形

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