首先说明：变身宏在德鲁伊的形态栏有位置判定，请及时完成所有变身任务！
例如：海豹形态任务未完成的状态下，升到30级学习旅行形态，此时旅行形态的变身宏不会产生效果！
人形态变熊， 其他任何形态则变回人形
/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(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 then c(s);end;
各种形态变回人形
/script local i,a,_; for i=1,6 do _,_,a=GetShapeshiftFormInfo(i); if a then CastShapeshiftForm(i); break; end; end;