aboutsummaryrefslogtreecommitdiff
path: root/engines
diff options
context:
space:
mode:
Diffstat (limited to 'engines')
-rw-r--r--engines/avalanche/lucerna2.cpp1006
-rw-r--r--engines/avalanche/lucerna2.h41
-rw-r--r--engines/avalanche/trip6.h13
3 files changed, 1037 insertions, 23 deletions
diff --git a/engines/avalanche/lucerna2.cpp b/engines/avalanche/lucerna2.cpp
index 344c273cdb..d343923249 100644
--- a/engines/avalanche/lucerna2.cpp
+++ b/engines/avalanche/lucerna2.cpp
@@ -42,6 +42,7 @@
#include "avalanche/pingo2.h"
#include "avalanche/sequence2.h"
#include "avalanche/acci2.h"
+#include "avalanche/roomnums.h"
#include "common/system.h"
@@ -51,26 +52,1011 @@
namespace Avalanche {
-Lucerna::Lucerna() {
- // Will be needed.
-}
+Lucerna::Lucerna() : fxhidden(false) {}
void Lucerna::setParent(AvalancheEngine *vm) {
_vm = vm;
}
+
+void Lucerna::init() {
+ _vm->_gyro.oh = 17717;
+ _vm->_gyro.om = 17717;
+ if (_vm->_enhanced.atbios) _vm->_gyro.atkey = "f1";
+ else _vm->_gyro.atkey = "alt-";
+}
void Lucerna::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.");*/
+ if (n == _vm->_acci.pardon) {
+ _vm->_scrolls.display(Common::String("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.");
+ } else {
+ _vm->_gyro.weirdword = false;
+ _vm->_acci.polite = true;
+ _vm->_acci.verb = n;
+ _vm->_acci.do_that();
+ }
+}
+
+void Lucerna::draw_also_lines() {
+ byte ff;
+ byte squeaky_code;
+
+ warning("STUB: Lucerna::draw_also_lines()");
+}
+
+
+
+
+Common::String Lucerna::nextstring() {
+ byte l;
+ Common::String x;
+
+
+ warning("STUB: Lucerna::nextstring()");
+
+ return "STUB: Lucerna::nextstring()";
+}
+
+void Lucerna::scram1(Common::String &x) {
+ byte fz;
+ for (fz = 1; fz <= x.size(); fz ++)
+ x.setChar(x[fz] ^ 177, fz);
+}
+
+void Lucerna::unscramble() {
+ byte fv, ff;
+
+ for (fv = 0; fv <= 30; fv ++)
+ for (ff = 0; ff <= 1; ff ++)
+ if (_vm->_gyro.also[fv][ff] != 0)
+ scram1(*_vm->_gyro.also[fv][ff]);
+ scram1(_vm->_gyro.listen);
+ scram1(_vm->_gyro.flags);
+ /* for fz:=1 to length(_vm->_gyro.also[fv,ff]^) do
+ _vm->_gyro.also[fv,ff]^[fz]:=chr(ord(_vm->_gyro.also[fv,ff]^[fz]) xor 177);*/
+}
+
+void Lucerna::load_also(Common::String n) {
+ byte minnames;
+ byte ff, fv;
+
+
+ for (fv = 0; fv <= 30; fv ++)
+ for (ff = 0; ff <= 1; ff ++)
+ if (_vm->_gyro.also[fv][ff] != 0) {
+ delete _vm->_gyro.also[fv][ff];
+ _vm->_gyro.also[fv][ff] = 0;
+ }
+
+ warning("STUB: Lucerna::load_also()");
+}
+
+void Lucerna::load(byte n) { /* Load2, actually */
+ byte a0; /*absolute $A000:800;*/
+ byte a1; /*absolute $A000:17184;*/
+ byte bit;
+
+ warning("STUB: Lucerna::load()");
+}
+
+
+
+void Lucerna::zoomout(int16 x, int16 y) {
+ int16 x1, y1, x2, y2;
+ byte fv;
+
+ warning("STUB: Lucerna::zoomout()");
+}
+
+void Lucerna::find_people(byte room) {
+ char fv;
+
+ for (fv = 151; fv <= 178; fv ++)
+ if (_vm->_gyro.whereis[fv] == room) {
+ if (fv < 175) _vm->_gyro.him = fv;
+ else _vm->_gyro.her = fv;
+ }
+}
+
+void Lucerna::exitroom(byte x) {
+ //nosound();
+ _vm->_celer.forget_chunks();
+ _vm->_gyro.seescroll = true; /* This stops the trippancy system working over the
+ length of this procedure. */
+
+ {
+ dnatype &with = _vm->_gyro.dna;
+ switch (x) {
+ case r__spludwicks: {
+ _vm->_timeout.lose_timer(_vm->_timeout.reason_avariciustalks);
+ /* He doesn't HAVE to be talking for this to work. It just deletes it IF it
+ exists. */ with.avaricius_talk = 0;
+ }
+ break;
+ case r__bridge:
+ if (with.drawbridge_open > 0) {
+ with.drawbridge_open = 4; /* Fully open. */
+ _vm->_timeout.lose_timer(_vm->_timeout.reason_drawbridgefalls);
+ }
+ break;
+ case r__outsidecardiffcastle:
+ _vm->_timeout.lose_timer(_vm->_timeout.reason_cardiffsurvey);
+ break;
+
+ case r__robins:
+ _vm->_timeout.lose_timer(_vm->_timeout.reason_getting_tied_up);
+ break;
+ }
+ }
+
+ _vm->_gyro.interrogation = 0; /* Leaving the room cancels all the questions automatically. */
+
+ _vm->_gyro.seescroll = false; /* Now it can work again! */
+
+ _vm->_gyro.dna.last_room = _vm->_gyro.dna.room;
+ if (_vm->_gyro.dna.room != r__map)
+ _vm->_gyro.dna.last_room_not_map = _vm->_gyro.dna.room;
+}
+
+void Lucerna::new_town() { /* You've just entered a town from the map. */
+ _vm->_dropdown.standard_bar();
+
+ switch (_vm->_gyro.dna.room) {
+ case r__outsidenottspub: /* Entry into Nottingham. */
+ if ((_vm->_gyro.dna.rooms[r__robins] > 0) && (_vm->_gyro.dna.been_tied_up) &&
+ (! _vm->_gyro.dna.taken_mushroom))
+ _vm->_gyro.dna.mushroom_growing = true;
+ break;
+ case r__wisewomans: { /* Entry into Argent. */
+ if (_vm->_gyro.dna.talked_to_crapulus && (! _vm->_gyro.dna.lustie_is_asleep)) {
+ _vm->_gyro.dna.spludwicks_here = !((_vm->_gyro.dna.rooms[r__wisewomans] % 3) == 1);
+ _vm->_gyro.dna.crapulus_will_tell = ! _vm->_gyro.dna.spludwicks_here;
+ } else {
+ _vm->_gyro.dna.spludwicks_here = true;
+ _vm->_gyro.dna.crapulus_will_tell = false;
+ }
+ if (_vm->_gyro.dna.box_contents == _vm->_gyro.wine) _vm->_gyro.dna.winestate = 3; /* Vinegar */
+ }
+ break;
+ }
+
+ if (_vm->_gyro.dna.room != r__outsideducks) {
+ if ((_vm->_gyro.dna.obj[_vm->_gyro.onion]) && !(_vm->_gyro.dna.onion_in_vinegar))
+ _vm->_gyro.dna.rotten_onion = true; /* You're holding the onion */
+ }
+}
+
+
+
+void Lucerna::put_geida_at(byte whichped, byte &ped) {
+ if (ped == 0) return;
+ _vm->_trip.tr[2].init(5, false, &_vm->_trip); /* load Geida */
+ _vm->_trip.apped(2, whichped);
+ _vm->_trip.tr[2].call_eachstep = true;
+ _vm->_trip.tr[2].eachstep = _vm->_trip.procgeida_procs;
+}
+
+void Lucerna::enterroom(byte x, byte ped) {
+ _vm->_gyro.seescroll = true; /* This stops the trippancy system working over the length of this procedure. */
+
+ find_people(x);
+ _vm->_gyro.dna.room = x;
+ if (ped != 0) _vm->_gyro.dna.rooms[x] += 1;
+
+ load(x);
+
+ if ((_vm->_gyro.dna.rooms[x] == 0) && (! _vm->_gyro.flagset('S')))
+ points(1);
+
+ _vm->_gyro.whereis[_vm->_gyro.pavalot] = _vm->_gyro.dna.room;
+
+ if (_vm->_gyro.dna.geida_follows)
+ _vm->_gyro.whereis[_vm->_gyro.pgeida] = x;
+
+ _vm->_gyro.roomtime = 0;
+
+ {
+ dnatype &with = _vm->_gyro.dna;
+ if ((with.last_room == r__map) && (with.last_room_not_map != with.room))
+ new_town();
+ }
+
+ switch (x) {
+ case r__yours:
+ if (_vm->_gyro.dna.avvy_in_bed) {
+ _vm->_celer.show_one(3);
+ _vm->_timeout.set_up_timer(100, _vm->_timeout.procarkata_shouts, _vm->_timeout.reason_arkata_shouts);
+ }
+ break;
+
+ case r__outsideyours:
+ if (ped > 0) {
+ if (! _vm->_gyro.dna.talked_to_crapulus) {
+
+ _vm->_gyro.whereis[_vm->_gyro.pcrapulus] = r__outsideyours;
+ _vm->_trip.tr[2].init(8, false, &_vm->_trip); /* load Crapulus */
+
+ if (_vm->_gyro.dna.rooms[r__outsideyours] == 1) {
+ _vm->_trip.apped(2, 4); /* Start on the right-hand side of the screen. */
+ _vm->_trip.tr[2].walkto(5); /* Walks up to greet you. */
+ } else {
+ _vm->_trip.apped(2, 5); /* Starts where he was before. */
+ _vm->_trip.tr[2].face = 3;
+ }
+
+ _vm->_trip.tr[2].call_eachstep = true;
+ _vm->_trip.tr[2].eachstep = _vm->_trip.procface_avvy; /* He always faces Avvy. */
+
+ } else _vm->_gyro.whereis[_vm->_gyro.pcrapulus] = r__nowhere;
+
+ if (_vm->_gyro.dna.crapulus_will_tell) {
+ _vm->_trip.tr[2].init(8, false, &_vm->_trip);
+ _vm->_trip.apped(2, 2);
+ _vm->_trip.tr[2].walkto(4);
+ _vm->_timeout.set_up_timer(20, _vm->_timeout.proccrapulus_splud_out, _vm->_timeout.reason_crapulus_says_spludwick_out);
+ _vm->_gyro.dna.crapulus_will_tell = false;
+ }
+ }
+ break;
+
+ /* Need to find out which room is this!
+
+ case r__outsidespludwicks:
+ if ((_vm->_gyro.dna.rooms[r__outsidespludwicks] == 1) && (ped == 1)) {
+ _vm->_timeout.set_up_timer(20, _vm->_timeout.procbang, _vm->_timeout.reason_explosion);
+ _vm->_gyro.dna.spludwicks_here = true;
+ }
+ break;*/
+
+ case r__spludwicks:
+ if (_vm->_gyro.dna.spludwicks_here) {
+ if (ped > 0) {
+ _vm->_trip.tr[2].init(2, false, &_vm->_trip); /* load Spludwick */
+ _vm->_trip.apped(2, 2);
+ _vm->_gyro.whereis['\227'] = r__spludwicks;
+ }
+
+ _vm->_gyro.dna.dogfoodpos = 0; /* _vm->_gyro.also Spludwick pos. */
+
+ _vm->_trip.tr[2].call_eachstep = true;
+ _vm->_trip.tr[2].eachstep = _vm->_trip.procgeida_procs;
+ } else _vm->_gyro.whereis['\227'] = r__nowhere;
+ break;
+
+ case r__brummieroad: {
+ if (_vm->_gyro.dna.geida_follows) put_geida_at(5, ped);
+ if (_vm->_gyro.dna.cwytalot_gone) {
+ _vm->_gyro.magics[lightred].op = _vm->_gyro.nix;
+ _vm->_gyro.whereis[_vm->_gyro.pcwytalot] = r__nowhere;
+ } else {
+ if (ped > 0) {
+ _vm->_trip.tr[2].init(4, false, &_vm->_trip); /* 4=Cwytalot*/
+ _vm->_trip.tr[2].call_eachstep = true;
+ _vm->_trip.tr[2].eachstep = _vm->_trip.procfollow_avvy_y;
+ _vm->_gyro.whereis[_vm->_gyro.pcwytalot] = r__brummieroad;
+
+ if (_vm->_gyro.dna.rooms[r__brummieroad] == 1) { /* First time here... */
+ _vm->_trip.apped(2, 2); /* He appears on the right of the screen... */
+ _vm->_trip.tr[2].walkto(4); /* ...and he walks up... */
+ } else {
+ /* You've been here before. */
+ _vm->_trip.apped(2, 4); /* He's standing in your way straight away... */
+ _vm->_trip.tr[2].face = _vm->_trip.left;
+ }
+ }
+ }
+ }
+ break;
+
+ case r__argentroad: {
+ dnatype &with = _vm->_gyro.dna;
+ if ((with.cwytalot_gone) && (! with.cwytalot_in_herts) && (ped == 2) &&
+ (_vm->_gyro.dna.rooms[r__argentroad] > 3)) {
+ _vm->_trip.tr[2].init(4, false, &_vm->_trip); /* 4=Cwytalot again*/
+ _vm->_trip.apped(2, 1);
+ _vm->_trip.tr[2].walkto(2);
+ _vm->_trip.tr[2].vanishifstill = true;
+ with.cwytalot_in_herts = true;
+ /*_vm->_gyro.whereis[#157]:=r__Nowhere;*/ /* can we fit this in? */
+ _vm->_timeout.set_up_timer(20, _vm->_timeout.proc_cwytalot_in_herts, _vm->_timeout.reason_cwytalot_in_herts);
+ }
+ }
+ break;
+
+ case r__bridge: {
+ if (_vm->_gyro.dna.drawbridge_open == 4) { /*open*/
+ _vm->_celer.show_one(3); /* Position of drawbridge */
+ _vm->_gyro.magics[green].op = _vm->_gyro.nix; /* You may enter the drawbridge. */
+ }
+ if (_vm->_gyro.dna.geida_follows) put_geida_at(ped + 3, ped); /* load Geida */
+ }
+ break;
+
+ case r__robins: {
+ if (ped > 0) {
+ if (! _vm->_gyro.dna.been_tied_up) {
+ /* A welcome party... or maybe not... */
+ _vm->_trip.tr[2].init(6, false, &_vm->_trip);
+ _vm->_trip.apped(2, 2);
+ _vm->_trip.tr[2].walkto(3);
+ _vm->_timeout.set_up_timer(36, _vm->_timeout.procget_tied_up, _vm->_timeout.reason_getting_tied_up);
+ }
+ }
+
+ if (_vm->_gyro.dna.been_tied_up) {
+ _vm->_gyro.whereis[_vm->_gyro.probinhood] = 0;
+ _vm->_gyro.whereis[_vm->_gyro.pfriartuck] = 0;
+ }
+
+ if (_vm->_gyro.dna.tied_up)
+ _vm->_celer.show_one(2);
+
+ if (! _vm->_gyro.dna.mushroom_growing)
+ _vm->_celer.show_one(3);
+ }
+ break;
+
+ case r__outsidecardiffcastle: {
+ if (ped > 0)
+ switch (_vm->_gyro.dna.cardiff_things) {
+ case 0 : { /* You've answered NONE of his questions. */
+ _vm->_trip.tr[2].init(9, false, &_vm->_trip);
+ _vm->_trip.apped(2, 2);
+ _vm->_trip.tr[2].walkto(3);
+ _vm->_timeout.set_up_timer(47, _vm->_timeout.proccardiffsurvey, _vm->_timeout.reason_cardiffsurvey);
+ }
+ break;
+ case 5 :
+ _vm->_gyro.magics[2].op = _vm->_gyro.nix;
+ break; /* You've answered ALL his questions. => nothing happens. */
+ default: { /* You've answered SOME of his questions. */
+ _vm->_trip.tr[2].init(9, false, &_vm->_trip);
+ _vm->_trip.apped(2, 3);
+ _vm->_trip.tr[2].face = _vm->_trip.right;
+ _vm->_timeout.set_up_timer(3, _vm->_timeout.proccardiff_return, _vm->_timeout.reason_cardiffsurvey);
+ }
+ }
+ if (_vm->_gyro.dna.cardiff_things < 5)
+ _vm->_gyro.interrogation = _vm->_gyro.dna.cardiff_things;
+ else _vm->_gyro.interrogation = 0;
+ }
+ break;
+
+ case r__map: {
+ warning("STUB: Lucerna::enterroom() - case: r__map");
+ }
+ break;
+
+ case r__catacombs: {
+ warning("STUB: Lucerna::enterroom() - case: r__catacombs");
+ }
+ break;
+
+ case r__argentpub: {
+ if (_vm->_gyro.dna.wonnim) _vm->_celer.show_one(1); /* No lute by the settle. */
+ _vm->_gyro.dna.malagauche = 0; /* Ready to boot Malagauche */
+ if (_vm->_gyro.dna.givenbadgetoiby) {
+ _vm->_celer.show_one(8);
+ _vm->_celer.show_one(9);
+ }
+ }
+ break;
+
+ case r__lustiesroom: {
+ _vm->_gyro.dna.dogfoodpos = 1; /* Actually, du Lustie pos. */
+ if (_vm->_trip.tr[1].whichsprite == 0) /* Avvy in his normal clothes */
+ _vm->_timeout.set_up_timer(3, _vm->_timeout.proccallsguards, _vm->_timeout.reason_du_lustie_talks);
+ else if (! _vm->_gyro.dna.entered_lusties_room_as_monk) /*already*/
+ /* Presumably, Avvy dressed as a monk. */
+ _vm->_timeout.set_up_timer(3, _vm->_timeout.procgreetsmonk, _vm->_timeout.reason_du_lustie_talks);
+
+ if (_vm->_gyro.dna.geida_follows) {
+ put_geida_at(5, ped);
+ if (_vm->_gyro.dna.lustie_is_asleep) _vm->_celer.show_one(5);
+ }
+ }
+ break;
+
+ case r__musicroom: {
+ if (_vm->_gyro.dna.jacques_awake > 0) {
+ _vm->_gyro.dna.jacques_awake = 5;
+ _vm->_celer.show_one(2);
+ _vm->_celer.show_one(4);
+ _vm->_gyro.magics[brown].op = _vm->_gyro.nix;
+ _vm->_gyro.whereis[_vm->_gyro.pjacques] = 0;
+ }
+ if (ped != 0) {
+ _vm->_celer.show_one(6);
+ _vm->_sequence.first_show(5);
+ _vm->_sequence.then_show(7);
+ _vm->_sequence.start_to_close();
+ }
+ }
+ break;
+
+ case r__outsidenottspub:
+ if (ped == 2) {
+ _vm->_celer.show_one(3);
+ _vm->_sequence.first_show(2);
+ _vm->_sequence.then_show(1);
+ _vm->_sequence.then_show(4);
+ _vm->_sequence.start_to_close();
+ }
+ break;
+
+ case r__outsideargentpub:
+ if (ped == 2) {
+ _vm->_celer.show_one(6);
+ _vm->_sequence.first_show(5);
+ _vm->_sequence.then_show(7);
+ _vm->_sequence.start_to_close();
+ }
+ break;
+
+ case r__wisewomans: {
+ _vm->_trip.tr[2].init(11, false, &_vm->_trip);
+ if ((_vm->_gyro.dna.rooms[r__wisewomans] == 1) && (ped > 0)) {
+ _vm->_trip.apped(2, 2); /* Start on the right-hand side of the screen. */
+ _vm->_trip.tr[2].walkto(4); /* Walks up to greet you. */
+ } else {
+ _vm->_trip.apped(2, 4); /* Starts where she was before. */
+ _vm->_trip.tr[2].face = 3;
+ }
+
+ _vm->_trip.tr[2].call_eachstep = true;
+ _vm->_trip.tr[2].eachstep = _vm->_trip.procface_avvy; /* She always faces Avvy. */
+ }
+ break;
+
+ case r__insidecardiffcastle:
+ if (ped > 0) {
+ _vm->_trip.tr[2].init(10, false, &_vm->_trip); /* Define the dart. */
+ _vm->_sequence.first_show(1);
+ if (_vm->_gyro.dna.arrow_in_the_door)
+ _vm->_sequence.then_show(3);
+ else
+ _vm->_sequence.then_show(2);
+
+ if (_vm->_gyro.dna.taken_pen)
+ _vm->_celer.show_one(4);
+
+ _vm->_sequence.start_to_close();
+ } else {
+ _vm->_celer.show_one(1);
+ if (_vm->_gyro.dna.arrow_in_the_door) _vm->_celer.show_one(3);
+ else _vm->_celer.show_one(2);
+ }
+ break;
+
+ case r__avvysgarden:
+ if (ped == 1) {
+ _vm->_celer.show_one(2);
+ _vm->_sequence.first_show(1);
+ _vm->_sequence.then_show(3);
+ _vm->_sequence.start_to_close();
+ }
+ break;
+
+ case r__entrancehall:
+ case r__insideabbey:
+ if (ped == 2) {
+ _vm->_celer.show_one(2);
+ _vm->_sequence.first_show(1);
+ _vm->_sequence.then_show(3);
+ _vm->_sequence.start_to_close();
+ }
+ break;
+
+ case r__aylesoffice:
+ if (_vm->_gyro.dna.ayles_is_awake) _vm->_celer.show_one(2);
+ break; /* Ayles awake. */
+
+ case r__geidas:
+ put_geida_at(2, ped);
+ break; /* load Geida */
+
+ case r__easthall:
+ case r__westhall:
+ if (_vm->_gyro.dna.geida_follows) put_geida_at(ped + 2, ped);
+ break;
+
+ case r__lusties:
+ if (_vm->_gyro.dna.geida_follows) put_geida_at(ped + 6, ped);
+ break;
+
+ case r__nottspub: {
+ if (_vm->_gyro.dna.sitting_in_pub) _vm->_celer.show_one(3);
+ _vm->_gyro.dna.dogfoodpos = 1; /* Actually, du Lustie pos. */
+ }
+ break;
+
+ case r__outsideducks:
+ if (ped == 2) {
+ /* Shut the door */
+ _vm->_celer.show_one(3);
+ _vm->_sequence.first_show(2);
+ _vm->_sequence.then_show(1);
+ _vm->_sequence.then_show(4);
+ _vm->_sequence.start_to_close();
+ }
+ break;
+ case r__ducks:
+ _vm->_gyro.dna.dogfoodpos = 1;
+ break; /* Actually, Duck pos. */
+
+ }
+
+ _vm->_gyro.seescroll = false; /* Now it can work again! */
+
+}
+
+void Lucerna::thinkabout(char z, bool th) { /* Hey!!! Get it and put it!!! */
+ warning("STUB: Lucerna::thinkabout()");
+}
+
+void Lucerna::load_digits() { /* Load the scoring digits & rwlites */
+ warning("STUB: Lucerna::load_digits()");
+}
+
+void Lucerna::toolbar() {
+ warning("STUB: Lucerna::toolbar()");
+}
+
+void Lucerna::showscore() {
+ warning("STUB: Lucerna::showscore()");
+}
+
+void Lucerna::points(byte num) { /* Add on no. of points */
+ warning("STUB: Lucerna::points()");
+}
+
+void Lucerna::topcheck() {
+ /* Menuset */
+ _vm->_dropdown.ddm_m.getmenu(_vm->_gyro.mpx);
+ /* Do this one */
+}
+
+void Lucerna::mouseway() {
+ warning("STUB: Lucerna::mouseway()");
+}
+
+void Lucerna::inkey() {
+ char r;
+
+
+ if (_vm->_gyro.demo)
+ return; /* Demo handles this itself. */
+
+ if (_vm->_gyro.mousetext == "") {
+ /* read keyboard */
+ _vm->_enhanced.readkeye();
+ if ((_vm->_enhanced.inchar == ' ') && ((_vm->_enhanced.shiftstate & 8) > 0)) {
+ _vm->_enhanced.inchar = '\0';
+ _vm->_enhanced.extd = '#'; /* alt-spacebar = alt-H */
+ }
+ } else {
+ if (_vm->_gyro.mousetext[1] == '`')
+ _vm->_gyro.mousetext.setChar(13,1); /* Backquote = return in a macro */
+ _vm->_enhanced.inchar = _vm->_gyro.mousetext[1];
+ _vm->_gyro.mousetext = Common::String(_vm->_gyro.mousetext.c_str() + 2, 253);
+ }
+}
+
+void Lucerna::posxy() {
+ warning("STUB: Lucerna::posxy()");
+}
+
+void Lucerna::fxtoggle() {
+ warning("STUB: Lucerna::fxtoggle()");
+}
- // Needs const char pardon located in Acci.
+void Lucerna::objectlist() {
+ char fv;
+ _vm->_gyro.dna.carrying = 0;
+ if (_vm->_gyro.thinkthing && ! _vm->_gyro.dna.obj[_vm->_gyro.thinks])
+ thinkabout(_vm->_gyro.money, _vm->_gyro.a_thing); /* you always have money */
+ for (fv = '\1'; fv <= numobjs; fv ++)
+ if (_vm->_gyro.dna.obj[fv]) {
+ _vm->_gyro.dna.carrying += 1;
+ _vm->_gyro.objlist[_vm->_gyro.dna.carrying] = fv;
+ }
}
+void Lucerna::verte() {
+ byte what;
+ if (! _vm->_gyro.dna.user_moves_avvy) return;
+ {
+ triptype &with = _vm->_trip.tr[1]; /* that's the only one we're interested in here */
+
+
+ if (_vm->_gyro.mx < with.x) what = 1;
+ else if (_vm->_gyro.mx > (unsigned char)(with.x + with.a.xl)) what = 2;
+ else
+ what = 0; /* On top */
+
+ if (_vm->_gyro.my < with.y) what += 3;
+ else if (_vm->_gyro.my > (unsigned char)(with.y + with.a.yl)) what += 6;
+
+ switch (what) {
+ case 0:
+ _vm->_trip.stopwalking();
+ break; /* Clicked on Avvy- no movement */
+ case 1:
+ _vm->_trip.rwsp(1, _vm->_trip.left);
+ break;
+ case 2:
+ _vm->_trip.rwsp(1, _vm->_trip.right);
+ break;
+ case 3:
+ _vm->_trip.rwsp(1, _vm->_trip.up);
+ break;
+ case 4:
+ _vm->_trip.rwsp(1, _vm->_trip.ul);
+ break;
+ case 5:
+ _vm->_trip.rwsp(1, _vm->_trip.ur);
+ break;
+ case 6:
+ _vm->_trip.rwsp(1, _vm->_trip.down);
+ break;
+ case 7:
+ _vm->_trip.rwsp(1, _vm->_trip.dl);
+ break;
+ case 8:
+ _vm->_trip.rwsp(1, _vm->_trip.dr);
+ break;
+ } /* no other values are possible... */
+
+ showrw();
+
+ }
+}
+
+void Lucerna::checkclick() {
+ warning("STUB: Lucerna::checkclick()");
+}
+
+void Lucerna::mouse_init() {
+ warning("STUB: Lucerna::mouse_init()");
+}
+
+void Lucerna::mousepage(uint16 page_) {
+ warning("STUB: Lucerna::mousepage()");
+}
+
+void Lucerna::errorled() {
+ warning("STUB: Lucerna::errorled()");
+}
+
+int8 Lucerna::fades(int8 x) {
+ byte r, g, b;
+
+ int8 fades_result;
+ r = x / 16;
+ x = x % 16;
+ g = x / 4;
+ b = x % 4;
+ if (r > 0) r -= 1;
+ if (g > 0) g -= 1;
+ if (b > 0) b -= 1;
+ fades_result = (16 * r + 4 * g + b);
+ /* fades:=x-1;*/
+ return fades_result;
+}
+
+
+
+
+void Lucerna::fadeout(byte n) {
+ warning("STUB: Lucerna::fadeout()");
+}
+
+void Lucerna::dusk() {
+ warning("STUB: Lucerna::dusk()");
+}
+
+
+
+
+void Lucerna::fadein(byte n) {
+ warning("STUB: Lucerna::fadein()");
+}
+
+void Lucerna::dawn() {
+ warning("STUB: Lucerna::dawn()");
+}
+
+
+
+void Lucerna::showrw() {
+ warning("STUB: Lucerna::showrw()");
+}
+
+void Lucerna::mblit(byte x1, byte y1, byte x2, byte y2, byte f, byte t) /* assembler; */
+/* The Minstrel Blitter */
+/* asm
+{ ofsfr:=f*$4000+x1+y1*80;
+ ofsto:=t*$4000+x1+y1*80;}
+
+ mov bx,80; { We're multiplying by 80. }
+ mov al,y1;
+ mul bl; { AX now contains y1*80. }
+ xor cx,cx; { Zero CX. }
+ mov cl,x1; { CX now equals x1 }
+ add ax,cx; { AX now contains x1+y1*80. }
+ mov si,ax;
+ mov di,ax;
+
+ mov ax,$4000;
+ mov bl,f;
+ mul bx; { Note that this is a *uint16*! }
+ add si,ax;
+
+ mov ax,$4000;
+ mov bl,t;
+ mul bx; { Note that this is a *uint16*! }
+ add di,ax;
+
+ push ds; { *** <<<< *** WE MUST PRESERVE THIS! }
+ cld; { Clear Direction flag - we're going forwards! }
+
+ mov ax,$A000; { The screen memory. }
+ mov ds,ax;
+ mov es,ax; { The same. }
+
+ { AH stores the number of bytes to copy. }
+ { len:=(x2-x1)+1; }
+
+ mov ah,x2;
+ sub ah,x1;
+ inc ah;
+
+ { Firstly, let's decide how many times we're going round. }
+
+ mov cl,y2; { How many numbers between y1 and y2? }
+ sub cl,y1;
+ inc cl; { Inclusive reckoning (for example, from 3 to 5 is 5-3+1=3 turns. }
+
+ { We'll use SI and DI to be Ofsfr and Ofsto. }
+
+ @Y_axis_loop:
+ push cx;
+
+
+ { OK... We've changed this loop from a for-next loop. "Bit" is
+ represented by CX. }
+
+{ 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; { We have to copy planes 3, 2, 1 and Zero. We'll add 1 to the
+ number, because at zero it stops. }
+
+ mov bx,3; { This has a similar function to that of CX. }
+
+ @start_of_loop:
+
+ 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;
+
+{ move(mem[$A000:ofsfr],mem[$A000:ofsto],len); }
+
+ xor ch,ch; { Clear CH. }
+ mov cl,ah;
+
+ repz movsb; { That's all we need to say! }
+
+ mov cl,ah;
+ sub si,cx; { This is MUCH, MUCH faster than pushing and popping them! }
+ sub di,cx;
+
+ pop cx; { Get the loop count back again. }
+ dec bx; { One less... }
+ loop @start_of_loop; { Until cx=0. }
+
+ add si,80; { Do the next line... }
+ add di,80;
+
+ pop cx;
+ loop @Y_axis_loop;
+
+ pop ds; { Get it back again (or we'll be in trouble with TP!) }
+*/
+{
+}
+
+void Lucerna::blitfix() {
+ warning("STUB: Lucerna::blitfix()");
+}
+
+
+
+
+
+
+void Lucerna::calchand(uint16 ang, uint16 length, /*arccoordstype &a,*/ byte c) {
+ warning("STUB: Lucerna::calchand()");
+}
+
+void Lucerna::hand(/*arccoordstype a,*/ byte c) {
+ warning("STUB: Lucerna::hand()");
+}
+
+void Lucerna::chime() {
+ warning("STUB: Lucerna::chime()");
+}
+
+void Lucerna::plothands() {
+ warning("STUB: Lucerna::plothands()");
+}
+
+void Lucerna::clock_lucerna() {
+ warning("STUB: Lucerna::clock_lucerna()");
+}
+
+
+
+
+void Lucerna::flip_page() {
+ warning("STUB: Lucerna::flip_page()");
+}
+
+void Lucerna::delavvy() {
+ byte page_;
+
+ _vm->_gyro.off();
+ {
+ triptype &with = _vm->_trip.tr[1];
+ for (page_ = 0; page_ <= 1; page_ ++)
+ mblit(with.x / 8, with.y, (with.x + with.a.xl) / 8 + 1, with.y + with.a.yl, 3, page_);
+ }
+ blitfix();
+ _vm->_gyro.on();
+}
+
+void Lucerna::gameover() {
+ byte fv;
+ int16 sx, sy;
+
+ _vm->_gyro.dna.user_moves_avvy = false;
+
+ sx = _vm->_trip.tr[1].x;
+ sy = _vm->_trip.tr[1].y;
+
+ _vm->_trip.tr[1].done();
+ _vm->_trip.tr[1].init(12, true, &_vm->_trip); /* 12 = Avalot falls */
+ _vm->_trip.tr[1].step = 0;
+ _vm->_trip.tr[1].appear(sx, sy, 0);
+
+ _vm->_timeout.set_up_timer(3, _vm->_timeout.procavalot_falls, _vm->_timeout.reason_falling_over);
+ /* _vm->_scrolls.display(^m^m^m^m^m^m^i^i^i^i^i^i^s'Z'^v);*/
+ _vm->_gyro.alive = false;
+}
+
+/* OK. There are two kinds of redraw: Major and Minor. Minor is what happens
+ when you load a game, etc. Major redraws EVERYTHING. */
+
+void Lucerna::minor_redraw() {
+ byte fv;
+
+ dusk();
+ enterroom(_vm->_gyro.dna.room, 0); /* Ped unknown or non-existant. */
+
+ for (fv = 0; fv <= 1; fv ++) {
+ _vm->_gyro.cp = 1 - _vm->_gyro.cp;
+ _vm->_trip.getback();
+ }
+
+ {
+ dnatype &with = _vm->_gyro.dna;
+
+ _vm->_gyro.lastscore = "TJA"; /* impossible digits */
+ showscore();
+ }
+
+ dawn();
+}
+
+void Lucerna::major_redraw() {
+ warning("STUB: Lucerna::major_redraw()");
+}
+
+uint16 Lucerna::bearing(byte whichped) {
+/* Returns the bearing from ped Whichped to Avvy, in degrees. */
+ const double rad2deg = 180 / 3.14/*Pi*/;
+
+ uint16 bearing_result;
+ {
+ pedtype &with = _vm->_gyro.peds[whichped];
+ if (_vm->_trip.tr[1].x == with.x)
+ bearing_result = 0; /* This would cause a division by zero if we let it through. */
+ else
+ /*
+ bearing:=trunc(((arctan((_vm->_trip.tr[1].y-y)/(_vm->_trip.tr[1].x-x)))*rad2deg)+90) mod 360*/
+ {
+ if (_vm->_trip.tr[1].x < with.x)
+ bearing_result = (atan(double((_vm->_trip.tr[1].y - with.y)) / (_vm->_trip.tr[1].x - with.x)) * rad2deg) + 90;
+ else
+ bearing_result = (atan(double((_vm->_trip.tr[1].y - with.y)) / (_vm->_trip.tr[1].x - with.x)) * rad2deg) + 270;
+ }
+ }
+ return bearing_result;
+}
+
+void Lucerna::flesh_colours() /* assembler;
+asm
+ mov ax,$1012;
+ mov bx,21; { 21 = light pink (why?) }
+ mov cx,1;
+ mov dx,seg @flesh;
+ mov es,dx;
+ mov dx,offset @flesh;
+ int $10;
+
+ mov dx,seg @darkflesh;
+ mov es,dx;
+ mov dx,offset @darkflesh;
+ mov bx,5; { 5 = dark pink. }
+ int $10;
+
+ jmp @TheEnd;
+
+ @flesh:
+ db 56,35,35;
+
+ @darkflesh:
+ db 43,22,22;
+
+ @TheEnd: */
+{
+}
+
+void Lucerna::sprite_run()
+/* A sprite run is performed before _vm->_scrolls.displaying a scroll, if not all the
+ sprites are still. It performs two fast cycles, only using a few of
+ the links usually used, and without any extra animation. This should
+ make the sprites the same on both pages. */
+{
+ byte fv;
+
+
+ _vm->_gyro.doing_sprite_run = true;
+
+ for (fv = 0; fv <= 1; fv ++) {
+ _vm->_trip.get_back_loretta();
+ _vm->_trip.trippancy_link();
+
+ flip_page();
+ }
+
+ _vm->_gyro.doing_sprite_run = false;
+
+}
+
+void Lucerna::fix_flashers() {
+ _vm->_gyro.ledstatus = 177;
+ _vm->_gyro.oldrw = 177;
+ _vm->_scrolls.state(2);
+ showrw();
+}
} // End of namespace Avalanche
diff --git a/engines/avalanche/lucerna2.h b/engines/avalanche/lucerna2.h
index d4e729aaf4..69888ac192 100644
--- a/engines/avalanche/lucerna2.h
+++ b/engines/avalanche/lucerna2.h
@@ -41,6 +41,8 @@ public:
void setParent(AvalancheEngine *vm);
+ void init();
+
void callverb(char n);
void draw_also_lines();
@@ -126,6 +128,45 @@ private:
};
palettetype fxpal[4];
+
+ //Clock
+ static const int16 xm = 510;
+ static const int16 ym = 183;
+ //arccoordstype ah, am; http://www.freepascal.org/docs-html/rtl/graph/arccoordstype.html
+ uint16 nh;
+
+
+ //untyped_file f;
+ Common::String nextstring();
+ void scram1(Common::String &x);
+ void unscramble();
+ void load_also(Common::String n);
+
+ void zoomout(int16 x, int16 y);
+
+ void find_people(byte room);
+
+ void new_town();
+
+ void put_geida_at(byte whichped, byte &ped);
+
+ void topcheck();
+
+ void verte();
+
+ int8 fades(int8 x);
+
+ void fadeout(byte n);
+
+ void fadein(byte n);
+
+ // clock_lucerna
+ void calchand(uint16 ang, uint16 length,/* arccoordstype &a,*/ byte c);
+ void hand(/*arccoordstype a,*/ byte c);
+ void chime();
+ void refresh_hands();
+ void plothands();
+
};
} // End of namespace Avalanche
diff --git a/engines/avalanche/trip6.h b/engines/avalanche/trip6.h
index d7b5637542..954b870f1b 100644
--- a/engines/avalanche/trip6.h
+++ b/engines/avalanche/trip6.h
@@ -150,24 +150,11 @@ public:
-
-
-
-
-
-
class Trip {
public:
friend triptype;
friend getsettype;
-
-
-
-
-
-
-
Trip();
void setParent(AvalancheEngine *vm);
generated by cgit v1.2.3 (git 2.25.1) at 2024-12-17 18:32:55 +0000