AVALANCHE: Add Basher.

4 files changed, 263 insertions, 2 deletions

diff --git a/engines/avalanche/avalanche.cpp b/engines/avalanche/avalanche.cpp
index 62cb5fbe99..fcf2f545fb 100644
--- a/engines/avalanche/avalanche.cpp
+++ b/engines/avalanche/avalanche.cpp
@@ -54,13 +54,14 @@ namespace Avalanche {
 		_pingo.setParent(this);
 		_scrolls.setParent(this);
 		_visa.setParent(this);
-		_lucerna.setParent(this);
+		_lucerna.setParent(this); _lucerna.init();
 		_enid.setParent(this);
 		_celer.setParent(this);
 		_sequence.setParent(this);
 		_timeout.setParent(this);
 		_trip.setParent(this);
-		_acci.setParent(this);
+		_acci.setParent(this); _acci.init();
+		_basher.setParent(this);
 	}
 
 	AvalancheEngine::~AvalancheEngine() {
diff --git a/engines/avalanche/avalanche.h b/engines/avalanche/avalanche.h
index 5fa0fa9268..23648329fb 100644
--- a/engines/avalanche/avalanche.h
+++ b/engines/avalanche/avalanche.h
@@ -44,6 +44,7 @@
 #include "avalanche/timeout2.h"
 #include "avalanche/trip6.h"
 #include "avalanche/acci2.h"
+#include "avalanche/basher2.h"
 
 #include "engines/engine.h"
 #include "engines/advancedDetector.h"
@@ -74,6 +75,7 @@ public:
 	Timeout _timeout;
 	Trip _trip;
 	Acci _acci;
+	Basher _basher;
 
 	AvalancheEngine(OSystem *syst, const AvalancheGameDescription *gd);
 	~AvalancheEngine();
diff --git a/engines/avalanche/basher2.cpp b/engines/avalanche/basher2.cpp
new file mode 100644
index 0000000000..61ad226495
--- /dev/null
+++ b/engines/avalanche/basher2.cpp
@@ -0,0 +1,167 @@
+/* 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() {
+	warning("STUB: Basher::Basher()");
+}
+
+void Basher::setParent(AvalancheEngine *vm) {
+	_vm = vm;
+}
+
+void Basher::plottext() {
+	warning("STUB: Basher::plottext()");
+}
+
+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() {
+	warning("STUB: Basher::normal_edit()");
+}
+
+} // End of namespace Avalanche.
diff --git a/engines/avalanche/basher2.h b/engines/avalanche/basher2.h
new file mode 100644
index 0000000000..326ea93dc5
--- /dev/null
+++ b/engines/avalanche/basher2.h
@@ -0,0 +1,91 @@
+/* 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. 
+
+#ifndef BASHER2_H
+#define BASHER2_H
+
+#include "common/scummsys.h"
+
+namespace Avalanche {
+class AvalancheEngine;
+
+class Basher {
+public:
+	uint16 count;
+
+
+
+	Basher();
+
+	void setParent(AvalancheEngine *vm);
+
+	void plottext();
+
+	void keyboard_link();
+
+	void cursor_on();
+
+	void get_demorec();
+
+	bool demo_ready();
+
+	void cursor_off();
+
+	void filename_edit();
+
+	void normal_edit();
+
+#ifdef RECORD
+	void record_one();
+#endif
+
+private:
+	AvalancheEngine *_vm;
+
+	bool entering_filename;
+	byte left_margin;
+
+	void wipetext();
+
+	void do_cursor();
+
+	char firstchar(Common::String x);
+
+	void try_dd();
+
+	void typein();
+};
+
+} // End of namespace Avalanche.
+
+#endif // BASHER2_H