LILLIPUT: Fix a bug in OC_for

scummvm · Mar 28, 2018 · 7948696 · 7948696
1 parent 977c07b
commit 7948696
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/engines/lilliput/script.cpp b/engines/lilliput/script.cpp
@@ -99,7 +99,7 @@ byte LilliputScript::handleOpcodeType1(int curWord) {
 		return OC_getRandom();
 		break;
 	case 0x6:
-		return OC_sub1748C();
+		return OC_for();
 		break;
 	case 0x7:
 		return OC_compWord18776();
@@ -960,8 +960,8 @@ byte LilliputScript::OC_getRandom() {
 	return 0;
 }
 
-byte LilliputScript::OC_sub1748C() {
-	debugC(1, kDebugScript, "OC_sub1748C()");
+byte LilliputScript::OC_for() {
+	debugC(1, kDebugScript, "OC_for()");
 
 	int var1 = _currScript->readUint16LE();
 	int tmpVal = _currScript->readUint16LE() + 1;
@@ -971,6 +971,7 @@ byte LilliputScript::OC_sub1748C() {
 	if (tmpVal < var1)
 		return 0;
 
+	_currScript->writeUint16LE(0, -2);
 	return 1;
 }
 

diff --git a/engines/lilliput/script.h b/engines/lilliput/script.h
@@ -122,7 +122,7 @@ class LilliputScript {
 	byte OC_sub17434();
 	byte OC_sub17468();
 	byte OC_getRandom();
-	byte OC_sub1748C();
+	byte OC_for();
 	byte OC_compWord18776();
 	byte OC_checkSaveFlag();
 	byte OC_sub174C8();