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

/*
  ÛßÜ ÛßÜ ÜßßÜ  ßÛß Ûßß  Üß ßÛß      ÜßÛßÜ  ßÛß ÛÜ  Û ÜÛßß  ßÛß ÛßÜ Ûßß Û
  Ûß  ÛÛ  Û  Û Ü Û  Ûßß ßÜ   Û      Û  Û  Û  Û  Û ÛÜÛ  ßßßÜ  Û  ÛÛ  Ûßß Û
  ß   ß ß  ßß   ßß  ßßß   ß  ß      ß  ß  ß ßßß ß  ßß  ßßß   ß  ß ß ßßß ßßß

                 DROPDOWN         A customised version of Oopmenu (qv). */

#define __dropdown_implementation__


#include "dropdown.h"


/*#include "Crt.h"*/
#include "graph.h"
/*#include "Dos.h"*/
#include "lucerna.h"
#include "Gyro.h"
#include "acci.h"
#include "trip5.h"
#include "enid.h"
#include "basher.h"

namespace Avalanche {

/*$V-*/
const integer indent = 5;
const integer spacing = 10;

/* menu_b = blue; { Morpheus }
 menu_f = yellow;
 menu_border = black;
 highlight_b = lightblue;
 highlight_f = yellow;
 disabled = lightgray; */

const integer menu_b = lightgray; /* Windowsy */
const integer menu_f = black;
const integer menu_border = black;
const integer highlight_b = black;
const integer highlight_f = white;
const integer disabled = darkgray;

char r;
byte fv;

void find_what_you_can_do_with_it() {
	switch (thinks) {
	case wine:
	case ink:
		verbstr = string(vb_exam) + vb_drink;
		break;
	case bell:
		verbstr = string(vb_exam) + vb_ring;
		break;
	case potion:
	case wine:
		verbstr = string(vb_exam) + vb_drink;
		break;
	case chastity:
		verbstr = string(vb_exam) + vb_wear;
		break;
	case lute:
		verbstr = string(vb_exam) + vb_play;
		break;
	case mushroom:
	case onion:
		verbstr = string(vb_exam) + vb_eat;
		break;
	case clothes:
		verbstr = string(vb_exam) + vb_wear;
		break;
	default:
		verbstr = vb_exam; /* anything else */
	}
}

void chalk(integer x, integer y, char t, string z, boolean valid) {
	byte fv, ff, p, bit;
	word pageseg;
	byte ander;

	pageseg = 0xa000 + cp * 0x400;

	if (valid)  ander = 255;
	else ander = 170;

	for (fv = 1; fv <= length(z); fv ++)
		for (ff = 0; ff <= 7; ff ++)
			for (bit = 0; bit <= 2; bit ++) {
				port[0x3c4] = 2;
				port[0x3ce] = 4;
				port[0x3c5] = 1 << bit;
				port[0x3cf] = bit;
				mem[pageseg * x + fv - 1 + (y + ff) * 80] = ~(little[z[fv]][ff] & ander);
			}

	for (ff = 0; ff <= 8; ff ++) {
		port[0x3c4] = 2;
		port[0x3ce] = 4;
		port[0x3c5] = 1 << 3;
		port[0x3cf] = 3;
		fillchar(mem[pageseg * x + (y + ff) * 80], length(z), '\0'); /* blank it out. */
	}

	p = pos(t, z);
	if (p == 0)  return;
	p -= 1;

	for (bit = 0; bit <= 2; bit ++) {
		port[0x3c4] = 2;
		port[0x3ce] = 4;
		port[0x3c5] = 1 << bit;
		port[0x3cf] = bit;
		mem[pageseg * x + p + (y + 8) * 80] = ~ ander;
	}

	blitfix();
}

void hlchalk(integer x, integer y, char t, string z, boolean valid)
/* Highlighted. */
{
	byte fv, ff, p;
	word pageseg;
	byte ander;

	pageseg = 0xa000 + cp * 0x400;

	if (valid)  ander = 255;
	else ander = 170;

	for (fv = 1; fv <= length(z); fv ++)
		for (ff = 0; ff <= 7; ff ++)
			mem[pageseg * x + fv - 1 + (y + ff) * 80] = little[z[fv]][ff] & ander;

	p = pos(t, z);
	if (p == 0)  return;
	p -= 1;

	mem[pageseg * x + p + (y + 8) * 80] = ander;
	blitfix();
}

/*procedure say(x,y:integer; t:char; z:string; f,b:byte);
begin;
 settextjustify(0,2); setfillstyle(1,b); setcolor(f);
 bar(x-3,y-1,x+textwidth(z)+3,y+textheight(z));
 chalk(x,y,t,z);
end;*/

void bleep() {
	sound(177);
	delay(7);
	nosound;
}

void onemenu::start_afresh() {
	number = 0;
	width = 0;
	firstlix = false;
	oldy = 0;
	highlightnum = 0;
}

onemenu *onemenu::init() {
	menunow = false;
	ddmnow = false;
	menunum = 1;
	return this;
}

void onemenu::opt(string n, char tr, string key, boolean val) {
	integer l;
	number += 1;
	l = length(n + key) + 3;
	if (width < l)  width = l;
	{
		optiontype &with = oo[number];
		with.title = n;
		with.trigger = tr;
		with.shortcut = key;
		with.valid = val;
	}
}

void onemenu::displayopt(byte y, boolean highlit) {
	string data;
	{
		optiontype &with = oo[y];

		if (highlit)
			setfillstyle(1, 0);
		else
			setfillstyle(1, 7);
		bar((flx1 + 1) * 8, 3 + y * 10, (flx2 + 1) * 8, 12 + y * 10);

		/*  settextjustify(2,2);
		   if shortcut>'' then outtextxy(flx2,4+y*10,shortcut);*/

		data = with.title;

		while (length(data + with.shortcut) < width)
			data = data + ' '; /* Pad with spaces. */

		data = data + with.shortcut;

		if (highlit)
			hlchalk(left, 4 + y * 10, with.trigger, data, with.valid);
		else
			chalk(left, 4 + y * 10, with.trigger, data, with.valid);

	}
}

void onemenu::display() {
	byte y;
	off();
	setactivepage(cp);
	setvisualpage(cp);
	setfillstyle(1, menu_b);
	setcolor(menu_border);
	firstlix = true;
	flx1 = left - 2;
	flx2 = left + width;
	fly = 14 + number * 10;
	menunow = true;
	ddmnow = true;

	bar((flx1 + 1) * 8, 12, (flx2 + 1) * 8, fly);
	rectangle((flx1 + 1) * 8 - 1, 11, (flx2 + 1) * 8 + 1, fly + 1);

	displayopt(1, true);
	for (y = 2; y <= number; y ++) {
		optiontype &with = oo[y];
		displayopt(y, false);
	}
	defaultled = 1;
	cmp = 177;
	mousepage(cp);
	on(); /* 4= fletch */
}

void onemenu::wipe() {
	bytefield r;
	setactivepage(cp);
	off();
	{
		headtype &with = ddm_m.ddms[ddm_o.menunum];
		chalk(with.xpos, 1, with.trigger, with.title, true);
	}
	/* mblit((flx1-3) div 8,11,((flx2+1) div 8)+1,fly+1,3,cp);*/

	/* with r do
	 begin;
	  x1:=flx1;
	  y1:=11;
	  x2:=flx2+1;
	  y2:=fly+1;
	 end;
	 getset[cp].remember(r);*/

	mblit(flx1, 11, flx2 + 1, fly + 1, 3, cp);
	blitfix();
	menunow = false;
	ddmnow = false;
	firstlix = false;
	defaultled = 2;
	on_virtual();
}

void onemenu::movehighlight(shortint add) {
	shortint hn;
	if (add != 0) {
		hn = highlightnum + add;
		if ((hn < 0) || (hn >= (unsigned char)number))  return;
		highlightnum = hn;
	}
	setactivepage(cp);
	off();
	displayopt(oldy + 1, false);
	displayopt(highlightnum + 1, true);
	setactivepage(1 - cp);
	oldy = highlightnum;
	on();
}

void onemenu::lightup() {  /* This makes the menu highlight follow the mouse.*/
	if ((mx < (cardinal)flx1 * 8) || (mx > (cardinal)flx2 * 8) || (my <= 12) || (my > (cardinal)fly - 3))  return;
	highlightnum = (my - 13) / 10;
	if (highlightnum == oldy)  return;
	movehighlight(0);
}

void onemenu::select(byte n) {    /* Choose which one you want. */
	if (! oo[n + 1].valid)  return;
	choicenum = n;
	wipe();

	if (choicenum == number)  choicenum -= 1; /* Off the bottom. */
	if (choicenum > number)  choicenum = 0; /* Off the top, I suppose. */

	ddm_m.ddms[menunum].do_choose();
}

void onemenu::keystroke(char c) {
	byte fv;
	boolean found;
	c = upcase(c);
	found = false;
	for (fv = 1; fv <= number; fv ++) {
		optiontype &with = oo[fv];
		if ((upcase(with.trigger) == c) && with.valid) {
			select(fv - 1);
			found = true;
		}
	}
	if (! found)  blip();
}

headtype *headtype::init
(char trig, char alttrig, string name, byte p, proc dw, proc dc) {
	trigger = trig;
	alttrigger = alttrig;
	title = name;
	position = p;
	xpos = (position - 1) * spacing + indent;
	xright = position * spacing + indent;
	do_setup = dw;
	do_choose = dc;
	return this;
}

void headtype::display() {
	off(); /*MT*/
	chalk(xpos, 1, trigger, title, true);
	on(); /*MT*/
}

void headtype::highlight() {
	off();
	off_virtual();
	nosound;
	setactivepage(cp);
	hlchalk(xpos, 1, trigger, title, true);
	{
		ddm_o.left = xpos;
		ddm_o.menunow = true;
		ddmnow = true;
		ddm_o.menunum = position;
	}
	cmp = 177; /* Force redraw of cursor. */
}

boolean headtype::extdparse(char c) {
	boolean extdparse_result;
	if (c != alttrigger)  {
		extdparse_result = true;
		return extdparse_result;
	}
	extdparse_result = false;
	return extdparse_result;
}

menuset *menuset::init() {
	howmany = 0;
	return this;
}

void menuset::create(char t, string n, char alttrig, proc dw, proc dc) {
	howmany += 1;
	ddms[howmany].init(t, alttrig, n, howmany, dw, dc);
}

void menuset::update() {
	const bytefield menuspace = {0, 0, 80, 9};
	byte fv, page_, savecp;
	setactivepage(3);
	setfillstyle(1, menu_b);
	bar(0, 0, 640, 9);
	savecp = cp;
	cp = 3;

	for (fv = 1; fv <= howmany; fv ++)
		ddms[fv].display();

	for (page_ = 0; page_ <= 1; page_ ++)
		getset[page_].remember(menuspace);

	cp = savecp;
}

void menuset::extd(char c) {
	byte fv;
	fv = 1;
	while ((fv <= howmany) && (ddms[fv].extdparse(c)))  fv += 1;
	if (fv > howmany)  return;
	getcertain(fv);
}

void menuset::getcertain(byte fv) {
	{
		headtype &with = ddms[fv];
		{
			if (ddm_o.menunow) {
				wipe(); /* get rid of menu */
				if (ddm_o.menunum == with.position)  return; /* clicked on own highlight */
			}
			highlight();
			do_setup();
		}
	}
}

void menuset::getmenu(integer x) {
	byte fv;
	fv = 0;
	do {
		fv += 1;
		if ((x > ddms[fv].xpos * 8) && (x < ddms[fv].xright * 8)) {
			getcertain(fv);
			return;
		}
	} while (!(fv > howmany));
}

void parsekey(char r, char re) {
	switch (r) {
	case '\0':
	case '\340': {
		switch (re) {
		case 'K':
			if (ddm_o.menunum > 1)  {
				wipe();
				ddm_m.getcertain(ddm_o.menunum - 1);
			} else {
				;     /* Get menu on the left-hand side */
				wipe();
				ddm_m.getmenu((ddm_m.howmany - 1)*spacing + indent);
			}
			break;
		case 'M':
			if (ddm_o.menunum < ddm_m.howmany)  {
				wipe();
				ddm_m.getcertain(ddm_o.menunum + 1);
			} else {
				;     /* Get menu on the far right-hand side */
				wipe();
				ddm_m.getmenu(indent);
			}
			break;
		case 'H':
			movehighlight(-1);
			break;
		case 'P':
			movehighlight(1);
			break;
		default:
			ddm_m.extd(re);
		}
	}
	break;
	case '\15':
		select(ddm_o.highlightnum);
		break;
	default: {
		if (ddm_o.menunow)  keystroke(r);
	}
	}
}

/*$F+  *** Here follow all the ddm__ and do__ procedures for the DDM system. */

void ddm__game() {
	{
		start_afresh();
		opt("Help...", 'H', "f1", true);
		opt("Boss Key", 'B', "alt-B", true);
		opt("Untrash screen", 'U', "ctrl-f7", true);
		opt("Score and rank", 'S', "f9", true);
		opt("About Avvy...", 'A', "shift-f10", true);
		display();
	}
}

void ddm__file() {
	{
		start_afresh();
		opt("New game", 'N', "f4", true);
		opt("Load...", 'L', "^f3", true);
		opt("Save", 'S', "^f2", alive);
		opt("Save As...", 'v', "", alive);
		opt("DOS Shell", 'D', atkey + '1', true);
		opt("Quit", 'Q', "alt-X", true);
		display();
	}
}

void ddm__action() {
	string n;
	n = copy(f5_does(), 2, 255);

	{
		start_afresh();
		if (n == "")
			opt("Do something", 'D', "f5", false);
		else
			opt(copy(n, 2, 255), n[1], "f5", true);
		opt("Pause game", 'P', "f6", true);
		if (dna.room == 99)
			opt("Journey thither", 'J', "f7", neardoor());
		else
			opt("Open the door", 'O', "f7", neardoor());
		opt("Look around", 'L', "f8", true);
		opt("Inventory", 'I', "Tab", true);
		if (tr[1].xs == walk)
			opt("Run fast", 'R', "^R", true);
		else
			opt("Walk slowly", 'W', "^W", true);
		display();
	}
}

void ddm__people() {
	byte here;
	char fv;

	people = "";
	here = dna.room;

	{
		start_afresh();
		for (fv = '\226'; fv <= '\262'; fv ++)
			if (whereis[fv] == here) {
				opt(getname(fv), getnamechar(fv), "", true);
				people = people + fv;
			}
		display();
	}
}

void ddm__objects() {
	char fv;
	{
		start_afresh();
		for (fv = '\1'; fv <= numobjs; fv ++)
			if (dna.obj[fv])
				opt(get_thing(fv), get_thingchar(fv), "", true);
		display();
	}
}

string himher(char x) {         /* Returns "im" for boys, and "er" for girls.*/
	string himher_result;
	if (x < '\257')  himher_result = "im";
	else himher_result = "er";
	return himher_result;
}

void ddm__with() {
	byte fv;
	varying_string<7> verb;
	char vbchar;
	boolean n;
	{
		start_afresh();

		if (thinkthing) {

			find_what_you_can_do_with_it();

			for (fv = 1; fv <= length(verbstr); fv ++) {
				verbopt(verbstr[fv], verb, vbchar);
				opt(verb, vbchar, "", true);
			}

			/* We disable the "give" option if: (a), you haven't selected anybody,
			   (b), the person you've selected isn't in the room,
			   or (c), the person you've selected is YOU! */

			if ((set::of(nowt, pavalot, eos).has(last_person)) ||
			        (whereis[last_person] != dna.room))
				opt("Give to...", 'G', "", false); /* Not here. */ else {
				opt(string("Give to ") + getname(last_person), 'G', "", true);
				verbstr = verbstr + vb_give;
			}

		} else {
			opt("Examine", 'x', "", true);
			opt(string("Talk to h") + himher(thinks), 'T', "", true);
			verbstr = string(vb_exam) + vb_talk;
			switch (thinks) {

			case pgeida:
			case parkata: {
				opt("Kiss her", 'K', "", true);
				verbstr = verbstr + vb_kiss;
			}
			break;

			case pdogfood: {
				opt("Play his game", 'P', "", ! dna.wonnim); /* True if you HAVEN'T won. */
				verbstr = verbstr + vb_play;
			}
			break;

			case pmalagauche: {
				n = ! dna.teetotal;
				opt("Buy some wine", 'w', "", ! dna.obj[wine]);
				opt("Buy some beer", 'b', "", n);
				opt("Buy some whisky", 'h', "", n);
				opt("Buy some cider", 'c', "", n);
				opt("Buy some mead", 'm', "", n);
				verbstr = verbstr + '\145' + '\144' + '\146' + '\147' + '\150';
			}
			break;

			case ptrader: {
				opt("Buy an onion", 'o', "", ! dna.obj[onion]);
				verbstr = verbstr + '\151';
			}
			break;

			}
		}
		display();
	}
}

/*procedure ddm__map;
begin;
 with ddm_o do
 begin;
  start_afresh;
  opt('Cancel map','G','f5',true);
  opt('Pause game','P','f6',true);
  opt('Journey thither','J','f7',neardoor);
  opt('Explanation','L','f8',true);
  display;
 end;
end;

procedure ddm__town;
begin;
 with ddm_o do
 begin;
  start_afresh;
  opt('Argent','A','',true);
  opt('Birmingham','B','',true);
  opt('Nottingham','N','',true);
  opt('Cardiff','C','',true);
  display;
 end;
end;*/

void do__game() {
	switch (ddm_o.choicenum) {
		/* Help, boss, untrash screen. */
	case 0:
		callverb(vb_help);
		break;
	case 1:
		callverb(vb_boss);
		break;
	case 2:
		major_redraw();
		break;
	case 3:
		callverb(vb_score);
		break;
	case 4:
		callverb(vb_info);
		break;
	}
}

void do__file() {
	switch (ddm_o.choicenum) {
		/* New game, load, save, save as, DOS shell, about, quit. */
	case 0:
		callverb(vb_restart);
		break;
	case 1: {
		realwords[2] = "";
		callverb(vb_load);
	}
	break;
	case 2: {
		realwords[2] = "";
		callverb(vb_save);
	}
	break;
	case 3:
		filename_edit();
		break;
	case 4:
		back_to_bootstrap(2);
		break;
	case 5:
		callverb(vb_quit);
		break;
	}
}

void do__action() {
	string n;
	switch (ddm_o.choicenum) {
		/* Get up/pause game/open door/look/inv/walk-run */
	case 0: {
		person = pardon;
		thing = pardon;
		n = f5_does();
		callverb(n[1]);
	}
	break;
	case 1:
		callverb(vb_pause);
		break;
	case 2:
		callverb(vb_open);
		break;
	case 3:
		callverb(vb_look);
		break;
	case 4:
		callverb(vb_inv);
		break;
	case 5: {
		if (tr[1].xs == walk)  tr[1].xs = run;
		else tr[1].xs = walk;
		newspeed();
	}
	break;
	}
}

void do__objects() {
	thinkabout(objlist[ddm_o.choicenum + 1], a_thing);
}

void do__people() {
	thinkabout(people[ddm_o.choicenum + 1], a_person);
	last_person = people[ddm_o.choicenum + 1];
}

void do__with() {
	thing = thinks;

	if (thinkthing) {

		thing += 49;

		if (verbstr[ddm_o.choicenum + 1] == vb_give)
			person = last_person;
		else
			person = '\376';

	} else {
		switch (verbstr[ddm_o.choicenum + 1]) {
		case '\144': {
			thing = '\144';
			callverb(vb_buy);
			return;
		}
		break; /* Beer */
		case '\145': {
			thing = '\62';
			callverb(vb_buy);
			return;
		}
		break; /* Wine */
		case '\146': {
			thing = '\146';
			callverb(vb_buy);
			return;
		}
		break; /* Whisky */
		case '\147': {
			thing = '\147';
			callverb(vb_buy);
			return;
		}
		break; /* Cider */
		case '\150': {
			thing = '\153';
			callverb(vb_buy);
			return;
		}
		break; /* Mead */
		case '\151': {
			thing = '\103';
			callverb(vb_buy);
			return;
		}
		break; /* Onion (trader) */
		default: {
			person = thing;
			thing = '\376';
		}
		}
	}
	callverb(verbstr[ddm_o.choicenum + 1]);
}

/*$F- That's all. Now for the ...bar procs. */

void standard_bar() {   /* Standard menu bar */
	ddm_m.init();
	ddm_o.init();
	{
		;     /* Set up menus */
		create('F', "File", '!', ddm__file, do__file); /* same ones in map_bar, below, */
		create('G', "Game", '\42', ddm__game, do__game); /* Don't forget to change the */
		create('A', "Action", '\36', ddm__action, do__action); /* if you change them */
		create('O', "Objects", '\30', ddm__objects, do__objects); /* here... */
		create('P', "People", '\31', ddm__people, do__people);
		create('W', "With", '\21', ddm__with, do__with);
		update();
	}
}

/*procedure map_bar; { Special menu bar for the map (screen 99) }
begin;
 ddm_m.init; ddm_o.init;
 with ddm_m do
 begin; { Set up menus }
  create('G','Game','#',ddm__game,do__game);
  create('F','File','!',ddm__file,do__test);
  create('M','Map','2',ddm__map,do__test);
  create('T','Town',#20,ddm__town,do__test);
  update;
 end;
end;*/

void checkclick() {   /* only for when the menu's displayed */
	if (mpress > 0) {
		if (mpy > 10) {
			if (!((ddm_o.firstlix) &&
			        ((mpx >= (cardinal)ddm_o.flx1 * 8) && (mpx <= (cardinal)ddm_o.flx2 * 8) &&
			         (mpy >= 12) && (mpy <= (cardinal)ddm_o.fly)))) {
				;     /* Clicked OUTSIDE the menu. */
				if (ddm_o.menunow)  wipe();
			}    /* No "else"- clicking on menu has no effect (only releasing) */
		} else {
			;     /* Clicked on menu bar */
			ddm_m.getmenu(mpx);
		}
	} else {
		;     /* NOT clicked button... */
		if (mrelease > 0) {
			if ((ddm_o.firstlix) &&
			        ((mrx >= (cardinal)ddm_o.flx1 * 8) && (mrx <= (cardinal)ddm_o.flx2 * 8) &&
			         (mry >= 12) && (mry <= (cardinal)ddm_o.fly)))
				select((mry - 13) / 10);
		}
	}
}

void menu_link() {
	{
		if (! ddm_o.menunow)  return;

		check(); /* find mouse coords & click information */
		checkclick(); /* work out click codes */

		/* Change arrow... */

		switch (my) {
		case RANGE_11(0, 10):
			newpointer(1);
			break;                 /* up-arrow */
		case 11 ... 169: {
			if ((mx >= (cardinal)ddm_o.flx1 * 8) && (mx <= (cardinal)ddm_o.flx2 * 8) && (my > 10) && (my <= (cardinal)ddm_o.fly))
				newpointer(3); /* right-arrow */
			else newpointer(4); /* fletch */
		}
		break;
		case RANGE_32(169, 200):
			newpointer(2);
			break;                   /* screwdriver */
		}

		if (! ddm_o.menunow)  return;

		lightup();
	}
}

} // End of namespace Avalanche.