【有源码】TC扫雷游戏，开源

lyf1314

游客，如果您要查看本帖隐藏内容请回复

用兴趣的同学可以修改下，做毕业设计
插件附带在打包的源码里了，TC毕业设计要求纯TC，所以需要的同学可以用控件来完成，我这里偷懒，直接写了个插件，画上去的

1. #import "T.Class" x
   
2. //此为画图插件，将图片画到主显示画面上
   
3. //函数1 画图(来源句柄，绘图句柄,绘图x位置，绘图y位置，图片宽，图片高)
   
4. //函数2 画图2(来源句柄，绘图句柄,绘图x位置，绘图y位置，图片宽，图片高)
   
5. namespace dd
   
6. 
   
7. 
   
8. //*************这里是全局变量***********************
   
9. 
   
10. int[][] What                  //点
    
11. int[][] Save                  //存
    
12. int mX                        //x坐标
    
13. int mY                       //y坐标
    
14. int mTime                    //时间
    
15. int MineFlag                 //标记雷数量
    
16. int OpenFlag                //标记已打开的
    
17. int NowWidth                //宽度，横向数量
    
18. int NowHeight               //高度，纵向数量
    
19. int TotMine                //总雷数
    
20. bool Game                  //控制游戏
    
21. bool pick                  //控制小红旗不为负数
    
22. //************变量定义结束********************
    
23. 
    
24. 
    
25. //******自定义功能区开始********************************
    
26. 
    
27. //预设雷位置
    
28. function int ClearStart(int mWidth,int mHeight,int MineNumber)
    
29.     int T,X,Y
    
30.     mTime = 0
    
31.     MineFlag = 0
    
32.     OpenFlag = 0
    
33.     Game=true
    
34.     timer.register("timer0",1000)
    
35.    
    
36.     for(int i=0;i<=31;i++)
    
37.         for(int j=0;j<=17;j++)
    
38.             What[i][j]=0
    
39.             Save[i][j]=0      
    
40.         endfor        
    
41.     endfor
    
42.     //清空数组
    
43.     while(T<=MineNumber)
    
44.         //任意取一个坐标(X,Y)
    
45.         X=help.randto(0,mWidth-1)
    
46.         Y=help.randto(0,mHeight-1)
    
47.         //如果已经取过该坐标则重新再取
    
48.         if(What[X+1][Y+1]==10)
    
49.             continue
    
50.         endif
    
51.         //将当前坐标标记为有雷
    
52.         What[X+1][Y+1]=10
    
53.         Save[X+1][Y+1]=10
    
54.         T=T+1
    
55.     endwhile
    
56.     return 0
    
57. endfunction
    
58. 
    
59. 
    
60. //写入数据
    
61. function int WriteNumber(int mWidth,int mHeight)
    
62.    
    
63.     int StartX
    
64.     int StartY
    
65.     int EndX
    
66.     int EndY
    
67.     int mNumber
    
68.    
    
69.     for(int X=1;X<=mWidth;X++)
    
70.         //从当前列的上一列开始
    
71.         StartX=X-1
    
72.         if(StartX==0)
    
73.             StartX=1
    
74.         endif
    
75.         //在当前列的下一列结束
    
76.         EndX=X+1
    
77.         if(EndX>mWidth)
    
78.             EndX=mWidth
    
79.         endif
    
80.         for(int Y=1;Y<=mHeight;Y++)
    
81.             //如果当前位置不是雷则开始计算
    
82.             if(What[X][Y]!=10)
    
83.                 //从当前行的上一行开始
    
84.                 StartY=Y-1
    
85.                 if(StartY==0)
    
86.                     StartY=1
    
87.                 endif
    
88.                 //在当前行的下一行结束
    
89.                 EndY=Y+1
    
90.                 if(EndY>mHeight)
    
91.                     EndY=mHeight
    
92.                 endif
    
93.                 //累加器置0
    
94.                 mNumber=0
    
95.                 //计算四周有多少颗雷
    
96.                 for(int T=StartX;T<=EndX;T++)
    
97.                     for(int TT=StartY;TT<=EndY;TT++)
    
98.                         if(TT==Y&&T==X)
    
99.                             //如果是当前位置则不计入
    
100.                            
     
101.                         else
     
102.                             //如果是雷则计入
     
103.                             if(What[T][TT]==10)
     
104.                                 mNumber=mNumber+1
     
105.                             endif
     
106.                         endif
     
107.                     endfor
     
108.                 endfor
     
109.                 if(mNumber==0)
     
110.                     //如果没有雷在其四周则打开当前位置
     
111.                     What[X][Y]=0
     
112.                     Save[X][Y]=0
     
113.                 else
     
114.                     //写入雷数
     
115.                     What[X][Y]=mNumber
     
116.                     Save[X][Y]=mNumber
     
117.                 endif
     
118.             endif
     
119.         endfor
     
120.     endfor
     
121.     return 0
     
122. endfunction
     
123. 
     
124. 
     
125. 
     
126. //雷区打开，模拟windows扫雷点击展开临近一片区域
     
127. function int OpenBlank(int zmX,int zmY)
     
128.    
     
129.    
     
130.    
     
131.    
     
132.     bool Continues
     
133.    
     
134.     OpenFlag = OpenFlag + 1
     
135.    
     
136.     while(true)
     
137.         Continues = false
     
138.         
     
139.         for(mY=1;mY<=NowHeight;mY++)
     
140.             for(mX=1;mX<=NowWidth;mX++)
     
141.                
     
142.                 if(What[mX][mY]==11)
     
143.                     //如果存在未判断的空
     
144.                     Continues = true
     
145.                     
     
146.                     //把它周围的8个点打开
     
147.                     //先打开左面的点
     
148.                     if(mX-1>=1)
     
149.                         if(What[mX-1][mY]==0)
     
150.                             What[mX-1][mY]=11
     
151.                             x.画图2(控件.获得句柄("picture2"),控件.获得句柄("picture0"),(mX-2)*15,(mY-1)*15,16,16)
     
152.                             OpenFlag = OpenFlag + 1
     
153.                         else
     
154.                            
     
155.                             if(What[mX-1][mY]>=1&&What[mX-1][mY]<=9)
     
156.                                 x.画图2(控件.获得句柄("picture"+convert.inttostr(What[mX-1][mY]+2)),控件.获得句柄("picture0"),(mX-2)*15,(mY-1)*15,16,16)
     
157.                                 What[mX-1][mY]=-What[mX-1][mY]
     
158.                                 OpenFlag = OpenFlag + 1
     
159.                             endif
     
160.                         endif
     
161.                     endif
     
162.                     
     
163.                     //打开左上的点
     
164.                     if(mX-1>=1&&mY-1>=1)
     
165.                         if(What[mX-1][mY-1]==0)
     
166.                             What[mX-1][mY-1]=11
     
167.                             x.画图2(控件.获得句柄("picture2"),控件.获得句柄("picture0"),(mX-2)*15,(mY-2)*15,16,16)
     
168.                             OpenFlag=OpenFlag+1
     
169.                         else
     
170.                            
     
171.                             if(What[mX-1][mY-1]>=1&&What[mX-1][mY-1]<=9)
     
172.                                 x.画图2(控件.获得句柄("picture"+convert.inttostr(What[mX-1][mY-1]+2)),控件.获得句柄("picture0"),(mX-2)*15,(mY-2)*15,16,16)
     
173.                                 What[mX-1][mY-1]=-What[mX-1][mY-1]
     
174.                                 OpenFlag=OpenFlag+1
     
175.                             endif
     
176.                         endif
     
177.                     endif
     
178.                     
     
179.                     //再打开上面的点
     
180.                     if(mY-1>=1)
     
181.                         if(What[mX][mY-1]==0)
     
182.                             What[mX][mY-1]=11
     
183.                             x.画图2(控件.获得句柄("picture2"),控件.获得句柄("picture0"),(mX-1)*15,(mY-2)*15,16,16)
     
184.                             OpenFlag=OpenFlag+1
     
185.                         else
     
186.                            
     
187.                             if(What[mX][mY-1]>=1&&What[mX][mY-1]<=9)
     
188.                                 x.画图2(控件.获得句柄("picture"+convert.inttostr(What[mX][mY-1]+2)),控件.获得句柄("picture0"),(mX-1)*15,(mY-2)*15,16,16)
     
189.                                 What[mX][mY-1]=-What[mX][mY-1]
     
190.                                 OpenFlag=OpenFlag+1
     
191.                             endif
     
192.                         endif
     
193.                     endif
     
194.                     
     
195.                     //打开右上的点
     
196.                     if(mY-1>=1&&mX+1<=NowWidth)
     
197.                         if(What[mX+1][mY-1]==0)
     
198.                             What[mX+1][mY-1]=11
     
199.                             x.画图2(控件.获得句柄("picture2"),控件.获得句柄("picture0"),(mX)*15,(mY-2)*15,16,16)
     
200.                             OpenFlag=OpenFlag+1
     
201.                         else
     
202.                            
     
203.                             if(What[mX+1][mY-1]>=1&&What[mX+1][mY-1]<=9)
     
204.                                 x.画图2(控件.获得句柄("picture"+convert.inttostr(What[mX+1][mY-1]+2)),控件.获得句柄("picture0"),(mX)*15,(mY-2)*15,16,16)
     
205.                                 What[mX+1][mY-1]=-What[mX+1][mY-1]
     
206.                                 OpenFlag=OpenFlag+1
     
207.                             endif
     
208.                         endif
     
209.                     endif
     
210.                     
     
211.                     //再打开右面的点
     
212.                     if(mX+1<=NowWidth)
     
213.                         if(What[mX+1][mY]==0)
     
214.                             What[mX+1][mY]=11
     
215.                             x.画图2(控件.获得句柄("picture2"),控件.获得句柄("picture0"),(mX)*15,(mY-1)*15,16,16)
     
216.                             OpenFlag=OpenFlag+1
     
217.                         else
     
218.                            
     
219.                             if(What[mX+1][mY]>=1&&What[mX+1][mY]<=9)
     
220.                                 x.画图2(控件.获得句柄("picture"+convert.inttostr(What[mX+1][mY]+2)),控件.获得句柄("picture0"),(mX)*15,(mY-1)*15,16,16)
     
221.                                 What[mX+1][mY]=-What[mX+1][mY]
     
222.                                 OpenFlag=OpenFlag+1
     
223.                             endif
     
224.                         endif
     
225.                     endif
     
226.                     
     
227.                     //再打开右下的点
     
228.                     if(mY+1<=NowHeight&&mX+1<=NowWidth)
     
229.                         if(What[mX+1][mY+1]==0)
     
230.                             What[mX+1][mY+1]=11
     
231.                             x.画图2(控件.获得句柄("picture2"),控件.获得句柄("picture0"),mX*15,mY*15,16,16)
     
232.                             OpenFlag=OpenFlag+1
     
233.                         else
     
234.                            
     
235.                             if(What[mX+1][mY+1]>=1&&What[mX+1][mY+1]<=9)
     
236.                                 x.画图2(控件.获得句柄("picture"+convert.inttostr(What[mX+1][mY+1]+2)),控件.获得句柄("picture0"),mX*15,mY*15,16,16)
     
237.                                 What[mX+1][mY+1]=-What[mX+1][mY+1]
     
238.                                 OpenFlag=OpenFlag+1
     
239.                             endif
     
240.                         endif
     
241.                     endif
     
242.                     
     
243.                     //打开下面的点
     
244.                     if(mY+1<=NowHeight)
     
245.                         if(What[mX][mY+1]==0)
     
246.                             What[mX][mY+1]=11
     
247.                             x.画图2(控件.获得句柄("picture2"),控件.获得句柄("picture0"),(mX-1)*15,(mY)*15,16,16)
     
248.                             OpenFlag=OpenFlag+1
     
249.                         else
     
250.                            
     
251.                             if(What[mX][mY+1]>=1&&What[mX][mY+1]<=9)
     
252.                                 x.画图2(控件.获得句柄("picture"+convert.inttostr(What[mX][mY+1]+2)),控件.获得句柄("picture0"),(mX-1)*15,(mY)*15,16,16)
     
253.                                 What[mX][mY+1]=-What[mX][mY+1]
     
254.                                 OpenFlag=OpenFlag+1
     
255.                             endif
     
256.                         endif
     
257.                     endif
     
258.                     
     
259.                     //最后打开左下的点
     
260.                     if(mY+1<=NowHeight&&mX-1>=1)
     
261.                         if(What[mX-1][mY+1]==0)
     
262.                             What[mX-1][mY+1]=11
     
263.                             x.画图2(控件.获得句柄("picture2"),控件.获得句柄("picture0"),(mX-2)*15,(mY)*15,16,16)
     
264.                             OpenFlag=OpenFlag+1
     
265.                         else
     
266.                            
     
267.                             if(What[mX-1][mY+1]>=1&&What[mX-1][mY+1]<=9)
     
268.                                 x.画图2(控件.获得句柄("picture"+convert.inttostr(What[mX-1][mY+1]+2)),控件.获得句柄("picture0"),(mX-2)*15,(mY)*15,16,16)
     
269.                                 What[mX-1][mY+1]=-What[mX-1][mY+1]
     
270.                                 OpenFlag=OpenFlag+1
     
271.                             endif
     
272.                         endif
     
273.                     endif
     
274.                     
     
275.                     //四点判断完后将本点标记为已判断过
     
276.                     What[mX][mY]=12
     
277.                 endif
     
278.                
     
279.             endfor
     
280.         endfor
     
281.         
     
282.         if(Continues==false)
     
283.             break
     
284.         endif
     
285.     endwhile
     
286.     return 0
     
287. endfunction
     
288. 
     
289. 
     
290. //游戏结束，显示所有雷，并且标记雷错误显示
     
291. function int EndGame()
     
292.     for(int Y=1;Y<=NowHeight;Y++)
     
293.         for(int X=1;X<=NowWidth;X++)
     
294.             if(What[X][Y]==10)
     
295.                 x.画图2(控件.获得句柄("picture15"),控件.获得句柄("picture0"),(X-1)*15,(Y-1)*15,16,16)
     
296.             else
     
297.                 if(What[X][Y]==13)
     
298.                     if(Save[X][Y]!=10)
     
299.                         x.画图2(控件.获得句柄("picture14"),控件.获得句柄("picture0"),(X-1)*15,(Y-1)*15,16,16)
     
300.                     endif
     
301.                 else
     
302.                     if(What[X][Y]==14)
     
303.                         if(Save[X][Y]==10)
     
304.                             x.画图2(控件.获得句柄("picture15"),控件.获得句柄("picture0"),(X-1)*15,(Y-1)*15,16,16)
     
305.                         endif
     
306.                     endif
     
307.                 endif
     
308.             endif
     
309.         endfor
     
310.     endfor
     
311.     return 0
     
312. endfunction
     
313. 
     
314. //*******自定义功能区结束***************************************
     
315. 
     
316. function bool start_click()
     
317.     int a
     
318.     a=combo.getcursel("ComboBox0")
     
319.     select(a)
     
320.         case 0:
     
321.         NowHeight = 9
     
322.         NowWidth = 9
     
323.         TotMine = 10
     
324.         case 1:
     
325.         NowHeight = 16
     
326.         NowWidth = 16
     
327.         TotMine = 40
     
328.         case 2:
     
329.         NowHeight = 16
     
330.         NowWidth = 30
     
331.         TotMine = 99
     
332.     endselect
     
333.     edit.settext("edit1",convert.inttostr(TotMine))
     
334.     edit.settext("edit0","0")
     
335.     window.setwindowsize(控件.获得句柄("picture0"),NowWidth*15,NowHeight*15)
     
336.     for(int X=0;X<=NowWidth-1;X++)
     
337.         for(int Y=0;Y<=NowHeight-1;Y++)
     
338.             x.画图2(控件.获得句柄("picture11"),控件.获得句柄("picture0"),X*15,Y*15,16,16)
     
339.         endfor
     
340.     endfor
     
341.     dd.ClearStart(NowWidth,NowHeight,TotMine)
     
342.     dd.WriteNumber(NowWidth,NowHeight)
     
343.    
     
344.     return true
     
345. endfunction
     
346. 
     
347. function bool exit_click()
     
348. help.exit()
     
349. 
     
350. return true
     
351. endfunction
     
352. 
     
353. 
     
354. 
     
355. 
     
356. function bool init()
     
357. help.regdll("rc:T.dll",true)
     
358. What=int[32][18]
     
359. Save=int[32][18]
     
360. combo.setcursel("ComboBox0",0)
     
361. int i
     
362. for(i=0;i<=14;i++)
     
363.     picture.setpicture("picture"+convert.inttostr(i+2),"rc:"+convert.inttostr(i)+".bmp")
     
364. endfor
     
365. return true
     
366. endfunction
     
367. 
     
368. function bool dd_pretranslatemessage(int hwnd,int message,int wParam,int lParam,int time,int x,int y)
     
369.     int T
     
370.     int X1
     
371.     int Y1
     
372.     int x2
     
373.     int y2
     
374.     if(Game==true)
     
375.         if(hwnd==控件.获得句柄("picture0"))
     
376.             window.screentoclient(控件.获得句柄("picture0"),x,y,x,y)
     
377.             mX=x/15
     
378.             mY=y/15
     
379.             
     
380.             
     
381.             //左键按下
     
382.             if(message==513)
     
383.                 if(What[mX+1][mY+1]>=0&&What[mX+1][mY+1]<=10)
     
384.                     x.画图2(控件.获得句柄("picture16"),控件.获得句柄("picture0"),mX*15,mY*15,16,16)
     
385.                 endif
     
386.                
     
387.             endif
     
388.             
     
389.             
     
390.             //左键弹起
     
391.             if(message==514)
     
392.                 if(What[mX+1][mY+1]==10)
     
393.                     //点到雷
     
394.                     x.画图2(控件.获得句柄("picture15"),控件.获得句柄("picture0"),mX*15,mY*15,16,16)
     
395.                     dd.EndGame()
     
396.                     Game=false   //游戏结束，路由消息停止响应
     
397.                     timer.kill("timer0")//销毁定时器，停止时间
     
398.                     
     
399.                 endif
     
400.                 if(What[mX+1][mY+1]>=1&&What[mX+1][mY+1]<=9)
     
401.                     //点到数字
     
402.                     OpenFlag=OpenFlag+1
     
403.                     x.画图2(控件.获得句柄("picture"+convert.inttostr(What[mX+1][mY+1]+2)),控件.获得句柄("picture0"),mX*15,mY*15,16,16)
     
404.                     What[mX+1][mY+1]=-What[mX+1][mY+1]
     
405.                 endif
     
406.                 if(What[mX+1][mY+1]==0)
     
407.                     //点到空
     
408.                     x.画图2(控件.获得句柄("picture2"),控件.获得句柄("picture0"),mX*15,mY*15,16,16)
     
409.                     What[mX+1][mY+1]=11
     
410.                     dd.OpenBlank(mX+1,mY+1)
     
411.                 endif
     
412.                 if(MineFlag+OpenFlag==NowHeight*NowWidth)
     
413.                     //通关
     
414.                     
     
415.                 endif
     
416.                
     
417.             endif
     
418.             
     
419.             
     
420.             //右键按下
     
421.             if(message==516)
     
422.                 if(What[mX+1][mY+1]>=-9&&What[mX+1][mY+1]<=-1)
     
423.                     T = 0
     
424.                     //计算标记的雷
     
425.                     for(X1=mX;X1<=mX + 2;X1++)
     
426.                         for(Y1=mY;Y1<=mY+2;Y1++)
     
427.                             if(X1==mX+1&&Y1==mY+1)
     
428.                             else
     
429.                                 if(X1>=1&&X1<=NowWidth)
     
430.                                     if(Y1>=1&&Y1<=NowHeight)
     
431.                                         if(What[X1][Y1]==13)
     
432.                                             T=T+1
     
433.                                         endif
     
434.                                     endif
     
435.                                 endif
     
436.                             endif
     
437.                         endfor
     
438.                     endfor
     
439.                     //如果标记数大于等于雷数则不处理
     
440.                     if(T>=-What[mX+1][mY+1])
     
441.                         //这里不处理，有全局变量控制
     
442.                     endif
     
443.                     //如果标记数等于雷数则打开
     
444.                     if(T==-What[mX+1][mY+1])
     
445.                         for(X1=mX;X1<=mX+2;X1++)
     
446.                             for(Y1=mY;Y1<=mY+2;Y1++)
     
447.                                 if(X1==mX+1&&Y1==mY+1)
     
448.                                 else
     
449.                                     if(X1>=1&&X1<=NowWidth)
     
450.                                         if(Y1>=1&&Y1<=NowHeight)
     
451.                                             x2=X1
     
452.                                             y2=Y1
     
453.                                             //获胜
     
454.                                         endif
     
455.                                     endif
     
456.                                 endif
     
457.                             endfor
     
458.                         endfor
     
459.                     endif
     
460.                     //如果标记数小于雷数则按下余下的
     
461.                     for(X1=mX;X1<=mX+2;X1++)
     
462.                         for(Y1=mY;Y1<=mY+2;Y1++)
     
463.                             if(X1==mX+1&&Y1==mY+1)
     
464.                             else
     
465.                                 if(X1>=1&&X1<=NowWidth)
     
466.                                     if(Y1>=1&&Y1<=NowHeight)
     
467.                                         if(What[X1][Y1]>=0&&What[X1][Y1]<=10)
     
468.                                             
     
469.                                         endif
     
470.                                     endif
     
471.                                 endif
     
472.                                 
     
473.                             endif
     
474.                         endfor
     
475.                     endfor
     
476.                 endif
     
477.             endif
     
478.             
     
479.             
     
480.             //右键弹起
     
481.             if(message==517)
     
482.                 if(What[mX+1][mY+1]>=0&&What[mX+1][mY+1]<=10)
     
483.                     if(pick==true)//这里控制了小红旗数量
     
484.                         //未标记过的进行标记
     
485.                         Save[mX+1][mY+1]=What[mX+1][mY+1]
     
486.                         What[mX+1][mY+1]=13
     
487.                         x.画图2(控件.获得句柄("picture12"),控件.获得句柄("picture0"),mX*15,mY*15,16,16)
     
488.                         MineFlag=MineFlag+1
     
489.                         edit.settext("edit1",convert.inttostr(TotMine-MineFlag))
     
490.                     endif
     
491.                 else
     
492.                     if(What[mX+1][mY+1]==13)
     
493.                         //已经标记过则改为?
     
494.                         What[mX+1][mY+1]=14
     
495.                         MineFlag=MineFlag-1
     
496.                         edit.settext("edit1",convert.inttostr(TotMine-MineFlag))
     
497.                         x.画图2(控件.获得句柄("picture13"),控件.获得句柄("picture0"),mX*15,mY*15,16,16)
     
498.                     else
     
499.                         if(What[mX+1][mY+1]==14)
     
500.                             //标记过?号的则
     
501.                             What[mX+1][mY+1]=Save[mX+1][mY+1]
     
502.                             x.画图2(控件.获得句柄("picture11"),控件.获得句柄("picture0"),mX*15,mY*15,16,16)
     
503.                         endif
     
504.                     endif
     
505.                 endif
     
506.             endif
     
507.         endif
     
508.     endif
     
509.     return false
     
510. endfunction
     
511. 
     
512. 
     
513. function bool timer0_ontime()
     
514.     mTime=mTime+1
     
515.     edit.settext("edit0",convert.inttostr(mTime))
     
516.     return true
     
517. 
     
518. endfunction
     
519. 
     
520. function bool edit1_enchange()
     
521.     int a
     
522.     a=convert.strtoint(edit.gettext("edit1"),0)
     
523.     if(a>0)
     
524.         pick=true
     
525.     else
     
526.         pick=false
     
527.     endif
     
528.    
     
529.     return true
     
530. endfunction
     
531. 
     
532. 
     
533. endnamespace

复制代码

zgzjwzlx

964430272

顶顶

陌上青衣。

***** 该内容需会员权限高于300才可浏览 *****

mengtianxi

kkkkkkkkkkkkkkkk

lt729541702

郑州小兵

新手报到

qq06314488

我勒个去

tlkb

复杂么

TC-y

看看