diff options
Diffstat (limited to 'engines/avalanche/chunkxf3.cpp')
| -rw-r--r-- | engines/avalanche/chunkxf3.cpp | 305 |
1 files changed, 0 insertions, 305 deletions
diff --git a/engines/avalanche/chunkxf3.cpp b/engines/avalanche/chunkxf3.cpp deleted file mode 100644 index c693fdc1be..0000000000 --- a/engines/avalanche/chunkxf3.cpp +++ /dev/null @@ -1,305 +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 "graph.h" -/*#include "Tommys.h"*/ -/*#include "Crt.h"*/ -#include "cadburys.h" - -namespace Avalanche { - -/*type - flavourtype = (ch_EGA,ch_BGI); - - chunkblocktype = record - flavour:flavourtype; - x,y:integer; - xl,yl:integer; - size:longint; - natural:boolean; - - memorise:boolean; { Hold it in memory? } - end; - -const - chunkheader : array[1..44] of char = - 'Chunk-type AVD file, for an Avvy game.'+#26+#177+#$30+#$01+#$75+#177; - - arraysize = 12000; - -var - offsets:array[1..30] of longint; - num_chunks,this_chunk:byte; - gd,gm:integer; - f:file; - aa:array[0..arraysize] of byte;*/ - -string strf(longint x) { - string q; - string strf_result; - str(x, q); - strf_result = q; - return strf_result; -} - -void finder() { - char r; - integer x, y; - setfillstyle(0, 0); - setcolor(14); - x = 320; - y = 100; - setwritemode(xorput); - do { - bar(0, 0, 200, 10); - outtextxy(0, 0, strf(x) + ',' + strf(y)); - line(x - 20, y, x + 20, y); - line(x, y - 20, x, y + 20); - do { - } while (!keypressed()); - line(x - 20, y, x + 20, y); - line(x, y - 20, x, y + 20); - switch (readkey()) { - case '\15': - return; - break; - case '8': - y -= 10; - break; - case '4': - x -= 10; - break; - case '6': - x += 10; - break; - case '2': - y += 10; - break; - case '\0': - switch (readkey()) { - case cup: - y -= 1; - break; - case cdown: - y += 1; - break; - case cleft: - x -= 1; - break; - case cright: - x += 1; - break; - } - break; - } - } while (!false); -} - -void loadtemp(string n) { - byte a0 /*absolute $A000:800*/; - byte a1 /*absolute $A400:800*/; - byte bit; - untyped_file f; - assign(f, n); - reset(f, 1); - seek(f, 177); - for (bit = 0; bit <= 3; bit ++) { - port[0x3c4] = 2; - port[0x3ce] = 4; - port[0x3c5] = 1 << bit; - port[0x3cf] = bit; - blockread(f, a0, 12080); - } - close(f); - bit = getpixel(0, 0); - finder(); -} - -void load() { - byte a0 /*absolute $A000:800*/; - byte a1 /*absolute $A400:800*/; - byte bit; - untyped_file f; - assign(f, "place22.avd"); - reset(f, 1); - seek(f, 177); - for (bit = 0; bit <= 3; bit ++) { - port[0x3c4] = 2; - port[0x3ce] = 4; - port[0x3c5] = 1 << bit; - port[0x3cf] = bit; - blockread(f, a1, 12080); - } - - close(f); - bit = getpixel(0, 0); - setactivepage(1); - setvisualpage(1); - finder(); - setactivepage(0); - setvisualpage(0); -} - -void open_chunk() { - assign(f, "chunk22.avd"); - rewrite(f, 1); - blockwrite(f, chunkheader, sizeof(chunkheader)); - blockwrite(f, num_chunks, 1); - blockwrite(f, offsets, num_chunks * 4); - - this_chunk = 0; -} - -void close_chunk() { - seek(f, 45); - blockwrite(f, offsets, num_chunks * 4); /* make sure they're right! */ - close(f); -} - -/*procedure mgrab(x1,y1,x2,y2:integer; size:word); -var yy:integer; aapos:word; length,bit:byte; -begin; - if size>arraysize then - begin; - writeln('*** SORRY! *** Increase the arraysize constant to be greater'); - writeln(' than ',size,'.'); - halt; - end; - - aapos:=0; - - length:=x2-x1; - - for bit:=0 to 3 do - begin; - port[$3c4]:=2; port[$3ce]:=4; port[$3C5]:=1 shl bit; port[$3CF]:=bit; - for yy:=y1 to y2 do - begin; - move(mem[$A400*yy*80+x1],aa[aapos],length); - inc(aapos,length); - end; - end; - bit:=getpixel(0,0); - -end; - -procedure grab(x1,y1,x2,y2,realx,realy:integer; flav:flavourtype; - mem,nat:boolean); - { yes, I *do* know how to spell "really"! } -var - s:word; - p:pointer; - ch:chunkblocktype; -begin; - inc(this_chunk); - offsets[this_chunk]:=filepos(f); - - - s:=imagesize(x1,y1,x2,y2); - getmem(p,s); - getimage(x1,y1,x2,y2,p^); - - with ch do - begin; - flavour:=flav; - x:=realx; y:=realy; - - xl:=x2-x1; - yl:=y2-y1; - size:=s; - memorise:=mem; - natural:=nat; - end; - - setvisualpage(1); - setactivepage(1); - readln; - putimage(ch.x,ch.y,p^,0); - - if flav=ch_EGA then - begin; - freemem(p,s); - s:=4*((x2-x1+7) div 8)*(y2-y1+1); - with ch do - begin; - size:=s; - x:=x div 8; - xl:=(xl+7) div 8; - mgrab(x,y,x+xl,y+yl,s); - end; - end; - - readln; - setvisualpage(0); - setactivepage(0); - - blockwrite(f,ch,sizeof(ch)); - - case flav of - ch_EGA : if not nat then blockwrite(f,aa,s); - ch_BGI : begin; - if not nat then blockwrite(f,p^,s); - freemem(p,s); - end; - end; -{ rectangle(x1,y1,x2,y2);} -end;*/ - -int main(int argc, const char *argv[]) { - pio_initialize(argc, argv); - gd = 3; - gm = 0; - initgraph(gd, gm, "c:\\bp\\bgi"); - loadtemp("chunkbit.avd"); - load(); - setwritemode(xorput); - - num_chunks = 9; - - open_chunk(); - - grab(0, 103, 169, 159, 72, 86, ch_ega, false, false); /* Stairs... */ - grab(172, 103, 341, 159, 72, 86, ch_ega, false, false); - - loadtemp("chunkbi3.avd"); - - grab(0, 130, 79, 157, 341, 94, ch_bgi, true , true); - grab(0, 130, 79, 157, 341, 94, ch_ega, false, false); - grab(0, 102, 79, 129, 341, 94, ch_ega, false, false); - grab(0, 74, 79, 101, 341, 94, ch_ega, false, false); /* Far door. */ - - loadtemp("chunkbi2.avd"); - - grab(393, 92, 451, 137, 512, 98, ch_bgi, true , true); /* Right-hand door. */ - grab(393, 92, 451, 137, 512, 98, ch_ega, false, false); - grab(453, 92, 511, 137, 512, 98, ch_ega, false, false); - - close_chunk(); - return EXIT_SUCCESS; -} - -} // End of namespace Avalanche.
\ No newline at end of file |