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;
}