[Scummvm-cvs-logs] CVS: scummvm/scumm intern.h,2.192,2.193 resource.cpp,1.248,1.249 resource.h,1.11,1.12 script_v6.cpp,1.388,1.389 script_v72he.cpp,2.12,2.13
Eugene Sandulenko
sev at users.sourceforge.net
Tue Aug 24 19:13:01 CEST 2004
- Previous message: [Scummvm-cvs-logs] CVS: scummvm/queen cutaway.cpp,1.130,1.131 cutaway.h,1.36,1.37 queen.cpp,1.89,1.90 resource.cpp,1.49,1.50 sound.cpp,1.43,1.44 talk.cpp,1.103,1.104 talk.h,1.33,1.34
- Next message: [Scummvm-cvs-logs] CVS: scummvm/scumm intern.h,2.193,2.194 script_v72he.cpp,2.13,2.14
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/scummvm/scummvm/scumm
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21836
Modified Files:
intern.h resource.cpp resource.h script_v6.cpp
script_v72he.cpp
Log Message:
HE 7.2 uses different array headers. they introduced start indexes, so it
became in somewhat Pascal fashion, i.e. array[2..3][10..20]. So I had to
override ArrayHeader function in ScummEngine_v72he.
Also there is new array type kDwordArray. So that is implemented as well.
Though, not everything yet transferred to use new ArrayHeader, so running
HE 7.2 titles is risky now.
Some opcodes were implemented along the way.
Index: intern.h
===================================================================
RCS file: /cvsroot/scummvm/scummvm/scumm/intern.h,v
retrieving revision 2.192
retrieving revision 2.193
diff -u -d -r2.192 -r2.193
--- intern.h 24 Aug 2004 16:02:26 -0000 2.192
+++ intern.h 25 Aug 2004 02:12:03 -0000 2.193
@@ -640,6 +640,23 @@
const char *desc;
};
+#if !defined(__GNUC__)
+ #pragma START_PACK_STRUCTS
+#endif
+
+ struct ArrayHeader {
+ int32 type; //0
+ int32 dim1start; //4
+ int32 dim1end; //8
+ int32 dim2start; //0c
+ int32 dim2end; //10
+ byte data[1];
+ } GCC_PACK;
+
+#if !defined(__GNUC__)
+ #pragma END_PACK_STRUCTS
+#endif
+
const OpcodeEntryV72he *_opcodesV72he;
public:
@@ -652,6 +669,11 @@
virtual void setupOpcodes();
virtual void executeOpcode(byte i);
virtual const char *getOpcodeDesc(byte i);
+ ArrayHeader *defineArray(int array, int type, int dim2start, int dim2end, int dim1start, int dim1end);
+ int readArray(int array, int idx2, int idx1);
+ void writeArray(int array, int idx2, int idx1, int value);
+ void redimArray(int arrayId, int newDim2start, int newDim2end,
+ int newDim1start, int newDim1end, int type);
/* Version 7 script opcodes */
void o72_pushDWordVar();
@@ -663,12 +685,15 @@
void o72_startObject();
void o72_drawObject();
void o72_unknown62();
- void o72_unknown63();
+ void o72_getArrayDimSize();
void o72_arrayOps();
void o72_dimArray();
void o72_dim2dimArray();
void o72_jumpToScript();
+ void o72_findAllObjects();
void o72_getPixel();
+ void o72_pickVarRandom();
+ void o72_redimArray();
void o72_stringLen();
void o72_readINI();
void o72_unknownF4();
Index: resource.cpp
===================================================================
RCS file: /cvsroot/scummvm/scummvm/scumm/resource.cpp,v
retrieving revision 1.248
retrieving revision 1.249
diff -u -d -r1.248 -r1.249
--- resource.cpp 24 Aug 2004 05:04:14 -0000 1.248
+++ resource.cpp 25 Aug 2004 02:12:03 -0000 1.249
@@ -1968,6 +1968,9 @@
if (!b)
return NULL;
+ if (_heversion >= 72)
+ return (b + 0x14); // ArrayHeader->data
+
if (_features & GF_NEW_OPCODES)
return ((ArrayHeader *)b)->data;
return b;
@@ -1983,6 +1986,9 @@
// error("NULL string var %d slot %d", i, _scummVars[i]);
return NULL;
+ if (_heversion >= 72)
+ return (addr + 0x14); // ArrayHeader->data
+
if (_features & GF_NEW_OPCODES)
return ((ArrayHeader *)addr)->data;
Index: resource.h
===================================================================
RCS file: /cvsroot/scummvm/scummvm/scumm/resource.h,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- resource.h 1 Aug 2004 01:54:36 -0000 1.11
+++ resource.h 25 Aug 2004 02:12:03 -0000 1.12
@@ -36,7 +36,8 @@
kNibbleArray = 2,
kByteArray = 3,
kStringArray = 4,
- kIntArray = 5
+ kIntArray = 5,
+ kDwordArray = 6
};
struct ArrayHeader {
Index: script_v72he.cpp
===================================================================
RCS file: /cvsroot/scummvm/scummvm/scumm/script_v72he.cpp,v
retrieving revision 2.12
retrieving revision 2.13
diff -u -d -r2.12 -r2.13
--- script_v72he.cpp 24 Aug 2004 16:02:26 -0000 2.12
+++ script_v72he.cpp 25 Aug 2004 02:12:03 -0000 2.13
@@ -48,7 +48,7 @@
/* 00 */
OPCODE(o6_pushByte),
OPCODE(o6_pushWord),
- OPCODE(o72_pushDWordVar),
+ OPCODE(o6_pushByteVar),
OPCODE(o6_pushWordVar),
/* 04 */
OPCODE(o72_getString),
@@ -151,8 +151,8 @@
OPCODE(o6_invalid),
OPCODE(o6_wordArrayInc),
/* 54 */
- OPCODE(o72_objectX),
- OPCODE(o72_objectY),
+ OPCODE(o6_getObjectX),
+ OPCODE(o6_getObjectY),
OPCODE(o6_byteVarDec),
OPCODE(o6_wordVarDec),
/* 58 */
@@ -169,7 +169,7 @@
OPCODE(o72_startObject),
OPCODE(o72_drawObject),
OPCODE(o72_unknown62),
- OPCODE(o72_unknown63),
+ OPCODE(o72_getArrayDimSize),
/* 64 */
OPCODE(o6_invalid),
OPCODE(o6_stopObjectCode),
@@ -322,14 +322,14 @@
OPCODE(o6_readFile),
/* DC */
OPCODE(o6_writeFile),
- OPCODE(o6_findAllObjects),
+ OPCODE(o72_findAllObjects),
OPCODE(o6_deleteFile),
OPCODE(o6_rename),
/* E0 */
OPCODE(o6_soundOps),
OPCODE(o72_getPixel),
OPCODE(o6_localizeArray),
- OPCODE(o6_pickVarRandom),
+ OPCODE(o72_pickVarRandom),
/* E4 */
OPCODE(o6_setBoxSet),
OPCODE(o6_invalid),
@@ -338,7 +338,7 @@
/* E8 */
OPCODE(o6_invalid),
OPCODE(o6_seekFilePos),
- OPCODE(o6_redimArray),
+ OPCODE(o72_redimArray),
OPCODE(o6_readFilePos),
/* EC */
OPCODE(o6_invalid),
@@ -379,16 +379,113 @@
return _opcodesV72he[i].desc;
}
-void ScummEngine_v72he::o72_pushDWordVar() {
- int a;
- if (*_lastCodePtr + sizeof(MemBlkHeader) != _scriptOrgPointer) {
- uint32 oldoffs = _scriptPointer - _scriptOrgPointer;
- getScriptBaseAddress();
- _scriptPointer = _scriptOrgPointer + oldoffs;
+static int arrayDataSizes[] = {0, 1, 4, 8, 8, 16, 32};
+
+ScummEngine_v72he::ArrayHeader *ScummEngine_v72he::defineArray(int array, int type, int dim2start, int dim2end,
+ int dim1start, int dim1end) {
+ int id;
+ int size;
+ ArrayHeader *ah;
+
+ assert(dim2start >= 0 && dim2start <= dim2end);
+ assert(dim1start >= 0 && dim1start <= dim1end);
+ assert(0 <= type && type <= 5);
+
+
+ if (type == kBitArray || type == kNibbleArray)
+ type = kByteArray;
+
+ nukeArray(array);
+
+ id = findFreeArrayId();
+
+ if (array & 0x80000000) {
+ error("Can't define bit variable as array pointer");
+ }
+
+ size = arrayDataSizes[type];
+
+ writeVar(array, id);
+
+ size *= dim2end - dim2start + 1;
+ size *= dim1end - dim1start + 1;
+ size >>= 3;
+
+ ah = (ArrayHeader *)createResource(rtString, id, size + sizeof(ArrayHeader));
+
+ ah->type = TO_LE_32(type);
+ ah->dim1start = TO_LE_32(dim1start);
+ ah->dim1end = TO_LE_32(dim1end);
+ ah->dim2start = TO_LE_32(dim2start);
+ ah->dim2end = TO_LE_32(dim2end);
+
+ return ah;
+}
+
+int ScummEngine_v72he::readArray(int array, int idx2, int idx1) {
+ if (readVar(array) == 0)
+ error("readArray: Reference to zeroed array pointer");
+
+ ArrayHeader *ah = (ArrayHeader *)getResourceAddress(rtString, readVar(array));
+
+ if (ah == NULL || ah->data == NULL)
+ error("readArray: invalid array %d (%d)", array, readVar(array));
+
+ if (idx2 < FROM_LE_32(ah->dim2start) || idx2 >= FROM_LE_32(ah->dim2end) ||
+ idx1 < FROM_LE_32(ah->dim1start) || idx1 >= FROM_LE_32(ah->dim2end)) {
+ error("readArray: array %d out of bounds: [%d, %d] exceeds [%d..%d, %d..%d]",
+ array, idx1, idx2, FROM_LE_32(ah->dim1start), FROM_LE_32(ah->dim1end),
+ FROM_LE_32(ah->dim2start), FROM_LE_32(ah->dim2end));
+ }
+
+ const int offset = (FROM_LE_32(ah->dim1end) - FROM_LE_32(ah->dim1start) + 1) *
+ (idx2 - FROM_LE_32(ah->dim2start)) - FROM_LE_32(ah->dim1start) + idx1;
+
+ switch (FROM_LE_32(ah->type)) {
+ case kByteArray:
+ case kStringArray:
+ return ah->data[offset];
+
+ case kIntArray:
+ return (int16)READ_LE_UINT16(ah->data + offset * 2);
+
+ case kDwordArray:
+ return (int32)READ_LE_UINT32(ah->data + offset * 4);
+ }
+
+ return 0;
+}
+
+void ScummEngine_v72he::writeArray(int array, int idx2, int idx1, int value) {
+ if (readVar(array) == 0)
+ error("writeArray: Reference to zeroed array pointer");
+
+ ArrayHeader *ah = (ArrayHeader *)getResourceAddress(rtString, readVar(array));
+
+ if (!ah)
+ error("writeArray: Invalid array (%d) reference", readVar(array));
+
+ if (idx2 < FROM_LE_32(ah->dim2start) || idx2 >= FROM_LE_32(ah->dim2end) ||
+ idx1 < FROM_LE_32(ah->dim1start) || idx1 >= FROM_LE_32(ah->dim2end)) {
+ error("writeArray: array %d out of bounds: [%d, %d] exceeds [%d..%d, %d..%d]",
+ array, idx1, idx2, FROM_LE_32(ah->dim1start), FROM_LE_32(ah->dim1end),
+ FROM_LE_32(ah->dim2start), FROM_LE_32(ah->dim2end));
+ }
+
+ const int offset = (FROM_LE_32(ah->dim1end) - FROM_LE_32(ah->dim1start) + 1) *
+ (idx2 - FROM_LE_32(ah->dim2start)) - FROM_LE_32(ah->dim1start) + idx1;
+
+ switch (FROM_LE_32(ah->type)) {
+ case kByteArray:
+ case kStringArray:
+ ah->data[offset] = value;
+
+ case kIntArray:
+ WRITE_LE_UINT16(ah->data + offset * 2, value);
+
+ case kDwordArray:
+ WRITE_LE_UINT32(ah->data + offset * 4, value);
}
- a = READ_LE_UINT32(_scriptPointer);
- _scriptPointer += 4;
- push(a);
}
void ScummEngine_v72he::o72_getString() {
@@ -407,7 +504,7 @@
int value = pop();
if (num) {
- for (i = 1; i < num; i++) {
+ for (i = 1; i < 128; i++) {
if (args[i] == value) {
push(1);
break;
@@ -418,31 +515,6 @@
}
}
-void ScummEngine_v72he::o72_objectX() {
- int object = pop();
- int objnum = getObjectIndex(object);
-
- if (objnum == -1) {
- push(0);
- return;
- }
-
- push(_objs[objnum].x_pos);
-}
-
-
-void ScummEngine_v72he::o72_objectY() {
- int object = pop();
- int objnum = getObjectIndex(object);
-
- if (objnum == -1) {
- push(0);
- return;
- }
-
- push(_objs[objnum].y_pos);
-}
-
void ScummEngine_v72he::o72_startScript() {
int args[16];
int script, flags;
@@ -510,12 +582,26 @@
warning("o72_unknown62 stub (%d)", a);
}
-void ScummEngine_v72he::o72_unknown63() {
+void ScummEngine_v72he::o72_getArrayDimSize() {
int subOp = fetchScriptByte();
- //int arrayId = readVar(fetchScriptWord());
+ int32 val1, val2;
+ ArrayHeader *ah;
- warning("o72_unknown63 stub (%d)", subOp);
- push(0);
+ switch (subOp) {
+ case 1:
+ case 3:
+ ah = (ArrayHeader *)getResourceAddress(rtString, readVar(fetchScriptWord()));
+ val1 = FROM_LE_32(ah->dim1end);
+ val2 = FROM_LE_32(ah->dim1start);
+ push(val1 - val2 + 1);
+ break;
+ case 2:
+ ah = (ArrayHeader *)getResourceAddress(rtString, readVar(fetchScriptWord()));
+ val1 = FROM_LE_32(ah->dim2end);
+ val2 = FROM_LE_32(ah->dim2start);
+ push(val1 - val2 + 1);
+ break;
+ }
}
void ScummEngine_v72he::o72_arrayOps() {
@@ -528,13 +614,13 @@
switch (subOp) {
case 7: // SO_ASSIGN_STRING
len = resStrLen(_scriptPointer);
- ah = defineArray(array, kStringArray, 0, len + 1);
+ ah = defineArray(array, kStringArray, 0, 0, 0, len + 1);
copyScriptString(ah->data);
break;
case 205: // SO_ASSIGN_STRING
b = pop();
len = resStrLen(_scriptPointer);
- ah = defineArray(array, kStringArray, 0, len + 1);
+ ah = defineArray(array, kStringArray, 0, 0, 0, len + 1);
copyScriptString(ah->data + b);
break;
case 208: // SO_ASSIGN_INT_LIST
@@ -542,7 +628,7 @@
c = pop();
d = readVar(array);
if (d == 0) {
- defineArray(array, kIntArray, 0, b + c);
+ defineArray(array, kIntArray, 0, 0, 0, b + c);
}
while (c--) {
writeArray(array, 0, b + c, pop());
@@ -582,7 +668,7 @@
data = kByteArray;
break;
case 6:
- error("New array type");
+ data = kDwordArray;
break;
case 7: // SO_STRING_ARRAY
data = kStringArray;
@@ -594,7 +680,7 @@
error("o72_dimArray: default case %d", type);
}
- defineArray(fetchScriptWord(), data, 0, pop());
+ defineArray(fetchScriptWord(), data, 0, 0, 0, pop());
}
@@ -615,7 +701,7 @@
data = kIntArray;
break;
case 6:
- error("New array type");
+ data = kDwordArray;
break;
case 7: // SO_STRING_ARRAY
data = kStringArray;
@@ -626,7 +712,7 @@
b = pop();
a = pop();
- defineArray(fetchScriptWord(), data, a, b);
+ defineArray(fetchScriptWord(), data, 0, a, 0, b);
}
void ScummEngine_v72he::o72_jumpToScript() {
@@ -640,6 +726,24 @@
runScript(script, (flags == 199 || flags == 200), (flags == 195 || flags == 200), args);
}
+void ScummEngine_v72he::o72_findAllObjects() {
+ int a = pop();
+ int i = 1;
+
+ if (a != _currentRoom)
+ warning("o72_findAllObjects: current room is not %d", a);
+ writeVar(0, 0);
+ defineArray(0, kDwordArray, 0, 0, 0, _numLocalObjects + 1);
+ writeArray(0, 0, 0, _numLocalObjects);
+
+ while (i < _numLocalObjects) {
+ writeArray(0, 0, i, _objs[i].obj_nr);
+ i++;
+ }
+
+ push(readVar(0));
+}
+
void ScummEngine_v72he::o72_getPixel() {
byte area;
int x = pop();
@@ -662,6 +766,102 @@
push(area);
}
+void ScummEngine_v72he::o72_pickVarRandom() {
+ int num;
+ int args[100];
+ int32 var_A;
+
+ num = getStackList(args, ARRAYSIZE(args));
+ int value = fetchScriptWord();
+
+ if (readVar(value) == 0) {
+ defineArray(value, kDwordArray, 0, 0, 0, num + 1);
+ if (num > 0) {
+ int16 counter = 0;
+ do {
+ writeArray(value, 0, counter + 1, args[counter]);
+ } while (++counter < num);
+ }
+
+ shuffleArray(value, 1, num-1);
+ writeArray(value, 0, 0, 2);
+ push(readArray(value, 0, 1));
+ return;
+ }
+
+ num = readArray(value, 0, 0);
+
+ ArrayHeader *ah = (ArrayHeader *)getResourceAddress(rtString, num);
+ var_A = FROM_LE_32(ah->dim1end);
+
+ if (var_A-1 <= num) {
+ int16 var_2 = readArray(value, 0, num - 1);
+ shuffleArray(value, 1, num - 1);
+ if (readArray(value, 0, 1) == var_2) {
+ num = 2;
+ } else {
+ num = 1;
+ }
+ }
+
+ writeArray(value, 0, 0, num + 1);
+ push(readArray(value, 0, num));
+}
+
+void ScummEngine_v72he::o72_redimArray() {
+ int subcode, newX, newY;
+ newY = pop();
+ newX = pop();
+
+ subcode = fetchScriptByte();
+ switch (subcode) {
+ case 5:
+ redimArray(fetchScriptWord(), 0, newX, 0, newY, kIntArray);
+ break;
+ case 4:
+ redimArray(fetchScriptWord(), 0, newX, 0, newY, kByteArray);
+ break;
+ case 6:
+ redimArray(fetchScriptWord(), 0, newX, 0, newY, kDwordArray);
+ break;
+ default:
+ break;
+ }
+}
+
+void ScummEngine_v72he::redimArray(int arrayId, int newDim2start, int newDim2end,
+ int newDim1start, int newDim1end, int type) {
+ int newSize, oldSize;
+
+ if (readVar(arrayId) == 0)
+ error("redimArray: Reference to zeroed array pointer");
+
+ ArrayHeader *ah = (ArrayHeader *)getResourceAddress(rtString, readVar(arrayId));
+
+ if (!ah)
+ error("redimArray: Invalid array (%d) reference", readVar(arrayId));
+
+ newSize = arrayDataSizes[type];
+ oldSize = arrayDataSizes[FROM_LE_32(ah->type)];
+
+ newSize *= (newDim1end - newDim1start + 1) * (newDim2end - newDim2end + 1);
+ oldSize *= (FROM_LE_32(ah->dim1end) - FROM_LE_32(ah->dim1start) + 1) *
+ (FROM_LE_32(ah->dim2end) - FROM_LE_32(ah->dim2start) + 1);
+
+ newSize >>= 3;
+ oldSize >>= 3;
+
+ if (newSize != oldSize)
+ error("redimArray: array %d redim mismatch", readVar(arrayId));
+
+ ah->type = TO_LE_32(type);
+ ah->dim1start = TO_LE_32(newDim1start);
+ ah->dim1end = TO_LE_32(newDim1end);
+ ah->dim2start = TO_LE_32(newDim2start);
+ ah->dim2end = TO_LE_32(newDim2end);
+}
+
+
void ScummEngine_v72he::o72_stringLen() {
int a, len;
byte *addr;
@@ -691,7 +891,7 @@
push(0);
break;
case 7: // string
- defineArray(0, kStringArray, 0, 0);
+ defineArray(0, kStringArray, 0, 0, 0, 0);
retval = readVar(0);
writeArray(0, 0, 0, 0);
push(retval); // var ID string
- Previous message: [Scummvm-cvs-logs] CVS: scummvm/queen cutaway.cpp,1.130,1.131 cutaway.h,1.36,1.37 queen.cpp,1.89,1.90 resource.cpp,1.49,1.50 sound.cpp,1.43,1.44 talk.cpp,1.103,1.104 talk.h,1.33,1.34
- Next message: [Scummvm-cvs-logs] CVS: scummvm/scumm intern.h,2.193,2.194 script_v72he.cpp,2.13,2.14
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Scummvm-git-logs
mailing list