BUILDIN(setcolor){
    int color = script_getnum(st, 2);
    TBL_PC* sd;
 
    sd = script->rid2sd(st);
 
    pc_setglobalreg(sd, script->add_str("CHAT_COLOR"), color);
    return true;
}