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;
}