Shorter version?

alias armory {
  if (@ isin $1) && ($left($2,1) == @) {
     var %realm $remove($2-,@) 
    echo -a Armorying $replace($1,$left($1,1),$upper($left($1,1))) of $replace(%realm,$left(%realm,1),$upper($left(%realm,1))) $+ .
    run http://www.wowarmory.com/character-sheet.xml?r= $+ %realm $+ &n= $+ %name
  }
  else echo -a Insufficent parems Correct format: /armory <name> @<realm>.
}