Tetris - kleiner Zeitvertreib für Zwischendurch

**alpines** · 31. Juli 2015

Hallo,

da ich momentan Spiele für ein Arduino LED-Shield baue (9x14 Matrix) habe ich mal Tetris gescriptet und es so einfach wie möglich gehalten um den Code weitestgehend zu übernehmen.
Es ist nichts besonderes und spielt sich wie andere Tetris Spiele. Der Code ist schaut grausam aus aber was soll man da machen

Steuerung: Pfeiltasten + Space (Drop)

Tetris

Code

#include <GdiPlus.au3>
#include <Misc.au3>
Opt("GUIOnEventMode", 1)
$hGUI = GUICreate("Tetris", 288, 448, 192, 124)
GUISetOnEvent(-3, "_Exit")
GUISetState(@SW_SHOW)
Local $hUser32 = DllOpen("user32.dll")
_GDIPlus_Startup()
$hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGUI)
_GDIPlus_GraphicsClear($hGraphics)
Global $aField[9][14], $aBlock[4][2]
Local $aPalette[7] = [_GDIPlus_BrushCreateSolid(0xFF00FF00), _GDIPlus_BrushCreateSolid(0xFFFF0000), _GDIPlus_BrushCreateSolid(0xFFFF4500), _
_GDIPlus_BrushCreateSolid(0xFF0000FF), _GDIPlus_BrushCreateSolid(0xFFFFFF00), _GDIPlus_BrushCreateSolid(0xFF8888FF), _GDIPlus_BrushCreateSolid(0xFFFF00FF)]
$aBlock = _GenerateRandomBlock()
$iCurrColor = @extended
$iTurn = 0
$iScore = 0
Local $bLeft, $bRight, $bTurn, $bDown, $bDrop
AdlibRegister("_PushTheBlock", 850)
While Sleep(30)
_GDIPlus_GraphicsClear($hGraphics)
For $x = 0 To 8
For $y = 0 To 13
If $aField[$x][$y] Then _GDIPlus_GraphicsFillRect($hGraphics, $x * 32, $y * 32, 32, 32, $aPalette[$aField[$x][$y] - 1])
Next
Next
For $i = 0 To 3
_GDIPlus_GraphicsFillRect($hGraphics, $aBlock[$i][0] * 32, $aBlock[$i][1] * 32, 32, 32, $aPalette[$iCurrColor - 1])
Next
If _IsPressed("25", $hUser32) and Not $bLeft and Not _Collides($aBlock, -1, 0) Then
For $i = 0 To 3
$aBlock[$i][0] -= 1
Next
$bLeft = True
ElseIf _IsPressed("27", $hUser32) and Not $bRight and Not _Collides($aBlock, 1, 0) Then
For $i = 0 To 3
$aBlock[$i][0] += 1
Next
$bRight = True
ElseIf _IsPressed("26", $hUser32) and Not $bTurn and $iCurrColor <> 5 Then
Switch $iCurrColor - 1
Case 0 ;S-Block
Switch $iTurn
Case 0
Local $tmpBlock[4][2] = [[$aBlock[0][0], $aBlock[0][1] - 2], [$aBlock[1][0] - 1, $aBlock[1][1] - 1], [$aBlock[2][0], $aBlock[2][1]], [$aBlock[3][0] - 1, $aBlock[3][1] + 1]]
Case 1
Local $tmpBlock[4][2] = [[$aBlock[0][0] + 2, $aBlock[0][1] + 1], [$aBlock[1][0] + 1, $aBlock[1][1]], [$aBlock[2][0], $aBlock[2][1] + 1], [$aBlock[3][0] - 1, $aBlock[3][1]]]
Case 2
Local $tmpBlock[4][2] = [[$aBlock[0][0] - 1, $aBlock[0][1] + 1], [$aBlock[1][0], $aBlock[1][1]], [$aBlock[2][0] - 1, $aBlock[2][1] - 1], [$aBlock[3][0], $aBlock[3][1] - 2]]
Case 3
Local $tmpBlock[4][2] = [[$aBlock[0][0] - 1, $aBlock[0][1]], [$aBlock[1][0], $aBlock[1][1] + 1], [$aBlock[2][0] + 1, $aBlock[2][1]], [$aBlock[3][0] + 2, $aBlock[3][1] + 1]]
EndSwitch
Case 1 ;RS-Block
Switch $iTurn
Case 0
Local $tmpBlock[4][2] = [[$aBlock[0][0] + 1, $aBlock[0][1] - 1], [$aBlock[1][0], $aBlock[1][1]], [$aBlock[2][0] - 1, $aBlock[2][1] - 1], [$aBlock[3][0] - 2, $aBlock[3][1]]]
Case 1
Local $tmpBlock[4][2] = [[$aBlock[0][0] + 1, $aBlock[0][1] + 2], [$aBlock[1][0], $aBlock[1][1] + 1], [$aBlock[2][0] + 1, $aBlock[2][1]], [$aBlock[3][0], $aBlock[3][1] - 1]]
Case 2
Local $tmpBlock[4][2] = [[$aBlock[0][0] - 2, $aBlock[0][1]], [$aBlock[1][0] - 1, $aBlock[1][1] - 1], [$aBlock[2][0], $aBlock[2][1]], [$aBlock[3][0] + 1, $aBlock[3][1] - 1]]
Case 3
Local $tmpBlock[4][2] = [[$aBlock[0][0], $aBlock[0][1] - 1], [$aBlock[1][0] + 1, $aBlock[1][1]], [$aBlock[2][0], $aBlock[2][1] + 1], [$aBlock[3][0] + 1, $aBlock[3][1] + 2]]
EndSwitch
Case 2 ;L-Block
Switch $iTurn
Case 0
Local $tmpBlock[4][2] = [[$aBlock[0][0] + 2, $aBlock[0][1] + 1], [$aBlock[1][0] + 1, $aBlock[1][1]], [$aBlock[2][0], $aBlock[2][1] - 1], [$aBlock[3][0] - 1, $aBlock[3][1]]]
Case 1
Local $tmpBlock[4][2] = [[$aBlock[0][0] - 1, $aBlock[0][1] + 1], [$aBlock[1][0], $aBlock[1][1]], [$aBlock[2][0] + 1, $aBlock[2][1] - 1], [$aBlock[3][0], $aBlock[3][1] - 2]]
Case 2
Local $tmpBlock[4][2] = [[$aBlock[0][0] - 1, $aBlock[0][1]], [$aBlock[1][0], $aBlock[1][1] + 1], [$aBlock[2][0] + 1, $aBlock[2][1] + 2], [$aBlock[3][0] + 2, $aBlock[3][1] + 1]]
Case 3
Local $tmpBlock[4][2] = [[$aBlock[0][0], $aBlock[0][1] - 2], [$aBlock[1][0] - 1, $aBlock[1][1] - 1], [$aBlock[2][0] - 2, $aBlock[2][1]], [$aBlock[3][0] - 1, $aBlock[3][1] + 1]]
EndSwitch
Case 3 ;RL-Block
Switch $iTurn
Case 0
Local $tmpBlock[4][2] = [[$aBlock[0][0], $aBlock[0][1] - 1], [$aBlock[1][0] - 1, $aBlock[1][1]], [$aBlock[2][0], $aBlock[2][1] + 1], [$aBlock[3][0] + 1, $aBlock[3][1] + 2]]
Case 1
Local $tmpBlock[4][2] = [[$aBlock[0][0] + 1, $aBlock[0][1] - 1], [$aBlock[1][0], $aBlock[1][1] - 2], [$aBlock[2][0] - 1, $aBlock[2][1] - 1], [$aBlock[3][0] - 2, $aBlock[3][1]]]
Case 2
Local $tmpBlock[4][2] = [[$aBlock[0][0] + 1, $aBlock[0][1] + 2], [$aBlock[1][0] + 2, $aBlock[1][1] + 1], [$aBlock[2][0] + 1, $aBlock[2][1]], [$aBlock[3][0], $aBlock[3][1] - 1]]
Case 3
Local $tmpBlock[4][2] = [[$aBlock[0][0] - 2, $aBlock[0][1]], [$aBlock[1][0] - 1, $aBlock[1][1] + 1], [$aBlock[2][0], $aBlock[2][1]], [$aBlock[3][0] + 1, $aBlock[3][1] - 1]]
EndSwitch
Case 5 ;I-Block
Switch $iTurn
Case 0
Local $tmpBlock[4][2] = [[$aBlock[0][0] + 1, $aBlock[0][1] - 1], [$aBlock[1][0], $aBlock[1][1]], [$aBlock[2][0] - 1, $aBlock[2][1] + 1], [$aBlock[3][0] - 2, $aBlock[3][1] + 2]]
Case 1
Local $tmpBlock[4][2] = [[$aBlock[0][0] + 2, $aBlock[0][1] + 1], [$aBlock[1][0] + 1, $aBlock[1][1]], [$aBlock[2][0], $aBlock[2][1] - 1], [$aBlock[3][0] - 1, $aBlock[3][1] - 2]]
Case 2
Local $tmpBlock[4][2] = [[$aBlock[0][0] - 2, $aBlock[0][1] + 2], [$aBlock[1][0] - 1, $aBlock[1][1] + 1], [$aBlock[2][0], $aBlock[2][1]], [$aBlock[3][0] + 1, $aBlock[3][1] - 1]]
Case 3
Local $tmpBlock[4][2] = [[$aBlock[0][0] - 1, $aBlock[0][1] - 2], [$aBlock[1][0], $aBlock[1][1] - 1], [$aBlock[2][0] + 1, $aBlock[2][1]], [$aBlock[3][0] + 2, $aBlock[3][1] + 1]]
EndSwitch
Case 6 ;T-Block
Switch $iTurn
Case 0
Local $tmpBlock[4][2] = [[$aBlock[0][0] + 1, $aBlock[0][1] - 1], [$aBlock[1][0], $aBlock[1][1]], [$aBlock[2][0] - 1, $aBlock[2][1] - 1], [$aBlock[3][0] - 1, $aBlock[3][1] + 1]]
Case 1
Local $tmpBlock[4][2] = [[$aBlock[0][0] + 1, $aBlock[0][1] + 1], [$aBlock[1][0], $aBlock[1][1]], [$aBlock[2][0] + 1, $aBlock[2][1] - 1], [$aBlock[3][0] - 1, $aBlock[3][1] - 1]]
Case 2
Local $tmpBlock[4][2] = [[$aBlock[0][0] - 1, $aBlock[0][1] + 1], [$aBlock[1][0], $aBlock[1][1]], [$aBlock[2][0] + 1, $aBlock[2][1] + 1], [$aBlock[3][0] + 1, $aBlock[3][1] -1]]
Case 3
Local $tmpBlock[4][2] = [[$aBlock[0][0] - 1, $aBlock[0][1] - 1], [$aBlock[1][0], $aBlock[1][1]], [$aBlock[2][0] - 1, $aBlock[2][1] + 1], [$aBlock[3][0] + 1, $aBlock[3][1] + 1]]
EndSwitch
EndSwitch
If Not _Collides($tmpBlock, 0, 0) Then
$aBlock = $tmpBlock
$iTurn = Mod($iTurn + 1, 4)
EndIf
$bTurn = True
ElseIf _IsPressed("28", $hUser32) and Not $bDown and Not _Collides($aBlock, 0, 1) Then
_PushTheBlock()
$bDown = True
ElseIf _IsPressed("20", $hUser32) and Not $bDrop Then
For $i = 0 To 14
If _Collides($aBlock, 0, $i) Then ExitLoop
Next
For $x = 0 To $i
_PushTheBlock()
Next
$bDrop = True
EndIf
If Not _IsPressed("25", $hUser32) Then $bLeft = False
If Not _IsPressed("26", $hUser32) Then $bTurn = False
If Not _IsPressed("27", $hUser32) Then $bRight = False
If Not _IsPressed("28", $hUser32) Then $bDown = False
If Not _IsPressed("20", $hUser32) Then $bDrop = False
WEnd
Func _Collides($aBlock, $iIncX, $iIncY)
For $i = 0 To 3
If $aBlock[$i][0] + $iIncX < 0 or $aBlock[$i][0] + $iIncX > 8 or $aBlock[$i][1] + $iIncY > 13 Then Return 1
Next
For $i = 0 To 3
If $aField[$aBlock[$i][0] + $iIncX][$aBlock[$i][1] + $iIncY] Then Return 1
Next
EndFunc
Func _PushTheBlock()
If Not _Collides($aBlock, 0, 1) Then
For $i = 0 To 3
$aBlock[$i][1] += 1
Next
Else
For $i = 0 To 3
$aField[$aBlock[$i][0]][$aBlock[$i][1]] = $iCurrColor
Next
$aBlock = _GenerateRandomBlock()
$iCurrColor = @extended
$iTurn = 0
If _Collides($aBlock, 0, 0) Then
MsgBox(48, "Game Over", "Looks like you messed up!" & @CRLF & "Score: " & $iScore)
Exit
EndIf
EndIf
$m = 1
Do
Dim $aNewField[9][0] ;Dim nutzen damit alle vorherigen Einträge gelöscht werden.
For $iRow = 0 To 13
$m = 1
For $iColumn = 0 To 8
$m *= $aField[$iColumn][$iRow]
Next
If $m Then
For $iRow_ = 0 To 13
If $iRow_ = $iRow Then ContinueLoop
ReDim $aNewField[9][UBound($aNewField, 2) + 1]
For $i = 0 To 8
$aNewField[$i][UBound($aNewField, 2) - 1] = $aField[$i][$iRow_]
Next
Next
ExitLoop
EndIf
Next
If UBound($aNewField, 2) Then
Dim $aField[9][14]
For $i = 14 - UBound($aNewField, 2) To 13
For $i_ = 0 To 8
$aField[$i_][$i] = $aNewField[$i_][$i - 14 + UBound($aNewField, 2)]
Next
Next
$iScore += 1
WinSetTitle($hGUI, "", "Tetris Score: " & $iScore)
EndIf
Until Not UBound($aNewField, 2)
EndFunc
Func _Exit()
_GDIPlus_Shutdown()
Exit
EndFunc
Func _GenerateRandomBlock()
Local $iRandom = Random(1, 7, 1)
Switch $iRandom
Case 1 ;S-Block
Local $aReturn[4][2] = [[3, 3], [4, 3], [4, 2], [5, 2]]
Case 2 ;RS-Block
Local $aReturn[4][2] = [[3, 2], [4, 2], [4, 3], [5, 3]]
Case 3 ;L-Block
Local $aReturn[4][2] = [[3, 1], [3, 2], [3, 3], [4, 3]]
Case 4 ;RL-Block
Local $aReturn[4][2] = [[3, 3], [4, 3], [4, 2], [4, 1]]
Case 5 ;O-Block
Local $aReturn[4][2] = [[3, 2], [3, 3], [4, 2], [4, 3]]
Case 6 ;I-Block
Local $aReturn[4][2] = [[3, 2], [4, 2], [5, 2], [6, 2]]
Case 7 ;T-Block
Local $aReturn[4][2] = [[3, 2], [4, 2], [4, 3], [5, 2]]
EndSwitch
SetExtended($iRandom)
Return $aReturn
EndFunc

Alles anzeigen

Kritik und Feedback gerne erwünscht. Bitte hackt nicht zu sehr auf dem Source herum, ich weiß er ist schrecklich

**UEZ** · 1. August 2015

Flimmert, weil du direkt in die Grafik zeichnest, ansonsten läuft's ganz gut. Vielleicht wäre eine Punktesystem nicht schlecht.

Code

#include <GdiPlus.au3>
#include <Misc.au3>
Opt("GUIOnEventMode", 1)
$hGUI = GUICreate("Tetris", 288, 448, 192, 124)
GUISetOnEvent(-3, "_Exit")
GUISetState(@SW_SHOW)
Local $hUser32 = DllOpen("user32.dll")
_GDIPlus_Startup()
$hCanvas = _GDIPlus_GraphicsCreateFromHWND($hGUI)
$hBitmap = _GDIPlus_BitmapCreateFromScan0(288, 448)
$hGraphics = _GDIPlus_ImageGetGraphicsContext($hBitmap)
_GDIPlus_GraphicsClear($hGraphics)
Global $aField[9][14], $aBlock[4][2]
Local $aPalette[7] = [_GDIPlus_BrushCreateSolid(0xFF00FF00), _GDIPlus_BrushCreateSolid(0xFFFF0000), _GDIPlus_BrushCreateSolid(0xFFFF4500), _
_GDIPlus_BrushCreateSolid(0xFF0000FF), _GDIPlus_BrushCreateSolid(0xFFFFFF00), _GDIPlus_BrushCreateSolid(0xFF8888FF), _GDIPlus_BrushCreateSolid(0xFFFF00FF)]
$aBlock = _GenerateRandomBlock()
$iCurrColor = @extended
$iTurn = 0
$iScore = 0
Local $bLeft, $bRight, $bTurn, $bDown, $bDrop
AdlibRegister("_PushTheBlock", 850)
While Sleep(30)
_GDIPlus_GraphicsClear($hGraphics)
For $x = 0 To 8
For $y = 0 To 13
If $aField[$x][$y] Then _GDIPlus_GraphicsFillRect($hGraphics, $x * 32, $y * 32, 32, 32, $aPalette[$aField[$x][$y] - 1])
Next
Next
For $i = 0 To 3
_GDIPlus_GraphicsFillRect($hGraphics, $aBlock[$i][0] * 32, $aBlock[$i][1] * 32, 32, 32, $aPalette[$iCurrColor - 1])
Next
If _IsPressed("25", $hUser32) and Not $bLeft and Not _Collides($aBlock, -1, 0) Then
For $i = 0 To 3
$aBlock[$i][0] -= 1
Next
$bLeft = True
ElseIf _IsPressed("27", $hUser32) and Not $bRight and Not _Collides($aBlock, 1, 0) Then
For $i = 0 To 3
$aBlock[$i][0] += 1
Next
$bRight = True
ElseIf _IsPressed("26", $hUser32) and Not $bTurn and $iCurrColor <> 5 Then
Switch $iCurrColor - 1
Case 0 ;S-Block
Switch $iTurn
Case 0
Local $tmpBlock[4][2] = [[$aBlock[0][0], $aBlock[0][1] - 2], [$aBlock[1][0] - 1, $aBlock[1][1] - 1], [$aBlock[2][0], $aBlock[2][1]], [$aBlock[3][0] - 1, $aBlock[3][1] + 1]]
Case 1
Local $tmpBlock[4][2] = [[$aBlock[0][0] + 2, $aBlock[0][1] + 1], [$aBlock[1][0] + 1, $aBlock[1][1]], [$aBlock[2][0], $aBlock[2][1] + 1], [$aBlock[3][0] - 1, $aBlock[3][1]]]
Case 2
Local $tmpBlock[4][2] = [[$aBlock[0][0] - 1, $aBlock[0][1] + 1], [$aBlock[1][0], $aBlock[1][1]], [$aBlock[2][0] - 1, $aBlock[2][1] - 1], [$aBlock[3][0], $aBlock[3][1] - 2]]
Case 3
Local $tmpBlock[4][2] = [[$aBlock[0][0] - 1, $aBlock[0][1]], [$aBlock[1][0], $aBlock[1][1] + 1], [$aBlock[2][0] + 1, $aBlock[2][1]], [$aBlock[3][0] + 2, $aBlock[3][1] + 1]]
EndSwitch
Case 1 ;RS-Block
Switch $iTurn
Case 0
Local $tmpBlock[4][2] = [[$aBlock[0][0] + 1, $aBlock[0][1] - 1], [$aBlock[1][0], $aBlock[1][1]], [$aBlock[2][0] - 1, $aBlock[2][1] - 1], [$aBlock[3][0] - 2, $aBlock[3][1]]]
Case 1
Local $tmpBlock[4][2] = [[$aBlock[0][0] + 1, $aBlock[0][1] + 2], [$aBlock[1][0], $aBlock[1][1] + 1], [$aBlock[2][0] + 1, $aBlock[2][1]], [$aBlock[3][0], $aBlock[3][1] - 1]]
Case 2
Local $tmpBlock[4][2] = [[$aBlock[0][0] - 2, $aBlock[0][1]], [$aBlock[1][0] - 1, $aBlock[1][1] - 1], [$aBlock[2][0], $aBlock[2][1]], [$aBlock[3][0] + 1, $aBlock[3][1] - 1]]
Case 3
Local $tmpBlock[4][2] = [[$aBlock[0][0], $aBlock[0][1] - 1], [$aBlock[1][0] + 1, $aBlock[1][1]], [$aBlock[2][0], $aBlock[2][1] + 1], [$aBlock[3][0] + 1, $aBlock[3][1] + 2]]
EndSwitch
Case 2 ;L-Block
Switch $iTurn
Case 0
Local $tmpBlock[4][2] = [[$aBlock[0][0] + 2, $aBlock[0][1] + 1], [$aBlock[1][0] + 1, $aBlock[1][1]], [$aBlock[2][0], $aBlock[2][1] - 1], [$aBlock[3][0] - 1, $aBlock[3][1]]]
Case 1
Local $tmpBlock[4][2] = [[$aBlock[0][0] - 1, $aBlock[0][1] + 1], [$aBlock[1][0], $aBlock[1][1]], [$aBlock[2][0] + 1, $aBlock[2][1] - 1], [$aBlock[3][0], $aBlock[3][1] - 2]]
Case 2
Local $tmpBlock[4][2] = [[$aBlock[0][0] - 1, $aBlock[0][1]], [$aBlock[1][0], $aBlock[1][1] + 1], [$aBlock[2][0] + 1, $aBlock[2][1] + 2], [$aBlock[3][0] + 2, $aBlock[3][1] + 1]]
Case 3
Local $tmpBlock[4][2] = [[$aBlock[0][0], $aBlock[0][1] - 2], [$aBlock[1][0] - 1, $aBlock[1][1] - 1], [$aBlock[2][0] - 2, $aBlock[2][1]], [$aBlock[3][0] - 1, $aBlock[3][1] + 1]]
EndSwitch
Case 3 ;RL-Block
Switch $iTurn
Case 0
Local $tmpBlock[4][2] = [[$aBlock[0][0], $aBlock[0][1] - 1], [$aBlock[1][0] - 1, $aBlock[1][1]], [$aBlock[2][0], $aBlock[2][1] + 1], [$aBlock[3][0] + 1, $aBlock[3][1] + 2]]
Case 1
Local $tmpBlock[4][2] = [[$aBlock[0][0] + 1, $aBlock[0][1] - 1], [$aBlock[1][0], $aBlock[1][1] - 2], [$aBlock[2][0] - 1, $aBlock[2][1] - 1], [$aBlock[3][0] - 2, $aBlock[3][1]]]
Case 2
Local $tmpBlock[4][2] = [[$aBlock[0][0] + 1, $aBlock[0][1] + 2], [$aBlock[1][0] + 2, $aBlock[1][1] + 1], [$aBlock[2][0] + 1, $aBlock[2][1]], [$aBlock[3][0], $aBlock[3][1] - 1]]
Case 3
Local $tmpBlock[4][2] = [[$aBlock[0][0] - 2, $aBlock[0][1]], [$aBlock[1][0] - 1, $aBlock[1][1] + 1], [$aBlock[2][0], $aBlock[2][1]], [$aBlock[3][0] + 1, $aBlock[3][1] - 1]]
EndSwitch
Case 5 ;I-Block
Switch $iTurn
Case 0
Local $tmpBlock[4][2] = [[$aBlock[0][0] + 1, $aBlock[0][1] - 1], [$aBlock[1][0], $aBlock[1][1]], [$aBlock[2][0] - 1, $aBlock[2][1] + 1], [$aBlock[3][0] - 2, $aBlock[3][1] + 2]]
Case 1
Local $tmpBlock[4][2] = [[$aBlock[0][0] + 2, $aBlock[0][1] + 1], [$aBlock[1][0] + 1, $aBlock[1][1]], [$aBlock[2][0], $aBlock[2][1] - 1], [$aBlock[3][0] - 1, $aBlock[3][1] - 2]]
Case 2
Local $tmpBlock[4][2] = [[$aBlock[0][0] - 2, $aBlock[0][1] + 2], [$aBlock[1][0] - 1, $aBlock[1][1] + 1], [$aBlock[2][0], $aBlock[2][1]], [$aBlock[3][0] + 1, $aBlock[3][1] - 1]]
Case 3
Local $tmpBlock[4][2] = [[$aBlock[0][0] - 1, $aBlock[0][1] - 2], [$aBlock[1][0], $aBlock[1][1] - 1], [$aBlock[2][0] + 1, $aBlock[2][1]], [$aBlock[3][0] + 2, $aBlock[3][1] + 1]]
EndSwitch
Case 6 ;T-Block
Switch $iTurn
Case 0
Local $tmpBlock[4][2] = [[$aBlock[0][0] + 1, $aBlock[0][1] - 1], [$aBlock[1][0], $aBlock[1][1]], [$aBlock[2][0] - 1, $aBlock[2][1] - 1], [$aBlock[3][0] - 1, $aBlock[3][1] + 1]]
Case 1
Local $tmpBlock[4][2] = [[$aBlock[0][0] + 1, $aBlock[0][1] + 1], [$aBlock[1][0], $aBlock[1][1]], [$aBlock[2][0] + 1, $aBlock[2][1] - 1], [$aBlock[3][0] - 1, $aBlock[3][1] - 1]]
Case 2
Local $tmpBlock[4][2] = [[$aBlock[0][0] - 1, $aBlock[0][1] + 1], [$aBlock[1][0], $aBlock[1][1]], [$aBlock[2][0] + 1, $aBlock[2][1] + 1], [$aBlock[3][0] + 1, $aBlock[3][1] -1]]
Case 3
Local $tmpBlock[4][2] = [[$aBlock[0][0] - 1, $aBlock[0][1] - 1], [$aBlock[1][0], $aBlock[1][1]], [$aBlock[2][0] - 1, $aBlock[2][1] + 1], [$aBlock[3][0] + 1, $aBlock[3][1] + 1]]
EndSwitch
EndSwitch
If Not _Collides($tmpBlock, 0, 0) Then
$aBlock = $tmpBlock
$iTurn = Mod($iTurn + 1, 4)
EndIf
$bTurn = True
ElseIf _IsPressed("28", $hUser32) and Not $bDown and Not _Collides($aBlock, 0, 1) Then
_PushTheBlock()
$bDown = True
ElseIf _IsPressed("20", $hUser32) and Not $bDrop Then
For $i = 0 To 14
If _Collides($aBlock, 0, $i) Then ExitLoop
Next
For $x = 0 To $i
_PushTheBlock()
Next
$bDrop = True
EndIf
If Not _IsPressed("25", $hUser32) Then $bLeft = False
If Not _IsPressed("26", $hUser32) Then $bTurn = False
If Not _IsPressed("27", $hUser32) Then $bRight = False
If Not _IsPressed("28", $hUser32) Then $bDown = False
If Not _IsPressed("20", $hUser32) Then $bDrop = False
_GDIPlus_GraphicsDrawImageRect($hCanvas, $hBitmap, 0, 0, 288, 448)
WEnd
Func _Collides($aBlock, $iIncX, $iIncY)
For $i = 0 To 3
If $aBlock[$i][0] + $iIncX < 0 or $aBlock[$i][0] + $iIncX > 8 or $aBlock[$i][1] + $iIncY > 13 Then Return 1
Next
For $i = 0 To 3
If $aField[$aBlock[$i][0] + $iIncX][$aBlock[$i][1] + $iIncY] Then Return 1
Next
EndFunc
Func _PushTheBlock()
If Not _Collides($aBlock, 0, 1) Then
For $i = 0 To 3
$aBlock[$i][1] += 1
Next
Else
For $i = 0 To 3
$aField[$aBlock[$i][0]][$aBlock[$i][1]] = $iCurrColor
Next
$aBlock = _GenerateRandomBlock()
$iCurrColor = @extended
$iTurn = 0
If _Collides($aBlock, 0, 0) Then
MsgBox(48, "Game Over", "Looks like you messed up!" & @CRLF & "Score: " & $iScore)
Exit
EndIf
EndIf
$m = 1
Do
Dim $aNewField[9][0] ;Dim nutzen damit alle vorherigen Einträge gelöscht werden.
For $iRow = 0 To 13
$m = 1
For $iColumn = 0 To 8
$m *= $aField[$iColumn][$iRow]
Next
If $m Then
For $iRow_ = 0 To 13
If $iRow_ = $iRow Then ContinueLoop
ReDim $aNewField[9][UBound($aNewField, 2) + 1]
For $i = 0 To 8
$aNewField[$i][UBound($aNewField, 2) - 1] = $aField[$i][$iRow_]
Next
Next
ExitLoop
EndIf
Next
If UBound($aNewField, 2) Then
Dim $aField[9][14]
For $i = 14 - UBound($aNewField, 2) To 13
For $i_ = 0 To 8
$aField[$i_][$i] = $aNewField[$i_][$i - 14 + UBound($aNewField, 2)]
Next
Next
$iScore += 1
WinSetTitle($hGUI, "", "Tetris Score: " & $iScore)
EndIf
Until Not UBound($aNewField, 2)
EndFunc
Func _Exit()
_GDIPlus_GraphicsDispose($hCanvas)
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_Shutdown()
Exit
EndFunc
Func _GenerateRandomBlock()
Local $iRandom = Random(1, 7, 1)
Switch $iRandom
Case 1 ;S-Block
Local $aReturn[4][2] = [[3, 3], [4, 3], [4, 2], [5, 2]]
Case 2 ;RS-Block
Local $aReturn[4][2] = [[3, 2], [4, 2], [4, 3], [5, 3]]
Case 3 ;L-Block
Local $aReturn[4][2] = [[3, 1], [3, 2], [3, 3], [4, 3]]
Case 4 ;RL-Block
Local $aReturn[4][2] = [[3, 3], [4, 3], [4, 2], [4, 1]]
Case 5 ;O-Block
Local $aReturn[4][2] = [[3, 2], [3, 3], [4, 2], [4, 3]]
Case 6 ;I-Block
Local $aReturn[4][2] = [[3, 2], [4, 2], [5, 2], [6, 2]]
Case 7 ;T-Block
Local $aReturn[4][2] = [[3, 2], [4, 2], [4, 3], [5, 2]]
EndSwitch
SetExtended($iRandom)
Return $aReturn
EndFunc

Alles anzeigen

**alpines** · 1. August 2015

Direkt in die Grafik zeichnen reicht ja für die meisten Fälle weil man ja keine dynamische Bewegung drinne hat. Mit Buffer sicherlich besser aber wie gesagt wollte ich es so einfach wie möglich für mein Arduino Shield haben.
Punktesystem findet sich im Titel des Fensters wieder, man könnte jetzt noch den Sleep für _PushTheBlock varieren mit steigender Linienanzahl aber wie gesagt - so einfach wie möglich.

**Andy** · 1. August 2015

Bei mir flimmert nichts!
Jedenfalls ein für die orginalgetreue Umsetzung!
Sicherlich könnte man den Code noch optimieren, aber was solls, Hauptsache läuft^^

Teilen