AVALANCHE: Add Lucerna.

2 files changed, 195 insertions, 0 deletions

diff --git a/engines/avalanche/lucerna2.cpp b/engines/avalanche/lucerna2.cpp
new file mode 100644
index 0000000000..88db23e541
--- /dev/null
+++ b/engines/avalanche/lucerna2.cpp
@@ -0,0 +1,81 @@
+/* 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.
+ */
+
+#include "common/system.h"
+#include "avalanche/lucerna2.h"
+#include "avalanche/gyro2.h"
+#include "avalanche/scrolls2.h"
+#include "avalanche/logger2.h"
+#include "avalanche/enhanced2.h"
+
+//#include "Graph.h"
+///*#include "Dos.h"*/
+///*#include "Crt.h"*/
+//#include "trip5.h"
+//#include "Acci.h"
+//#include "pingo.h"
+//#include "dropdown.h"
+//#include "visa.h"
+//#include "celer.h"
+//#include "timeout.h"
+//#include "basher.h"
+//#include "sequence.h"
+
+namespace Avalanche {
+
+	namespace Lucerna {
+
+	bool fxhidden;
+
+	struct rgbrec {
+		int16 red;
+		int16 green;
+		int16 blue;
+	};
+
+	struct palettetype {
+		int32 size;
+		rgbrec colors[256];
+	};
+
+	palettetype fxpal[4];
+
+	void callverb(char n) {
+		/*if (n == pardon)
+		Scrolls::display(
+		"The f5 key lets you do a particular action in certain "
+		"situations. However, at the moment there is nothing "
+		"assigned to it. You may press alt-A to see what the "
+		"current setting of this key is.");*/
+
+		// Needs const char pardon located in Acci.
+
+	}
+
+	} // End of namespace Lucerna
+
+} // End of namespace Avalanche
\ No newline at end of file
diff --git a/engines/avalanche/lucerna2.h b/engines/avalanche/lucerna2.h
new file mode 100644
index 0000000000..bee9c107d2
--- /dev/null
+++ b/engines/avalanche/lucerna2.h
@@ -0,0 +1,114 @@
+/* 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.
+ */
+
+#ifndef LUCERNA2_H
+#define LUCERNA2_H
+
+#include "common/scummsys.h"
+
+namespace Avalanche {
+
+	namespace Lucerna {
+
+	// Call it where Lucerna is first used.
+	// Procuded to replace the initizalization part of the original Pascal unit.
+	void initialize_lucerna();
+
+	void callverb(char n);
+
+	void draw_also_lines();
+
+	void mouse_init();
+
+	void mousepage(uint16 page_);
+
+	void load(byte n);
+
+	void exitroom(byte x);
+
+	void enterroom(byte x, byte ped);
+
+	void thinkabout(char z, bool th);      /* Hey!!! Get it and put it!!! */
+
+	void load_digits();    /* Load the scoring digits & rwlites */
+
+	void toolbar();
+
+	void showscore();
+
+	void points(byte num);      /* Add on no. of points */
+
+	void mouseway();
+
+	void inkey();
+
+	void posxy();
+
+	void fxtoggle();
+
+	void objectlist();
+
+	void checkclick();
+
+	void errorled();
+
+	void dusk();
+
+	void dawn();
+
+	void showrw();
+
+	void mblit(byte x1, byte y1, byte x2, byte y2, byte f, byte t); /* The Minstrel Blitter */
+
+	void blitfix();
+
+	void clock_lucerna();
+
+	void flip_page();
+
+	void delavvy();
+
+	void gameover();
+
+	void minor_redraw();
+
+	void major_redraw();
+
+	uint16 bearing(byte whichped);
+
+	void flesh_colours();
+
+	void sprite_run();
+
+	void fix_flashers();
+
+	} // End of namespace Lucerna
+
+} // End of namespace Avalanche
+
+
+#endif // LUCERNA2_H