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>.
}
Hash table could be used here, And you could use regex and $regml to make this all 1 command and work the same :).
on $*:TEXT:/^[.!@](Gold|Bronze|Silver)-Star/si:#: {
hinc -m $regml(1) $nick
describe $chan gives $2 a $regml(1) Star 0,2 ✩ for effort. $nick has given out $hget($regml(1), $nick) $regml(1) Star awards.
}