scummvm/engines/avalanche/avalot.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.
 */

/* AVALOT		The kernel of the program. */

#include "avalanche/avalanche.h"

#include "avalanche/graphics.h"
#include "avalanche/avalot.h"
#include "avalanche/gyro2.h"
#include "avalanche/trip6.h"
#include "avalanche/gyro2.h"
#include "avalanche/lucerna2.h"
#include "avalanche/scrolls2.h"
#include "avalanche/basher2.h"
#include "avalanche/dropdown2.h"
#include "avalanche/pingo2.h"
#include "avalanche/logger2.h"
#include "avalanche/timeout2.h"
#include "avalanche/celer2.h"
#include "avalanche/enid2.h"
#include "avalanche/visa2.h"
#include "avalanche/closing2.h"

/*#include "Incline.h"*/

#include "common/str.h"
#include "common/textconsole.h"



namespace Avalanche {



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


void Avalot::setup() {
	int16 gd, gm;

	checkbreak = false;
	_vm->_gyro->visible = _vm->_gyro->m_no;
	_vm->_gyro->to_do = 0;
	_vm->_gyro->lmo = false;
	_vm->_scrolls->resetscroll();
	_vm->_gyro->setup_vmc();
	_vm->_gyro->on_virtual();
	gd = 3;
	gm = 0;
	//initgraph(gd: gm: "");
	_vm->_gyro->holdthedawn = true;
	_vm->_lucerna->dusk();
	_vm->_gyro->cmp = 177;
	_vm->_lucerna->mouse_init();  /*on;*/
	_vm->_gyro->dropsok = true;
	_vm->_gyro->ctrl = ckey;
	_vm->_gyro->oldjw = 177;
	_vm->_gyro->mousetext = "";
	_vm->_gyro->c = 999;
	//settextjustify(0: 0);
	_vm->_gyro->ddmnow = false;
	_vm->_lucerna->load_digits();
	_vm->_gyro->cheat = false;
	_vm->_gyro->cp = 0;
	_vm->_gyro->curpos = 1;
	_vm->_gyro->quote = true;
	_vm->_gyro->ledstatus = 177;
	_vm->_gyro->defaultled = 2;
	/* TSkellern:=0; { Replace with a more local variable sometime }*/
	_vm->_gyro->dna.rw = _vm->_gyro->stopped;
	_vm->_gyro->enid_filename = ""; /* undefined. */
	_vm->_lucerna->toolbar();
	_vm->_scrolls->state(2);
	_vm->_graphics->refreshScreen(); //_vm->_pingo->copy03(); Replace it with refreshScreen() since they 'almost' have the same functionality.
	for (byte i = 0; i < 3; i++)
		_vm->_gyro->lastscore[i] = -1; /* impossible digits */

	/* for gd:=0 to 1 do
	 begin
	  setactivepage(gd); outtextxy(7:177:chr(48+gd));
	 end;*/

	_vm->_trip->loadtrip();

	_vm->_gyro->reloaded = false; // TODO: Remove it later: when SAVE/LOAD system is implemented. Until then: we always start a new game.

	if ((_vm->_gyro->filetoload.empty()) && (! _vm->_gyro->reloaded))
		_vm->_gyro->newgame(); /* no game was requested- load the default */
	else {
		if (! _vm->_gyro->reloaded)
			_vm->_enid->avvy_background();
		_vm->_dropdown->standard_bar();
		_vm->_lucerna->sprite_run();
		if (_vm->_gyro->reloaded)
			_vm->_enid->edna_reload();
		else {
			/* Filename given on the command line (or loadfirst) */
			_vm->_enid->edna_load(_vm->_gyro->filetoload);
			if (_vm->_enid->there_was_a_problem()) {
				_vm->_scrolls->display("So let's start from the beginning instead...");
				_vm->_gyro->holdthedawn = true;
				_vm->_lucerna->dusk();
				_vm->_gyro->newgame();
			}
		}
	}

	if (! _vm->_gyro->reloaded) {
		_vm->_gyro->soundfx = ! _vm->_gyro->soundfx;
		_vm->_lucerna->fxtoggle();
		_vm->_lucerna->thinkabout(_vm->_gyro->money, _vm->_gyro->a_thing);
	}

	_vm->_trip->get_back_loretta();
	//gm = getpixel(0: 0);
	//setcolor(7);
	_vm->_gyro->holdthedawn = false;
	_vm->_lucerna->dawn();
	_vm->_gyro->cursoron = false;
	_vm->_basher->cursor_on();
	_vm->_trip->newspeed();

	if (! _vm->_gyro->reloaded)
		_vm->_visa->dixi('q', 83); /* Info on the game: etc. */
}



void Avalot::handleKeyDown(const Common::Event &event) {
	//if (keyboardclick)
	//	click();
	//	
	// To be implemented later with the sounds, I assume.

	switch (event.kbd.keycode) {
	case Common::KEYCODE_UP:
	case Common::KEYCODE_DOWN:
	case Common::KEYCODE_RIGHT:
	case Common::KEYCODE_LEFT:
	case Common::KEYCODE_PAGEUP:
	case Common::KEYCODE_PAGEDOWN:
	case Common::KEYCODE_HOME:
	case Common::KEYCODE_END:
	case Common::KEYCODE_KP5:
		_vm->_trip->handleMoveKey(event); // Fallthroughs are intended.
		break;
	}
}



void Avalot::run(Common::String arg) {
	setup();

	do {
		uint32 beginLoop = _vm->_system->getMillis();

		_vm->_lucerna->clock_lucerna();
		_vm->_basher->keyboard_link();
		_vm->_dropdown->menu_link();
		_vm->_trip->readstick();
		_vm->_gyro->force_numlock();
		_vm->_trip->get_back_loretta();
		_vm->_trip->trippancy_link();
		_vm->_celer->pics_link();
		_vm->_lucerna->checkclick();

		if (_vm->_gyro->visible == _vm->_gyro->m_virtual)
			_vm->_gyro->plot_vmc(_vm->_gyro->mx, _vm->_gyro->my, _vm->_gyro->cp);
		_vm->_lucerna->flip_page(); /* <<<! */
		
		if (_vm->_gyro->visible == _vm->_gyro->m_virtual) 
			_vm->_gyro->wipe_vmc(_vm->_gyro->cp);

		_vm->_timeout->one_tick();



		// Not in the original:

		_vm->updateEvents(); // The event handler.

		_vm->_graphics->refreshScreen();  // TODO: Maybe it'll have a better place later. Move it there when it's needed.

		uint32 delay = _vm->_system->getMillis() - beginLoop;
		if (delay <= 55)
			_vm->_system->delayMillis(55 - delay); // Replaces _vm->_gyro->slowdown(); 55 comes from 18.2 Hz (B Flight).

	} while (! _vm->_gyro->lmo);

	//restorecrtmode();
	//if (logging)
	//	close(logfile);

	_vm->_closing->end_of_program();
}

} // End of namespace Avalanche