C语言实现COLOR LINEZ游戏

/*===========================================================================
预处理部分
===========================================================================*/

#define NEO_temp_dir_unused
#define BOARD_COLOR 7

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "neo.h"

/*===========================================================================
全局变量部分
===========================================================================*/

char chesscolor[9][9]={0}; /* 定义棋盘棋子颜色 */
char chessboard[9][9]; /* 定义棋盘空位 */
long grade=0; /* 分数 */

/*===========================================================================
函数部分
===========================================================================*/
/*===========================================================================
检查棋盘是否已满 满返回1,不满返回0.
===========================================================================*/

int boardfull(void) {
　 int i,t; /* 临时计数 */
　 for(i=0;i<9;i++)
　　　 for(t=0;t<9;t++) if(chessboard[i][t]==1) return 0;
　 return 1;
}

/*===========================================================================
随机生成棋子.
===========================================================================*/

void buildchess(void) {
　 int x,y;
　 do {
　　　 x=rand()%9;
　　　 y=rand()%9;
　 }while(chesscolor[y][x]!=0);
　 chesscolor[y][x]=rand()%7+1;
　 chessboard[y][x]=0;
　 delchess(y,x);
}

/*===========================================================================
绘制整个棋盘(包括棋子).
===========================================================================*/

void drawboard(void) {
　 int i,t; /* 临时计数 */
　 for(i=20;i<420;i+=40) hline(20,i,380,BOARD_COLOR);
　 for(i=20;i<420;i+=40) vline(i,20,380,BOARD_COLOR);
　 for(i=0;i<9;i++)
　　　 for(t=0;t<9;t++)
　　　　　 circlefill(t*40+40,i*40+40,12,chesscolor[i][t]);
}

/*===========================================================================
判断位于第x行,y列的棋子是否能移动到第to_x行,to_y列,可以返回1,否则返回0.
===========================================================================*/

int canmove(int x,int y,int to_x,int to_y) {
　 if(x==to_x && y==to_y) return 1;
　 chessboard[x][y]=0;
　 if(chessboard[x+1][y] && x<8)
　　　 if(canmove(x+1,y,to_x,to_y)) {
　　　　　 chessboard[x][y]=1;
　　　　　 return 1;
　　　 }
　 if(chessboard[x-1][y] && x>0)
　　　 if(canmove(x-1,y,to_x,to_y)) {
　　　　　 chessboard[x][y]=1;
　　　　　 return 1;
　　　 }
　 if(chessboard[x][y+1] && y<8)
　　　 if(canmove(x,y+1,to_x,to_y)) {
　　　　　 chessboard[x][y]=1;
　　　　　 return 1;
　　　 }
　 if(chessboard[x][y-1] && y>0)
　　　 if(canmove(x,y-1,to_x,to_y)) {
　　　　　 chessboard[x][y]=1;
　　　　　 return 1;
　　　 }
　 chessboard[x][y]=1;
　 return 0;
}

/*===========================================================================
判断新增棋子后是否可以消去棋子,可以则消去并返回1,否则返回0.
===========================================================================*/

int delchess(int x,int y) {
　 int i,j; /* 临时计数 */
　 int sum=0;
　 /* 消除竖行 */
　 for(i=x;i<9;i++) {
　　　 if(chesscolor[x][y]!=chesscolor[i][y]) break;
　　　 sum++;
　 }
　 for(i=x;i>-1;i--) {
　　　 if(chesscolor[x][y]!=chesscolor[i][y]) break;
　　　 sum++;
　 }
　 if(sum>5) {
　　　 for(i=x+1;i<9;i++) {
　　　　　 if(chesscolor[x][y]!=chesscolor[i][y]) break;
　　　　　 chesscolor[i][y]=0;
　　　　　 chessboard[i][y]=1;
　　　 }
　　　 for(i=x-1;i>-1;i--) {
　　　　　 if(chesscolor[x][y]!=chesscolor[i][y]) break;
　　　　　 chesscolor[i][y]=0;
　　　　　 chessboard[i][y]=1;
　　　 }
　　　 chesscolor[x][y]=0;
　　　 chessboard[x][y]=1;
　　　 return 1;
　 }
　 sum=0;
　 /* 消除横行 */
　 for(i=y;i<9;i++) {
　　　 if(chesscolor[x][y]!=chesscolor[x][i]) break;
　　　 sum++;
　 }
　 for(i=y;i>-1;i--) {
　　　 if(chesscolor[x][y]!=chesscolor[x][i]) break;
　　　 sum++;
　 }
　 if(sum>5) {
　　　 for(i=y+1;i<9;i++) {
　　　　　 if(chesscolor[x][y]!=chesscolor[x][i]) break;
　　　　　 chesscolor[x][i]=0;
　　　　　 chessboard[x][i]=1;
　　　 }
　　　 for(i=y-1;i>-1;i--) {
　　　　　 if(chesscolor[x][y]!=chesscolor[x][i]) break;
　　　　　 chesscolor[x][i]=0;
　　　　　 chessboard[x][i]=1;
　　　 }
　　　 chesscolor[x][y]=0;
　　　 chessboard[x][y]=1;
　　　 return 1;
　 }
　 sum=0;
　 /* 消除斜行( ) */
　 for(i=x,j=y;(i<9)&&(j<9);i++,j++) {
　　　 if(chesscolor[x][y]!=chesscolor[i][j]) break;
　　　 sum++;
　 }
　 for(i=x,j=y;(i>-1)&&(j>-1);i--,j--) {
　　　 if(chesscolor[x][y]!=chesscolor[i][j]) break;
　　　 sum++;
　 }
　 if(sum>5) {
　　　 for(i=x+1,j=y+1;(i<9)&&(j<9);i++,j++) {
　　　　　 if(chesscolor[x][y]!=chesscolor[i][j]) break;
　　　　　 chesscolor[i][j]=0;
　　　　　 chessboard[i][j]=1;
　　　 }
　　　 for(i=x-1,j=y-1;(i>-1)&&(j>-1);i--,j--) {
　　　　　 if(chesscolor[x][y]!=chesscolor[i][j]) break;
　　　　　 chesscolor[i][j]=0;
　　　　　 chessboard[i][j]=1;
　　　 }
　　　 chesscolor[x][y]=0;
　　　 chessboard[x][y]=1;
　　　 return 1;
　 }
　 sum=0;
　 /* 消除斜行( / ) */
　 for(i=x,j=y;(i<9)&&(j>-1);i++,j--) {
　　　 if(chesscolor[x][y]!=chesscolor[i][j]) break;
　　　 sum++;
　 }
　 for(i=x,j=y;(i>-1)&&(j<9);i--,j++) {
　　　 if(chesscolor[x][y]!=chesscolor[i][j]) break;
　　　 sum++;
　 }
　 if(sum>5) {
　　　 for(i=x+1,j=y-1;(i<9)&&(j>-1);i++,j--) {
　　　　　 if(chesscolor[x][y]!=chesscolor[i][j]) break;
　　　　　 chesscolor[i][j]=0;
　　　　　 chessboard[i][j]=1;
　　　 }
　　　 for(i=x-1,j=y+1;(i>-1)&&(j<9);i--,j++) {
　　　　　 if(chesscolor[x][y]!=chesscolor[i][j]) break;
　　　　　 chesscolor[i][j]=0;
　　　　　 chessboard[i][j]=1;
　　　 }
　　　 chesscolor[x][y]=0;
　　　 chessboard[x][y]=1;
　　　 return 1;
　 }
　 return 0;
}

/*===========================================================================
移动棋子.
===========================================================================*/

void movechess(void) {
　 int mousex,mousey;
　 int mousetox,mousetoy;
　 while(1) {
　　　 scare_mouse();
　　　 drawboard(); /* 绘制棋盘 */
　　　 rectfill(0,0,640,16,0);
　　　 neo_printf(0,0,"当前分数:%ld",grade);
　　　 unscare_mouse();
　　　 while(get_click_info()!=8) ;
　　　 mousex=get_mouse_x();
　　　 mousey=get_mouse_y();
　　　 if(mousex<=20 || mousex>=380) continue;
　　　 if(mousey<=20 || mousey>=380) continue;
　　　 mousex=(mousex-20)/40;
　　　 mousey=(mousey-20)/40;
　　　 if(chessboard[mousey][mousex]==1) continue;
　　　 rect(mousex*40+20,mousey*40+20,mousex*40+60,mousey*40+60,4);
　　　 while(get_click_info()!=8) ;
　　　 mousetox=get_mouse_x();
　　　 mousetoy=get_mouse_y();
　　　 if(mousetox<=20 || mousetox>=380) continue;
　　　 if(mousetoy<=20 || mousetoy>=380) continue;
　　　 mousetox=(mousetox-20)/40;
　　　 mousetoy=(mousetoy-20)/40;
　　　 if(chessboard[mousetoy][mousetox]==0) continue;

　　　 if(canmove(mousey,mousex,mousetoy,mousetox)) {
　　　　　 chessboard[mousetoy][mousetox]=0;
　　　　　 chessboard[mousey][mousex]=1;
　　　　　 chesscolor[mousetoy][mousetox]=chesscolor[mousey][mousex];
　　　　　 chesscolor[mousey][mousex]=0;
　　　　　 if(delchess(mousetoy,mousetox)) {
　　　　　　　 grade+=10;
　　　　　　　 continue;
　　　　　 }
　　　 } else continue;
　　　 break;
　 }
}

/*===========================================================================
主函数.
===========================================================================*/

int main(void) {
　 int i; /* 临时计数 */
　 int n=3;
　 neo_init(); /* 初始化NEO库 */
　 set_video_mode(640,480,8,0,0); /* 640X480X64K模式 */
　 install_keyboard(); /* 加载高级键盘 */
　 _install_timer(); /* 加载时钟 */
　 change_timer(500); /* 改变(时钟频率)鼠标刷新频率为500次/秒 */
　 install_mouse(); /* 加载高级鼠标 */
　 srand(100); /* 初始化随机函数 */

　 memset(chessboard,1,sizeof(chessboard));

　 for(i=0;i<n;i++) buildchess();
　 while(!boardfull()) {
　　　 movechess();
　　　 for(i=0;i<n;i++) if(!boardfull()) buildchess();
　 }
　 scare_mouse();
　 drawboard(); /* 绘制棋盘 */
　 rectfill(0,0,640,16,0);
　 neo_printf(0,0,"游戏结束,你的最终得分:%ld,谢谢你的使用",grade);
　 _getch();
　 return 0;
}