aboutsummaryrefslogtreecommitdiff
path: root/engines/avalanche/slope.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'engines/avalanche/slope.cpp')
-rw-r--r--engines/avalanche/slope.cpp397
1 files changed, 0 insertions, 397 deletions
diff --git a/engines/avalanche/slope.cpp b/engines/avalanche/slope.cpp
deleted file mode 100644
index f54439178b..0000000000
--- a/engines/avalanche/slope.cpp
+++ /dev/null
@@ -1,397 +0,0 @@
-/* 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.
- */
-
-namespace Avalanche {
-
-struct joysetup {
- word xmid, ymid, xmin, ymin, xmax, ymax;
- byte centre; /* Size of centre in tenths */
-};
-
-const integer bug_twonames = 255;
-const integer bug_pandl = 254;
-const integer bug_weirdswitch = 253;
-const integer bug_invalidini = 252;
-const integer bug_notyesorno = 251;
-const integer bug_weirdcard = 250;
-
-byte fv;
-char t;
-string bugline;
-boolean usingp, usingl;
-boolean zoomy, numlockhold;
-boolean doing_syntax;
-joysetup js;
-boolean use_joy_a;
-
-boolean filename_specified;
-boolean soundfx;
-
-string inihead, initail; /* For reading the .INI file. */
-
-string filetoload;
-
-boolean cl_override, keyboardclick, demo;
-
-string slopeline;
-
-word storage_seg, storage_ofs;
-
-string argon;
-
-longint soundcard, baseaddr, speed, irq, dma;
-
-string strf(longint x) {
- string q;
-
- string strf_result;
- str(x, q);
- strf_result = q;
- return strf_result;
-}
-
-void linebug(byte which) {
- output << "AVALOT : ";
- switch (which) {
- case bug_twonames :
- output << "You may only specify ONE filename." << NL;
- break;
- case bug_pandl :
- output << "/p and /l cannot be used together." << NL;
- break;
- case bug_weirdswitch :
- output << "Unknown switch (\"" << bugline <<
- "\"). Type AVALOT /? for a list of switches." << NL;
- break;
- case bug_invalidini:
- output << "Invalid line in AVALOT.INI (\"" << bugline << "\")" << NL;
- break;
- case bug_notyesorno:
- output << "Error in AVALOT.INI: \"" << inihead << "\" must be \"yes\" or \"no.\"" << NL;
- break;
- case bug_weirdcard:
- output << "Unknown card: " << bugline << '.' << NL;
- break;
- }
-
- exit(which);
-}
-
-longint card(string x) {
- longint card_result;
- if (x == "NONE") card_result = 0;
- else if (x == "SB") card_result = 1;
- else if (x == "SBPRO") card_result = 2;
- else if (x == "SB16") card_result = 3;
- else if (x == "PAS") card_result = 4;
- else if (x == "PASPLUS") card_result = 5;
- else if (x == "PAS16") card_result = 6;
- else if (x == "ARIA") card_result = 7;
- else if (x == "WINSOUND") card_result = 8;
- else if (x == "GRAVIS") card_result = 9;
- else if (x == "DACLPT") card_result = 10;
- else if (x == "STEREODACS") card_result = 11;
- else if (x == "STEREOON1") card_result = 12;
- else if (x == "SPEAKER") card_result = 13;
- else
- linebug(bug_weirdcard);
- return card_result;
-}
-
-void upstr(string &x) {
- byte fv;
-
- for (fv = 1; fv <= length(x); fv ++) x[fv] = upcase(x[fv]);
-}
-
-boolean yesno() {
- boolean yesno_result;
- if (initail == "YES") yesno_result = true;
- else if (initail == "NO") yesno_result = false;
- else
- linebug(bug_notyesorno);
- return yesno_result;
-}
-
-word value(string x) {
- const varying_string<15> hexdigits = "0123456789ABCDEF";
- word w;
- integer e;
-
- word value_result;
- if (x[1] == '$') {
- w = 0;
- for (e = 2; e <= length(x); e ++) {
- w = w << 4;
- w += pos(upcase(x[e]), hexdigits) - 1;
- }
- value_result = w;
- } else {
- val(x, w, e);
- if (e == 0) value_result = w;
- else value_result = 0;
- }
- return value_result;
-}
-
-void ini_parse() {
- upstr(inihead);
- upstr(initail);
-
- if (inihead == "QUIET") soundfx = ! yesno();
- else if (inihead == "ZOOMYSTART") zoomy = yesno();
- else if (inihead == "NUMLOCKHOLD") numlockhold = yesno();
- else if (inihead == "LOADFIRST") filetoload = initail;
- else if (inihead == "OVERRIDEEGACHECK") cl_override = yesno();
- else if (inihead == "KEYBOARDCLICK") keyboardclick = yesno();
- else if (inihead == "JOYTOP") js.ymin = value(initail);
- else if (inihead == "JOYBOTTOM") js.ymax = value(initail);
- else if (inihead == "JOYLEFT") js.xmin = value(initail);
- else if (inihead == "JOYRIGHT") js.xmax = value(initail);
- else if (inihead == "JOYMIDX") js.xmid = value(initail);
- else if (inihead == "JOYMIDY") js.ymid = value(initail);
- else if (inihead == "JOYCENTRINGFACTOR") js.centre = value(initail);
- else if (inihead == "WHICHJOY") use_joy_a = value(initail) == 1;
- else if (inihead == "SOUNDCARD") soundcard = card(initail);
- else if (inihead == "BASEADDRESS") baseaddr = value(initail);
- else if (inihead == "IRQ") irq = value(initail);
- else if (inihead == "DMA") dma = value(initail);
- else if (inihead == "SAMPLERATE") speed = value(initail);
-}
-
-void strip_ini() {
- byte fv;
-
- if (inihead == "") return;
-
- /* Firstly, delete any comments. */
- fv = pos(";", inihead);
- if (fv > 0) Delete(inihead, fv, 255);
-
- /* Lose the whitespace... */
-
- while (inihead[length(inihead)] == ' ') inihead[0] -= 1;
- while ((inihead != "") && (inihead[1] == ' ')) Delete(inihead, 1, 1);
-
- /* It's possible that now we'll end up with a blank line. */
-
- if ((inihead == "") || (inihead[1] == '[')) return;
-
- fv = pos("=", inihead);
-
- if (fv == 0) {
- /* No "="! Weird! */
- bugline = inihead;
- linebug(bug_invalidini);
- }
-
- initail = copy(inihead, fv + 1, 255);
- inihead[0] = chr(fv - 1);
-}
-
-void load_ini() {
- text ini;
-
- assign(ini, "AVALOT.INI");
- reset(ini);
-
- while (! eof(ini)) {
- ini >> inihead >> NL;
- strip_ini();
- if (inihead != "") ini_parse();
- }
-
- close(ini);
-}
-
-void parse(string x);
-static string arg;
-
-static string getarg(string otherwis) {
- string getarg_result;
- if (arg == "") getarg_result = otherwis;
- else getarg_result = arg;
- return getarg_result;
-}
-
-void parse(string x)
-
-{
- switch (x[1]) {
- case '/':
- case '-': {
- arg = copy(x, 3, 255);
- switch (upcase(x[2])) {
- case '?':
- doing_syntax = true;
- break;
- case 'O':
- cl_override = true;
- break;
- case 'L':
- if (! usingp) {
- usingl = true;
- argon = getarg("avvy.log");
- } else linebug(bug_pandl);
- break;
- case 'P':
- if (! usingl) {
- usingp = true;
- argon = getarg("prn");
- } else linebug(bug_pandl);
- break;
- case 'Q':
- soundfx = false;
- break;
- case 'Z':
- zoomy = true;
- break;
- case 'K':
- keyboardclick = true;
- break;
- case 'D':
- demo = true;
- break;
- default: {
- bugline = x;
- linebug(bug_weirdswitch);
- }
- }
- }
- break;
- case '*': {
- inihead = copy(x, 2, 255);
- strip_ini();
- if (inihead != "") ini_parse();
- }
- break;
- default: { /* filename */
- if (filename_specified)
- linebug(bug_twonames);
- else
- filetoload = x;
- filename_specified = true;
- }
- }
-}
-
-void make_slopeline();
-
-static char yn1(boolean b) {
- char yn1_result;
- if (b) yn1_result = 'y';
- else yn1_result = 'n';
- return yn1_result;
-}
-
-
-
-static char pln() {
- char pln_result;
- if ((! usingp) && (! usingl)) pln_result = 'n';
- else if (usingp) pln_result = 'p';
- else if (usingl) pln_result = 'l';
- return pln_result;
-}
-
-void make_slopeline()
-
-{
- if (argon == "") argon = "nul";
-
- slopeline = string('1') + yn1(doing_syntax) + yn1(soundfx) + yn1(cl_override) +
- yn1(keyboardclick) + pln() + yn1(demo) + yn1(zoomy) + yn1(numlockhold) +
- yn1(use_joy_a) +
- ' ' + strf(js.xmid) +
- ' ' + strf(js.ymid) +
- ' ' + strf(js.xmin) +
- ' ' + strf(js.ymin) +
- ' ' + strf(js.xmax) +
- ' ' + strf(js.ymax) +
- ' ' + strf(js.centre) +
- ' ' + argon + ' ' + filetoload;
-}
-
-void store_slopeline() {
- move(slopeline, mem[storage_seg * storage_ofs + 3], sizeof(slopeline));
- move(js, mem[storage_seg * storage_ofs + 300], sizeof(js));
- move(soundcard, mem[storage_seg * storage_ofs + 5000], 4);
- move(baseaddr, mem[storage_seg * storage_ofs + 5004], 4);
- move(irq, mem[storage_seg * storage_ofs + 5008], 4);
- move(dma, mem[storage_seg * storage_ofs + 5012], 4);
- move(speed, mem[storage_seg * storage_ofs + 5016], 4);
-}
-
-void get_storage_addr();
-
-static void not_through_bootstrap() {
- output << "Not standalone!" << NL;
- exit(255);
-}
-
-void get_storage_addr() {
- integer e;
-
- if (paramstr(1) != "jsb") not_through_bootstrap();
- val(paramstr(2), storage_seg, e);
- if (e != 0) not_through_bootstrap();
- val(paramstr(3), storage_ofs, e);
- if (e != 0) not_through_bootstrap();
-}
-
-int main(int argc, const char *argv[]) {
- pio_initialize(argc, argv);
- get_storage_addr();
-
- filetoload = "";
- argon = "";
- usingl = false;
- usingp = false;
- cl_override = false;
- soundfx = true;
- zoomy = false;
- numlockhold = false;
- filename_specified = false;
- keyboardclick = false;
- doing_syntax = false;
- soundcard = 0;
- baseaddr = 0;
- irq = 0;
- dma = 0;
-
- load_ini();
-
- for (fv = 4; fv <= paramcount; fv ++)
- parse(paramstr(fv));
-
- make_slopeline();
-
- store_slopeline();
- return EXIT_SUCCESS;
-}
-
-} // End of namespace Avalanche. \ No newline at end of file
generated by cgit v1.2.3 (git 2.25.1) at 2025-06-24 20:08:20 +0000