俄罗斯方块（Win32实现，Codeblocks+GCC编译）

  1 #if defined(UNICODE) && !defined(_UNICODE)
  2 #define _UNICODE
  3 #elif defined(_UNICODE) && !defined(UNICODE)
  4 #define UNICODE
  5 #endif
  6 
  7 #include <tchar.h>
  8 #include <windows.h>
  9 #include <pthread.h>
 10 #include <stdio.h>
 11 #include <time.h>
 12 /*-----------------宏定义--------------------------------------------------------*/
 13 #define WIDTH 180
 14 #define HEIGHT 400
 15 #define LONG_SLEEP 300
 16 #define BKCOLOR RGB(238,238,238)//背景色
 17 /*-----------------变量----------------------------------------------------------*/
 18 static int shapes[7][4][4];//存储7个形状
 19 static int high_score[4]= {0,0,0,0};//前三个元素存储最高分，最后一个元素存储此次得分
 20 static int **shape;//当前形状
 21 static int **board;
 22 static int M=15;//显示的列数
 23 static int N=30;//显示的行数
 24 static int MM=M+8;//board的列数
 25 static int NN=N+4;//board的行数
 26 static int LEFT=4;//显示的最左一列
 27 static int RIGHT=LEFT+M-1;//显示的最右一列
 28 static int TOP=0;//显示的最上一列
 29 static int BOTTOM=N-1;//显示的最下一列
 30 static int score=0;
 31 static int row=0;//形状所在行
 32 static int column=MM/2;//形状坐在列
 33 static bool is_pause=false;
 34 static HBRUSH grey_brush =CreateSolidBrush (RGB(210,210,210));
 35 static HBRUSH white_brush =CreateSolidBrush (RGB(130,130,130));
 36 static HBRUSH bk_brush =CreateSolidBrush (BKCOLOR);
 37 static HPEN hPen = CreatePen(PS_SOLID,1,RGB(147,155,166));
 38 static int lattices_top=40;//上面留白
 39 static int lattices_left=20;//左侧留白
 40 static int width=WIDTH/M;//每个格子的宽度
 41 static int height=(HEIGHT-lattices_top)/N;//每个格子的高度
 42 /*-----------------函数-----------------------------------------------------------*/
 43 void add_score() ;
 44 bool check_is_lose() ;
 45 void clear_up() ;//消除没有空格子的行
 46 void* down_thread_function(void * args) ;//形状下落进程要执行的函数
 47 void exit_game(HWND hwnd) ;
 48 void give_new_shape() ;//随机生成一个新形状
 49 int handle_key(HWND hwnd,WPARAM wParam) ;
 50 int init_down_thread(HWND hwnd) ;//初始化形状下落进程
 51 int init_game(HWND hwnd) ;//初始化游戏程序
 52 void init_play() ;//初始化游戏数据
 53 bool is_legel() ;//检测形状在当前位置是否合法（即是否重合了非空的格子）
 54 int load_scores(int* a) ;//读取游戏最高分数据
 55 int load_shape() ;//从文件中加载7个形状
 56 void lose_game(HWND hwnd) ;
 57 int move_down(HWND hwnd) ;//形状下落
 58 int move_lr(HWND hwnd,int lr) ;//形状左右移动
 59 void paint_lattice(HDC hdc,int x,int y,int color) ;//显示一个格子
 60 void paint_UI(HDC hdc) ;//画界面
 61 void reset_rc() ;
 62 void rerotate_matrix(int mn) ;//顺时针旋转一个行列数为mn的方阵
 63 void rotate_matrix(int mn) ;//逆时针旋转一个行列数为mn的方阵
 64 int rotate_shape(HWND hwnd) ;//旋转当前形状并更新界面
 65 bool save_score(HWND hwnd) ;//保存最高分数据
 66 void shape_to_ground() ;//当前形状落地之后，更新board
 67 bool sort_scores(int* a) ;//对最高分和此次得分排序，若创造新纪录则返回true
 68 void update_UI(HWND hwnd) ;//更新界面，仅更新Rect区域（形状所在的那几行）内
 69 void update_UI_all(HWND hwnd) ;//更新界面，更新整个界面
 70 int write_scores(int* a) ;//写最高分数据
 71 
 72 
 73 
 74 
 75 /*  Declare Windows procedure  */
 76 LRESULT CALLBACK WindowProcedure (HWND, UINT, WPARAM, LPARAM);
 77 
 78 /*  Make the class name into a global variable  */
 79 TCHAR szClassName[ ] = _T("Tris");
 80 
 81 int WINAPI WinMain (HINSTANCE hThisInstance,
 82                     HINSTANCE hPrevInstance,
 83                     LPSTR lpszArgument,
 84                     int nCmdShow) {
 85     HWND hwnd;               /* This is the handle for our window */
 86     MSG messages;            /* Here messages to the application are saved */
 87     WNDCLASSEX wincl;        /* Data structure for the windowclass */
 88 
 89     /* The Window structure */
 90     wincl.hInstance = hThisInstance;
 91     wincl.lpszClassName = szClassName;
 92     wincl.lpfnWndProc = WindowProcedure;      /* This function is called by windows */
 93     wincl.style = CS_DBLCLKS;                 /* Catch double-clicks */
 94     wincl.cbSize = sizeof (WNDCLASSEX);
 95 
 96     /* Use default icon and mouse-pointer */
 97     wincl.hIcon = LoadIcon (NULL, IDI_APPLICATION);
 98     wincl.hIconSm = LoadIcon (NULL, IDI_APPLICATION);
 99     wincl.hCursor = LoadCursor (NULL, IDC_ARROW);
100     wincl.lpszMenuName = NULL;                 /* No menu */
101     wincl.cbClsExtra = 0;                      /* No extra bytes after the window class */
102     wincl.cbWndExtra = 0;                      /* structure or the window instance */
103     /* Use Windows‘s default colour as the background of the window */
104     wincl.hbrBackground =bk_brush;
105     /* Register the window class, and if it fails quit the program */
106     if (!RegisterClassEx (&wincl))
107         return 0;
108 
109     /* The class is registered, let‘s create the program*/
110     hwnd = CreateWindowEx (
111                0,                   /* Extended possibilites for variation */
112                szClassName,         /* Classname */
113                _T("Tris"),       /* Title Text */
114                WS_OVERLAPPEDWINDOW, /* default window */
115                CW_USEDEFAULT,       /* Windows decides the position */
116                CW_USEDEFAULT,       /* where the window ends up on the screen */
117                WIDTH+200,                 /* The programs width */
118                HEIGHT+70,                 /* and height in pixels */
119                HWND_DESKTOP,        /* The window is a child-window to desktop */
120                NULL,                /* No menu */
121                hThisInstance,       /* Program Instance handler */
122                NULL                 /* No Window Creation data */
123            );
124 
125     /* Make the window visible on the screen */
126     ShowWindow (hwnd, nCmdShow);
127 
128     /* Run the message loop. It will run until GetMessage() returns 0 */
129     while (GetMessage (&messages, NULL, 0, 0)) {
130         /* Translate virtual-key messages into character messages */
131         TranslateMessage(&messages);
132         /* Send message to WindowProcedure */
133         DispatchMessage(&messages);
134     }
135 
136     /* The program return-value is 0 - The value that PostQuitMessage() gave */
137     return messages.wParam;
138 }
139 //从文件中加载7个形状
140 int load_shape() {
141     FILE* f=fopen("shapes.txt","rb");
142     if(f==NULL) {
143         return -1;
144     }
145     for(int i=0; i<7; i++) {
146         for(int j=0; j<4; j++) {
147             for(int k=0; k<4; k++) {
148                 if(fscanf(f,"%d",&shapes[i][j][k])!=1) {
149                     return -1;
150                 }
151             }
152         }
153     }
154     fclose(f);
155     return 0;
156 }
157 //随机生成一个新形状
158 void give_new_shape() {
159     int shape_num=rand()%7;
160     for(int i=0; i<4; i++) {
161         for(int j=0; j<4; j++) {
162             shape[i][j]=shapes[shape_num][i][j];
163         }
164     }
165 }
166 void add_score() {
167     score+=100;
168 }
169 //消除没有空格子的行
170 void clear_up() {
171     for(int i=row; i<=row+3; i++) {
172         if(i>BOTTOM)continue;
173         bool there_is_blank=false;
174         for(int j=LEFT; j<=RIGHT; j++) {
175             if(board[i][j]==0) {
176                 there_is_blank=true;
177                 break;
178             }
179         }
180         if(!there_is_blank) {
181             add_score();
182             for(int r=i; r>=1; r--) {
183                 for(int c=LEFT; c<=RIGHT; c++) {
184                     board[r][c]=board[r-1][c];
185                 }
186             }
187         }
188     }
189 }
190 //检测形状在当前位置是否合法（即是否重合了非空的格子）
191 bool is_legel() {
192     for(int i=0; i<4; i++) {
193         for(int j=0; j<4; j++) {
194             if(shape[i][j]==1&&board[row+i][column+j]==1) {
195                 return false;
196             }
197         }
198     }
199     return true;
200 }
201 //逆时针旋转一个行列数为mn的方阵
202 void rotate_matrix(int mn) {
203     int** a=shape;
204     int s=0;
205     for(int n=mn; n>=1; n-=2) {
206         for(int i=0; i<n-1; i++) {
207             int t=a[s+i][s];
208             a[s+i][s]=a[s][s+n-i-1];
209             a[s][s+n-i-1]=a[s+n-i-1][s+n-1];
210             a[s+n-i-1][s+n-1]=a[s+n-1][s+i];
211             a[s+n-1][s+i]=t;
212         }
213         s++;
214     }
215 }
216 //顺时针旋转一个行列数为mn的方阵
217 void rerotate_matrix(int mn) {
218     int** a=shape;
219     int s=0;
220     for(int n=mn; n>=1; n-=2) {
221         for(int i=0; i<n-1; i++) {
222             int t=a[s+i][s];
223             a[s+i][s]=a[s+n-1][s+i];
224             a[s+n-1][s+i]=a[s+n-i-1][s+n-1];
225             a[s+n-i-1][s+n-1]=a[s][s+n-i-1];
226             a[s][s+n-i-1]=t;
227         }
228         s++;
229     }
230 }
231 //显示一个格子
232 void paint_lattice(HDC hdc,int x,int y,int color) {
233     if(x<TOP||x>BOTTOM||y<LEFT||y>RIGHT) {
234         return ;
235     }
236     x-=TOP;
237     y-=LEFT;
238     int left=lattices_left+y*width;
239     int right=lattices_left+y*width+width;
240     int top=lattices_top+x*height;
241     int bottom=lattices_top+x*height+height;
242     MoveToEx (hdc,left,top, NULL) ;
243     LineTo (hdc,right,top) ;
244     MoveToEx (hdc,left,top, NULL) ;
245     LineTo (hdc,left,bottom) ;
246     MoveToEx (hdc,left,bottom, NULL) ;
247     LineTo (hdc,right,bottom) ;
248     MoveToEx (hdc,right,top, NULL) ;
249     LineTo (hdc,right,bottom) ;
250     SelectObject(hdc, grey_brush);
251     if(color==0) {
252         SelectObject(hdc, white_brush);
253     }
254     Rectangle(hdc,left,top,right,bottom);
255 }
256 //更新界面，仅更新Rect区域（形状所在的那几行）内
257 void update_UI(HWND hwnd) {
258     static RECT rect;
259     rect.left=lattices_left;
260     rect.right=lattices_left+M*width+width;
261     rect.top=lattices_top+(row-1)*height;
262     rect.bottom=lattices_top+(row+4)*height;
263     InvalidateRect (hwnd,&rect, false) ;
264 }
265 //更新界面，更新整个界面
266 void update_UI_all(HWND hwnd) {
267     InvalidateRect (hwnd,NULL, false) ;
268 }
269 //画界面
270 void paint_UI(HDC hdc) {
271     SetBkColor(hdc,BKCOLOR);
272     SelectObject(hdc,hPen);  //选用画笔
273     char score_str[20];
274     sprintf(score_str,"Score:%d",score);
275     TextOut(hdc,10,10,score_str,strlen(score_str));
276     sprintf(score_str,"Highest Scores:");
277     TextOut(hdc,WIDTH+50,50,score_str,strlen(score_str));
278     for(int i=0; i<3; i++) {
279         sprintf(score_str,"%d",high_score[i]);
280         TextOut(hdc,WIDTH+50,50+(i+1)*20,score_str,strlen(score_str));
281     }
282     for(int i=TOP; i<=BOTTOM; i++) {
283         for(int j=LEFT; j<=RIGHT; j++) {
284             paint_lattice(hdc,i,j,board[i][j]);
285         }
286     }
287     for(int i=0; i<4; i++) {
288         for(int j=0; j<4; j++) {
289             if(shape[i][j]==1)
290                 paint_lattice(hdc,row+i,column+j,shape[i][j]);
291         }
292     }
293 }
294 //旋转当前形状并更新界面
295 int rotate_shape(HWND hwnd) {
296     int mn=4;
297     rotate_matrix(mn);
298     if(!is_legel()) {
299         rerotate_matrix(mn);
300     }
301     update_UI(hwnd);
302 }
303 void reset_rc() {
304     row=0;
305     column=MM/2-2;
306 }
307 //读取游戏最高分数据
308 int load_scores(int* a) {
309     FILE* f=fopen("scores.txt","r");
310     if(f==NULL)return -1;
311     fscanf(f,"%d%d%d",&a[0],&a[1],&a[2]);
312     return 0;
313 }
314 //初始化游戏数据
315 void init_play() {
316     load_scores(high_score);
317     for(int i=0; i<NN; i++) {
318         for(int j=0; j<MM; j++) {
319             board[i][j]=0;
320         }
321     }
322     for(int i=0; i<N; i++) {
323         for(int j=0; j<LEFT; j++) {
324             board[i][j]=1;
325         }
326     }
327     for(int i=0; i<N; i++) {
328         for(int j=RIGHT+1; j<MM; j++) {
329             board[i][j]=1;
330         }
331     }
332     for(int i=BOTTOM+1; i<NN; i++) {
333         for(int j=0; j<MM; j++) {
334             board[i][j]=1;
335         }
336     }
337     reset_rc();
338     score=0;
339     give_new_shape();
340     is_pause=false;
341     return ;
342 }
343 bool check_is_lose() {
344     if(row==0)return true;
345     return false;
346 }
347 //对最高分和此次得分排序，若创造新纪录则返回true
348 bool sort_scores(int* a) {
349     int temp=a[3];
350     for(int i=0; i<4; i++) {
351         for(int j=0; j<3; j++) {
352             if(a[j]<a[j+1]) {
353                 int t=a[j];
354                 a[j]=a[j+1];
355                 a[j+1]=t;
356             }
357         }
358     }
359     if(temp>a[3])return true;
360     return false;
361 }
362 //写最高分数据
363 int write_scores(int* a) {
364     FILE* f=fopen("scores.txt","w");
365     if(f==NULL)return -1;
366     fprintf(f,"%d\n%d\n%d\n",a[0],a[1],a[2]);
367     return 0;
368 }
369 //保存最高分数据
370 bool save_score(HWND hwnd) {
371     high_score[3]=score;
372     bool made_record=sort_scores(high_score);
373     if(write_scores(high_score)!=0) {
374         MessageBox(hwnd,"Write file error.Program will exit.","Error",NULL);
375         DestroyWindow(hwnd);
376     }
377     return made_record;
378 }
379 void lose_game(HWND hwnd) {
380     if(is_pause)return ;
381     is_pause=true;
382     char message[200]="You lose the Game.\n";
383     char title[50]="Game Over";
384     if(save_score(hwnd)) {
385         strcat(message,"You have made a new record.\n");
386         char score_str[100];
387         sprintf(score_str,"The Highest Scores:\n%d\n%d\n%d\n",high_score[0],high_score[1],high_score[2]);
388         strcat(message,score_str);
389     }
390     strcat(message,"\nPlay again?\n");
391     if(MessageBox(hwnd,message,title,MB_YESNO)==IDYES) {
392         init_play();
393         update_UI_all(hwnd);
394     } else {
395         exit(0);
396     }
397 }
398 void exit_game(HWND hwnd) {
399     is_pause=true;
400     char message[200]="";
401     char title[50]="Exit";
402     if(save_score(hwnd)) {
403         strcat(message,"You have made a new record.\n");
404         char score_str[100];
405         sprintf(score_str,"The Highest Scores:\n%d\n%d\n%d\n",high_score[0],high_score[1],high_score[2]);
406         strcat(message,score_str);
407         MessageBox(hwnd,message,title,NULL);
408     }
409     exit(0);
410 }
411 //当前形状落地之后，更新board
412 void shape_to_ground() {
413     for(int i=0; i<4; i++) {
414         for(int j=0; j<4; j++) {
415             board[row+i][column+j]=shape[i][j]==1?1:board[row+i][column+j];
416         }
417     }
418 }
419 //形状下落
420 int move_down(HWND hwnd) {
421     row++;
422     if(!is_legel()) {
423         row--;
424         if(check_is_lose()) {
425             lose_game(hwnd);
426             return 0;
427         }
428         shape_to_ground();
429         clear_up();
430         update_UI_all(hwnd);
431         reset_rc();
432         give_new_shape();
433     }
434     update_UI(hwnd);
435 }
436 //进程参数结构体
437 struct thread_arg {
438     HWND arg_hwnd;
439 };
440 //形状下落进程要执行的函数
441 void* down_thread_function(void * args) {
442     thread_arg *arg=(thread_arg*)args;
443     HWND dhwnd=arg->arg_hwnd;
444     while(true) {
445         if(is_pause) {
446             Sleep(300);
447             continue;
448         }
449         move_down(dhwnd);
450         Sleep(LONG_SLEEP);
451     }
452 }
453 //初始化形状下落进程
454 int init_down_thread(HWND hwnd) {
455     int ret;
456     pthread_t t;
457     thread_arg *argp=new thread_arg;
458     argp->arg_hwnd=hwnd;
459     ret=pthread_create(&t,NULL,down_thread_function,argp);
460     delete argp;
461     if(ret!=0) {
462         return -1;
463     }
464     return 0;
465 }
466 //初始化游戏程序
467 int init_game(HWND hwnd) {
468     board=new int*[NN];
469     for(int i=0; i<NN; i++) {
470         board[i]=new int[MM];
471     }
472     shape=new int*[4];
473     for(int i=0; i<4; i++) {
474         shape[i]=new int[4];
475     }
476     srand(time(0));
477     if(load_shape()!=0) {
478         MessageBox(hwnd,"Read file error.Program will exit.","Error",NULL);
479         exit(-1);
480     }
481     init_play();
482     update_UI_all(hwnd);
483     if(init_down_thread(hwnd)!=0) {
484         MessageBox(hwnd,"Thread error.Program will exit.","Error",NULL);
485         exit(-1);
486     }
487     return 0;
488 }
489 //形状左右移动
490 int move_lr(HWND hwnd,int lr) {
491     int temp=column;
492     if(lr==0)column--;
493     else {
494         column++;
495     }
496     if(!is_legel()) {
497         column=temp;
498     }
499     update_UI(hwnd);
500 }
501 int handle_key(HWND hwnd,WPARAM wParam) {
502     if(wParam==VK_ESCAPE) {//ESC退出
503         exit_game(hwnd);
504     }
505     if(wParam==VK_SPACE) {//空格暂停
506         is_pause=!is_pause;
507     }
508     if(is_pause==true) {
509         Sleep(300);
510         return 0;
511     }
512     if(wParam==VK_UP) {
513         rotate_shape(hwnd);
514     }
515     if(wParam==VK_DOWN) {
516         move_down(hwnd);
517     }
518     if(wParam==VK_LEFT) {
519         move_lr(hwnd,0);
520     }
521     if(wParam==VK_RIGHT) {
522         move_lr(hwnd,1);
523     }
524     return 0;
525 }
526 /*  This function is called by the Windows function DispatchMessage()  */
527 HWND hwnd;
528 LRESULT CALLBACK WindowProcedure (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam) {
529     static HDC hdc;
530     static HDC hdcBuffer;
531     static HBITMAP hBitMap;
532     static PAINTSTRUCT ps ;
533     switch (message) {                /* handle the messages */
534     case WM_CREATE:
535         init_game(hwnd);
536         break;
537     case WM_KEYDOWN:
538         handle_key(hwnd,wParam);
539         break;
540     case WM_DESTROY:
541         exit_game(hwnd);
542         PostQuitMessage (0);       /* send a WM_QUIT to the message queue */
543         break;
544     case WM_PAINT:
545         hdc = BeginPaint (hwnd, &ps) ;
546         paint_UI(hdc);
547         EndPaint (hwnd, &ps) ;
548         break;
549     default:                      /* for messages that we don‘t deal with */
550         return DefWindowProc (hwnd, message, wParam, lParam);
551     }
552     return 0;
553 }