if not (is_character(obj) or is_settlement(obj)) then script_error("ERROR: v_dis() called but supplied object [" .. tostring(obj) .. "] is not a character or ...