Z10: Blackjack

Hallo Freunde der BASIC Zehnzeiler-Herausforderungen!

Ich führe mal BIF's Z10-Serie weiter und möchte gerne sehen, wie gut ein Blackjack (auch bekannt als 17+4) als PUR-80 Zehnzeiler aussehen könnte.

Kurz zum Spiel (es gibt verschiedene Ausprägungen der Regeln, aber hier die einfachste):

• 52 französische Karten, also je 13 Karten à Herz, Karo, Kreuz, Pik)
• Karten 2-10 zählen ihren Eigenwert
• Bube, Dame, König zählen je 10 Punkte
• Ass zählt 11 Punkte

Ziel ist es, so nah an ein Kartenwerttotal von 21 zu kommen ohne diesen Wert zu überschreiten (=Bust).

Der Dealer (Computer) gibt sich eine Karte (sichtbar), dann dem Spieler (sichtbar), dann sich (verdeckt) und noch eine dem Spieler (sichtbar). Die Kartenwerte werden zusammengezählt. Der Spieler entscheidet nun, ob er noch eine Karte möchte (Hit) oder bei dem aktuellen Kartenwerttotal bleibt (Stand). Bei "Hit" erhält er eine weitere Karte dazu. Sobald der Spieler "Stand" wählt, zieht der Dealer so lange, bis er entweder mindestens 17 Punkte erreicht hat oder "Bust" geht. Je nachdem gewinnt der Dealer oder der Spieler.

Viel Spass beim Tüfteln!

Noch ein Tipp. Das Zahlenmischen in BASIC wurde im Thread "Zufallszahlen" diskutiert:
Zufallszahlen

Das hat mich dann auch dazu bewogen, das mit einem Kartenspiel zu kombinieren. Blackjack bzw. 17+4 schien mir dazu geeignet. Die besondere Herausforderung ist dann noch, das Ganze grafisch ansprechend darzustellen. Bin gespannt...

Quote from BIF

Hallo, hab mein ersten Black-Jack Zehnzeiler funktionsmäßig fertiggestellt.
Und hier ist der Screenshot der zeigt, wie´s aussieht.

Sieht supercool aus. Vor allem gefällt mir bei deiner Version, dass du den Hintergrund weiss gewählt hast, damit die Karten - das zentrale Objekt im Spiel - authentisch dargestellt werden können.

Hier ein Screenshot meiner vorläufigen Version:

Ein klein bisschen Platz hatte ich noch, um anzuzeigen, wenn der Spieler gleich zu Beginn 21 Punkte (also einen "Blackjack") erhält.

Gruss aus der Schweiz

Edit: Wo ich regeltechnisch aufgrund der Zeichenlimite noch einen Kompromiss - zum Nachteil des Casinos - eingehen musste: Ein Unentschieden fällt immer zu Gunsten des Spielers aus.

Quote from BIF

Dein Programm sieht find ich auch schon gut strukturiert aus.

Danke dir

Quote from BIF

Zugegebenermaßen kenne ich mich mit Black-Jack nicht ganz perfekt aus.

Das jeweilige Thema zu durchleuchten, finde ich fast genauso spannend und interessant wie das Zehnzeiler-Tüfteln. Die Regeln von Blackjack musste ich auch erst wieder im Internet recherchieren, und habe dann noch einige YouTube Videos angeschaut, wie das Herausgeben der Karten so abläuft. Habe dabei gelernt, dass es bei den Casino-Regeln noch "Split" und "Double" sowie eine "Versicherung" gegen einen Dealer Blackjack gibt, aber das hätte den Rahmen eines PUR-80 Zehnzeilers dann definitiv gesprengt (wenn die Darstellung nicht darunter leiden soll). Was ich bisher auch nicht kannte, ist die Regel "Dealer must stand on 17 and must draw to 16", also das der Dealer, sobald er 17 Punkte zusammen hat, nicht mehr ziehen darf.

Jedenfalls wäre ich dank diesem Zehnzeiler nun grundsätzlich fit für einen Casino-Besuch (bin aber eher nicht der Zocker-Typ).

Quote from BIF

Hier kommt mein KARTEN 17+4.PRG
als Download.

Vielen Dank für dein PRG. Werde deine Version gleich mal ausprobieren.

Hier meine Variante:
blackjack.prg

Steuerung:
H = Hit (eine weitere Karte erhalten)
S = Stand (keine weitere Karte mehr)
<space> um neu zu starten.

Beim Design habe ich mir noch überlegt, ob ich die aktuelle Summe der Kartenpunkte anzeigen oder weglassen soll. Weglassen macht vermutlich mehr Spass, weil man dann ein bisschen Kopfrechnen und sich etwas konzentrieren muss. Ich habe mich aber für das Anzeigen entschieden, damit Personen, die noch nie Blackjack gespielt haben oder solche die andere Regeln gewohnt sind, intuitiv nachvollziehen können, wie in meiner Version gezählt wird (also Bube, Dame, König immer 10, Ass immer 11).

Hallo BIF

Interessant. Du hast ein völlig anderes Spiel daraus gemacht, das mir aber gut gefällt. Wäre noch spannender, wenn man nur max. ein Kartendeck lang (also 52 Karten) ziehen dürfte und dann am Schluss das erreichte Punktetotal angezeigt wird. Und es wäre abgesehen davon auch ein gutes Training für solche, die Karten zählen üben möchten.

BIF: Etwas würde mich noch wunder nehmen... wie kriegst du es hin, dass SPC() mit "Reverse On" printed? Sieht mir stark nach Voodoo aus. Und wofür setzt du die End-Adresse des BASIC Variablenbereichs auf den Anfang? Sehr misteriös.

Quote from BIF

Also, mit :poke19,1: kann man die Ausgabe von rechts-Steuerzeichen auf Leerzeichen umschalten.

Stimmt so nicht ganz. Das unterschiedliche Verhalten zeigt sich ja nur im Zusammenhang mit SPC(). Auf PRINTs mit rechts-Steuerzeichen hat der POKE keinen Einfluss.

Ich habe mir die Verwendung der Zeropage-Adresse 19 ($13) im BASIC Kernal mal genauer angeschaut ( https://www.pagetable.com/c64disasm/ ). Da geht es um den I/O-Kanal, welche sich auf die Zahl bei "OPEN 1,..." bezieht, über den eine Ein- oder Ausgabe erfolgen soll. Initial ist der Wert 0 (Ein-/Ausgabe über Tastatur/Monitor). Regulär gesetzt wird die Speicherstelle 19 ($13) vom BASIC-Befehl CMD und fixiert den Kanal für den nächsten In- oder Output (z.B. via INPUT oder PRINT). Die Kanal-Adresse wird ebenfalls von den Befehlen GET#, PRINT# oder INPUT# vorübergehend gesetzt, weil dort die Kanal-Nummer direkt mitgegeben wird und als Teil des #-Befehls ein CMD-Aufruf ausgeführt wird. Im Hintergrund wird dann einfach ein GET, PRINT oder INPUT über das jeweilige Ein-/Ausgabegerät ausgeführt. Interessant: GET#, PRINT#, INPUT# sowie GET setzen denn Kanal bzw. Speicherstelle 19 ($13) nach Verwendung wieder auf 0. "CMD" macht somit in Verbindung mit den #-Befehlen IMHO keinen grossen Sinn. Kurios: Trotzdem muss im Anschluss einer Peripherie-Ausgabe ein #-Befehl ausgeführt werden, ansonsten wird der I/O-Channel nicht wieder auf 0 zurückgesetzt. Wenn Speicherstelle 19 ($13) nämlich gesetzt bleibt (ungleich 0), dann gibt es ein seltsames Verhalten, wenn man im Bildschirm <return> drückt: Nach dem Return gibt es keine Zeilenschaltung mehr. Lustig: Man kann auf diese Weise sogar ein Listing eingeben. Aus diesem Verhalten kommt man raus, wenn man POKE19,0 eintippt und <return> drückt. Aber auch irgendeine Fehlermeldung setzt Adresse 19 ($13) wieder auf 0.

Wenn Adresse 19 ($13) also nicht gleich 0 ist, dann geht der C64 Kernal von Peripherie-Output aus und druckt bei SPC() dann eben statt einem Steuerzeichen "nach rechts" (was grundsätzlich schneller ist, aber nur auf dem Bildschirm Sinn macht) ein echtes Leerzeichen. Somit kann man POKE19,1 oder POKE19,255 oder irgendeine Zahl zwischen 1 und 255 verwenden, um das gewünschte Verhalten zu erreichen.

Alternativ könnte man statt diesem POKE also auch die Standard-BASIC-Befehle einsetzen, um eine Ausgabe über den Bildschirm via Peripherie-Modus auszugeben (und damit zum Leerzeichen zu gelangen), also statt...

POKE19,1:PRINTCHR$(18)SPC(20):POKE19,0

...könnte man auch folgende Befehlszeile verwenden (3=Bildschirm Device):

OPEN1,3:PRINT#1,CHR$(18)SPC(20):CLOSE1

Ist beides in etwa gleich schnell in der Ausführung und auch gleich lang als source code. Wobei mir persönlich der Weg über "OPEN1,3" lieber ist, da nachvollziehbarer. Der POKE ist dafür geheimnisvoller.

Was ich mich aber nun wundere... in den gängigen POKE-Sammlungen steht, dass man mit POKE19,65 das Fragezeichen bei einem INPUT ausschalten kann:

------------------------------------------------------------------
Miscellaneous
------------------------------------------------------------------
POKE 775,200 disable LIST
POKE 775,167 enable LIST
POKE 56341,S set cursor speed (S=0-255)
POKE 204,0 turn cursor on during a GET
POKE 204,255 turn cursor back off
POKE 19,65 turn off question mark during INPUT
POKE 19,0 turn question mark back on
POKE 54296,15:POKE 54296,0 make a click sound

Meines Erachtens spielt es keine Rolle, welcher Wert in Adresse 19 steht. Hauptsache, es steht eine Zahl > 0 drin. Ich habe das Gefühl, da hat sich jemand einen Scherz erlaubt und einfach sein Geburtsjahr 1965 verewigen wollen.

Edit: Gerade darüber gestolpert. Finde die Speicherstelle 19 ($13) hier sehr klar und treffend beschrieben: https://archive.org/details/Co…g_the_64_and_64C/page/n23 . Das Buch gefällt mir.

@BIF Was hältst du von der 65 in POKE19,65? Gehst du mit mir einig, dass es egal ist, welche Zahl zwischen 1-255 dort steht? Wäre noch eine Serie Wert: „Das Geheimnis hinter den Wunderpokes - DAS steckt wirklich dahinter“

Die Anwendung von POKE242,0 ist auch sehr interessant. Aber auch diese Adresse sollte man nach dem erfolgten Zaubertrick (Screenrollen verhindern) wieder auf den ursprünglichen Wert zurücksetzen, um seltsames Verhalten zu vermeiden. Berufsethik sozusagen.

Zu guter Letzt noch ein Benchmarkvergleich, den ich kürzlich gemacht habe, zum Platzieren des Cursors auf dem Bildschirm aufgrund von Zeile und Spalte.

Ein SPC() und TAB() benötigt übrigens kein ";" am Schluss um zu verhindern, dass der PRINT-Command eine Zeilenschaltung macht.Das folgende Beispiel schreibt das Wort "test" auch ohne Semikolon im Anschluss der 20 Leerstellen.

@BIF: Gerade erst entdeckt: http://www.gamebase64.com/game.php?id=25084

Eine Jugendsünde? Ich sehe schon, du hast schon einige BASIC-Zeilen auf dem Buckel. Hut ab. Dein BASIC-Spiel aus dem Jahre 2006 scheint mir spieltechnisch sehr umfangreich zu sein. Wie lange hast du denn damals daran gesessen, bis es Release-würdig war? Ich persönlich kenne Skat leider überhaupt nicht, aber ich kann mir schon vorstellen, dass das Spiel für einen Liebhaber etwas hergibt. Sieht jedenfalls cool aus.

Habe mein Blackjack noch ein wenig aufpoliert (grosse Karten mit runden Ecken, Muster auf Kartenrückseite) und - was mich besonders freut - endlich einen sinnvollen Einsatz für den ECM-Modus gefunden. Der ECM-Modus erlaubt bis zu 4 verschiedene Hintergrund-Farben auf ein einzelnes Zeichen anzuwenden. Das wird hier bei den Karten (Hintergrund weiss, Schriftfarbe rot, schwarz oder hellblau) und bei der Gewinn-Meldung (Hintergrund rot, Schriftfarbe weiss) angewendet. Dafür hat man nur 64 Zeichen, aber für ein Kartenspiel braucht es nicht viel mehr. Und mir gefällt grundsätzlich die Reduktion aufs Wesentliche.

Edit: Der Fokus auf Look & Feel zollt ihren Tribut: Ein PUR-80 Zehnzeiler ist das nicht mehr. Müsste aber schauen, ob ich das stattdessen in einem PUR-256 Zehnzeiler unterbringen kann. Vermutlich mache ich aber eher ein übersichtliches, dokumentiertes BASIC-Programm daraus - als Anschauungsvorlage und funktionelle Basis - falls jemand selbst mal ein eigenes Kartenspiel entwickeln möchte.