AVALANCHE: Add Celer.

2 files changed, 477 insertions, 0 deletions

diff --git a/engines/avalanche/celer2.cpp b/engines/avalanche/celer2.cpp
new file mode 100644
index 0000000000..6efabea041
--- /dev/null
+++ b/engines/avalanche/celer2.cpp
@@ -0,0 +1,397 @@
+/* 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.
+ */
+
+/* CELER	The unit for updating the screen pics. */
+
+#include "avalanche/celer2.h"
+#include "common/textconsole.h"
+//#include "avalanche/trip6.h"
+#include "avalanche/lucerna2.h"
+#include "avalanche/gyro2.h"
+#include "avalanche/roomnums.h"
+
+namespace Avalanche {
+
+	namespace Celer {
+
+	//untyped_file f; /* Private variable- not accessible from elsewhere. */
+
+	const int16 on_disk = -1; /* Value of memos[fv].x when it's not in memory. */
+
+	void pics_link() {
+		byte xx;
+
+		if (Gyro::ddmnow)  return; /* No animation when the menus are up. */
+
+		{
+			Gyro::dnatype &with = Gyro::dna;
+			switch (with.room) {
+
+			case r__outsideargentpub: {
+				if ((Gyro::roomtime % int32(12)) == 0)
+					show_one(int32(1) + (Gyro::roomtime / int32(12)) % int32(4));
+			}
+			break;
+
+			case r__brummieroad:
+				if ((Gyro::roomtime % int32(2)) == 0)
+					show_one(int32(1) + (Gyro::roomtime / int32(2)) % int32(4));
+				break;
+
+			case r__bridge:
+				if ((Gyro::roomtime % int32(2)) == 0)
+					show_one(int32(4) + (Gyro::roomtime / int32(2)) % int32(4));
+				break;
+
+			case r__yours:
+				if ((! with.avvy_is_awake) && ((Gyro::roomtime % int32(4)) == 0))
+					show_one(int32(1) + (Gyro::roomtime / int32(12)) % int32(2));
+				break;
+
+			case r__argentpub: {
+				if (((Gyro::roomtime % int32(7)) == 1) && (Gyro::dna.malagauche != 177)) {
+					/* Malagauche cycle */
+					Gyro::dna.malagauche += 1;
+					switch (Gyro::dna.malagauche) {
+					case 1:
+					case 11:
+					case 21:
+						show_one(12);
+						break; /* Looks forwards. */
+					case 8:
+					case 18:
+					case 28:
+					case 32:
+						show_one(11);
+						break; /* Looks at you. */
+					case 30:
+						show_one(13);
+						break; /* Winks. */
+					case 33:
+						Gyro::dna.malagauche = 0;
+						break;
+					}
+				}
+
+				switch (Gyro::roomtime % 200) {
+				case 179:
+				case 197:
+					show_one(5);
+					break; /* Dogfood's drinking cycle */
+				case 182:
+				case 194:
+					show_one(6);
+					break;
+				case 185:
+					show_one(7);
+					break;
+				case 199:
+					Gyro::dna.dogfoodpos = 177;
+					break; /* Impossible value for this. */
+				}
+
+				if ((Gyro::roomtime % 200 >= 0) && (Gyro::roomtime % 200 <= 178)) { /* Normally. */
+					if (((Lucerna::bearing(2) >= 1) && (Lucerna::bearing(2) <= 90)) || ((Lucerna::bearing(2) >= 358) && (Lucerna::bearing(2) <= 360)))
+						xx = 3;
+					else if ((Lucerna::bearing(2) >= 293) && (Lucerna::bearing(2) <= 357))
+						xx = 2;
+					else if ((Lucerna::bearing(2) >= 271) && (Lucerna::bearing(2) <= 292))
+						xx = 4;
+
+					if (xx != Gyro::dna.dogfoodpos) { /* Only if it's changed.*/
+						show_one(xx);
+						Gyro::dna.dogfoodpos = xx;
+					}
+				}
+				
+			}
+			break;
+
+			case r__westhall:
+				if ((Gyro::roomtime % int32(3)) == 0)
+					switch ((Gyro::roomtime / int32(3)) % int32(6)) {
+					case 4:
+						show_one(1);
+						break;
+					case 1:
+					case 3:
+					case 5:
+						show_one(2);
+						break;
+					case 0:
+					case 2:
+						show_one(3);
+						break;
+					}
+				break;
+
+			case r__lustiesroom:
+				if (!(Gyro::dna.lustie_is_asleep))  {
+					if ((Gyro::roomtime % int32(45)) > 42)
+						xx = 4; /* du Lustie blinks */
+
+					/* Bearing of Avvy from du Lustie. */
+					else if (((Lucerna::bearing(2) >= 0) && (Lucerna::bearing(2) <= 45)) || ((Lucerna::bearing(2) >= 315) && (Lucerna::bearing(2) <= 360)))
+							xx = 1; /* Middle. */
+					else if ((Lucerna::bearing(2) >= 45) && (Lucerna::bearing(2) <= 180))
+							xx = 2; /* Left. */
+					else if ((Lucerna::bearing(2) >= 181) && (Lucerna::bearing(2) <= 314))
+						xx = 3; /* Right. */
+
+					if (xx != Gyro::dna.dogfoodpos) { /* Only if it's changed.*/
+						show_one(xx);
+						Gyro::dna.dogfoodpos = xx; /* We use DogfoodPos here too- why not? */
+					}
+				}
+				break;
+
+			case r__aylesoffice:
+				if ((! Gyro::dna.ayles_is_awake) && (Gyro::roomtime % int32(14) == 0)) {
+					switch ((Gyro::roomtime / int32(14)) % int32(2)) {
+					case 0:
+						show_one(1);
+						break; /* Frame 2: EGA. */
+					case 1:
+						show_one(3);
+						break; /* Frame 1: Natural. */
+					}
+				}
+				break;
+
+			case r__robins:
+				if (Gyro::dna.tied_up)
+					switch (Gyro::roomtime % int32(54)) {
+					case 20:
+						show_one(4);
+						break; /* Frame 4: Avalot blinks. */
+					case 23:
+						show_one(2);
+						break; /* Frame 1: Back to normal. */
+					}
+				break;
+
+			case r__nottspub: {
+				/* Bearing of Avvy from Port. */
+				if (((Lucerna::bearing(5) >= 0) && (Lucerna::bearing(5) <= 45)) || ((Lucerna::bearing(5) >= 315) && (Lucerna::bearing(5) <= 360)))
+					xx = 2; /* Middle. */
+				else if ((Lucerna::bearing(5) >= 45) && (Lucerna::bearing(5) <= 180))
+					xx = 6; /* Left. */
+				else if ((Lucerna::bearing(5) >= 181) && (Lucerna::bearing(5) <= 314))
+					xx = 8; /* Right. */
+
+				if ((Gyro::roomtime % int32(60)) > 57)  xx--; /* Blinks */
+
+				if (xx != Gyro::dna.dogfoodpos) { /* Only if it's changed.*/
+					show_one(xx);
+					Gyro::dna.dogfoodpos = xx; /* We use DogfoodPos here too- why not? */
+				}
+
+				switch (Gyro::roomtime % 50) {
+				case 45 :
+					show_one(9);
+					break; /* Spurge blinks */
+				case 49 :
+					show_one(10);
+					break;
+				}
+			}
+			break;
+
+			case r__ducks: {
+				if ((Gyro::roomtime % 3) == 0) /* The fire flickers */
+					show_one(1 + (Gyro::roomtime / 3) % 3);
+
+				{/* Lucerna::bearing of Avvy from Duck. */
+				if (((Lucerna::bearing(2) >= 0) && (Lucerna::bearing(2) <= 45)) || ((Lucerna::bearing(2) >= 315) && (Lucerna::bearing(2) <= 360)))
+					xx = 4; /* Middle. */
+				else if ((Lucerna::bearing(2) >= 45) && (Lucerna::bearing(2) <= 180))
+					xx = 6; /* Left. */
+				else if ((Lucerna::bearing(2) >= 181) && (Lucerna::bearing(2) <= 314))
+					xx = 8; /* Right. */
+
+				if ((Gyro::roomtime % int32(45)) > 42)  xx += 1; /* Duck blinks */
+
+				if (xx != Gyro::dna.dogfoodpos) { /* Only if it's changed.*/
+					show_one(xx);
+					Gyro::dna.dogfoodpos = xx; /* We use DogfoodPos here too- why not? */
+				}
+			}
+			break;
+
+			}
+		}
+
+		if ((Gyro::dna.ringing_bells) && (Gyro::flagset('B')))
+			/* They're ringing the bells. */
+			switch (Gyro::roomtime % int32(4)) {
+			case 1: {
+				Gyro::dnatype &with = Gyro::dna;
+
+				if (with.nextbell < 5)  with.nextbell = 12;
+				with.nextbell -= 1;
+				Gyro::note(Gyro::notes[with.nextbell]);
+			}
+			break;
+			case 2:
+				//nosound;
+				warning("STUB: Celer::pics_link()");
+				break;
+			}
+		}
+	}
+
+	void load_chunks(Common::String xx) {
+		warning("STUB: Celer::load_chunks()");
+	}
+
+	void forget_chunks() {
+		warning("STUB: Celer::forget_chunks()");
+	}
+
+	void mdrop(int16 x, int16 y, int16 xl, int16 yl, void *p) /* assembler;
+	asm
+	  push ds;      { Strictly speaking, we shouldn't modify DS, so we'll save it.}
+	  push bp;      { Nor BP! }
+
+
+	  { DI holds the offset on this page. It starts at the top left-hand corner. }
+	  { (It should equal ch.y*80+ch.x. }
+
+	  mov ax,y;
+	  mov dl,80;
+	  mul dl; { Line offset now calculated. }
+	  mov di,ax; { Move it into DI. }
+	  mov ax,x;
+	  add di,ax; { Full offset now calculated. }
+
+	  mov bx,yl; { No. of times to repeat lineloop. }
+	  inc bx;        { "loop" doesn't execute the zeroth time. }
+	  mov bh,bl;     { Put it into BH. }
+
+	  { BP holds the length of the Common::String to copy. It's equal to ch.xl.}
+
+	  mov ax,uint16(p);   { Data is held at DS:SI. }
+	  mov si,ax;
+	  mov ax,uint16(p+2); { This will be moved over into ds in just a tick... }
+
+	  mov bp,xl;
+
+	  mov ds,ax;
+
+
+	  cld;          { We're allowed to hack around with the flags! }
+
+	  mov ax,$AC00; { Top of the first EGA page. }
+	  mov es,ax;    { Offset on this page is calculated below... }
+
+
+	{    port[$3c4]:=2; port[$3ce]:=4; }
+
+	  mov dx,$3c4;
+	  mov al,2;
+	  out dx,al;
+	  mov dx,$3ce;
+	  mov al,4;
+	  out dx,al;
+
+	  mov cx,4;  { This loop executes for 3, 2, 1, and 0. }
+	  mov bl,0;
+
+
+	 @mainloop:
+
+		push di;
+		push cx;
+
+	{    port[$3C5]:=1 shl bit; }
+		mov dx,$3C5;
+		mov al,1;
+		mov cl,bl; { BL = bit. }
+		shl al,cl;
+		out dx,al;
+	{     port[$3CF]:=bit; }
+		mov dx,$3CF;
+		mov al,bl; { BL = bit. }
+		out dx,al;
+
+		xor ch,ch;
+		mov cl,bh; { BH = ch.yl. }
+
+	   @lineloop:
+
+		 push cx;
+
+		 mov cx,bp;
+
+		 repz movsb; { Copy the data. }
+
+		 sub di,bp;
+		 add di,80;
+
+		 pop cx;
+
+	   loop @lineloop;
+
+		inc bl; { One more on BL. }
+
+		pop cx;
+		pop di;
+
+	 loop @mainloop;
+
+	  pop bp;
+	  pop ds;       { Get DS back again. }
+	*/
+	{
+	}
+
+	void show_one(byte which);
+
+	void display_it(int16 x, int16 y, int16 xl, int16 yl, flavourtype flavour, void *p) {
+		warning("STUB: Celer::display_it()");
+	}
+
+	void show_one(byte which) {
+		warning("STUB: Celer::show_one()");
+	}
+
+
+
+	void show_one_at(byte which, int16 xxx, int16 yyy);
+
+	static void display_it1(int16 xl, int16 yl, flavourtype flavour, void *p, int16 &xxx, int16 &yyy) {
+		warning("STUB: Celer::display_it1()");
+	}
+
+	void show_one_at(byte which, int16 xxx, int16 yyy) {
+		warning("STUB: Celer::show_one_at()");
+	}
+
+
+	} // End of namespace Celer.
+
+} // End of namespace Avalanche.
diff --git a/engines/avalanche/celer2.h b/engines/avalanche/celer2.h
new file mode 100644
index 0000000000..466ed8d9d0
--- /dev/null
+++ b/engines/avalanche/celer2.h
@@ -0,0 +1,80 @@
+/* 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.
+ */
+
+/* CELER	The unit for updating the screen pics. */
+
+#ifndef CELER2_H
+#define CELER2_H
+
+#include "common/scummsys.h"
+#include "common/str.h"
+
+namespace Avalanche {
+
+	namespace Celer {
+
+		enum flavourtype {ch_ega, ch_bgi, last_flavourtype};
+
+		struct chunkblocktype {
+			flavourtype flavour;
+			int16 x, y;
+			int16 xl, yl;
+			int32 size;
+			bool natural;
+
+			bool memorise; /* Hold it in memory? */
+		};
+
+		struct memotype {
+			int16 x, y;
+			int16 xl, yl;
+			flavourtype flavour;
+			uint16 size;
+		};
+
+		int32 offsets[40];
+		byte num_chunks = 0;
+		memotype memos[40];
+		void *memory[40];
+
+
+
+		void pics_link();
+
+		void load_chunks(Common::String xx);
+
+		void forget_chunks();
+
+		void show_one(byte which);
+
+		void show_one_at(byte which, int16 xxx, int16 yyy);
+
+	} // End of namespace Celer.
+
+} // End of namespace Avalanche.
+
+#endif // CELER2_H