USECODE_INTRINSIC(get_barge)
USECODE_INTRINSIC(set_timer)
USECODE_INTRINSIC(get_barge){	// get_barge(obj) - returns barge object is part of or lying on.	Game_object *obj = get_item(parms[0]);	if (!obj)		return Usecode_value(0);	return Usecode_value((long) Get_barge(obj));}