Untitled

SUBMITTED BY: Guest

DATE: July 28, 2015, 3:12 p.m.

FORMAT: Text only

SIZE: 15.7 kB

Raw Download

HITS: 441

Report
  1. #include <array.au3>
  2. #include <Misc.au3>
  3. Global $hDLL = DllOpen("user32.dll")
  4. Global $Title[4][4]
  5. Global $Value[4][4] = [['1','2','3','4'],['5','6','7','8'],['9','10','11','12'],['13','14','15','16']]
  6. Global $Map[4][4] = [['1','2','3','4'],['5','6','7','8'],['9','10','11','12'],['13','14','15','16']]
  7. Global $Score = 0
  8. Global $Win = False
  9. Global $IsNewGame = False
  10. Global $key_down_delays = 200
  11. Global $Key = 'HKEY_CURRENT_USER\Software\AutoIt v3\2048'
  12. $hGUI = GUICreate('2048',300,410)
  13. GUISetFont(8.5,400,-1,'Arial')
  14. GUISetBkColor(0xFAf8EF)
  15. GUICtrlCreateLabel('2048',14,8,87,37)
  16. GUICtrlSetFont(-1,30,800)
  17. GUICtrlSetColor(-1,0x776E65)
  18. GUICtrlCreateLabel('',115,12.5,85,35,0x1000)
  19. GUICtrlSetBkColor(-1,0xBBADA0)
  20. GUICtrlCreateLabel('SCORE',114,15,85,15,0x01)
  21. GUICtrlSetColor(-1,0xEEE4CF)
  22. GUICtrlSetFont(-1,8,600)
  23. GUICtrlSetBkColor(-1,-2)
  24. $Current_Score_show = GUICtrlCreateLabel('0',114,28.5,85,15,0x01)
  25. GUICtrlSetColor(-1,0xf0f0f0)
  26. GUICtrlSetFont(-1,10,600)
  27. GUICtrlSetBkColor(-1,-2)
  28. $Add_score = GUICtrlCreateLabel('',114,28.5,85,15,0x01)
  29. GUICtrlSetColor(-1,0x776E65)
  30. GUICtrlSetFont(-1,10,600)
  31. GUICtrlSetBkColor(-1,-2)
  32. GUICtrlCreateLabel('',205,12.5,85,35,0x1000)
  33. GUICtrlSetBkColor(-1,0xBBADA0)
  34. GUICtrlCreateLabel('BEST',204,15,85,15,0x01)
  35. GUICtrlSetColor(-1,0xEEE4CF)
  36. GUICtrlSetFont(-1,8,600)
  37. GUICtrlSetBkColor(-1,-2)
  38. $Best_Score_show = GUICtrlCreateLabel(RegRead($key,'best'),204,28.5,85,15,0x01)
  39. GUICtrlSetColor(-1,0xf0f0f0)
  40. GUICtrlSetFont(-1,10,600)
  41. GUICtrlSetBkColor(-1,-2)
  42. GUICtrlCreateLabel('Join the numbers and get to the',15,65,133,15)
  43. GUICtrlSetFont(-1,7,400)
  44. GUICtrlSetColor(-1,0x776E65)
  45. GUICtrlCreateLabel('2048 tile!',152,65,50,15)
  46. GUICtrlSetFont(-1,7,600)
  47. GUICtrlSetColor(-1,0x776E65)
  48. $NewGame_button = GUICtrlCreateButton('New Game',205,57.5,85,25)
  49. GUICtrlSetBKColor(-1,0x8F7A66)
  50. GUICtrlSetColor(-1,0xf0f0f0)
  51. GUICtrlSetFont(-1,-1,600)
  52. $Author_button = GUICtrlCreateButton('Author',10,90,85,25)
  53. GUICtrlSetBKColor(-1,0x8F7A66)
  54. GUICtrlSetColor(-1,0xf0f0f0)
  55. GUICtrlSetFont(-1,-1,600)
  56. $Auto_button = GUICtrlCreateButton('Start AI',205,90,85,25)
  57. GUICtrlSetBKColor(-1,0x8F7A66)
  58. GUICtrlSetColor(-1,0xf0f0f0)
  59. GUICtrlSetFont(-1,-1,600)
  60. GUICtrlCreateButton('',10,120,280,280)
  61. GUICtrlSetBKColor(-1,0xafa8a2)
  62. GUICtrlSetState(-1,128)
  63. $x = 20
  64. $y = 130
  65. For $i = 0 to 3
  66. For $u = 0 to 3
  67. $Title[$i][$u] = GUICtrlCreateLabel($value[$i][$u],$x+$u*67.5,$y+$i*67.5,57.5,57.5,0x1201)
  68. GUICtrlSetBKColor(-1,0xCCC0B3)
  69. GUICtrlSetState(-1,64)
  70. GUICtrlSetFont(-1,12,800)
  71. Next
  72. Next
  73. $Win_label = GUICtrlCreateLabel('You win!',11,211,280,40,0x01)
  74. GUICtrlSetBKColor(-1,-2)
  75. GUICtrlSetFont(-1,30,900)
  76. GUICtrlSetColor(-1,0xffff00)
  77. GUICtrlSetState(-1,32+128)
  78. $Win_label_b = GUICtrlCreateLabel('You win!',10,210,280,40,0x01)
  79. GUICtrlSetBKColor(-1,-2)
  80. GUICtrlSetFont(-1,30,900)
  81. GUICtrlSetState(-1,32+128)
  82. $KeepGoing_button = GUICtrlCreateButton('Keep going',55,260,90,30)
  83. GUICtrlSetBKColor(-1,0x8F7A66)
  84. GUICtrlSetColor(-1,0xf0f0f0)
  85. GUICtrlSetFont(-1,-1,600)
  86. GUICtrlSetState(-1,32+128)
  87. $NewG_button = GUICtrlCreateButton('New game',155,260,90,30)
  88. GUICtrlSetBKColor(-1,0x8F7A66)
  89. GUICtrlSetColor(-1,0xf0f0f0)
  90. GUICtrlSetFont(-1,-1,600)
  91. GUICtrlSetState(-1,32+128)
  92. $GameOver_label = GUICtrlCreateLabel('Game over!',11,211,280,40,0x01)
  93. GUICtrlSetBKColor(-1,-2)
  94. GUICtrlSetFont(-1,30,900)
  95. GUICtrlSetColor(-1,0xff0000)
  96. GUICtrlSetState(-1,32+128)
  97. $GameOver_label_b = GUICtrlCreateLabel('Game over!',10,210,280,40,0x01)
  98. GUICtrlSetBKColor(-1,-2)
  99. GUICtrlSetFont(-1,30,900)
  100. GUICtrlSetState(-1,32+128)
  101. $TryAgain_button = GUICtrlCreateButton('Try again',105,260,90,30)
  102. GUICtrlSetBKColor(-1,0x8F7A66)
  103. GUICtrlSetColor(-1,0xf0f0f0)
  104. GUICtrlSetFont(-1,-1,600)
  105. GUICtrlSetState(-1,32+128)
  106. GUISetState()
  107. newgame()
  108. While True
  109. $msg = GUIGetMsg()
  110. Switch $msg
  111. case -3
  112. if MsgBox(4,'2048','Do you really want to quit?',0,$hGUI) == 6 then exit
  113. case $Auto_button
  114. MsgBox(4096,'2048','Comming Soon...',0,$hGUI)
  115. case $Author_button
  116. MsgBox(4096,'2048','Facebook: http://fb.com/955610707797621' & @LF & 'Email: anonangel2001@gmail.com' & @LF & 'Blog: http://anonangelteam.blogspot.com',0,$hGUI)
  117. case $TryAgain_button
  118. newgame()
  119. case $NewGame_button
  120. newgame()
  121. case $NewG_button
  122. newgame()
  123. case $KeepGoing_button
  124. set(64)
  125. GUICtrlSetState($Win_label,32+128)
  126. GUICtrlSetState($Win_label_b,32+128)
  127. GUICtrlSetState($KeepGoing_button,32+128)
  128. GUICtrlSetState($NewG_button,32+128)
  129. AdlibRegister('getkey',1)
  130. EndSwitch
  131. WEnd
  133. func checkwin()
  134. For $g = 0 To 3
  135. for $gg = 0 to 3
  136. if $value[$g][$gg] == 2048 then Return True
  137. Next
  138. Next
  139. return false
  140. EndFunc
  142. Func getkey()
  143. if WinActive($hGUI) Then
  144. Global $map = coppy($value)
  145. if _IsPressed("25") Then
  146. $re = moveleft()
  147. EndIf
  148. if _IsPressed("26") Then
  149. $re = moveup()
  150. EndIf
  151. if _IsPressed("27") Then
  152. $re = moveright()
  153. EndIf
  154. if _IsPressed("28") Then
  155. $re = movedown()
  156. EndIf
  157. if isEqualMatrix($map,$value) == false Then
  158. $value = coppy($map)
  159. redraw()
  160. if $re > 0 Then
  161. $score += $re
  162. ;~ addscore($re)
  163. Sleep($key_down_delays)
  164. EndIf
  165. addtitle()
  166. if $Win = False then
  167. if checkwin() == True then
  168. set(128)
  169. GUICtrlSetState($Win_label,64+16)
  170. GUICtrlSetState($Win_label_b,64+16)
  171. GUICtrlSetState($KeepGoing_button,64+16)
  172. GUICtrlSetState($NewG_button,64+16)
  173. AdlibUnRegister('getkey')
  174. $Win = True
  175. EndIf
  176. EndIf
  177. EndIf
  178. EndIf
  179. EndFunc
  181. Func addscore($sco)
  182. $x = Random(0,15,1)*-1 + 114
  183. GUICtrlSetData($add_score,'+'&$sco)
  184. $len = stringlen($Sco)
  185. for $y = 28.5 to 0 step -1
  186. GUICtrlSetPos($add_score,$x+(85-($len+1)*10)/2,$y,($len+1)*10,13)
  187. Sleep($key_down_delays/28.5)
  188. Next
  189. GUICtrlSetData($add_score,'')
  190. EndFunc
  192. func set($stt)
  193. For $g = 0 To 3
  194. for $gg = 0 to 3
  195. GUICtrlSetState($title[$g][$gg],$stt)
  196. Next
  197. Next
  198. endfunc
  200. Func newgame()
  201. set(64)
  202. GUICtrlSetState($GameOver_label,32+128)
  203. GUICtrlSetState($GameOver_label_b,32+128)
  204. GUICtrlSetState($TryAgain_button,32+128)
  205. GUICtrlSetState($Win_label,32+128)
  206. GUICtrlSetState($Win_label_b,32+128)
  207. GUICtrlSetState($KeepGoing_button,32+128)
  208. GUICtrlSetState($NewG_button,32+128)
  209. Global $Value[4][4] = [['0','0','0','0'],['0','0','0','0'],['0','0','0','0'],['0','0','0','0']]
  210. $Win = False
  211. $IsNewGame = True
  212. addtitle()
  213. addtitle()
  214. $IsNewGame = False
  215. AdlibRegister('getkey',1)
  216. EndFunc
  218. Func checkmove()
  219. $NoMove = True
  220. for $cm = 0 to 3
  221. Global $map = coppy($value)
  222. $re = move($cm)
  223. if isEqualMatrix($map,$value) == false then
  224. $NoMove = False
  225. EndIf
  226. Next
  227. if $NoMove == True and $IsNewGame == False Then
  228. set(128)
  229. GUICtrlSetState($GameOver_label,64+16)
  230. GUICtrlSetState($GameOver_label_b,64+16)
  231. GUICtrlSetState($TryAgain_button,64+16)
  232. AdlibUnRegister('getkey')
  233. EndIf
  234. EndFunc
  236. func redraw()
  237. For $i = 0 to 3
  238. For $u = 0 to 3
  239. If GUICtrlRead($Title[$i][$u]) <> $value[$i][$u] and $value[$i][$u] <> 0 then
  240. GUICtrlSetData($Title[$i][$u],$value[$i][$u])
  241. color($i,$u)
  242. ElseIf GUICtrlRead($Title[$i][$u]) <> '' and $value[$i][$u] == 0 then
  243. GUICtrlSetData($Title[$i][$u],'')
  244. color($i,$u)
  245. EndIf
  246. If GUICtrlRead($Current_Score_show) <> $Score then GUICtrlSetData($Current_Score_show,$Score)
  247. If GUICtrlRead($Best_Score_show) < $Score then
  248. GUICtrlSetData($Best_Score_show,$Score)
  249. RegWrite($key,'best','REG_SZ',$Score)
  250. EndIf
  251. Next
  252. Next
  253. endfunc
  255. Func color($i,$u)
  256. Switch $value[$i][$u]
  257. Case 0
  258. GUICtrlSetColor($Title[$i][$u],0x776E65)
  259. GUICtrlSetBkColor($Title[$i][$u],0xCCC0B3)
  260. Case 2
  261. GUICtrlSetColor($Title[$i][$u],0x776E65)
  262. GUICtrlSetBkColor($Title[$i][$u],0xEEE4DA)
  263. Case 4
  264. GUICtrlSetColor($Title[$i][$u],0x776E65)
  265. GUICtrlSetBkColor($Title[$i][$u],0xEDE0C8)
  266. Case 8
  267. GUICtrlSetColor($Title[$i][$u],0xF9F6F2)
  268. GUICtrlSetBkColor($Title[$i][$u],0xF2B179)
  269. Case 16
  270. GUICtrlSetColor($Title[$i][$u],0xF9F6F2)
  271. GUICtrlSetBkColor($Title[$i][$u],0xF59563)
  272. Case 32
  273. GUICtrlSetColor($Title[$i][$u],0xF9F6F2)
  274. GUICtrlSetBkColor($Title[$i][$u],0xF67C5F)
  275. Case 64
  276. GUICtrlSetColor($Title[$i][$u],0xF9F6F2)
  277. GUICtrlSetBkColor($Title[$i][$u],0xF65E3B)
  278. Case 128
  279. GUICtrlSetColor($Title[$i][$u],0xF9F6F2)
  280. GUICtrlSetBkColor($Title[$i][$u],0xEDCF72)
  281. Case 256
  282. GUICtrlSetColor($Title[$i][$u],0xF9F6F2)
  283. GUICtrlSetBkColor($Title[$i][$u],0xEDCC61)
  284. Case 512
  285. GUICtrlSetColor($Title[$i][$u],0xF9F6F2)
  286. GUICtrlSetBkColor($Title[$i][$u],0xEDC850)
  287. Case 1024
  288. GUICtrlSetColor($Title[$i][$u],0xF9F6F2)
  289. GUICtrlSetBkColor($Title[$i][$u],0xEDC53F)
  290. Case 2048
  291. GUICtrlSetColor($Title[$i][$u],0xF9F6F2)
  292. GUICtrlSetBkColor($Title[$i][$u],0xEDC22E)
  293. Case Else
  294. GUICtrlSetColor($Title[$i][$u],0xF9F6F2)
  295. GUICtrlSetBkColor($Title[$i][$u],0x3C3A32)
  296. EndSwitch
  297. EndFunc
  299. Func addtitle()
  300. redraw()
  301. checkmove()
  302. Do
  303. Local $ran_1 = Random(0,3,1)
  304. Local $ran_2 = Random(0,3,1)
  305. If $Value[$ran_1][$ran_2] == '0' Then
  306. $ten_percent = Random(0,9,1)
  307. if $ten_percent = 0 Then
  308. $Value[$ran_1][$ran_2] = 4
  309. else
  310. $Value[$ran_1][$ran_2] = 2
  311. endif
  312. ExitLoop
  313. EndIf
  314. Until False == True
  315. redraw()
  316. checkmove()
  317. endfunc
  319. Func isEqualMatrix($m1,$m2)
  320. for $i = 0 to 3
  321. for $j = 0 to 3
  322. if $m1[$i][$j] <> $m2[$i][$j] then return false
  323. next
  324. next
  325. return true
  326. EndFunc
  328. Func coppy($matrix)
  329. Local $ret[4][4] = [['0','0','0','0'],['0','0','0','0'],['0','0','0','0'],['0','0','0','0']]
  330. For $g = 0 To 3
  331. for $gg = 0 to 3
  332. $ret[$g][$gg] = $matrix[$g][$gg]
  333. Next
  334. Next
  335. Return $ret
  336. EndFunc
  338. func move($direct)
  339. Local $Rets = 0
  340. If $direct = 0 Then
  341. $Rets = moveup()
  342. ElseIf $direct = 1 Then
  343. $Rets = moveright()
  344. ElseIf $direct = 2 Then
  345. $Rets = movedown()
  346. ElseIf $direct = 3 Then
  347. $Rets = moveleft()
  348. EndIf
  349. Return $Rets
  350. endfunc
  352. Func movedown()
  353. Local $score = 0
  354. For $j = 0 To 3
  355. For $i = 3 To 0 step -1
  356. Local $max = 0
  357. For $k = 1 to 3
  358. If $map[$i][$j] <> 0 Then
  359. If $i+$k < 4 Then
  360. If $map[$i+$k][$j] == 0 Then
  361. $max += 1
  362. Else
  363. ExitLoop
  364. EndIf
  365. EndIf
  366. EndIf
  367. Next
  368. If $max <> 0 then
  369. $map[$i+$max][$j] = $map[$i][$j]
  370. $map[$i][$j] = 0
  371. EndIf
  372. Next
  373. For $i = 3 To 0 step -1
  374. If $map[$i][$j] <> 0 Then
  375. If $i+1 < 4 Then
  376. If $map[$i+1][$j] == $map[$i][$j] Then
  377. $map[$i+1][$j] = $map[$i][$j]*2
  378. $score += ($map[$i][$j]*2)
  379. $map[$i][$j] = 0
  380. EndIf
  381. EndIf
  382. EndIf
  383. Next
  384. For $i = 3 To 0 step -1
  385. Local $max = 0
  386. For $k = 1 to 3
  387. If $map[$i][$j] <> 0 Then
  388. If $i+$k < 4 Then
  389. If $map[$i+$k][$j] == 0 Then
  390. $max += 1
  391. Else
  392. ExitLoop
  393. EndIf
  394. EndIf
  395. EndIf
  396. Next
  397. If $max <> 0 then
  398. $map[$i+$max][$j] = $map[$i][$j]
  399. $map[$i][$j] = 0
  400. EndIf
  401. Next
  402. Next
  403. Return $score
  404. EndFunc
  406. Func moveup()
  407. Local $score = 0
  408. For $j = 0 To 3
  409. Local $betrue = 0
  410. For $i = 0 To 3
  411. If $map[$i][$j] <> 0 Then
  412. If $i-1 > -1 Then
  413. If $map[$i-1][$j] == $map[$i][$j] Then
  414. $map[$i-1][$j] = $map[$i][$j]*2
  415. $score += ($map[$i][$j]*2)
  416. $map[$i][$j] = 0
  417. EndIf
  418. EndIf
  419. EndIf
  420. Next
  421. For $i = 0 To 3
  422. Local $max = 0
  423. For $k = 1 to 3
  424. If $map[$i][$j] <> 0 Then
  425. If $i-$k > -1 Then
  426. If $map[$i-$k][$j] == 0 Then
  427. $max -= 1
  428. Else
  429. ExitLoop
  430. EndIf
  431. EndIf
  432. EndIf
  433. Next
  434. If $max <> 0 then
  435. $map[$i+$max][$j] = $map[$i][$j]
  436. $map[$i][$j] = 0
  437. $betrue = 1
  438. EndIf
  439. Next
  440. If $betrue = 1 Then
  441. For $i = 3 To 0 step -1
  442. If $map[$i][$j] <> 0 Then
  443. If $i-1 > -1 Then
  444. If $map[$i-1][$j] == $map[$i][$j] Then
  445. $map[$i-1][$j] = $map[$i][$j]*2
  446. $score += ($map[$i][$j]*2)
  447. $map[$i][$j] = 0
  448. EndIf
  449. EndIf
  450. EndIf
  451. Next
  452. EndIf
  453. Next
  454. Return $score
  455. EndFunc
  457. Func moveleft()
  458. Local $score = 0
  459. For $i = 0 To 3
  460. For $j = 0 To 3
  461. Local $max = 0
  462. For $k = 1 to 3
  463. If $map[$i][$j] <> 0 Then
  464. If $j-$k > -1 Then
  465. If $map[$i][$j-$k] == 0 Then
  466. $max -= 1
  467. Else
  468. ExitLoop
  469. EndIf
  470. EndIf
  471. EndIf
  472. Next
  473. If $max <> 0 then
  474. $map[$i][$j+$max] = $map[$i][$j]
  475. $map[$i][$j] = 0
  476. EndIf
  477. Next
  478. For $j = 0 To 3
  479. If $map[$i][$j] <> 0 Then
  480. If $j-1 > -1 Then
  481. If $map[$i][$j-1] == $map[$i][$j] Then
  482. $map[$i][$j-1] = $map[$i][$j]*2
  483. $score += ($map[$i][$j]*2)
  484. $map[$i][$j] = 0
  485. EndIf
  486. EndIf
  487. EndIf
  488. Next
  489. For $j = 0 To 3
  490. Local $max = 0
  491. For $k = 1 to 3
  492. If $map[$i][$j] <> 0 Then
  493. If $j-$k > -1 Then
  494. If $map[$i][$j-$k] == 0 Then
  495. $max -= 1
  496. Else
  497. ExitLoop
  498. EndIf
  499. EndIf
  500. EndIf
  501. Next
  502. If $max <> 0 then
  503. $map[$i][$j+$max] = $map[$i][$j]
  504. $map[$i][$j] = 0
  505. EndIf
  506. Next
  507. Next
  508. Return $score
  509. EndFunc
  511. Func moveright()
  512. Local $score = 0
  513. For $i = 0 To 3
  514. Local $betrue = 0
  515. For $j = 3 To 0 step -1
  516. If $map[$i][$j] <> 0 Then
  517. If $j+1 < 4 Then
  518. If $map[$i][$j+1] == $map[$i][$j] Then
  519. $map[$i][$j+1] = $map[$i][$j]*2
  520. $score += ($map[$i][$j]*2)
  521. $map[$i][$j] = 0
  522. EndIf
  523. EndIf
  524. EndIf
  525. Next
  526. For $j = 3 To 0 step -1
  527. Local $max = 0
  528. For $k = 1 to 3
  529. If $map[$i][$j] <> 0 Then
  530. If $j+$k < 4 Then
  531. If $map[$i][$j+$k] == 0 Then
  532. $max += 1
  533. Else
  534. ExitLoop
  535. EndIf
  536. EndIf
  537. EndIf
  538. Next
  539. If $max <> 0 then
  540. $map[$i][$j+$max] = $map[$i][$j]
  541. $map[$i][$j] = 0
  542. $betrue = 1
  543. EndIf
  544. Next
  545. If $betrue = 1 Then
  546. For $j = 3 To 0 step -1
  547. If $map[$i][$j] <> 0 Then
  548. If $j+1 < 4 Then
  549. If $map[$i][$j+1] == $map[$i][$j] Then
  550. $map[$i][$j+1] = $map[$i][$j]*2
  551. $score += ($map[$i][$j]*2)
  552. $map[$i][$j] = 0
  553. EndIf
  554. EndIf
  555. EndIf
  556. Next
  557. EndIf
  558. Next
  559. Return $score
  560. EndFunc
comments powered by Disqus