BUILDIN(setcolor){
    int color = script_getnum(st, 2);
    char colorstring[7];
    TBL_PC* sd;
 
    sd = script->rid2sd(st);
 
    snprintf(colorstring, 7, "%06X", color);
 
    script_pushstrcopy(st, colorstring);
    pc_setglobalreg_str(sd, script->add_str("CHAT_COLOR"), colorstring);
    return true;
}