diff options
Diffstat (limited to 'engines/avalanche/chunkxfi.cpp')
| -rw-r--r-- | engines/avalanche/chunkxfi.cpp | 459 |
1 files changed, 253 insertions, 206 deletions
diff --git a/engines/avalanche/chunkxfi.cpp b/engines/avalanche/chunkxfi.cpp index 3dd81b2491..b28add0bb7 100644 --- a/engines/avalanche/chunkxfi.cpp +++ b/engines/avalanche/chunkxfi.cpp @@ -11,7 +11,7 @@ * 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 + * 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 @@ -31,243 +31,290 @@ namespace Avalanche { -enum flavourtype {ch_ega,ch_bgi, last_flavourtype}; +enum flavourtype {ch_ega, ch_bgi, last_flavourtype}; struct chunkblocktype { - flavourtype flavour; - integer x,y; - integer xl,yl; - longint size; - boolean natural; + flavourtype flavour; + integer x, y; + integer xl, yl; + longint size; + boolean natural; - boolean memorise; /* Hold it in memory? */ + boolean memorise; /* Hold it in memory? */ }; -const array<1,44,char> chunkheader = -string("Chunk-type AVD file, for an Avvy game.")+'\32'+'\261'+'\x30'+'\x1'+'\x75'+'\261'; +const array<1, 44, char> chunkheader = + string("Chunk-type AVD file, for an Avvy game.") + '\32' + '\261' + '\x30' + '\x1' + '\x75' + '\261'; const integer arraysize = 12000; -array<1,30,longint> offsets; -byte num_chunks,this_chunk; -integer gd,gm; +array<1, 30, longint> offsets; +byte num_chunks, this_chunk; +integer gd, gm; untyped_file f; -array<0,arraysize,byte> aa; - -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); +array<0, arraysize, byte> aa; + +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 load() -{ - byte a1 /*absolute $A400:800*/; - byte bit; - untyped_file f; -; - - assign(f,"place47.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); - setvisualpage(1); setactivepage(1); - finder(); - setvisualpage(0); setactivepage(0); +void load() { + byte a1 /*absolute $A400:800*/; + byte bit; + untyped_file f; + ; + + assign(f, "place47.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); + setvisualpage(1); + setactivepage(1); + finder(); + setvisualpage(0); + setactivepage(0); } -void loadtemp() -{ - byte a0 /*absolute $A000:800*/; - byte bit; - untyped_file f; -; - - assign(f,"chunkbi9.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,a0,12080); - } - close(f); - - bit=getpixel(0,0); - - finder(); +void loadtemp() { + byte a0 /*absolute $A000:800*/; + byte bit; + untyped_file f; + ; + + assign(f, "chunkbi9.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, a0, 12080); + } + close(f); + + bit = getpixel(0, 0); + + finder(); } -void open_chunk() -{; - assign(f,"chunk47.avd"); - rewrite(f,1); - blockwrite(f,chunkheader,sizeof(chunkheader)); - blockwrite(f,num_chunks,1); - blockwrite(f,offsets,num_chunks*4); +void open_chunk() { + ; + assign(f, "chunk47.avd"); + rewrite(f, 1); + blockwrite(f, chunkheader, sizeof(chunkheader)); + blockwrite(f, num_chunks, 1); + blockwrite(f, offsets, num_chunks * 4); - this_chunk=0; + this_chunk = 0; } -void close_chunk() -{; - seek(f,45); - blockwrite(f,offsets,num_chunks*4); /* make sure they're right! */ - close(f); +void close_chunk() { + ; + seek(f, 45); + blockwrite(f, offsets, num_chunks * 4); /* make sure they're right! */ + close(f); } -void mgrab(integer x1,integer y1,integer x2,integer y2, word size) -{ - integer yy; word aapos; byte length,bit; -; - if (size>arraysize) - {; - restorecrtmode(); - output << "*** SORRY! *** Increase the arraysize constant to be greater" << NL; - output << " than " << size << '.' << NL; - exit(0); - } - - aapos=0; - - length=x2-x1; - - for( bit=0; bit <= 3; bit ++) - {; - port[0x3c4]=2; port[0x3ce]=4; port[0x3c5]=1 << bit; port[0x3cf]=bit; - for( yy=y1; yy <= y2; yy ++) - {; - move(mem[0xa400*yy*80+x1],aa[aapos],length); - aapos += length; - } - } - bit=getpixel(0,0); +void mgrab(integer x1, integer y1, integer x2, integer y2, word size) { + integer yy; + word aapos; + byte length, bit; + ; + if (size > arraysize) { + ; + restorecrtmode(); + output << "*** SORRY! *** Increase the arraysize constant to be greater" << NL; + output << " than " << size << '.' << NL; + exit(0); + } + + aapos = 0; + + length = x2 - x1; + + for (bit = 0; bit <= 3; bit ++) { + ; + port[0x3c4] = 2; + port[0x3ce] = 4; + port[0x3c5] = 1 << bit; + port[0x3cf] = bit; + for (yy = y1; yy <= y2; yy ++) { + ; + move(mem[0xa400 * yy * 80 + x1], aa[aapos], length); + aapos += length; + } + } + bit = getpixel(0, 0); } -void grab(integer x1,integer y1,integer x2,integer y2,integer realx,integer realy, flavourtype flav, - boolean mem,boolean nat) - /* yes, I *do* know how to spell "really"! */ +void grab(integer x1, integer y1, integer x2, integer y2, integer realx, integer realy, flavourtype flav, + boolean mem, boolean nat) +/* yes, I *do* know how to spell "really"! */ { - word s; - pointer p; - chunkblocktype ch; -; -/* rectangle(x1,y1,x2,y2); exit;*/ - this_chunk += 1; - offsets[this_chunk]=filepos(f); - - - s=imagesize(x1,y1,x2,y2); - getmem(p,s); - getimage(x1,y1,x2,y2,p); - - {; - ch.flavour=flav; - ch.x=realx; ch.y=realy; - - ch.xl=x2-x1; - ch.yl=y2-y1; - ch.size=s; - ch.memorise=mem; - ch.natural=nat; - } - - setvisualpage(1); - setactivepage(1); - input >> NL; - - putimage(ch.x,ch.y,p,0); - - if (flav==ch_ega) - {; - freemem(p,s); - s=4*(((x2 / 8)-(x1 / 8))+2)*(y2-y1+1); - {; - ch.size=s; - ch.x=ch.x / 8; - ch.xl=(ch.xl / 8)+2; - mgrab(ch.x,ch.y,ch.x+ch.xl,ch.y+ch.yl,s); - } - } else - /* For BGI pictures. */ - {; - ch.x=ch.x / 8; - ch.xl=(ch.xl+7) / 8; - ch.size=imagesize(ch.x*8,ch.y,(ch.x+ch.xl)*8,ch.y+ch.yl); - } - - setvisualpage(0); - setactivepage(0); - - blockwrite(f,ch,sizeof(ch)); - - switch (flav) { - case ch_ega : if (! nat) blockwrite(f,aa,s); break; - case ch_bgi : {; - if (! nat) blockwrite(f,p,s); - freemem(p,s); - } - break; - } -/* rectangle(x1,y1,x2,y2);*/ + word s; + pointer p; + chunkblocktype ch; + ; + /* rectangle(x1,y1,x2,y2); exit;*/ + this_chunk += 1; + offsets[this_chunk] = filepos(f); + + + s = imagesize(x1, y1, x2, y2); + getmem(p, s); + getimage(x1, y1, x2, y2, p); + + { + ; + ch.flavour = flav; + ch.x = realx; + ch.y = realy; + + ch.xl = x2 - x1; + ch.yl = y2 - y1; + ch.size = s; + ch.memorise = mem; + ch.natural = nat; + } + + setvisualpage(1); + setactivepage(1); + input >> NL; + + putimage(ch.x, ch.y, p, 0); + + if (flav == ch_ega) { + ; + freemem(p, s); + s = 4 * (((x2 / 8) - (x1 / 8)) + 2) * (y2 - y1 + 1); + { + ; + ch.size = s; + ch.x = ch.x / 8; + ch.xl = (ch.xl / 8) + 2; + mgrab(ch.x, ch.y, ch.x + ch.xl, ch.y + ch.yl, s); + } + } else + /* For BGI pictures. */ + { + ; + ch.x = ch.x / 8; + ch.xl = (ch.xl + 7) / 8; + ch.size = imagesize(ch.x * 8, ch.y, (ch.x + ch.xl) * 8, ch.y + ch.yl); + } + + setvisualpage(0); + setactivepage(0); + + blockwrite(f, ch, sizeof(ch)); + + switch (flav) { + case ch_ega : + if (! nat) blockwrite(f, aa, s); + break; + case ch_bgi : { + ; + if (! nat) blockwrite(f, p, s); + freemem(p, s); + } + break; + } + /* rectangle(x1,y1,x2,y2);*/ } -int main(int argc, const char* argv[]) -{pio_initialize(argc, argv); -; - gd=3; gm=0; initgraph(gd,gm,"c:\\bp\\bgi"); - load(); - loadtemp(); - setwritemode(xorput); +int main(int argc, const char *argv[]) { + pio_initialize(argc, argv); + ; + gd = 3; + gm = 0; + initgraph(gd, gm, "c:\\bp\\bgi"); + load(); + loadtemp(); + setwritemode(xorput); - num_chunks=10; + num_chunks = 10; - open_chunk(); + open_chunk(); - grab(323, 35,340, 43,337, 93,ch_ega,true ,false); /*1 Port blinks */ - grab(323, 35,340, 43,337, 93,ch_bgi,true ,true ); /*2 Port normally */ - grab(421, 22,511, 71,474,101,ch_ega,false,false); /*3 Avalot & Spurge */ - grab(421, 22,511, 71,474,101,ch_bgi,true ,true ); /*4 Just Spurge. */ + grab(323, 35, 340, 43, 337, 93, ch_ega, true , false); /*1 Port blinks */ + grab(323, 35, 340, 43, 337, 93, ch_bgi, true , true); /*2 Port normally */ + grab(421, 22, 511, 71, 474, 101, ch_ega, false, false); /*3 Avalot & Spurge */ + grab(421, 22, 511, 71, 474, 101, ch_bgi, true , true); /*4 Just Spurge. */ - grab(524, 40,540, 47,337, 93,ch_ega,true ,false); /*5 Port L blinks */ - grab(524, 22,540, 29,337, 93,ch_ega,true ,false); /*6 Port L */ - grab(563, 40,579, 47,337, 93,ch_ega,true ,false); /*7 Port R blinks */ - grab(563, 22,579, 29,337, 93,ch_ega,true ,false); /*8 Port R */ + grab(524, 40, 540, 47, 337, 93, ch_ega, true , false); /*5 Port L blinks */ + grab(524, 22, 540, 29, 337, 93, ch_ega, true , false); /*6 Port L */ + grab(563, 40, 579, 47, 337, 93, ch_ega, true , false); /*7 Port R blinks */ + grab(563, 22, 579, 29, 337, 93, ch_ega, true , false); /*8 Port R */ - grab(307, 38,310, 38,493,104,ch_ega,true ,false); /*9 Spurge blinks */ - grab(307, 38,310, 38,493,104,ch_bgi,true ,true ); /*10 Spurge doesn't blink */ + grab(307, 38, 310, 38, 493, 104, ch_ega, true , false); /*9 Spurge blinks */ + grab(307, 38, 310, 38, 493, 104, ch_bgi, true , true); /*10 Spurge doesn't blink */ - close_chunk(); -return EXIT_SUCCESS; + close_chunk(); + return EXIT_SUCCESS; } } // End of namespace Avalanche.
\ No newline at end of file |