aboutsummaryrefslogtreecommitdiff
path: root/engines/avalanche/scr_1.cpp
diff options
context:
space:
mode:
authoruruk2013-06-21 14:08:10 +0200
committeruruk2013-06-21 14:08:10 +0200
commitaeff42074ade0ab29e8130a6b92ffe73f94070b7 (patch)
tree5b1375688b87a8bab54047d121bb3bfc1fc88c6c /engines/avalanche/scr_1.cpp
parent1ce5e3bc3ff9082e057475bb5cfbc15a212f43eb (diff)
downloadscummvm-rg350-aeff42074ade0ab29e8130a6b92ffe73f94070b7.tar.gz
scummvm-rg350-aeff42074ade0ab29e8130a6b92ffe73f94070b7.tar.bz2
scummvm-rg350-aeff42074ade0ab29e8130a6b92ffe73f94070b7.zip
AVALANCHE: Reorganise source files.
Diffstat (limited to 'engines/avalanche/scr_1.cpp')
-rw-r--r--engines/avalanche/scr_1.cpp133
1 files changed, 0 insertions, 133 deletions
diff --git a/engines/avalanche/scr_1.cpp b/engines/avalanche/scr_1.cpp
deleted file mode 100644
index bb5fa1d84f..0000000000
--- a/engines/avalanche/scr_1.cpp
+++ /dev/null
@@ -1,133 +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"*/
-
-namespace Avalanche {
-
-const varying_string<4> codes = " ßÜÛ";
-
-typedef matrix < '\0', '\377', 0, 15, byte > fonttype;
-
-byte x, xx, y;
-string title, fn;
-file<fonttype> f;
-fonttype font;
-byte code;
-
-
-typedef array<1, 3840, byte> atype;
-
-void save() {
- file<atype> f;
- word fv;
- atype a /*absolute $B800:0*/;
- assign(f, "TEXT1.SCR");
- rewrite(f);
- f << a;
- close(f);
-}
-
-void centre(byte y, string z) {
- gotoxy(40 - length(z) / 2, y);
- output << z;
-}
-
-int main(int argc, const char *argv[]) {
- pio_initialize(argc, argv);
- /* write('Title?'); readln(title);
- write('Font?'); readln(fn); */
- textattr = 0;
- clrscr;
- title = "Bug Alert!";
- fn = "";
- for (xx = 1; xx <= 77; xx ++) {
- gotoxy(Random(80) + 1, Random(24) + 1);
- switch (Random(2)) {
- case 0:
- textattr = red;
- break;
- case 1:
- textattr = lightred;
- break;
- }
- switch (Random(4)) {
- case 0:
- output << '*';
- break;
- case 1:
- output << '\17';
- break;
- case 2:
- output << 'ù';
- break;
- case 3:
- output << 'ú';
- break;
- }
- }
- textattr = 12;
- assign(f, "c:\\thomas\\ttsmall.fnt");
- reset(f);
- f >> font;
- close(f);
- for (y = 0; y <= 3; y ++) {
- for (x = 1; x <= length(title); x ++) {
- for (xx = 7; xx >= 0; xx --) {
- code = (byte)(((1 << xx) & font[title[x]][y * 2]) > 0) +
- (byte)(((1 << xx) & font[title[x]][y * 2 + 1]) > 0) * 2;
- gotoxy(1 + x * 8 - xx, y + 1);
- if (code > 0) output << codes[code + 1 - 1];
- }
- }
- /*if wherex<>1 then writeln;*/
- }
- textattr = red;
- centre(7, "An internal error has just occurred within the program.");
-
- textattr = white;
- gotoxy(26, 9);
- output << "Error number: ";
- textattr = lightred;
- output << " ";
- textattr = white;
- gotoxy(27, 10);
- output << "at location: ";
- textattr = lightred;
- output << " ";
- centre(12, "This screen should never come up...");
- centre(13, "but it just has!");
- textattr = 15;
- centre(15, "So, please tell Thorsoft about this as soon as");
- centre(16, "possible, so that we can fix it.");
- textattr = red;
- centre(20, "Thanks...");
- save();
- return EXIT_SUCCESS;
-}
-
-} // End of namespace Avalanche. \ No newline at end of file