Z80-21 Yet Another "BlackJack"

General games-related topics
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: Z80-21 Yet Another "BlackJack"

Post by XavSnap »

Hi,
with a pair, if the dealer has a Blackjack... you lose without insurance possibility. :oops:
<The wallet was ok....

EDIT:
[Ok, wasn't an AS card... working...]
9001 IF Y<>21 AND D(2)=11 AND W>=B/2 THEN GOTO 9019

but:

9000 IF Y=21 AND Z=21 THEN GOSUB 9800
9001 IF Y<>21 AND D(2)=11 AND W>=B/2 THEN GOTO 9019
9002 IF Y=21 AND Z<>21 THEN LET K=2
9004 IF Z=21 AND Y<>21 THEN LET K=0
9006 IF Z<>21 AND Y<>21 THEN RETURN
9008 GOSUB 9800
9010 GOTO 4560


9004 IF Z=21 AND Y<>21 THEN LET K=0
RETURN ?
Not a looser on the first deal !!!
Just on the second deal.
Dealer can't see hidden card before the first player action.
He had to give the hand to the player.
Last edited by XavSnap on Mon Aug 08, 2022 11:38 pm, edited 2 times in total.
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
sanello
Posts: 100
Joined: Sat Jul 23, 2022 9:26 pm

Re: Z80-21 Yet Another "BlackJack"

Post by sanello »

You only get insurance choice if the dealers face up card is an ace. If he has a face up card that is a "10" value, he will peek at his hole card and immediately reveal you have lost (or tied) no insurance in that case.
-sanello
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: Z80-21 Yet Another "BlackJack"

Post by XavSnap »

:?:
If it's another card ?
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: Z80-21 Yet Another "BlackJack"

Post by XavSnap »

Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
sanello
Posts: 100
Joined: Sat Jul 23, 2022 9:26 pm

Re: Z80-21 Yet Another "BlackJack"

Post by sanello »

I wasn't specific enough. I'll put in CAPS what I left out

You only get insurance choice if the dealers face up card is an ace. If he has a face up card that is a "10" value, he will peek at his hole card and immediately reveal it IF IT IS AN ACE so you have lost (or tied) no insurance in that case.

If you play the original game (I would speed it up a bit) all that scoring should be correct. I think I only messed up splits on aces.
-sanello
Andre
Posts: 46
Joined: Sat Jun 21, 2008 7:28 pm
Location: Chateauguay-Quebec-Canada
Contact:

Re: Z80-21 Yet Another "BlackJack"

Post by Andre »

I trimmed over 3000 bytes from the xavnap version. It is my 6th upgraded version. more to come. The program does the same work as before but I little faster... And I added a few screen improvements. Have fun!
Attachments
Z8021AB6.P
(12.24 KiB) Downloaded 89 times
The ZX81 pleasure is spreading, ANDRE***
http://zx81.ordi5.free.fr/andre
http://zx81.de/andre
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: Z80-21 Yet Another "BlackJack"

Post by XavSnap »

Thanks André !

The text file...
ANDRE_[ZX81 BASIC TEXT CODES].txt
(12.58 KiB) Downloaded 95 times
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Andre
Posts: 46
Joined: Sat Jun 21, 2008 7:28 pm
Location: Chateauguay-Quebec-Canada
Contact:

Re: Z80-21 Yet Another "BlackJack"

Post by Andre »

Thanks for the 'TEXT' of my AB6 version. How can I do that?
And I would like to include your 'croupier', so good, in my futur version.
I am thrilled to work on this project even it stalls my IMPROVED project.
Amusing to see 2 Frenchmen conversing in English. À bientôt!
The ZX81 pleasure is spreading, ANDRE***
http://zx81.ordi5.free.fr/andre
http://zx81.de/andre
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: Z80-21 Yet Another "BlackJack"

Post by XavSnap »

Hi André,

I had to use VB81 emulator to load & launch, or save text.
It makes the text>emulator use without making a P file.

I just use SAVE"NAME.TXT" to create a compatible text file.
I only use the keyboard to type 'RUN'...
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
sanello
Posts: 100
Joined: Sat Jul 23, 2022 9:26 pm

Re: Z80-21 Yet Another "BlackJack"

Post by sanello »

Nice André

There are a couple issues in this version with doubles. Also it blinks H/S the second time it asks. I actually kind of like that, but it slows down INKEY$ response a lot.

While i am typing stuff I want to tell a little childhood programming story that will end in a download not particularly well suited to the forum, but has it's roots in Sinclair and I think it will be fun.

Once upon a time, SAnello received a new TS1000. It was his first computer if you do not include the Odyssey 2 (videopak) computer intro cartridge. He programmed the heck out of that 2 k. One day he had what he thought was a brilliant idea. He wanted to make a computer version of a 5 letter word game called Jotto! More info on that here. http://www.panix.com/~sos/bc/jotto.html Anyway. There was no internet in 1983 nor did he have access to some kind of electronic dictionary, so he and a buddy took out a dictionary and started to write down on paper all the 5 letter words in it. A daunting task, but they did it! He then actually started writing code on paper before using the computer to do it. Having no concept of how little memory he had, he then started typing away his words in an array. In short order, the letters started to disappear as he typed. "What is going on?" he thought. Is it broke. His older brother scoffed, "it's not broke, you need way more memory." Disappointed, SAnello gave up for a couple weeks until a local KMart had a 16k expansion module half price on sale for $49.99 1983ish dollars! He quickly broke his piggy bank and begged his grandfather for the rest, bought the cartridge, ripped open the package, and plugged it in. It took a little longer, but as soon as that inverted K showed up on the screen, he loaded the tape he saved of his previous work and began typing away again. Guess what happened. Out of memory again. Totally discouraged, the project was shelved. that was until his younger brother purchased a Commodore 128 from money he made corn detasseling of all things. The programming was on again and finally computerized Jotto was born! It only took the machine 8 hours or so to sort out it's first guess! Years later, he rewrote it for a 486sx-25 in QBasic with much more playable results. Here it is.
Jotto.zip
QBasic (don't yell at me. I tried on the ZX81 and failed)
(195.53 KiB) Downloaded 86 times
-sanello
Post Reply