;blackjack von mir, der chillkröte, weil smokie so nett fragte...

SeedRnd MilliSecs() ;zufallsgenerator, der freund eines jeden programmierers

;konstanten für die einzelnen farben und bank und spieler

Const farbe_pik=0
Const farbe_herz=1
Const farbe_karo=2
Const farbe_blatt=3
Const bank=1
Const spieler=2

;typ für die karte, selectedby gibt an ob von bank oder spieler gezogen
Type Tkarte
   Field farbe
   Field wert
   Field name$
   Field Selectedby
End Type

;ne funktion um die karten zu erstellen
Function create_karte.Tkarte(farbe,wert,name$)
   Vkarte.Tkarte=New Tkarte
   Vkarte\farbe=farbe
   Vkarte\wert=wert
   Vkarte\name$=name$
   Vkarte\Selectedby=0
   Return Vkarte
End Function

;alle karten erstellen
create_karte(farbe_pik,7,"Pik 7")
create_karte(farbe_pik,8,"Pik 8")
create_karte(farbe_pik,9,"Pik 9")
create_karte(farbe_pik,10,"Pik 10")
create_karte(farbe_pik,2,"Pik Bube")
create_karte(farbe_pik,3,"Pik Dame")
create_karte(farbe_pik,4,"Pik König")
create_karte(farbe_pik,11,"Pik Ass")

create_karte(farbe_herz,7,"Herz 7")
create_karte(farbe_herz,8,"Herz 8")
create_karte(farbe_herz,9,"Herz 9")
create_karte(farbe_herz,10,"Herz 10")
create_karte(farbe_herz,2,"Herz Bube")
create_karte(farbe_herz,3,"Herz Dame")
create_karte(farbe_herz,4,"Herz König")
create_karte(farbe_herz,11,"Herz Ass")

create_karte(farbe_karo,7,"Karo 7")
create_karte(farbe_karo,8,"Karo 8")
create_karte(farbe_karo,9,"Karo 9")
create_karte(farbe_karo,10,"Karo 10")
create_karte(farbe_karo,2,"Karo Bube")
create_karte(farbe_karo,3,"Karo Dame")
create_karte(farbe_karo,4,"Karo König")
create_karte(farbe_karo,11,"Karo Ass")

create_karte(farbe_blatt,7,"Blatt 7")
create_karte(farbe_blatt,8,"Blatt 8")
create_karte(farbe_blatt,9,"Blatt 9")
create_karte(farbe_blatt,10,"Blatt 10")
create_karte(farbe_blatt,2,"Blatt Bube")
create_karte(farbe_blatt,3,"Blatt Dame")
create_karte(farbe_blatt,4,"Blatt König")
create_karte(farbe_blatt,11,"Blatt Ass")

;so, ab jetzt haben wir also nen riesen stapel mit karten

;get_karte holt irgendeine karte aus dem stapel raus, id muß zwischen 1 und 32 liegen, mehr karten gibts ja auch nicht
Function get_karte.Tkarte(id)
   count=1
   For Vkarte.Tkarte=Each Tkarte
      If count=id Then Return Vkarte
      count=count+1
   Next
   Return Null
End Function

;gibt eine karte für die bank
Function add_card_bank()
   Repeat
      x=Rand(1,32)
      karte.Tkarte=get_karte(x)
   Until karte\Selectedby=0
   karte\Selectedby=bank
   DebugLog "Karte für die Bank"
End Function

;gibt die karten welche die bank hat aus ...
Function Print_bank_cards()
   Print "Bank"
   For Vkarte.Tkarte=Each Tkarte
      If Vkarte\Selectedby=bank Then Print Vkarte\name$
   Next
   Print
End Function

;gibt ne karte für den spieler
Function add_card_player()
   Repeat
      x=Rand(1,32)
      karte.Tkarte=get_karte(x)
   Until karte\Selectedby=0
   karte\Selectedby=spieler
   DebugLog "Karte für den Spieler"
End Function

;gibt die spielerkarten aus ...
Function Print_player_cards()
   Print "Spieler"
   For Vkarte.Tkarte=Each Tkarte
      If Vkarte\Selectedby=spieler Then Print Vkarte\name$
   Next
   Print
End Function

;zählt die punkte vom spieler
Function count_points_player()
   points=0
   For Vkarte.Tkarte=Each Tkarte
      If Vkarte\Selectedby=spieler Then points=points+Vkarte\wert
   Next
   Return points
End Function

;zählt die punkte der bank
Function count_points_bank()
   points=0
   For Vkarte.Tkarte=Each Tkarte
      If Vkarte\Selectedby=bank Then points=points+Vkarte\wert
   Next
   Return points
End Function

;anfangszustand, 2 karten spieler, 2 karten für die bank
Function init()
   add_card_player()
   add_card_player()
   add_card_bank()
   add_card_bank()
End Function

;setzt alles auf den ausgangszustand zurück
Function clear()
   For Vkarte.Tkarte=Each Tkarte
      Vkarte\Selectedby=0
   Next
End Function

init()

Endgame=False ;gibt an ob spiel zu ende
While Not KeyHit(1)

   Cls
   Locate 0,0
   Print_bank_cards()
   Print "Punkte : "+count_points_bank()
   Print
   Print_player_cards()
   Print "Punkte : "+count_points_player()
   Print
   If Endgame=False Then
      Print "Space für noch ne Karte, Return wenn fertig"
      FlushKeys()
      WaitKey()
      If KeyHit(57) Then add_card_player() ;bei space geben wir dem player noch ne karte
      If KeyHit(28) Then ;bei return gibt die bank sich solange karten bis sie verliert,
         Endgame=True   ;spiel wird auf ende gesetzt ...
         If count_points_player()<=21 Then ;falls der spieler nich schon verloren hat
            While count_points_bank()<count_points_player()
               add_card_bank()
            Wend
         End If    
      End If    
   Else    ;wenn spiel zu ende, dann abrechnung machen, schauen wer gewonnen hat, pi pa po
      If count_points_player()>21 Then
         Print "Du hast leider verloren - Taste drücken, dann gehts wieder los "
      Else If count_points_player()<=count_points_bank() And count_points_bank()<=21 Then
         Print "Die Bank macht das Rennen- Taste drücken, dann gehts wieder los "
      Else    
         Print "$$$ Yeah, you did it ... You win $$$ - Taste drücken, dann gehts wieder los "
      End If
      WaitKey()
      clear()
      init()
      endgame=False
   End If    

Wend

End