Vanilla Warrior macro

These are some macros used to eliminate the inconvenience of stances. The first push of the button changes you to the appropriate stance, the second push activates the ability. If you are already in the right stance it will activate the ability.

"Charge"
/script texture,name,isActive,isCastable = GetShapeshiftFormInfo(1); if isActive then CastSpellByName("Charge(Rank 3)"); else CastSpellByName("Battle Stance()"); end;

"Disarm"
/script texture,name,isActive,isCastable = GetShapeshiftFormInfo(2); if isActive then CastSpellByName("Disarm()"); else CastSpellByName("Defensive Stance()"); end;

"Intercept"
/script texture,name,isActive,isCastable = GetShapeshiftFormInfo(3); if isActive then CastSpellByName("Intercept(Rank 3)"); else CastSpellByName("Berserker Stance()"); end;

"Overpower"
/script texture,name,isActive,isCastable = GetShapeshiftFormInfo(1); if isActive then CastSpellByName("Overpower(Rank 4)"); else CastSpellByName("Battle Stance()"); end;

"Pummel"
/script texture,name,isActive,isCastable = GetShapeshiftFormInfo(3); if isActive then CastSpellByName("Pummel(Rank 2)"); else CastSpellByName("Berserker Stance()"); end;

"Berserker Rage"
/script texture,name,isActive,isCastable = GetShapeshiftFormInfo(3); if isActive then CastSpellByName("Berserker Rage"); else CastSpellByName("Berserker Stance()"); end;

"Sweeping Strikes"
/script texture,name,isActive,isCastable = GetShapeshiftFormInfo(1); if isActive then CastSpellByName("Sweeping Strikes()"); else CastSpellByName("Battle Stance()"); end;

"Whirlwind"
/script texture,name,isActive,isCastable = GetShapeshiftFormInfo(3); if isActive then CastSpellByName("Whirlwind"); else CastSpellByName("Berserker Stance()"); end;

"Start Atack"
/script if not IsCurrentAction(37) then UseAction(37) end;
       37 is the # of the UI slot