aboutsummaryrefslogtreecommitdiff
path: root/engines/avalanche
diff options
context:
space:
mode:
Diffstat (limited to 'engines/avalanche')
-rw-r--r--engines/avalanche/celer2.cpp397
-rw-r--r--engines/avalanche/celer2.h80
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
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-11 20:00:24 +0000