Moved engines to the new engines/ directory

svn-id: r20582

1 files changed, 811 insertions, 0 deletions

diff --git a/engines/scumm/script_v80he.cpp b/engines/scumm/script_v80he.cpp
new file mode 100644
index 0000000000..307ab75d3f
--- /dev/null
+++ b/engines/scumm/script_v80he.cpp
@@ -0,0 +1,811 @@
+/* ScummVM - Scumm Interpreter
+ * Copyright (C) 2001  Ludvig Strigeus
+ * Copyright (C) 2001-2006 The ScummVM project
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License
+ * as published by the Free Software Foundation; either version 2
+ * of the License, or (at your option) any later version.
+
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+ *
+ * $URL$
+ * $Id$
+ *
+ */
+
+#include "common/stdafx.h"
+
+#include "common/config-file.h"
+#include "common/config-manager.h"
+#include "common/str.h"
+
+#include "scumm/actor.h"
+#include "scumm/charset.h"
+#include "scumm/intern_he.h"
+#include "scumm/object.h"
+#include "scumm/resource.h"
+#include "scumm/resource_v7he.h"
+#include "scumm/scumm.h"
+#include "scumm/sound.h"
+#include "scumm/util.h"
+
+namespace Scumm {
+
+#define OPCODE(x)	_OPCODE(ScummEngine_v80he, x)
+
+void ScummEngine_v80he::setupOpcodes() {
+	static const OpcodeEntryV80he opcodes[256] = {
+		/* 00 */
+		OPCODE(o6_pushByte),
+		OPCODE(o6_pushWord),
+		OPCODE(o72_pushDWord),
+		OPCODE(o6_pushWordVar),
+		/* 04 */
+		OPCODE(o72_getScriptString),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_wordArrayRead),
+		/* 08 */
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_wordArrayIndexedRead),
+		/* 0C */
+		OPCODE(o6_dup),
+		OPCODE(o6_not),
+		OPCODE(o6_eq),
+		OPCODE(o6_neq),
+		/* 10 */
+		OPCODE(o6_gt),
+		OPCODE(o6_lt),
+		OPCODE(o6_le),
+		OPCODE(o6_ge),
+		/* 14 */
+		OPCODE(o6_add),
+		OPCODE(o6_sub),
+		OPCODE(o6_mul),
+		OPCODE(o6_div),
+		/* 18 */
+		OPCODE(o6_land),
+		OPCODE(o6_lor),
+		OPCODE(o6_pop),
+		OPCODE(o72_isAnyOf),
+		/* 1C */
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		/* 20 */
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		/* 24 */
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		/* 28 */
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		/* 2C */
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		/* 30 */
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		/* 34 */
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		/* 38 */
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		/* 3C */
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		/* 40 */
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_writeWordVar),
+		/* 44 */
+		OPCODE(o6_invalid),
+		OPCODE(o80_createSound),
+		OPCODE(o80_getFileSize),
+		OPCODE(o6_wordArrayWrite),
+		/* 48 */
+		OPCODE(o80_stringToInt),
+		OPCODE(o80_getSoundVar),
+		OPCODE(o80_localizeArrayToRoom),
+		OPCODE(o6_wordArrayIndexedWrite),
+		/* 4C */
+		OPCODE(o80_sourceDebug),
+		OPCODE(o80_readConfigFile),
+		OPCODE(o80_writeConfigFile),
+		OPCODE(o6_wordVarInc),
+		/* 50 */
+		OPCODE(o72_resetCutscene),
+		OPCODE(o6_invalid),
+		OPCODE(o72_findObjectWithClassOf),
+		OPCODE(o6_wordArrayInc),
+		/* 54 */
+		OPCODE(o72_getObjectImageX),
+		OPCODE(o72_getObjectImageY),
+		OPCODE(o72_captureWizImage),
+		OPCODE(o6_wordVarDec),
+		/* 58 */
+		OPCODE(o72_getTimer),
+		OPCODE(o72_setTimer),
+		OPCODE(o72_getSoundPosition),
+		OPCODE(o6_wordArrayDec),
+		/* 5C */
+		OPCODE(o6_if),
+		OPCODE(o6_ifNot),
+		OPCODE(o72_startScript),
+		OPCODE(o6_startScriptQuick),
+		/* 60 */
+		OPCODE(o72_startObject),
+		OPCODE(o72_drawObject),
+		OPCODE(o72_printWizImage),
+		OPCODE(o72_getArrayDimSize),
+		/* 64 */
+		OPCODE(o72_getNumFreeArrays),
+		OPCODE(o6_stopObjectCode),
+		OPCODE(o6_stopObjectCode),
+		OPCODE(o6_endCutscene),
+		/* 68 */
+		OPCODE(o6_cutscene),
+		OPCODE(o6_invalid),
+		OPCODE(o6_freezeUnfreeze),
+		OPCODE(o80_cursorCommand),
+		/* 6C */
+		OPCODE(o6_breakHere),
+		OPCODE(o6_ifClassOfIs),
+		OPCODE(o6_setClass),
+		OPCODE(o6_getState),
+		/* 70 */
+		OPCODE(o80_setState),
+		OPCODE(o6_setOwner),
+		OPCODE(o6_getOwner),
+		OPCODE(o6_jump),
+		/* 74 */
+		OPCODE(o70_startSound),
+		OPCODE(o6_stopSound),
+		OPCODE(o6_invalid),
+		OPCODE(o6_stopObjectScript),
+		/* 78 */
+		OPCODE(o6_panCameraTo),
+		OPCODE(o6_actorFollowCamera),
+		OPCODE(o6_setCameraAt),
+		OPCODE(o6_loadRoom),
+		/* 7C */
+		OPCODE(o6_stopScript),
+		OPCODE(o6_walkActorToObj),
+		OPCODE(o6_walkActorTo),
+		OPCODE(o6_putActorAtXY),
+		/* 80 */
+		OPCODE(o6_putActorAtObject),
+		OPCODE(o6_faceActor),
+		OPCODE(o6_animateActor),
+		OPCODE(o6_doSentence),
+		/* 84 */
+		OPCODE(o70_pickupObject),
+		OPCODE(o6_loadRoomWithEgo),
+		OPCODE(o6_invalid),
+		OPCODE(o6_getRandomNumber),
+		/* 88 */
+		OPCODE(o6_getRandomNumberRange),
+		OPCODE(o6_invalid),
+		OPCODE(o6_getActorMoving),
+		OPCODE(o6_isScriptRunning),
+		/* 8C */
+		OPCODE(o70_getActorRoom),
+		OPCODE(o6_getObjectX),
+		OPCODE(o6_getObjectY),
+		OPCODE(o6_getObjectOldDir),
+		/* 90 */
+		OPCODE(o6_getActorWalkBox),
+		OPCODE(o6_getActorCostume),
+		OPCODE(o6_findInventory),
+		OPCODE(o6_getInventoryCount),
+		/* 94 */
+		OPCODE(o6_invalid),
+		OPCODE(o6_beginOverride),
+		OPCODE(o6_endOverride),
+		OPCODE(o6_setObjectName),
+		/* 98 */
+		OPCODE(o6_isSoundRunning),
+		OPCODE(o6_setBoxFlags),
+		OPCODE(o6_invalid),
+		OPCODE(o70_resourceRoutines),
+		/* 9C */
+		OPCODE(o72_roomOps),
+		OPCODE(o72_actorOps),
+		OPCODE(o6_invalid),
+		OPCODE(o6_getActorFromXY),
+		/* A0 */
+		OPCODE(o72_findObject),
+		OPCODE(o6_pseudoRoom),
+		OPCODE(o6_getActorElevation),
+		OPCODE(o6_getVerbEntrypoint),
+		/* A4 */
+		OPCODE(o72_arrayOps),
+		OPCODE(o6_invalid),
+		OPCODE(o6_drawBox),
+		OPCODE(o6_pop),
+		/* A8 */
+		OPCODE(o6_getActorWidth),
+		OPCODE(o60_wait),
+		OPCODE(o6_getActorScaleX),
+		OPCODE(o6_getActorAnimCounter1),
+		/* AC */
+		OPCODE(o80_drawWizPolygon),
+		OPCODE(o6_isAnyOf),
+		OPCODE(o72_systemOps),
+		OPCODE(o6_isActorInBox),
+		/* B0 */
+		OPCODE(o6_delay),
+		OPCODE(o6_delaySeconds),
+		OPCODE(o6_delayMinutes),
+		OPCODE(o6_stopSentence),
+		/* B4 */
+		OPCODE(o6_printLine),
+		OPCODE(o6_printText),
+		OPCODE(o6_printDebug),
+		OPCODE(o6_printSystem),
+		/* B8 */
+		OPCODE(o6_printActor),
+		OPCODE(o6_printEgo),
+		OPCODE(o72_talkActor),
+		OPCODE(o72_talkEgo),
+		/* BC */
+		OPCODE(o72_dimArray),
+		OPCODE(o6_stopObjectCode),
+		OPCODE(o6_startObjectQuick),
+		OPCODE(o6_startScriptQuick2),
+		/* C0 */
+		OPCODE(o72_dim2dimArray),
+		OPCODE(o72_traceStatus),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		/* C4 */
+		OPCODE(o6_abs),
+		OPCODE(o6_distObjectObject),
+		OPCODE(o6_distObjectPt),
+		OPCODE(o6_distPtPt),
+		/* C8 */
+		OPCODE(o72_kernelGetFunctions),
+		OPCODE(o70_kernelSetFunctions),
+		OPCODE(o6_delayFrames),
+		OPCODE(o6_pickOneOf),
+		/* CC */
+		OPCODE(o6_pickOneOfDefault),
+		OPCODE(o6_stampObject),
+		OPCODE(o72_drawWizImage),
+		OPCODE(o72_debugInput),
+		/* D0 */
+		OPCODE(o6_getDateTime),
+		OPCODE(o6_stopTalking),
+		OPCODE(o6_getAnimateVariable),
+		OPCODE(o6_invalid),
+		/* D4 */
+		OPCODE(o6_shuffle),
+		OPCODE(o72_jumpToScript),
+		OPCODE(o6_band),
+		OPCODE(o6_bor),
+		/* D8 */
+		OPCODE(o6_isRoomScriptRunning),
+		OPCODE(o60_closeFile),
+		OPCODE(o72_openFile),
+		OPCODE(o72_readFile),
+		/* DC */
+		OPCODE(o72_writeFile),
+		OPCODE(o72_findAllObjects),
+		OPCODE(o72_deleteFile),
+		OPCODE(o72_rename),
+		/* E0 */
+		OPCODE(o80_drawLine),
+		OPCODE(o72_getPixel),
+		OPCODE(o60_localizeArrayToScript),
+		OPCODE(o80_pickVarRandom),
+		/* E4 */
+		OPCODE(o6_setBoxSet),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		/* E8 */
+		OPCODE(o6_invalid),
+		OPCODE(o70_seekFilePos),
+		OPCODE(o72_redimArray),
+		OPCODE(o60_readFilePos),
+		/* EC */
+		OPCODE(o70_copyString),
+		OPCODE(o70_getStringWidth),
+		OPCODE(o70_getStringLen),
+		OPCODE(o70_appendString),
+		/* F0 */
+		OPCODE(o70_concatString),
+		OPCODE(o70_compareString),
+		OPCODE(o70_isResourceLoaded),
+		OPCODE(o72_readINI),
+		/* F4 */
+		OPCODE(o72_writeINI),
+		OPCODE(o70_getStringLenForWidth),
+		OPCODE(o70_getCharIndexInString),
+		OPCODE(o6_invalid),
+		/* F8 */
+		OPCODE(o72_getResourceSize),
+		OPCODE(o72_setFilePath),
+		OPCODE(o72_setWindowCaption),
+		OPCODE(o70_polygonOps),
+		/* FC */
+		OPCODE(o70_polygonHit),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+		OPCODE(o6_invalid),
+	};
+
+	_opcodesV80he = opcodes;
+}
+
+void ScummEngine_v80he::executeOpcode(byte i) {
+	OpcodeProcV80he op = _opcodesV80he[i].proc;
+	(this->*op) ();
+}
+
+const char *ScummEngine_v80he::getOpcodeDesc(byte i) {
+	return _opcodesV80he[i].desc;
+}
+
+void ScummEngine_v80he::o80_createSound() {
+	byte subOp = fetchScriptByte();
+
+	switch (subOp) {
+	case 27:
+		createSound(_heSndResId, pop());
+		break;
+	case 217:
+		createSound(_heSndResId, -1);
+		break;
+	case 232:
+		_heSndResId = pop();
+		break;
+	case 255:
+		// dummy case
+		break;
+	default:
+		error("o80_createSound: default case %d", subOp);
+	}
+}
+
+void ScummEngine_v80he::o80_getFileSize() {
+	byte filename[256];
+
+	copyScriptString(filename, sizeof(filename));
+
+	Common::File f;
+	if (!f.open((char *)filename)) {
+		push(-1);
+	} else {
+		push(f.size());
+		f.close();
+	}
+}
+
+void ScummEngine_v80he::o80_stringToInt() {
+	int id, len, val;
+	byte *addr;
+	char string[100];
+
+	id = pop();
+
+	addr = getStringAddress(id);
+	if (!addr)
+		error("o80_stringToInt: Reference to zeroed array pointer (%d)", id);
+
+	len = resStrLen(getStringAddress(id)) + 1;
+	memcpy(string, addr, len);
+	val = atoi(string);
+	push(val);
+}
+
+void ScummEngine_v80he::o80_getSoundVar() {
+	int var = pop();
+	int snd = pop();
+	push(_sound->getSoundVar(snd, var));
+}
+
+void ScummEngine_v80he::o80_localizeArrayToRoom() {
+	int slot = pop();
+	localizeArray(slot, 0xFF);
+}
+
+void ScummEngine_v80he::o80_sourceDebug() {
+	fetchScriptDWord();
+	fetchScriptDWord();
+}
+
+void ScummEngine_v80he::o80_readConfigFile() {
+	byte option[128], section[128], filename[256];
+	ArrayHeader *ah;
+	Common::String entry;
+	int len;
+
+	copyScriptString(option, sizeof(option));
+	copyScriptString(section, sizeof(section));
+	copyScriptString(filename, sizeof(filename));
+	convertFilePath(filename, true);
+
+	Common::ConfigFile ConfFile;
+	ConfFile.loadFromFile((const char *)filename);
+
+	byte subOp = fetchScriptByte();
+
+	switch (subOp) {
+	case 43: // HE 100
+	case 6: // number
+		ConfFile.getKey((const char *)option, (const char *)section, entry);
+
+		push(atoi(entry.c_str()));
+		break;
+	case 77: // HE 100
+	case 7: // string
+		ConfFile.getKey((const char *)option, (const char *)section, entry);
+
+		writeVar(0, 0);
+		len = resStrLen((const byte *)entry.c_str());
+		ah = defineArray(0, kStringArray, 0, 0, 0, len);
+		memcpy(ah->data, entry.c_str(), len);
+		push(readVar(0));
+		break;
+	default:
+		error("o80_readConfigFile: default type %d", subOp);
+	}
+
+	debug(1, "o80_readConfigFile: Filename %s Section %s Option %s Value %s", filename, section, option, entry.c_str());
+}
+
+void ScummEngine_v80he::o80_writeConfigFile() {
+	byte filename[256], section[256], option[256], string[1024];
+	int value;
+
+	byte subOp = fetchScriptByte();
+
+	switch (subOp) {
+	case 43: // HE 100
+	case 6: // number
+		value = pop();
+		sprintf((char *)string, "%d", value);
+		copyScriptString(option, sizeof(option));
+		copyScriptString(section, sizeof(section));
+		copyScriptString(filename, sizeof(filename));
+		convertFilePath(filename, true);
+		break;
+	case 77: // HE 100
+	case 7: // string
+		copyScriptString(string, sizeof(string));
+		copyScriptString(option, sizeof(option));
+		copyScriptString(section, sizeof(section));
+		copyScriptString(filename, sizeof(filename));
+		convertFilePath(filename, true);
+		break;
+	default:
+		error("o80_writeConfigFile: default type %d", subOp);
+	}
+
+	Common::ConfigFile ConfFile;
+	ConfFile.loadFromFile((const char *)filename);
+	ConfFile.setKey((char *)option, (char *)section, (char *)string);
+	ConfFile.saveToFile((const char *)filename);
+	debug(1,"o80_writeConfigFile: Filename %s Section %s Option %s String %s", filename, section, option, string);
+}
+
+void ScummEngine_v80he::o80_cursorCommand() {
+	int a, i;
+	int args[16];
+
+	byte subOp = fetchScriptByte();
+
+	switch (subOp) {
+	case 0x13:
+	case 0x14:
+		a = pop();
+		_wiz->loadWizCursor(a);
+		break;
+	case 0x3C:
+		pop();
+		a = pop();
+		_wiz->loadWizCursor(a);
+		break;
+	case 0x90:		// SO_CURSOR_ON Turn cursor on
+		_cursor.state = 1;
+		break;
+	case 0x91:		// SO_CURSOR_OFF Turn cursor off
+		_cursor.state = 0;
+		break;
+	case 0x92:		// SO_USERPUT_ON
+		_userPut = 1;
+		break;
+	case 0x93:		// SO_USERPUT_OFF
+		_userPut = 0;
+		break;
+	case 0x94:		// SO_CURSOR_SOFT_ON Turn soft cursor on
+		_cursor.state++;
+		if (_cursor.state > 1)
+			error("Cursor state greater than 1 in script");
+		break;
+	case 0x95:		// SO_CURSOR_SOFT_OFF Turn soft cursor off
+		_cursor.state--;
+		break;
+	case 0x96:		// SO_USERPUT_SOFT_ON
+		_userPut++;
+		break;
+	case 0x97:		// SO_USERPUT_SOFT_OFF
+		_userPut--;
+		break;
+	case 0x9C:		// SO_CHARSET_SET
+		initCharset(pop());
+		break;
+	case 0x9D:		// SO_CHARSET_COLOR
+		getStackList(args, ARRAYSIZE(args));
+		for (i = 0; i < 16; i++)
+			_charsetColorMap[i] = _charsetData[_string[1]._default.charset][i] = (unsigned char)args[i];
+		break;
+	default:
+		error("o80_cursorCommand: default case %x", subOp);
+	}
+
+	VAR(VAR_CURSORSTATE) = _cursor.state;
+	VAR(VAR_USERPUT) = _userPut;
+}
+
+void ScummEngine_v80he::o80_setState() {
+	int state = pop();
+	int obj = pop();
+
+	state &= 0x7FFF;
+	putState(obj, state);
+	removeObjectFromDrawQue(obj);
+}
+
+void ScummEngine_v80he::o80_drawWizPolygon() {
+	WizImage wi;
+	wi.x1 = wi.y1 = pop();
+	wi.resNum = pop();
+	wi.state = 0;
+	wi.flags = kWIFIsPolygon;
+	_wiz->displayWizImage(&wi);
+}
+
+/**
+ * Draw a 'line' between two points.
+ *
+ * @param x1	the starting x coordinate
+ * @param y1	the starting y coordinate
+ * @param x		the ending x coordinate
+ * @param y		the ending y coordinate
+ * @param step	the step size used to render the line, only ever 'step'th point is drawn
+ * @param type	the line type -- points are rendered by drawing actors (type == 2),
+ *              wiz images (type == 3), or pixels (any other type)
+ * @param id	the id of an actor, wizimage or color (low bit) & flag (high bit)
+ */
+void ScummEngine_v80he::drawLine(int x1, int y1, int x, int y, int step, int type, int id) {
+	if (step < 0) {
+		step = -step;
+	}
+	if (step == 0) {
+		step = 1;
+	}
+
+	const int dx = x - x1;
+	const int dy = y - y1;
+
+	const int absDX = ABS(dx);
+	const int absDY = ABS(dy);
+
+	const int maxDist = MAX(absDX, absDY);
+
+	y = y1;
+	x = x1;
+
+
+	if (type == 2) {
+		Actor *a = derefActor(id, "drawLine");
+		a->drawActorToBackBuf(x, y);
+	} else if (type == 3) {
+		WizImage wi;
+		wi.flags = 0;
+		wi.y1 = y;
+		wi.x1 = x;
+		wi.resNum = id;
+		wi.state = 0;
+		_wiz->displayWizImage(&wi);
+	} else {
+		drawPixel(x, y, id);
+	}
+
+	int stepCount = 0;
+	int tmpX = 0;
+	int tmpY = 0;
+	for (int i = 0; i <= maxDist; i++) {
+		tmpX += absDX;
+		tmpY += absDY;
+
+		int drawFlag = 0;
+
+		if (tmpX > maxDist) {
+			drawFlag = 1;
+			tmpX -= maxDist;
+
+			if (dx >= 0) {
+				x++;
+			} else {
+				x--;
+			}
+		}
+		if (tmpY > maxDist) {
+			drawFlag = dy;
+			tmpY -= maxDist;
+
+			if (dy >= 0) {
+				y++;
+			} else {
+				y--;
+			}
+		}
+
+		if (drawFlag == 0)
+			continue;
+
+		if ((stepCount++ % step) != 0 && maxDist != i)
+			continue;
+
+		if (type == 2) {
+			Actor *a = derefActor(id, "drawLine");
+			a->drawActorToBackBuf(x, y);
+		} else if (type == 3) {
+			WizImage wi;
+			wi.flags = 0;
+			wi.y1 = y;
+			wi.x1 = x;
+			wi.resNum = id;
+			wi.state = 0;
+			_wiz->displayWizImage(&wi);
+		} else {
+			drawPixel(x, y, id);
+		}
+	}
+}
+
+void ScummEngine_v80he::drawPixel(int x, int y, int flags) {
+	byte *src, *dst;
+	VirtScreen *vs;
+
+	if (x < 0 || x > 639)
+		return;
+
+	if (y < 0)
+		return;
+
+	if ((vs = findVirtScreen(y)) == NULL)
+		return;
+
+	markRectAsDirty(vs->number, x, y, x, y + 1);
+
+	if ((flags & 0x4000) || (flags & 0x2000000)) {
+		src = vs->getPixels(x, y);
+		dst = vs->getBackPixels(x, y);
+		*dst = *src;
+	} else if ((flags & 0x2000) || (flags & 4000000)) {
+		src = vs->getBackPixels(x, y);
+		dst = vs->getPixels(x, y);
+		*dst = *src;
+	} else if (flags & 0x8000000) {
+		error("drawPixel: unsupported flag 0x%x", flags);
+	} else {
+		dst = vs->getPixels(x, y);
+		*dst = flags;
+		if ((flags & 0x8000) || (flags & 0x1000000)) {
+			dst = vs->getBackPixels(x, y);
+			*dst = flags;
+		}
+	}
+}
+
+void ScummEngine_v80he::o80_drawLine() {
+	int id, step, x, y, x1, y1;
+
+	step = pop();
+	id = pop();
+	y = pop();
+	x = pop();
+	y1 = pop();
+	x1 = pop();
+
+	byte subOp = fetchScriptByte();
+
+	switch (subOp) {
+	case 55:
+		drawLine(x1, y1, x, y, step, 2, id);
+		break;
+	case 63:
+		drawLine(x1, y1, x, y, step, 3, id);
+		break;
+	case 66:
+		drawLine(x1, y1, x, y, step, 1, id);
+		break;
+	default:
+		error("o80_drawLine: default case %d", subOp);
+	}
+
+}
+
+void ScummEngine_v80he::o80_pickVarRandom() {
+	int num;
+	int args[100];
+	int32 dim1end;
+
+	num = getStackList(args, ARRAYSIZE(args));
+	int value = fetchScriptWord();
+
+	if (readVar(value) == 0) {
+		defineArray(value, kDwordArray, 0, 0, 0, num);
+		if (value & 0x8000)
+			localizeArray(readVar(value), 0xFF);
+		else if (value & 0x4000)
+			localizeArray(readVar(value), _currentScript);
+
+		if (num > 0) {
+			int16 counter = 0;
+			do {
+				writeArray(value, 0, counter + 1, args[counter]);
+			} while (++counter < num);
+		}
+
+		shuffleArray(value, 1, num);
+		writeArray(value, 0, 0, 2);
+		push(readArray(value, 0, 1));
+		return;
+	}
+
+	num = readArray(value, 0, 0);
+
+	ArrayHeader *ah = (ArrayHeader *)getResourceAddress(rtString, readVar(value));
+	dim1end = FROM_LE_32(ah->dim1end);
+
+	if (dim1end < num) {
+		int32 var_2 = readArray(value, 0, num - 1);
+		shuffleArray(value, 1, dim1end);
+		num = 1;
+		if (readArray(value, 0, 1) == var_2 && dim1end >= 3) {
+			int32 tmp = readArray(value, 0, 2);
+			writeArray(value, 0, num, tmp);
+			writeArray(value, 0, 2, var_2);
+		}
+	}
+
+	writeArray(value, 0, 0, num + 1);
+	push(readArray(value, 0, num));
+}
+
+} // End of namespace Scumm