USECODE_INTRINSIC(set_npc_flag)
USECODE_INTRINSIC(get_barge)
USECODE_INTRINSIC(set_npc_flag){	// Set npc flag(item, flag#).	Game_object *obj = get_item(parms[0]);	int flag = parms[1].get_int_value();	if (obj)		{		obj->set_flag(flag);		if (flag == Actor::dont_render)			{	// Show change in status.			gwin->paint();			gwin->show();			}		else if (flag == (int) Actor::on_moving_barge ||					flag == (int) Actor::in_motion)			{	// Set barge in motion.			Barge_object *barge = Get_barge(obj);			if (barge)				gwin->set_moving_barge(barge);			}		}	return(no_ret);}