Graphics 800,600,16,2
SetBuffer BackBuffer()
AppTitle "Kniffel Version 1.0 ( PC )"

SeedRnd MilliSecs()

Dim zahl(5)

Repeat
If KeyHit(57) Then Wurf()
For I = 1 To 5
Text (I*10),1,zahl(I)
Next
Text 1,20,"CheckWin : "+CheckWin()
Flip
Cls
Until KeyHit(1)
End



Function Wurf()
GW = GraphicsWidth()/2
Repeat
Text GW,100,"Es wird gewürfelt.Bitte Warten.",1,1
Text GW,150,"Leertaste um zu stoppen",1,1
For i = 1 To 5
zahl(i) = Rand(1,6)
Text GW+(i*10),300,zahl(i),1,1
Next
Flip
Cls
Until KeyHit(57)
End Function


Function Check(W)
For i = 1 To 5
If zahl(i) = W Then Wert = Wert + 1
Next
Return Wert
End Function


Function CheckWin$()
For i = 1 To 5
Select Check(i)
Case 0
Return "Nichts":Exit
Case 1
Return "Nichts":Exit
Case 2
Return "Ein Paar":Exit
Case 3
Return "Ein Dreierpasch":Exit
Case 4
Return "Ein Viererpasch":Exit
Case 5
Return "Eine Super 5":Exit
End Select
Next
End Function

;--------------------
;------ KNIFFEL -----
;--------------------
;- Created by Crack -
;--------------------
;
;--------------------
;--- Graphiken : ----
;--------------------

Graphics 800,600,16,2
SetBuffer BackBuffer()
AppTitle "Kniffel Version 1.0 ( PC )"

;-------------------------------
;--- Alles einstellen etc. : ---
;-------------------------------

;"Rand" oder "Rnd" auf zufällig setzten :
SeedRnd MilliSecs()

;Array "zahl" Dimmen :
Dim zahl(5)

;---------------------------
;--- Die Haubtschleife : ---
;---------------------------

Repeat

;Würfeln wenn Leertaste :
  If KeyHit(57) Then Wurf()
; Dann die Zahlen aufschreiben :
For I = 1 To 5
  Text (I*10),1,zahl(I)
Next

;Wie viele zahlen ?
For i = 1 To 6
  Text 1,40+(I*20),"Von der "+i+" sind "+Check(i)+" da."
Next
;Function CheckWin$() "Printen" :

Text 1,20,"CheckWin : "+CheckWin()

;Flippen und löschen
Flip
Cls
;Schleife ende :
Until KeyHit(1)
;Beendet das Programm :
End


;--------------------
;--- Functionen : ---
;--------------------


Function Wurf()
;die hälfte von der Bildschirm-BREITE festlegen :
GW = GraphicsWidth()/2
; Dann die Schleife :
  Repeat
   ; Dann einen Text schreiben :
    Text GW,100,"Es wird gewürfelt.Bitte Warten.",1,1
    Text GW,150,"Leertaste um zu stoppen",1,1
       ;Die "Rand" zahlen anzeigen (hintereinander : "
      For i = 1 To 5
        zahl(i) = Rand(1,6)
        Text GW+(i*10),300,zahl(i),1,1
      Next
     ; Flippen
    Flip
     ; Bildschirm löschen :
   Cls
     ; Schleifen ende :
  Until KeyHit(57)
End Function


Function Check(W)
; For...Next Schleife, die den Wert "+ 1" Rechnet, wenn eine Zahl mit dem wert gefunden wurde :
For i = 1 To 5
  If zahl(i) = W Then Wert = Wert + 1
Next
; Und dann den Wert "Returnrn" ( Wiedergeben ) ^^ :
  Return Wert
End Function


Function CheckWin$()
;For...Next Schleife, die Check ob da sachen x2,x3,x4 oda x5 sind
For i = 1 To 6
  Select Check(i)
    Case 0
      W$ = "Nichts"
    Case 1
      W$ = "Nichts"
    Case 2
      W$ = "Ein Paar"
    Case 3
      W$ = "Ein Dreierpasch"
    Case 4
      W$ = "Ein Viererpasch"
    Case 5
W$ = "Eine Super 5"
End Select
Next
;Und dann returnrn :
Return W$
End Function