diff options
Diffstat (limited to 'engines/avalanche/oldfiler.cpp')
| -rw-r--r-- | engines/avalanche/oldfiler.cpp | 307 |
1 files changed, 0 insertions, 307 deletions
diff --git a/engines/avalanche/oldfiler.cpp b/engines/avalanche/oldfiler.cpp deleted file mode 100644 index e38ec30fa3..0000000000 --- a/engines/avalanche/oldfiler.cpp +++ /dev/null @@ -1,307 +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. - */ - -/*#include "Crt.h"*/ -#include "graph.h" -/*#include "Dos.h"*/ -/*#include "Rodent.h"*/ - -/*$V-*/ -namespace Avalanche { - -const char more[] = " (more) "; -const string up = string('-') + '\30' + more + '\30'; -const string down = string('+') + '\31' + more + '\31'; - -const graphcursmasktype fletch = /* Mask 4 in Avalot */ -{ - ( - (255, 511, 1023, 2047, 1023, 4607, 14591, 31871, 65031, 65283, 65281, 65280, 65280, 65409, 65473, 65511), - (0, 10240, 20480, 24576, 26624, 17408, 512, 256, 128, 88, 32, 86, 72, 20, 16, 0)), - 0, - 0 -}; - -string cdir; -matrix<0, 2, 1, 18, varying_string<15> > info; -matrix<0, 2, 1, 100, varying_string<15> > possible; -byte fv; -array<0, 2, byte> light, page_; -array<0, 2, boolean> blank; -byte chtcode, where; -string answer; - -void split(string x) { - byte fv; - x = copy(x, 4, 255); - if (x == "") { - blank[0] = true; - return; - } - x = x + '\\'; - possible[0][1] = "b\\"; - fv = 2; - while (pos("\\", x) != 0) { - possible[0][fv] = string('b') + copy(x, 1, pos("\\", x) - 1); - fv += 1; - x = copy(x, pos("\\", x) + 1, 255); - } - possible[0][fv - 1] = ""; -} - -void block(integer x1, integer y1, integer x2, integer y2, string x) { - bar(x1, y1, x2, y2); - setcolor(9); - outtextxy(x1 + (x2 - x1) / 2 - 1, y1 + 5, x); - setcolor(15); - outtextxy(x1 + (x2 - x1) / 2 + 1, y1 + 6, x); -} - -void message(string x) { - block(5, 189, 640, 200, x); -} - -void bigbar(byte x) { - bar(15 + 210 * x, 36, 210 + 210 * x, 187); -} - -void getem(); - - -static void sub_getem(char prefix, string spec, byte attrib, byte infonum) { - searchrec s; - byte fv; - fv = 0; - findfirst(spec, attrib, s); - while ((doserror == 0) && (fv < 100)) { - if (((s.attr & attrib) > 0) && (s.name[1] != '.')) { - ; /* circumvent inclusive searching! */ - fv += 1; - possible[infonum][fv] = string(prefix) + s.name; - } - findnext(s); - } - if (fv == 0) blank[infonum] = true; -} - -void getem() - -{ - message("Please wait... scanning directory..."); - sub_getem('a', "*.asg", archive + hidden, 1); /* Scan for .ASG files */ - sub_getem('f', "*.*", directory, 2); /* Scan for sub-directories */ -} - -void minisc(string &x) { /* Converts to lower-case */ - byte fv; - for (fv = 1; fv <= length(x); fv ++) - if ((x[fv] >= 'A') && (x[fv] <= 'Z')) x[fv] += 32; -} - -void showall() { - byte fv, ff; - for (fv = 0; fv <= 2; fv ++) { - bigbar(fv); /* blank out anything else */ - if (blank[fv]) { - ; /* nothing here at all */ - /* setcolor(14); - outtextxy(113+210*fv,43,'(Nothing here!)'); */ - setcolor(14); - settextstyle(0, 0, 2); - outtextxy(113 + 210 * fv, 77, "Nothing"); - outtextxy(113 + 210 * fv, 100, "here!"); - settextstyle(0, 0, 1); - } else { - ; /* something here- what? */ - setcolor(11); - for (ff = 0; ff <= 15; ff ++) { - info[fv][ff + 2] = possible[fv][page_[fv] * 15 + ff + 1]; - minisc(info[fv][ff + 2]); - } - if (page_[fv] > 0) info[fv][1] = up; - else info[fv][1] = ""; - if (possible[fv][page_[fv] * 15 + 17] != "") - info[fv][18] = down; - else info[fv][18] = ""; - for (ff = 1; ff <= 18; ff ++) { - outtextxy(113 + 210 * fv, 35 + ff * 8, copy(info[fv][ff], 2, 255)); - } - } - } - block(5, 12, 640, 22, cdir); -} - -void changedir(string x) { - - chdir(x); - getdir(0, cdir); -} - -void drawup() { - integer gd; - block(15, 0, 630, 10, "Choose an .ASG file to load or save."); - block(15, 24, 210, 34, "Looking back:"); - block(225, 24, 420, 34, "Here:"); - block(435, 24, 630, 34, "Looking forwards:"); - for (gd = 0; gd <= 2; gd ++) bigbar(gd); /* just to tide us over the wait... */ - showall(); -} - -void setup() { - settextjustify(1, 1); - setfillstyle(1, 1); - fillchar(blank, sizeof(blank), '\0'); - fillchar(info, sizeof(info), '\0'); - fillchar(possible, sizeof(possible), '\0'); - fillchar(page_, sizeof(page_), '\0'); - split(cdir); - getem(); - drawup(); -} - -void setup1() { - integer gd, gm; - gd = 3; - gm = 0; - initgraph(gd, gm, ""); - answer = ""; - getdir(0, cdir); - resetmouse; - setgraphicscursor(fletch); - fillchar(light, sizeof(light), '\0'); - setup(); -} - -void clickwait() { - const array<1, 4, varying_string<30> > msg = { - { - "change to another drive.", - "return to a lower directory.", - "use the file named.", - "enter a sub-directory." - } - }; - byte oldcht; /* Click Here To... code */ - showmousecursor; - oldcht = 177; - do { - if (mousey < 38) chtcode = 1; - else - switch (mousex) { - case 0 ... 210: - chtcode = 2; - break; - case 211 ... 421: - chtcode = 3; - break; - default: - chtcode = 4; - } - if (oldcht != chtcode) { - hidemousecursor; - message(string("Click here to ") + msg[chtcode]); - showmousecursor; - oldcht = chtcode; - } - } while (!leftmousekeypressed); - hidemousecursor; - where = ((mousey - 39) / 8) + 1; -} - -void blip() { - sound(32); - delay(3); - nosound; -} - -void do_cht() { - char r; - byte fv; - string x; - if (chtcode == 1) { - ; /* change drives */ - message("Enter the drive letter (e.g. A)..."); - r = readkey(); - changedir(string(r) + ':'); - setup(); - } else { - x = info[chtcode - 2][where]; - r = x[1]; - x = copy(x, 2, 255); - switch (r) { - case 'b': { - ; /* back some dirs */ - if (x == '\\') x = ""; - for (fv = where - 1; fv >= 3; fv --) - x = copy(info[0][fv], 2, 255) + '\\' + x; - changedir(string('\\') + x); - setup(); - } - break; - case 'f': { - ; /* sub-directory */ - changedir(x); - setup(); - } - break; - case '+': { - ; /* scroll one panel down */ - page_[chtcode - 2] += 1; - drawup(); - } - break; - case '-': { - ; /* scroll one panel up */ - page_[chtcode - 2] -= 1; - drawup(); - } - break; - case 'a': - answer = x; - break; - } - } -} - -int main(int argc, const char *argv[]) { - pio_initialize(argc, argv); - setup1(); - do { - clickwait(); - do_cht(); - } while (!(answer != "")); - if (length(cdir) > 3) cdir = cdir + '\\'; - answer = cdir + answer; - closegraph(); - output << "Routine completed." << NL; - output << "Answer: " << answer << NL; - output << "Hit Enter:"; - input >> NL; - return EXIT_SUCCESS; -} - -} // End of namespace Avalanche.
\ No newline at end of file |