[Scummvm-cvs-logs] CVS: scummvm/scumm object.cpp,1.48,1.49

[Max Horn]

Update of /cvsroot/scummvm/scummvm/scumm
In directory sc8-pr-cvs1:/tmp/cvs-serv26373

Modified Files:
	object.cpp 
Log Message:
dump flObject scripts, too

Index: object.cpp
===================================================================
RCS file: /cvsroot/scummvm/scummvm/scumm/object.cpp,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -d -r1.48 -r1.49
--- object.cpp	12 Jan 2003 10:33:30 -0000	1.48
+++ object.cpp	12 Jan 2003 13:06:59 -0000	1.49
@@ -1670,6 +1670,17 @@
 
 	od = &_objs[objslot];
 
+	// Dump object script
+	if (_dumpScripts) {
+		char buf[32];
+		byte *ptr = foir.obcd;
+		sprintf(buf, "roomobj-%d-", room);
+		if (_features & GF_AFTER_V8)
+			// TODO - maybe V8 is not the only that needs this?
+			ptr = findResource(MKID('VERB'), ptr, 0);
+		dumpResource(buf, object, ptr);
+	}
+
 	// Setup sizes
 	obcd_size = READ_BE_UINT32_UNALIGNED(foir.obcd + 4);
 	od->OBCDoffset = 8;