Const feldGroesse = 64

Global breite = feldGroesse * 5
Global hoehe = feldGroesse * 5 + 40

Global textY = feldGroesse * 5 + 20

Dim spielFeld(4,4)
Global zuege = 0

Global level = 0

SeedRnd MilliSecs()

Graphics breite, hoehe, 0, 2
SetBuffer BackBuffer()

Repeat

   ende = steuerung()
   spielZeichnen()

Until ende = 1


Function steuerung()

   If KeyHit(1) Then
      Return 1
   EndIf
   
   If istSieg() Then
      neuesSpiel()
   EndIf
   
   If MouseHit(1) Then
      x = MouseX() / feldGroesse
      y = MouseY() / feldGroesse
      If x >= 0 And x <= 4 And y >= 0 And y <= 4 Then
         zuege = zuege + 1
         tauscheFeld(x,y)
      EndIf
   EndIf

End Function


Function spielZeichnen()

   Cls
   
   For y = 0 To 4
      For x = 0 To 4
         Oval x * feldGroesse, y * feldGroesse, feldGroesse, feldGroesse, spielFeld(x,y)
      Next
   Next
   
   Text 10, textY, "Benötigte Züge: " + zuege
   
   Flip

End Function


Function istSieg()

   an = 0
   
   For y = 0 To 4
      For x = 0 To 4
         an = an + spielFeld(x,y)
      Next
   Next

   If an = 0 Then
      Return 1
   Else
      Return 0
   EndIf

End Function


Function neuesSpiel()

   Dim spielFeld(4,4)
   level = level + 1
   zuege = 0
   
   For i = 0 To level
      tauscheFeld(Rand(0,4),Rand(0,4))
   Next

End Function

Function tauscheFeld(x,y)

   For y2 = -1 To 1
      For x2 = -1 To 1
         If (x2 And y2) = 0 And x+x2 >= 0 And x+x2 <= 4 And y+y2 >= 0 And y+y2 <= 4 Then
            spielFeld(x+x2,y+y2) = 1 - spielFeld(x+x2,y+y2)
         EndIf
      Next
   Next

End Function

level = level + 1

For i = 0 To level
   tauscheFeld(Rand(0,4),Rand(0,4))
Next

00  00  00  01  01  01  01  10         11
01, 10, 11, 00, 01, 10, 11, 00, ....., 11