542 lines
No EOL
11 KiB
C
542 lines
No EOL
11 KiB
C
#include <dos.h>
|
||
#include <stdio.h>
|
||
#include <conio.h>
|
||
#include "tweak.h"
|
||
#include "h:\u2\dis\dis.h"
|
||
|
||
#define SCRLF 9
|
||
|
||
extern init_copper();
|
||
extern close_copper();
|
||
extern far int frame_count;
|
||
extern far char * far cop_pal;
|
||
extern far int do_pal;
|
||
extern far int cop_start;
|
||
extern far int cop_scrl;
|
||
extern far int cop_dofade;
|
||
extern far char * far cop_fadepal;
|
||
extern far char fadepal[];
|
||
|
||
extern char far hzpic[];
|
||
extern outline(char far *f, char far *t);
|
||
extern ascrolltext(int scrl, int *dtau);
|
||
char * far vmem=(char *)0x0a0000000L;
|
||
int mmask[4]={0x0102,0x0202,0x0402,0x0802};
|
||
|
||
char (* far vvmem)[176];
|
||
extern char far font[31][1500];
|
||
char rowbuf[1024];
|
||
|
||
char palette[768]; // pic
|
||
char palette2[768]; // pic & text
|
||
|
||
char fade1[768]; // black
|
||
char fade2[768]; // text
|
||
|
||
int picin[768];
|
||
int textin[768];
|
||
int textout[768];
|
||
|
||
char *fonaorder="ABCDEFGHIJKLMNOPQRSTUVWXabcdefghijklmnopqrstuvwxyz0123456789!?,.:<3A><>()+-*='<27>™";
|
||
int fonap[256];
|
||
int fonaw[256];
|
||
|
||
int far dtau[30000];
|
||
char far tbuf[186][352];
|
||
|
||
int a=0,p=0,tptr=0;
|
||
|
||
main()
|
||
{
|
||
int aa,b,c,x,y,f;
|
||
|
||
asm mov ax, 3
|
||
asm int 10h
|
||
|
||
init();
|
||
|
||
|
||
while(dis_sync()<1 && !dis_exit());
|
||
|
||
prtc(160,120,"A");
|
||
prtc(160,160,"Future Crew");
|
||
prtc(160,200,"Production");
|
||
dofade(fade1,fade2); wait(300); dofade(fade2,fade1); fonapois();
|
||
|
||
while(dis_sync()<2 && !dis_exit());
|
||
|
||
prtc(160,160,"First Presented");
|
||
prtc(160,200,"at Assembly 93");
|
||
dofade(fade1,fade2); wait(300); dofade(fade2,fade1); fonapois();
|
||
|
||
while(dis_sync()<3 && !dis_exit());
|
||
|
||
prtc(160,120,"in");
|
||
prtc(160,160,"<EFBFBD>");
|
||
prtc(160,179,"™");
|
||
dofade(fade1,fade2); wait(300); dofade(fade2,fade1); fonapois();
|
||
|
||
while(dis_sync()<4 && !dis_exit());
|
||
|
||
memcpy(fadepal,fade1,768);
|
||
cop_fadepal=picin;
|
||
cop_dofade=128;
|
||
for(a=1,p=1,f=0,frame_count=0;cop_dofade!=0 && !dis_exit();)
|
||
do_scroll(2);
|
||
|
||
for(f=60;a<320 && !dis_exit();)
|
||
{
|
||
if(f==0) {
|
||
cop_fadepal=textin;
|
||
cop_dofade=64;
|
||
f+=20;
|
||
}
|
||
else if(f==50) {
|
||
cop_fadepal=textout;
|
||
cop_dofade=64;
|
||
f++;
|
||
}
|
||
else if(f>50 && cop_dofade==0) {
|
||
cop_pal=palette; do_pal=1; f++;
|
||
memset(tbuf,0,186*320);
|
||
switch(tptr++) {
|
||
case 0:
|
||
addtext(160,50,"Graphics");
|
||
addtext(160,90,"Marvel");
|
||
addtext(160,130,"Pixel"); // sucks
|
||
ffonapois();
|
||
break;
|
||
case 1:
|
||
faddtext(160,50,"Music");
|
||
faddtext(160,90, "Purple Motion");
|
||
faddtext(160,130, "Skaven");
|
||
ffonapois();
|
||
break;
|
||
case 2:
|
||
faddtext(160,30,"Code");
|
||
faddtext(160,70, "Psi");
|
||
faddtext(160,110, "Trug");
|
||
faddtext(160,148, "Wildfire");
|
||
ffonapois();
|
||
break;
|
||
case 3:
|
||
faddtext(160,50,"Additional Design");
|
||
faddtext(160,90, "Abyss");
|
||
// faddtext(160,110,"Useless Design");
|
||
faddtext(160,130, "Gore");
|
||
ffonapois();
|
||
break;
|
||
case 4:
|
||
ffonapois();
|
||
break;
|
||
default:
|
||
faddtext(160,80, "BUG BUG BUG");
|
||
faddtext(160,130, "Timing error");
|
||
ffonapois();
|
||
break;
|
||
}
|
||
while(((a&1) || dis_sync()<4+tptr) && !dis_exit() && a<319)
|
||
do_scroll(0);
|
||
aa=a;
|
||
if(aa<320-12) fmaketext(aa+16);
|
||
f=0;
|
||
}
|
||
else f++;
|
||
do_scroll(1);
|
||
}
|
||
if(f>63/SCRLF){
|
||
dofade(palette2,palette);
|
||
}
|
||
fonapois();
|
||
close_copper();
|
||
}
|
||
|
||
init() {
|
||
int a,b,c,x,y,p=0,f;
|
||
|
||
dis_partstart();
|
||
tw_opengraph();
|
||
init_copper();
|
||
tw_setpalette(fade1);
|
||
memcpy(palette,hzpic+16,768);
|
||
|
||
for(a=0;a<88;a++)
|
||
{
|
||
outline(MK_FP(FP_SEG(hzpic),FP_OFF(hzpic)+a*4+784), MK_FP(0x0a000,a+176*50));
|
||
outline(MK_FP(FP_SEG(hzpic),FP_OFF(hzpic)+a*4+784), MK_FP(0x0a000,a+176*50+88));
|
||
}
|
||
|
||
for(y=0;y<32;y++)
|
||
{
|
||
for(a=0;a<1500;a++)
|
||
{
|
||
switch(font[y][a]&3)
|
||
{
|
||
case 0x1 : b=0x40; break;
|
||
case 0x2 : b=0x80; break;
|
||
case 0x3 : b=0xc0; break;
|
||
default : b=0;
|
||
}
|
||
font[y][a]=b;
|
||
}
|
||
}
|
||
|
||
for(y=0;y<768;y+=3)
|
||
{
|
||
if(y<64*3)
|
||
{
|
||
palette2[y+0]=palette[y+0];
|
||
palette2[y+1]=palette[y+1];
|
||
palette2[y+2]=palette[y+2];
|
||
}
|
||
else if(y<128*3)
|
||
{
|
||
palette2[y+0]=(fade2[y+0]=palette[0x1*3+0])*63+palette[y%(64*3)+0]*(63-palette[0x1*3+0])>>6;
|
||
palette2[y+1]=(fade2[y+1]=palette[0x1*3+1])*63+palette[y%(64*3)+1]*(63-palette[0x1*3+1])>>6;
|
||
palette2[y+2]=(fade2[y+2]=palette[0x1*3+2])*63+palette[y%(64*3)+2]*(63-palette[0x1*3+2])>>6;
|
||
}
|
||
else if(y<192*3)
|
||
{
|
||
palette2[y+0]=(fade2[y+0]=palette[0x2*3+0])*63+palette[y%(64*3)+0]*(63-palette[0x2*3+0])>>6;
|
||
palette2[y+1]=(fade2[y+1]=palette[0x2*3+1])*63+palette[y%(64*3)+1]*(63-palette[0x2*3+1])>>6;
|
||
palette2[y+2]=(fade2[y+2]=palette[0x2*3+2])*63+palette[y%(64*3)+2]*(63-palette[0x2*3+2])>>6;
|
||
}
|
||
else
|
||
{
|
||
palette2[y+0]=(fade2[y+0]=palette[0x3*3+0])*63+palette[y%(64*3)+0]*(63-palette[0x3*3+0])>>6;
|
||
palette2[y+1]=(fade2[y+1]=palette[0x3*3+1])*63+palette[y%(64*3)+1]*(63-palette[0x3*3+1])>>6;
|
||
palette2[y+2]=(fade2[y+2]=palette[0x3*3+2])*63+palette[y%(64*3)+2]*(63-palette[0x3*3+2])>>6;
|
||
}
|
||
}
|
||
|
||
for(a=192;a<768;a++) palette[a]=palette[a-192];
|
||
|
||
for(x=0;x<1500 && *fonaorder;)
|
||
{
|
||
while(x<1500)
|
||
{
|
||
for(y=0;y<32;y++) if(font[y][x]) break;
|
||
if(y!=32) break;
|
||
x++;
|
||
}
|
||
b=x;
|
||
while(x<1500)
|
||
{
|
||
for(y=0;y<32;y++) if(font[y][x]) break;
|
||
if(y==32) break;
|
||
x++;
|
||
}
|
||
//printf("%c: %i %i\n",*fonaorder,b,x-b);
|
||
fonap[*fonaorder]=b;
|
||
fonaw[*fonaorder]=x-b;
|
||
fonaorder++;
|
||
}
|
||
fonap[32]=1500-20;
|
||
fonaw[32]=16;
|
||
|
||
for(a=0;a<768;a++)
|
||
{
|
||
textin[a]=(palette2[a]-palette[a])*256/64;
|
||
textout[a]=(palette[a]-palette2[a])*256/64;
|
||
picin[a]=(palette[a]-fade1[a])*256/128;
|
||
}
|
||
}
|
||
|
||
wait(int t)
|
||
{
|
||
while(frame_count<t && !dis_exit()); frame_count=0;
|
||
}
|
||
|
||
fonapois()
|
||
{
|
||
char far *vvmem=MK_FP(0x0a000,0);
|
||
unsigned a;
|
||
|
||
outport(0x3c4,0x0102);
|
||
outport(0x3ce,0x0004);
|
||
for(a=160*64;a<160U*(64+256);a++) vvmem[a]=vvmem[a]&63;
|
||
|
||
outport(0x3c4,0x0202);
|
||
outport(0x3ce,0x0104);
|
||
for(a=160*64;a<160U*(64+256);a++) vvmem[a]=vvmem[a]&63;
|
||
|
||
outport(0x3c4,0x0402);
|
||
outport(0x3ce,0x0204);
|
||
for(a=160*64;a<160U*(64+256);a++) vvmem[a]=vvmem[a]&63;
|
||
outport(0x3c4,0x0802);
|
||
outport(0x3ce,0x0304);
|
||
for(a=160*64;a<160U*(64+256);a++) vvmem[a]=vvmem[a]&63;
|
||
|
||
}
|
||
|
||
prt(int x,int y,char *txt)
|
||
{
|
||
int x2w,x2,y2,y2w=y+32,sx,d;
|
||
while(*txt)
|
||
{
|
||
x2w=fonaw[*txt]+x;
|
||
sx=fonap[*txt];
|
||
for(x2=x;x2<x2w;x2++)
|
||
{
|
||
for(y2=y;y2<y2w;y2++)
|
||
{
|
||
d=font[y2-y][sx];
|
||
tw_putpixel(x2,y2,tw_getpixel(x2,y2)|d);
|
||
}
|
||
sx++;
|
||
}
|
||
x=x2+2;
|
||
txt++;
|
||
}
|
||
}
|
||
|
||
prtc(int x,int y,char *txt)
|
||
{
|
||
int w=0;
|
||
char *t=txt;
|
||
while(*t) w+=fonaw[*t++]+2;
|
||
prt(x-w/2,y,txt);
|
||
}
|
||
|
||
dofade(char far *pal1, char far *pal2)
|
||
{
|
||
int a,b,c;
|
||
char pal[768];
|
||
|
||
for(a=0;a<64 && !dis_exit();a++)
|
||
{
|
||
for(b=0;b<768;b++) pal[b]=(pal1[b]*(64-a)+pal2[b]*a>>6);
|
||
cop_pal=pal; do_pal=1;
|
||
while(frame_count<1); frame_count=0;
|
||
}
|
||
}
|
||
char fuckpal[768];
|
||
|
||
fdofade(char far *pal1, char far *pal2, int a)
|
||
{
|
||
int b,c;
|
||
|
||
if(a<0 || a>64) return(0);
|
||
for(b=0;b<768;b++) fuckpal[b]=(pal1[b]*(64-a)+pal2[b]*a>>6);
|
||
cop_pal=fuckpal; do_pal=1;
|
||
}
|
||
|
||
addtext(int tx,int ty,char *txt)
|
||
{
|
||
int a,b,c,x,y,w=0;
|
||
char *t=txt;
|
||
|
||
while(*t) w+=fonaw[*t++]+2;
|
||
|
||
t=txt; w/=2;
|
||
while(*t)
|
||
{
|
||
for(x=0;x<fonaw[*t];x++)
|
||
for(y=0;y<32;y++)
|
||
tbuf[y+ty][tx+x-w]=font[y][fonap[*t]+x];
|
||
|
||
tx+=fonaw[*t++]+2;
|
||
}
|
||
}
|
||
|
||
|
||
maketext(int scrl)
|
||
{
|
||
char far *vvmem=MK_FP(0x0a000,0);
|
||
int *p1=dtau;
|
||
int mtau[]={1*256+2,2*256+2,4*256+2,8*256+2};
|
||
int a,b,c,x,y,m;
|
||
|
||
for(m=0;m<4;m++)
|
||
{
|
||
for(x=m;x<320;x+=4) for(y=1;y<184;y++)
|
||
if(tbuf[y][x]!=tbuf[y][x-2]) {
|
||
*p1++=x/4+y*176+100*176;
|
||
*p1++=tbuf[y][x]^tbuf[y][x-2];
|
||
}
|
||
*p1++=-1;
|
||
*p1++=-1;
|
||
}
|
||
|
||
for(x=0;x<320;x++)
|
||
{
|
||
outport(0x3c4,mtau[(x+scrl)&3]);
|
||
outport(0x3ce,((x+scrl)&3)*256+4);
|
||
for(y=1;y<184;y++)
|
||
{
|
||
vvmem[y*176+176*100+(x+scrl)/4]^=tbuf[y][x-1-1];
|
||
vvmem[y*176+176*100+(x+scrl)/4+88]^=tbuf[y][x-1];
|
||
}
|
||
}
|
||
}
|
||
|
||
scrolltext(int scrl)
|
||
{
|
||
char far *vvmem=MK_FP(0x0a000,0);
|
||
int mtau[]={1*256+2,2*256+2,4*256+2,8*256+2,1*256+2,2*256+2,4*256+2,8*256+2};
|
||
int *p1=dtau;
|
||
int x,y,a,c,m,aa;
|
||
|
||
p1=dtau;
|
||
for(m=0;m<4;m++)
|
||
{
|
||
aa=(scrl+m)/4;
|
||
outport(0x3c4,mtau[(scrl+m)&3]);
|
||
outport(0x3ce,((scrl+m)&3)*256+4);
|
||
while(*p1!=-1)
|
||
{
|
||
a=*p1++;
|
||
c=*p1++;
|
||
vvmem[a+aa]^=c;
|
||
}
|
||
p1+=2;
|
||
}
|
||
}
|
||
|
||
|
||
do_scroll(int mode)
|
||
{
|
||
if(mode==0 && frame_count<SCRLF) return(0);
|
||
while(frame_count<SCRLF);
|
||
frame_count-=SCRLF;
|
||
if(mode==1) ascrolltext(a+p*352,dtau);
|
||
cop_start=a/4+p*88; cop_scrl=(a&3)*2;
|
||
|
||
if((a&3)==0)
|
||
{
|
||
outline(MK_FP(FP_SEG(hzpic),FP_OFF(hzpic)+(a/4+86)*4+784), MK_FP(0x0a000,(a/4+86)+176*50));
|
||
outline(MK_FP(FP_SEG(hzpic),FP_OFF(hzpic)+(a/4+86)*4+784), MK_FP(0x0a000,(a/4+86)+176*50+88));
|
||
}
|
||
a+=1; p^=1;
|
||
return(1);
|
||
}
|
||
|
||
|
||
|
||
|
||
faddtext(int tx,int ty,char *txt)
|
||
{
|
||
int a,b,c,x,y,w=0;
|
||
char *t=txt;
|
||
|
||
while(*t) w+=fonaw[*t++]+2;
|
||
|
||
t=txt; w/=2;
|
||
while(*t)
|
||
{
|
||
for(x=0;x<fonaw[*t];x++)
|
||
for(y=0;y<32;y++)
|
||
tbuf[y+ty][tx+x-w]=font[y][fonap[*t]+x];
|
||
|
||
do_scroll(0);
|
||
tx+=fonaw[*t++]+2;
|
||
}
|
||
}
|
||
|
||
fmaketext(int scrl)
|
||
{
|
||
char far *vvmem=MK_FP(0x0a000,0);
|
||
int *p1=dtau;
|
||
int mtau[]={1*256+2,2*256+2,4*256+2,8*256+2};
|
||
int b,c,x,y,m;
|
||
|
||
for(m=0;m<4;m++)
|
||
{
|
||
for(x=m;x<320;x+=4) {
|
||
for(y=1;y<184;y++) if(tbuf[y][x]!=tbuf[y][x-2]) {
|
||
*p1++=x/4+y*176+100*176;
|
||
*p1++=tbuf[y][x]^tbuf[y][x-2];
|
||
}
|
||
do_scroll(0);
|
||
}
|
||
*p1++=-1;
|
||
*p1++=-1;
|
||
}
|
||
|
||
for(x=0;x<320;x++)
|
||
{
|
||
outport(0x3c4,mtau[(x+scrl)&3]);
|
||
outport(0x3ce,((x+scrl)&3)*256+4);
|
||
for(y=1;y<184;y++)
|
||
{
|
||
vvmem[y*176+176*100+(x+scrl)/4]^=tbuf[y][x-1-1];
|
||
vvmem[y*176+176*100+(x+scrl)/4+88]^=tbuf[y][x-1];
|
||
}
|
||
do_scroll(0);
|
||
}
|
||
|
||
while(a<=scrl) do_scroll(0);
|
||
}
|
||
|
||
ffonapois()
|
||
{
|
||
long far *vvmem=MK_FP(0x0a000,0);
|
||
unsigned a;
|
||
|
||
outport(0x3c4,0x0102);
|
||
outport(0x3ce,0x0004);
|
||
for(a=40*64;a<40U*(64+256+10);a++) vvmem[a]=vvmem[a]&0x3f3f3f3f;
|
||
do_scroll(0);
|
||
|
||
outport(0x3c4,0x0202);
|
||
outport(0x3ce,0x0104);
|
||
for(a=40*64;a<40U*(64+256+10);a++) vvmem[a]=vvmem[a]&0x3f3f3f3f;
|
||
do_scroll(0);
|
||
|
||
outport(0x3c4,0x0402);
|
||
outport(0x3ce,0x0204);
|
||
for(a=40*64;a<40U*(64+256+10);a++) vvmem[a]=vvmem[a]&0x3f3f3f3f;
|
||
do_scroll(0);
|
||
|
||
outport(0x3c4,0x0802);
|
||
outport(0x3ce,0x0304);
|
||
for(a=40*64;a<40U*(64+256+10);a++) vvmem[a]=vvmem[a]&0x3f3f3f3f;
|
||
do_scroll(0);
|
||
}
|
||
|
||
char far cfpal[768*2];
|
||
int far cop_fade;
|
||
|
||
fffade(char far *pal1, char far *pal2, int frames)
|
||
{
|
||
int a,b,c;
|
||
for(a=0;a<768;a++)
|
||
{
|
||
cfpal[a]=pal1[a];
|
||
cfpal[a+768]=(pal2[a]-pal1[a])*256/frames;
|
||
}
|
||
cop_fade=frames;
|
||
}
|
||
|
||
/*
|
||
dis_sync
|
||
|
||
0 = ...
|
||
1 = fc_pres
|
||
2 = first
|
||
3 = maisema
|
||
4 = gfx
|
||
5 = music
|
||
6 = code
|
||
7 = addi
|
||
8 = exit
|
||
|
||
dis_muscode=row/order
|
||
|
||
2 ekaa = mustaa
|
||
2 fc..
|
||
3 93..
|
||
4 feidaa ineen
|
||
5 music
|
||
6 gfx
|
||
7 code
|
||
8 addi
|
||
|
||
bx=6
|
||
ax=?
|
||
int fch
|
||
cx=ord
|
||
bx=row
|
||
|
||
|
||
*/ |