Initial commit

engines/hugo/parser_v1w.cpp

@@ -0,0 +1,214 @@
+/* ScummVM - Graphic Adventure Engine
+ *
+ * ScummVM is the legal property of its developers, whose names
+ * are too numerous to list here. Please refer to the COPYRIGHT
+ * file distributed with this source distribution.
+ *
+ * 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 3 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, see <http://www.gnu.org/licenses/>.
+ *
+ */
+
+/*
+ * This code is based on original Hugo Trilogy source code
+ *
+ * Copyright (c) 1989-1995 David P. Gray
+ *
+ */
+
+// parser.c - handles all keyboard/command input
+
+#include "common/debug.h"
+
+#include "hugo/hugo.h"
+#include "hugo/parser.h"
+#include "hugo/file.h"
+#include "hugo/schedule.h"
+#include "hugo/route.h"
+#include "hugo/display.h"
+#include "hugo/util.h"
+#include "hugo/sound.h"
+#include "hugo/object.h"
+#include "hugo/text.h"
+#include "hugo/inventory.h"
+
+namespace Hugo {
+Parser_v1w::Parser_v1w(HugoEngine *vm) : Parser_v3d(vm) {
+}
+
+Parser_v1w::~Parser_v1w() {
+}
+
+/**
+ * Parse the user's line of text input.  Generate events as necessary
+ */
+void Parser_v1w::lineHandler() {
+	debugC(1, kDebugParser, "lineHandler()");
+
+	Status &gameStatus = _vm->getGameStatus();
+
+	// Toggle God Mode
+	if (!strncmp(_vm->_line, "PPG", 3)) {
+		_vm->_sound->playSound(_vm->_soundTest, kSoundPriorityHigh);
+		gameStatus._godModeFl = !gameStatus._godModeFl;
+		return;
+	}
+
+	Utils::hugo_strlwr(_vm->_line);                      // Convert to lower case
+
+	// God Mode cheat commands:
+	// goto <screen>                                Takes hero to named screen
+	// fetch <object name>                          Hero carries named object
+	// fetch all                                    Hero carries all possible objects
+	// find <object name>                           Takes hero to screen containing named object
+	if (gameStatus._godModeFl) {
+		// Special code to allow me to go straight to any screen
+		if (strstr(_vm->_line, "goto")) {
+			for (int i = 0; i < _vm->_numScreens; i++) {
+				if (!scumm_stricmp(&_vm->_line[strlen("goto") + 1], _vm->_text->getScreenNames(i))) {
+					_vm->_scheduler->newScreen(i);
+					return;
+				}
+			}
+		}
+
+		// Special code to allow me to get objects from anywhere
+		if (strstr(_vm->_line, "fetch all")) {
+			for (int i = 0; i < _vm->_object->_numObj; i++) {
+				if (_vm->_object->_objects[i]._genericCmd & TAKE)
+					takeObject(&_vm->_object->_objects[i]);
+			}
+			return;
+		}
+
+		if (strstr(_vm->_line, "fetch")) {
+			for (int i = 0; i < _vm->_object->_numObj; i++) {
+				if (!scumm_stricmp(&_vm->_line[strlen("fetch") + 1], _vm->_text->getNoun(_vm->_object->_objects[i]._nounIndex, 0))) {
+					takeObject(&_vm->_object->_objects[i]);
+					return;
+				}
+			}
+		}
+
+		// Special code to allow me to goto objects
+		if (strstr(_vm->_line, "find")) {
+			for (int i = 0; i < _vm->_object->_numObj; i++) {
+				if (!scumm_stricmp(&_vm->_line[strlen("find") + 1], _vm->_text->getNoun(_vm->_object->_objects[i]._nounIndex, 0))) {
+					_vm->_scheduler->newScreen(_vm->_object->_objects[i]._screenIndex);
+					return;
+				}
+			}
+		}
+	}
+
+	// Special meta commands
+	// EXIT/QUIT
+	if (!strcmp("exit", _vm->_line) || strstr(_vm->_line, "quit")) {
+		endGamePrompt();
+		return;
+	}
+
+	// SAVE/RESTORE
+	if (!strcmp("save", _vm->_line) && gameStatus._viewState == kViewPlay) {
+		_vm->_file->saveGame(-1, Common::String());
+		return;
+	}
+
+	if (!strcmp("restore", _vm->_line) && (gameStatus._viewState == kViewPlay || gameStatus._viewState == kViewIdle)) {
+		_vm->_file->restoreGame(-1);
+		return;
+	}
+
+	// Empty line
+	if (*_vm->_line == '\0')                        // Empty line
+		return;
+	if (strspn(_vm->_line, " ") == strlen(_vm->_line)) // Nothing but spaces!
+		return;
+
+	if (gameStatus._gameOverFl) {
+		// No commands allowed!
+		_vm->gameOverMsg();
+		return;
+	}
+
+	char farComment[kCompLineSize * 5] = "";        // hold 5 line comment if object not nearby
+
+	// Test for nearby objects referenced explicitly
+	for (int i = 0; i < _vm->_object->_numObj; i++) {
+		Object *obj = &_vm->_object->_objects[i];
+		if (isWordPresent(_vm->_text->getNounArray(obj->_nounIndex))) {
+			if (isObjectVerb_v3(obj, farComment) || isGenericVerb_v3(obj, farComment))
+				return;
+		}
+	}
+
+	// Test for nearby objects that only require a verb
+	// Note comment is unused if not near.
+	for (int i = 0; i < _vm->_object->_numObj; i++) {
+		Object *obj = &_vm->_object->_objects[i];
+		if (obj->_verbOnlyFl) {
+			char contextComment[kCompLineSize * 5] = ""; // Unused comment for context objects
+			if (isObjectVerb_v3(obj, contextComment) || isGenericVerb_v3(obj, contextComment))
+				return;
+		}
+	}
+
+	// No objects match command line, try background and catchall commands
+	if (isBackgroundWord_v3(_backgroundObjects[*_vm->_screenPtr]))
+		return;
+	if (isCatchallVerb_v3(_backgroundObjects[*_vm->_screenPtr]))
+		return;
+
+	if (isBackgroundWord_v3(_catchallList))
+		return;
+	if (isCatchallVerb_v3(_catchallList))
+		return;
+
+	// If a not-near comment was generated, print it
+	if (*farComment != '\0') {
+		_vm->notifyBox(farComment);
+		return;
+	}
+
+	// Nothing matches.  Report recognition success to user.
+	const char *verb = findVerb();
+	const char *noun = findNoun();
+	if (verb == _vm->_text->getVerb(_vm->_look, 0) && _vm->_maze._enabledFl) {
+		_vm->notifyBox(_vm->_text->getTextParser(kTBMaze));
+		_vm->_object->showTakeables();
+	} else if (verb && noun) {                      // A combination I didn't think of
+		_vm->notifyBox(_vm->_text->getTextParser(kTBNoPoint));
+	} else if (noun) {
+		_vm->notifyBox(_vm->_text->getTextParser(kTBNoun));
+	} else if (verb) {
+		_vm->notifyBox(_vm->_text->getTextParser(kTBVerb));
+	} else {
+		_vm->notifyBox(_vm->_text->getTextParser(kTBEh));
+	}
+}
+
+void Parser_v1w::showInventory() const {
+	Status &gameStatus = _vm->getGameStatus();
+	Istate inventState = _vm->_inventory->getInventoryState();
+	if (gameStatus._gameOverFl) {
+		_vm->gameOverMsg();
+	} else if ((inventState == kInventoryOff) && (gameStatus._viewState == kViewPlay)) {
+		_vm->_inventory->setInventoryState(kInventoryDown);
+		gameStatus._viewState = kViewInvent;
+	} else if (inventState == kInventoryActive) {
+		_vm->_inventory->setInventoryState(kInventoryUp);
+		gameStatus._viewState = kViewInvent;
+	}
+}
+
+} // End of namespace Hugo