Win-TC(19)纸牌小游戏.doc

Win-TC(1.9)纸牌小游戏实例Win-TC(1.9)以前刚学C语言时用的编译器，虽然老了一些，还是简单实用。纸牌游戏种类繁多，五花八门，让人眼花缭乱，本程序是在Win-TC编译环境下实现的一种传统的纸牌接龙游戏。游戏规则如下：将打开的纸牌从上至下由大到小按顺序排列纸牌，如果花色相同，从K,Q,J到2,A的13张牌将移到左下角叠放。每次可以移动一张或多张纸牌（如果花色相同且是按大到小的牌），游戏中共有104张牌，重复上操作，将牌全部按要求移到左下方，游戏胜利结束。游戏中共设难易级别三种（一种花色、两种花色、四种花色），游戏全过程用鼠标操作，具体操作为：将鼠标移到要移动纸牌区按住左键不要松开把选定的纸牌拖到目标处再松开鼠标的左键，如果操作成功纸牌将由原处移到目标处。 图1、纸牌游戏操作界面上图为进入游戏初始选择难易级别操作界面，Select窗口中共有四个按钮，close , One , Two , Four,功能分别如下：Close 关闭Select窗口One 选择单色级别（初级）Two 选择双色级别（中级）Four 选择四色级别（高级）游戏界面左上角有两个按钮，“游戏”、“发牌”。其中“游戏”按钮中有几个子菜单如下图所示：Begin重新开局Select选择难易级别Score查看游戏成绩Quit退出返回系统图2、右图为“游戏”子菜单游戏中设计了一个成绩分数记录会话窗口，统计当前游戏进程战绩情况。如下图所示： 图3、战况分数榜游戏胜利结束会自动打开游戏结束会话窗口，并统计本次游戏战况分数。如下图所示： 图4、中级（两色）游戏胜利结束上图为中级（两色）游戏胜利结束会话窗口，三个按钮：close关闭Game over会话窗口，Begin重新开局（退出会话窗口），Select选择游戏难易级别。游戏操作界面左下方为按顺序排列的8列纸牌，中间为信息显示框：Score为本次游戏的得分情况，Work为游戏的操作手数。上方为十个纸牌游戏操作分区，现已全部清空，牌已经全部移到左下方。图5为高级（四色）游戏中的截图，游戏界面上方的十个分区中从左往右，1至4分区中盖着的纸牌分别有5张，5至10分区中盖着的纸牌分别有4张，只要把面上打开的纸牌移走，盖着的纸牌会自动打开。右下共有6叠纸牌，每叠中有10张共是60张。游戏开始后会自动把最左边的纸牌发到游戏分区，按下“发牌”按钮每次发一叠牌，每个分区一张纸牌。每次游戏共发6次牌。图5、高级（四色）游戏中程序的难处在处理鼠标操作屏幕移牌动作，因为要正确判断鼠标的屏幕矢量位置是在哪一张纸牌上有一定的难度，纸牌从上到下按顺序叠放，下一张压着上一张一半过的位置。程序中采用栈数据来描述纸牌的游戏过程数据，先进后出，后进先出，因移牌都是从下边开始的。纸牌的高度采用两种记数法，栈底的一张牌为纸牌的全高度，其它的纸牌高度为未被压的高度。判断出鼠标位于哪张纸牌后，再次判断位于选定区域内的纸牌是否可以移动，因为被选的牌（多张）如果花色不同是不可移动的，花色相同，但不是按从大到小（上张牌比下张牌大1）顺序排列不可移动。最后判断将要移动到目标处是否可以接纳移来的牌，如果将要进栈的第一个牌大于目标处原来栈底的牌不可移动，本次移牌动作失败。Win-TC纸牌游戏源程序如下：#include graphics.h#include stdio.h#include dos.h#include stdlib.h#include time.h#define RS 40 /纸牌高度#define CS 30 /纸牌宽度#define Nh 5 /放置纸牌高度（上张未打开状态）#define Yh 15 /放置纸牌高度（上张打开状态）#define MWind 1 /主窗口#define BWind 2 /子窗口#define TY 50 /纸牌游戏区初始高度/定义纸牌的栈数据typedef struct STACK char n5; /牌号名称 int y; /Y轴分量 int h; /牌号大小数字 int s; /花色 int m; /移走状态 int open; /牌的正反面状态 int er; /牌的边颜色 int fr; /牌面字体颜色Stack;Stack Pai104; /两付纸牌的缓存区Stack Pai60610; /待发的六份牌缓存区/定义纸牌的数组数据typedef struct ARRAY Stack S52;/栈数据缓存区 int f; int r; /尾指针 int x; /x轴分量Array;Array GP10; /游戏中十个分区缓存区int HS4=6,3,5,4; /花色用列表int Mx10=35,95,155,215,275,335,395,455,515,575; /十个游戏分区用列表int Rm8=35,55,75,95,115,135,155,175; /移走顺序牌用列表int M_Ok=0; /移牌数据int MBegin=0; /发牌数据int SHs=0; /级别选择int Wd; /记录操作手数int Sv; /记录成绩char MPai21031; /选择移动纸牌的缓存区char GBuf21031; /移动纸牌目标处屏幕恢复缓存区int My; /选定移动纸牌Y轴坐标高度int Mok; /移动纸牌标记int Y1=0; /单色胜记录int Y2=0; /两色胜记录int Y4=0; /四色胜记录int N1=0; /单色败记录int N2=0; /两色败记录int N4=0; /四色败记录int GBegin=0; /游戏开始标记int GOk=0; /游戏胜利标记/定义操作按钮数据typedef struct BUTTON char *name; /按钮名称 int bkcolor; /按钮背景色 int fontcolor; /按钮名称字体颜色 int lx; /左边X坐标分量 int ty; /左上Y坐标分量 int rx; /右边X坐标分量 int by; /右下Y坐标分量Button;Button Wclose;Button Bclose;Button go=,7,6,60,20,100,39;Button game=,7,6,5,20,45,39;Button Begin=Begin,15,9,10,45,115,60;Button Select=Select,15,9,10,65,115,80;Button Score=Score,15,9,10,85,115,100;Button Quit=Quit,15,9,10,105,115,120;Button BSelect=Select,7,5,323,270,375,282;Button One=One,7,5,320,210,360,226;Button Two=Two,7,5,320,232,360,248;Button Four=Four,7,5,320,254,360,270;Button NewB=Begin,7,5,265,270,312,282;/定义鼠标数据类型typedef struct MOUSE int mx; /鼠标x坐标值 int my; /鼠标y坐标值 int mkey;/鼠标按钮状态 char fillcolor1616;/屏幕保护缓存区Mouseh;/鼠标屏幕绘码char MouseMask= 0x00,0x00,0x40,0x00,0x60,0x00,0x70,0x00, 0x78,0x00,0x7c,0x00,0x7e,0x00,0x7f,0x00, 0x7f,0x80,0x7f,0xc0,0x6c,0x00,0x46,0x00, 0x06,0x00,0x03,0x00,0x01,0x80,0x00,0x00;/鼠标屏幕绘码边框码char MouseMaskE= 0xc0,0x00,0xa0,0x00,0x90,0x00,0x88,0x00, 0x84,0x00,0x82,0x00,0x81,0x00,0x80,0x80, 0x80,0x40,0x80,0x20,0x93,0xf0,0xa9,0x00, 0xc9,0x00,0x04,0x80,0x02,0x40,0x01,0xc0;char Mat24= 0x20,0xC0,0x27,0x00,0x45,0x00,0x95,0x00, 0xE7,0xE0,0x25,0x00,0x55,0x00,0xE4,0x80, 0x14,0xA0,0xE7,0x60,0x04,0x20,0x00,0x00, 0x21,0x00,0xA7,0xE0,0xA5,0x20,0xF7,0xE0, 0x85,0x20,0x87,0xE0,0xF2,0x80,0x94,0x80, 0x9F,0xE0,0x90,0x80,0x90,0x80,0x00,0x00, 0x91,0x00,0x49,0xE0,0x3E,0x00,0x93,0xE0, 0x5C,0x40,0x54,0x80,0x55,0xE0,0x94,0x80, 0x94,0x80,0xA4,0x80,0x4D,0x80,0x00,0x00, 0x02,0x80,0xF2,0x40,0x12,0x40,0x13,0xE0, 0x9E,0x00,0x52,0x40,0x22,0x80,0x31,0x00, 0x49,0x20,0x42,0xA0,0x8C,0x60,0x00,0x00, 0x09,0x00,0x48,0x80,0x48,0x00,0xFF,0xE0, 0x10,0x00,0x1F,0x80,0x14,0x80,0x25,0x00, 0x22,0x00,0x4D,0x80,0xB0,0x60,0x00,0x00, 0x04,0x00,0xFF,0xE0,0x08,0x00,0x1F,0x80, 0x30,0x80,0x50,0x80,0x9F,0x80,0x10,0x80, 0x1F,0x80,0x10,0x80,0x11,0x80,0x00,0x00, 0x04,0x00,0x7F,0xE0,0xC0,0x20,0x11,0x80, 0x20,0x40,0xC0,0x20,0x3F,0x80,0x04,0x00, 0x04,0x00,0x04,0x00,0xFF,0xE0,0x00,0x00, 0x24,0x00,0x22,0x00,0x5F,0xE0,0x40,0x00, 0xC8,0x80,0x48,0x80,0x44,0x80,0x45,0x00, 0x45,0x00,0x41,0x00,0x5F,0xE0,0x00,0x00, 0xFF,0xE0,0x02,0x00,0x04,0x00,0x04,0x00, 0x0D,0x00,0x14,0x80,0x24,0x40,0xC4,0x20, 0x04,0x00,0x04,0x00,0x04,0x00,0x00,0x00, 0x22,0x00,0x4A,0x40,0xFB,0xA0,0x02,0x20, 0x7B,0xE0,0x48,0x00,0x7A,0x40,0x4B,0x80, 0x7A,0x20,0x4A,0x20,0x5B,0xE0,0x00,0x00, 0x71,0x00,0x55,0x00,0x55,0x00,0x77,0xE0, 0x59,0x00,0x51,0x00,0x77,0xE0,0x51,0x00, 0x51,0x00,0x91,0x00,0xBF,0xE0,0x00,0x00, 0xF9,0x00,0x89,0x00,0xAB,0xE0,0xAA,0x40, 0xAE,0x40,0xAA,0x40,0xAA,0x40,0xA9,0x80, 0x51,0x80,0x4A,0x40,0x84,0x20,0x00,0x00, 0x04,0x00,0xFF,0xE0,0x44,0x40,0x2A,0x80, 0x15,0x00,0x2A,0x80,0xDF,0x40,0x04,0x00, 0xFF,0xE0,0x04,0x00,0x04,0x00,0x00,0x00,;char Over72= 0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x8C, 0x00,0x03,0x0C,0x00,0x03,0x08,0x00,0x02, 0x18,0x00,0x06,0x10,0x0C,0x04,0x1F,0xFC, 0x0E,0x20,0x18,0x0C,0x41,0x10,0x14,0x41, 0x00,0x24,0x81,0x00,0x44,0x19,0x00,0x44, 0x11,0x30,0x04,0x31,0x18,0x04,0x21,0x08, 0x04,0x61,0x0C,0x04,0x41,0x04,0x04,0x81, 0x04,0x04,0x81,0x04,0x04,0x01,0x00,0x06, 0x0F,0x00,0x04,0x02,0x00,0x00,0x00,0x00, 0x00,0x00,0x00,0x00,0x20,0x00,0x00,0x10, 0x00,0x00,0x10,0x0C,0x3F,0xEF,0xF0,0x04, 0x00,0x60,0x07,0xFF,0x80,0x04,0x00,0x40, 0x07,0xFF,0xC0,0x07,0xFF,0xC0,0x04,0x00, 0x40,0x00,0x05,0x10,0x1F,0x7E,0xF8,0x11, 0x54,0x90,0x11,0x5C,0x90,0x1F,0x54,0xD0, 0x11,0x54,0xB0,0x1F,0x54,0xB0,0x11,0x51, 0x90,0x11,0x1D,0x14,0x11,0x25,0x14,0x2F, 0x42,0x1E,0x42,0x84,0x00,0x00,0x00,0x00, 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00, 0x00,0x1F,0xFF,0xF0,0x00,0x00,0x70,0x00, 0x00,0x80,0x00,0x03,0x00,0x00,0x14,0x00, 0x00,0x1C,0x00,0x00,0x18,0x00,0x00,0x18, 0x00,0x00,0x18,0x00,0x00,0x18,0x00,0x00, 0x18,0x00,0x00,0x18,0x00,0x00,0x18,0x00, 0x00,0x18,0x00,0x00,0x18,0x00,0x00,0x18, 0x00,0x00,0x18,0x00,0x01,0x18,0x00,0x00, 0xF0,0x00,0x00,0x30,0x00,0x00,0x00,0x00,;/*输出汉字*/void OutCh(char *mat,int matsize,int x,int y,int color) int i, j, k, n; n = (matsize - 1) / 8 + 1; for(j = 0; j matsize; j+) for(i = 0; i n; i+) for(k = 0;k k) putpixel(x + i * 8 + k, y + j, color);/*绘制直线*/void DrawLine(int x1,int y1,int x2,int y2,int color) int dr; float r,c,k,dx,dy; r=y2-y1; c=x2-x1; dx=x1; dy=y1; if(abs(r)abs(c) if(r!=0) k=c/r; if(r0) for(dr=0;dr=r;dr+=1) putpixel(dx+0.5,y1+dr,color); dx+=k; if(r0) dx=x2; for(dr=0;dr0) for(dr=0;dr=r;dr+=1) putpixel(x1+dr,y1,color); if(c0) for(dr=r;dr0) for(dr=0;dr=c;dr+=1) putpixel(x1+dr,dy+0.5,color); dy+=k; if(c0) dy=y2; for(dr=0;dr0) for(dr=0;dr=r;dr+=1) putpixel(x1,y1+dr,color); if(r0) for(dr=r;dr=0;dr+=1) putpixel(x1,y1+dr,color); /*绘制并填充矩形图*/void DrawRectangle(int x1,int y1,int x2,int y2,int color,int fillmode) int r,c; DrawLine(x1,y1,x2,y1,color); DrawLine(x1,y2,x2,y2,color); DrawLine(x1,y1,x1,y2,color); DrawLine(x2,y1,x2,y2,color); r=y2-y1; c=x2-x1; if(fillmode) floodfill(x1+c/2,y1+r/2,color);/*绘制条形栏（高亮在左边)*/void DrawLBar(int x1,int y1,int x2,int y2) DrawRectangle(x1,y1,x2,y2,15,1); DrawLine(x1,y1,x1,y2,15); DrawLine(x1,y1,x2,y1,15); DrawLine(x2,y1,x2,y2,8); DrawLine(x1,y2,x2,y2,8);/*绘制条形栏（高亮在右边)*/void DrawRBar(int x1,int y1,int x2,int y2) DrawRectangle(x1,y1,x2,y2,15,1); DrawLine(x1,y1,x1,y2,8); DrawLine(x1,y1,x2,y1,8); DrawLine(x2,y1,x2,y2,15); DrawLine(x1,y2,x2,y2,15);/移牌void M_Pai(int h,Mouseh *ht) int i,j; for(i=0;i=h;i+) for(j=0;jmx,i+ht-my); for(i=0;i=h;i+) for(j=0;jmx,i+ht-my,MPaiij);/清除牌void H_Pai(Mouseh *ht) int i,j; for(i=0;i=My;i+) for(j=0;jmx,i+ht-my,GBufij);/*初始化Win-TC图形模式*/void init() int dr=0,dm; registerbgidriver(EGAVGA_driver); initgraph(&dr, &dm, );/*- Mouse -*/*鼠标初始化函数*/int MouseInit(int Xmin,int Xmax,int Ymin,int Ymax) int retcode; union REGS regs; regs.x.ax=0; int86(51,®s,®s); retcode=regs.x.ax; if(retcode=0) return 0; regs.x.ax=7; regs.x.cx=Xmin; regs.x.dx=Xmax; int86(51,®s,®s); regs.x.ax=8; regs.x.cx=Ymin; regs.x.dx=Ymax; int86(51,®s,®s); return retcode;/*显示鼠标*/void ShowMouse(Mouseh *hw,int mousecolor) int i,j,k; for(i=0;i16;i+) for(j=0;jfillcolorij=getpixel(hw-mx+j,hw-my+i); for(j=0;j16;j+) for(i=0;i2;i+) for(k=0;kk) putpixel(hw-mx+i*8+k,hw-my+j,mousecolor); for(j=0;j16;j+) for(i=0;i2;i+) for(k=0;kk) putpixel(hw-mx+i*8+k,hw-my+j,0);/*鼠标屏幕恢复*/void HideMouse(Mouseh *hw) int i,j; for(i=0;i16;i+) for(j=0;jmx+j,hw-my+i,hw-fillcolorij);/*读取鼠标位置和按钮状态*/void MouseRead(Mouseh *hd) union REGS r1; int dx,dy; ShowMouse(hd,15); do r1.x.ax=3; int86(51,&r1,&r1); dx=r1.x.cx; dy=r1.x.dx; hd-mkey=r1.x.bx; while(dx=hd-mx&dy=hd-my&!hd-mkey); HideMouse(hd); if(Mok) H_Pai(hd); Mok=0; hd-mx=dx; hd-my=dy;/*显示按钮*/void ShowButton(Button bt) int wx,hy,l; setfillstyle(SOLID_FILL,bt.bkcolor); DrawLBar(bt.lx,bt.ty,bt.rx,bt.by); setcolor(bt.fontcolor); hy=bt.ty+(bt.by-bt.ty)/2-4; l=strlen()*8; wx=bt.lx+(bt.rx-bt.lx-l)/2; outtextxy(wx+1,hy,);/*判断是否在按钮上*/int OnButton(Button tm,Mouseh *ht) int but=0; if(ht-mx=tm.lx&ht-mxmy=tm.ty&ht-mymkey) break; DrawLine(tm.lx,tm.ty,tm.lx,tm.by,15); DrawLine(tm.lx,tm.ty,tm.rx,tm.ty,15); DrawLine(tm.rx,tm.ty,tm.rx,tm.by,8); DrawLine(tm.lx,tm.by,tm.rx,tm.by,8);/绘制游戏窗口void CreatWindow(char *name,int wlx,int wty,int wrx,int wby,int wbkcolor,int wdstyle) int i; setfillstyle(1,0); DrawRectangle(wlx,wty,wrx,wby,0,1); DrawRectangle(wlx,wty,wrx,wby,9,0); setfillstyle(1,1); DrawRectangle(wlx+1,wty+1,wrx-1,wty+17,1,1); setcolor(15); outtextxy(wlx+5,wty+6,name); if(wdstyle=BWind) setfillstyle(1,wbkcolor); DrawRectangle(wlx+2,wty+19,wrx-2,wby-2,wbkcolor,1); DrawRectangle(wlx+1,wty+18,wrx-1,wby-1,7,0); DrawLine(wlx+1,wty+18,wrx-1,wty+18,8); B=close; Bclose.bkcolor=4; Bclose.fontcolor=15; Bclose.lx=wrx-50; Bclose.ty=wty+3; Bclose.rx=wrx-2; Bclose.by=wty+15; ShowButton(Bclose); if(wdstyle=MWind) setfillstyle(1,7); DrawRectangle(wlx+1,wty+18,wrx-1,wty+40,7,1); DrawRectangle(wlx+1,wty+41,wrx-1,wby-1,7,0); setfillstyle(1,wbkcolor); DrawRectangle(wlx+2,wty+42,wrx-2,wby-2,wbkcolor,1); DrawLine(wlx+1,wty+18,wrx-1,wty+18,8); for(i=0;i4;i+) OutCh(Mati,12,85+i*13,3,15); W=close; Wclose.bkcolor=4; Wclose.fontcolor=15; Wclose.lx=wrx-50; Wclose.ty=wty+3; Wclose.rx=wrx-2; Wclose.by=wty+15; ShowButton(Wclose); ShowButton(game); OutCh(Mat2,12,12,24,6); OutCh(Mat3,12,28,24,6); ShowButton(go); OutCh(Mat4,12,67,24,6); OutCh(Mat1,12,83,24,6); /交换前后牌数据void CPai(int r,int c) Stack tm; tm.h=Pair.h; tm.s=Pair.s; tm.fr=Pair.fr; sprintf(tm.n,%s,Pair.n); Pair.h=Pair+c.h; Pair.s=Pair+c.s; Pair.fr=Pair+c.fr; sprintf(Pair.n,%s,Pair+c.n); Pair+c.h=tm.h; Pair+c.s=tm.s; Pair+c.fr=tm.fr; sprintf(Pair+c.n,%s,tm.n);/随机生成游戏用的纸牌void PaiSrand() int i,j,r,s=-1,cl; Stack tm; for(i=0;i8;i+) s+=1; if(s=SHs) s=0; for(j=0;j13;j+) r=i*13+j; Pair.h=j+1; Pair.s=HSs; if(Pair.s1&Pair.h11) sprintf(Pair.n,%d%c,Pair.h,Pair.s); if(Pair.h=1) sprintf(Pair.n,A%c,Pair.s); if(Pair.h=11) sprintf(Pair.n,J%c,Pair.s); if(Pair.h=12) sprintf(Pair.n,Q%c,Pair.s); if(Pair.h=13) sprintf(Pair.n,K%c,Pair.s); Pair.m=0; Pair.open=0; Pair.er=1; srand(time(NULL); for(i=0;i0&r=52&r103) CPai(r,1); r=-1; for(i=0;i10;i+) if(i4) s=5; else s=4; for(j=0;js;j+) r+; if(j%2=0) cl=1; else cl=3; GPi.Sj.y=TY+j*Nh; GPi.Sj.h=Pair.h; GPi.Sj.s=Pair.s; GPi.Sj.open=Pair.open; GPi.Sj.er=cl; GPi.Sj.fr=Pair.fr; sprintf(GPi.Sj.n,%s,Pair.n); GPi.x=Mxi; GPi.r=j; for(i=0;i6;i+) for(j=0;j10;j+) r+; Pai60ij.h=Pair.h; Pai60ij.s=Pair.s; Pai60ij.m=Pair.m; Pai60ij.open=Pair.open; Pai60ij.er=Pair.er; Pai60ij.fr=Pair.fr; sprintf(Pai60ij.n,%s,Pair.n); /把数字变成字符串并输出void String(int x,int y,int d) char s100; sprintf(s,%d,d); outtextxy(x,y,s);/判断鼠标是否在纸牌上int OnP