/* 这里把三个文件放在了一起,编译时需要把本文件分成三 */
/*部分，文件名分别为：13H.H,TIMER.H,SHIP.C。其中13H.H是 */
/*VGA 13H 模式下作图的一些基本函数。本程序用申请的64000 */
/*字节作为后台活动页，作图完成后一次性拷贝到显示缓冲区。 */
/*TIMER.H是整个程序的时钟系统。SHIP.C是主程序。 */ /*********************************************************/
/* 文件：13H.H */
/*********************************************************/
/*********************************************************/ /* 此处定义了一些通用的宏 */
# define BYTE unsigned char
# define BOOL BYTE
# define WORD unsigned int
# define DWORD unsigned long # define TRUE 1
# define FALSE !TRUE /* BIOS 8*8 西文字库的段地址和偏移量 */
WORD FONT_SEG;
WORD FONT_OFF; /* 显示后台活动页地址 */
void far * Video; /* 获取BIOS 8*8 西文字库的段地址和偏移量 */
void GetFontAdd()
{
struct REGPACK regs;
regs.r_bx=0x0300;
regs.r_ax=0x1130;
intr(0x10,®s);
FONT_SEG=regs.r_es;
FONT_OFF=regs.r_bp;
} /* 向后台活动页写像素 */
void Pset(int x,int y,BYTE color)
{
if ((x>=0)&&(x<320)&&(y>=0)&&(y<200))
*((BYTE far*)Video+y*320+x)=color;
} /* 等待键盘输入 */
void wait()
{
_AX=0;
geninterrupt(0x16);
} /* 设置VGA 13H模式 */
void setmode()
{
_AX=0x13;
geninterrupt(0x10);
GetFontAdd();
} /* 设置文本模式 */
void closemode()
{
_AX=0x3;
geninterrupt(0x10);
} /* 设置调色板 */
void setpal(int Color,BYTE r,BYTE g,BYTE b)
{
outportb(0x3c8,Color);
outportb(0x3c9,r);
outportb(0x3c9,g);
outportb(0x3c9,b);
} /* 屏幕定位（用于输出字符）*/
void locate(int Line,int Col)
{
_DH=Line;
_DL=Col;
_AH=2;
_BX=0;
geninterrupt(0x10);
} /* 从键盘缓冲区内直接读出扫描码 */
BYTE ScanKey(void)
{
int start,end;
WORD key=0;
start=peek(0,0x41a);
end=peek(0,0x41c);
if (start==end) return(0);
else
{
key=peek(0x40,start);
start+=2;
if (start==0x3e) start=0x1e;
poke(0x40,0x1a,start);
return(key/256);
}
} /* 画背景 */
void ClearScreen()
{
int x,y;
for (y=0;y<5;y++) for (x=0;x<320;x++) Pset(x,y,16);
for (y=5;y<10;y++) for (x=0;x<320;x++) Pset(x,y,104);
for (y=10;y<15;y++) for (x=0;x<320;x++) Pset(x,y,33);
for (y=15;y<20;y++) for (x=0;x<320;x++) Pset(x,y,103);
for (y=20;y<25;y++) for (x=0;x<320;x++) Pset(x,y,32);
for (y=25;y<30;y++) for (x=0;x<320;x++) Pset(x,y,64);
for (y=30;y<40;y++) for (x=0;x<320;x++) Pset(x,y,99);
for (y=40;y<60;y++) for (x=0;x<320;x++) Pset(x,y,97);
for (y=60;y<100;y++) for (x=0;x<320;x++) Pset(x,y,53);
for (y=100;y<200;y++) for (x=0;x<320;x++) Pset(x,y,2);
} /* 刷新屏幕 */
void ReFresh(void)
{
movedata(FP_SEG(Video),FP_OFF(Video),0xa000,0,64000);
} /* 输出字符到显示后台活动页 */
void OutChar(int x0,int y0,int ch,BYTE Color)
{
int x,y;
BYTE c;
for (y=0;y<8;y++)
{
c=peekb(FONT_SEG,FONT_OFF+ch*8+y);
for (x=0;x<8;x++)
{
if (c&(1<<(7-x))) Pset(x+x0*8,y+y0*8,Color);
}
}
} /* 输出字符串到显示后台活动页 */
void OutString(int x,int y,char *p,BYTE Color)
{
while (*p)
{
OutChar(x++,y,*p++,Color);
if (x==40)
{
x=0;
y++;
}
}
}
/*********************************************************/
/* 文件：TIMER.H */
/*********************************************************/
/*********************************************************/
/* 系统可用计时器的最大数目 */
# define MAXTIMER 10 /* 计时器结构 */
struct TM
{
DWORD Interval; /* 间隔 */
DWORD LastTimer; /* 上次时间发生时间*/
BOOL Enable; /* 活动 */
BOOL Used; /* 可用 */
void (*Pointer)(); /* 事件远指针 */
}; struct TM tmTM[MAXTIMER+1];
int TimerUsed=0; /* 获取BIOS计数器数值 */
DWORD BiosTimer(void)
{
DWORD BIOSTIMER=0;
BIOSTIMER=peek(0x0,0x46e);
BIOSTIMER<<=8;
BIOSTIMER+=peek(0x0,0x46c);
return (BIOSTIMER);
} /* 时间事件（时钟系统核心） */
void TimerEvent()
{
int i;
DWORD TimerDiff; for (i=1;i<=MAXTIMER;i++)
{
if (tmTM[i].Used&&tmTM[i].Enable)
{
TimerDiff=BiosTimer()-tmTM[i].LastTimer;
if (tmTM[i].Interval<=TimerDiff)
{
tmTM[i].Pointer();
tmTM[i].LastTimer=BiosTimer();
}
}
}
} /* 创建一个时钟（成功返回时钟的句柄，否则返回NULL） */
int CreateTimer(DWORD Interval,void (*Pointer)())
{
int i=0;
if (TimerUsed==MAXTIMER) return NULL; while (tmTM[++i].Used); tmTM[i].Pointer=Pointer;
tmTM[i].Interval=Interval;
tmTM[i].Enable=TRUE;
tmTM[i].Used=TRUE;
tmTM[i].LastTimer=BiosTimer(); TimerUsed++;
return i;
} /* 删除一个时钟 */
void KillTimer(int *TimerID)
{
if (tmTM[*TimerID].Used)
{
TimerUsed--;
tmTM[*TimerID].Used=FALSE;
}
*TimerID=0;
} /* 删除所有时钟 */
void KillAllTimer()
{
int i;
for (i=0;i<=MAXTIMER;i++) tmTM[i].Used=FALSE;
TimerUsed=0;
} /*********************************************************/
/* 文件：SHIP.C */
/*********************************************************/
/*********************************************************/ # include <dos.h>
# include "13h.h"
# include <time.h>
# include <stdio.h>
# include "timer.h"
# include <alloc.h>
# include <stdlib.h> struct stBOMB
{
int x;
int y;
BOOL Used;
}; struct stEXPL
{
int x;
int y;
BYTE Num;
BOOL Used;
}; struct stSHIP
{
int x;
int y;
BOOL Used;
BYTE Dir;
BYTE Type;
}; struct stTORP
{
int x;
int y;
BOOL Used;
}; struct stBOMB bbBomb[21];
struct stSHIP spShip[21];
struct stTORP tpTorp[21];
struct stEXPL elExpl[21]; int BombUsed=0;
int ShipUsed=0;
int TorpUsed=0;
int ExplUsed=0; int MAXBOMB=5;
int MAXSHIP=3;
int MAXTORP=5;
int MAXEXPL=5; int ID_Timer[MAXTIMER+1];
int ID_Bomb[21];
int ID_Ship[21];
int ID_Torp[21];
int ID_Expl[21]; BOOL DISP=TRUE;
BOOL CLS=FALSE;
BOOL bPaint=FALSE;
BOOL ALIVE=TRUE;
BOOL SOUND=TRUE;
BOOL Flash=FALSE;
BOOL DONE=FALSE;
BYTE SHIP[2][32][64];
BYTE BOMB[32][32];
BYTE TORP[16][16];
BYTE PAL[256][3];
BYTE STR[80];
BYTE far * PIC_EXPL;
BYTE far * PIC_SHIP;
void far * Back1;
void far * Back2; int MyX=0;
int MyY=0;
int Life=3;
int Score=25;
int LevelScore=25;
int Level=0;
int Step=0; char *Info="\
\
\
Welcome to play this game!\
\n\
\n\
\n\
In this game,you will drive a warship to fight with\n\
the submarines.\n\n\
KEYS:\n\
''Left'' and ''Right'' keys to move your warship.\n\
''Space bar'' or ''Ctrl'' key to send bombs.\n\
''S'' key is a sound switch.\n\
''D'' key is a state switch.\n\n\
\n\
\n\n\
GOOD LUCK!\0"; /* 调色板渐入 */
void StepIn()
{
int i;
for (i=0;i<256;i++) setpal(i,PAL[i][0]*Step/64,PAL[i][1]*Step/64,PAL[i][2]*Step/64);
Step++;
if (Step>64) KillAllTimer();
} /* 调色板渐出 */
void StepOut()
{
int i;
for (i=0;i<256;i++) setpal(i,PAL[i][0]*Step/64,PAL[i][1]*Step/64,PAL[i][2]*Step/64);
Step--;
if (Step<1) KillAllTimer();
}
void OutInfo()
{
if (*Info++)
{
sound(1000);
printf("%c",*(Info-1));
nosound();
}
else
KillAllTimer();
} /* 显示开始画面 */
void Logo()
{
FILE *bmp;
int i,r,g,b,x,y; setmode();
bmp=fopen("logo.bmp","rb");
fseek(bmp,54,SEEK_SET);
for (i=0;i<256;i++)
{
PAL[i][2]=fgetc(bmp)>>2;
PAL[i][1]=fgetc(bmp)>>2;
PAL[i][0]=fgetc(bmp)>>2;
fgetc(bmp);
setpal(i,0,0,0);
} for (y=0;y<200;y++)
for (x=0;x<320;x++) pokeb(0xa000,y*320+x,fgetc(bmp)); fclose(bmp);
CreateTimer(1,StepIn);
while (ScanKey()!=57&&TimerUsed) TimerEvent();
Step=64;
StepIn();
wait();
CreateTimer(1,StepOut);
while (ScanKey()!=57&&TimerUsed) TimerEvent();
Step=0;
StepOut();
closemode();
CreateTimer(2,OutInfo);
locate(6,26);
while (ScanKey()!=57&&TimerUsed) TimerEvent();
while (*Info++) printf("%c",*(Info-1));
wait();
}
void KillSelf()
{
if (SOUND)
{
sound(1000);
delay(1000);
nosound();
}
Life--;
if (Life<0) ALIVE=FALSE;
} /* 设置系统所有调色板 */
void SetAllPal()
{
FILE *act;
int i,r,g,b; act=fopen("comm.act","rb");
for (i=0;i<256;i++)
{
r=fgetc(act)>>2;
g=fgetc(act)>>2;
b=fgetc(act)>>2;
setpal(i,r,g,b);
}
fclose(act);
} /* 从位图中读出各个物体的形状 */
void readboat()
{
FILE *bmp;
int x,y; bmp=fopen("boat.bmp","rb");
fseek(bmp,1078,SEEK_SET);
for (y=0;y<32;y++)
{
for (x=0;x<64;x++) SHIP[0][31-y][x]=fgetc(bmp);
for (x=0;x<64;x++) SHIP[1][31-y][x]=fgetc(bmp);
}
fclose(bmp);
}
void readbomb()
{
FILE *bmp;
int x,y; bmp=fopen("bomb.bmp","rb");
fseek(bmp,516,SEEK_SET);
for (y=0;y<32;y++)
for (x=0;x<32;x++) BOMB[31-y][x]=fgetc(bmp);
fclose(bmp);
}
void readtorp()
{
FILE *bmp;
int x,y; bmp=fopen("torp.bmp","rb");
fseek(bmp,516,SEEK_SET);
for (y=0;y<16;y++)
for (x=0;x<16;x++) TORP[15-y][x]=fgetc(bmp);
fclose(bmp);
}
void readship()
{
FILE *bmp;
long i; PIC_SHIP=Back2;
bmp=fopen("ship.bmp","rb");
fseek(bmp,1078,SEEK_SET);
for (i=0;i<10080;i++)
*PIC_SHIP++=fgetc(bmp);
fclose(bmp);
}
void readexpl()
{
FILE *bmp;
long i; PIC_EXPL=Back1;
bmp=fopen("expl.bmp","rb");
fseek(bmp,1078,SEEK_SET);
for (i=0;i<59520;i++)
*PIC_EXPL++=fgetc(bmp);
fclose(bmp);
}
void bomb(int xx,int yy)
{
int y,x;
for (y=0;y<32;y++)
for (x=0;x<32;x++)
if (BOMB[y][x]) Pset(x+xx,y+yy,BOMB[y][x]);
}
void boat(int xx,int yy,int num)
{
int y,x;
for (y=0;y<32;y++)
for (x=0;x<64;x++)
if (SHIP[num][y][x]) Pset(x+xx,y+yy,SHIP[num][y][x]);
}
void torp(int xx,int yy)
{
int y,x;
for (y=0;y<16;y++)
for (x=0;x<16;x++)
if (TORP[y][x]) Pset(x+xx,y+yy,TORP[y][x]);
}
void ship(int xx,int yy,BYTE Type,BYTE Dir)
{
int x,y; bPaint=TRUE;
PIC_SHIP=Back2;
PIC_SHIP+=(long)(Type*2+Dir)*63l;
for (y=0;y<20;y++)
{
for (x=0;x<63;x++)
if (*PIC_SHIP++) Pset(x+xx,19-y+yy,*(PIC_SHIP-1));
PIC_SHIP+=441l;
}
} /* 物体系统，创建各个物体，删除各个物体，画出各个物体 */
int CreateTorp(int x,int y)
{
int i=0; if (TorpUsed==MAXTORP) return NULL; while (tpTorp[++i].Used); tpTorp[i].x=x;
tpTorp[i].y=y;
tpTorp[i].Used=TRUE;
TorpUsed++;
return i;
}
void KillTorp(int *TorpID)
{
if (tpTorp[*TorpID].Used)
{
TorpUsed--;
tpTorp[*TorpID].Used=FALSE;
}
*TorpID=NULL;
}
void DrawTorp()
{
int i=0;
int ID; while (!tpTorp[++i].Used); if (i==MAXTORP+1) return;
bPaint=TRUE;
if (!CLS)
{
ClearScreen(2);
CLS=TRUE;
}
for (i=1;i<=MAXTORP;i++)
{
if (tpTorp[i].Used)
{
if (tpTorp[i].y<34)
{
KillTorp(&ID_Torp[i]);
/* 我方船只被炸 */
if (tpTorp[i].x-MyX>10&&tpTorp[i].x-MyX<50)
{
ID=CreateExpl(tpTorp[i].x-23,tpTorp[i].y-26);
if (ID) ID_Expl[ID]=ID;
KillSelf();
}
}
torp(tpTorp[i].x,tpTorp[i].y);
tpTorp[i].y--;
}
} } int CreateShip(int y,BYTE Type)
{
int i=0; if (ShipUsed==MAXSHIP) return NULL; while (spShip[++i].Used); spShip[i].y=y;
spShip[i].Used=TRUE;
spShip[i].Dir=random(2);
spShip[i].Type=Type;
spShip[i].x=-64;
if (!spShip[i].Dir) spShip[i].x=320;
ShipUsed++;
return i;
}
void KillShip(int *ShipID)
{
if (spShip[*ShipID].Used)
{
ShipUsed--;
spShip[*ShipID].Used=FALSE;
}
*ShipID=NULL;
}
void DrawShip()
{
int i=0;
int ID; while (!spShip[++i].Used); if (i==MAXSHIP+1) return;
bPaint=TRUE;
if (!CLS)
{
ClearScreen(2);
CLS=TRUE;
}
for (i=1;i<=MAXSHIP;i++)
{
if (spShip[i].Used)
{
if (random(10)==3)
{
ID=CreateTorp(spShip[i].x+32,spShip[i].y);
if (ID) ID_Torp[ID]=ID;
}
ship(spShip[i].x,spShip[i].y,spShip[i].Type,spShip[i].Dir);
if (spShip[i].Dir)
{
spShip[i].x+=2;
if (spShip[i].x>320) KillShip(&ID_Ship[i]);
}
else
{
spShip[i].x-=2;
if (spShip[i].x<-64) KillShip(&ID_Ship[i]);
}
}
} } int CreateExpl(int x,int y)
{
int i=0; if (ExplUsed==MAXEXPL) return NULL; while (elExpl[++i].Used); elExpl[i].x=x;
elExpl[i].y=y;
elExpl[i].Used=TRUE;
elExpl[i].Num=0;
ExplUsed++;
return i;
}
void KillExpl(int *ExplID)
{
if (elExpl[*ExplID].Used)
{
ExplUsed--;
elExpl[*ExplID].Used=FALSE;
elExpl[*ExplID].Num=0;
}
*ExplID=NULL;
} void DrawExpl()
{
int x,y,i=0; while (!elExpl[++i].Used); if (i==MAXEXPL+1) return;
bPaint=TRUE;
if (!CLS)
{
ClearScreen(2);
CLS=TRUE;
}
for (i=1;i<=MAXEXPL;i++)
{
if (elExpl[i].Num==15) KillExpl(&ID_Expl[i]);
if (elExpl[i].Used)
{
bPaint=TRUE;
PIC_EXPL=Back1;
PIC_EXPL+=(long)elExpl[i].Num*62l;
elExpl[i].Num++;
for (y=0;y<64;y++)
{
if (SOUND) sound(random(2000)+500);
for (x=0;x<62;x++)
if (*PIC_EXPL++) Pset(x+elExpl[i].x,(63-y)+elExpl[i].y,*(PIC_EXPL-1));
PIC_EXPL+=870l;
}
nosound();
}
}
}
int CreateBomb(int x,int y)
{
int i=0;
if (BombUsed==MAXBOMB) return NULL; while (bbBomb[++i].Used); bbBomb[i].x=x;
bbBomb[i].y=y;
bbBomb[i].Used=TRUE;
BombUsed++;
return i;
}
void KillBomb(int *BombID)
{
if (bbBomb[*BombID].Used)
{
BombUsed--;
bbBomb[*BombID].Used=FALSE;
}
*BombID=NULL;
}
void DrawBomb()
{
int i=0,j;
int ID; while (!bbBomb[++i].Used); if (i==MAXBOMB+1) return;
bPaint=TRUE;
if (!CLS)
{
ClearScreen(2);
CLS=TRUE;
}
for (i=1;i<=MAXBOMB;i++)
{
if (bbBomb[i].Used)
{
for (j=1;j<=MAXSHIP;j++)
{
/* 敌方潜艇被炸 */
if (spShip[j].Used&&abs(spShip[j].y-bbBomb[i].y)<16&&abs(spShip[j].x-bbBomb[i].x+16)<32)
{
switch (spShip[j].Type)
{
case 0:
Score+=10;
LevelScore+=10;
break;
case 1:
Score+=20;
LevelScore+=20;
break;
case 2:
Score+=40;
LevelScore+=40;
break;
case 3:
Life++;
break;
}
KillShip(&ID_Ship[j]);
KillBomb(&ID_Bomb[i]);
ID=CreateExpl(bbBomb[i].x-20,bbBomb[i].y);
if (ID) ID_Expl[ID]=ID;
}
}
bomb(bbBomb[i].x,bbBomb[i].y);
bbBomb[i].y+=2;
if (bbBomb[i].y>170) KillBomb(&ID_Bomb[i]);
}
}
} /* 画出各个物体 */
void DrawObject()
{
CLS=FALSE;
DrawBomb();
DrawShip();
DrawTorp();
if (!bPaint) return;
if (!CLS) ClearScreen(2);
boat(MyX,2,Flash);
DrawExpl();
if (DISP)
{
OutString(0,0,"LIFE:",96);
itoa(Life+1,STR,10);
OutString(5,0,STR,96);
if (SOUND) OutString(7,0,"Sound",2);
itoa(MAXBOMB-BombUsed,STR,10);
OutString(13,0,"BOMB:",89);
OutString(18,0,STR,89);
itoa(Level+1,STR,10);
OutString(21,0,"LEVEL:",13);
OutString(27,0,STR,13);
OutString(30,0,"SCORE:",52);
itoa(Score,STR,10);
OutString(36,0,STR,52);
}
ReFresh();
} /* 初始化游戏数据 */
void InitGame()
{
int i; BombUsed=0;
ShipUsed=0;
TorpUsed=0;
ExplUsed=0; for (i=1;i<=MAXSHIP;i++) KillShip(&ID_Ship[i]);
for (i=1;i<=MAXBOMB;i++) KillBomb(&ID_Bomb[i]);
for (i=1;i<=MAXTORP;i++) KillTorp(&ID_Torp[i]);
for (i=1;i<=MAXEXPL;i++) KillExpl(&ID_Expl[i]); Flash=FALSE;
ALIVE=TRUE;
DONE=FALSE;
MyX=0;
MyY=0;
Life=3;
Score=25;
LevelScore=25;
Level=0;
} /* 游戏主过程 */
void GameMain()
{
BYTE bKey;
int ShipType;
int i,ID; bKey=ScanKey();
/* 键盘循环 */
while (bKey!=1&&ALIVE)
{
/* 时钟时间处理 */
TimerEvent();
if (Life==0)
Flash=!Flash;
else
Flash=FALSE;
/* 创建敌方舰艇 */
if (random(10)==4)
{
i=random(100);
if (i<50)
ShipType=0;
else if (i>=50&&i<75)
ShipType=1;
else if (i>=75&&i<95)
ShipType=2;
else if (i>95)
ShipType=3;
ID=CreateShip(random(6)*20+70,ShipType);
if (ID) ID_Ship[ID]=ID;
}
switch (bKey)
{
case 115:
case 75:
bPaint=TRUE;
MyX-=4;
if (MyX<0) MyX=0;
break;
case 2:
Life++;
break;
case 3:
MAXBOMB++;
if (MAXBOMB>20) MAXBOMB=20;
case 77:
case 116:
bPaint=TRUE;
MyX+=4;
if (MyX>256) MyX=256;
break;
case 31:
SOUND=!SOUND;
break;
case 32:
DISP=!DISP;
break;
case 57:
if (LevelScore==0) break;
/* 发出炮弹 */
ID=CreateBomb(MyX+20,32);
if (ID)
{
Score-=5;
LevelScore-=5;
ID_Bomb[ID]=ID;
}
}
bKey=ScanKey();
if (LevelScore>=500)
{
Level++;
LevelScore=0;
if (Level<15)
OutString(15,10,"Next Level!",13);
else
{
OutString(14,10,"Very Good!!",13);
DONE=TRUE;
bKey=1;
}
ReFresh();
wait();
}
MAXSHIP=Level+3;
MAXTORP=Level+5;
MAXEXPL=Level+5;
} }
void main()
{
BOOL QUIT=FALSE;
int nKey; /* 申请内存 */
Video=farmalloc(64000);
if (Video==NULL)
{
printf("Not enough Memory\n");
exit(0);
} Back1=farmalloc(59520);
if (Back1==NULL)
{
printf("Not enough Memory\n");
farfree(Video);
exit(0);
} Back2=farmalloc(10080);
if (Back2==NULL)
{
printf("Not enough Memory\n");
farfree(Back2);
farfree(Video);
exit(0);
} randomize();
Logo();
setmode();
SetAllPal();
readboat();
readship();
readexpl();
readbomb();
readtorp();
ClearScreen(2);
boat(0,2,0);
KillAllTimer();
CreateTimer(1,DrawObject);
ReFresh(); while (!QUIT)
{
GameMain();
bPaint=TRUE;
if (!ALIVE)
OutString(15,10,"GAME OVER",96);
OutString(14,12,"QUIT? (Y/N)",89);
ReFresh();
nKey=getch();
while (!(nKey==''Y''||nKey==''y''||nKey==''N''||nKey==''n''))
{
nKey=getch();
}
if (nKey==''Y''||nKey==''y'') QUIT=TRUE;
if (!ALIVE||DONE) InitGame();
}
closemode();
KillAllTimer();
farfree(Video);
farfree(Back1);
farfree(Back2);
printf("***NOBLE STUDIO***Written By FanobleMeng--2001.12");
} 下 载 >>>> |
