Graphics 320,240,0,2 ;Grafikmodus laden
SetBuffer BackBuffer()

Local KartenPaareAnzahl,X,Y
KartenPaareAnzahl=8

Bild=LoadAnimImage ("MemoryBilder.BMP", 32, 32, 0, KartenPaareAnzahl+1); lädt alle Bilder aus einer Datei. die Bilder müssen 8(+1 dsa verdeckt ist) sein und die Größe 32*32 haben!


SeedRnd MilliSecs()
Dim Karte(0)
Dim Aufgedeckt(0)

Karten_mischen(KartenPaareAnzahl)

;--------------------Das ein paar aufgedeckt sind und ein paar nicht!
For s= 0 To KartenPaareAnzahl*2
   Aufgedeckt(s)=Rand(0,1)
Next
;--------------------

Repeat
For X= 0 To 3
   For Y= 0 To 3
      If aufgedeckt((X*4)+Y) = 1 Then
         DrawImage Bild,X*40,y*40,Karte((X*4)+Y) ;Wird gezeichnet, wenn aufgedeckt!
      Else
         DrawImage Bild,X*40,y*40,KartenPaareAnzahl+1
      End If
   Next
Next
Flip
Until KeyHit(1)

Function Karten_mischen(KartenPaareAnzahl)
Dim Karte(KartenPaareAnzahl*2)
Dim Aufgedeckt(KartenPaareAnzahl*2)
For Kartennummer=0 To KartenPaareAnzahl-1
   For S= 0 To 1
      gelegt=0
      Repeat
         Nummer=Rand(0,KartenPaareAnzahl*2-1)
         If Karte(nummer) = 0 Then
            Karte(nummer) = Kartennummer
            gelegt=1
         End If
      Until gelegt=1
   Next
Next
End Function

dim Feld(4,4)

For n=1 To 8
  For i=1 To 2
    Repeat
       x=Rand(1,4)
       y=Rand(1,4)
    Until feld(x,y)=0
    Feld(x,y)=n
  Next
Next