Untitled

SUBMITTED BY: Guest

DATE: May 31, 2015, 3:03 a.m.

FORMAT: Text only

SIZE: 9.6 kB

Raw Download

HITS: 993

Report
  1. #include-once
  2. #include <array.au3>
  3. #include <Misc.au3>
  4. Global $CellW = 35 ;Chiều rộng ô
  5. Global $CellH = 35 ;Chiều dài ô
  6. Global $Map[24][30] ;Vị trí mìn
  7. Global $Stats[24][30] ;Các ô
  8. Global $Stats2[24][30] ;Trạng thái các ô
  9. Global $MWidth = 9 ;Bản đồ
  10. Global $MHeight = 9 ;Bản đồ
  11. Global $MMines = 10 ;Số mìn
  12. Global $UMines = 10 ;Số mìn còn lại
  13. Global $Playing = False ;Trạng thái game
  14. Global $First_click = False ;cái này cho bộ đếm thời gian
  15. Global $Count_time = 0 ;Biến đếm thời gian
  16. Global $DMoveX[9] = [-1,0,1,1,1,0,-1,-1,0] ;các hướng di chuyển
  17. Global $DMovey[9] = [-1,-1,-1,0,1,1,1,0,0] ;các hướng di chuyển
  18. ;// Tạo GUI
  19. $hGUI = GUICreate('AutMinesweeper',335,385)
  20. GUISetFont(9,default,default,'Arial',default,100)
  21. $FMenu = GUICtrlCreateMenu('Game')
  22. $NGame = GUICtrlCreateMenuItem('New Game',$Fmenu)
  23. GUICtrlCreateMenuItem('',$Fmenu)
  24. $SGame = GUICtrlCreateMenuItem('Statistics',$Fmenu)
  25. $OGame = GUICtrlCreateMenuItem('Options',$Fmenu)
  26. GUICtrlCreateMenuItem('',$Fmenu)
  27. $EGame = GUICtrlCreateMenuItem('Exit',$Fmenu)
  28. $HMenu = GUICtrlCreateMenu('Help')
  29. $VHelp = GUICtrlCreateMenuItem('View Help F1',$Hmenu)
  30. GUICtrlCreateMenuItem('',$Hmenu)
  31. $AHelp = GUICtrlCreateMenuItem('About AutMinesweeper',$Hmenu)
  32. GUICtrlCreateMenuItem('',$Hmenu)
  33. $GHelp = GUICtrlCreateMenuItem('Get more AutGame!',$Hmenu)
  34. ;////////////////////////////////////////////////////////////
  35. GUICtrlCreateLabel('Õ',50,325,40,40)
  36. GUICtrlSetFont(-1,40,400,Default,'Webdings')
  37. GUICtrlCreateLabel('Õ',232.5,325,40,40)
  38. GUICtrlSetFont(-1,40,400,Default,'Webdings')
  39. GUICtrlCreateLabel('l',75,335,40,40)
  40. GUICtrlSetFont(-1,11,500)
  41. GUICtrlSetBkColor(-1,-2)
  42. GUICtrlCreateLabel('!',252,337,40,40)
  43. GUICtrlSetFont(-1,10,500,Default,'Webdings')
  44. GUICtrlSetBkColor(-1,-2)
  45. GUICtrlCreateLabel('\',76,344,40,40)
  46. GUICtrlSetFont(-1,8,400)
  47. GUICtrlSetBkColor(-1,-2)
  48. GUICtrlCreateButton('',5,5,324,324)
  49. GUICtrlSetBkColor(-1,0xd0d0d0)
  50. GUICtrlSetState(-1,128)
  51. GUICtrlCreateLabel('',95,337.5,50,20,0x100b)
  52. GUICtrlCreateLabel('',190,337.5,50,20,0x100b)
  53. ;////////////////////////////////////////////////////////////
  54. $Timer_Show = GUICtrlCreateLabel(0,96,338.5,48,18,0x201)
  55. $Mine_Show = GUICtrlCreateLabel($UMines,191,338.5,48,18,0x201)
  56. For $i = 0 to $MWidth-1
  57. For $u = 0 to $MHeight-1
  58. GUICtrlCreateLabel('',10+$CellW*$i,10+$CellH*$u,$CellW-1,$CellH-1,0x100B)
  59. GUICtrlSetState(-1,128)
  60. $Stats[$i][$u] = GUICtrlCreateLabel('',12+$CellW*$i,12+$CellH*$u,$CellW-5,$CellH-5,0x0201)
  61. GUICtrlSetFont(-1,18,800)
  62. GUICtrlSetBkColor(-1,0xa0a0ff)
  63. Next
  64. Next
  65. newgame()
  66. GUISetState()
  67. While True
  68. $msg = GUIGetMsg()
  69. Switch $msg
  70. case -3
  71. Exit
  72. case $EGame
  73. Exit
  74. case $Ngame
  75. newgame()
  76. case $SGame
  77. MsgBox(4096,'AutMinesweeper','Not available now!',0,$hGUI)
  78. case $OGame
  79. MsgBox(4096,'AutMinesweeper','Not available now!',0,$hGUI)
  80. case $VHelp
  81. MsgBox(4096,'AutMinesweeper','Not available now!',0,$hGUI)
  82. case $AHelp
  83. MsgBox(4096,'AutMinesweeper','Not available now!',0,$hGUI)
  84. case $GHelp
  85. ShellExecute('http://hocautoit.com/')
  86. EndSwitch
  87. WEnd
  89. Func newgame()
  90. AdlibUnRegister('timer')
  91. AdlibUnRegister('event')
  92. Dim $Map[24][30]
  93. Dim $Stats2[24][30]
  94. For $i = 0 to $MWidth-1
  95. For $u = 0 to $MHeight-1
  96. GUICtrlSetData($Stats[$i][$u],'')
  97. GUICtrlSetFont($Stats[$i][$u],18,800)
  98. GUICtrlSetColor($Stats[$i][$u],0x)
  99. GUICtrlSetBkColor($Stats[$i][$u],0xa0a0ff)
  100. $Stats2[$i][$u] = 1
  101. Next
  102. Next
  103. Dim $UMines = $MMines
  104. Dim $Playing = True
  105. Dim $First_click = False
  106. addmines()
  107. AdlibRegister('event',100)
  108. EndFunc
  110. Func event()
  111. If WinActive($hGUI) == 0 then return False
  112. Local $MPo = GUIGetCursorInfo($hGUI)
  113. If @error Then Return False
  114. For $i = 0 to $MWidth-1
  115. For $u = 0 To $MHeight-1
  116. If $MPo[4] == $Stats[$i][$u] Then
  117. If $Playing == True Then
  118. If _IsPressed(01) And _IsPressed(02) Then
  119. Updown($i,$u,0)
  120. While _IsPressed(01) And _IsPressed(02)
  121. Sleep(10)
  122. WEnd
  123. Updown($i,$u,1)
  124. QuestionMarks($i,$u)
  125. ElseIf _IsPressed(02) Then
  126. FlagCell($i,$u)
  127. While _IsPressed(02)
  128. Sleep(10)
  129. WEnd
  130. ElseIf _IsPressed(01) Then
  131. If $First_click == False Then
  132. $First_click = True
  133. $Count_time = TimerInit()
  134. AdlibRegister('timer',100)
  135. EndIf
  136. $Res = open($i,$u,1)
  137. If $Res == 'Bom' Then
  138. Boooom()
  139. $Playing = False
  140. AdlibUnRegister('timer')
  141. MsgBox(4096,'AutMinesweeper','Game over',0,$hGUI)
  142. EndIf
  143. While _IsPressed(01)
  144. Sleep(10)
  145. WEnd
  146. EndIf
  147. EndIf
  148. EndIf
  149. Next
  150. Next
  151. If checkwin() == True Then
  152. $Playing = False
  153. AdlibUnRegister('timer')
  154. AdlibUnRegister('event')
  155. MsgBox(4096,'AutMinesweeper','Win',0,$hGUI)
  156. EndIf
  157. EndFunc
  159. Func color($snum)
  160. Switch $snum
  161. case 1
  162. Return 0x0100FE
  163. case 2
  164. return 0x017F01
  165. case 3
  166. return 0xFE0000
  167. case 4
  168. Return 0x010080
  169. case 5
  170. return 0x810102
  171. case 6
  172. Return 0x008081
  173. case 7
  174. return 0x000000
  175. case 8
  176. return 0x808080
  177. EndSwitch
  178. return 0xabcdef
  179. EndFunc
  181. Func timer()
  182. Local $GetTime = Floor(TimerDiff($Count_time)/1000)
  183. If GUICtrlRead($timer_show) <> $GetTime then GUICtrlSetData($timer_show,$Gettime)
  184. EndFunc
  186. Func Updown($r,$c,$type)
  187. For $n = 0 to 8
  188. If maps($r+$DMoveX[$n],$c+$DMovey[$n]) == True Then
  189. If $stats2[$r+$DMoveX[$n]][$c+$DMovey[$n]] == 1 Then
  190. If $type = 1 Then
  191. GUICtrlSetBkColor($stats[$r+$DMoveX[$n]][$c+$DMovey[$n]],0xa0a0ff)
  192. Else
  193. GUICtrlSetBkColor($stats[$r+$DMoveX[$n]][$c+$DMovey[$n]],0xd0d0d0)
  194. EndIf
  195. EndIf
  196. EndIf
  197. Next
  198. EndFunc
  200. Func QuestionMarks($r,$c)
  201. If $Stats2[$r][$c] == 1 or $Stats2[$r][$c] == 3 Then Return False
  202. If Maps($r,$c) == False Then Return False
  203. Local $Num = 0
  204. For $n = 0 to 7
  205. If maps($r+$DMoveX[$n],$c+$DMovey[$n]) == True Then
  206. If $map[$r+$DMoveX[$n]][$c+$DMovey[$n]] == 1 And $Stats2 [$r+$DMoveX[$n]][$c+$DMovey[$n]] == 1 Then
  207. $Num += 1
  208. EndIf
  209. EndIf
  210. Next
  211. If $Num == 0 Then
  212. For $n = 0 to 7
  213. If maps($r+$DMoveX[$n],$c+$DMovey[$n]) == True Then
  214. If $Stats2[$r+$DMoveX[$n]][$c+$DMovey[$n]] == 1 Then
  215. Open($r+$DMoveX[$n],$c+$DMovey[$n],1)
  216. EndIf
  217. EndIf
  218. Next
  219. EndIf
  220. EndFunc
  222. Func countMines($r,$c)
  223. Local $Num = 0
  224. For $n = 0 to 7
  225. If maps($r+$DMoveX[$n],$c+$DMovey[$n]) == True Then
  226. If $map[$r+$DMoveX[$n]][$c+$DMovey[$n]] == 1 Then
  227. $Num += 1
  228. EndIf
  229. EndIf
  230. Next
  231. Return $Num
  232. EndFunc
  234. Func FlagCell($r,$c)
  235. If $Stats2[$r][$c] == 2 Then Return False
  236. If $Stats2[$r][$c] == 1 Then
  237. $Stats2[$r][$c] = 3
  238. $UMines -= 1
  239. GUICtrlSetData($Stats[$r][$c],'w')
  240. GUICtrlSetColor($Stats[$r][$c],0xff0000)
  241. GUICtrlSetFont($Stats[$r][$c],25,800,Default,'Webdings')
  242. ElseIf $Stats2[$r][$c] == 3 Then
  243. $Stats2[$r][$c] = 1
  244. $UMines += 1
  245. GUICtrlSetData($Stats[$r][$c],'')
  246. GUICtrlSetColor($Stats[$r][$c],0x)
  247. GUICtrlSetFont($Stats[$r][$c],18,800,Default,'Arial')
  248. EndIf
  249. GUICtrlSetData($Mine_show,$UMines)
  250. Return True
  251. EndFunc
  253. Func open($r,$c,$type)
  254. If $Stats2[$r][$c] == 2 or $Stats2[$r][$c] == 3 Then Return False
  255. If Maps($r,$c) == False Then Return False
  256. If $map[$r][$c] == 1 Then
  257. If $type == 1 Then Return 'Bom'
  258. Return False
  259. EndIf
  260. Local $Cnt = countMines($r,$c)
  261. $Stats2[$r][$c] = 2
  262. GUICtrlSetBkColor($Stats[$r][$c],0xd0d0d0)
  263. If $Cnt > 0 Then
  264. GUICtrlSetData($Stats[$r][$c],$Cnt)
  265. GUICtrlSetColor($Stats[$r][$c],color($Cnt))
  266. Else
  267. For $n = 0 to 7
  268. $rX = $r+$DMoveX[$n]
  269. $cY = $c+$DMoveY[$n]
  270. If Maps($rX,$cY) == True Then
  271. open($rX,$cY,0)
  272. EndIf
  273. Next
  274. EndIf
  275. Return False
  276. EndFunc
  278. Func Maps($r,$c)
  279. If $r > -1 and $r < $MWidth and $c > -1 and $c < $MHeight Then Return True
  280. Return False
  281. EndFunc
  283. Func Boooom()
  284. for $i = 0 to $MWidth-1
  285. for $u = 0 to $MHeight-1
  286. If $Map[$i][$u] == 1 Then
  287. GUICtrlSetData($Stats[$i][$u],'!')
  288. GUICtrlSetFont($Stats[$i][$u],20,600,Default,'Webdings')
  289. GUICtrlSetBkColor($Stats[$i][$u],0xd0d0d0)
  290. EndIf
  291. Next
  292. Next
  293. EndFunc
  295. Func checkwin()
  296. Local $MaxCellAvai = $MWidth*$MHeight-$MMines
  297. Local $Opened = 0
  298. For $i = 0 to $MWidth-1
  299. For $u = 0 to $MHeight-1
  300. If $Stats2[$i][$u] == 2 then $Opened += 1
  301. Next
  302. Next
  303. If $Opened == $MaxCellAvai then Return True
  304. Return False
  305. EndFunc
  307. Func addmines()
  308. For $i = 1 to $MMines
  309. Do
  310. Local $mmr_ = Random(0,$MWidth-1,1)
  311. Local $mmr__ = Random(0,$MHeight-1,1)
  312. If $Map[$mmr_][$mmr__] == '' Then
  313. $Map[$mmr_][$mmr__] = 1
  314. ExitLoop
  315. EndIf
  316. Until True == False
  317. Next
  318. EndFunc
comments powered by Disqus