潜艇大战游戏代码

游戏编写 c编写潜艇大战代码。初学c开发游戏的同学使用。

# include 
# include “13h.h“
# include 
# include 
# include “timer.h“
# include 
# include 

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 gameyou 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（iPAL[i][0]*Step/64PAL[i][1]*Step/64PAL[i][2]*Step/64）;
  Step++;
  if （Step>64） 
	  /*  */
	  KillAllTimer（）;
}

/*  */
void StepOut（）
{
  int i;
  for （i=0;i<256;i++） 
	  /*  */
	  setpal（iPAL[i][0]*Step/64PAL[i][1]*Step/64PAL[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  irgbxy;

  setmode（）;
  bmp=fopen（“logo.bmp““rb“）;
  fseek（bmp54SEEK_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（i000）;
  }

  for （y=0;y<200;y++）
      for （x=0;x<320;x++） 
		  pokeb（0xa000y*320+xfgetc（bmp））;

  fclose（bmp）;
  CreateTimer（1StepIn）;		
  while （ScanKey（）!=57&&TimerUsed） 
	  TimerEvent（）;
  Step=64;
  StepIn（）;
  wait（）;
  CreateTimer（1StepOut）;
  while （ScanKey（）!=57&&TimerUsed） TimerEvent（）;
  Step=0;
  StepOut（）;
  closemode（）;
  CreateTimer（2OutInfo）;
  locate（626）;
  while （ScanKey（）!=57&&TimerUsed） 
	  TimerEvent（）;
  while （*Info++） 
	  printf（“%c“*（Info-1））;
  wait（）;
}

void KillSelf（）
{
  if （SOUND

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       2423  2004-05-11 19:35  08-潜艇大战游戏\13H.H

     文件       5174  2001-12-15 19:09  08-潜艇大战游戏\boat.bmp

     文件       1540  2001-12-15 19:03  08-潜艇大战游戏\bomb.bmp

     文件      60726  2001-12-15 19:08  08-潜艇大战游戏\expl.bmp

     文件      65080  2003-10-29 19:49  08-潜艇大战游戏\Logo.bmp

     文件      65080  2011-04-13 08:57  08-潜艇大战游戏\Logo1.bmp

     文件     180054  2003-10-29 19:23  08-潜艇大战游戏\ms_submarine.bmp

     文件      24537  2003-10-29 19:00  08-潜艇大战游戏\ms_submarine.jpg

     文件      11158  2001-12-15 19:09  08-潜艇大战游戏\SHIP.BMP

     文件      13763  2004-05-11 19:17  08-潜艇大战游戏\ship.c

     文件      43921  2004-05-11 19:36  08-潜艇大战游戏\ship.exe

    ..A.SH.     24576  2011-05-05 11:34  08-潜艇大战游戏\Thumbs.db

     文件       1333  2004-05-11 19:23  08-潜艇大战游戏\TIMER.H

     文件        772  2001-12-15 19:03  08-潜艇大战游戏\torp.bmp

     目录          0  2013-03-02 20:24  08-潜艇大战游戏

----------- ---------  ---------- -----  ----

               500137                    15