also might i suggest

if(theme == "aristocrat") ranks = list("villein", "burgher", "mayor", "baron", "count", "earl", "duke", "prince", "monarch", "emperor");

if(theme == "scholar") ranks = list("pupil", "undergraduate", "graduand", "bachelor", "postgraduate", "doctor candidatus", "doctor", "postdoc", "professor", "grand academician");

also

if(theme == "ecclesiastical") ranks = list("layman", "reader", "deacon", "priest", "monsignor", "bishop", "archbishop", "cardinal", "patriarch", "pope");
if(theme == "chinesearistocrat") ranks = list("fan", "nong", "zhang", "nan", "zi", "hou", "bo","gong", "wang", "tianzi");
or if u prefer
if(theme == "chinesearistocrat") ranks = list("番", "農", "長", "男", "子", "侯", "伯", "伯", "王", "天子");

NE: also a button to suppress emoticons would be gr8