scummvm/engines/glk/jacl/display.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 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/>.
 *
 */

#include "glk/jacl/jacl.h"
#include "glk/jacl/language.h"
#include "glk/jacl/types.h"
#include "glk/jacl/prototypes.h"

namespace Glk {
namespace JACL {

extern char                     temp_buffer[];
extern char                     function_name[];

extern struct object_type       *object[];
extern struct variable_type     *variable[];

extern const char               *word[];

extern int                      player;
extern int                      wp;
extern int                      objects;
extern int                      custom_error;

extern int                      spaced;

int check_light(int where) {
	int index;

	if ((object[where]->attributes & DARK) == FALSE)
		return (TRUE);
	else {
		for (index = 1; index <= objects; index++) {
			if ((object[index]->attributes & LUMINOUS)
			        && scope(index, "*present"))
				return (TRUE);
		}
	}
	return (FALSE);
}

char *sentence_output(int index, int capital) {
	if (!strcmp(object[index]->article, "name")) {
		Common::strcpy_s(temp_buffer, 1024, object[index]->inventory);
	} else {
		Common::strcpy_s(temp_buffer, 1024, object[index]->definite);
		Common::strcat_s(temp_buffer, 1024, " ");
		Common::strcat_s(temp_buffer, 1024, object[index]->inventory);
	}

	if (capital)
		temp_buffer[0] = toupper(temp_buffer[0]);

	return (temp_buffer);
}

char *isnt_output(int index, bool) {
	if (object[index]->attributes & PLURAL)
		return (cstring_resolve("ARENT")->value);
	else
		return (cstring_resolve("ISNT")->value);
}

char *is_output(int index, bool) {
	if (object[index]->attributes & PLURAL)
		return (cstring_resolve("ARE")->value);
	else
		return (cstring_resolve("IS")->value);
}

char *sub_output(int index, int capital) {
	if (object[index]->attributes & PLURAL) {
		Common::strcpy_s(temp_buffer, 1024, cstring_resolve("THEY_WORD")->value);
	} else {
		if (index == player) {
			Common::strcpy_s(temp_buffer, 1024, cstring_resolve("YOU_WORD")->value);
		} else if (object[index]->attributes & ANIMATE) {
			if (object[index]->attributes & FEMALE) {
				Common::strcpy_s(temp_buffer, 1024, cstring_resolve("SHE_WORD")->value);
			} else {
				Common::strcpy_s(temp_buffer, 1024, cstring_resolve("HE_WORD")->value);
			}
		} else {
			Common::strcpy_s(temp_buffer, 1024, cstring_resolve("IT_WORD")->value);
		}
	}

	if (capital)
		temp_buffer[0] = toupper(temp_buffer[0]);

	return temp_buffer;
}

char *obj_output(int index, int capital) {
	if (object[index]->attributes & PLURAL) {
		Common::strcpy_s(temp_buffer, 1024, cstring_resolve("THEM_WORD")->value);
	} else {
		if (index == player) {
			Common::strcpy_s(temp_buffer, 1024, cstring_resolve("YOURSELF_WORD")->value);
		} else if (object[index]->attributes & ANIMATE) {
			if (object[index]->attributes & FEMALE) {
				Common::strcpy_s(temp_buffer, 1024, cstring_resolve("HER_WORD")->value);
			} else {
				Common::strcpy_s(temp_buffer, 1024, cstring_resolve("HIM_WORD")->value);
			}
		} else {
			Common::strcpy_s(temp_buffer, 1024, cstring_resolve("IT_WORD")->value);
		}
	}

	if (capital)
		temp_buffer[0] = toupper(temp_buffer[0]);

	return temp_buffer;
}

char *it_output(int index, bool) {
	if (object[index]->attributes & ANIMATE) {
		return sentence_output(index, FALSE);
	} else {
		if (object[index]->attributes & PLURAL) {
			return (cstring_resolve("THEM_WORD")->value);
		} else {
			return (cstring_resolve("IT_WORD")->value);
		}
	}
}

char *that_output(int index, int capital) {
	if (object[index]->attributes & PLURAL) {
		Common::strcpy_s(temp_buffer, 1024, cstring_resolve("THOSE_WORD")->value);
	} else {
		Common::strcpy_s(temp_buffer, 1024, cstring_resolve("THAT_WORD")->value);
	}

	if (capital)
		temp_buffer[0] = toupper(temp_buffer[0]);

	return temp_buffer;
}

char *doesnt_output(int index, bool) {
	if (object[index]->attributes & PLURAL)
		return (cstring_resolve("DONT")->value);
	else
		return (cstring_resolve("DOESNT")->value);
}

char *does_output(int index, bool) {
	if (object[index]->attributes & PLURAL)
		return (cstring_resolve("DO")->value);
	else
		return (cstring_resolve("DOES")->value);
}

char *list_output(int index, int capital) {
	if (!strcmp(object[index]->article, "name")) {
		Common::strcpy_s(temp_buffer, 1024, object[index]->inventory);
	} else {
		Common::strcpy_s(temp_buffer, 1024, object[index]->article);
		Common::strcat_s(temp_buffer, 1024, " ");
		Common::strcat_s(temp_buffer, 1024, object[index]->inventory);
	}

	if (capital)
		temp_buffer[0] = toupper(temp_buffer[0]);

	return (temp_buffer);
}

char *plain_output(int index, int capital) {
	Common::strcpy_s(temp_buffer, 1024, object[index]->inventory);

	if (capital)
		temp_buffer[0] = toupper(temp_buffer[0]);

	return (temp_buffer);
}

char *long_output(int index) {
	if (!strcmp(object[index]->described, "function")) {
		Common::strcpy_s(function_name, 1024, "long_");
		Common::strcat_s(function_name, 1024, object[index]->label);
		if (execute(function_name) == FALSE) {
			unkfunrun(function_name);
		}

		// THE BUFFER IS RETURNED EMPTY AS THE TEXT IS OUTPUT BY
		// WRITE STATEMENTS IN THE FUNCTION CALLED
		temp_buffer[0] = 0;
		return (temp_buffer);
	} else {
		return (object[index]->described);
	}
}

void no_it() {
	write_text(cstring_resolve("NO_IT")->value);
	write_text(word[wp]);
	write_text(cstring_resolve("NO_IT_END")->value);
	custom_error = TRUE;
}

void look_around() {
	/* THIS FUNCTION DISPLAYS THE DESCRIPTION OF THE CURRENT LOCATION ALONG
	 * WITH ANY OBJECTS CURRENTLY IN IT */

	if (!check_light(HERE)) {
		/* THE CURRENT LOCATION HAS 'DARK' AND NO SOURCE OF LIGHT IS
		 * CURRENTLY PRESENT */
		execute("+dark_description");
		return;
	}

	if (execute("+before_look") != FALSE)
		return;

	execute("+title");

	if (DISPLAY_MODE->value) {
		/* THE INTERPRETER IS IN VERBOSE MODE SO TEMPORARILY TAKE AWAYS THE
		 * 'VISITED' ATTRIBUTE */
		object[HERE]->attributes &= ~1L;
	}

	Common::strcpy_s(function_name, 81, "look_");
	Common::strcat_s(function_name, 81, object[HERE]->label);
	execute(function_name);

	/* GIVE THE LOCATION THE ATTRIBUTES 'VISITED', 'KNOWN', AND 'MAPPED' NOW
	 * THAT THE LOOK FUNCTION HAS RUN */
	object[HERE]->attributes = object[HERE]->attributes | KNOWN;
	object[HERE]->attributes = object[HERE]->attributes | VISITED;
	object[HERE]->attributes = object[HERE]->attributes | MAPPED;

	execute("+object_descriptions");

	Common::strcpy_s(function_name, 81, "after_look_");
	Common::strcat_s(function_name, 81, object[HERE]->label);
	execute(function_name);

	execute("+after_look");
}

} // End of namespace JACL
} // End of namespace Glk