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>.
}