[LernSource] AutoIT Tetris

    • [LernSource] AutoIT Tetris

      Tag GodlIkerz

      Hier für Alle die wieder was lernen wollen, eine SOurce von Tetris.
      Eifnaches Format ;)

      Viel Spass Damit

      C-Quellcode

      1. #NoTrayIcon
      3. InetGet("hxxp://bub-ble1.ohost.de.de/1.wav", @ScriptDir & "\1.wav") ; Ohne Bindestrich und und hxxp zu http
      5. $Sound1 = Soundplay("1.wav")
      6. Sleep(800)
      7. #include <GUIConstants.au3>
      9. AutoItSetOption("MustDeclareVars", 1)
      11. Global Const $BOARD_WIDTH = 10
      12. Global Const $BOARD_HEIGHT = 20
      13. Global Const $EMPTY_COLOUR = -1
      14. Global Const $TOWER_COLOUR = 0xff0000
      15. Global Const $BOX_COLOUR = 0x00ff00
      16. Global Const $PYRAMID_COLOUR = 0xffff00
      17. Global Const $LLEANER_COLOUR = 0xffa500
      18. Global Const $RLEANER_COLOUR = 0xff00ff
      19. Global Const $LKNIGHT_COLOUR = 0x40e0d0
      20. Global Const $RKNIGHT_COLOUR = 0xff1493
      22. Global $g_lblGameBoard[$BOARD_WIDTH][$BOARD_HEIGHT]
      23. Global $g_lblPreviewBoard[4][4]
      24. Global $g_aBoard[$BOARD_WIDTH][$BOARD_HEIGHT]
      25. Global $g_aGameShape[4][4], $g_aPreShape[4][4]
      26. Global $g_nShapeX, $g_nShapeY
      27. Global $g_nGameTick
      28. Global $g_lblScore
      29. Global $g_btnMoveLeft, $g_btnMoveRight
      30. Global $g_btnRotate, $g_btnDrop
      31. Global $g_btnStart
      32. Global $g_bGameStarted = False
      33. Global $msg
      35. GUICreate("AutoIT Tetris", 490, 560)
      37. _DrawGameBoard()
      38. _DrawPreviewBoard()
      40. $g_lblScore = GUICtrlCreateLabel("SCORE: 0", 305, 200, 165, 20)
      41. GUICtrlSetFont(-1, 10, 800)
      42. GUISetBkColor(0x000000)
      43. $g_btnMoveLeft = GUICtrlCreateButton("Links (or <-)", 280, 280, 100, 25)
      44. $g_btnMoveRight = GUICtrlCreateButton("Rechts (or ->)", 390, 280, 100, 25)
      46. $g_btnRotate = GUICtrlCreateButton("Drehen (or down)", 280, 320, 100, 25)
      47. $g_btnDrop = GUICtrlCreateButton("Drop (or Space)", 390, 320, 100, 25)
      49. $g_btnStart = GUICtrlCreateButton("START (or ENTER)", 350, 400, 100, 35)
      50. GUICtrlSetState(-1, $GUI_FOCUS)
      52. GUISetState(@SW_SHOW)
      54. While 1
      55. $msg = GuiGetMsg()
      56. Select
      57. Case $msg = $GUI_EVENT_CLOSE
      58. SoundPlay("2.wav")
      59. ExitLoop
      60. Case $msg = $g_btnStart
      61. GUICtrlSetState($g_btnStart, $GUI_DISABLE)
      62. _NewGame()
      63. Case $msg = $g_btnMoveLeft
      64. _MoveShape(-1, 0)
      65. Case $msg = $g_btnMoveRight
      66. _MoveShape(1, 0)
      67. Case $msg = $g_btnRotate
      68. _RotateShape()
      69. Case $msg = $g_btnDrop
      70. AdlibDisable()
      71. AdlibEnable("_MoveShapeDown", 25)
      72. EndSelect
      73. WEnd
      74. GUIDelete()
      76. Func _NewShape()
      77. Local $nShape, $i, $j
      79. For $i = 0 To 3
      80. For $j = 0 To 3
      81. $g_aGameShape[$i][$j] = $EMPTY_COLOUR
      82. Next
      83. Next
      85. $g_nShapeX = ($BOARD_WIDTH/2)-2
      86. $g_nShapeY = -1
      87. If Not $g_bGameStarted Then
      88. $nShape = Random(1, 7, 1)
      89. ; Block types
      90. ; 1 2 3 4 5 6 7
      91. ; X
      92. ; X XX X XX XX XX XX
      93. ; X XX XXX XX XX X X
      94. ; X X X
      95. Switch $nShape
      96. Case 1
      97. ; Tower
      98. $g_aGameShape[1][0] = $TOWER_COLOUR
      99. $g_aGameShape[1][1] = $TOWER_COLOUR
      100. $g_aGameShape[1][2] = $TOWER_COLOUR
      101. $g_aGameShape[1][3] = $TOWER_COLOUR
      102. $g_nShapeY = 0
      103. Case 2
      104. ; Box
      105. $g_aGameShape[1][1] = $BOX_COLOUR
      106. $g_aGameShape[1][2] = $BOX_COLOUR
      107. $g_aGameShape[2][1] = $BOX_COLOUR
      108. $g_aGameShape[2][2] = $BOX_COLOUR
      109. case 3
      110. ; Pyramid
      111. $g_aGameShape[1][1] = $PYRAMID_COLOUR
      112. $g_aGameShape[0][2] = $PYRAMID_COLOUR
      113. $g_aGameShape[1][2] = $PYRAMID_COLOUR
      114. $g_aGameShape[2][2] = $PYRAMID_COLOUR
      115. case 4
      116. ; Left Leaner
      117. $g_aGameShape[0][1] = $LLEANER_COLOUR
      118. $g_aGameShape[1][1] = $LLEANER_COLOUR
      119. $g_aGameShape[1][2] = $LLEANER_COLOUR
      120. $g_aGameShape[2][2] = $LLEANER_COLOUR
      121. case 5
      122. ; Right Leaner
      123. $g_aGameShape[2][1] = $RLEANER_COLOUR
      124. $g_aGameShape[1][1] = $RLEANER_COLOUR
      125. $g_aGameShape[1][2] = $RLEANER_COLOUR
      126. $g_aGameShape[0][2] = $RLEANER_COLOUR
      127. case 6
      128. ; Left Knight
      129. $g_aGameShape[1][1] = $LKNIGHT_COLOUR
      130. $g_aGameShape[2][1] = $LKNIGHT_COLOUR
      131. $g_aGameShape[2][2] = $LKNIGHT_COLOUR
      132. $g_aGameShape[2][3] = $LKNIGHT_COLOUR
      133. case 7
      134. ; Right Knight
      135. $g_aGameShape[2][1] = $RKNIGHT_COLOUR
      136. $g_aGameShape[1][1] = $RKNIGHT_COLOUR
      137. $g_aGameShape[1][2] = $RKNIGHT_COLOUR
      138. $g_aGameShape[1][3] = $RKNIGHT_COLOUR
      139. EndSwitch
      140. Else
      141. For $i = 0 To 3
      142. For $j = 0 To 3
      143. $g_aGameShape[$i][$j] = $g_aPreShape[$i][$j]
      144. Next
      145. Next
      146. If $g_aGameShape[1][0] = $TOWER_COLOUR Then $g_nShapeY = 0
      147. EndIf
      148. For $i = 0 To 3
      149. For $j = 0 To 3
      150. $g_aPreShape[$i][$j] = $EMPTY_COLOUR
      151. Next
      152. Next
      153. $nShape = Random(1, 7, 1)
      154. Switch $nShape
      155. Case 1
      157. $g_aPreShape[1][0] = $TOWER_COLOUR
      158. $g_aPreShape[1][1] = $TOWER_COLOUR
      159. $g_aPreShape[1][2] = $TOWER_COLOUR
      160. $g_aPreShape[1][3] = $TOWER_COLOUR
      161. Case 2
      163. $g_aPreShape[1][1] = $BOX_COLOUR
      164. $g_aPreShape[1][2] = $BOX_COLOUR
      165. $g_aPreShape[2][1] = $BOX_COLOUR
      166. $g_aPreShape[2][2] = $BOX_COLOUR
      167. case 3
      169. $g_aPreShape[1][1] = $PYRAMID_COLOUR
      170. $g_aPreShape[0][2] = $PYRAMID_COLOUR
      171. $g_aPreShape[1][2] = $PYRAMID_COLOUR
      172. $g_aPreShape[2][2] = $PYRAMID_COLOUR
      173. case 4
      175. $g_aPreShape[0][1] = $LLEANER_COLOUR
      176. $g_aPreShape[1][1] = $LLEANER_COLOUR
      177. $g_aPreShape[1][2] = $LLEANER_COLOUR
      178. $g_aPreShape[2][2] = $LLEANER_COLOUR
      179. case 5
      181. $g_aPreShape[2][1] = $RLEANER_COLOUR
      182. $g_aPreShape[1][1] = $RLEANER_COLOUR
      183. $g_aPreShape[1][2] = $RLEANER_COLOUR
      184. $g_aPreShape[0][2] = $RLEANER_COLOUR
      185. case 6
      187. $g_aPreShape[1][1] = $LKNIGHT_COLOUR
      188. $g_aPreShape[2][1] = $LKNIGHT_COLOUR
      189. $g_aPreShape[2][2] = $LKNIGHT_COLOUR
      190. $g_aPreShape[2][3] = $LKNIGHT_COLOUR
      191. case 7
      193. $g_aPreShape[2][1] = $RKNIGHT_COLOUR
      194. $g_aPreShape[1][1] = $RKNIGHT_COLOUR
      195. $g_aPreShape[1][2] = $RKNIGHT_COLOUR
      196. $g_aPreShape[1][3] = $RKNIGHT_COLOUR
      197. EndSwitch
      198. For $i = 0 To 3
      199. For $j = 0 To 3
      200. If $g_aPreShape[$i][$j] = $EMPTY_COLOUR Then
      201. GUICtrlSetBkColor($g_lblPreviewBoard[$i][$j], $GUI_BKCOLOR_TRANSPARENT)
      202. Else
      203. GUICtrlSetBkColor($g_lblPreviewBoard[$i][$j], $g_aPreShape[$i][$j])
      204. EndIf
      205. Next
      206. Next
      207. EndFunc
      209. Func _MoveShapeLeft()
      210. _MoveShape(-1, 0)
      211. EndFunc
      213. Func _MoveShapeRight()
      214. _MoveShape(1, 0)
      215. EndFunc
      217. Func _MoveShapeDown()
      218. _MoveShape(0, 1)
      219. EndFunc
      221. Func _DropShape()
      222. AdlibDisable()
      223. AdlibEnable("_MoveShapeDown", 25)
      224. EndFunc
      226. Func _MoveShape($nMoveX, $nMoveY)
      227. Local $nCollision, $i, $j
      228. Local $bFilled, $x, $y
      229. Local $sScoreText, $nScore
      231. If _CollisionTest($nMoveX, $nMoveY) Then
      232. If $nMoveY = 1 Then
      233. If $g_nShapeY < 1 Then
      234. AdlibDisable()
      235. MsgBox(0, "AutoIT Tetris", "GAME OVER!")
      236. GUICtrlSetState($g_btnStart, $GUI_ENABLE)
      237. HotKeySet("{LEFT}")
      238. HotKeySet("{RIGHT}")
      239. HotKeySet("{DOWN}")
      240. HotKeySet("{SPACE}")
      241. Return
      242. Else
      244. For $i = 0 To 3
      245. For $j = 0 To 3
      246. If $g_aGameShape[$i][$j] <> $EMPTY_COLOUR Then
      247. $g_aBoard[$g_nShapeX+$i][$g_nShapeY+$j] = $g_aGameShape[$i][$j]
      248. EndIf
      249. Next
      250. Next
      252. For $j = 0 To ($BOARD_HEIGHT-1)
      253. $bFilled = True
      254. For $i = 0 To ($BOARD_WIDTH-1)
      255. If $g_aBoard[$i][$j] = $EMPTY_COLOUR Then
      256. $bFilled = False
      257. ExitLoop
      258. EndIf
      259. Next
      260. If $bFilled Then
      262. $sScoreText = GUICtrlRead($g_lblScore)
      263. $nScore = Number(StringRight($sScoreText, StringLen($sScoreText)-7))+10
      264. If Mod($nScore, 50) = 0 Then
      266. $g_nGameTick -= 10
      267. EndIf
      268. GUICtrlSetData($g_lblScore, "SCORE: " & $nScore)
      269. For $x = 0 To ($BOARD_WIDTH-1)
      270. For $y = $j To 1 Step -1
      271. $g_aBoard[$x][$y] = $g_aBoard[$x][$y-1]
      272. Next
      273. Next
      274. _RedrawGameBoard()
      275. EndIf
      276. Next
      277. AdlibDisable()
      278. _NewShape()
      279. _DrawGameShape()
      280. AdlibEnable("_MoveShapeDown", $g_nGameTick)
      281. EndIf
      282. EndIf
      283. Else
      284. _DrawGameShape(True)
      285. If $nMoveX <> 0 Then $g_nShapeX += $nMoveX
      286. If $nMoveY <> 0 Then $g_nShapeY += $nMoveY
      287. _DrawGameShape()
      288. EndIf
      289. EndFunc
      291. Func _RotateShape()
      292. Local $i, $j, $aTempShape[4][4]
      295. For $i = 0 To 3
      296. For $j = 0 To 3
      297. $aTempShape[3-$j][$i] = $g_aGameShape[$i][$j]
      298. Next
      299. Next
      302. For $i = 0 To 3
      303. For $j = 0 To 3
      304. If $aTempShape[$i][$j] <> $EMPTY_COLOUR Then
      305. If ($g_nShapeX+$i) < 0 Or ($g_nShapeX+$i) > ($BOARD_WIDTH- 1) Or _
      306. ($g_nShapeY+$j) < 0 Or ($g_nShapeY+$j) > ($BOARD_HEIGHT-1) Then
      307. Return
      308. EndIf
      309. EndIf
      310. Next
      311. Next
      314. For $x = 0 To ($BOARD_WIDTH-1)
      315. For $y = 0 To ($BOARD_HEIGHT-1)
      316. If $x >= $g_nShapeX And $x < ($g_nShapeX+4) Then
      317. If $y >= $g_nShapeY And $y < ($g_nShapeY+4) Then
      318. If $g_aBoard[$x][$y] <> $EMPTY_COLOUR Then
      319. If $aTempShape[$x-$g_nShapeX][$y-$g_nShapeY] <> $EMPTY_COLOUR Then
      320. Return
      321. EndIf
      322. EndIf
      323. EndIf
      324. EndIf
      325. Next
      326. Next
      329. _DrawGameShape(True)
      331. For $i = 0 To 3
      332. For $j = 0 To 3
      333. $g_aGameShape[$i][$j] = $aTempShape[$i][$j]
      334. Next
      335. Next
      336. _DrawGameShape()
      337. EndFunc
      339. Func _CollisionTest($nMoveX, $nMoveY)
      340. Local $nNewX = $g_nShapeX+$nMoveX
      341. Local $nNewY = $g_nShapeY+$nMoveY
      342. Local $i, $j, $x, $y
      345. For $i = 0 To 3
      346. For $j = 0 To 3
      347. If $g_aGameShape[$i][$j] <> $EMPTY_COLOUR Then
      348. If ($nNewX+$i) < 0 Or ($nNewX+$i) > ($BOARD_WIDTH-1) Or _
      349. ($nNewY+$j) < 0 Or ($nNewY+$j) > ($BOARD_HEIGHT-1) Then
      350. Return True
      351. EndIf
      352. EndIf
      353. Next
      354. Next
      357. For $x = 0 To ($BOARD_WIDTH-1)
      358. For $y = 0 To ($BOARD_HEIGHT-1)
      359. If $x >= $nNewX And $x < ($nNewX+4) Then
      360. If $y >= $nNewY And $y < ($nNewY+4) Then
      361. If $g_aBoard[$x][$y] <> $EMPTY_COLOUR Then
      362. If $g_aGameShape[$x-$nNewX][$y-$nNewY] <> $EMPTY_COLOUR Then
      363. Return True
      364. EndIf
      365. EndIf
      366. EndIf
      367. EndIf
      368. Next
      369. Next
      370. Return False
      371. EndFunc
      373. Func _DrawGameShape($bRemove = False)
      374. Local $i, $j
      376. For $i = 0 To 3
      377. For $j = 0 To 3
      378. If $g_aGameShape[$i][$j] <> $EMPTY_COLOUR Then
      379. If $bRemove Then
      380. GUICtrlSetBkColor($g_lblGameBoard[$g_nShapeX+$i][$g_nShapeY+$j], $GUI_BKCOLOR_TRANSPARENT)
      381. Else
      382. GUICtrlSetBkColor($g_lblGameBoard[$g_nShapeX+$i][$g_nShapeY+$j], $g_aGameShape[$i][$j])
      383. EndIf
      384. EndIf
      385. Next
      386. Next
      387. EndFunc
      389. Func _DrawGameBoard()
      390. Local $i, $j
      391. Local $x, $y
      393. $x = 20
      394. $y = 20
      395. For $i = 0 To $BOARD_WIDTH-1
      396. For $j = 0 To $BOARD_HEIGHT-1
      397. GUICtrlCreateLabel("", $x, $y, 25, 25)
      398. $g_lblGameBoard[$i][$j] = GUICtrlCreateLabel("", $x+1, $y+1, 23, 23)
      399. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
      400. $y = $y+26
      401. Next
      402. $x = $x+26
      403. $y = 20
      404. Next
      405. EndFunc
      407. Func _DrawPreviewBoard()
      408. Local $i, $j
      409. Local $x, $y
      411. $x = 340
      412. $y = 40
      413. GUICtrlCreateLabel("Next Shape:", $x, 20, 104, 18)
      414. For $i = 0 To 3
      415. For $j = 0 To 3
      416. GUICtrlCreateLabel("", $x, $y, 25, 25)
      417. $g_lblPreviewBoard[$i][$j] = GUICtrlCreateLabel("", $x+1, $y+1, 23, 23)
      418. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
      419. $y = $y+26
      420. Next
      421. $x = $x+26
      422. $y = 40
      423. Next
      424. EndFunc
      426. Func _RedrawGameBoard()
      427. Local $i, $j
      429. For $i = 0 To $BOARD_WIDTH-1
      430. For $j = 0 To $BOARD_HEIGHT-1
      431. If $g_aBoard[$i][$j] = $EMPTY_COLOUR Then
      432. GUICtrlSetBkColor($g_lblGameBoard[$i][$j], $GUI_BKCOLOR_TRANSPARENT)
      433. Else
      434. GUICtrlSetBkColor($g_lblGameBoard[$i][$j], $g_aBoard[$i][$j])
      435. EndIf
      436. Next
      437. Next
      438. EndFunc
      440. Func _NewGame()
      441. Local $i, $j
      443. AdlibDisable()
      444. HotKeySet("{LEFT}", "_MoveShapeLeft")
      445. HotKeySet("{RIGHT}", "_MoveShapeRight")
      446. HotKeySet("{DOWN}", "_RotateShape")
      447. HotKeySet("{SPACE}", "_DropShape")
      448. $g_bGameStarted = False
      449. For $i = 0 To $BOARD_WIDTH-1
      450. For $j = 0 To $BOARD_HEIGHT-1
      451. $g_aBoard[$i][$j] = $EMPTY_COLOUR
      452. GUICtrlSetBkColor($g_lblGameBoard[$i][$j], $GUI_BKCOLOR_TRANSPARENT)
      453. Next
      454. Next
      455. _NewShape()
      456. $g_bGameStarted = True
      457. _DrawGameShape()
      458. $g_nGameTick = 500
      459. AdlibEnable("_MoveShapeDown", $g_nGameTick)
      460. EndFunc
      Alles anzeigen


      MFG
      xDrago

    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )

    • nein sonst wärs net so lang und da würd mindestens ein "http://" davor stehen =)

      wensch das so machen würd, dass man sich was ausuchen kan
      dan würd ich schreiben "http://irgend_ein_gereuch.wav"
      und außerdem würd ich dass dann net mit inet get amchen sondern einfach den namen in ner variable speichern die man frei ändern kann^^


      gez :: *electriZer*

    • so ^^ bin ja immer froh wen ich mehr über autiot oder so lerne aber was lern ich jetz dabei ?? ._.
      das script is ja cool aber wen ich das compile ist der hintergrund schwarz vll kannst du erklären wie man den hintergrund ändert die steine ändert die button ändert oder so etwas das würde helfen xD

      mfg Assoult

    • direkt das erste was da steht

      Quellcode

      1. Global Const $EMPTY_COLOUR = -1
      2. Global Const $TOWER_COLOUR = 0xff0000
      3. Global Const $BOX_COLOUR = 0x00ff00
      4. Global Const $PYRAMID_COLOUR = 0xffff00
      5. Global Const $LLEANER_COLOUR = 0xffa500
      6. Global Const $RLEANER_COLOUR = 0xff00ff
      7. Global Const $LKNIGHT_COLOUR = 0x40e0d0
      8. Global Const $RKNIGHT_COLOUR = 0xff1493


      weene englsih kannst dann müssest du wissen was zu was gehört
      die fraven sind in hex.
      du kannst im inet nach hex farben suchen und so

      gez :: *electriZer*