Or (more token fun)
Code:
set %heraldplayer $$noqt($gettok($1-,$calc($findtok($1-,$wildtok($1-,*!player,1,32),1,32) +1),32))