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

/* BASHER		Handles the keyboard. */

// Note: this unit can record keystrokes, for the demo. If you want it
// to do this, define the o.c.c. RECORD. Setting gyro.demo to True will
// cause them to be played back. 

#include "avalanche/avalanche.h"

#include "avalanche/basher2.h"
#include "avalanche/enhanced2.h"
#include "avalanche/lucerna2.h"
#include "avalanche/scrolls2.h"
#include "avalanche/acci2.h"
#include "avalanche/trip6.h"
#include "avalanche/pingo2.h"
#include "avalanche/dropdown2.h"
#include "avalanche/logger2.h"
#include "avalanche/enid2.h"
//#include "Sticks.h" - Responsible for the joystick

#include "common/textconsole.h"

namespace Avalanche {


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

void Basher::init() {
	/* new(previous);*/
	if (!_vm->_gyro->last.empty())
		_vm->_gyro->last.clear();

	normal_edit();

	if (_vm->_gyro->demo) {
		if (!_vm->_gyro->demofile.open("demo.avd")) {
			warning("AVALANCHE: Basher: File not found: demo.avd");
			throw "AVALANCHE: Basher: File not found: demo.avd"; // TODO: Some proper exception handling will be needed here.
		}
	}

// Not sure that the following part will be used ever...
#ifdef RECORD
	count = 0;
	if (!_vm->_gyro->demofile_save.open("demo.avd")) {
		warning("AVALANCHE: Basher: File not found: demo.avd");
		throw "AVALANCHE: Basher: File not found: demo.avd"; // TODO: Some proper exception handling will be needed here.
	}
#endif
}

void Basher::plottext() {
	if (_vm->_gyro->mouse_near_text())
		_vm->_gyro->super_off();

	cursor_off();

	_vm->_graphics->drawBar(24, 161, 640, 169, black); // Black out the line of the text.

	// Draw the text. Similar to chalk(), but here we don't have to bother with the color of the characters.
	for (byte i = 0; i < _vm->_gyro->inputText.size(); i++)
		for (byte j = 0; j < 8; j++) {
			byte pixel = _vm->_gyro->characters[_vm->_gyro->inputText[i]][j];
			for (byte bit = 0; bit < 8; bit++) {
				byte pixelBit = (pixel >> bit) & 1;
				if (pixelBit != 0)
					*_vm->_graphics->getPixel(24 + i * 8 + 7 - bit, 161 + j) = white;
			}
		}

	cursor_on();
	_vm->_gyro->super_on();
}

void Basher::wipetext() {
	warning("STUB: Basher::wipetext()");
}

/*procedure cursor;
begin
 if curflash=0 then
 begin
  if mouse_near_text then Super_Off;
  cursoron:=not cursoron;
  mem[$A000*13442+curpos]:=not mem[$A000*13442+curpos];
  mem[$A000*pagetop+13442+curpos]:=not mem[$A000*pagetop+13442+curpos];
  curflash:=17;
  Super_On;
 end else dec(curflash);
end;*/

void Basher::do_cursor() {
	warning("STUB: Basher::do_cursor()");
}

void Basher::cursor_on() {
	warning("STUB: Basher::cursor_on()");
}

void Basher::cursor_off() {
	warning("STUB: Basher::cursor_off()");
}


void Basher::get_demorec() {
	warning("STUB: Basher::get_demorec()");
}

#ifdef RECORD
void Basher::record_one() {
	warning("STUB: Basher::record_one()");
}
#endif
/*
procedure storeline(whatwhat:string);
var
 fv:byte;
 what:string[77];
 ok:boolean;

  function upline(x:string):string;
  var fv:byte; n:string[77];
  begin
   for fv:=1 to length(x) do n[fv]:=upcase(x[fv]);
   n[0]:=x[0]; upline:=n;
  end;
begin

 what:=upline(whatwhat); ok:=false;
 for fv:=1 to 20 do
  if what=upline(previous^[fv]) then
  begin { it already exists, in string "fv" }
   move(previous^[fv+1],previous^[fv],(20-fv)*78);
   previous^[20]:=whatwhat; ok:=true;
  end;
 if ok then exit;
 { it's not on the list, so add it }
 move(previous^[2],previous^[1],1482); { shove up }
 previous^[20]:=whatwhat;
end;
*/


char Basher::firstchar(Common::String x) {
	warning("STUB: Basher::firstchar()");
	return 'S';
}


void Basher::try_dd() { /* This asks the Parsekey proc in Dropdown if it knows it. */
	warning("STUB: Basher::try_dd()");
}

void Basher::typein() {
	warning("STUB: Basher::typein()");
}

/*        'x'..'z': begin setvisualpage(ord(extd)-63); write(#7); inkey; end;
        '�': begin setvisualpage(0); write(#7); inkey; end;*/

void Basher::keyboard_link() {
	warning("STUB: Basher::keyboard_link()");
}

bool Basher::demo_ready() {
	warning("STUB: Basher::demo_ready()");
	return true;
}

void Basher::filename_edit() {
	warning("STUB: Basher::filename_edit()");
}

void Basher::normal_edit() {
	entering_filename = false;
	/*if (!_vm->_gyro->current.empty())
		_vm->_gyro->current.clear();*/
	left_margin = 1;
	_vm->_gyro->curpos = 0;
}

} // End of namespace Avalanche.