scummvm/engines/avalanche/acci2.cpp

 /* 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 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.
 *
 */

/*
 * This code is based on the original source code of Lord Avalot d'Argent version 1.3.
 * Copyright (c) 1994-1995 Mike, Mark and Thomas Thurman.
 */

/* ACCIDENCE II		The parser. */

#include "avalanche/avalanche.h"

#include "avalanche/acci2.h"
#include "avalanche/gyro2.h"
#include "avalanche/lucerna2.h"
#include "avalanche/scrolls2.h"
#include "avalanche/visa2.h"
#include "avalanche/timeout2.h"
#include "avalanche/trip6.h"
#include "avalanche/enid2.h"
#include "avalanche/celer2.h"
#include "avalanche/pingo2.h"
#include "avalanche/sequence2.h"

#include "common/textconsole.h"

#include <cstring>


/*#include "NimUnit.h"*/
/*#include "Highs.h"*/
/*#include "Helper.h"*/

namespace Avalanche {

const Acci::vocab Acci::words[nowords] = {
		/* Verbs, 1-49 */
	{1, "EXAMINE"},   {1, "READ"},      {1, "XAM"},                  /* short */
	{2, "OPEN"},      {2, "LEAVE"},     {2, "UNLOCK"},
	{3, "PAUSE"},     {47, "TA"},            /* Early to avoid Take and Talk. */
	{4, "TAKE"},      {4, "GET"},       {4, "PICK"},
	{5, "DROP"},      {6, "INVENTORY"}, {7, "TALK"},
	{7, "SAY"},       {7, "ASK"},
	{8, "GIVE"},      {9, "DRINK"},     {9, "IMBIBE"},
	{9, "DRAIN"},     {10, "LOAD"},      {10, "RESTORE"},
	{11, "SAVE"},      {12, "BRIBE"},     {12, "PAY"},
	{13, "LOOK"},      {14, "BREAK"},     {15, "QUIT"},
	{15, "EXIT"},      {16, "SIT"},       {16, "SLEEP"},
	{17, "STAND"},

	{18, "GO"},        {19, "INFO"},      {20, "UNDRESS"},
	{20, "DOFF"},
	{21, "DRESS"},     {21, "WEAR"},      {21, "DON"},
	{22, "PLAY"},
	{22, "STRUM"},     {23, "RING"},      {24, "HELP"},
	{25, "KENDAL"},    {26, "CAPYBARA"},  {27, "BOSS"},
	{255, "NINET"},    /* block for NINETY */
	{28, "URINATE"},   {28, "MINGITE"},   {29, "NINETY"},
	{30, "ABRACADABRA"}, {30, "PLUGH"},     {30, "XYZZY"},
	{30, "HOCUS"},     {30, "POCUS"},     {30, "IZZY"},
	{30, "WIZZY"},     {30, "PLOVER"},
	{30, "MELENKURION"}, {30, "ZORTON"},    {30, "BLERBI"},
	{30, "THURB"},     {30, "SNOEZE"},    {30, "SAMOHT"},
	{30, "NOSIDE"},    {30, "PHUGGG"},    {30, "KNERL"},
	{30, "MAGIC"},     {30, "KLAETU"},    {30, "VODEL"},
	{30, "BONESCROLLS"}, {30, "RADOF"},

	{31, "RESTART"},
	{32, "SWALLOW"},   {32, "EAT"},       {33, "LISTEN"},
	{33, "HEAR"},      {34, "BUY"},       {34, "PURCHASE"},
	{34, "ORDER"},     {34, "DEMAND"},
	{35, "ATTACK"},    {35, "HIT"},       {35, "KILL"},
	{35, "PUNCH"},     {35, "KICK"},      {35, "SHOOT"},
	{35, "FIRE"},

	/* Passwords, 36: */

	{36, "TIROS"},     {36, "WORDY"},     {36, "STACK"},
	{36, "SHADOW"},    {36, "OWL"},       {36, "ACORN"},
	{36, "DOMESDAY"},  {36, "FLOPPY"},    {36, "DIODE"},
	{36, "FIELD"},     {36, "COWSLIP"},   {36, "OSBYTE"},
	{36, "OSCLI"},     {36, "TIMBER"},    {36, "ADVAL"},
	{36, "NEUTRON"},   {36, "POSITRON"},  {36, "ELECTRON"},
	{36, "CIRCUIT"},   {36, "AURUM"},     {36, "PETRIFY"},
	{36, "EBBY"},      {36, "CATAPULT"},  {36, "GAMERS"},
	{36, "FUDGE"},     {36, "CANDLE"},    {36, "BEEB"},
	{36, "MICRO"},     {36, "SESAME"},    {36, "LORDSHIP"},

	{37, "DIR"},       {37, "LS"},        {38, "DIE"},
	{39, "SCORE"},
	{40, "PUT"},       {40, "INSERT"},    {41, "KISS"},
	{41, "SNOG"},      {41, "CUDDLE"},    {42, "CLIMB"},
	{42, "CLAMBER"},   {43, "JUMP"},      {44, "HIGHSCORES"},
	{44, "HISCORES"},  {45, "WAKEN"},     {45, "AWAKEN"},
	{46, "HELLO"},     {46, "HI"},        {46, "YO"},
	{47, "THANKS"},       /* = 47, "ta", which was defined earlier. */


	/* Nouns - Objects: 50-100. */

	{50, "WINE"},      {50, "BOOZE"},    {50, "NASTY"},
	{50, "VINEGAR"},   {51, "MONEYBAG"},
	{51, "BAG"},       {51, "CASH"},     {51, "DOSH"},
	{51, "WALLET"},
	{52, "BODKIN"},    {52, "DAGGER"},   {53, "POTION"},
	{54, "CHASTITY"},  {54, "BELT"},     {55, "BOLT"},
	{55, "ARROW"},     {55, "DART"},
	{56, "CROSSBOW"},  {56, "BOW"},      {57, "LUTE"},
	{58, "PILGRIM"},   {58, "BADGE"},    {59, "MUSHROOMS"},
	{59, "TOADSTOOLS"}, {60, "KEY"},      {61, "BELL"},
	{62, "PRESCRIPT"}, {62, "SCROLL"},   {62, "MESSAGE"},
	{63, "PEN"},       {63, "QUILL"},    {64, "INK"},
	{64, "INKPOT"},    {65, "CLOTHES"},  {66, "HABIT"},
	{66, "DISGUISE"},  {67, "ONION"},

	{99, "PASSWORD"},

	/* Objects from Also are placed between 101 and 131. */

	/* Nouns - People - Male, 150-174 */
	{150, "AVVY"},      {150, "AVALOT"},    {150, "YOURSELF"},
	{150, "ME"},        {150, "MYSELF"},    {151, "SPLUDWICK"},
	{151, "THOMAS"},    {151, "ALCHEMIST"}, {151, "CHEMIST"},
	{152, "CRAPULUS"},  {152, "SERF"},      {152, "SLAVE"},
	{158, "DU"},      /* <<< Put in early for Baron DU Lustie to save confusion with Duck & Duke.*/
	{152, "CRAPPY"},    {153, "DUCK"},      {153, "DOCTOR"},
	{154, "MALAGAUCHE"},
	{155, "FRIAR"},     {155, "TUCK"},      {156, "ROBIN"},
	{156, "HOOD"},      {157, "CWYTALOT"},  {157, "GUARD"},
	{157, "BRIDGEKEEP"}, {158, "BARON"},     {158, "LUSTIE"},
	{159, "DUKE"},      {159, "GRACE"},     {160, "DOGFOOD"},
	{160, "MINSTREL"},  {161, "TRADER"},    {161, "SHOPKEEPER"},
	{161, "STALLHOLDER"},
	{162, "PILGRIM"},   {162, "IBYTHNETH"}, {163, "ABBOT"},
	{163, "AYLES"},     {164, "PORT"},      {165, "SPURGE"},
	{166, "JACQUES"},   {166, "SLEEPER"},   {166, "RINGER"},

	/* Nouns- People - Female: 175-199 */
	{175, "WIFE"},      {175, "ARKATA"},    {176, "GEDALODAVA"},
	{176, "GEIDA"},     {176, "PRINCESS"},  {178, "WISE"},
	{178, "WITCH"},

	/* Pronouns, 200-224 */
	{200, "_vm->_gyro->him"},       {200, "MAN"},       {200, "GUY"},
	{200, "DUDE"},      {200, "CHAP"},      {200, "FELLOW"},
	{201, "HER"},       {201, "GIRL"},      {201, "WOMAN"},
	{202, "IT"},        {202, "THING"},

	{203, "MONK"},       {204, "BARMAN"},    {204, "BARTENDER"},

	/* Prepositions, 225-249 */
	{225, "TO"},        {226, "AT"},        {227, "UP"},
	{228, "INTO"},      {228, "INSIDE"},    {229, "OFF"},
	{230, "UP"},        {231, "DOWN"},      {232, "ON"},


	/* Please, 251 */
	{251, "PLEASE"},

	/* About, 252 */
	{252, "ABOUT"}, {252, "CONCERNING"},

	/* Swear words, 253 */
	/*              I M P O R T A N T    M E S S A G E

		DO *NOT* READ THE LINES BELOW IF YOU ARE OF A SENSITIVE
		DISPOSITION. THOMAS IS *NOT* RESPONSIBLE FOR THEM.
		GOODNESS KNOWS WHO WROTE THEM.
		READ THEM AT YOUR OWN RISK. BETTER STILL, DON'T READ THEM.
		WHY ARE YOU SNOOPING AROUND IN MY PROGRAM, ANYWAY? */

	{253, "SHIT"},      {28 , "PISS"},    {28 , "PEE"},
	{253, "FART"},      {253, "FUCK"},    {253, "BALLS"},
	{253, "BLAST"},     {253, "BUGGER"},  {253, "KNICKERS"},
	{253, "BLOODY"},    {253, "HELL"},    {253, "DAMN"},
	{253, "SMEG"},
	/* and other even ruder words. You didn't read them, did you? Good. */

	/* Answer-back smart-alec words, 249 */
	{249, "YES"},       {249, "NO"},        {249, "BECAUSE"},

	/* Noise words, 255 */
	{255, "THE"},       {255, "A"},         {255, "NOW"},
	{255, "SOME"},      {255, "AND"},       {255, "THAT"},
	{255, "POCUS"},     {255, "HIS"},
	{255, "THIS"},      {255, "SENTINEL"}
	
};        /* for "Ken SENT Me" */


const char Acci::what[] = "That's not possible!";

const Acci::ranktype Acci::ranks[9] = {
	{0, "Beginner"},    {10, "Novice"},
	{20, "Improving"},   {35, "Not bad"},
	{50, "Passable"},    {65, "Good"},
	{80, "Experienced"}, {108, "The BEST!"},
	{32767, "copyright'93"}
};


Acci::Acci(AvalancheEngine *vm) {
	_vm = vm;
}

void Acci::init() {
	_vm->_gyro->weirdword = false;
}

void Acci::clearwords() {
	for (byte i = 0; i < 11; i++)
		if (!realwords[i].empty())
			realwords[i].clear();
}

byte Acci::wordnum(Common::String x) {
	if (x.empty())
		return 0;
	
	for (int32 fv = nowords - 1; fv >= 0; fv--) 
		if ((words[fv].w == x) || (Common::String(words[fv].w.c_str(), x.size()) == x))
			return words[fv].n;

	return pardon;
}

void Acci::replace(Common::String old1, byte new1) {
	int16 q = pos(old1, thats);
	while (q != -1) {
		if (new1 == 0)
			thats.deleteChar(q);
		else {
			for (byte i = q; i < q + old1.size(); i++)
				thats.deleteChar(q);
			thats.insertChar(new1, q);
		}
		q = pos(old1, thats);
	}
}

/*procedure ninetydump;
var f:file; y:int16; bit:byte; a:byte absolute $A000:800;
begin
	off;
	assign(f,'avvydump.avd');
	rewrite(f,1);
	blockwrite(f,_vm->_gyro->dna,177); { just anything }
	for bit:=0 to 3 do
	begin
	port[$3c4]:=2; port[$3ce]:=4; port[$3C5]:=1 shl bit; port[$3CF]:=bit;
	blockwrite(f,a,12080);
	end;
	close(f); on;
	_vm->_scrolls->display('Dumped.');
end;*/

Common::String Acci::rank() {
	byte fv;

	Common::String rank_result = "";
	for (fv = 1; fv <= 8; fv++) {
		if ((_vm->_gyro->dna.score >= ranks[fv].score) && (_vm->_gyro->dna.score < ranks[fv + 1].score)) {
			rank_result = ranks[fv].title;
			return rank_result;
		}
	}
	
	return rank_result;
}

Common::String Acci::totaltime() {
	const double ticks_in_1_sec = double(65535) / 3600;
	uint16 h, m, s;
	Common::String a;

	/* There are 65535 clock ticks in a second,
		1092.25 in a minute, and
		65535 in an hour. */
	Common::String totaltime_result;
		
	warning("STUB: Acci::totaltime()");

	totaltime_result = a;
	return totaltime_result;
}



void Acci::number(Common::String &codes) {
	warning("STUB: Acci::number()");
}

void Acci::cheatparse(Common::String codes) {
	uint16 num;
	int16 e;

	char cmd;
	int16 se, sx, sy;

	warning("STUB: Acci::cheatparse()");
}

void Acci::punctustrip(Common::String &x) {        /* Strips punctuation from x. */
	const char punct[] = "~`!@#$%^&*()_+-={}[]:\"|;'\\,./<>?";

	for (byte fv = 0; fv < 32; fv++)
		do {
			int16 p = pos(Common::String(punct[fv]), x);
			if (p == -1)
				break;
			x.deleteChar(p);
		} while (true);
}



void Acci::displaywhat(char ch, bool animate, bool &ambigous) { /* << it's an adjective! */
	if (ch == pardon) {
		ambigous = true;
		if (animate)
			_vm->_scrolls->display("Whom?");
		else
			_vm->_scrolls->display("What?");
	} else {
		if (animate)
			_vm->_scrolls->display(Common::String("{ ") + _vm->_gyro->getname(ch) + " }");
		else {
			Common::String z = _vm->_gyro->get_better(ch);
			if (z != "") 
				_vm->_scrolls->display(Common::String("{ ") + z + " }");
		}
	}
}

bool Acci::do_pronouns() {
	bool ambiguous = false;

	for (byte fv = 0; fv < thats.size(); fv++)
		switch (thats[fv]) {
		case 200: {
			displaywhat(_vm->_gyro->him, true, ambiguous);
			thats.setChar(_vm->_gyro->him, fv);
			}
			break;
		case 201: {
			displaywhat(_vm->_gyro->her, true, ambiguous);
			thats.setChar(_vm->_gyro->her, fv);
			}
			break;
		case 202: {
			displaywhat(_vm->_gyro->it, false, ambiguous);
			thats.setChar(_vm->_gyro->it, fv);
			}
			break;
	}

	return ambiguous;
}

void Acci::lowercase() {
	byte fv;

	warning("STUB: Acci::lowercase()");
}

void Acci::propernouns() {
	byte fv;

	lowercase();
	warning("STUB: Acci::propernouns()");
}

void Acci::sayit() { /* This makes Avalot say the response. */
	Common::String x;

	warning("STUB: Acci::sayit()");
}

void Acci::store_interrogation(byte interrogation) {
	byte fv;

	warning("STUB: Acci::store_interrogation()");
}



void Acci::clearuint16s() {
	warning("STUB: Acci::clearuint16s()");
}

int16 Acci::pos(const Common::String &crit, const Common::String &src) {
	if (src.contains(crit))
		return strstr(src.c_str(),crit.c_str()) - src.c_str();
	else
		return -1;
}

void Acci::parse() {
	byte n, fv, ff;
	Common::String c, cc, thisword;
	byte answer;
	bool notfound;

	// First parsing - word identification

	if (!thats.empty())
		thats.clear();
	c = _vm->_parser->_inputText + ' ';
	n = 0;
	polite = false;
	verb = pardon;
	thing = pardon;
	thing2 = pardon;
	person = pardon;
	clearwords();


	// A cheat mode attempt.
	if (_vm->_parser->_inputText[0] == '.') {
		cheatparse(_vm->_parser->_inputText);
		thats = nowt;
		return;
	}

	// Are we being interrogated right now?
	if (_vm->_gyro->interrogation > 0) {
		store_interrogation(_vm->_gyro->interrogation);
		_vm->_gyro->weirdword = true;
		return;
	}

	// Actually process the command.
	cc = c;
	c.toUppercase();
	while (!c.empty()) {
		while ((c[0] == ' ') && (!c.empty())) {
			c.deleteChar(0);
			cc.deleteChar(0);
		}

		// Get the following word of the strings.
		byte size = pos(Common::String(' '), c) + 1;
		char *subStr = new char[size];
		Common::strlcpy(subStr, c.c_str(), size);
		thisword = subStr;
		Common::strlcpy(subStr, cc.c_str(), size);
		realwords[n] = subStr;
		delete[] subStr;

		punctustrip(c);

		notfound = true;

		// Check also[] first, which conatins words about the actual room.
		if (!thisword.empty()) {
			for (ff = 0; ff < 31; ff++) {
				if ((_vm->_gyro->also[ff][0] != 0) && (pos(',' + thisword, *_vm->_gyro->also[ff][0]) > -1)) {
					thats = thats + Common::String(99 + ff);
					notfound = false;
				}
			}
		}

		// Check Accis's own tables for "global" commands.
		if (notfound) {
			answer = wordnum(thisword);
			if (answer == pardon) {
				notfound = true;
				thats = thats + pardon;
			} else
				thats = thats + answer;
			n++;
		}

		// Delete words we already processed.
		int16 spacePos = pos(Common::String(' '), c);
		if (spacePos > -1)
			for (byte i = 0; i <= spacePos; i++)
				c.deleteChar(0);
		spacePos = pos(Common::String(' '), cc);
		if (spacePos > -1)
			for (byte i = 0; i <= spacePos; i++)
				cc.deleteChar(0);
	}

	if (pos(Common::String(254), thats) > -1) 
		unknown = realwords[pos(Common::String(254), thats)];
	else
		if (!unknown.empty())
			unknown.clear();

	// Replace words' codes that mean the same.
	replace(Common::String(255), 0); /* zap noise words */
	replace(Common::String(13) + 226, 1); // "look at" = "examine"
	replace(Common::String(13) + 228, 1); // "look in" = "examine"
	replace(Common::String(4) + 227, 17); // "get up" = "stand" 
	replace(Common::String(4) + 231, 17); // "get down" = "stand"... well, why not?
	replace(Common::String(18) + 228, 2); // "go in" = "open [door]"
	replace(Common::String(28) + 229, 253); // "P' off" is a swear word
	replace(Common::String(4) + 6, 6); // "Take inventory" (remember Colossal Adventure?)
	replace(Common::String(40) + 232, 21); // "put on" = "don"
	replace(Common::String(4) + 229, 20); // "take off" = "doff"

	// Words that could mean more than one person
	if (_vm->_gyro->dna.room == r__nottspub)
		replace(Common::String(204), 164); // Barman = Port
	else
		replace(Common::String(204), 154); // Barman = Malagauche

	switch (_vm->_gyro->dna.room) {
	case r__aylesoffice:
		replace(Common::String(203), 163); // Monk = Ayles
		break;       
	case r__musicroom:
		replace(Common::String(203), 166); // Monk = Jacques
		break;          
	default:
		replace(Common::String(203), 162); // Monk = Ibythneth
	}
	
	if (do_pronouns()) {
		_vm->_gyro->weirdword = true;
		thats = nowt;
		return;
	}

	//* second parsing - accidence */

	//subject = "";
	//subjnumber = 0; /* Find subject of conversation. */
	//for (fv = 1; fv <= 11; fv ++)
	//	if (set::of('`', '\'', eos).has(realwords[fv][1])) {
	//		subjnumber = ord(thats[fv]);
	//		thats[fv] = moved;
	//		flush(); /* Only the second time I've used that! */
	//	}

	//if (subjnumber == 0) /* Still not found. */
	//	for (fv = 1; fv <= 10; fv ++)
	//		if (thats[fv] == '\374') { /* the word is "about", or something similar */
	//			subjnumber = ord(thats[fv + 1]);
	//			thats[fv + 1] = '\0';
	//			flush(); /* ...Third! */
	//		}

	//if (subjnumber == 0) /* STILL not found! Must be the word after "say". */
	//	for (fv = 1; fv <= 10; fv ++)
	//		if ((thats[fv] == '\7') && !(set::of('\0', range('\341', '\345'), eos).has(thats[fv + 1]))) {
	//			/* SAY not followed by a preposition */
	//			subjnumber = ord(thats[fv + 1]);
	//			thats[fv + 1] = '\0';
	//			flush(); /* ...Fourth! */
	//		}

	//for (fv = length(thats); fv >= 1; fv --) /* Reverse order- so first'll be used */
	//	switch (thats[fv]) {
	//	case '\1' ... '\61':
	//	case '\375':
	//	case '\371':
	//		verb = thats[fv];
	//		break;
	//	case '\62' ... '\225': {
	//		thing2 = thing;
	//		thing = thats[fv];
	//							}
	//							break;
	//	case '\226' ... '\307':
	//		person = thats[fv];
	//		break;
	//	case '\373':
	//		polite = true;
	//		break;
	//}

	//if ((unknown != "") && !
	//	(set::of(vb_exam, vb_talk, vb_save, vb_load, vb_dir, eos).has(verb))) {
	//		display(string("Sorry, but I have no idea what `") + unknown +
	//			"\" means. Can you rephrase it?");
	//		weirdword = true;
	//} else weirdword = false;

	//if (thats == "")  thats = nowt;

	//if (thing != pardon)  it = thing;

	//if (person != pardon) {
	//	if (person < '\257')  him = person;
	//	else her = person;
	//}
}

void Acci::examobj() {   /* Examine a standard object-thing */
	warning("STUB: Acci::examobj()");
}

bool Acci::personshere() {       /* Person equivalent of "holding" */
	warning("STUB: Acci::personshere()");
	return true;
}

void Acci::exampers() {
	warning("STUB: Acci::exampers()");
}

bool Acci::holding() {
	warning("STUB: Acci::holding()");
	return true;
}



void Acci::special(bool before) {
	warning("STUB: Acci::special()");
}

void Acci::examine() {
	/* Examine. EITHER it's an object OR it's an Also OR it's a person OR
		it's something else. */
	warning("STUB: Acci::examine()");
}



void Acci::inv() {   /* the time-honoured command... */
	char fv;
	byte q = 0;

	warning("STUB: Acci::inv()");
}

void Acci::swallow() {   /* Eat something. */
	warning("STUB: Acci::swallow()");
}

void Acci::others() {
/* This lists the other people in the room. */
	warning("STUB: Acci::others()");
}

void Acci::lookaround() {
/* This is called when you say "look." */
	_vm->_scrolls->display(*_vm->_gyro->also[0][1]);
	switch (_vm->_gyro->dna.room) {
	case r__spludwicks:
		if (_vm->_gyro->dna.avaricius_talk > 0)
			_vm->_visa->dixi('q', 23);
		else
			others();
		break;
	case r__robins:
		if (_vm->_gyro->dna.tied_up)
			_vm->_visa->dixi('q', 38);
		if (_vm->_gyro->dna.mushroom_growing)
			_vm->_visa->dixi('q', 55);
		break;
	case r__insidecardiffcastle:
		if (!_vm->_gyro->dna.taken_pen)
			_vm->_visa->dixi('q', 49);
		break;
	case r__lustiesroom:
		if (_vm->_gyro->dna.lustie_is_asleep)
			_vm->_visa->dixi('q', 65);
		break;
	case r__catacombs:
		switch (_vm->_gyro->dna.cat_y * 256 + _vm->_gyro->dna.cat_x) {
		case 258 :
			_vm->_visa->dixi('q', 80);
			break; /* Inside art gallery */
		case 514 :
			_vm->_visa->dixi('q', 81);
			break; /* Outside ditto */
		case 260 :
			_vm->_visa->dixi('q', 82);
			break; /* Outside Geida's room. */
		}
		break;
	default:
		others();
	}
}

void Acci::opendoor() {   /* so whaddya THINK this does?! */
	byte fv;

	switch (_vm->_gyro->dna.room) {   /* Special cases. */
	case r__yours:
		if (_vm->_trip->infield(2)) {
			/* Opening the box. */
			thing = 54; /* The box. */ person = pardon;
			examine();
			return;
		}
		break;
	case r__spludwicks:
		if (thing == 61) {
			_vm->_visa->dixi('q', 85);
			return;
		}
		break;
	}


	if ((!_vm->_gyro->dna.user_moves_avvy) && (_vm->_gyro->dna.room != r__lusties))
		return; /* No doors can open if you can't move Avvy. */

	for (fv = 9; fv <= 15; fv++) {
		if (_vm->_trip->infield(fv)) {
			{
				_vm->_gyro->portals[fv];
				switch (_vm->_gyro->portals[fv].op) {
				case _vm->_gyro->exclaim:
					_vm->_trip->tr[1].bounce();
					_vm->_visa->dixi('x', _vm->_gyro->portals[fv].data);
					break;
				case _vm->_gyro->transport:
					_vm->_trip->fliproom((_vm->_gyro->portals[fv].data) >> 8 /*High byte*/, (_vm->_gyro->portals[fv].data) & 0x0F /*Low byte*/);
					break;
				case _vm->_gyro->unfinished:
					_vm->_trip->tr[1].bounce();
					_vm->_scrolls->display("Sorry. This place is not available yet!");
					break;
				case _vm->_gyro->special:
					_vm->_trip->call_special(_vm->_gyro->portals[fv].data);
					break;
				case _vm->_gyro->mopendoor:
					_vm->_trip->open_the_door((_vm->_gyro->portals[fv].data) >> 8, (_vm->_gyro->portals[fv].data) & 0x0F, fv);
					break;
				}
			}
			return;
		}
	}

	if (_vm->_gyro->dna.room == r__map)
		_vm->_scrolls->display(Common::String("Avvy, you can complete the whole game without ever going "
				"to anywhere other than Argent, Birmingham, Cardiff, "
				"Nottingham and Norwich."));
	else
		_vm->_scrolls->display("Door? What door?");
}




void Acci::silly() {
	_vm->_scrolls->display("Don't be silly!");
}

void Acci::putproc() {   /* Called when you call vb_put. */
	if (!holding())
		return;

	thing2 -= 49;   /* Slip the second object */
	char temp = thing;
	thing = thing2;
	if (!holding())
		return;
	thing = temp;

	/* Thing is the thing which you're putting in. Thing2 is where you're
		putting it. */
	/* Convenience thing. */
	switch (thing2) {
	case _vm->_gyro->wine:
		if (thing == _vm->_gyro->onion) {
			if (_vm->_gyro->dna.rotten_onion)
				_vm->_scrolls->display(Common::String("That's a bit like shutting the stable door after the "
						"horse has bolted!"));
			else {     /* Put onion into wine? */
				if (_vm->_gyro->dna.winestate != 3)
					_vm->_scrolls->display("\6Oignon au vin\22 is a bit too strong for your tastes!");
				else {     /* Put onion into vinegar! Yes! */
					_vm->_gyro->dna.onion_in_vinegar = true;
					_vm->_lucerna->points(7);
					_vm->_visa->dixi('u', 9);
				}
			}
		} else
			silly();
		break;

	case 54:
		if (_vm->_gyro->dna.room == 1) { /* Put something into the box. */
			if (_vm->_gyro->dna.box_contents != nowt)
				_vm->_scrolls->display(Common::String("There's something in the box already, Avvy. Try taking"
						" that out first."));
			else {
				switch (thing) {
				case _vm->_gyro->money:
					_vm->_scrolls->display("You'd better keep some ready cash on you!");
					break;
				case _vm->_gyro->bell:
					_vm->_scrolls->display("That's a silly place to keep a bell.");
					break;
				case _vm->_gyro->bodkin:
					_vm->_scrolls->display("But you might need it!");
					break;
				case _vm->_gyro->onion:
					_vm->_scrolls->display("Just give it to Spludwick, Avvy!");
					break;
				default:
					/* Put the object into the box... */
					if (_vm->_gyro->dna.wearing == thing)
						_vm->_scrolls->display(Common::String("You'd better take ") + _vm->_gyro->get_better(thing) + " off first!");
					else {
						_vm->_celer->show_one(5); /* Open box. */
						_vm->_gyro->dna.box_contents = thing;
						_vm->_gyro->dna.obj[thing] = false;
						_vm->_lucerna->objectlist();
						_vm->_scrolls->display("OK, it's in the box.");
						_vm->_celer->show_one(6); /* Shut box. */
					}
				}
			}
		} else
			silly();
		break;

	default:
		silly();
	}
}


/* The result of this fn is whether or not he says "Hey, thanks!" */
void Acci::not_in_order() {
	_vm->_scrolls->display(Common::String("Sorry, I need the ingredients in the right order for this potion.") +
			" What I need next is " +
			_vm->_gyro->get_better(_vm->_gyro->spludwick_order[_vm->_gyro->dna.given2spludwick]) + ".\232\2");
}

void Acci::go_to_cauldron() {
	_vm->_trip->tr[2].call_eachstep = false; /* Stops Geida_Procs. */
	_vm->_timeout->set_up_timer(1, _vm->_timeout->procspludwick_goes_to_cauldron, _vm->_timeout->reason_spludwalk);
	_vm->_trip->tr[2].walkto(2);
}

bool Acci::give2spludwick() {
	bool give2spludwick_result = false;

	if (_vm->_gyro->spludwick_order[_vm->_gyro->dna.given2spludwick] != thing) {
		not_in_order();
		return give2spludwick_result;
	}

	switch (thing) {
	case _vm->_gyro->onion:
		_vm->_gyro->dna.obj[_vm->_gyro->onion] = false;
		if (_vm->_gyro->dna.rotten_onion)
			_vm->_visa->dixi('q', 22);
		else {
			_vm->_gyro->dna.given2spludwick += 1;
			_vm->_visa->dixi('q', 20);
			go_to_cauldron();
			_vm->_lucerna->points(3);
		}
		_vm->_lucerna->objectlist();
		break;
	case _vm->_gyro->ink:
		_vm->_gyro->dna.obj[_vm->_gyro->ink] = false;
		_vm->_lucerna->objectlist();
		_vm->_gyro->dna.given2spludwick += 1;
		_vm->_visa->dixi('q', 24);
		go_to_cauldron();
		_vm->_lucerna->points(3);
		break;
	case _vm->_gyro->mushroom:
		_vm->_gyro->dna.obj[_vm->_gyro->mushroom] = false;
		_vm->_visa->dixi('q', 25);
		_vm->_lucerna->points(5);
		_vm->_gyro->dna.given2spludwick += 1;
		go_to_cauldron();
		_vm->_gyro->dna.obj[_vm->_gyro->potion] = true;
		_vm->_lucerna->objectlist();
		break;
	default:
		give2spludwick_result = true;
	}

	return give2spludwick_result;
}

void Acci::have_a_drink() {
	_vm->_gyro->dna.alcohol += 1;
	if (_vm->_gyro->dna.alcohol == 5) {
		_vm->_gyro->dna.obj[_vm->_gyro->key] = true; /* Get the key. */
		_vm->_gyro->dna.teetotal = true;
		_vm->_gyro->dna.avvy_is_awake = false;
		_vm->_gyro->dna.avvy_in_bed = true;
		_vm->_lucerna->objectlist();
		_vm->_lucerna->dusk();
		_vm->_gyro->hang_around_for_a_while();
		_vm->_trip->fliproom(1, 1);
		_vm->_gyro->background(14);
		_vm->_trip->new_game_for_trippancy(); /* Not really */
	}
}

void Acci::cardiff_climbing() {
	if (_vm->_gyro->dna.standing_on_dais) {
		/* Clamber up. */
		_vm->_scrolls->display("You climb down, back onto the floor.");
		_vm->_gyro->dna.standing_on_dais = false;
		_vm->_trip->apped(1, 3);
	} else {
		/* Clamber down. */
		if (_vm->_trip->infield(1)) {
			_vm->_scrolls->display("You clamber up onto the dais.");
			_vm->_gyro->dna.standing_on_dais = true;
			_vm->_trip->apped(1, 2);
		} else
			_vm->_scrolls->display("Get a bit closer, Avvy.");
	}
}


/* Called when you ask Avvy to stand. */
void Acci::already() {
	_vm->_scrolls->display("You're already standing!");
}

void Acci::stand_up() {
	switch (_vm->_gyro->dna.room) {
	case r__yours: /* Avvy isn't asleep. */
		if (_vm->_gyro->dna.avvy_in_bed) {  /* But he's in bed. */
			if (_vm->_gyro->dna.teetotal) {
				_vm->_visa->dixi('d', 12);
				_vm->_gyro->background(0);
				_vm->_visa->dixi('d', 14);
			}
			_vm->_trip->tr[1].visible = true;
			_vm->_gyro->dna.user_moves_avvy = true;
			_vm->_trip->apped(1, 2);
			_vm->_gyro->dna.rw = _vm->_gyro->left;
			_vm->_celer->show_one(4); /* Picture of empty pillow. */
			_vm->_lucerna->points(1);
			_vm->_gyro->dna.avvy_in_bed = false;
			_vm->_timeout->lose_timer(_vm->_timeout->reason_arkata_shouts);
		} else
			already();
		break;

	case r__insidecardiffcastle:
		cardiff_climbing();
		break;

	case r__nottspub:
		if (_vm->_gyro->dna.sitting_in_pub)  {
			_vm->_celer->show_one(4); /* Not sitting down. */
			_vm->_trip->tr[1].visible = true; /* But standing up. */
			_vm->_trip->apped(1, 4); /* And walking away. */
			_vm->_gyro->dna.sitting_in_pub = false; /* Really not sitting down. */
			_vm->_gyro->dna.user_moves_avvy = true; /* And ambulant. */
		} else
			already();
		break;
	default:
		already();
	}
}


void Acci::getproc(char thing) {
	switch (_vm->_gyro->dna.room) {
	case r__yours:
		if (_vm->_trip->infield(2)) {
			if (_vm->_gyro->dna.box_contents == thing) {
				_vm->_celer->show_one(5);
				_vm->_scrolls->display("OK, I've got it.");
				_vm->_gyro->dna.obj[thing] = true;
				_vm->_lucerna->objectlist();
				_vm->_gyro->dna.box_contents = nowt;
				_vm->_celer->show_one(6);
			} else
				_vm->_scrolls->display(Common::String("I can't see ") + _vm->_gyro->get_better(thing) + " in the box.");
		} else
			_vm->_visa->dixi('q', 57);
		break;
	case r__insidecardiffcastle:
		switch (thing) {
		case _vm->_gyro->pen:
			if (_vm->_trip->infield(2)) {
				/* Standing on the dais. */

				if (_vm->_gyro->dna.taken_pen)
					_vm->_scrolls->display("It's not there, Avvy.");
				else {
					/* OK: we're taking the pen, and it's there. */
					_vm->_celer->show_one(4); /* No pen there now. */
					_vm->_trip->call_special(3); /* Zap! */
					_vm->_gyro->dna.taken_pen = true;
					_vm->_gyro->dna.obj[_vm->_gyro->pen] = true;
					_vm->_lucerna->objectlist();
					_vm->_scrolls->display("Taken.");
				}
			} else if (_vm->_gyro->dna.standing_on_dais)
				_vm->_visa->dixi('q', 53);
			else
				_vm->_visa->dixi('q', 51);
			break;
		case _vm->_gyro->bolt:
			_vm->_visa->dixi('q', 52);
			break;
		default:
			_vm->_visa->dixi('q', 57);
		}
		break;
	case r__robins:
		if ((thing == _vm->_gyro->mushroom) & (_vm->_trip->infield(1)) & (_vm->_gyro->dna.mushroom_growing)) {
			_vm->_celer->show_one(3);
			_vm->_scrolls->display("Got it!");
			_vm->_gyro->dna.mushroom_growing = false;
			_vm->_gyro->dna.taken_mushroom = true;
			_vm->_gyro->dna.obj[_vm->_gyro->mushroom] = true;
			_vm->_lucerna->objectlist();
			_vm->_lucerna->points(3);
		} else
			_vm->_visa->dixi('q', 57);
		break;
	default:
		_vm->_visa->dixi('q', 57);
	}
}

void Acci::give_geida_the_lute() {
	if (_vm->_gyro->dna.room != r__lustiesroom) {
		_vm->_scrolls->display("Not yet. Try later!\232\2");
		return;
	}
	_vm->_gyro->dna.obj[_vm->_gyro->lute] = false;
	_vm->_lucerna->objectlist();
	_vm->_visa->dixi('q', 64); /* She plays it. */

	/* And the rest has been moved to Timeout... under give_lute_to_Geida. */

	_vm->_timeout->set_up_timer(1, _vm->_timeout->procgive_lute_to_geida, _vm->_timeout->reason_geida_sings);
	_vm->_enid->back_to_bootstrap(4);
}

void Acci::play_harp() {
	if (_vm->_trip->infield(7))
		_vm->_scrolls->musical_scroll();
	else
		_vm->_scrolls->display("Get a bit closer to it, Avvy!");
}

void Acci::winsequence() {
	_vm->_visa->dixi('q', 78);
	_vm->_sequence->first_show(7);
	_vm->_sequence->then_show(8);
	_vm->_sequence->then_show(9);
	_vm->_sequence->start_to_close();
	_vm->_timeout->set_up_timer(30, _vm->_timeout->procwinning, _vm->_timeout->reason_winning);
}

void Acci::person_speaks() {
	bool found;
	byte fv;
	char cfv;


	if ((person == pardon) || (person == '\0')) {
		if ((_vm->_gyro->him == pardon) || (_vm->_gyro->whereis[_vm->_gyro->him] != _vm->_gyro->dna.room))
			person = _vm->_gyro->her;
		else
			person = _vm->_gyro->him;
	}

	if (_vm->_gyro->whereis[person] != _vm->_gyro->dna.room) {
		_vm->_scrolls->display("\231\4"); /* Avvy _vm->_gyro->himself! */
		return;
	}

	found = false; /* The person we're looking for's code is in Person. */

	for (fv = 1; fv <= _vm->_trip->numtr; fv++) {
		if (_vm->_trip->tr[fv].quick && ((_vm->_trip->tr[fv].a.accinum + 149) == person)) {
			_vm->_scrolls->display(Common::String('\23') + char(fv + 48) + '\4');
			found = true;
		}
	}

	if (!found) {
		for (fv = 10; fv <= 25; fv++) {
			_vm->_gyro->quasipeds[fv];
			if ((_vm->_gyro->quasipeds[fv].who == person) && (_vm->_gyro->quasipeds[fv].room == _vm->_gyro->dna.room)) {
				_vm->_scrolls->display(Common::String('\23') + char(fv + 55) + '\4');
			}
		}
	}
}

void Acci::heythanks() {
	person_speaks();
	_vm->_scrolls->display("Hey, thanks!\2(But now, you've lost it!)");
	_vm->_gyro->dna.obj[thing] = false;
}

void Acci::do_that() {
	const Common::String booze[] = {"Bitter", "GIED", "Whisky", "Cider", "", "", "", "Mead"};
	byte fv, ff;
	int16 sx, sy;
	bool ok;


	if (thats == Common::String(nowt))  {
		thats = "";
		return;
	}
	if (_vm->_gyro->weirdword)
		return;
	if (thing < '\310')
		thing -= 49; /* "Slip" */

	/*
	if ((!_vm->_gyro->alive) &
		!(set::of(vb_load, vb_save, vb_quit, vb_info, vb_help, vb_larrypass,
		vb_phaon, vb_boss, vb_cheat, vb_restart, vb_dir, vb_score,
		vb_highscores, vb_smartalec, eos).has(verb))) {
		_vm->_scrolls->display(Common::String("You're dead, so don't talk. What are you, a ghost ") +
		"or something? Try restarting, or restoring a saved game!");
		return;
	}

	if ((~ _vm->_gyro->dna.avvy_is_awake) &
		!(set::of(vb_load, vb_save, vb_quit, vb_info, vb_help, vb_larrypass,
		vb_phaon, vb_boss, vb_cheat, vb_restart, vb_dir, vb_die, vb_score,
		vb_highscores, vb_smartalec, vb_expletive, vb_wake, eos).has(verb))) {
		_vm->_scrolls->display("Talking in your sleep? Try waking up!");
		return;
	}
	*/


	switch (verb) {
	case vb_exam:
		examine();
		break;
	case vb_open:
		opendoor();
		break;
	case vb_pause:
		_vm->_scrolls->display(Common::String("Game paused.") + '\3' + '\15' + '\15' + "Press Enter, Esc, or click " +
				"the mouse on the `O.K.\" box to continue.");
		break;
	case vb_get:
		if (thing != pardon) {
			/* Legitimate try to pick something up. */
			if (_vm->_gyro->dna.carrying >= maxobjs)
				_vm->_scrolls->display("You can't carry any more!");
			else
				getproc(thing);

		} else {
			/* Not... ditto. */
			if (person != pardon)
				_vm->_scrolls->display("You can't sweep folk off their feet!");
			else
				_vm->_scrolls->display("I assure you, you don't need it.");
		}
		break;
	case vb_drop:
		_vm->_scrolls->display(Common::String("Two years ago you dropped a florin in the street. Three days ") +
				"later it was gone! So now you never leave ANYTHING lying around. OK?");
		break;
		/*       begin _vm->_gyro->dna.obj[thing]:=false; _vm->_lucerna->objectlist(); end;*/
	case vb_inv:
		inv();
		break;
	case vb_talk:
		if (person == pardon) {
			if (_vm->_gyro->subjnumber == 99) /* They typed "say passuint16". */
				_vm->_scrolls->display("Yes, but what \6is\22 the passuint16?");
			/*
			else if (set::of(range(1, 49), 253, 249, eos).has(subjnumber)) {
				Delete(thats, 1, 1);
				move(realuint16s[2], realuint16s[1], sizeof(realuint16s) - sizeof(realuint16s[1]));
				verb = chr(subjnumber);
				do_that();
				return;
			} else {
				person = _vm->_gyro->subjnumber;
				subjnumber = 0;
				if (set::of(pardon, '\0', eos).has(person))
					_vm->_scrolls->display("Talk to whom?");
				else if (personshere())
					talkto(ord(person));
			}
			*/
			else if (person == pardon)
				_vm->_scrolls->display("Talk to whom?");
		} else if (personshere())
			_vm->_visa->talkto(person);
		break;

	case vb_give:
		if (holding()) {
			if (person == pardon)
				_vm->_scrolls->display("Give to whom?");
			else if (personshere()) {
				switch (thing) {
				case _vm->_gyro->money :
					_vm->_scrolls->display("You can't bring yourself to give away your moneybag.");
					break;
				case _vm->_gyro->bodkin:
				case _vm->_gyro->bell:
				case _vm->_gyro->clothes:
				case _vm->_gyro->habit :
					_vm->_scrolls->display("Don't give it away, it might be useful!");
					break;
				default:
					switch (person) {
					case _vm->_gyro->pcrapulus:
						switch (thing) {
						case _vm->_gyro->wine:
							_vm->_scrolls->display("Crapulus grabs the wine and gulps it down.");
							_vm->_gyro->dna.obj[_vm->_gyro->wine] = false;
							break;
						default:
							heythanks();
						}
						break;
					case _vm->_gyro->pcwytalot:
						/*if (set::of(crossbow, bolt, eos).has(thing))
							_vm->_scrolls->display(Common::String("You might be able to influence ") +
									"Cwytalot more if you used it!");
						else */heythanks();
						break;
					case _vm->_gyro->pspludwick:
						if (give2spludwick())
							heythanks();
						break;
					case _vm->_gyro->pibythneth:
						if (thing == _vm->_gyro->badge) {
							_vm->_visa->dixi('q', 32); /* Thanks! Wow! */
							_vm->_lucerna->points(3);
							_vm->_gyro->dna.obj[_vm->_gyro->badge] = false;
							_vm->_gyro->dna.obj[_vm->_gyro->habit] = true;
							_vm->_gyro->dna.givenbadgetoiby = true;
							_vm->_celer->show_one(8);
							_vm->_celer->show_one(9);
						} else
							heythanks();
						break;
					case _vm->_gyro->payles:
						if (_vm->_gyro->dna.ayles_is_awake) {
							if (thing == _vm->_gyro->pen) {
								_vm->_gyro->dna.obj[_vm->_gyro->pen] = false;
								_vm->_visa->dixi('q', 54);
								_vm->_gyro->dna.obj[_vm->_gyro->ink] = true;
								_vm->_gyro->dna.given_pen_to_ayles = true;
								_vm->_lucerna->objectlist();
								_vm->_lucerna->points(2);
							} else
								heythanks();
						} else
							_vm->_scrolls->display("But he's asleep!");
						break;
					case _vm->_gyro->pgeida:
						switch (thing) {
						case _vm->_gyro->potion:
							_vm->_gyro->dna.obj[_vm->_gyro->potion] = false;
							_vm->_visa->dixi('u', 16); /* She drinks it. */
							_vm->_lucerna->points(2);
							_vm->_gyro->dna.geida_given_potion = true;
							_vm->_lucerna->objectlist();
							break;
						case _vm->_gyro->lute:
							give_geida_the_lute();
							break;
						default:
							heythanks();
						}
						break;
					case _vm->_gyro->parkata:
						switch (thing) {
						case _vm->_gyro->potion:
							if (_vm->_gyro->dna.geida_given_potion)
								winsequence();
							else
								_vm->_visa->dixi('q', 77);
							break;             /* That Geida woman! */
						default:
							heythanks();
						}
						break;
					default:
						heythanks();
					}
				}
			}
			_vm->_lucerna->objectlist(); /* Just in case... */
		}
		break;

	case vb_eat:
	case vb_drink:
		if (holding())
			swallow();
		break;
	case vb_load:
		_vm->_enid->edna_load(realwords[2]);
		break;
	case vb_save:
		if (_vm->_gyro->alive)
			_vm->_enid->edna_save(realwords[2]);
		else
			_vm->_scrolls->display("It's a bit late now to save your game!");
		break;
	case vb_pay:
		_vm->_scrolls->display("No money need change hands.");
		break;
	case vb_look:
		lookaround();
		break;
	case vb_break:
		_vm->_scrolls->display("Vandalism is prohibited within this game!");
		break;
	case vb_quit: /* quit */
		//if (_vm->_gyro->demo) {
		//	_vm->_visa->dixi('q', 31);
		//	close(demofile);
		//	exit(0); /* Change this later!!! */
		//}
		if (!polite)
			_vm->_scrolls->display("How about a `please\", Avvy?");
		else if (_vm->_scrolls->ask("\23C\26Do you really want to quit?"))
			_vm->_gyro->lmo = true;
		break;
	case vb_go:
		_vm->_scrolls->display("Just use the arrow keys to walk there.");
		break;
	case vb_info:
		_vm->_scrolls->aboutscroll = true;
		/*            _vm->_scrolls->display('Thorsoft of Letchworth presents:'+^c+^m+^m+
						'The medi<EFBFBD>val descendant of'+^m+
						'Denarius Avaricius Sextus'+^m+'in:'+
						^m+^m+'LORD AVALOT D''ARGENT'+
						^m+'version '+vernum+^m+^m+'Copyright <EFBFBD> '
						+copyright+', Mark, Mike and Thomas Thurman.');*/
		_vm->_scrolls->display(Common::String("\r\r\r\r\r\r\r") + "LORD AVALOT D'ARGENT" + "\3\r" +
				"The medi<64>val descendant of" + '\15' +
				"Denarius Avaricius Sextus" +
				'\15' + '\15' + "version " + _vm->_gyro->vernum + '\15' + '\15' + "Copyright <20> "
				+ _vm->_gyro->copyright + ", Mark, Mike and Thomas Thurman." + '\23' + 'Y' + '\26');
		_vm->_scrolls->aboutscroll = false;
		break;
	case vb_undress:
		if (_vm->_gyro->dna.wearing == nowt)
			_vm->_scrolls->display("You're already stark naked!");
		else if (_vm->_gyro->dna.avvys_in_the_cupboard) {
			_vm->_scrolls->display(Common::String("You take off ") + _vm->_gyro->get_better(_vm->_gyro->dna.wearing) + '.');
			_vm->_gyro->dna.wearing = nowt;
			_vm->_lucerna->objectlist();
		} else
			_vm->_scrolls->display("Hadn't you better find somewhere more private, Avvy?");
		break;
	case vb_wear:
		if (holding()) {
			/* wear something */
			switch (thing) {
			case _vm->_gyro->chastity:
				_vm->_scrolls->display("Hey, what kind of a weirdo are you\??!");
				break;
			case _vm->_gyro->clothes:
			case _vm->_gyro->habit: /* Change this! */
				if (_vm->_gyro->dna.wearing != nowt) {
					if (_vm->_gyro->dna.wearing == thing)
						_vm->_scrolls->display("You're already wearing that.");
					else
						_vm->_scrolls->display(Common::String("You'll be rather warm wearing two ") +
								"sets of clothes!");
					return;
				} else
					_vm->_gyro->dna.wearing = thing;
				_vm->_lucerna->objectlist();

				if (thing == _vm->_gyro->habit)
					fv = 3;
				else
					fv = 0;

				if (_vm->_trip->tr[1].whichsprite != fv) {
					sx = _vm->_trip->tr[1].x;
					sy = _vm->_trip->tr[1].y;
					_vm->_trip->tr[1].done();
					_vm->_trip->tr[1].init(fv, true, _vm->_trip);
					_vm->_trip->tr[1].appear(sx, sy, _vm->_trip->left);
					_vm->_trip->tr[1].visible = false;
				}
			break;
			default:
				_vm->_scrolls->display(what);
			}
		}
		break;
	case vb_play:
		if (thing == pardon) {
			switch (_vm->_gyro->dna.room) { /* They just typed "play"... */
			case r__argentpub:
				// play_nim();
				// I just don't plan to implement Nim yet.
				break; /* ...in the pub, => play Nim. */
			case r__musicroom:
				play_harp();
				break;
			}
		} else if (holding()) {
			switch (thing) {
			case _vm->_gyro->lute :
				_vm->_visa->dixi('U', 7);
				if (_vm->_gyro->whereis[_vm->_gyro->pcwytalot] == _vm->_gyro->dna.room)
					_vm->_visa->dixi('U', 10);

				if (_vm->_gyro->whereis[_vm->_gyro->pdulustie] == _vm->_gyro->dna.room)
					_vm->_visa->dixi('U', 15);
				break;
			case 52:
				if (_vm->_gyro->dna.room == r__musicroom)
					play_harp();
				else
					_vm->_scrolls->display(what);
				break;
			case 55:
				if (_vm->_gyro->dna.room == r__argentpub)
					;  /*play_nim(); - Don't implement yet.*/
				else
					_vm->_scrolls->display(what);
				break;
			default:
				_vm->_scrolls->display(what);
			}
		}
		break;
	case vb_ring:
		if (holding()) {
			if (thing == _vm->_gyro->bell) {
				_vm->_scrolls->display("Ding, dong, ding, dong, ding, dong, ding, dong...");
				if ((_vm->_gyro->dna.ringing_bells) & (_vm->_gyro->flagset('B')))
					_vm->_scrolls->display("(Are you trying to join in, Avvy\?\?!)");
			} else
				_vm->_scrolls->display(what);
		}
		break;
	case vb_help:
		// boot_help();
		// I don't want to implement help yet.
		break;
	case vb_larrypass:
		_vm->_scrolls->display("Wrong game!");
		break;
	case vb_phaon:
		_vm->_scrolls->display("Hello, Phaon!");
		break;
	case vb_boss:
		// bosskey();
		// I don't want to implement bosskey yet.
		break;
	case vb_pee:
		if (_vm->_gyro->flagset('P')) {
			_vm->_scrolls->display("Hmm, I don't think anyone will notice...");
			_vm->_timeout->set_up_timer(4, _vm->_timeout->procurinate, _vm->_timeout->reason_gototoilet);
		} else
			_vm->_scrolls->display("It would be \6VERY\22 unwise to do that here, Avvy!");
		break;
	case vb_cheat:
		_vm->_scrolls->display(Common::String('\6') + "Cheat mode now enabled.");
		_vm->_gyro->cheat = true;
		break;
	case vb_magic:
		if (_vm->_gyro->dna.avaricius_talk > 0)
			_vm->_visa->dixi('q', 19);
		else {
			if ((_vm->_gyro->dna.room == 12) & (_vm->_trip->infield(2))) {
				/* Avaricius appears! */
				_vm->_visa->dixi('q', 17);
				if (_vm->_gyro->whereis['\227'] == 12)
					_vm->_visa->dixi('q', 18);
				else {
					_vm->_trip->tr[2].init(1, false, _vm->_trip); /* Avaricius */
					_vm->_trip->apped(2, 4);
					_vm->_trip->tr[2].walkto(5);
					_vm->_trip->tr[2].call_eachstep = true;
					_vm->_trip->tr[2].eachstep = _vm->_trip->procback_and_forth;
					_vm->_gyro->dna.avaricius_talk = 14;
					_vm->_timeout->set_up_timer(177, _vm->_timeout->procavaricius_talks, _vm->_timeout->reason_avariciustalks);
				}
			} else
				_vm->_scrolls->display("Nothing appears to happen...");
		}
		break;
	case vb_smartalec:
		_vm->_scrolls->display("Listen, smart alec, that was just rhetoric.");
		break;
	case vb_expletive:
		switch (_vm->_gyro->dna.swore) {
		case 0:
			_vm->_scrolls->display(Common::String("Avvy! Do you mind? There might be kids playing!\r\r") +
					"(I shouldn't say it again, if I were you!)");
			break;
		case 1:
			_vm->_scrolls->display(Common::String("You hear a distant rumble of thunder. Must you always ") +
					"do things I tell you not to?\r\rDon't do it again!");
			break;
		default:
			_vm->_pingo->zonk();
			_vm->_scrolls->display(Common::String("A crack of lightning shoots from the sky, ") +
					"and fries you.\r\r(`Such is the anger of the gods, Avvy!\")");
			_vm->_lucerna->gameover();
		}
		_vm->_gyro->dna.swore++;
		break;
	case vb_listen:
		if ((_vm->_gyro->dna.ringing_bells) & (_vm->_gyro->flagset('B')))
			_vm->_scrolls->display(Common::String("All other noise is drowned out by the ringing of ") +
					"the bells.");
		else if (_vm->_gyro->listen == "")
			_vm->_scrolls->display("You can't hear anything much at the moment, Avvy.");
		else
			_vm->_scrolls->display(_vm->_gyro->listen);
		break;
	case vb_buy:
		/* What are they trying to buy? */
		switch (_vm->_gyro->dna.room) {
		case r__argentpub:
			if (_vm->_trip->infield(6)) {
				/* We're in a pub, and near the bar. */
				switch (thing) {
				case '\63':
				case '\65':
				case '\66':
				case '\72': /* Beer, whisky, cider or mead */
					if (_vm->_gyro->dna.malagauche == 177) { /* Already getting us one. */
						_vm->_visa->dixi('D', 15);
						return;
					}

					if (_vm->_gyro->dna.teetotal)  {
						_vm->_visa->dixi('D', 6);
						return;
					}

					if (_vm->_gyro->dna.alcohol == 0)
						_vm->_lucerna->points(3);
					_vm->_celer->show_one(12);
					_vm->_scrolls->display(booze[thing] + ", please.\231\2");
					_vm->_gyro->dna.drinking = thing;

					_vm->_celer->show_one(10);
					_vm->_gyro->dna.malagauche = 177;
					_vm->_timeout->set_up_timer(27, _vm->_timeout->procbuydrinks, _vm->_timeout->reason_drinks);
					break;
				case '\64':
					examine();
					break; /* We have a right one here- buy Pepsi??! */
				case _vm->_gyro->wine:
					if (_vm->_gyro->dna.obj[_vm->_gyro->wine])  /* We've already got the wine! */
						_vm->_visa->dixi('D', 2); /* 1 bottle's shufishent! */
					else {
						if (_vm->_gyro->dna.malagauche == 177) { /* Already getting us one. */
							_vm->_visa->dixi('D', 15);
							return;
						}

						if (_vm->_gyro->dna.carrying >= maxobjs) {
							_vm->_scrolls->display("Your hands are full.");
							return;
						}

						_vm->_celer->show_one(12);
						_vm->_scrolls->display("Wine, please.\231\2");
						if (_vm->_gyro->dna.alcohol == 0)
							_vm->_lucerna->points(3);
						_vm->_celer->show_one(10);
						_vm->_gyro->dna.malagauche = 177;

						_vm->_timeout->set_up_timer(27, _vm->_timeout->procbuywine, _vm->_timeout->reason_drinks);
					}
					break;
				}
			} else
				_vm->_visa->dixi('D', 5);
			break;                /* Go to the bar! */

		case r__outsideducks:
			if (_vm->_trip->infield(6)) {
				if (thing == _vm->_gyro->onion) {
					if (_vm->_gyro->dna.obj[_vm->_gyro->onion])
						_vm->_visa->dixi('D', 10); /* not planning to juggle with the things! */
					else if (_vm->_gyro->dna.carrying >= maxobjs)
						_vm->_scrolls->display("Before you ask, you remember that your hands are full.");
					else {
						if (_vm->_gyro->dna.bought_onion)
							_vm->_visa->dixi('D', 11);
						else {
							_vm->_visa->dixi('D', 9);
							_vm->_lucerna->points(3);
						}
						_vm->_gyro->pennycheck(3); /* It costs thruppence. */
						_vm->_gyro->dna.obj[_vm->_gyro->onion] = true;
						_vm->_lucerna->objectlist();
						_vm->_gyro->dna.bought_onion = true;
						_vm->_gyro->dna.rotten_onion = false; /* It's OK when it leaves the stall! */
						_vm->_gyro->dna.onion_in_vinegar = false;
					}
				} else
					_vm->_visa->dixi('D', 0);
			} else
				_vm->_visa->dixi('D', 0);
			break;

		case r__nottspub:
			_vm->_visa->dixi('n', 15);
			break; /* Can't sell to southerners. */
		default:
			_vm->_visa->dixi('D', 0); /* Can't buy that. */
		}
		break;
	case vb_attack:
		if ((_vm->_gyro->dna.room == r__brummieroad) &&
				((person == '\235') || (thing == _vm->_gyro->crossbow) || (thing == _vm->_gyro->bolt))
				&& (_vm->_gyro->whereis['\235'] == _vm->_gyro->dna.room)) {
			switch (_vm->_gyro->dna.obj[_vm->_gyro->bolt] + _vm->_gyro->dna.obj[_vm->_gyro->crossbow] * 2) {
				/* 0 = neither, 1 = only bolt, 2 = only crossbow,
					3 = both. */
			case 0:
				_vm->_visa->dixi('Q', 10);
				_vm->_scrolls->display("(At the very least, don't use your bare hands!)");
				break;
			case 1:
				_vm->_scrolls->display(Common::String("Attack _vm->_gyro->him with only a crossbow bolt? Are you ") +
						"planning on playing darts?!");
				break;
			case 2:
				_vm->_scrolls->display(Common::String("Come on, Avvy! You're not going to get very far ") +
						"with only a crossbow!");
				break;
			case 3:
				_vm->_visa->dixi('Q', 11);
				_vm->_gyro->dna.cwytalot_gone = true;
				_vm->_gyro->dna.obj[_vm->_gyro->bolt] = false;
				_vm->_gyro->dna.obj[_vm->_gyro->crossbow] = false;
				_vm->_lucerna->objectlist();
				_vm->_gyro->magics[12].op = _vm->_gyro->nix;
				_vm->_lucerna->points(7);
				_vm->_trip->tr[2].walkto(2);
				_vm->_trip->tr[2].vanishifstill = true;
				_vm->_trip->tr[2].call_eachstep = false;
				_vm->_gyro->whereis['\235'] = 177;
				break;
			default:
				_vm->_visa->dixi('Q', 10); /* Please try not to be so violent! */
			}
		} else
			_vm->_visa->dixi('Q', 10);
		break;
	case vb_password:
		if (_vm->_gyro->dna.room != r__bridge)
			_vm->_visa->dixi('Q', 12);
		else {
			ok = true;
			for (ff = 1; ff <= thats.size(); ff++) {
				for (fv = 1; fv <= words[_vm->_gyro->dna.pass_num + first_password].w.size(); fv++) {
					Common::String temp = realwords[ff];
					temp.toUppercase();
					if (words[_vm->_gyro->dna.pass_num + first_password].w[fv] != temp[fv])
						ok = false;
				}
			}

			if (ok) {
				if (_vm->_gyro->dna.drawbridge_open != 0)
					_vm->_scrolls->display("Contrary to your expectations, the drawbridge fails to close again.");
				else {
					_vm->_lucerna->points(4);
					_vm->_scrolls->display("The drawbridge opens!");
					_vm->_timeout->set_up_timer(7, _vm->_timeout->procopen_drawbridge, _vm->_timeout->reason_drawbridgefalls);
					_vm->_gyro->dna.drawbridge_open = 1;
				}
			} else
				_vm->_visa->dixi('Q', 12);
		}
		break;
	case vb_dir:
		_vm->_enid->dir(realwords[2]);
		break;
	case vb_die:
		_vm->_lucerna->gameover();
		break;
	case vb_score:
		_vm->_scrolls->display(Common::String("Your score is ") + _vm->_gyro->strf(_vm->_gyro->dna.score) + ",\3\rout of a " +
				"possible 128.\r\rThis gives you a rank of " + rank() +
				".\r\r" + totaltime());
		break;
	case vb_put:
		putproc();
		break;
	case vb_stand:
		stand_up();
		break;

	case vb_kiss:
		if (person == pardon)
			_vm->_scrolls->display("Kiss whom?");
		else if (personshere()) {
			switch (person) {
			case _vm->_gyro->parkata:
				_vm->_visa->dixi('U', 12);
				break;
			case _vm->_gyro->pgeida:
				_vm->_visa->dixi('U', 13);
				break;
			case _vm->_gyro->pwisewoman:
				_vm->_visa->dixi('U', 14);
				break;
			default:
				_vm->_visa->dixi('U', 5); /* You WHAT? */
			}
		} else if ((150 <= person) && (person <= 174))
			_vm->_scrolls->display("Hey, what kind of a weirdo are you??");

		break;

	case vb_climb:
		if (_vm->_gyro->dna.room == r__insidecardiffcastle)
			cardiff_climbing();
		else /* In the wrong room! */
			_vm->_scrolls->display("Not with your head for heights, Avvy!");
		break;

	case vb_jump:
		_vm->_timeout->set_up_timer(1, _vm->_timeout->procjump, _vm->_timeout->reason_jumping);
		_vm->_gyro->dna.user_moves_avvy = false;
		break;

	case vb_highscores:
		//	show_highs();
		// to be implemented later...
		break;

	case vb_wake:
		if (personshere())
			switch (person) {
			case pardon:
			case _vm->_gyro->pavalot:
			case '\0':
				if (!_vm->_gyro->dna.avvy_is_awake) {
					_vm->_gyro->dna.avvy_is_awake = true;
					_vm->_lucerna->points(1);
					_vm->_gyro->dna.avvy_in_bed = true;
					_vm->_celer->show_one(3); /* Picture of Avvy, awake in bed. */
					if (_vm->_gyro->dna.teetotal)
						_vm->_visa->dixi('d', 13);
				} else
					_vm->_scrolls->display("You're already awake, Avvy!");
				break;
			case _vm->_gyro->payles:
				if (!_vm->_gyro->dna.ayles_is_awake)
					_vm->_scrolls->display("You can't seem to wake _vm->_gyro->him by yourself.");
				break;
			case _vm->_gyro->pjacques:
				_vm->_scrolls->display(Common::String("Brother Jacques, Brother Jacques, are you asleep?\231\2") +
					"Hmmm... that doesn't seem to do any good...");
				break;
			default:
				_vm->_scrolls->display("It's difficult to awaken people who aren't asleep...!");
		}
		break;

	case vb_sit:
		if (_vm->_gyro->dna.room == r__nottspub) {
			if (_vm->_gyro->dna.sitting_in_pub)
				_vm->_scrolls->display("You're already sitting!");
			else {
				_vm->_trip->tr[1].walkto(4); /* Move Avvy to the place, and sit _vm->_gyro->him down. */
				_vm->_timeout->set_up_timer(1, _vm->_timeout->procavvy_sit_down, _vm->_timeout->reason_sitting_down);
			}
		} else {
			/* Default doodah. */
			_vm->_lucerna->dusk();
			_vm->_gyro->hang_around_for_a_while();
			_vm->_lucerna->dawn();
			_vm->_scrolls->display("A few hours later...\20nothing much has happened...");
		}
		break;

	case vb_restart:
		if (_vm->_scrolls->ask("Restart game and lose changes?"))  {
			_vm->_lucerna->dusk();
			_vm->_gyro->newgame();
			_vm->_lucerna->dawn();
		}
		break;

	case pardon:
		_vm->_scrolls->display("Hey, a verb would be helpful!");
		break;

	case vb_hello:
		person_speaks();
		_vm->_scrolls->display("Hello.\2");
		break;
	case vb_thanks:
		person_speaks();
		_vm->_scrolls->display("That's OK.\2");
		break;
	default:
		_vm->_scrolls->display(Common::String('\7') + "Parser bug!");
	}
}

void Acci::verbopt(char n, Common::String &answer, char &anskey) {
	switch (n) {
	case vb_exam:
		answer = "Examine";
		anskey = 'x';
		break; /* the ubiqutous one */
	/* vb_give isn't dealt with by this procedure, but by ddm__with */
	case vb_drink:
		answer = "Drink";
		anskey = 'D';
		break;
	case vb_wear:
		answer = "Wear";
		anskey = 'W';
		break;
	case vb_ring:
		answer = "Ring";
		anskey = 'R';
		break; /* only the bell! */
	case vb_play:
		answer = "Play";
		anskey = 'P';
		break;
	case vb_eat:
		answer = "Eat";
		anskey = 'E';
		break;
	default:
		answer = "? Unknown!";    /* Bug! */
		anskey = '?';
	}
}



} // End of namespace Avalanche.