Trim resource filenames to 8 characters as a last resort on BRA. Script files are unbelievably broken.

svn-id: r35784

1 files changed, 19 insertions, 1 deletions

diff --git a/engines/parallaction/disk_br.cpp b/engines/parallaction/disk_br.cpp
index e026b908f0..1bb4023010 100644
--- a/engines/parallaction/disk_br.cpp
+++ b/engines/parallaction/disk_br.cpp
@@ -102,8 +102,26 @@ Common::SeekableReadStream *Disk_br::openFile_internal(bool errorOnNotFound, con
 	}
 
 	Common::SeekableReadStream *stream = _sset.openFile(lookup);
+	if (stream) {
+		return stream;
+	}
+
+	// as a very last resort, try trimming the file name to 8 chars
+	if (!ext.empty() && lookup.hasSuffix(ext.c_str())) {
+		Common::String filename = Common::lastPathComponent(lookup, '/');
+		int len = filename.size();
+		if (len > 8) {
+			debugC(9, kDebugDisk, "Disk_br::openFile: trimming filename (%s) to 8 characters", name.c_str());
+			while (len-- > 8) {
+				lookup.deleteLastChar();
+			}
+			lookup += ext;
+			stream = _sset.openFile(lookup);
+		}
+	}
+
 	if (!stream && errorOnNotFound) {
-		errorFileNotFound(lookup);
+		errorFileNotFound(name);
 	}
 	return stream;
 }