void Kill_Em(int x,int y) {/*如果我方的子弹碰到敌方那么就杀死敌方*/
Tk_Link p=Tk_List;
char format_EM[10];
int flag=1;
while(p&&flag) { /*查找被我方坦克所击中的敌方坦克*/
if(x<=p->x+1&&x>=p->x-1&&y<=p->y+1&&y>=p->y-1) {
flag=0;
Draw_Tankone(p->x,p->y,Tk_No,0); /*在屏幕上擦除这个坦克（参数Tk_No表示在屏幕中擦除这个坦克）*/
Delete_Tklink(p->x,p->y); /*在坦克事件链表上删除这个坦克*/
++kill_tks; /*你所杀死的坦克数目++*/
erase_scores(); /*显示分数*/
outtextxy(520,450,itoa(kill_tks-Me_Deads,format_EM,10));
}
p=p->next;
}
}
int Check_is_zd(int x,int y) { /*检查前方是否是一个子弹，用于子弹与子弹的碰撞*/
int tx,ty,i;
int num=0;
for(i=0;i<9;i++) {
tx=x+i/3-1; ty=y+(i+3)%3-1;
if(Gm_Array[tx][ty]) ++num;
}
if(num>2) return 0;
return 1;
}
void Mul_zd(void) { /*处理子弹事件链表中的每一个子弹*/
Zd_Link p=Zd_List;
int flag_ok=1;
int x,y,type,drct,xd,yd;
int f_tp;
while(p) { /*从事件链表中依次取出子弹*/
flag_ok=1;
x=p->x; y=p->y; type=p->type; drct=p->drct;
xd=x+ct_dx[drct-1]; yd=y+ct_dy[drct-1];
if(xd<0||xd>M_Max-1||yd<0||yd>N_Max-1) flag_ok=0,f_tp=9;/*如果子弹到达了游戏的边界。。*/
else if(Gm_Array[xd][yd]) { /*检查子弹运行前方的情况*/
f_tp=Gm_Array[xd][yd];
if(Check_is_zd(xd,yd)) f_tp=8;
flag_ok=0;
}
if(flag_ok) { /*如果子弹前方没有东西则子弹继续飞行*/
Gm_Array[xd][yd]=type;
Draw_Node(xd,yd,type);
if(p->is_fst) p->is_fst=0; /*如果坦克是第一次打出子弹.....*/
else {
Gm_Array[x][y]=Dt_Zero;
Draw_Node(x,y,Dt_Zero);
}
p->x=xd; p->y=yd;
}
else {
if(type==Dt_Me&&f_tp==Dt_Em) Kill_Em(xd,yd); /*自己的子弹打到敌人则处理杀敌事件*/
else if(type==Dt_Em&&f_tp==Dt_Me) Game_Over(); /*敌人的子弹打到自己处理“游戏结束”事件*/
if(!p->is_fst) { /*处理子弹与子弹相遇的情况*/
Gm_Array[x][y]=Dt_Zero;
Draw_Node(x,y,Dt_Zero);
if(f_tp==8) {
Gm_Array[xd][yd]=Dt_Zero;
Draw_Node(xd,yd,Dt_Zero); /*销毁子弹*/
Delete_Zdlink(xd,yd);
}
}
Delete_Zdlink(x,y);
}
p=p->next;
}
}
void Control_Tank(Tk_Link p,Tk_Direct direct) {
static char Rot_lb[4][4]={9,0,-1,1,0,9,1,-1,1,-1,9,0,-1,1,0,9};
/*旋度表：9表示向前，0表示向后转，-1表示左转，1表示右转*/
char rot=Rot_lb[p->drct-1][direct-1]; /*查旋度表，根据坦克当前的方向和想要操作的方向确定坦克的行进状态*/
if(rot==9) { /*处理坦克前进*/
if(Front_Ok(p,direct)) { /*如果前方没有障碍前进*/
Move_Tank(p->x,p->y,direct);
p->x+=ct_dx[direct-1];
p->y+=ct_dy[direct-1];
}
}
else if(Check_f_again(p)) { /*如果满足旋转的条件，则旋转处理*/
Rot_Tank(p->x,p->y,rot);
p->drct=rot_d[p->drct-1][rot+1]; /*刷新方向*/
}
}
void Init_Tklink(void) { /*初始化坦克事件链表*/
Tk_List=(Tk_Link)malloc(sizeof(Tk_Node));
Tk_List->x=10; Tk_List->y=15; /*默认情况下链表中只有自己（在链表的第一个结点上）*/
Tk_List->type=Dt_Me;
Tk_List->drct=Tk_Up;
Tk_List->next=NULL;
}
void Init_Zdlink(void) { /*初始化子弹链表（为空）*/
Zd_List=NULL;
}
void Insert_Tklink(int x,int y,Dt_Type type,Tk_Direct drct) { /*在坦克事件链表上插入一个新的子弹*/
Tk_Link p=Tk_List,s;
s=(Tk_Link)malloc(sizeof(Tk_Node));
s->x=x; s->y=y; s->type=type; s->drct=drct; s->next=NULL;
while(p&&p->next) p=p->next;
p->next=s;
}
void Insert_Zdlink(int x,int y,Dt_Type type,Tk_Direct drct) {
Zd_Link p=Zd_List,s; /*在子弹链表上插入一个新的子弹*/
s=(Zd_Link)malloc(sizeof(Zd_Node));
s->x=x; s->y=y; s->type=type; s->drct=drct; s->next=NULL; s->is_fst=1;
while(p&&p->next) p=p->next;
if(p) p->next=s;
else Zd_List=s;
}
int Delete_Zdlink(int x,int y) { /*在子弹链表上删除数据为（x,y）的坦克*/
Zd_Link p=Zd_List,q;
while(p&&(p->x!=x||p->y!=y)) {
q=p; p=p->next;
}
if(p) {
if(p==Zd_List) Zd_List=Zd_List->next;
else q->next=p->next;
free(p);
return 1;
}
else return 0;
}
int Delete_Tklink(int x,int y) { /*删除一个坦克*/
Tk_Link p=Tk_List,q;
while(p&&(p->x!=x||p->y!=y)) {
q=p; p=p->next;
}
if(p) {
if(p==Tk_List) Tk_List=Tk_List->next;
else q->next=p->next;
free(p);
return 1;
}
else return 0;
}
void Delete_Allt(void) { /*删除所有的坦克*/
Tk_Link p=Tk_List;
while(p) {
Tk_List=Tk_List->next;
free(p);
p=Tk_List;
}
}
void Delete_Allz(void) { /*删除所有的子弹*/
Zd_Link p=Zd_List;
while(p) {
Zd_List=Zd_List->next;
free(p);
p=Zd_List;
}
}
void Init(void) { /*对游戏中的所有数据和数据结构进行初始化*/
int i,j;
for(i=0;i<M_Max;i++) /*对游戏矩阵初始化*/
for(j=0;j<N_Max;j++) Gm_Array[i][j]=Dt_Zero;
cs_tks=4;
kill_tks=0;
Me_Deads=0;
Init_Tklink();
Init_Zdlink();
Draw_Tankone(10,15,Tk_Up,1); /*在边框的四个角出产生4个坦克*/
Insert_Tklink(1,1,Dt_Em,Tk_Down);
Draw_Tankone(1,1,Tk_Down,0);
Insert_Tklink(1,28,Dt_Em,Tk_Down);
Draw_Tankone(1,28,Tk_Down,0);
Insert_Tklink(19,1,Dt_Em,Tk_Up);
Draw_Tankone(19,1,Tk_Up,0);
Insert_Tklink(19,28,Dt_Em,Tk_Up);
Draw_Tankone(19,28,Tk_Up,0);
}
void Move_Tank(int x,int y,Tk_Direct type) { /*按照要求的方向移动坦克*/
static char mtdata[4][7]={{0,2,4,6,8,-2,0}, /*为了提高效率采用查表法进行处理*/
{6,8,0,2,4,2,0}, /*7个数据表示所要检查或者处理的7个关键点*/
{0,6,2,4,8,0,-2}, /*4表示方向：上，下，左，右*/
{2,8,0,4,6,0,2}};
int i,tx,ty;
int t_type=Gm_Array[x][y];
for(i=0;i<5;i++) {
tx=x+mtdata[type-1][i]/3-1; ty=y+(mtdata[type-1][i]+3)%3-1; /*进行地址变换*/
if(!(i/2)) {
Draw_Node(tx,ty,Dt_Me);
Gm_Array[tx][ty]=t_type;
}
else {
Draw_Node(tx,ty,Dt_Zero);
Gm_Array[tx][ty]=Dt_Zero;
}
}
tx=x+mtdata[type-1][5]; ty=y+mtdata[type-1][6];
Draw_Node(tx,ty,Dt_Me);
Gm_Array[tx][ty]=t_type;
}
void Draw_Node(int x,int y,Dt_Type type) { /*在屏幕上画一个基础方块（由方块组成了坦克）*/
int x_x=x*20+10;
int y_y=y*20+10;
if(type==Dt_Zero) setfillstyle(SOLID_FILL,BLACK);
else setfillstyle(SOLID_FILL,YELLOW);
bar(y_y+2,x_x+2,y_y+18,x_x+18);
}
/*在屏幕上画一个坦克（当方向为no的时候表示擦除坦克）*/
void Draw_Tankone(int x,int y,Tk_Direct d,int who) {/*who 0:敌人,1:自己*/
static Dt_Type dtdata[5][9]={{0,0,0,0,0,0,0,0,0}, /*全0表示不画坦克（擦除坦克）*/
{0,1,0,1,1,1,1,0,1}, /*一个向上的坦克模型*/
{1,0,1,1,1,1,0,1,0}, /*一个向下的坦克*/
{0,1,1,1,1,0,0,1,1}, /*一个向左的坦克*/
{1,1,0,0,1,1,1,1,0}}; /*一个向右的坦克*/
/*例如一个向上的坦克：0，1，0，1，1，1，1，0，1表示 0 1 0
1 1 1
1 0 1 */
int i=0,tx,ty;
for(i=0;i<9;i++) {
tx=x+i/3-1; ty=y+(i+3)%3-1; /*进行地址变换*/
Draw_Node(tx,ty,dtdata[d][i]);
if(dtdata[d][i]) Gm_Array[tx][ty]=who+1; /*修改游戏矩阵*/
else Gm_Array[tx][ty]=Dt_Zero;
}
}
void Rot_Tank(int x,int y,int LR) { /*在屏幕上旋转一个坦克*/
static char tk[8]={2,1,0,3,6,7,8,5}; /*坦克边缘数据（因为旋转一个坦克只需要旋转它边缘部分*/
static char tk_l[8]={8,5,2,1,0,3,6,7}; /*向左旋转的检查位置数据（需要对照tk表）*/
static char tk_r[8]={0,3,6,7,8,5,2,1}; /*向右旋转的检查位置数据*/
static char tk_bk[8]={6,7,8,5,2,1,0,3}; /*向后*/
Dt_Type tk_tp[8];
int i=0,tx,ty;
Dt_Type disp;
for(i=0;i<8;i++) {
if(LR==-1) tx=x+tk_l[i]/3-1, ty=y+(tk_l[i]+3)%3-1; /*如果是左旋，则查tk_l表进行地址变换*/
else if(LR==0) tx=x+tk_bk[i]/3-1, ty=y+(tk_bk[i]+3)%3-1;
else if(LR==1) tx=x+tk_r[i]/3-1, ty=y+(tk_r[i]+3)%3-1;
tk_tp[i]=Gm_Array[tx][ty];
tx=x+tk[i]/3-1; ty=y+(tk[i]+3)%3-1;
Draw_Node(tx,ty,tk_tp[i]);
}
for(i=0;i<8;i++) { /*旋转完了，改变游戏矩阵*/
tx=x+tk[i]/3-1; ty=y+(tk[i]+3)%3-1;
Gm_Array[tx][ty]=tk_tp[i];
}
}
